/* autogenerated from "macros/Misc/MBLOCK.sci" */
function MBLOCK() {
MBLOCK.prototype.define = function MBLOCK() {
this.in1 = ["u1"];
this.intype = ["I"];
this.out = [["y1"],["y2"]];
this.outtype = [["I"],["E"]];
param = [["R"],["L"]];
paramv = list(0.1,.0001);
this.pprop = [[0],[0]];
nameF = "generic";
exprs = tlist(["MBLOCK","in","intype","out","outtype","param","paramv","pprop","nameF","funtxt"],sci2exp(this.in1.slice()),sci2exp(this.intype.slice()),sci2exp(this.out.slice()),sci2exp(this.outtype.slice()),sci2exp(param.slice()),list(string(0.1),string(.0001)),sci2exp(this.pprop.slice()),nameF,[]);
model = scicos_model();
model.blocktype = "c";
model.dep_ut = [false,true];
model.rpar = [];
for (i=1;i<=lstsize(paramv);i+=1) {
model.rpar = [[model.rpar],[paramv[i-1].slice()]];
}
mo = modelica();
mo.model = nameF;
mo.parameters = list(param,paramv);
model.sim = list(mo.model,30004);
mo.inputs = this.in1;
mo.outputs = this.out;
model.in1 = ones(size(mo.inputs,"r"),1);
model.out = ones(size(mo.outputs,"r"),1);
model.equations = mo;
gr_i = [];
this.x = standard_define([3,2],model,exprs,gr_i);
this.x.graphics.in_implicit = this.intype;
this.x.graphics.out_implicit = this.outtype;
return new BasicBlock(this.x);
}
MBLOCK.prototype.details = function MBLOCK() {
return this.x;
}
MBLOCK.prototype.get = function MBLOCK() {
var options = {
Tin:["Input variables: ",this.Tin],
Tintype:["Input variables types: ",this.Tintype],
Tout:["Output variables: ",this.Tout],
Touttype:["Output variables types:",this.Touttype],
Tparam:["Parameters in Modelica:",this.Tparam],
pprop:["Parameters properties: ",this.pprop],
Tfunam:["Function name: ",this.Tfunam],
}
return options;
}
MBLOCK.prototype.set = function MBLOCK() {
this.Tin = parseFloat((arguments[0]["Tin"]))
this.Tintype = parseFloat((arguments[0]["Tintype"]))
this.Tout = parseFloat((arguments[0]["Tout"]))
this.Touttype = parseFloat((arguments[0]["Touttype"]))
this.Tparam = parseFloat((arguments[0]["Tparam"]))
this.pprop = inverse((arguments[0]["pprop"]))
this.Tfunam = parseFloat((arguments[0]["Tfunam"]))
this.lab_1 = inverse((arguments[0]["lab_1"]))
this.x = arg1;
model = arg1.model;
graphics = arg1.graphics;
exprs = graphics.exprs;
if (this.type[exprs-1]==15) {
paramv = list();
this.pprop = [];
for (i=1;i<=size(model.rpar,"*");i+=1) {
paramv[$+1-1] = string(model.rpar[i-1]);
this.pprop[$+1-1] = 0;
}
exprs = tlist(["MBLOCK","in","intype","out","outtype","param","paramv","pprop","nameF","funtxt"],exprs[1-1][1-1],exprs[1-1][2-1],exprs[1-1][3-1],exprs[1-1][4-1],exprs[1-1][5-1],paramv,sci2exp(this.pprop.slice()),exprs[1-1][7-1],exprs[2-1]);
}
this.lab_1 = list(exprs.in1,exprs.intype,exprs.out,exprs.outtype,exprs.param,exprs.pprop,exprs.nameF);
lab_2 = exprs.paramv;
while (true) {
[ok,this.Tin,this.Tintype,this.Tout,this.Touttype,this.Tparam,this.pprop,this.Tfunam,this.lab_1] = scicos_getvalue("Set Modelica generic block parameters",["Input variables: ","Input variables types: ","Output variables: ","Output variables types:","Parameters in Modelica:","Parameters properties: ","Function name: "],list("str",-1,"str",-1,"str",-1,"str",-1,"str",-1,"vec",-1,"str",-1),this.lab_1);
if (!ok) {
break;
}
ierr = execstr("in=stripblanks(evstr(Tin)); intype=stripblanks(evstr(Tintype)); out=stripblanks(evstr(Tout)); outtype=stripblanks(evstr(Touttype)); param=stripblanks(evstr(Tparam)); funam=stripblanks(Tfunam)","errcatch");
if (ierr!=0) {
messagebox("Error in evaluation of variables.","modal","error");
ok = false;
}
if (ok) {
for (i=1;i<=size(this.in1,"*");i+=1) {
r = false;
ierr = execstr("r=validvar(in(i))","errcatch");
if (!r) {
ok = false;
break;
}
}
if (!ok) {
messagebox([["Invalid variable name for the input "+string(i)+"."],["\""+this.in1[i-1]+"\""],["Please choose another variable name."]],"modal","error");
}
}
if (ok) {
for (i=1;i<=size(this.out,"*");i+=1) {
r = false;
ierr = execstr("r=validvar(out(i))","errcatch");
if (!r) {
ok = false;
break;
}
}
if (!ok) {
messagebox([["Invalid variable name for the output "+string(i)+"."],["\""+this.out[i-1]+"\""],["Please choose another variable name."]],"modal","error");
}
}
if (ok) {
param = param.slice();
for (i=1;i<=size(param,"*");i+=1) {
r = false;
ierr = execstr("r=validvar(param(i))","errcatch");
if (!r) {
ok = false;
break;
}
}
if (!ok) {
messagebox([["Invalid variable name for the parameter "+string(i)+"."],["\""+param[i-1]+"\""],["Please choose another variable name."]],"modal","error");
}
}
if (ok) {
for (i=1;i<=size(this.intype,"*");i+=1) {
if (this.intype[i-1]!="E"&&this.intype[i-1]!="I") {
messagebox("Input type should be \'E\' or \'I\'!","modal","error");
ok = false;
break;
}
}
}
if (ok) {
for (i=1;i<=size(this.outtype,"*");i+=1) {
if (this.outtype[i-1]!="E"&&this.outtype[i-1]!="I") {
messagebox("Output type should be \'E\' or \'I\'!","modal","error");
ok = false;
break;
}
}
}
if (ok) {
if (or(size(this.intype)!=size(this.in1))) {
messagebox("Input variables are not well defined!","modal","error");
ok = false;
}
}
if (ok) {
if (or(size(this.outtype)!=size(this.out))) {
messagebox("Output variables are not well defined!","modal","error");
ok = false;
}
}
if (ok) {
this.pprop = this.pprop.slice();
if ((size(param,"*")!=size(this.pprop,"*"))) {
messagebox([["There is differences in"],["size of param and size "],["of param properties."]],"modal","error");
ok = false;
}
}
if (ok) {
if (max(this.pprop)>2||min(this.pprop)<0) {
messagebox([["Parameters properties must be :"],["0 : for simple paramater,"],["1 : for initial state value,"],["2 : for a fixed initial state value."]],"modal","error");
ok = false;
}
}
if (ok) {
if (this.funam=="") {
messagebox("The filename is not defined!","modal","error");
ok = false;
}
}
if (ok) {
[dirF,nameF,extF] = fileparts(this.funam);
if ((extF!=""&&extF!=".mo")||(dirF!=""&&extF!=".mo")) {
messagebox("Filename extention should be \'.mo \' !","modal","error");
ok = false;
}
}
if (ok) {
intypex = find(this.intype=="I");
outtypex = find(this.outtype=="I");
[model,graphics,ok] = set_io(model,graphics,list([ones(this.in1),ones(this.in1)],ones(this.in1)),list([ones(this.out),ones(this.out)],ones(this.out)),[],[],intypex,outtypex);
}
if (ok) {
Tparam_lab = evstr(this.Tparam);
Tparam_sz = size(Tparam_lab,"*");
if (Tparam_sz>lstsize(lab_2)) {
for (i=1;i<=(Tparam_sz-lstsize(lab_2));i+=1) {
lab_2[$+1-1] = "0";
}
} else if (Tparam_sz<lstsize(lab_2)) {
lab_2_tmp = list();
if (Tparam_sz!=0) {
for (i=1;i<=(lstsize(lab_2)-Tparam_sz);i+=1) {
lab_2_tmp[i-1] = lab_2[i-1];
}
}
lab_2 = lab_2_tmp;
}
if (Tparam_sz!=0) {
lhs_txt = "";
lab_txt = "";
rhs_txt = "";
for (i=1;i<=Tparam_sz;i+=1) {
lhs_txt = lhs_txt+"%v"+string(i)+",";
if (this.pprop[i-1]==0) {
lab_txt = lab_txt+"\'"+Tparam_lab[i-1]+"\';";
} else if (this.pprop[i-1]==1) {
lab_txt = lab_txt+"\'"+Tparam_lab[i-1]+" (state) \';";
} else if (this.pprop[i-1]==2) {
lab_txt = lab_txt+"\'"+Tparam_lab[i-1]+" (fixed state) \';";
}
rhs_txt = rhs_txt+"\'vec\',-1,";
}
lhs_txt = part(lhs_txt,1,length(lhs_txt)-1);
lab_txt = part(lab_txt,1,length(lab_txt)-1);
rhs_txt = part(rhs_txt,1,length(rhs_txt)-1);
getvalue_txt = "[ok,"+lhs_txt+",lab_2]=scicos_getvalue(\'Set parameters values\',["+lab_txt+"],"+"list("+rhs_txt+"),lab_2)";
execstr(getvalue_txt);
if (!ok) {
lab_2 = exprs.paramv;
}
}
}
if (ok) {
paramv = list();
for (i=1;i<=Tparam_sz;i+=1) {
execstr("paramv("+string(i)+")=%v"+string(i));
}
}
if (ok) {
if (extF==".mo"&&fileinfo(this.funam)!=[]) {
tt = mgetl(this.funam);
} else {
tt = exprs.funtxt;
mo = model.equations;
if (mo.model!=nameF) {
tt = [];
}
}
[ok,tt] = MODCOM(this.funam,tt,this.in1,this.out,param,paramv,this.pprop);
if (!ok) {
break;
}
}
if (ok) {
mo = modelica();
mo.model = nameF;
mo.inputs = this.in1;
mo.outputs = this.out;
if (max(this.pprop)>0) {
mo.parameters = list(transpose(param),paramv,transpose(this.pprop));
} else {
mo.parameters = list(transpose(param),paramv);
}
model.equations = mo;
model.rpar = [];
for (i=1;i<=lstsize(paramv);i+=1) {
model.rpar = [[model.rpar],[paramv[i-1].slice()]];
}
model.sim[1-1] = this.funam;
exprs.in1 = this.lab_1[1-1];
exprs.intype = this.lab_1[2-1];
exprs.out = this.lab_1[3-1];
exprs.outtype = this.lab_1[4-1];
exprs.param = this.lab_1[5-1];
exprs.paramv = list();
if (Tparam_sz!=0) {
if (this.type[lab_2-1]==15) {
for (i=1;i<=lstsize(lab_2);i+=1) {
exprs.paramv[i-1] = lab_2[i-1];
}
} else {
for (i=1;i<=size(lab_2,"*");i+=1) {
exprs.paramv[i-1] = lab_2[i-1];
}
}
}
exprs.pprop = this.lab_1[6-1];
exprs.nameF = this.lab_1[7-1];
exprs.funtxt = tt;
this.x.model = model;
graphics.gr_i[1-1][1-1] = "txt=[\'Modelica\';\' "+nameF+" \'];";
graphics.in_implicit = this.intype;
graphics.out_implicit = this.outtype;
graphics.exprs = exprs;
this.x.graphics = graphics;
break;
}
}
return new BasicBlock(this.x);
}
}