Index: mttroot/mtt/lib/cr/r/lcos.cr ================================================================== --- mttroot/mtt/lib/cr/r/lcos.cr +++ mttroot/mtt/lib/cr/r/lcos.cr @@ -14,10 +14,13 @@ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ +% %% Revision 1.1 1996/11/02 10:18:07 peterg +% %% Initial revision +% %% % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% OPERATOR lcos; @@ -43,5 +46,7 @@ ) LET lcos(gain_causality, gain, causality, outport, input, causality, inport, m_input, m_causality, 3) = input/(cos(m_input)*gain); + +END;; Index: mttroot/mtt/lib/cr/r/lsin.cr ================================================================== --- mttroot/mtt/lib/cr/r/lsin.cr +++ mttroot/mtt/lib/cr/r/lsin.cr @@ -14,10 +14,13 @@ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ +% %% Revision 1.1 1996/11/02 10:18:25 peterg +% %% Initial revision +% %% % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% OPERATOR lsin; @@ -44,7 +47,6 @@ LET lsin(gain_causality, gain, causality, outport, input, causality, inport, m_input, m_causality, 3) = input/(sin(m_input)*gain); - - +END;;