Advanced Search

mmasoudsf

0 Reputation

2 Badges

13 years, 55 days
Contact mmasoudsf

MaplePrimes Activity


These are replies submitted by mmasoudsf

Re: rlopez...

mmasoudsf 0
May 11 2012
0 0

Dear rlopz,

Thanks for your response. My code comes below. If you run it in Maple, you will see the final result as I said before, You don't need to investigate the code in detail, please guide me about the appearance of the final result in the form I wrote in my previous post.

R0:=omega(q)^2*diff(phi(t,q),t$2)+landa^2*phi(t,q)+(L*V^2+DD*V^2*phi(t,q)^2-(S-E*V^2)*phi(t,q)^3+G*V^2*phi(t,q)^4)/M;
R:=h*R0;
RR:=subs(q=0,R);
u0:=0;
RR0:=subs(phi(t,0)=u0,RR);
RR0ans:=subs(D[1,1](phi)(t,0)=0,RR0);
LL:=omega0^2*((D@@2)(phi(t,q))(t)+phi(t,q));
LL0:=LL=RR0ans;
RRR:=subs(q=0,LL0);
RRR1:=subs((D@@2)(phi(t,0))(t)=(D@@2)(u1)(t),RRR);
RRR2:=subs(phi(t,0)=u1(t),RRR1);
convert(%, diff);
ans:=dsolve({RRR2,u1(0)=0,D(u1)(0)=0},u1(t));
DRR:=diff(R,q);
RRR33:=subs(diff(phi(t,q),q)=ans,DRR);
RRR3:=subs(diff(omega(q),q)=omegap,RRR33);
RRR4:=subs(q=0,RRR3);
u0:=0;
RRR5:=subs(phi(t,0)=u0,RRR4);
RR1ans:=subs(D[1,1](phi)(t,0)=0,RRR5);
LLL:=omega0^2*(diff(phi(t,q),t$2)+phi(t,q));
LLL1:=subs(diff(phi(t,q),t$2)=diff(u1(t),t$2),LLL);
LLL12:=subs(phi(t,q)=u1(t),LLL1);
LLL2:=subs(diff(phi(t,q),t$2)=diff(u2(t),t$2),LLL);
LLL22:=subs(phi(t,q)=u2(t),LLL2);
LLL3:=LLL22-LLL12=RR1ans;
LL4:=subs([u1(t)=ans,diff(u1(t),t$2)=diff(ans,t$2)],LLL3);

 

Best regards,

Re: rlopez...

mmasoudsf 0
May 11 2012

Dear rlopz,

Thanks for your response. My code comes below. If you run it in Maple, you will see the final result as I said before, You don't need to investigate the code in detail, please guide me about the appearance of the final result in the form I wrote in my previous post.

R0:=omega(q)^2*diff(phi(t,q),t$2)+landa^2*phi(t,q)+(L*V^2+DD*V^2*phi(t,q)^2-(S-E*V^2)*phi(t,q)^3+G*V^2*phi(t,q)^4)/M;
R:=h*R0;
RR:=subs(q=0,R);
u0:=0;
RR0:=subs(phi(t,0)=u0,RR);
RR0ans:=subs(D[1,1](phi)(t,0)=0,RR0);
LL:=omega0^2*((D@@2)(phi(t,q))(t)+phi(t,q));
LL0:=LL=RR0ans;
RRR:=subs(q=0,LL0);
RRR1:=subs((D@@2)(phi(t,0))(t)=(D@@2)(u1)(t),RRR);
RRR2:=subs(phi(t,0)=u1(t),RRR1);
convert(%, diff);
ans:=dsolve({RRR2,u1(0)=0,D(u1)(0)=0},u1(t));
DRR:=diff(R,q);
RRR33:=subs(diff(phi(t,q),q)=ans,DRR);
RRR3:=subs(diff(omega(q),q)=omegap,RRR33);
RRR4:=subs(q=0,RRR3);
u0:=0;
RRR5:=subs(phi(t,0)=u0,RRR4);
RR1ans:=subs(D[1,1](phi)(t,0)=0,RRR5);
LLL:=omega0^2*(diff(phi(t,q),t$2)+phi(t,q));
LLL1:=subs(diff(phi(t,q),t$2)=diff(u1(t),t$2),LLL);
LLL12:=subs(phi(t,q)=u1(t),LLL1);
LLL2:=subs(diff(phi(t,q),t$2)=diff(u2(t),t$2),LLL);
LLL22:=subs(phi(t,q)=u2(t),LLL2);
LLL3:=LLL22-LLL12=RR1ans;
LL4:=subs([u1(t)=ans,diff(u1(t),t$2)=diff(ans,t$2)],LLL3);

 

Best regards,

Page 1 of 1