summaryrefslogtreecommitdiff
path: root/js/Linear/CLR.js
diff options
context:
space:
mode:
Diffstat (limited to 'js/Linear/CLR.js')
-rw-r--r--js/Linear/CLR.js104
1 files changed, 52 insertions, 52 deletions
diff --git a/js/Linear/CLR.js b/js/Linear/CLR.js
index dcebbfb5..d6768d96 100644
--- a/js/Linear/CLR.js
+++ b/js/Linear/CLR.js
@@ -1,71 +1,71 @@
/* autogenerated from "macros/Linear/CLR.sci" */
function CLR() {
CLR.prototype.define = function CLR() {
-x0=0;
-A=-1;
-B=1;
-C=1;
-D=0;
-exprs=[["1"],["1+s"]];
-model=scicos_model();
-model.sim=list("csslti4",4);
-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([3,2],model,exprs,gr_i);
+ x0 = 0;
+ A = -1;
+ B = 1;
+ C = 1;
+ D = 0;
+ exprs = [["1"],["1+s"]];
+ model = scicos_model();
+ model.sim = list("csslti4",4);
+ 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([3,2],model,exprs,gr_i);
}
CLR.prototype.details = function CLR() {
}
CLR.prototype.get = function CLR() {
}
CLR.prototype.set = function CLR() {
-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 function 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;
}
}