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.41 2001/04/15 21:15:41 geraint
## ## Added interface definition rep: _ICD.(txt|c|cc|m).
## ##
## ## Revision 1.40 2001/02/05 01:50:29 geraint
## ## No unit type comparison at ports if either is "none".
## ##
## ## Revision 1.40 2000/12/16 08:10:55 geraint
|
>
>
>
>
|
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
## Structure matrix [states,nonstates,inputs,outputs,zero_outputs]
## ###############################################################
## ## Version control history
## ###############################################################
## ## $Id$
## ## $Log$
## ## Revision 1.42 2001/04/23 16:23:30 gawthrop
## ## Now stips ; from bottlom level argument list - allows aliasing of
## ## parts of a,b,c (eg a,b by using a,b;c
## ##
## ## Revision 1.41 2001/04/15 21:15:41 geraint
## ## Added interface definition rep: _ICD.(txt|c|cc|m).
## ##
## ## Revision 1.40 2001/02/05 01:50:29 geraint
## ## No unit type comparison at ports if either is "none".
## ##
## ## Revision 1.40 2000/12/16 08:10:55 geraint
|
497
498
499
500
501
502
503
504
505
506
507
508
509
510
|
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\n", ...
structure_name(which_index,:), value-k+1, ...
comp_name, full_name_repetition, comp_name, repetition);
endfor;
endfor;
endif;
endif
endfor
## component interface definition
|
>
|
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
|
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\n", ...
structure_name(which_index,:), value-k+1, ...
comp_name, full_name_repetition, comp_name, repetition);
fflush (structure_file);
endfor;
endfor;
endif;
endif
endfor
## component interface definition
|