208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
|
## Handle special components
if strcmp(comp_type,"0")||strcmp(comp_type,"1") # Junctions
[eqn,insigs,innames] = junction_seqn (comp_type,Name, outsig, \
insigs, innames);
else # Everything else
if exist(sprintf("%s_cause", comp_type)) # Simple component
## Do the equations
[eqn,insigs,innames] = eval(sprintf("%s_seqn (Name, name, cr, arg, outsig, insigs, innames);", comp_type));
else # Compound component
new_NAME = Name;
new_Name = mtt_fullname(Name,name);
new_name = "";
## Get relevant data structure
Cbg = mtt_cbg(new_Name);
|
|
>
>
>
>
>
>
>
|
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
|
## Handle special components
if strcmp(comp_type,"0")||strcmp(comp_type,"1") # Junctions
[eqn,insigs,innames] = junction_seqn (comp_type,Name, outsig, \
insigs, innames);
else # Everything else
if exist(sprintf("%s_cause", comp_type)) # Simple component
## Do the equations
[eqn,insigs,innames] = eval(sprintf("%s_seqn (Name, name, cr, \
arg, outsig, \
insigs, \
innames);", \
comp_type));
## Resolve CR
eqn = mtt_resolve_cr(eqn);
else # Compound component
new_NAME = Name;
new_Name = mtt_fullname(Name,name);
new_name = "";
## Get relevant data structure
Cbg = mtt_cbg(new_Name);
|