Artifact eb6c0cbeba8a17265aba18781a258e8f76f604d223c88d3499e3b1a2813a96d1:

• Executable file mtt/lib/examples/Mechanical/Mechanical-2D/TwoLink/twolink_params.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: 760) [annotate] [blame] [check-ins using] [more...]
• Executable file mtt/lib/examples/Mechanical/Mechanical-2D/gTwoLink/twolink_params.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: 760) [annotate] [blame] [check-ins using]
• Executable file mttroot/mtt/lib/examples/Mechanical/Mechanical-2D/TwoLink/twolink_params.r — part of check-in [6d1fb2bcbf] at 1996-12-05 12:18:36 on branch origin/master — Initial revision (user: gawthrop@users.sourceforge.net, size: 760) [annotate] [blame] [check-ins using]
• Executable file mttroot/mtt/lib/examples/Mechanical/Mechanical-2D/gTwoLink/twolink_params.r — part of check-in [6d1fb2bcbf] at 1996-12-05 12:18:36 on branch origin/master — Initial revision (user: gawthrop@users.sourceforge.net, size: 760) [annotate] [blame] [check-ins using]

%% Parameter file for system twolink (twolink_params.r)
%% This file provides symbolic parameters for simplification

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

% Useful trig simplifications


        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;

% Some simplifications -- see book
j := m*l*l/3;

END;