Modal Analysis for 3 pendulum with springs problem

by Nasser M Abbasi

This small note shows how to use Mathematica to solve symbolically for a problem in vibration to find the natural frequencies that a system of 3 masses will vibrate in. This digram below describes the problem. We use Lagrangian formulation to determine the equation of motions, then use modal analysis to decouple the system and solve it. In this system , the springs are attached at a distant α From the edge. Each pendulum has length L and has masses m1,m2,m3 attached to the end. The initial conditions are θ(0)={Pi/4,Pi/4,Pi/4} and "note1_1.gif"={0,0,0}

"note1_2.gif"

Define a function which accepts the kinetic and potential energy and return back the stiffness and the mass matrix

In[1]:=

"note1_3.gif"

In[2]:=

"note1_4.gif"

In[8]:=

"note1_5.gif"

Now define the kinetic and potenatial energy

In[9]:=

"note1_6.gif"

Now call the above function to generate the stiffness and mass matrix. It also prints the 3 equations of motion

In[11]:=

"note1_7.gif"

"note1_8.gif"

"note1_9.gif"
"note1_10.gif"
"note1_11.gif"

Now print the STIFFNESS and MASS matrix

In[12]:=

"note1_12.gif"

"note1_13.gif"

Now that we have the stiffness and mass matrix, we can perform modal analysis. Start by doing the first transformation

In[16]:=

"note1_14.gif"

"note1_15.gif"

In[20]:=

"note1_16.gif"

Out[23]=

"note1_17.gif"

In[24]:=

"note1_18.gif"

"note1_19.gif"

In[26]:=

"note1_20.gif"

"note1_21.gif"

Now find Λ matrix

In[29]:=

"note1_22.gif"

Out[29]=

"note1_23.gif"

Hence the decoupled system of differential equations is

In[30]:=

"note1_24.gif"

"note1_25.gif"

Now convert the IC from θ (t) space to r (t) space

In[35]:=

"note1_26.gif"

Out[36]=

"note1_27.gif"

In[37]:=

"note1_28.gif"

Out[38]=

"note1_29.gif"

Now solve the r (t) system

In[42]:=

"note1_30.gif"

"note1_31.gif"

In[45]:=

"note1_32.gif"

"note1_33.gif"

In[48]:=

"note1_34.gif"

"note1_35.gif"

Now convert solution from r (t) to θ (t)

In[51]:=

"note1_36.gif"

Out[51]//MatrixForm=

"note1_37.gif"

In[52]:=

"note1_38.gif"

Now plot the solutions

In[55]:=

"note1_39.gif"

"note1_40.gif"

In[56]:=

"note1_41.gif"

"note1_42.gif"

In[57]:=

"note1_43.gif"

"note1_44.gif"

In[58]:=

"note1_45.gif"

Out[58]=

"note1_46.gif"

Spikey Created with Wolfram Mathematica 7.0