diff options
Diffstat (limited to 'js/Linear/DELAY_f.js')
| -rw-r--r-- | js/Linear/DELAY_f.js | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/js/Linear/DELAY_f.js b/js/Linear/DELAY_f.js index 667c4976..66f2ca4b 100644 --- a/js/Linear/DELAY_f.js +++ b/js/Linear/DELAY_f.js @@ -71,7 +71,7 @@ x.graphics.out_style=""; DELAY_f.prototype.set = function DELAY_f() { ppath=list(0,0); for (i=1;i<=length(arg1.model.rpar.objs);i+=1) { -o=arg1.model.rpar.objs(i); +o=arg1.model.rpar.objs[i-1]; if (typeof(o)=="Block"&&o.gui=="REGISTER_f") { ppath[1-1]=i; } @@ -84,18 +84,18 @@ break; } x=arg1; newpar=list(); -register=x.model.rpar.objs(ppath[1-1]); -evtdly=x.model.rpar.objs(ppath[2-1]); +register=x.model.rpar.objs[ppath[1-1]-1]; +evtdly=x.model.rpar.objs[ppath[2-1]-1]; register_exprs=register.graphics.exprs; evtdly_exprs=evtdly.graphics.exprs; -exprs=[[evtdly_exprs(1)],[register_exprs]]; +exprs=[[evtdly_exprs[1-1]],[register_exprs]]; while (true) { [ok,dt,z0,exprs]=scicos_getvalue([["This block implements as a discretized delay"],["it is consist of a shift register and a clock"],["value of the delay is given by;","the discretization time step multiplied by the"],["number-1 of state of the register"]],[["Discretization time step"],["Register initial state"]],list("vec",1,"vec",-1),exprs); if (!ok) { break; } mess=[]; -if (prod(size(z0))<1) { +if (prod[size(z0)-1]<1) { mess=[[mess],["Register length must be at least 1"],[" "]]; ok=false; } |