%% Reduce commands to simplify output for system TwoLinkP (TwoLinkP_simp.r)

% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

LET cos(mttx2) = c_2;
LET sin(mttx2) = s_2;

LET cos(mttx4) = c_4;
LET sin(mttx4) = s_4;

LET cos(mttx2-mttx4) = c;
LET sin(mttx2-mttx4) = s;

END;
