diff options
Diffstat (limited to 'js/Sources/RAND_f.js')
-rw-r--r-- | js/Sources/RAND_f.js | 49 |
1 files changed, 25 insertions, 24 deletions
diff --git a/js/Sources/RAND_f.js b/js/Sources/RAND_f.js index 1302b020..901c2e9d 100644 --- a/js/Sources/RAND_f.js +++ b/js/Sources/RAND_f.js @@ -17,41 +17,42 @@ function RAND_f() { model.dep_ut = [false,false]; exprs = [[string(flag)],[sci2exp(a.slice())],[sci2exp(b.slice())],[string(model.dstate[1-1])]]; gr_i = []; - x = standard_define([3,2],model,exprs,gr_i); + this.x = standard_define([3,2],model,exprs,gr_i); } RAND_f.prototype.details = function RAND_f() { + return this.x; } RAND_f.prototype.get = function RAND_f() { } RAND_f.prototype.set = function RAND_f() { - x = arg1; + this.x = arg1; graphics = arg1.graphics; exprs = graphics.exprs; model = arg1.model; if (size(exprs,"*")==5) { - exprs = exprs.slice(1-1,3); -} + exprs = exprs.slice(1-1,3); + } if (size(exprs,"*")==3) { - exprs = [[exprs],[string(model.dstate[1-1])]]; -} + exprs = [[exprs],[string(model.dstate[1-1])]]; + } while (true) { - [ok,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 vector with equal sizes"],["seed is the seed of random number generator (integer<2**31)"]],[["flag"],["A"],["B"],["seed"]],list("vec",1,"vec",-1,"vec","size(%2,\'*\')","vec",1),exprs); - if (!ok) { -break; -} - if (flag!=0&&flag!=1) { -message("flag must be equal to 1 or 0"); - } else { - nout = size(a,"*"); - graphics.exprs = exprs; - model.out = nout; - model.ipar = flag; - model.rpar = [[a.slice()],[b.slice()]]; - model.dstate = [[seed_c],[0*a.slice()]]; - x.graphics = graphics; - x.model = model; -break; -} -} + [ok,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 vector with equal sizes"],["seed is the seed of random number generator (integer<2**31)"]],[["flag"],["A"],["B"],["seed"]],list("vec",1,"vec",-1,"vec","size(%2,\'*\')","vec",1),exprs); + if (!ok) { + break; + } + if (flag!=0&&flag!=1) { + message("flag must be equal to 1 or 0"); + } else { + nout = size(a,"*"); + graphics.exprs = exprs; + model.out = nout; + model.ipar = flag; + model.rpar = [[a.slice()],[b.slice()]]; + model.dstate = [[seed_c],[0*a.slice()]]; + this.x.graphics = graphics; + this.x.model = model; + break; + } + } } } |