blob: b16ba4b27d188eb939e69d5193d50fcf8046c24a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
// Input arguments are co efficients of numerator and denominator
// polynomials in ascending powers of z^-1
// Scicos/Xcos blocks need input polynomials
// with positive powers of z
function [nume,deno] = cosfil_ip(num,den)
exec('polyno.sci',-1);
[Nn,Nd] = polyno(num,'z');
[Dn,Dd] = polyno(den,'z');
nume = Nn*Dd;
deno = Nd*Dn;
endfunction;
|
