diff options
Diffstat (limited to 'js/MatrixOp/MATTRAN.js')
-rw-r--r-- | js/MatrixOp/MATTRAN.js | 77 |
1 files changed, 39 insertions, 38 deletions
diff --git a/js/MatrixOp/MATTRAN.js b/js/MatrixOp/MATTRAN.js index b55aa3c3..4cef2ada 100644 --- a/js/MatrixOp/MATTRAN.js +++ b/js/MatrixOp/MATTRAN.js @@ -10,54 +10,55 @@ function MATTRAN() { model.dep_ut = [true,false]; label = [sci2exp(1)]; gr_i = []; - x = standard_define([3,2],model,label,gr_i); + this.x = standard_define([3,2],model,label,gr_i); } MATTRAN.prototype.details = function MATTRAN() { + return this.x; } MATTRAN.prototype.get = function MATTRAN() { } MATTRAN.prototype.set = function MATTRAN() { - x = arg1; + this.x = arg1; graphics = arg1.graphics; label = graphics.exprs; model = arg1.model; if (size(label,"*")==1) { - label[2-1] = sci2exp(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) { -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"; -} - ot = 2; - it = 2; - } else { -message("Datatype is not supported"); - 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; -break; -} -} + [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"; + } + ot = 2; + it = 2; + } else { + message("Datatype is not supported"); + 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; + this.x = arg1; + break; + } + } } } |