1
function [x,y,typ]=DOLLAR_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,a,label]=getvalue('Set dollar block parameters',..
19
'initial condition',list('vec',-1),label)
21
out=size(a,'*');if out==0 then out=[],end
25
model(7)=a;model(2)=in;model(3)=out
26
x(2)=graphics;x(3)=model
30
x(3)(11)=[] //compatibility
35
model=list('dollar',in,in,1,[],[],z,[],[],'d',[],[%f %f],' ',list())
36
gr_i='xstringb(orig(1),orig(2),''1/z'',sz(1),sz(2),''fill'')'
37
x=standard_define([2 2],model,label,gr_i)