1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
function CMSCOPE () {
var win = -1;
var in1 = [[1],[1]];
var wdim = [[-1],[-1]];
var wpos = [[-1],[-1]];
var clrs = [[1],[3],[5],[7],[9],[11],[13],[15]];
var N = 20;
var ymin = [[-1],[-5]];
var ymax = [[1],[5]];
var per = [[30],[30]];
var yy = [[...transpose(ymin)],[...transpose(ymax)]];
var period = ...transpose(per);
var model = scicos_model();
model.sim=list(new ScilabString(["cmscope"]),new ScilabDouble([4]));
model.in1.push(new ScilabDouble([in1]));
model.in2 = new ScilabDouble([1],[1]);
model.intyp = new ScilabDouble([1],[1]);
model.evtin = new ScilabDouble([1]);
model.rpar = new ScilabDouble([0],[...period],[...yy]);
model.ipar = new ScilabDouble([win;...colon_operator(size,in1,"*")],[N],[...wpos],[...wdim],[...in1],[clrs(1,sum(in1))]);
model.blocktype = new ScilabString(["c"]);
model.dep_ut = new ScilabBoolean([true,false]);
var exprs = [[strcat(string(in1)," ");strcat(string(clrs)," ");string(win);sci2exp([]);sci2exp([]);strcat(string(ymin)," ");strcat(string(ymax)," ");strcat(string(per)," ")],[string(N)],[string(0)],[emptystr()]];
var gr_i = [];
this.x=new standard_define(new ScilabDouble([2,2]),model,exprs,gr_i);
return new BasicBlock(this.x)
}
|
