1
<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
2
<!DOCTYPE MAN SYSTEM "../../manrev.dtd">
4
<LANGUAGE>eng</LANGUAGE>
6
<TYPE>Scilab Function</TYPE>
7
<DATE>April 1993</DATE>
8
<SHORT_DESCRIPTION name="arl2"> SISO model realization by L2 transfer approximation</SHORT_DESCRIPTION>
10
<CALLING_SEQUENCE_ITEM>h=arl2(y,den0,n [,imp]) </CALLING_SEQUENCE_ITEM>
11
<CALLING_SEQUENCE_ITEM>h=arl2(y,den0,n [,imp],'all') </CALLING_SEQUENCE_ITEM>
12
<CALLING_SEQUENCE_ITEM>[den,num,err]=arl2(y,den0,n [,imp]) </CALLING_SEQUENCE_ITEM>
13
<CALLING_SEQUENCE_ITEM>[den,num,err]=arl2(y,den0,n [,imp],'all') </CALLING_SEQUENCE_ITEM>
18
<PARAM_NAME>y</PARAM_NAME>
20
<SP>: real vector or polynomial in <VERB>z^-1</VERB>, it contains the coefficients of the Fourier's series of the rational system to approximate (the impulse response)</SP>
24
<PARAM_NAME>den0</PARAM_NAME>
26
<SP>: a polynomial which gives an initial guess of the solution, it may be <VERB>poly(1,'z','c')</VERB></SP>
30
<PARAM_NAME>n</PARAM_NAME>
32
<SP>: integer, the degree of approximating transfer function (degree of den)</SP>
36
<PARAM_NAME>imp</PARAM_NAME>
38
<SP>: integer in <VERB>(0,1,2)</VERB> (verbose mode)</SP>
42
<PARAM_NAME>h</PARAM_NAME>
44
<SP>: transfer function <VERB>num/den</VERB> or transfer matrix (column vector) when flag <VERB>'all'</VERB> is given.</SP>
48
<PARAM_NAME>den</PARAM_NAME>
50
<SP>: polynomial or vector of polynomials, contains the denominator(s) of the solution(s)</SP>
54
<PARAM_NAME>num</PARAM_NAME>
56
<SP>: polynomial or vector of polynomials, contains the numerator(s) of the solution(s)</SP>
60
<PARAM_NAME>err</PARAM_NAME>
62
<SP>: real constant or vector , the l2-error achieved for each solutions</SP>
68
<P><VERB>[den,num,err]=arl2(y,den0,n [,imp]) </VERB> finds a pair of polynomials
69
<VERB>num</VERB> and <VERB>den</VERB> such that the transfer function <VERB>num/den</VERB>
70
is stable and its impulse response approximates (with a minimal l2
71
norm) the vector <VERB>y</VERB> assumed to be completed by an infinite number
74
If y(z) = y(1)(1/z)+y(2)(1/z^2)+ ...+ y(ny)(1/z^ny)</P>
76
then l2-norm of <VERB>num/den - y(z)</VERB> is <VERB>err</VERB>.</P>
77
<P><VERB>n</VERB> is the degree of the polynomial <VERB>den</VERB>.</P>
79
The <VERB>num/den</VERB> transfer function is a L2 approximant of the
80
Fourier's series of the rational system.</P>
82
Various intermediate results are printed according to <VERB>imp</VERB>.</P>
83
<P><VERB>[den,num,err]=arl2(y,den0,n [,imp],'all') </VERB> returns in the
84
vectors of polynomials <VERB>num</VERB> and <VERB>den</VERB> a set of local
85
optimums for the problem. The solutions are sorted with increasing
86
errors <VERB>err</VERB>. In this case <VERB>den0</VERB> is already assumed to be
87
<VERB>poly(1,'z','c')</VERB></P>
93
plot2d1('enn',0,[v';zeros(80,1)],2,'051',' ',[1,-0.5,100,1.5])
95
[d,n,e]=arl2(v,poly(1,'z','c'),1)
96
plot2d1('enn',0,ldiv(n,d,100),2,'000')
98
plot2d1('enn',0,ldiv(n,d,100),3,'000')
100
plot2d1('enn',0,ldiv(n,d,100),5,'000')
102
[d,n,e]=arl2(v,poly(1,'z','c'),4,'all')
103
plot2d1('enn',0,ldiv(n(1),d(1),100),10,'000')
111
<LINK>imrep2ss</LINK>