Index: mttroot/mtt/lib/comp/simple/cieqn.m ================================================================== --- mttroot/mtt/lib/comp/simple/cieqn.m +++ mttroot/mtt/lib/comp/simple/cieqn.m @@ -14,10 +14,13 @@ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ +% %% Revision 1.2 1997/12/04 13:48:00 peterg +% %% Added sign info to take account of direction of bonds. +% %% % %% Revision 1.1 1997/04/09 10:18:26 peterg % %% Initial revision % %% % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% @@ -40,17 +43,18 @@ RHS_cause = (bonds(:,1)==CorI*ones(ports,1))*CorI state_cause = zeros(ports,1); % State causality for outport = 1:ports - % Sort out direction - if direction(outport,1) == 1 - sign = '+'; - else - sign = '-'; - end; - +# % Sort out direction +# if direction(outport,1) == 1 +# sign = '+'; +# else +# sign = '-'; +# end; + + sign = '+'; LHS_number = bond_number(outport); if bonds(outport,1) == -CorI % Integral causality on this port state = structure(1)+1; LHS_cause = CorI;