diff options
Diffstat (limited to 'js/MatrixOp/MATTRAN.js')
-rw-r--r-- | js/MatrixOp/MATTRAN.js | 86 |
1 files changed, 43 insertions, 43 deletions
diff --git a/js/MatrixOp/MATTRAN.js b/js/MatrixOp/MATTRAN.js index e8bb7ca1..b55aa3c3 100644 --- a/js/MatrixOp/MATTRAN.js +++ b/js/MatrixOp/MATTRAN.js @@ -1,61 +1,61 @@ /* autogenerated from "macros/MatrixOp/MATTRAN.sci" */ function MATTRAN() { MATTRAN.prototype.define = function MATTRAN() { -model=scicos_model(); -model.sim=list("mattran_m",4); -model.in1=-1; -model.in2=-2; -model.out=-2; -model.out2=-1; -model.dep_ut=[true,false]; -label=[sci2exp(1)]; -gr_i=[]; -x=standard_define([3,2],model,label,gr_i); + model = scicos_model(); + model.sim = list("mattran_m",4); + model.in1 = -1; + model.in2 = -2; + model.out = -2; + model.out2 = -1; + model.dep_ut = [true,false]; + label = [sci2exp(1)]; + gr_i = []; + x = standard_define([3,2],model,label,gr_i); } MATTRAN.prototype.details = function MATTRAN() { } MATTRAN.prototype.get = function MATTRAN() { } MATTRAN.prototype.set = function MATTRAN() { -x=arg1; -graphics=arg1.graphics; -label=graphics.exprs; -model=arg1.model; -if (size(label,"*")==1) { -label[2-1]=sci2exp(1); + x = arg1; + graphics = arg1.graphics; + label = graphics.exprs; + model = arg1.model; + if (size(label,"*")==1) { + label[2-1] = sci2exp(1); } -while (true) { -[ok,typ,rule,exprs]=scicos_getvalue("Set MATTRAN Block",[["Datatype(1=real double 2=Complex)"],["rule (1=.\' 2=\')"]],list("vec",1,"vec",1),label); -if (!ok) { + while (true) { + [ok,typ,rule,exprs] = scicos_getvalue("Set MATTRAN Block",[["Datatype(1=real double 2=Complex)"],["rule (1=.\' 2=\')"]],list("vec",1,"vec",1),label); + if (!ok) { break; } -if ((typ==1)) { -function_name="mattran_m"; -ot=1; -it=1; -} else if ((typ==2)) { -if (rule==1) { -function_name="matztran_m"; -} else { -function_name="mathermit_m"; + if ((typ==1)) { + function_name = "mattran_m"; + ot = 1; + it = 1; + } else if ((typ==2)) { + if (rule==1) { + function_name = "matztran_m"; + } else { + function_name = "mathermit_m"; } -ot=2; -it=2; -} else { + ot = 2; + it = 2; + } else { message("Datatype is not supported"); -ok=false; + ok = false; } -in1=[model.in1,model.in2]; -out=[model.out,model.out2]; -funtyp=4; -if (ok) { -label=exprs; -[model,graphics,ok]=set_io(model,graphics,list(in1,it),list(out,ot),[],[]); -model.sim=list(function_name,funtyp); -graphics.exprs=label; -arg1.graphics=graphics; -arg1.model=model; -x=arg1; + in1 = [model.in1,model.in2]; + out = [model.out,model.out2]; + funtyp = 4; + if (ok) { + label = exprs; + [model,graphics,ok] = set_io(model,graphics,list(in1,it),list(out,ot),[],[]); + model.sim = list(function_name,funtyp); + graphics.exprs = label; + arg1.graphics = graphics; + arg1.model = model; + x = arg1; break; } } |