← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to macros/scicos/Non_linear.cosf

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
macros/scicos/Non_linear.cosf
 
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')