8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
% Acausal bond graph to causal bond graph: mfile format
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.3 1996/08/18 20:08:02 peter
% %% Included additional structure: structure(5) = zero_outputs.
% %%
% %% Revision 1.2 1996/08/08 18:08:11 peter
% %% Sorted out file naming sceme
% %%
% %% Revision 1.1 1996/08/08 15:53:23 peter
|
>
>
>
|
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
% Acausal bond graph to causal bond graph: mfile format
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.4 1996/08/19 09:03:41 peter
% %% Handles repeating components.
% %%
% %% Revision 1.3 1996/08/18 20:08:02 peter
% %% Included additional structure: structure(5) = zero_outputs.
% %%
% %% Revision 1.2 1996/08/08 18:08:11 peter
% %% Sorted out file naming sceme
% %%
% %% Revision 1.1 1996/08/08 15:53:23 peter
|
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
eval(['structure = ', ...
eqn_name, ...
'(bond_list,comp_bonds,direction,cr,args,structure,filenum);' ]);
end;
end;
end;
fclose(filenum);
|
>
|
|
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
eval(['structure = ', ...
eqn_name, ...
'(bond_list,comp_bonds,direction,cr,args,structure,filenum);' ]);
end;
end;
end;
fprintf(filenum, 'END;');
fclose(filenum);
|