Attach your maple code

@Joe Riel 

I recieved your email. i have some problem, i asked them in another email.

Thanks

@Joe Riel 

Dear

thanks a lot, but there is just a file by the name of NaturalFrequenc.msim and it is not available. when i click on it, nothing is available

404 - File or directory not found.

The resource you are looking for might have been removed, had its name changed, or is temporarily unavailable.

please send them again

if it is possible, please send them to my email: mohammadhojjati@yahoo.com

thanks for your kind attention

BR

@Joe Riel 

Dear, can you help me plz???

@Joe Riel 

Thanks for your attention

I have MapleSim 6.2

@Joe Riel 

I try to create a linearized model, but i faced a lot of problem, can you help me plz? i'm wondering if you have a tutorial or video or everything that explain how to create a linearized model.

BR

@Christopher2222 

I'm an expert on Vibration and Maple. I'm going to be an expert on mapleSim too, so i want to learn the necessary analysis in mapleSim,BR

@Joe Riel 

as the first step, i want to determine natural frequencies of the simplest cases. for example i attach one of them that is a spring and a mass and the analytical natural frequency is (k/m)^0.5. Please give me more explain about your solution with LinearAnalysis. Thanx

prob1.msim

@Carl Love 

That's ok and I'm sorry.

do you know where can i find MapleSIm experts?

Hi dear

Here is the text of the code

restart;
v[Theta0] := proc (r, theta) options operator, arrow; -U*(1+a^2/r^2)*sin(theta)-(1/2)*Omega/(Pi*r)-r*Omega end proc:
v[R0] := proc (r, theta) options operator, arrow; U*(1-a^2/r^2)*cos(theta) end proc:
a1 := -(-S*V[R(n)](r)*r*n+(2*I)*Omega*r*V[R(n)](r)+(2*I)*Omega*r^2*(diff(V[R(n)](r), r))-r*v[R0](r, theta)*(diff(V[R(n)](r), r))*n-r*V[R(n)](r)*(diff(v[R0](r, theta), r))*n-I*v[Theta0](r, theta)*V[R(n)](r)*n^2-I*(diff(v[R0](r, theta), theta))*V[R(n)](r)-I*(diff(v[R0](r, theta), theta))*r*(diff(V[R(n)](r), r))+(2*I)*v[Theta0](r, theta)*V[R(n)](r)+(2*I)*v[Theta0](r, theta)*r*(diff(V[R(n)](r), r)))/(n*r) = -I*(I*(diff(v[Theta0](r, theta), theta, r))*V[R(n)](r)+I*r^2*S*(diff(V[R(n)](r), r, r))+I*r^2*v[R0](r, theta)*(diff(V[R(n)](r), r, r, r))+V[R(n)](r)*(diff(v[Theta0](r, theta), r))*n+r*V[R(n)](r)*(diff(v[Theta0](r, theta), r, r))*n-v[Theta0](r, theta)*n*(diff(V[R(n)](r), r))-v[Theta0](r, theta)*n*r*(diff(V[R(n)](r), r, r))+I*r^2*(diff(v[R0](r, theta), r))*(diff(V[R(n)](r), r, r))+I*(diff(v[R0](r, theta), r))*V[R(n)](r)+2*Omega*V[R(n)](r)*n+2*Omega*r*(diff(V[R(n)](r), r))*n+(4*I)*v[R0](r, theta)*(diff(V[R(n)](r), r))+(3*I)*r*S*(diff(V[R(n)](r), r))+(3*I)*r*(diff(v[R0](r, theta), r))*(diff(V[R(n)](r), r))+I*S*V[R(n)](r)+(5*I)*r*v[R0](r, theta)*(diff(V[R(n)](r), r, r))+(2*I)*(diff(v[Theta0](r, theta), theta))*(diff(V[R(n)](r), r))+I*(diff(v[Theta0](r, theta), theta, r))*r*(diff(V[R(n)](r), r))+I*(diff(v[Theta0](r, theta), theta))*r*(diff(V[R(n)](r), r, r)))/n^2:
a2:=isolate(a1, V[R(n)](r)):
a3:=simplify(a2, 'size'):
dsolve(a3, {V[R(n)](r)});

and this the main code,you can download the .mw either in the end of the page

thanks alot

Download ode.mw