~ubuntu-branches/ubuntu/hoary/scilab/hoary

« back to all changes in this revision

Viewing changes to macros/scicos/Non_linear.cosf

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2005-01-09 22:58:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050109225821-473xr8vhgugxxx5j
Tags: 3.0-12
changed configure.in to build scilab's own malloc.o, closes: #255869

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
scicos_ver = 'scicos2.4'
2
 
scs_m=list()
3
 
scs_m(1)=list([449,443,0,0,450,450],..
4
 
['Non_linear','/usr/local/lib/scilab-2.4.1/macros/scicos/'],[],[],' ',list(),..
5
 
tlist(['scsopt','3D','Background','Link','ID','Cmap'],list(%t,33),[8,1],[1,5],..
6
 
list([5,0],[4,0]),[ .8, .8, .8]),[],[],[])
7
 
scs_m(2)=list('Block',..
8
 
         list([39.593909,354.3038],[40,40],%t,['0.1';'1'],0,0,[],[],..
9
 
         ['thick=xget(''thickness'');xset(''thickness'',2);';
10
 
         'xx=orig(1)+[1;2;2;3;3;4;4]/5*sz(1);';
11
 
         'yy= orig(2)+[1;1;2;2;3;3;4]/5*sz(2);';
12
 
         'xpoly(xx,yy,''lines'');';
13
 
         'xset(''thickness'',thick);']),..
14
 
         list('qzrnd',-1,-1,[],[],[],[], .1,1,'c',[],[%t,%f],' ',list()),' ',..
15
 
         'QUANT_f')
16
 
scs_m(3)=list('Block',..
17
 
         list([39.593909,266.58228],[40,40],%t,['-1';'1';'1'],0,0,[],[],..
18
 
         ['thick=xget(''thickness'');xset(''thickness'',2);';
19
 
         'xx=orig(1)+[4/5;1/2+1/5;1/2-1/5;1/5]*sz(1);';
20
 
         'yy=orig(2)+[1-1/5;1-1/5;1/5;1/5]*sz(2);';
21
 
         'xpoly(xx,yy,''lines'');';
22
 
         'xset(''thickness'',thick)']),..
23
 
         list('lusat',1,1,[],[],[],[],[-1;1;1],[],'c',[],[%t,%f],' ',list()),' ',..
24
 
         'SAT_f')
25
 
scs_m(4)=list('Block',..
26
 
         list([31.472081,43.565401],[16.666667,16.666667],%t,[],[0;0],0,[],[],[]),..
27
 
         list(list('prod',2),[-1;-1],-1,[],[],[],[],[],[],'c',[],[%t,%f],' ',..
28
 
         list()),' ','PROD_f')
29
 
scs_m(5)=list('Block',..
30
 
         list([39.593909,108.22785],[40,40],%t,'3',0,0,[],[],..
31
 
         list(..
32
 
         ['puiss=arg1(2)(4)(1)';
33
 
         'puiss=puiss+''^u''';
34
 
         'xstringb(orig(1),orig(2),puiss,sz(1),sz(2),''fill'');';
35
 
         emptystr()],[])),..
36
 
         list('expblk',-1,-1,[],[],[],[],3,[],'c',[],[%t,%f],' ',list()),' ',..
37
 
         'EXPBLK_f')
38
 
scs_m(6)=list('Block',..
39
 
         list([144.16244,354.3038],[40,40],%t,' ',0,0,[],[],..
40
 
         'xstringb(orig(1),orig(2),''sin'',sz(1),sz(2),''fill'')'),..
41
 
         list('sinblk',-1,-1,[],[],[],[],[],[],'c',[],[%t,%f],' ',list()),' ',..
42
 
         'SINBLK_f')
43
 
scs_m(7)=list('Block',..
44
 
         list([144.16244,266.58228],[40,40],%t,' ',0,0,[],[],..
45
 
         'xstringb(orig(1),orig(2),[''cos''],sz(1),sz(2),''fill'');'),..
46
 
         list('cosblk',-1,-1,[],[],[],[],[],[],'c',[],[%t,%f],' ',list()),' ',..
47
 
         'COSBLK_f')
48
 
scs_m(8)=list('Block',..
49
 
         list([144.16244,191.39241],[40,40],%t,'-1',0,0,[],[],..
50
 
         'xstringb(orig(1),orig(2),''tan'',sz(1),sz(2),''fill'');'),..
51
 
         list('tanblk',-1,-1,[],[],[],[],[],[],'c',[],[%t,%f],' ',list()),' ',..
52
 
         'TANBLK_f')
53
 
scs_m(9)=list('Block',..
54
 
         list([144.16244,108.22785],[40,40],%t,' ',0,0,[],[],..
55
 
         'xstringb(orig(1),orig(2),''1/u'',sz(1),sz(2),''fill'');'),..
56
 
         list('invblk',-1,-1,[],[],[],[],[],[],'c',[],[%t,%f],' ',list()),' ',..
57
 
         'INVBLK_f')
58
 
scs_m(10)=list('Block',..
59
 
          list([237.56345,354.3038],[40,40],%t,'%e',0,0,[],[],..
60
 
          'xstringb(orig(1),orig(2),''Log'',sz(1),sz(2),''fill'');'),..
61
 
          list('logblk',-1,-1,[],[],[],[],2.7182818,[],'c',[],[%t,%f],' ',list()),..
62
 
          ' ','LOGBLK_f')
63
 
scs_m(11)=list('Block',..
64
 
          list([144.16244,31.898734],[40,40],%t,'3',0,0,[],[],..
65
 
          list(..
66
 
          ['puiss=arg1(2)(4)(1)';
67
 
          'if evstr(puiss)==.5 then ';
68
 
          'puiss=''sqrt'';';
69
 
          'else';
70
 
          'puiss=''u^''+puiss';
71
 
          'end';
72
 
          'xstringb(orig(1),orig(2),puiss,sz(1),sz(2),''fill'');'],[])),..
73
 
          list('powblk',-1,-1,[],[],[],[],[],3,'c',[],[%t,%f],' ',list()),' ',..
74
 
          'POWBLK_f')
75
 
scs_m(12)=list('Block',..
76
 
          list([237.56345,266.58228],[40,40],%t,' ',0,0,[],[],..
77
 
          'xstringb(orig(1),orig(2),''Abs'',sz(1),sz(2),''fill'')'),..
78
 
          list(list('absblk',1),-1,-1,[],[],[],[],[],[],'c',[],[%t,%f],' ',..
79
 
          list()),' ','ABSBLK_f')
80
 
scs_m(13)=list('Block',..
81
 
          list([39.593909,191.39241],[40,40],%t,[],0,0,[],[],..
82
 
          ['rpar=model(8);n=size(rpar,''*'')/2;';
83
 
          'thick=xget(''thickness'');xset(''thickness'',2);';
84
 
          'xx=rpar(1:n);yy=rpar(n+1:2*n);';
85
 
          'mnx=mini(xx);xx=xx-mnx*ones(xx);mxx=maxi(xx);';
86
 
          'xx=orig(1)+sz(1)*(1/10+(4/5)*xx/mxx);';
87
 
          'mnx=mini(yy);yy=yy-mnx*ones(yy);mxx=maxi(yy);';
88
 
          'yy=orig(2)+sz(2)*(1/10+(4/5)*yy/mxx);';
89
 
          'xpoly(xx,yy,''lines'');';
90
 
          'xset(''thickness'',thick);']),..
91
 
          list('lookup',1,1,[],[],[],[],[-2;-1;1;2;-1;1;-1;1],[],'c',[],[%t,%f],..
92
 
          ' ',list()),' ','LOOKUP_f')
93
 
scs_m(14)=list('Block',..
94
 
          list([237.56345,191.39241],[40,40],%t,'-1',0,0,[],[],..
95
 
          'xstringb(orig(1),orig(2),''MIN'',sz(1),sz(2),''fill'')'),..
96
 
          list('minblk',-1,1,[],[],[],[0;0],[],[],'c',[],[%t,%f],' ',list()),' ',..
97
 
          'MIN_f')
98
 
scs_m(15)=list('Block',..
99
 
          list([237.56345,108.22785],[40,40],%t,' ',0,0,[],[],..
100
 
          'xstringb(orig(1),orig(2),''Max'',sz(1),sz(2),''fill'');'),..
101
 
          list('maxblk',-1,1,[],[],[],[0;0],[],[],'c',[],[%t,%f],' ',list()),' ',..
102
 
          'MAX_f')
103
 
scs_m(16)=list('Block',..
104
 
          list([237.56345,31.898734],[40;50],%t,..
105
 
          ['[0;1]';
106
 
          '[]';
107
 
          '[0.2+%i*0.8,0.2-%i*0.8;0.3+%i*0.7,0.3-%i*0.7]';
108
 
          '[1;1]';
109
 
          '[]';
110
 
          '[0;0]'],[0;0],0,0,[],..
111
 
          ['txt=[''N(z,p)'';''-----'';''D(z,p)''];';
112
 
          'xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'');']),..
113
 
          list('dlradp',[1;1],1,1,[],[],[0;0],..
114
 
          [0;1; .2; .3; .2; .3; .8; .7; -.8; -.7;1;1],[0;2;2],'d',[],[%t,%f],' ',..
115
 
          list()),' ','DLRADAPT_f')
116
 
scs_m(17)=list('Block',..
117
 
          list([314.59276,353.16456],[40,40],%t,['[0;1]';'[0;1]'],0,0,[],[],..
118
 
          'xstringb(orig(1),orig(2),''interp'',sz(1),sz(2),''fill'');'),..
119
 
          list('intrpl',1,1,[],[],[],[],[0;1;0;1],[],'c',[],[%t,%f],' ',list()),..
120
 
          ' ','INTRPLBLK_f')
121
 
scs_m(18)=list('Block',..
122
 
          list([307.78781,267.72152],[60,40],%t,['[0;1]';'[0;1]';'[0;1]'],[0;0],..
123
 
          0,[],[],'xstringb(orig(1),orig(2),''interp2'',sz(1),sz(2),''fill'');'),..
124
 
          list(list('intrp2',1),[1;1],1,[],[],[],[],[0;1;0;1;0;1;1;2],[2;2],'c',..
125
 
          [],[%t,%f],' ',list()),' ','INTRP2BLK_f')
 
1
scicos_ver = "scicos2.7.3"
 
2
scs_m=scicos_diagram()
 
3
scs_m.props=tlist(..
 
4
["params","wpar","title","tol","tf","context","void1","options","void2","void3",..
 
5
"doc"],[600,450,0,0,600,450],["Non_linear","SCI/macros/scicos_blocks"],..
 
6
[0.0001,1.000E-06,1.000E-10,100001,0,0],100000,[],[],..
 
7
tlist(["scsopt","3D","Background","Link","ID","Cmap"],list(%t,33),[8,1],[1,5],..
 
8
list([5,1],[4,1]),[0.8,0.8,0.8]),[],[],list())
 
9
scs_m.objs(1)=mlist(["Block","graphics","model","gui","doc"],..
 
10
              mlist(..
 
11
              ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
12
              "gr_i","id","in_implicit","out_implicit"],[0,0],[40,40],%t,"1",0,0,..
 
13
              [],[],..
 
14
              list(..
 
15
              ["txt=[''ABS''];";
 
16
              "xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'')"],8),"","E",..
 
17
              "E"),..
 
18
              mlist(..
 
19
              ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
20
              "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
21
              "equations"],list("absolute_value",4),-1,-1,[],[],[],[],[],[],"c",..
 
22
              [],[%t,%f],"",-1,-1,list()),"ABS_VALUE",list())
 
23
scs_m.objs(2)=mlist(["Block","graphics","model","gui","doc"],..
 
24
              mlist(..
 
25
              ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
26
              "gr_i","id","in_implicit","out_implicit"],[70,0],[60,40],%t,"sin",..
 
27
              0,0,[],[],..
 
28
              list(..
 
29
              "xstringb(orig(1),orig(2),[''Trig. Function'';Txt],sz(1),sz(2),''fill'');",..
 
30
              8),"","E","E"),..
 
31
              mlist(..
 
32
              ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
33
              "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
34
              "equations"],list("sin_blk",4),-1,-1,[],[],[],[],[],[],"c",[],..
 
35
              [%t,%f],"",0,0,list()),"TrigFun",list())
 
36
scs_m.objs(3)=mlist(["Block","graphics","model","gui","doc"],..
 
37
              mlist(..
 
38
              ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
39
              "gr_i","id","in_implicit","out_implicit"],[160,0],[40,40],%t,"%e",..
 
40
              0,0,[],[],..
 
41
              list("xstringb(orig(1),orig(2),''a^u'',sz(1),sz(2),''fill'');",8),..
 
42
              "","E","E"),..
 
43
              mlist(..
 
44
              ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
45
              "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
46
              "equations"],"expblk",-1,-1,[],[],[],[],2.7182818,[],"c",[],..
 
47
              [%t,%f],"",0,0,list()),"EXPBLK_f",list())
 
48
scs_m.objs(4)=mlist(["Block","graphics","model","gui","doc"],..
 
49
              mlist(..
 
50
              ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
51
              "gr_i","id","in_implicit","out_implicit"],[230,0],[60,40],%t,..
 
52
              ["[0;1]";"[0;1]";"[0,1;1,2]"],[0;0],0,[],[],..
 
53
              list(..
 
54
              "xstringb(orig(1),orig(2),''interp2'',sz(1),sz(2),''fill'');",8),..
 
55
              "",["E";"E"],"E"),..
 
56
              mlist(..
 
57
              ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
58
              "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
59
              "equations"],list("intrp2",1),[1;1],1,[],[],[],[],..
 
60
              [0;1;0;1;0;1;1;2],[2;2],"c",[],[%t,%f],"",0,0,list()),..
 
61
              "INTRP2BLK_f",list())
 
62
scs_m.objs(5)=mlist(["Block","graphics","model","gui","doc"],..
 
63
              mlist(..
 
64
              ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
65
              "gr_i","id","in_implicit","out_implicit"],[320,0],[40,40],%t,..
 
66
              ["[0;1]";"[0;1]"],0,0,[],[],..
 
67
              list("xstringb(orig(1),orig(2),''interp'',sz(1),sz(2),''fill'');",..
 
68
              8),"","E","E"),..
 
69
              mlist(..
 
70
              ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
71
              "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
72
              "equations"],"intrpl",1,1,[],[],[],[],[0;1;0;1],[],"c",[],[%t,%f],..
 
73
              "",0,0,list()),"INTRPLBLK_f",list())
 
74
scs_m.objs(6)=mlist(["Block","graphics","model","gui","doc"],..
 
75
              mlist(..
 
76
              ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
77
              "gr_i","id","in_implicit","out_implicit"],[390,0],[40,40],%t," ",0,..
 
78
              0,[],[],..
 
79
              list("xstringb(orig(1),orig(2),''1/u'',sz(1),sz(2),''fill'');",8),..
 
80
              "","E","E"),..
 
81
              mlist(..
 
82
              ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
83
              "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
84
              "equations"],"invblk",-1,-1,[],[],[],[],[],[],"c",[],[%t,%f],"",0,..
 
85
              0,list()),"INVBLK_f",list())
 
86
scs_m.objs(7)=mlist(["Block","graphics","model","gui","doc"],..
 
87
              mlist(..
 
88
              ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
89
              "gr_i","id","in_implicit","out_implicit"],[0,70],[40,40],%t,"%e",0,..
 
90
              0,[],[],..
 
91
              list("xstringb(orig(1),orig(2),''Log'',sz(1),sz(2),''fill'');",8),..
 
92
              "","E","E"),..
 
93
              mlist(..
 
94
              ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
95
              "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
96
              "equations"],"logblk",-1,-1,[],[],[],[],2.7182818,[],"c",[],..
 
97
              [%t,%f],"",0,0,list()),"LOGBLK_f",list())
 
98
scs_m.objs(8)=mlist(["Block","graphics","model","gui","doc"],..
 
99
              mlist(..
 
100
              ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
101
              "gr_i","id","in_implicit","out_implicit"],[70,70],[40,40],%t,[],0,..
 
102
              0,[],[],..
 
103
              list(..
 
104
              ["rpar=model.rpar;n=size(rpar,''*'')/2;";
 
105
              "thick=xget(''thickness'');xset(''thickness'',2);";
 
106
              "xx=rpar(1:n);yy=rpar(n+1:2*n);";
 
107
              "mnx=mini(xx);xx=xx-mnx*ones(xx);mxx=maxi(xx);";
 
108
              "xx=orig(1)+sz(1)*(1/10+(4/5)*xx/mxx);";
 
109
              "mnx=mini(yy);yy=yy-mnx*ones(yy);mxx=maxi(yy);";
 
110
              "yy=orig(2)+sz(2)*(1/10+(4/5)*yy/mxx);";
 
111
              "xpoly(xx,yy,''lines'');";
 
112
              "xset(''thickness'',thick);"],8),"","E","E"),..
 
113
              mlist(..
 
114
              ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
115
              "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
116
              "equations"],"lookup",1,1,[],[],[],[],[-2;-1;1;2;-1;1;-1;1],[],"c",..
 
117
              [],[%t,%f],"",0,0,list()),"LOOKUP_f",list())
 
118
scs_m.objs(9)=mlist(["Block","graphics","model","gui","doc"],..
 
119
              mlist(..
 
120
              ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
121
              "gr_i","id","in_implicit","out_implicit"],[140,70],[40,40],%t,..
 
122
              ["2";"1";"1"],0,0,[],[],..
 
123
              list(..
 
124
              ["txt=[CCC];";"xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'')"],..
 
125
              8),"","E","E"),..
 
126
              mlist(..
 
127
              ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
128
              "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
129
              "equations"],list("minmax",4),-1,1,[],[],[],[],[],0,"c",[],[%t,%f],..
 
130
              "",0,0,list()),"MAXMIN",list())
 
131
scs_m.objs(10)=mlist(["Block","graphics","model","gui","doc"],..
 
132
               mlist(..
 
133
               ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
134
               "gr_i","id","in_implicit","out_implicit"],[210,70],[40,40],%t,..
 
135
               "1.5",0,0,[],[],..
 
136
               list("xstringb(orig(1),orig(2),''u^a'',sz(1),sz(2),''fill'');",8),..
 
137
               "","E","E"),..
 
138
               mlist(..
 
139
               ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
140
               "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
141
               "equations"],"powblk",-1,-1,[],[],[],[],1.5,[],"c",[],[%t,%f],"",..
 
142
               0,0,list()),"POWBLK_f",list())
 
143
scs_m.objs(11)=mlist(["Block","graphics","model","gui","doc"],..
 
144
               mlist(..
 
145
               ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
146
               "gr_i","id","in_implicit","out_implicit"],[280,70],..
 
147
               [16.666667,16.666667],%t,[],[0;0],0,[],[],list([],8),"",["E";"E"],..
 
148
               "E"),..
 
149
               mlist(..
 
150
               ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
151
               "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
152
               "equations"],list("prod",2),[-1;-1],-1,[],[],[],[],[],[],"c",[],..
 
153
               [%t,%f],"",0,0,list()),"PROD_f",list())
 
154
scs_m.objs(12)=mlist(["Block","graphics","model","gui","doc"],..
 
155
               mlist(..
 
156
               ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
157
               "gr_i","id","in_implicit","out_implicit"],[326.66667,70],[40,60],..
 
158
               %t,"[1;-1]",[0;0],0,[],[],..
 
159
               list(..
 
160
               ["[x,y,typ]=standard_inputs(o) ";
 
161
               "dd=sz(1)/8,de=0,";
 
162
               "if ~arg1.graphics.flip then dd=6*sz(1)/8,de=-sz(1)/8,end";
 
163
               "for k=1:size(x,''*'')";
 
164
               "if size(sgn,1)>1 then";
 
165
               "  if sgn(k)>0 then";
 
166
               "    xstring(orig(1)+dd,y(k)-4,''*'')";
 
167
               "  else";
 
168
               "    xstring(orig(1)+dd,y(k)-4,''/'')";
 
169
               "  end";
 
170
               "end";
 
171
               "end";
 
172
               "xx=sz(1)*[.8 .8 .4  .4]+orig(1)+de";
 
173
               "yy=sz(2)*[.2 .8 .8  .2]+orig(2)";
 
174
               "xpoly(xx,yy,''lines'')"],8),"Product",["E";"E"],"E"),..
 
175
               mlist(..
 
176
               ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
177
               "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
178
               "equations"],list("product",4),[-1;-1],-1,[],[],[],[],[],[1;-1],..
 
179
               "c",[],[%t,%f],"",0,0,list()),"PRODUCT",list())
 
180
scs_m.objs(13)=mlist(["Block","graphics","model","gui","doc"],..
 
181
               mlist(..
 
182
               ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
183
               "gr_i","id","in_implicit","out_implicit"],[396.66667,70],[40,40],..
 
184
               %t,["0.1";"1"],0,0,[],[],..
 
185
               list(..
 
186
               ["thick=xget(''thickness'');xset(''thickness'',2);";
 
187
               "xx=orig(1)+[1;2;2;3;3;4;4]/5*sz(1);";
 
188
               "yy= orig(2)+[1;1;2;2;3;3;4]/5*sz(2);";
 
189
               "xpoly(xx,yy,''lines'');";
 
190
               "xset(''thickness'',thick);"],8),"","E","E"),..
 
191
               mlist(..
 
192
               ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
193
               "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
194
               "equations"],"qzrnd",-1,-1,[],[],[],[],0.1,1,"c",[],[%t,%f],"",0,..
 
195
               0,list()),"QUANT_f",list())
 
196
scs_m.objs(14)=mlist(["Block","graphics","model","gui","doc"],..
 
197
               mlist(..
 
198
               ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
199
               "gr_i","id","in_implicit","out_implicit"],[0,160],[60,40],%t,..
 
200
               ["2";"(u1>0)*sin(u2)^2";"1"],[0;0],0,[],[],..
 
201
               list(..
 
202
               "xstringb(orig(1),orig(2),[''Mathematical'';''Expression''],sz(1),sz(2),''fill'');",..
 
203
               8),"",["E";"E"],"E"),..
 
204
               mlist(..
 
205
               ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
206
               "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
207
               "equations"],list("evaluate_expr",4),[1;1],1,[],[],[],[],[0;2],..
 
208
               [2;1;6;1;5;18;2;2;5;101;6;2;5;15;5;3],"c",[],[%t,%f],"",1,1,..
 
209
               list()),"EXPRESSION",list())
 
210
scs_m.objs(15)=mlist(["Block","graphics","model","gui","doc"],..
 
211
               mlist(..
 
212
               ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
213
               "gr_i","id","in_implicit","out_implicit"],[90,160],[40,40],%t,..
 
214
               ["1";"-1";"1"],0,0,[],[],..
 
215
               list(..
 
216
               ["thick=xget(''thickness'');xset(''thickness'',2);";
 
217
               "xx=orig(1)+[4/5;1/2+1/5;1/2-1/5;1/5]*sz(1);";
 
218
               "yy=orig(2)+[1-1/5;1-1/5;1/5;1/5]*sz(2);";
 
219
               "xpoly(xx,yy,''lines'');";
 
220
               "xset(''thickness'',thick)"],8),"","E","E"),..
 
221
               mlist(..
 
222
               ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
223
               "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
224
               "equations"],list("satur",4),1,1,[],[],[],[],[1;-1],[],"c",[],..
 
225
               [%t,%f],"",2,1,list()),"SATURATION",list())
 
226
scs_m.objs(16)=mlist(["Block","graphics","model","gui","doc"],..
 
227
               mlist(..
 
228
               ["graphics","orig","sz","flip","exprs","pin","pout","pein","peout",..
 
229
               "gr_i","id","in_implicit","out_implicit"],[160,160],[40,40],%t,..
 
230
               "1",0,0,[],[],..
 
231
               list(..
 
232
               ["txt=[''Sign''];";
 
233
               "xstringb(orig(1),orig(2),txt,sz(1),sz(2),''fill'')"],8),"","E",..
 
234
               "E"),..
 
235
               mlist(..
 
236
               ["model","sim","in","out","evtin","evtout","state","dstate","rpar",..
 
237
               "ipar","blocktype","firing","dep_ut","label","nzcross","nmode",..
 
238
               "equations"],list("signum",4),-1,-1,[],[],[],[],[],[],"c",[],..
 
239
               [%t,%f],"",-1,-1,list()),"SIGNUM",list())