Index: mttroot/mtt/bin/trans/abg2cbg_m ================================================================== --- mttroot/mtt/bin/trans/abg2cbg_m +++ mttroot/mtt/bin/trans/abg2cbg_m @@ -11,10 +11,14 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.2 1996/08/05 11:25:00 peter +## Removed bonds argument from abg2cbg. +## Removed call to $1_abg. +## ## Revision 1.1 1996/08/04 17:45:11 peter ## Initial revision ## ############################################################### @@ -87,27 +91,22 @@ infofile= '$infofile'; %Convert from acausal to causal bond graph in m-file form. system_name = '$1'; - [cbonds,status] = abg2cbg(system_name,infofile); - - - %Write the function m-file for the causal bond graph - filename = '$1_cbg.m'; - c = '%'; - fprintf(filename, 'function [cbonds,status] = $1_cbg\n'); - fprintf(filename, '%s [cbonds,status] = $1_cbg\n', c); - fprintf(filename, '%s Causal bond graph created by MTT on %s \n\n', ... - c, date); - mat2mfile(cbonds, 'cbonds', filename); - mat2mfile(status, 'status', filename); + + % THIS IS A NASTY BUG WORKROUND FOR OCTAVE + abg2cbg('RC','RC' ,'', [], infofile); + + port_bonds = []; + [cbonds,status] = abg2cbg(system_name, '', '', port_bonds,infofile); EOF cat mtt_info.txt +cp $1_$1_cbg.m $1_cbg.m