Cavemaann

5 Reputation

One Badge

6 years, 213 days

MaplePrimes Activity


These are replies submitted by Cavemaann

@tomleslie @JohnS 

Its been a fun ride, why cant "n" be anything else but an integer, its no fun.  alpha*L=n*Pi is a solution for the regid body beam theory, i was trying to achieve a solution for my specific scenario which is  valid for a G-G beam via K functions.  the missing link is the code and conditions i have to set to get the answer that was sought. higher end frequencies are very accurate with the method but for lower frequencies other methods should be considered. 

Anyway, if i wanted to consider a concentrated mass on the beam, how would i have to manipulate the PDE (govering equation) to consider that into account? Any jump start on that :D

Mech_Vib_Final.mw 

@tomleslie 

the final solution we got for W(x) was not in terms of sin, it was W(x) = D4*cos(n*Pi*x/L), and since D4 cannot be zero the cos term has to be zero but integers of n gives us the cos expression to be equal to 1 not zero :(

More over, what else is confusing me, why cant we plot a graph for it to find the roots(natural frequencies of the G-G beam)

the file i have attached has the solution implemented which i have solved via k-functions(characterictic eq was derived by hand in the notes i have attached). Another question, why is the solution different if solved by a different method and why does it plot the graph to give us the roots.

Im not saying the code is wrong or the answer achieved is wrong, since that is what youd get even if solved by hand, I cant seem to find a link between the two methods when they both solve for natural frequencies of the system.

K4square_equal_K2square1.mw

@acer 

if it were that easy, would you think id be crying here for a week? :D

@tomleslie 

so, times almost up, i have been searching everywhere to try to solve this, even talked to a couple of colleagues but they dont seem to want to help, even the professor has not replied to meet me since i messaged him last thurday. 

Anyway to cut the complications and imprecisions short, i need to plot for

(1/2(sinh(alpha*L)-sin(alpha*L))= (1/2(sinh(alpha*L)-sin(alpha*L))2

I need to find the first 10 roots and/or solve for (alpha*L) which would give me the first 10 natural frequencies

I have attached the file, just need to plot for (alpha*L)

K4square_equal_K2square.mw

@tomleslie

Heres the code


 

``

  restart;
#
# Define PDE
#
  pde:= E*M*diff(w(x,t),x$4)+A*rho*diff(w(x,t),t$2)=0;

E*M*(diff(diff(diff(diff(w(x, t), x), x), x), x))+A*rho*(diff(diff(w(x, t), t), t)) = 0

(1)


  test1:=w(x,t)=W(x)*cos(omega*t);
  pde1:=expand(eval(pde, test1)/(cos(omega*t)*E*M));
#
# Tidy up all the constants
#
  ode:=algsubs(A*rho*omega^2/(E*M)=alpha^4, pde1);
  sol:=simplify( convert(dsolve(ode), trig));
op(list, sol);
sol:=subs( [ op([2,1,1],sol)=D1,
               op([2,2,1],sol)=D2,
               op([2,5,1],sol)=D3,
               op([2,6,1],sol)=D4
             ],
             sol
           );
#
# Try the first couple of boundary conditions
#
  b1:= simplify(rhs(eval( diff(sol, x), x=0))=0);
  b2:= simplify(rhs(eval( diff(sol, x$3), x=0))=0);

  bc1:=solve([b1, b2], [D1, D3])[];
  sol:=eval(sol, bc1);
 

w(x, t) = W(x)*cos(omega*t)

 

diff(diff(diff(diff(W(x), x), x), x), x)-A*rho*W(x)*omega^2/(E*M) = 0

 

-W(x)*alpha^4+diff(diff(diff(diff(W(x), x), x), x), x) = 0

 

W(x) = _C1*cosh(alpha*x)+_C2*cosh(alpha*x)+_C1*sinh(alpha*x)-_C2*sinh(alpha*x)+_C3*sin(alpha*x)+_C4*cos(alpha*x)

 

op(list, W(x) = _C1*cosh(alpha*x)+_C2*cosh(alpha*x)+_C1*sinh(alpha*x)-_C2*sinh(alpha*x)+_C3*sin(alpha*x)+_C4*cos(alpha*x))

 

W(x) = D1*cosh(alpha*x)+D2*cosh(alpha*x)+D1*sinh(alpha*x)-D2*sinh(alpha*x)+D3*sin(alpha*x)+D4*cos(alpha*x)

 

D1*alpha-D2*alpha+D3*alpha = 0

 

D1*alpha^3-D2*alpha^3-D3*alpha^3 = 0

 

[D1 = D2, D3 = 0]

 

W(x) = 2*D2*cosh(alpha*x)+D4*cos(alpha*x)

(2)


   b3:= simplify(rhs(eval( diff(sol, x), x=L))/alpha=0);
   b4:= simplify(rhs(eval( diff(sol, x$3), x=L))/alpha^3=0);

  b4-b3;

  b4+b3;

  sol:=eval(sol, [D4=0, alpha=n*Pi/L]);
 

2*D2*n*Pi*sinh(n*Pi)/(L*alpha) = 0

 

2*D2*n^3*Pi^3*sinh(n*Pi)/(L^3*alpha^3) = 0

 

2*D2*n^3*Pi^3*sinh(n*Pi)/(L^3*alpha^3)-2*D2*n*Pi*sinh(n*Pi)/(L*alpha) = 0

 

2*D2*n^3*Pi^3*sinh(n*Pi)/(L^3*alpha^3)+2*D2*n*Pi*sinh(n*Pi)/(L*alpha) = 0

 

W(x) = 2*D2*cosh(n*Pi*x/L)

(3)

#
# Rebuild the complete solution
#
  ans:=eval(test1, sol);

w(x, t) = 2*D2*cosh(n*Pi*x/L)*cos(omega*t)

(4)


  omega__n:= rhs~
             ( [ ( allvalues
                   ( isolate
                     ( A*rho*omega^2/(E*M)=(n*Pi/L)^4,
                       omega
                     )
                   )
                 )
               ]
             );

  ans:=eval(ans, omega=omega__n[1]);

[(n^4*Pi^4*E*M/(L^4*A*rho))^(1/2), -(n^4*Pi^4*E*M/(L^4*A*rho))^(1/2)]

 

w(x, t) = 2*D2*cosh(n*Pi*x/L)*cos((n^4*Pi^4*E*M/(L^4*A*rho))^(1/2)*t)

(5)

 

``


 

Download Beam_vibration.mw 

@tomleslie 

I edited my reply above, i ran the exact code you uploaded, the reason i was getting the code because your simplified answer had the sinh and cosh terms combined and i was getting them seperately, i manipulated the subs(op) command and the error is gone, but i dont know how to replace (C1+C2)=D1 and (C1-C2)=D2 since all the subs(op) is doing is replace "C" constants with "D" constants

Sorry, my mistake, those were the asymptotic solutions for alpha*L

alpha*L= 0, 1*pi, 2*pi, 3*pi... (note: lets not take alpha*L=0 because that will give us a trivial solution which we dont want) therefore i suppose n is going to be 1,2,3... to find the roots for this specific solution?

@tomleslie 

Yeah you have solved for a non-trivial solution thats not what i was questioning, i was maybe thinking out loud on how to construct questions for the professor, alpha cannot be zero because that would make ω=0 which cannot be since we want to find ω for its first 10 natural frequencies. 

To solve for that we need to subsitute alpha*L = 4.73, 7.853, 10.996 to find the roots of the solution we got. I have been trying to solve it on Maply '15, but its throwing me errors since it said the code was constructed on a later version of maple. phi is also zero, we can remove it from the initial condition

Also, this is the error i get when i run it on my PC:

I removed phi from I.C and manipulated the sups(op) becuase my simpified answer was different than your, since i am using Maple '15 i think, anyway, how do i put (C1+C2)=D1 and (C1-C2)=D2

I will follow up with the professor about it, it seems good till the D2 and D4 which we have to solve simultaneously, i will refer to my notes and try to understand which conditions would be right for it to get a non-trivial solution. I also have to plot graph and see if the natural frequencies i get are coherent with the professors. Why did you take alpha*L=n*Pi, kinda confusing 

i implemented the BC, i let the solution stay as it is couldnt simplify it further but i am still confused what im missing, please tell me what im doing wrong

beam_vibration_displacement.mw

Page 1 of 1