diff options
Diffstat (limited to 'js/MatrixOp/MATSING.js')
-rw-r--r-- | js/MatrixOp/MATSING.js | 142 |
1 files changed, 71 insertions, 71 deletions
diff --git a/js/MatrixOp/MATSING.js b/js/MatrixOp/MATSING.js index fa88b00f..67c3170f 100644 --- a/js/MatrixOp/MATSING.js +++ b/js/MatrixOp/MATSING.js @@ -1,93 +1,93 @@ /* autogenerated from "macros/MatrixOp/MATSING.sci" */ function MATSING() { MATSING.prototype.define = function MATSING() { -model=scicos_model(); -function_name="mat_sing"; -funtyp=4; -model.sim=list(function_name,funtyp); -model.in1=-1; -model.in2=-2; -model.intyp=1; -model.out=-1; -model.out2=1; -model.outtyp=1; -model.evtin=[]; -model.evtout=[]; -model.state=[]; -model.dstate=[]; -model.rpar=[]; -model.ipar=[]; -model.blocktype="c"; -model.firing=[]; -model.dep_ut=[true,false]; -label=[[sci2exp(1)],[sci2exp(1)]]; -gr_i=[]; -x=standard_define([2,2],model,label,gr_i); + model = scicos_model(); + function_name = "mat_sing"; + funtyp = 4; + model.sim = list(function_name,funtyp); + model.in1 = -1; + model.in2 = -2; + model.intyp = 1; + model.out = -1; + model.out2 = 1; + model.outtyp = 1; + model.evtin = []; + model.evtout = []; + model.state = []; + model.dstate = []; + model.rpar = []; + model.ipar = []; + model.blocktype = "c"; + model.firing = []; + model.dep_ut = [true,false]; + label = [[sci2exp(1)],[sci2exp(1)]]; + gr_i = []; + x = standard_define([2,2],model,label,gr_i); } MATSING.prototype.details = function MATSING() { } MATSING.prototype.get = function MATSING() { } MATSING.prototype.set = function MATSING() { -x=arg1; -model=arg1.model; -graphics=arg1.graphics; -label=graphics.exprs; -if (size(label,"*")==14) { -label[9-1]=[]; + x = arg1; + model = arg1.model; + graphics = arg1.graphics; + label = graphics.exprs; + if (size(label,"*")==14) { + label[9-1] = []; } -while (true) { -[ok,typ,decomptyp,lab]=scicos_getvalue("Set MATSVD block parameters",[["Datatype(1=real double 2=Complex)"],["decomposition type (1=singular values 2=sing values+matrix U & V)"]],list("vec",1,"vec",1),label); -if (!ok) { + while (true) { + [ok,typ,decomptyp,lab] = scicos_getvalue("Set MATSVD block parameters",[["Datatype(1=real double 2=Complex)"],["decomposition type (1=singular values 2=sing values+matrix U & V)"]],list("vec",1,"vec",1),label); + if (!ok) { break; } -label=lab; -if ((typ==1)) { -if ((decomptyp==1)) { -function_name="mat_sing"; -in1=[-1,-2]; -out=[-1,1]; -ot=1; -} else if ((decomptyp==2)) { -function_name="mat_svd"; -in1=[-1,-2]; -out=[[-1,-1],[-1,-2],[-2,-2]]; -ot=[1,1,1]; -} else { + label = lab; + if ((typ==1)) { + if ((decomptyp==1)) { + function_name = "mat_sing"; + in1 = [-1,-2]; + out = [-1,1]; + ot = 1; + } else if ((decomptyp==2)) { + function_name = "mat_svd"; + in1 = [-1,-2]; + out = [[-1,-1],[-1,-2],[-2,-2]]; + ot = [1,1,1]; + } else { message("decomposition type is not supported"); -ok=false; + ok = false; } -it=1; -} else if ((typ==2)) { -if ((decomptyp==1)) { -function_name="matz_sing"; -in1=[-1,-2]; -out=[-1,1]; -ot=1; -} else if ((decomptyp==2)) { -function_name="matz_svd"; -in1=[-1,-2]; -out=[[-1,-1],[-1,-2],[-2,-2]]; -ot=[2,1,2]; -} else { + it = 1; + } else if ((typ==2)) { + if ((decomptyp==1)) { + function_name = "matz_sing"; + in1 = [-1,-2]; + out = [-1,1]; + ot = 1; + } else if ((decomptyp==2)) { + function_name = "matz_svd"; + in1 = [-1,-2]; + out = [[-1,-1],[-1,-2],[-2,-2]]; + ot = [2,1,2]; + } else { message("decomposition type is not supported"); -ok=false; + ok = false; } -it=2; -} else { + it = 2; + } else { message("Datatype is not supported"); -ok=false; + ok = false; } -funtyp=4; -if (ok) { -[model,graphics,ok]=set_io(model,graphics,list(in1,it),list(out,ot),[],[]); + funtyp = 4; + if (ok) { + [model,graphics,ok] = set_io(model,graphics,list(in1,it),list(out,ot),[],[]); } -if (ok) { -model.sim=list(function_name,funtyp); -arg1.model=model; -graphics.exprs=label; -arg1.graphics=graphics; -x=arg1; + if (ok) { + model.sim = list(function_name,funtyp); + arg1.model = model; + graphics.exprs = label; + arg1.graphics = graphics; + x = arg1; break; } } |