1
function [x,y,typ]=REGISTER_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)
18
[ok,z0,label]=getvalue('Set delay parameters',..
19
'Register initial condition',list('vec',-1),label)
21
if prod(size(z0))<2 then
22
message('Register length must be at least 2')
28
x(2)=graphics;x(3)=model
32
x(3)(11)=[] //compatibility
35
model=list('delay',1,1,1,[],[],z0,[],[],'d',-1,[%f %f],' ',list())
36
label=strcat(string(z0),';')
37
gr_i=['dly=model(8);';
38
'txt=[''Shift'';''Register'';string(dly)];';
39
'xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'')']
40
x=standard_define([2.5 2.5],model,label,gr_i)