diff options
Diffstat (limited to 'js/Sources/RAND_m.js')
-rw-r--r-- | js/Sources/RAND_m.js | 116 |
1 files changed, 58 insertions, 58 deletions
diff --git a/js/Sources/RAND_m.js b/js/Sources/RAND_m.js index 090093cb..ab7e919f 100644 --- a/js/Sources/RAND_m.js +++ b/js/Sources/RAND_m.js @@ -1,76 +1,76 @@ /* autogenerated from "macros/Sources/RAND_m.sci" */ function RAND_m() { RAND_m.prototype.define = function RAND_m() { -a=0; -b=1; -dt=0; -flag=0; -function_name="rndblk_m"; -funtyp=4; -model=scicos_model(); -model.sim=list(function_name,funtyp); -model.in1=[]; -model.in2=[]; -model.intyp=[]; -model.out=1; -model.out2=1; -model.outtyp=1; -model.evtin=1; -model.evtout=[]; -model.state=[]; -model.dstate=[[int(rand()*(10^7-1))],[0*a.slice()]]; -model.rpar=[a.slice(),b.slice()]; -model.ipar=flag; -model.blocktype="d"; -model.firing=[]; -model.dep_ut=[false,false]; -exprs=[[sci2exp(1)],[string(flag)],[sci2exp([a])],[sci2exp([b])],[sci2exp([model.dstate[1-1],int(rand()*(10^7-1))])]]; -gr_i=[]; -x=standard_define([3,2],model,exprs,gr_i); + a = 0; + b = 1; + dt = 0; + flag = 0; + function_name = "rndblk_m"; + funtyp = 4; + model = scicos_model(); + model.sim = list(function_name,funtyp); + model.in1 = []; + model.in2 = []; + model.intyp = []; + model.out = 1; + model.out2 = 1; + model.outtyp = 1; + model.evtin = 1; + model.evtout = []; + model.state = []; + model.dstate = [[int(rand()*(10^7-1))],[0*a.slice()]]; + model.rpar = [a.slice(),b.slice()]; + model.ipar = flag; + model.blocktype = "d"; + model.firing = []; + model.dep_ut = [false,false]; + exprs = [[sci2exp(1)],[string(flag)],[sci2exp([a])],[sci2exp([b])],[sci2exp([model.dstate[1-1],int(rand()*(10^7-1))])]]; + gr_i = []; + x = standard_define([3,2],model,exprs,gr_i); } RAND_m.prototype.details = function RAND_m() { } RAND_m.prototype.get = function RAND_m() { } RAND_m.prototype.set = function RAND_m() { -x=arg1; -graphics=arg1.graphics; -exprs=graphics.exprs; -model=arg1.model; -if (size(exprs,"*")==14) { -exprs[9-1]=[]; + x = arg1; + graphics = arg1.graphics; + exprs = graphics.exprs; + model = arg1.model; + if (size(exprs,"*")==14) { + exprs[9-1] = []; } -while (true) { -[ok,typ,flag,a,b,seed_c,exprs]=scicos_getvalue([["Set Random generator block parameters"],["flag = 0 : Uniform distribution A is min and A+B max"],["flag = 1 : Normal distribution A is mean and B deviation"],[" "],["A and B must be matrix with equal sizes"]],[["Datatype(1=real double 2=complex)"],["flag"],["A"],["B"],["SEED"]],list("vec",1,"vec",1,"mat",[-1,-2],"mat","[-1 -2]","mat",[1,2]),exprs); -if (!ok) { + while (true) { + [ok,typ,flag,a,b,seed_c,exprs] = scicos_getvalue([["Set Random generator block parameters"],["flag = 0 : Uniform distribution A is min and A+B max"],["flag = 1 : Normal distribution A is mean and B deviation"],[" "],["A and B must be matrix with equal sizes"]],[["Datatype(1=real double 2=complex)"],["flag"],["A"],["B"],["SEED"]],list("vec",1,"vec",1,"mat",[-1,-2],"mat","[-1 -2]","mat",[1,2]),exprs); + if (!ok) { break; } -if (flag!=0&&flag!=1) { + if (flag!=0&&flag!=1) { message("flag must be equal to 1 or 0"); -} else { -out=size(a); -if (typ==1) { -function_name="rndblk_m"; -model.rpar=[[real(a.slice())],[real(b.slice())]]; -model.dstate=[[seed_c[1-1]],[0*real(a.slice())]]; -ot=1; -} else if (typ==2) { -function_name="rndblkz_m"; -ot=2; -model.rpar=[[real(a.slice())],[imag(a.slice())],[real(b.slice())],[imag(b.slice())]]; -model.dstate=[[seed_c.slice()],[0*[[real(a.slice())],[imag(a.slice())]]]]; -} else { + } else { + out = size(a); + if (typ==1) { + function_name = "rndblk_m"; + model.rpar = [[real(a.slice())],[real(b.slice())]]; + model.dstate = [[seed_c[1-1]],[0*real(a.slice())]]; + ot = 1; + } else if (typ==2) { + function_name = "rndblkz_m"; + ot = 2; + model.rpar = [[real(a.slice())],[imag(a.slice())],[real(b.slice())],[imag(b.slice())]]; + model.dstate = [[seed_c.slice()],[0*[[real(a.slice())],[imag(a.slice())]]]]; + } else { message("Datatype is not supported"); -ok=false; + ok = false; } -if (ok) { -[model,graphics,ok]=set_io(model,graphics,list([],[]),list(out,ot),1,[]); -if (ok) { -model.sim=list(function_name,4); -graphics.exprs=exprs; -model.ipar=flag; -x.graphics=graphics; -x.model=model; + if (ok) { + [model,graphics,ok] = set_io(model,graphics,list([],[]),list(out,ot),1,[]); + if (ok) { + model.sim = list(function_name,4); + graphics.exprs = exprs; + model.ipar = flag; + x.graphics = graphics; + x.model = model; break; } } |