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.graphics;exprs=graphics.exprs
17
x0=model.dstate;ns=prod(size(x0));
20
[ok,num,den,exprs]=getvalue('Set discrete SISO transfer parameters',..
23
list('pol',1,'pol',1),exprs)
25
if degree(num)>degree(den) then
26
message('Transfer must be proper')
50
if or(model.dep_ut<>mmm) then
52
x.graphics=graphics;x.model=model
56
x.model.firing=[] //compatibility
58
x0=0;A=-1;B=1;C=1;D=0;
67
model.rpar=[A(:);B(:);C(:);D(:)]
71
gr_i=['xstringb(orig(1),orig(2),[''num(z)'';''den(z)''],sz(1),sz(2),''fill'')';
72
'xpoly([orig(1)+.1*sz(1),orig(1)+.9*sz(1)],[1,1]*(orig(2)+sz(2)/2))']
73
x=standard_define([2.5 2.5],model,exprs,gr_i)