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
|
/* autogenerated from "macros/NonLinear/TrigFun.sci" */
function TrigFun() {
TrigFun.prototype.define = function TrigFun() {
model=scicos_model();
model.sim=list("sin_blk",4);
model.in1=-1;
model.out=-1;
model.blocktype="c";
model.dep_ut=[true,false];
exprs="sin";
gr_i=[];
x=standard_define([4,2],model,exprs,gr_i);
}
TrigFun.prototype.details = function TrigFun() {
}
TrigFun.prototype.get = function TrigFun() {
}
TrigFun.prototype.set = function TrigFun() {
x=arg1;
graphics=arg1.graphics;
exprs=graphics.exprs;
model=arg1.model;
PREVAR_FF=[["sin"],["cos"],["tan"],["asin"],["acos"],["atan"],["sinh"],["cosh"],["tanh"],["asinh"],["acosh"],["atanh"]];
PREVAR_GG=[["Choose among "+strcat(PREVAR_FF.slice(1-1,4),", ")],[strcat(PREVAR_FF.slice(5-1,$),", ")]];
while (true) {
[ok,fun,exprs]=scicos_getvalue(PREVAR_GG,"Function",list("str",1),exprs);
if (!ok) {
break;
}
if (find(PREVAR_FF==fun)==[]) {
message("Sorry but "+fun+" is not in the list!");
} else {
graphics.exprs=exprs;
execstr("model.sim=list(\'"+fun+"_blk\',4)");
x.graphics=graphics;
x.model=model;
break;
}
}
}
}
|
