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
|
function TCLSS () {
var x0 = 0],[A=0],[B=1],[C=1],[D=0;
var in1 = 1;
var nx = size(x0,"*");
var out = 1;
var model = scicos_model();
model.sim=list(new ScilabString(["tcslti4"]),new ScilabDouble([4]));
model.in1 = new ScilabDouble([in1],[nx]);
model.out=new ScilabDouble([out]);
model.evtin = new ScilabDouble([1]);
model.state=new ScilabDouble([x0]);
model.rpar = new ScilabDouble([...colon_operator(A,:)],[...B],[C(,)],[...D]);
model.blocktype = new ScilabString(["c"]);
model.dep_ut = new ScilabBoolean([false,true]);
var exprs = [[strcat(sci2exp(A))],[strcat(sci2exp(B))],[strcat(sci2exp(C))],[strcat(sci2exp(D))],[strcat(sci2exp(x0))]];
var gr_i = [];
this.x=new standard_define(new ScilabDouble([3,2]),model,exprs,gr_i);
return new BasicBlock(this.x)
}
|