Index: mttroot/mtt/lib/comp/simple/AE_eqn.m ================================================================== --- mttroot/mtt/lib/comp/simple/AE_eqn.m +++ mttroot/mtt/lib/comp/simple/AE_eqn.m @@ -1,14 +1,17 @@ -function structure = AE_eqn(bond_number,bonds,direction,cr,args, ... +function structure = AE_eqn(name,bond_number,bonds,direction,cr,args, ... structure,eqnfile); % AE_eqn. Equation generation for effort amplifier. % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ +% %% Revision 1.2 1996/08/30 13:23:11 peter +% %% Added bond number check +% %% % %% Revision 1.1 1996/08/22 13:12:34 peter % %% Initial revision % %% % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -28,11 +31,11 @@ f_2 = bonds(2,2); % Flow on port 1 is always zero fprintf(eqnfile, '%s := 0;\n', ... - varname(bond_number(1), -1)); + varname(name,bond_number(1), -1)); LHS_cause = 1; RHS_cause = 1; @@ -42,11 +45,11 @@ else % Bicausal: e_1 := e_2 LHS_number = bond_number(1); RHS_number = bond_number(2); end -oneeqn(LHS_number,LHS_cause,RHS_number,RHS_cause,cr,args,eqnfile); +oneeqn(name,LHS_number,LHS_cause,RHS_number,RHS_cause,cr,args,eqnfile);