19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
## Structure matrix [states,nonstates,inputs,outputs,zero_outputs]
## ###############################################################
## ## Version control history
## ###############################################################
## ## $Id$
## ## $Log$
## ## Revision 1.49 2003/03/13 15:19:04 gawthrop
## ## Now uses __ to delimit subsystems in names.
## ##
## ## Revision 1.48 2003/03/13 15:10:26 gawthrop
## ## Removed redundant final column
## ##
## ## Revision 1.47 2003/02/28 09:12:17 gawthrop
|
>
>
>
|
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.50 2003/05/08 18:47:50 gawthrop
## ## Fixed __ bug when using * representations
## ##
## ## Revision 1.49 2003/03/13 15:19:04 gawthrop
## ## Now uses __ to delimit subsystems in names.
## ##
## ## Revision 1.48 2003/03/13 15:10:26 gawthrop
## ## Removed redundant final column
## ##
## ## Revision 1.47 2003/02/28 09:12:17 gawthrop
|
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
|
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%s\t%i\t%s\n", ...
structure_name(which_index,:), value-k+1, ...
comp_name, full_name_repetition, sub_delim, comp_name, \
repetition, cause2name(-comp_bonds(1)));
endfor;
endfor;
endif;
endif
endfor
fflush (structure_file);
|
|
|
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
|
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%s\t%i\t%s\n", ...
structure_name(which_index,:), value-k+1, ...
comp_name, full_name_repetition, sub_delim, comp_name, \
repetition, cause2name(-comp_bonds(k,1)));
endfor;
endfor;
endif;
endif
endfor
fflush (structure_file);
|