| ︙ | | |
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
+
+
+
|
## Structure matrix [states,nonstates,inputs,outputs,zero_outputs]
## ###############################################################
## ## Version control history
## ###############################################################
## ## $Id$
## ## $Log$
## ## Revision 1.47 2003/02/28 09:12:17 gawthrop
## ## Two more columns in _stuc.txt: causality and subsystem name
## ##
## ## Revision 1.46 2002/08/20 15:51:17 gawthrop
## ## Update to work with ident DIY rep
## ##
## ## Revision 1.45 2002/05/22 09:15:03 gawthrop
## ## Non-repetitive components no longer use _1 in names
## ##
## ## Revision 1.44 2001/11/11 18:12:30 geraint
|
| ︙ | | |
176
177
178
179
180
181
182
183
184
185
186
187
188
189
|
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
|
+
+
|
## ##
## #############################################################
## disp("cbg2ese");
## system_name, system_type, full_name, repetition
pc = "%";
sub_delim = "__"; # Subsystem delimiter
unit_error = "Component %s connects inconsistent ports with units %s and %s"
unit_info = "Component %s connects ports with units %s and %s"
## Set up the names corresponding to the structure matrix.
structure_name = [
"state ",
"nonstate ",
|
| ︙ | | |
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
|
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
|
-
+
-
+
-
+
|
## Create the (full) system name
if at_top_level
full_name = system_name;
full_name_repetition = system_name;
system_type = system_name;
else
full_name = [full_name, "_", system_name];
full_name = [full_name, sub_delim, system_name];
if (repetition>1)
full_name_repetition = [full_name_repetition, \
"_", system_name, "_", \
sub_delim, system_name, sub_delim, \
num2str(repetition)];
else
full_name_repetition = [full_name_repetition, \
"_", system_name];
sub_delim, system_name];
endif
end;
cbg_name = [full_name, "_cbg"];
|
| ︙ | | |
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
|
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
|
-
-
+
+
-
-
+
+
|
## Link up the bonds for this compound component
fprintf(ese_file, ...
"\n\t%s Equations linking up subsystem %s (%s)\n\n", ...
pc, comp_name, subsystem.type);
if (k>1)
name_comp_name = sprintf("%s_%s_%d", ...
full_name_repetition, \
name_comp_name = sprintf("%s%s%s_%d", ...
full_name_repetition, sub_delim, \
comp_name, k);
else
name_comp_name = sprintf("%s_%s", ...
full_name_repetition, \
name_comp_name = sprintf("%s%s%s", ...
full_name_repetition, sub_delim, \
comp_name);
endif
printf("\n\t%s Equations linking up subsystem %s (%s)\n\n",\
pc, comp_name, subsystem.type);
|
| ︙ | | |
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
|
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
|
-
+
-
-
+
+
|
which_indices = getindex(structure_change,1);
which_indices = which_indices(:,2)';
for which_index=which_indices
value = structure(which_index);
value_change=value-old_structure(which_index);
for k=1:value_change
fprintf(structure_file, ...
"%s\t%i\t%s\t%s_%s\t%i\t%s\t%s\n", ...
"%s\t%i\t%s\t%s%s%s\t%i\t%s\n", ...
structure_name(which_index,:), value-k+1, ...
comp_name, full_name_repetition, comp_name, \
repetition, cause2name(-comp_bonds(1)), full_name_repetition );
comp_name, full_name_repetition, sub_delim, comp_name, \
repetition, cause2name(-comp_bonds(1)));
endfor;
endfor;
endif;
endif
endfor
fflush (structure_file);
|
| ︙ | | |