salim-barzani

1670 Reputation

9 Badges

1 years, 121 days

MaplePrimes Activity


These are questions asked by salim-barzani

Before at most a year i asked about this applying long wave limit which is coming from some kind of series which i am not sure to how get this result from the series but i provide just the two function of series for appyting the long wave limit and then we can generalized to N value of them, i asked to Ai too he give me a good explanation and somehow he did programing but  i am not cool with programing of Ai,  i  am looking for result eq14 and eq 20 , i have a series for eq(12) N=2 and for other N too but by applying long wave limit it is become to eq(14) and then F[4] becone to eq(20) i want that result by don't have any idea how reach it  

Long-wave-limit-testing.mw

Ai-result.mw

update F4

In this kind of contour plot i have two line but when i change time variable t just contour of one line wil move the other is not do any movement and is stop how i can  make the second plot one second line move too? also there is any way for ploting this kind any other option?

line-2-done.mw

i did for two of them base on the information but one of them is not make my odetest to be zero? where is problem

test.mw

i try to use explor option but is not work like i want and i try to use other way but they so classical i want to ask there is any other way for do plotting of this kind of function?
in second part even plot not working?

 

Bgraph1.mw

i did substitution but my result is so different from the author i think he just take the linear term of theta but i didn't do that so how take just linear term of that function and find unknwon , and how afeter replacing eq(12) inside eq(11) we can remove thus exponential and find w? also i think author did a mistake which the equation 12 is theta(x,t) not Q(x,t)

restart

with(PDEtools)

undeclare(prime, quiet)

declare(u(x, t), quiet); declare(U(xi), quiet); declare(V(xi), quiet); declare(theta(x, t), quiet)

pde := diff(u(x, t), `$`(t, 2))-s^2*(diff(u(x, t), `$`(x, 2)))+(2*I)*(diff(u(x, t)*U^2, t))-(2*I)*alpha*s*(diff(u(x, t)*U^2, t))+I*(diff(u(x, t), `$`(x, 2), t))-I*beta*s*(diff(u(x, t), `$`(x, 3)))

diff(diff(u(x, t), t), t)-s^2*(diff(diff(u(x, t), x), x))+(2*I)*(diff(u(x, t), t))*U^2-(2*I)*alpha*s*(diff(u(x, t), t))*U^2+I*(diff(diff(diff(u(x, t), t), x), x))-I*beta*s*(diff(diff(diff(u(x, t), x), x), x))

(1)

T := u(x, t) = (sqrt(Q)+theta(x, t))*exp(I*(Q^2*epsilon*gamma+Q*q)*t); T1 := U = sqrt(Q)+theta(x, t)

u(x, t) = (Q^(1/2)+theta(x, t))*exp(I*(Q^2*epsilon*gamma+Q*q)*t)

 

U = Q^(1/2)+theta(x, t)

(2)

P := collect(eval(subs({T, T1}, pde)), exp)/exp(I*(Q^2*gamma*`ε`+Q*q)*t)

diff(diff(theta(x, t), t), t)+(2*I)*(diff(theta(x, t), t))*(Q^2*epsilon*gamma+Q*q)-(Q^(1/2)+theta(x, t))*(Q^2*epsilon*gamma+Q*q)^2-s^2*(diff(diff(theta(x, t), x), x))+(2*I)*(diff(theta(x, t), t)+I*(Q^(1/2)+theta(x, t))*(Q^2*epsilon*gamma+Q*q))*(Q^(1/2)+theta(x, t))^2-(2*I)*alpha*s*(diff(theta(x, t), t)+I*(Q^(1/2)+theta(x, t))*(Q^2*epsilon*gamma+Q*q))*(Q^(1/2)+theta(x, t))^2+I*(diff(diff(diff(theta(x, t), t), x), x)+I*(diff(diff(theta(x, t), x), x))*(Q^2*epsilon*gamma+Q*q))-I*beta*s*(diff(diff(diff(theta(x, t), x), x), x))

(3)

 

TT := Q = alpha[1]*exp(I*(k*x-t*w))+alpha[2]*exp(-I*(k*x-t*w))

Q = alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w))

(4)

S := eval(subs(TT, P))

diff(diff(theta(x, t), t), t)+(2*I)*(diff(theta(x, t), t))*(gamma*epsilon*(alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))^2+(alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))*q)-((alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))^(1/2)+theta(x, t))*(gamma*epsilon*(alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))^2+(alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))*q)^2-s^2*(diff(diff(theta(x, t), x), x))+(2*I)*(diff(theta(x, t), t)+I*((alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))^(1/2)+theta(x, t))*(gamma*epsilon*(alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))^2+(alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))*q))*((alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))^(1/2)+theta(x, t))^2-(2*I)*alpha*s*(diff(theta(x, t), t)+I*((alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))^(1/2)+theta(x, t))*(gamma*epsilon*(alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))^2+(alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))*q))*((alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))^(1/2)+theta(x, t))^2+I*(diff(diff(diff(theta(x, t), t), x), x)+I*(diff(diff(theta(x, t), x), x))*(gamma*epsilon*(alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))^2+(alpha[1]*exp((k*x-t*w)*I)+alpha[2]*exp(-I*(k*x-t*w)))*q))-I*beta*s*(diff(diff(diff(theta(x, t), x), x), x))

(5)

Download steps.mw

or for this equation 

steps-2.mw

1 2 3 4 5 6 7 Last Page 3 of 37