Function: calc[SpringMassCouplet] - animates the motion of spring-couplet masses 

Calling Sequence:  

SpringMassCouplet(L, inits, F, tr, n, print1, print2) 

Parameters: 

L -  ,,, , three masses and four springs, spring ( ) connected to the right-hand wall. 

L -  ,,, three masses and three springs, no spring connected to the right-hand wall. 

L -  ,, , two masses and three springs, spring ( ) connected to the right-hand wall. 

L -  ,, two masses and two springs, no spring connected to the right-hand wall 

inits - , initial conditions in the case of three masses and three springs. 

F -   , external force vector.
n - number of frames. 

tr - maximum value of the independent variable used in the plot. 

print1 - any name, array prints out   and the print2 - any name, prints out the solution of the system. 

Description: 

• SpringMassCouplet animates the motion of two or three masses connected to attached springs. The motion is described by the differential equations

Examples: 

>	restart: with(calc):

 

>	L:=[[1,1],[1,2],[1,2],3]:init:=[-1.5,1,0,0,0,0]: F:=[0,0,0]: #three masses and four springs

 

>	SpringMassCouplet(L,init,F,10,40,p1,p2,scaling=unconstrained,axes=frame):

 

>

p2;

 

>	array(p1);