pid.cosf

rtai-3.1-test3的源代码(Real-Time Application Interface )

scicos_ver = 'scicos2.5.1'
scs_m=list()
scs_m(1)=list([600,450,0,0,600,450],..
['pid','/home/rtai-cvs/rtai4/rtailab/scilab/examples/'],..
[0.001;0.0001;1.000E-10;100001;0],200000,' ',list(),..
tlist(['scsopt','3D','Background','Link','ID','Cmap'],list(%t,33),[8,1],[1,5],..
list([5,0],[4,0]),[0.8,0.8,0.8]),[],[],list())
scs_m_1=list()
scs_m_1(1)=list([600,450,0,0,600,450],['pid','/home/mante//'],..
[0.0001;0.000001;1.000E-10;100001;0],100000,' ',list(),..
tlist(['scsopt','3D','Background','Link','ID','Cmap'],list(%t,33),[8,1],[1,5],..
list([5,0],[4,0]),[0.8,0.8,0.8]),[],[],list())
scs_m_1(2)=list('Block',..
           list([45.001985,338.42127],[40,40],%t,'1',51,13,[],[],..
           ['gain=arg1(2)(4);';
           'if orient then';
           '  xx=orig(1)+[0 1 0 0]*sz(1);';
           '  yy=orig(2)+[0 1/2 1 0]*sz(2);';
           '  x1=0';
           'else';
           '  xx=orig(1)+[0   1 1 0]*sz(1);';
           '  yy=orig(2)+[1/2 0 1 1/2]*sz(2);';
           '  x1=1/4';
           'end';
           'pats=xget(''dashes'')';
           'xset(''dashes'',default_color(1))';
           'xpoly(xx,yy,''lines'');';
           'xstringb(orig(1)+x1*sz(1),orig(2),gain,(1-x1)*sz(1),sz(2));';
           'xset(''dashes'',pats)']),..
           list('gain',1,1,[],[],[],[],1,[],'c',[],[%t,%f],' ',list()),' ',..
           'GAINBLK_f')
scs_m_1(3)=list('Block',..
           list([331.90186,279.84571],[16.666667,16.666667],%t,['1';'[1;1;1]'],..
           [28;27;0],29,[],[],..
           ['rx=sz(1)*p/2;ry=sz(2)/2';
           'xsegs(orig(1)+rx*[1/2.3 1;2-1/2.3 1],orig(2)+ry*[1 2-1/2.3;1,1/2.3],0)']),..
           list(list('plusblk',2),[-1;-1;-1],-1,[],[],[],[],[],[],'c',[],[%t,%f],..
           ' ',list()),' ','SUM_f')
scs_m_1(4)=list('Block',..
           list([329.54619,338.02831],[50,50],%t,['0.01*z';'z*z-2*z+1'],31,32,40,..
           [],..
           ['txt=[''Num(z)'';''-----'';''Den(z)''];';
           'xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'');']),..
           list('dsslti',1,1,1,[],[],[0;0],[0;-1;1;2;0;1;0;0.01;0],[],'d',[],..
           [%f,%f],' ',list()),' ','DLR_f')
scs_m_1(5)=list('Block',..
           list([334.86532,127.10657],[40,40],%t,['-1';'1';'1'],19,30,[],[],..
           ['thick=xget(''thickness'');xset(''thickness'',2);';
           'xx=orig(1)+[4/5;1/2+1/5;1/2-1/5;1/5]*sz(1);';
           'yy=orig(2)+[1-1/5;1-1/5;1/5;1/5]*sz(2);';
           'xpoly(xx,yy,''lines'');';
           'xset(''thickness'',thick)']),..
           list('lusat',1,1,[],[],[],[],[-1;1;1],[],'c',[],[%t,%f],' ',list()),..
           ' ','SAT_f')
scs_m_1(6)=list('Block',..
           list([269.62509,201.25189],[40,40],%t,'60',17,28,[],[],..
           ['gain=arg1(2)(4);';
           'if orient then';
           '  xx=orig(1)+[0 1 0 0]*sz(1);';
           '  yy=orig(2)+[0 1/2 1 0]*sz(2);';
           '  x1=0';
           'else';
           '  xx=orig(1)+[0   1 1 0]*sz(1);';
           '  yy=orig(2)+[1/2 0 1 1/2]*sz(2);';
           '  x1=1/4';
           'end';
           'pats=xget(''dashes'')';
           'xset(''dashes'',default_color(1))';
           'xpoly(xx,yy,''lines'');';
           'xstringb(orig(1)+x1*sz(1),orig(2),gain,(1-x1)*sz(1),sz(2));';
           'xset(''dashes'',pats)']),..
           list('gain',1,1,[],[],[],[],60,[],'c',[],[%t,%f],' ',list()),' ',..
           'GAINBLK_f')
scs_m_1(7)=list('Block',..
           list([268.88283,127.84783],[40,40],%t,'10',18,19,[],[],..
           ['gain=arg1(2)(4);';
           'if orient then';
           '  xx=orig(1)+[0 1 0 0]*sz(1);';
           '  yy=orig(2)+[0 1/2 1 0]*sz(2);';
           '  x1=0';
           'else';
           '  xx=orig(1)+[0   1 1 0]*sz(1);';
           '  yy=orig(2)+[1/2 0 1 1/2]*sz(2);';
           '  x1=1/4';
           'end';
           'pats=xget(''dashes'')';
           'xset(''dashes'',default_color(1))';
           'xpoly(xx,yy,''lines'');';
           'xstringb(orig(1)+x1*sz(1),orig(2),gain,(1-x1)*sz(1),sz(2));';
           'xset(''dashes'',pats)']),..
           list('gain',1,1,[],[],[],[],10,[],'c',[],[%t,%f],' ',list()),' ',..
           'GAINBLK_f')
scs_m_1(8)=list('Block',..
           list([265.91959,267.98303],[40,40],%t,'10',44,27,[],[],..
           ['gain=arg1(2)(4);';
           'if orient then';
           '  xx=orig(1)+[0 1 0 0]*sz(1);';
           '  yy=orig(2)+[0 1/2 1 0]*sz(2);';
           '  x1=0';
           'else';
           '  xx=orig(1)+[0   1 1 0]*sz(1);';
           '  yy=orig(2)+[1/2 0 1 1/2]*sz(2);';
           '  x1=1/4';
           'end';
           'pats=xget(''dashes'')';
           'xset(''dashes'',default_color(1))';
           'xpoly(xx,yy,''lines'');';
           'xstringb(orig(1)+x1*sz(1),orig(2),gain,(1-x1)*sz(1),sz(2));';
           'xset(''dashes'',pats)']),..
           list('gain',1,1,[],[],[],[],10,[],'c',[],[%t,%f],' ',list()),' ',..
           'GAINBLK_f')
scs_m_1(9)=list('Block',..
           list([197.711,196.80334],[50,50],%t,['z - 1';'z'],25,17,41,[],..
           ['txt=[''Num(z)'';''-----'';''Den(z)''];';
           'xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'');']),..
           list('dsslti',1,1,1,[],[],0,[0;1;-1;1],[],'d',[],[%t,%f],' ',list()),..
           ' ','DLR_f')
scs_m_1(10)=list('Block',..
            list([196.96967,121.91638],[50,50],%t,['z';'z-1'],24,18,47,[],..
            ['txt=[''Num(z)'';''-----'';''Den(z)''];';
            'xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'');']),..
            list('dsslti',1,1,1,[],[],0,[1;1;1;1],[],'d',[],[%t,%f],' ',list()),..
            ' ','DLR_f')
scs_m_1(11)=list('Block',..
            list([105.79423,338.42127],[40,40],%t,' ',13,16,46,[],..
            'xstringb(orig(1),orig(2),''S/H'',sz(1),sz(2),''fill'')'),..
            list('samphold',-1,-1,1,[],[],[],[],[],'d',[],[%t,%f],' ',list()),..
            ' ','SAMPLEHOLD_f')
scs_m_1(12)=list('Block',..
            list([261.55875,412.67845],[40,40],%f,'-1',63,35,[],[],..
            ['gain=arg1(2)(4);';
            'if orient then';
            '  xx=orig(1)+[0 1 0 0]*sz(1);';
            '  yy=orig(2)+[0 1/2 1 0]*sz(2);';
            '  x1=0';
            'else';
            '  xx=orig(1)+[0   1 1 0]*sz(1);';
            '  yy=orig(2)+[1/2 0 1 1/2]*sz(2);';
            '  x1=1/4';
            'end';
            'pats=xget(''dashes'')';
            'xset(''dashes'',default_color(1))';
            'xpoly(xx,yy,''lines'');';
            'xstringb(orig(1)+x1*sz(1),orig(2),gain,(1-x1)*sz(1),sz(2));';
            'xset(''dashes'',pats)']),..
            list('gain',1,1,[],[],[],[],-1,[],'c',[],[%t,%f],' ',list()),' ',..
            'GAINBLK_f')
scs_m_1(13)=list('Link',[93.573414;97.2228],[358.42127;358.42127],'drawlink',' ',..
            [0,0],[1,1],[2,1],[11,1])
scs_m_1(14)=list('Block',..
            list([380.67574,279.45832],[16.666667,16.666667],%t,['1';'[1;1;1]'],..
            [30;29;0],31,[],[],..
            ['rx=sz(1)*p/2;ry=sz(2)/2';
            'xsegs(orig(1)+rx*[1/2.3 1;2-1/2.3 1],orig(2)+ry*[1 2-1/2.3;1,1/2.3],0)']),..
            list(list('plusblk',2),[-1;-1;-1],-1,[],[],[],[],[],[],'c',[],..
            [%t,%f],' ',list()),' ','SUM_f')
scs_m_1(15)=list('Block',..
            list([163.56152,350.63072],[16.666667,16.666667],%t,['1';'[1;1;1]'],..
            [0;16;35],26,[],[],..
            ['rx=sz(1)*p/2;ry=sz(2)/2';
            'xsegs(orig(1)+rx*[1/2.3 1;2-1/2.3 1],orig(2)+ry*[1 2-1/2.3;1,1/2.3],0)']),..
            list(list('plusblk',2),[-1;-1;-1],-1,[],[],[],[],[],[],'c',[],..
            [%t,%f],' ',list()),' ','SUM_f')
scs_m_1(16)=list('Link',[154.36566;163.56152],[358.42127;358.96406],'drawlink',..
            ' ',[0,0],[1,1],[11,1],[15,2])
scs_m_1(17)=list('Link',[256.28243;261.05366],[221.80334;221.25189],'drawlink',..
            ' ',[0,0],[1,1],[9,1],[6,1])
scs_m_1(18)=list('Link',[255.5411;260.3114],[146.91638;147.84783],'drawlink',' ',..
            [0,0],[1,1],[10,1],[7,1])
scs_m_1(19)=list('Link',[317.45425;326.2939],[147.84783;147.10657],'drawlink',..
            ' ',[0,0],[1,1],[7,1],[5,1])
scs_m_1(20)=list('Block',..
            list([13.475835,348.42127],[20,20],%t,'1',[],49,[],[],' '),..
            list('input',[],-1,[],[],[],[],[],1,'c',[],[%f,%f],' ',list()),' ',..
            'IN_f')
scs_m_1(21)=list('Block',..
            list([432.57703,352.44715],[20,20],%t,'3',34,[],[],[],' '),..
            list('output',-1,[],[],[],[],[],[],3,'c',[],[%f,%f],' ',list()),' ',..
            'OUT_f')
scs_m_1(22)=list('Block',..
            list([206.7184,752.10089],[20,30],%t,'1',[],[],[],62,..
            ['xo=orig(1);yo=orig(2)+sz(2)/3';
            'xstringb(xo,yo,string(prt),sz(1),sz(2)/1.5)']),..
            list('input',[],[],[],1,[],[],[],1,'d',-1,[%f,%f],' ',list()),' ',..
            'CLKINV_f')
scs_m_1(23)=list('Block',..
            list([174.10906,221.80334],[0.3333333,0.3333333],%t,[],43,[24;25],[],..
            [],[]),..
            list('lsplit',-1,[-1;-1;-1],[],[],[],[],[],[],'c',[],[%t,%f],' ',..
            list()),' ','SPLIT_f')
scs_m_1(24)=list('Link',[174.10906;174.10906;188.39824],..
            [221.80334;146.91638;146.91638],'drawlink',' ',[0,0],[1,1],[23,1],..
            [10,1])
scs_m_1(25)=list('Link',[174.10906;189.13958],[221.80334;221.80334],'drawlink',..
            ' ',[0,0],[1,1],[23,2],[9,1])
scs_m_1(26)=list('Link',[182.60914;202.27082;202.27082;174.10906;174.10906],..
            [358.96406;358.96406;298.5233;298.5233;287.98303],'drawlink',' ',..
            [0,0],[1,1],[15,1],[42,1])
scs_m_1(27)=list('Link',[314.49102;331.90186],[287.98303;288.17904],'drawlink',..
            ' ',[0,0],[1,1],[8,1],[3,2])
scs_m_1(28)=list('Link',[318.19652;340.23519;340.23519],..
            [221.25189;221.25189;279.84571],'drawlink',' ',[0,0],[1,1],[6,1],..
            [3,1])
scs_m_1(29)=list('Link',[350.94948;380.67574],[288.17904;287.79165],'drawlink',..
            ' ',[0,0],[1,1],[3,1],[14,2])
scs_m_1(30)=list('Link',[383.43675;389.00907;389.00907],..
            [147.10657;147.10657;279.45832],'drawlink',' ',[0,0],[1,1],[5,1],..
            [14,1])
scs_m_1(31)=list('Link',..