1
function [x,y,typ]=GAIN_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,gain,label]=getvalue('Set gain block parameters',..
19
['Gain'],list('mat',[-1,-1]),label(1))
22
message('Gain must have at least one element')
25
[model,graphics,ok]=check_io(model,graphics,in,out,[],[])
29
x(2)=graphics;x(3)=model
34
x(3)(11)=[] //compatibility
37
model=list('gain',in,out,[],[],[],[],gain,[],'c',[],[%t %f],' ',list())
38
label=[strcat(sci2exp(gain));strcat(sci2exp(in));strcat(sci2exp(out))]
39
gr_i=['[nin,nout]=model(2:3);';
40
'if nin*nout==1 then gain=string(model(8)),else gain=''Gain'',end';
43
'xx=orig(1)+ [1 4 1 1]*dx;';
44
'yy=orig(2)+sz(2)-[1 5 9 1]*dy;';
45
'xpoly(xx,yy,''lines'');';
46
'w=sz(1)-2*dx;h=sz(2)-2*dy;';
47
'xstringb(orig(1)+dx,orig(2)+dy,gain,w,h,''fill'');']
48
x=standard_define([2 2],model,label,gr_i)