1
function [x,y,typ]=DLR_f(job,arg1,arg2)
8
[x,y,typ]=standard_inputs(arg1)
10
[x,y,typ]=standard_outputs(arg1)
12
[x,y]=standard_origin(arg1)
15
graphics=arg1(2);label=graphics(4)
17
x0=model(7);ns=prod(size(x0));
20
[ok,num,den,label]=getvalue('Set discrete SISO transfer parameters',..
23
list('pol',1,'pol',1),label)
25
if degree(num)>degree(den) then
26
message('Transfer must be proper')
50
if or(model(12)<>mmm) then
52
x(2)=graphics;x(3)=model
56
x(3)(11)=[] //compatibility
58
x0=0;A=-1;B=1;C=1;D=0;
60
model=list('dsslti',1,1,1,[],[],x0(:),[A;B;C;D],[],'d',[],[%f %f],' ',list())
61
gr_i=['txt=[''Num(z)'';''-----'';''Den(z)''];';
62
'xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'');']
63
x=standard_define([2.5 2.5],model,label,gr_i)