Differences From Artifact [e45cd58f37]:
- Executable file mttroot/mtt/lib/examples/Mechanical/Mechanical-2D/TwoLink/TwoLink_subs.r — part of check-in [ab744da7a6] at 1998-03-22 20:12:51 on branch origin/master — Initial revision (user: gawthrop@users.sourceforge.net, size: 631) [annotate] [blame] [check-ins using]
To Artifact [cceaeb9eae]:
- Executable file mtt/lib/examples/Mechanical/Mechanical-2D/TwoLink/TwoLink_subs.r — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 706) [annotate] [blame] [check-ins using] [more...]
- Executable file mttroot/mtt/lib/examples/Mechanical/Mechanical-2D/TwoLink/TwoLink_subs.r — part of check-in [c095ced636] at 1998-03-22 20:13:25 on branch origin/master — Trig simplification added (user: gawthrop@users.sourceforge.net, size: 706) [annotate] [blame] [check-ins using]
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | + + + + |
%% Reduce substitution statements for system TwoLink (TwoLink_subs.r)
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% Version control history
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% %% $Id$
% %% $Log$
% %% Revision 1.1 1998/03/22 20:12:51 peterg
% %% Initial revision
% %%
% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
trig1 := {cos(~x)*cos(~y) => (cos(x+y)+cos(x-y))/2,
cos(~x)*sin(~y) => (sin(x+y)-sin(x-y))/2,
sin(~x)*sin(~y) => (cos(x-y)-cos(x+y))/2,
cos(~x)^2 => (1+cos(2*x))/2,
sin(~x)^2 => (1-cos(2*x))/2};
LET trig1;
END;
|