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.27 1998/08/25 07:16:49 peterg
# ## Modified to data struture representation
# ##
# ## Revision 1.26 1998/08/24 14:53:55 peterg
# ## Uses new _cbg structure.
# ##
# ## Revision 1.25 1998/07/28 19:05:12 peterg
|
>
>
>
|
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.28 1998/08/25 08:31:42 peterg
# ## Fixed bug - didn't find the ports - use deblank
# ##
# ## Revision 1.27 1998/08/25 07:16:49 peterg
# ## Modified to data struture representation
# ##
# ## Revision 1.26 1998/08/24 14:53:55 peterg
# ## Uses new _cbg structure.
# ##
# ## Revision 1.25 1998/07/28 19:05:12 peterg
|
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
|
disp("---POP---");
else # its a simple component
fprintf(ese_file, "\n\t%s Equations for component %s (%s), repetition %d\n\n", ...
pc, comp_name, subsystem.type,k);
# Is it a named port? (Name begins with [)
Named_Port = (comp_name(1)=="[");
if Named_Port #Add [ to start of name
name_r = ["[" name_r];
endif;
# Save the current structure
old_structure = structure;
# Generate the simple component equations
|
|
|
|
|
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
|
disp("---POP---");
else # its a simple component
fprintf(ese_file, "\n\t%s Equations for component %s (%s), repetition %d\n\n", ...
pc, comp_name, subsystem.type,k);
# # Is it a named port? (Name begins with [)
# Named_Port = (comp_name(1)=="[");
if strcmp(field,"ports") #Add [ to start of name
name_r = ["[" name_r];
endif;
# Save the current structure
old_structure = structure;
# Generate the simple component equations
|