diff options
Diffstat (limited to 'js/Linear/CLR_f.js')
-rw-r--r-- | js/Linear/CLR_f.js | 104 |
1 files changed, 52 insertions, 52 deletions
diff --git a/js/Linear/CLR_f.js b/js/Linear/CLR_f.js index 3b87cba3..459f975b 100644 --- a/js/Linear/CLR_f.js +++ b/js/Linear/CLR_f.js @@ -1,71 +1,71 @@ /* autogenerated from "macros/Linear/CLR_f.sci" */ function CLR_f() { CLR_f.prototype.define = function CLR_f() { -x0=0; -A=-1; -B=1; -C=1; -D=0; -exprs=[["1"],["1+s"]]; -model=scicos_model(); -model.sim=list("csslti",1); -model.in1=1; -model.out=1; -model.state=x0; -model.rpar=[[A.slice()],[B.slice()],[C.slice()],[D.slice()]]; -model.blocktype="c"; -model.dep_ut=[false,true]; -gr_i=[]; -x=standard_define([2.5,2.5],model,exprs,gr_i); + x0 = 0; + A = -1; + B = 1; + C = 1; + D = 0; + exprs = [["1"],["1+s"]]; + model = scicos_model(); + model.sim = list("csslti",1); + model.in1 = 1; + model.out = 1; + model.state = x0; + model.rpar = [[A.slice()],[B.slice()],[C.slice()],[D.slice()]]; + model.blocktype = "c"; + model.dep_ut = [false,true]; + gr_i = []; + x = standard_define([2.5,2.5],model,exprs,gr_i); } CLR_f.prototype.details = function CLR_f() { } CLR_f.prototype.get = function CLR_f() { } CLR_f.prototype.set = function CLR_f() { -x=arg1; -graphics=arg1.graphics; -exprs=graphics.exprs; -model=arg1.model; -x0=model.state; -rpar=model.rpar; -ns=prod(size(x0)); -nin=1; -nout=1; -PREVAR_scicos_context=PREVAR_scicos_context; -PREVAR_scicos_context.s=%s; -while (true) { -[ok,num,den,exprs]=scicos_getvalue("Set continuous SISO transfer parameters",[["Numerator (s)"],["Denominator (s)"]],list("pol",1,"pol",1),exprs); -if (!ok) { + x = arg1; + graphics = arg1.graphics; + exprs = graphics.exprs; + model = arg1.model; + x0 = model.state; + rpar = model.rpar; + ns = prod(size(x0)); + nin = 1; + nout = 1; + PREVAR_scicos_context = PREVAR_scicos_context; + PREVAR_scicos_context.s = %s; + while (true) { + [ok,num,den,exprs] = scicos_getvalue("Set continuous SISO transfer parameters",[["Numerator (s)"],["Denominator (s)"]],list("pol",1,"pol",1),exprs); + if (!ok) { break; } -if (degree(num)>degree(den)) { + if (degree(num)>degree(den)) { message("Transfer must be proper or strictly proper"); -ok=false; + ok = false; } -if (ok) { -H=cont_frm(num,den); -[A,B,C,D]=H.slice(2-1,5); -graphics.exprs=exprs; -[ns1,ns1]=size(A); -rpar=[[matrix(A,ns1*ns1,1)],[matrix(B,ns1,1)],[matrix(C,ns1,1)],[D]]; -if (norm(D,1)!=0) { -mmm=[true,true]; -} else { -mmm=[false,true]; + if (ok) { + H = cont_frm(num,den); + [A,B,C,D] = H.slice(2-1,5); + graphics.exprs = exprs; + [ns1,ns1] = size(A); + rpar = [[matrix(A,ns1*ns1,1)],[matrix(B,ns1,1)],[matrix(C,ns1,1)],[D]]; + if (norm(D,1)!=0) { + mmm = [true,true]; + } else { + mmm = [false,true]; } -if (or(model.dep_ut!=mmm)) { -model.dep_ut=mmm; + if (or(model.dep_ut!=mmm)) { + model.dep_ut = mmm; } -if (ns1<=ns) { -x0=x0.slice(1-1,ns1); -} else { -x0[ns1-1][1-1]=0; + if (ns1<=ns) { + x0 = x0.slice(1-1,ns1); + } else { + x0[ns1-1][1-1] = 0; } -model.state=x0; -model.rpar=rpar; -x.graphics=graphics; -x.model=model; + model.state = x0; + model.rpar = rpar; + x.graphics = graphics; + x.model = model; break; } } |