salim-barzani

1670 Reputation

9 Badges

1 years, 106 days

MaplePrimes Activity


These are replies submitted by salim-barzani

@acer  i delete becuase in top write dublicate question and becuase of that no one answer for sure i will not lose you, i love you ... i hope to get best code

@acer  is been a week i am stuck at this step and i did for a lot of simple example without have the complex term, this is a link of question

https://www.mapleprimes.com/questions/240473-How-Substitute-Function-In-Iteration-

and again i will uploaded for you here maybe you can hundle this  you are powerfull 

 

 

i want something like this 

Ex.3.2.mw

@acer i  if you watch the first u[1] is wrong and also the answer is so different from the paper result i don't know even why he change the exponential term to function of sin and cos this is answer of paper 

@janhardo  watch k6 there is just one step remain 

@mmcdara  just one step remain which removing this conjugate  and iteration not work? 

k6.mw

@mmcdara this question i asked about a week ago but no one answer me except Dr.David but he have some work in last comment he mention that, i want to solve this  by taking Laplace adomian decomposition method but some issue appear for me i know each step do it by hand step by step and do it maple even but is need so much time for calculating all term one by one becuase of that i want to do systematically and  automatically  do all calculation i did a great program for that but as i mention in my adomian polynomial which is A[i] some term like abs(U)^2 appear which not remove by my loop and after that when i want to find iteration of approximate solution  again there is another problem appear which is conjugate(u) appear i want to remove that in my iteration too, i will put my figure of solution in here for more undrestand and there is a problem in naming letter of your code in A[i] this (i) not change i will mention in last picture
also i have more easy example which i solved automatically i will put the file if needed please mention ?

Re-Issue-mmcdara.mw

@mmcdara i belive that your coding is special and is very powerfull which can hundle %90 percent of programing, and still  there are a lot code of yours which i used , i hope participate my question and give us a chance to see your technique , thank you .

@janhardo  is wrong is not like that , is so different 

@mmcdara you are right about my answer but  i am not sure i am wrong or answer of him is wrong , thank you for your answer is been a while you didn't answer my question  i think you are mad at me?

 

@janhardo  we have some stuff  like conjugate(U[i](x,t)) and diff(U[i](x,t),x) and diff(conjugate(U[i](x,t)),x) i have to seperate this |U[i](x,t)|^n=U[i](x,t)*comjugate(U[i](x,t)) i know this but in coding i don't know how do that becuase if i don't seperate this i can't get my solution i did a lot of example but thus example don't have thus term if i can do this step the whole procecure will be end

@janhardo  i try use Ai but didn't give me anything usefull , when i test all of them give me error

@dharr i try to explain more in here step by step , i hope this time undrestand otherwise i have to send you a easy paper with solution , if you try use my first code which just u remain to put inside u[i] and do magic stuff like assume real or something like that maybe work , take your time i will be wait 

fully_explain.mw

@dharr is not just about u_xx all part is together when we say u[i+1] when i=0 it mean u[1]=invlapalce(1/s*laplace(linear part + nonlinear part)
which linear part we have u_xx we put u[0]  so we have diff(u[0]=beta*exp(I*x),xx) 
also non linear part we have A[0]  put u[0] inside each term which conclude u[0] diff(u[0],x) and conjugate(u[0]) at this part this conjugate again make problem becuase function is exponential is not evaluate true 

just one time slowly look at my supervisor code and watch the pdf you will get idea even my code is better but he take out all part and for laplace about that t you said  i just copy the code of supervisor so if it is wrong why worked at there 

@dharr  this time  all structure work pretty but this u[i] remain when substitute why not evaluate the conjugate like paper did, i did but this conjugate  i think make a problem the important part remain which calculating u[i+1] in my file how we can get that

u[0] := beta*exp(x*I);
                     u[0] := beta exp(I x)

for i from 0 to 4 do
    u[i + 1] := invlaplace(1/s*laplace(-diff(u[i], x $ 2)*I + A[i], t, s), s, t);
end do;

@dharr i am not sure is exactly the same or not becuase there is a lot of term like |u|^2 which is |u|^2=u*conjgate(u) and |u|^4=u^2*conjugate(u)^2 also i checked the p[1] is not same but if we devide by 2 is same but in my code is directly give it to me 

restart

with(inttrans)

with(PDEtools)

with(DEtools)

with(Physics)

declare(u(x, t), quiet); declare(v(x, t), quiet)

undeclare(prime)

`There is no more prime differentiation variable; all derivatives will be displayed as indexed functions`

(1)

pde := u(x, t)+I*(diff(u(x, t), `$`(x, 2)))+(2*I)*(diff(u(x, t)*conjugate(u(x, t)), x))*u(x, t)+I*u(x, t)^2*conjugate(u(x, t))^2*u(x, t)

u(x, t)+I*(diff(diff(u(x, t), x), x))+(2*I)*((diff(u(x, t), x))*conjugate(u(x, t))+u(x, t)*(diff(conjugate(u(x, t)), x)))*u(x, t)+I*u(x, t)^3*conjugate(u(x, t))^2

(2)

pde_linear, pde_nonlinear := selectremove(proc (term) options operator, arrow; not has((eval(term, u(x, t) = T*u(x, t)))/T, T) end proc, expand(pde))

u(x, t)+I*(diff(diff(u(x, t), x), x)), (2*I)*u(x, t)*(diff(u(x, t), x))*conjugate(u(x, t))+(2*I)*u(x, t)^2*(diff(conjugate(u(x, t)), x))+I*u(x, t)^3*conjugate(u(x, t))^2

(3)

NULL

B[0] := -I*u[0]^3*conjugate(u[0])^2

-I*u[0]^3*conjugate(u[0])^2

(4)

B1[0] := -(2*I)*u[0]^2*(diff(u[0](x), x))

-(2*I)*u[0]^2*(diff(u[0](x), x))

(5)

T[0] := -(2*I)*u[0]*(diff(u[0](x), x))*conjugate(u[0])

-(2*I)*u[0]*(diff(u[0](x), x))*conjugate(u[0])

(6)

for n to 4 do B[n] := expand(-(2*I)*simplify(diff((sum(u[k]*lambda^k, k = 0 .. n))^3*(sum(conjugate(u[k])*lambda^k, k = 0 .. n))^2/factorial(n), [`$`(lambda, n)]))); B1[n] := expand(-(2*I)*simplify(diff((sum(u[k]*lambda^k, k = 0 .. n))^2*(sum((diff(u[k](x), x))*lambda^k, k = 0 .. n))/factorial(n), [`$`(lambda, n)]))); T[n] := expand(-(2*I)*simplify(diff((sum(u[k]*lambda^k, k = 0 .. n))*(sum(conjugate(u[k])*lambda^k, k = 0 .. n))*(sum((diff(u[k](x), x))*lambda^k, k = 0 .. n))/factorial(n), [`$`(lambda, n)]))) end do

lambda := 0; for n from 0 to 4 do P[n] := B[n]; Q[n] := B1[n]; R[n] := T[n] end do

0

 

-I*u[0]^3*conjugate(u[0])^2

 

-(2*I)*u[0]^2*(diff(u[0](x), x))

 

-(2*I)*u[0]*(diff(u[0](x), x))*conjugate(u[0])

 

-(6*I)*u[1]*abs(u[0])^4-(4*I)*conjugate(u[1])*u[0]^2*abs(u[0])^2

 

-(4*I)*(diff(u[0](x), x))*u[1]*u[0]-(2*I)*(diff(u[1](x), x))*u[0]^2

 

-(2*I)*(diff(u[0](x), x))*conjugate(u[0])*u[1]-(2*I)*conjugate(u[0])*(diff(u[1](x), x))*u[0]-(2*I)*conjugate(u[1])*(diff(u[0](x), x))*u[0]

 

-(2*I)*conjugate(u[1])^2*u[0]^3-(6*I)*u[2]*abs(u[0])^4-(12*I)*u[0]*abs(u[0])^2*abs(u[1])^2-(6*I)*conjugate(u[0])*u[1]^2*abs(u[0])^2-(4*I)*conjugate(u[2])*u[0]^2*abs(u[0])^2

 

-(4*I)*(diff(u[0](x), x))*u[0]*u[2]-(2*I)*(diff(u[0](x), x))*u[1]^2-(4*I)*(diff(u[1](x), x))*u[0]*u[1]-(2*I)*(diff(u[2](x), x))*u[0]^2

 

-(2*I)*conjugate(u[1])*(diff(u[0](x), x))*u[1]-(2*I)*(diff(u[0](x), x))*conjugate(u[2])*u[0]-(2*I)*conjugate(u[0])*(diff(u[1](x), x))*u[1]-(2*I)*conjugate(u[0])*(diff(u[0](x), x))*u[2]-(2*I)*conjugate(u[0])*(diff(u[2](x), x))*u[0]-(2*I)*conjugate(u[1])*(diff(u[1](x), x))*u[0]

 

-(2*I)*conjugate(u[0])^2*u[1]^3-(6*I)*u[3]*abs(u[0])^4-(12*I)*conjugate(u[0])*u[1]*u[2]*abs(u[0])^2-(12*I)*conjugate(u[1])*u[0]*u[2]*abs(u[0])^2-(12*I)*conjugate(u[2])*u[0]*u[1]*abs(u[0])^2-(6*I)*conjugate(u[1])*u[0]^2*abs(u[1])^2-(4*I)*conjugate(u[3])*u[0]^2*abs(u[0])^2-(12*I)*u[1]*abs(u[0])^2*abs(u[1])^2-(4*I)*conjugate(u[1])*conjugate(u[2])*u[0]^3

 

-(4*I)*(diff(u[1](x), x))*u[0]*u[2]-(4*I)*(diff(u[2](x), x))*u[0]*u[1]-(4*I)*(diff(u[0](x), x))*u[0]*u[3]-(4*I)*(diff(u[0](x), x))*u[1]*u[2]-(2*I)*(diff(u[1](x), x))*u[1]^2-(2*I)*(diff(u[3](x), x))*u[0]^2

 

-(2*I)*conjugate(u[0])*(diff(u[0](x), x))*u[3]-(2*I)*conjugate(u[0])*(diff(u[1](x), x))*u[2]-(2*I)*conjugate(u[0])*(diff(u[2](x), x))*u[1]-(2*I)*conjugate(u[0])*(diff(u[3](x), x))*u[0]-(2*I)*conjugate(u[1])*(diff(u[0](x), x))*u[2]-(2*I)*conjugate(u[1])*(diff(u[1](x), x))*u[1]-(2*I)*conjugate(u[1])*(diff(u[2](x), x))*u[0]-(2*I)*(diff(u[0](x), x))*conjugate(u[2])*u[1]-(2*I)*(diff(u[0](x), x))*conjugate(u[3])*u[0]-(2*I)*(diff(u[1](x), x))*conjugate(u[2])*u[0]

 

-(6*I)*u[0]*abs(u[1])^4-(6*I)*conjugate(u[1])^2*u[0]^2*u[2]-(4*I)*conjugate(u[4])*u[0]^2*abs(u[0])^2-(4*I)*conjugate(u[1])*conjugate(u[3])*u[0]^3-(24*I)*u[2]*abs(u[0])^2*abs(u[1])^2-(6*I)*u[4]*abs(u[0])^4-(12*I)*conjugate(u[2])*u[0]^2*abs(u[1])^2-(12*I)*u[0]*abs(u[0])^2*abs(u[2])^2-(6*I)*conjugate(u[0])*u[2]^2*abs(u[0])^2-(2*I)*conjugate(u[2])^2*u[0]^3-(12*I)*conjugate(u[0])*u[1]*u[3]*abs(u[0])^2-(6*I)*conjugate(u[0])^2*u[1]^2*u[2]-(12*I)*conjugate(u[2])*u[1]^2*abs(u[0])^2-(4*I)*conjugate(u[0])*u[1]^2*abs(u[1])^2-(12*I)*conjugate(u[3])*u[0]*u[1]*abs(u[0])^2-(12*I)*conjugate(u[1])*u[0]*u[3]*abs(u[0])^2

 

-(2*I)*(diff(u[0](x), x))*u[2]^2-(2*I)*(diff(u[2](x), x))*u[1]^2-(2*I)*(diff(u[4](x), x))*u[0]^2-(4*I)*(diff(u[0](x), x))*u[0]*u[4]-(4*I)*(diff(u[0](x), x))*u[1]*u[3]-(4*I)*(diff(u[1](x), x))*u[0]*u[3]-(4*I)*(diff(u[1](x), x))*u[1]*u[2]-(4*I)*(diff(u[2](x), x))*u[0]*u[2]-(4*I)*(diff(u[3](x), x))*u[0]*u[1]

 

-(2*I)*conjugate(u[2])*(diff(u[1](x), x))*u[1]-(2*I)*conjugate(u[1])*(diff(u[1](x), x))*u[2]-(2*I)*conjugate(u[0])*(diff(u[1](x), x))*u[3]-(2*I)*conjugate(u[1])*(diff(u[2](x), x))*u[1]-(2*I)*conjugate(u[3])*(diff(u[0](x), x))*u[1]-(2*I)*conjugate(u[0])*(diff(u[3](x), x))*u[1]-(2*I)*conjugate(u[0])*(diff(u[4](x), x))*u[0]-(2*I)*conjugate(u[0])*(diff(u[0](x), x))*u[4]-(2*I)*conjugate(u[0])*(diff(u[2](x), x))*u[2]-(2*I)*conjugate(u[1])*(diff(u[3](x), x))*u[0]-(2*I)*conjugate(u[2])*(diff(u[0](x), x))*u[2]-(2*I)*conjugate(u[3])*(diff(u[1](x), x))*u[0]-(2*I)*conjugate(u[4])*(diff(u[0](x), x))*u[0]-(2*I)*conjugate(u[2])*(diff(u[2](x), x))*u[0]-(2*I)*conjugate(u[1])*(diff(u[0](x), x))*u[3]

(7)

for i from 0 to 4 do A[i] := P[i]+Q[i]+R[i] end do

-I*u[0]^3*conjugate(u[0])^2-(2*I)*u[0]^2*(diff(u[0](x), x))-(2*I)*u[0]*(diff(u[0](x), x))*conjugate(u[0])

 

-(6*I)*u[1]*abs(u[0])^4-(4*I)*conjugate(u[1])*u[0]^2*abs(u[0])^2-(4*I)*(diff(u[0](x), x))*u[1]*u[0]-(2*I)*(diff(u[1](x), x))*u[0]^2-(2*I)*(diff(u[0](x), x))*conjugate(u[0])*u[1]-(2*I)*conjugate(u[0])*(diff(u[1](x), x))*u[0]-(2*I)*conjugate(u[1])*(diff(u[0](x), x))*u[0]

 

-(2*I)*conjugate(u[1])^2*u[0]^3-(6*I)*u[2]*abs(u[0])^4-(12*I)*u[0]*abs(u[0])^2*abs(u[1])^2-(6*I)*conjugate(u[0])*u[1]^2*abs(u[0])^2-(4*I)*conjugate(u[2])*u[0]^2*abs(u[0])^2-(4*I)*(diff(u[0](x), x))*u[0]*u[2]-(2*I)*(diff(u[0](x), x))*u[1]^2-(4*I)*(diff(u[1](x), x))*u[0]*u[1]-(2*I)*(diff(u[2](x), x))*u[0]^2-(2*I)*conjugate(u[1])*(diff(u[0](x), x))*u[1]-(2*I)*(diff(u[0](x), x))*conjugate(u[2])*u[0]-(2*I)*conjugate(u[0])*(diff(u[1](x), x))*u[1]-(2*I)*conjugate(u[0])*(diff(u[0](x), x))*u[2]-(2*I)*conjugate(u[0])*(diff(u[2](x), x))*u[0]-(2*I)*conjugate(u[1])*(diff(u[1](x), x))*u[0]

 

-(2*I)*conjugate(u[0])^2*u[1]^3-(6*I)*u[3]*abs(u[0])^4-(12*I)*conjugate(u[0])*u[1]*u[2]*abs(u[0])^2-(12*I)*conjugate(u[1])*u[0]*u[2]*abs(u[0])^2-(12*I)*conjugate(u[2])*u[0]*u[1]*abs(u[0])^2-(4*I)*(diff(u[1](x), x))*u[0]*u[2]-(4*I)*(diff(u[2](x), x))*u[0]*u[1]-(4*I)*(diff(u[0](x), x))*u[0]*u[3]-(4*I)*(diff(u[0](x), x))*u[1]*u[2]-(2*I)*(diff(u[1](x), x))*u[1]^2-(2*I)*(diff(u[3](x), x))*u[0]^2-(6*I)*conjugate(u[1])*u[0]^2*abs(u[1])^2-(4*I)*conjugate(u[3])*u[0]^2*abs(u[0])^2-(12*I)*u[1]*abs(u[0])^2*abs(u[1])^2-(4*I)*conjugate(u[1])*conjugate(u[2])*u[0]^3-(2*I)*conjugate(u[0])*(diff(u[0](x), x))*u[3]-(2*I)*conjugate(u[0])*(diff(u[1](x), x))*u[2]-(2*I)*conjugate(u[0])*(diff(u[2](x), x))*u[1]-(2*I)*conjugate(u[0])*(diff(u[3](x), x))*u[0]-(2*I)*conjugate(u[1])*(diff(u[0](x), x))*u[2]-(2*I)*conjugate(u[1])*(diff(u[1](x), x))*u[1]-(2*I)*conjugate(u[1])*(diff(u[2](x), x))*u[0]-(2*I)*(diff(u[0](x), x))*conjugate(u[2])*u[1]-(2*I)*(diff(u[0](x), x))*conjugate(u[3])*u[0]-(2*I)*(diff(u[1](x), x))*conjugate(u[2])*u[0]

 

-(2*I)*(diff(u[0](x), x))*u[2]^2-(2*I)*(diff(u[2](x), x))*u[1]^2-(2*I)*(diff(u[4](x), x))*u[0]^2-(2*I)*conjugate(u[2])^2*u[0]^3-(6*I)*u[0]*abs(u[1])^4-(6*I)*u[4]*abs(u[0])^4-(2*I)*conjugate(u[3])*(diff(u[0](x), x))*u[1]-(2*I)*conjugate(u[2])*(diff(u[1](x), x))*u[1]-(2*I)*conjugate(u[1])*(diff(u[2](x), x))*u[1]-(2*I)*conjugate(u[3])*(diff(u[1](x), x))*u[0]-(2*I)*conjugate(u[4])*(diff(u[0](x), x))*u[0]-(2*I)*conjugate(u[2])*(diff(u[2](x), x))*u[0]-(2*I)*conjugate(u[1])*(diff(u[3](x), x))*u[0]-(2*I)*conjugate(u[1])*(diff(u[0](x), x))*u[3]-(2*I)*conjugate(u[2])*(diff(u[0](x), x))*u[2]-(2*I)*conjugate(u[1])*(diff(u[1](x), x))*u[2]-(2*I)*conjugate(u[0])*(diff(u[1](x), x))*u[3]-(2*I)*conjugate(u[0])*(diff(u[0](x), x))*u[4]-(2*I)*conjugate(u[0])*(diff(u[2](x), x))*u[2]-(2*I)*conjugate(u[0])*(diff(u[3](x), x))*u[1]-(2*I)*conjugate(u[0])*(diff(u[4](x), x))*u[0]-(4*I)*(diff(u[0](x), x))*u[0]*u[4]-(4*I)*(diff(u[0](x), x))*u[1]*u[3]-(4*I)*(diff(u[1](x), x))*u[0]*u[3]-(4*I)*(diff(u[1](x), x))*u[1]*u[2]-(4*I)*(diff(u[2](x), x))*u[0]*u[2]-(4*I)*(diff(u[3](x), x))*u[0]*u[1]-(12*I)*conjugate(u[2])*u[0]^2*abs(u[1])^2-(4*I)*conjugate(u[4])*u[0]^2*abs(u[0])^2-(12*I)*u[0]*abs(u[0])^2*abs(u[2])^2-(12*I)*conjugate(u[2])*u[1]^2*abs(u[0])^2-(4*I)*conjugate(u[1])*conjugate(u[3])*u[0]^3-(4*I)*conjugate(u[0])*u[1]^2*abs(u[1])^2-(6*I)*conjugate(u[0])^2*u[1]^2*u[2]-(6*I)*conjugate(u[1])^2*u[0]^2*u[2]-(24*I)*u[2]*abs(u[0])^2*abs(u[1])^2-(6*I)*conjugate(u[0])*u[2]^2*abs(u[0])^2-(12*I)*conjugate(u[0])*u[1]*u[3]*abs(u[0])^2-(12*I)*conjugate(u[3])*u[0]*u[1]*abs(u[0])^2-(12*I)*conjugate(u[1])*u[0]*u[3]*abs(u[0])^2

(8)

u[0] := beta*exp(I*x)

beta*exp(I*x)

(9)

for i from 0 to 4 do u[i+1] := invlaplace(laplace(-I*(diff(u[i], `$`(x, 2)))+A[i], t, s)/s, s, t) end do

I*(-beta^3*exp((3*I)*x)*conjugate(beta*exp(I*x))^2+(1-2*conjugate(beta*exp(I*x))*((diff(beta(x), x))*(exp(I*x))(x)+beta(x)*(diff((exp(I*x))(x), x))))*exp(I*x)*beta-2*beta^2*exp((2*I)*x)*((diff(beta(x), x))*(exp(I*x))(x)+beta(x)*(diff((exp(I*x))(x), x))))*t

 

(-4*beta*exp((3*I)*x)*(diff((exp(I*x))(x), x))*beta(x)*t^2*(2*(diff(beta(x), x))*(exp(I*x))(x)+beta(x)*(diff((exp(I*x))(x), x)))+((-beta(x)*(diff(diff(diff((exp(I*x))(x), x), x), x))+(-3*(diff(beta(x), x))-(4*I)*beta(x))*(diff(diff((exp(I*x))(x), x), x))+(-3*(diff(diff(beta(x), x), x))+6*beta(x)-(8*I)*(diff(beta(x), x)))*(diff((exp(I*x))(x), x))+(6*(diff(beta(x), x))-(4*I)*(diff(diff(beta(x), x), x))-(diff(diff(diff(beta(x), x), x), x)))*(exp(I*x))(x))*t^2-4*(((beta(x)*(diff((beta(x))(x), x))*(int(_U1(x), _U1 = 0 .. t))+(beta(x))(x)*((diff(beta(x), x))*(int(_U1(x), _U1 = 0 .. t))+beta(x)*(int(diff(_U1(x), x), _U1 = 0 .. t))))*(diff((exp(I*x))(x), x))(x)+(beta(x)*(diff((diff(beta(x), x))(x), x))*(int(_U1(x), _U1 = 0 .. t))+(diff(beta(x), x))(x)*((diff(beta(x), x))*(int(_U1(x), _U1 = 0 .. t))+beta(x)*(int(diff(_U1(x), x), _U1 = 0 .. t))))*((exp(I*x))(x))(x)+(int(_U1(x), _U1 = 0 .. t))*beta(x)*((diff(beta(x), x))(x)*(diff(((exp(I*x))(x))(x), x))+(beta(x))(x)*(diff((diff((exp(I*x))(x), x))(x), x))))*(exp(I*x))(x)+((exp((3*I)*x))(x)*(diff((conjugate(exp(I*x)*beta))(x), x))*beta(x)^2+(diff((exp(I*x))(x), x))*((diff(beta(x), x))(x)*((exp(I*x))(x))(x)+(beta(x))(x)*(diff((exp(I*x))(x), x))(x)))*beta(x)*(int(_U1(x), _U1 = 0 .. t)))*(conjugate(exp(I*x)*beta))(x)-2*beta(x)^2*(2*((diff(beta(x), x))(x)*((exp(I*x))(x))(x)+(beta(x))(x)*(diff((exp(I*x))(x), x))(x))*(diff((exp((2*I)*x))(x), x))*(int(_U1(x), _U1 = 0 .. t))+(conjugate(exp(I*x)*beta))(x)^2*((diff((exp((3*I)*x))(x), x))*beta(x)*(int(_U1(x), _U1 = 0 .. t))+(exp((3*I)*x))(x)*(3*(diff(beta(x), x))*(int(_U1(x), _U1 = 0 .. t))+beta(x)*(int(diff(_U1(x), x), _U1 = 0 .. t)))))+2*(beta(x)*(int(diff(_U1(x), x), _U1 = 0 .. t))+(int(_U1(x), _U1 = 0 .. t))*(-2*((diff(beta(x), x))(x)*((exp(I*x))(x))(x)+(beta(x))(x)*(diff((exp(I*x))(x), x))(x))*(diff((conjugate(exp(I*x)*beta))(x), x))*beta(x)+diff(beta(x), x)))*(exp(I*x))(x)+2*beta(x)*((diff((exp(I*x))(x), x))*(int(_U1(x), _U1 = 0 .. t))-2*((beta(x)*(diff((beta(x))(x), x))*(int(_U1(x), _U1 = 0 .. t))+(beta(x))(x)*(2*(diff(beta(x), x))*(int(_U1(x), _U1 = 0 .. t))+beta(x)*(int(diff(_U1(x), x), _U1 = 0 .. t))))*(diff((exp(I*x))(x), x))(x)+(beta(x)*(diff((diff(beta(x), x))(x), x))*(int(_U1(x), _U1 = 0 .. t))+(diff(beta(x), x))(x)*(2*(diff(beta(x), x))*(int(_U1(x), _U1 = 0 .. t))+beta(x)*(int(diff(_U1(x), x), _U1 = 0 .. t))))*((exp(I*x))(x))(x)+(int(_U1(x), _U1 = 0 .. t))*beta(x)*((diff(beta(x), x))(x)*(diff(((exp(I*x))(x))(x), x))+(beta(x))(x)*(diff((diff((exp(I*x))(x), x))(x), x))))*(exp((2*I)*x))(x)))*exp((2*I)*x))*beta^2+(1/2)*(t^2*(-8*exp((3*I)*x)*(diff(beta(x), x))^2*(exp(I*x))(x)^2*beta^2-exp(I*x)+6*(-exp((3*I)*x-4*Im(x))*conjugate(exp(I*x)*beta)^2*beta^2+exp(-4*Im(x)+I*x)-2*beta*exp((2*I)*x-4*Im(x))*((diff(beta(x), x))*(exp(I*x))(x)+beta(x)*(diff((exp(I*x))(x), x))))*abs(beta)^4-8*beta*((diff(beta(x), x))*(exp(I*x))(x)+beta(x)*(diff((exp(I*x))(x), x)))^2*exp(I*(-conjugate(x)+2*x))*conjugate(beta)-2*(2*abs(beta)^2*exp((2*I)*x-2*Im(x))*beta+exp(I*x)*((diff(beta(x), x))*(exp(I*x))(x)+beta(x)*(diff((exp(I*x))(x), x))))*conjugate(-exp((3*I)*x)*conjugate(exp(I*x)*beta)^2*beta^3+(-2*((diff(beta(x), x))*(exp(I*x))(x)+beta(x)*(diff((exp(I*x))(x), x)))*conjugate(exp(I*x)*beta)+1)*exp(I*x)*beta-2*((diff(beta(x), x))*(exp(I*x))(x)+beta(x)*(diff((exp(I*x))(x), x)))*beta^2*exp((2*I)*x))+conjugate(exp(I*x)*beta)^2*(9*exp((3*I)*x)*beta^2-4*exp(I*x)*((diff(beta(x), x))*(exp(I*x))(x)+beta(x)*(diff((exp(I*x))(x), x)))^2)-2*((diff(beta(x), x))*(exp(I*x))(x)+beta(x)*(diff((exp(I*x))(x), x)))*beta^2*(2*conjugate(beta)^2*exp((2*I)*(-conjugate(x)+2*x))*beta+exp((3*I)*x)*conjugate(exp(I*x)*beta)^3))+2*(((-beta(x)*(diff(diff(diff((exp(I*x))(x), x), x), x))+(-3*(diff(beta(x), x))-(2*I)*beta(x))*(diff(diff((exp(I*x))(x), x), x))+(-(4*I)*(diff(beta(x), x))+2*beta(x)-3*(diff(diff(beta(x), x), x)))*(diff((exp(I*x))(x), x))+(exp(I*x))(x)*(-(2*I)*(diff(diff(beta(x), x), x))+2*(diff(beta(x), x))-(diff(diff(diff(beta(x), x), x), x))))*t^2-4*(((beta(x)*(diff((beta(x))(x), x))*(int(_U1(x), _U1 = 0 .. t))+(beta(x))(x)*((diff(beta(x), x))*(int(_U1(x), _U1 = 0 .. t))+beta(x)*(int(diff(_U1(x), x), _U1 = 0 .. t))))*(diff((exp(I*x))(x), x))(x)+(beta(x)*(diff((diff(beta(x), x))(x), x))*(int(_U1(x), _U1 = 0 .. t))+(diff(beta(x), x))(x)*((diff(beta(x), x))*(int(_U1(x), _U1 = 0 .. t))+beta(x)*(int(diff(_U1(x), x), _U1 = 0 .. t))))*((exp(I*x))(x))(x)+(int(_U1(x), _U1 = 0 .. t))*beta(x)*((diff(beta(x), x))(x)*(diff(((exp(I*x))(x))(x), x))+(beta(x))(x)*(diff((diff((exp(I*x))(x), x))(x), x))))*(exp(I*x))(x)+((exp((3*I)*x))(x)*(diff((conjugate(exp(I*x)*beta))(x), x))*beta(x)^2+(diff((exp(I*x))(x), x))*((diff(beta(x), x))(x)*((exp(I*x))(x))(x)+(beta(x))(x)*(diff((exp(I*x))(x), x))(x)))*beta(x)*(int(_U1(x), _U1 = 0 .. t)))*(conjugate(exp(I*x)*beta))(x)-2*beta(x)^2*(2*((diff(beta(x), x))(x)*((exp(I*x))(x))(x)+(beta(x))(x)*(diff((exp(I*x))(x), x))(x))*(diff((exp((2*I)*x))(x), x))*(int(_U1(x), _U1 = 0 .. t))+(conjugate(exp(I*x)*beta))(x)^2*((diff((exp((3*I)*x))(x), x))*beta(x)*(int(_U1(x), _U1 = 0 .. t))+(exp((3*I)*x))(x)*(3*(diff(beta(x), x))*(int(_U1(x), _U1 = 0 .. t))+beta(x)*(int(diff(_U1(x), x), _U1 = 0 .. t)))))+2*(beta(x)*(int(diff(_U1(x), x), _U1 = 0 .. t))+(int(_U1(x), _U1 = 0 .. t))*(-2*((diff(beta(x), x))(x)*((exp(I*x))(x))(x)+(beta(x))(x)*(diff((exp(I*x))(x), x))(x))*(diff((conjugate(exp(I*x)*beta))(x), x))*beta(x)+diff(beta(x), x)))*(exp(I*x))(x)+2*beta(x)*((diff((exp(I*x))(x), x))*(int(_U1(x), _U1 = 0 .. t))-2*((beta(x)*(diff((beta(x))(x), x))*(int(_U1(x), _U1 = 0 .. t))+(beta(x))(x)*(2*(diff(beta(x), x))*(int(_U1(x), _U1 = 0 .. t))+beta(x)*(int(diff(_U1(x), x), _U1 = 0 .. t))))*(diff((exp(I*x))(x), x))(x)+(beta(x)*(diff((diff(beta(x), x))(x), x))*(int(_U1(x), _U1 = 0 .. t))+(diff(beta(x), x))(x)*(2*(diff(beta(x), x))*(int(_U1(x), _U1 = 0 .. t))+beta(x)*(int(diff(_U1(x), x), _U1 = 0 .. t))))*((exp(I*x))(x))(x)+(int(_U1(x), _U1 = 0 .. t))*beta(x)*((diff(beta(x), x))(x)*(diff(((exp(I*x))(x))(x), x))+(beta(x))(x)*(diff((diff((exp(I*x))(x), x))(x), x))))*(exp((2*I)*x))(x)))*exp(I*x)-2*t^2*((diff(beta(x), x))*(exp(I*x))(x)+beta(x)*(diff((exp(I*x))(x), x)))*(3*abs(beta)^4*exp(-4*Im(x)+I*x)+exp((2*I)*x)*beta*((diff(beta(x), x))*(exp(I*x))(x)+beta(x)*(diff((exp(I*x))(x), x)))))*conjugate(exp(I*x)*beta))*beta

(10)
 

NULL

Download Dr.D.mw

5 6 7 8 9 10 11 Last Page 7 of 42