1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
/* autogenerated from "macros/Sources/STEP_FUNCTION.sci" */
function STEP_FUNCTION() {
STEP_FUNCTION.prototype.define = function STEP_FUNCTION() {
scs_m_1 = scicos_diagram();
scs_m_1.objs[1-1] = STEP("define");
scs_m_1.objs[2-1] = OUT_f("define");
scs_m_1.objs[3-1] = scicos_link();
scs_m_1.objs[4-1] = scicos_link();
blk = scs_m_1.objs[1-1];
graphics = blk.graphics;
this.model = blk.model;
graphics.orig = [0,0];
graphics.sz = [40,40];
graphics.pein = 4;
graphics.peout = 4;
graphics.pout = 3;
blk.graphics = graphics;
blk.model = this.model;
scs_m_1.objs[1-1] = blk;
blk = scs_m_1.objs[2-1];
graphics = blk.graphics;
this.model = blk.model;
graphics.orig = [80,10];
graphics.sz = [20,20];
graphics.exprs = ["1"];
this.model.ipar = new ScilabDouble(1);
graphics.pin = 3;
blk.graphics = graphics;
blk.model = this.model;
scs_m_1.objs[2-1] = blk;
lnk = scs_m_1.objs[3-1];
lnk.from = [1,1,0];
lnk.to = [2,1,1];
scs_m_1.objs[3-1] = lnk;
lnk = scs_m_1.objs[4-1];
lnk.xx = [0,20,-20,-20,20,1];
lnk.yy = [0,-20,-20,60,60,1];
lnk.ct = [5,-1];
lnk.from = [1,1,0];
lnk.to = [1,1,1];
scs_m_1.objs[4-1] = lnk;
blk={};
lnk={};
this.model = scicos_model();
this.model.sim = new ScilabString("csuper");
this.model.out = new ScilabDouble(1);
this.model.out2 = new ScilabDouble(1);
this.model.outtyp = new ScilabDouble(1);
this.model.rpar = scs_m_1;
gr_i = [];
this.x = standard_define([2,2],this.model,[],gr_i);
return new BasicBlock(this.x);
}
STEP_FUNCTION.prototype.details = function STEP_FUNCTION() {
return this.x;
}
STEP_FUNCTION.prototype.get = function STEP_FUNCTION() {
var options = {
}
return options;
}
STEP_FUNCTION.prototype.set = function STEP_FUNCTION() {
for (i=1;i<=length(arg1.model.rpar.objs);i+=1) {
o = arg1.model.rpar.objs[i-1];
if (typeof(o)=="Block"&&o.gui=="STEP") {
ppath = list(i);
break;
}
}
newpar = list();
for (path in ppath) {
np = size(path,"*");
spath = list();
for (k=1;k<=np;k+=1) {
spath[$+1-1] = "model";
spath[$+1-1] = "rpar";
spath[$+1-1] = "objs";
spath[$+1-1] = path[k-1];
}
xx = arg1[spath-1];
execstr("xxn="+xx.gui+"(\'set\',xx)");
if (diffobjs(this.xxn,xx)) {
this.model = xx.model;
model_n = this.xxn.model;
if (!is_modelica_block(xx)) {
modified = or(this.model.sim!=model_n.sim)||!isequal(this.model.state,model_n.state)||!isequal(this.model.dstate,model_n.dstate)||!isequal(this.model.rpar,model_n.rpar)||!isequal(this.model.ipar,model_n.ipar)||!isequal(this.model.label,model_n.label);
if (or(this.model.in1!=model_n.in1)||or(this.model.out!=model_n.out)) {
needcompile = 1;
}
if (or(this.model.firing!=model_n.firing)) {
needcompile = 2;
}
if (this.model.sim=="input"||this.model.sim=="output") {
if (this.model.ipar!=model_n.ipar) {
needcompile = 4;
}
}
if (or(this.model.blocktype!=model_n.blocktype)||or(this.model.dep_ut!=model_n.dep_ut)) {
needcompile = 4;
}
if ((this.model.nzcross!=model_n.nzcross)||(this.model.nmode!=model_n.nmode)) {
needcompile = 4;
}
if (prod(size(model_n.sim))>1) {
if (model_n.sim[2-1]>1000) {
if (this.model.sim[1-1]!=model_n.sim[1-1]) {
needcompile = 4;
}
}
}
} else {
modified = or(model_n!=this.model);
eq = this.model.equations;
eqn = model_n.equations;
if (or(eq.model!=eqn.model)||or(eq.inputs!=eqn.inputs)||or(eq.outputs!=eqn.outputs)) {
needcompile = 4;
}
}
arg1[spath-1] = this.xxn;
newpar[size(newpar)+1-1] = path;
}
}
this.x = arg1;
y = needcompile;
typ = newpar;
return new BasicBlock(this.x);
}
}
|
