Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

I have a system of polynomial equations where the unknowns are real numbers. The set of solutions is infinite (positive-dimensional). How can I compute the real dimension of the solution set (i.e. of a real algebraic variety)?

As it as mentioned in arXiv:2105.10255, this can be done using the RealTriangularize function from the RegularChains package. What is best way of getting the real dimension from the regular_semi_algebraic_system object, which is returned by this function?

Is there a good way to include subscript(s) to a letter within a 'text' command?  Currently I do this by specifying the coordinates, letter, and font for the letter, then specify the coordinates, number and font for the subscript.  However, with this method the letter and subscript can be compressed if the viewing interval is compressed or expanded.  

Is there another way to include letters with a subscript in a text command?

i try find some part of solution of this kind of pde but i can't get results my openion is maybe this pde is wronge when i defined 

pde.mw

 Can I solve the Tolman-Oppenheimer-Volkoff equation with Maple ?  I'm having trouble with Einstein's equation with the energy tensor as the second member

How apply long wave limit for removing the constant k in such function , i need a general formula 

Limiting process from eq 12 to Bij

restart

NULL

Eq 12.

eij := ((-3*k[i]*(k[i]-k[j])*l[j]+beta)*l[i]^2-(2*(-3*k[j]*(k[i]-k[j])*l[j]*(1/2)+beta))*l[j]*l[i]+beta*l[j]^2)/((-3*k[i]*(k[i]+k[j])*l[j]+beta)*l[i]^2-(2*(3*k[j]*(k[i]+k[j])*l[j]*(1/2)+beta))*l[j]*l[i]+beta*l[j]^2)

((-3*k[i]*(k[i]-k[j])*l[j]+beta)*l[i]^2-2*(-(3/2)*k[j]*(k[i]-k[j])*l[j]+beta)*l[j]*l[i]+beta*l[j]^2)/((-3*k[i]*(k[i]+k[j])*l[j]+beta)*l[i]^2-2*((3/2)*k[j]*(k[i]+k[j])*l[j]+beta)*l[j]*l[i]+beta*l[j]^2)

(1)

eval(eij, k[j] = k[i]); series(%, k[i], 3); convert(%, polynom); eval(%, k[j] = k[i]); Bij := %

(beta*l[i]^2-2*beta*l[i]*l[j]+beta*l[j]^2)/((-6*k[i]^2*l[j]+beta)*l[i]^2-2*(3*k[i]^2*l[j]+beta)*l[j]*l[i]+beta*l[j]^2)

 

series(1+((6*l[i]^2*l[j]+6*l[i]*l[j]^2)/(beta*l[i]^2-2*beta*l[i]*l[j]+beta*l[j]^2))*k[i]^2+O(k[i]^4),k[i],4)

 

1+(6*l[i]^2*l[j]+6*l[i]*l[j]^2)*k[i]^2/(beta*l[i]^2-2*beta*l[i]*l[j]+beta*l[j]^2)

 

1+(6*l[i]^2*l[j]+6*l[i]*l[j]^2)*k[i]^2/(beta*l[i]^2-2*beta*l[i]*l[j]+beta*l[j]^2)

 

1+(6*l[i]^2*l[j]+6*l[i]*l[j]^2)*k[i]^2/(beta*l[i]^2-2*beta*l[i]*l[j]+beta*l[j]^2)

(2)

NULL

NULL

Download b12.mw

I need to find parameter a[12] any one have any vision for finding parameter  , in p2a must contain 3 exponential but we recieve 19 of them which is something i think it is trail function but trail is give me result so must be a way for finding parameter 

a[12]-pde.mw

the function is true but i want to be sure when i use pdetest must give me zero, but there must be a way for checking such function, please if your pc not strong don't click the command pdetest, i want use explore for such function but i am not sure it work or not, becuase the graph are a little bit strange  and long , i want  a way for easy plotting and visualization of such graph , can anyone help for solve this issue?

 sol.mw

i don't know how apply conversation language to matlab in righ hand side  don't show up to do conversation language for short is come up but for this not 

restart

K := (2*(k[1]*exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1])+((p[1]-p[2])^2*alpha-(k[1]-k[2])^2)*(k[1]+k[2])*exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1]+(3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2])/((p[1]-p[2])^2*alpha-(k[1]+k[2])^2)+k[2]*exp((3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2])+((p[2]-p[3])^2*alpha-(k[2]-k[3])^2)*(k[2]+k[3])*exp((3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2]+(3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3])/((p[2]-p[3])^2*alpha-(k[2]+k[3])^2)+((p[1]-p[2])^2*alpha-(k[1]-k[2])^2)*((p[1]-p[3])^2*alpha-(k[1]-k[3])^2)*((p[2]-p[3])^2*alpha-(k[2]-k[3])^2)*(k[1]+k[2]+k[3])*exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1]+(3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2]+(3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3])/(((p[1]-p[2])^2*alpha-(k[1]+k[2])^2)*((p[1]-p[3])^2*alpha-(k[1]+k[3])^2)*((p[2]-p[3])^2*alpha-(k[2]+k[3])^2))+((p[1]-p[3])^2*alpha-(k[1]-k[3])^2)*(k[1]+k[3])*exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1]+(3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3])/((p[1]-p[3])^2*alpha-(k[1]+k[3])^2)+k[3]*exp((3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3])))/(1+exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1])+((p[1]-p[2])^2*alpha-(k[1]-k[2])^2)*exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1]+(3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2])/((p[1]-p[2])^2*alpha-(k[1]+k[2])^2)+exp((3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2])+((p[2]-p[3])^2*alpha-(k[2]-k[3])^2)*exp((3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2]+(3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3])/((p[2]-p[3])^2*alpha-(k[2]+k[3])^2)+((p[1]-p[2])^2*alpha-(k[1]-k[2])^2)*((p[1]-p[3])^2*alpha-(k[1]-k[3])^2)*((p[2]-p[3])^2*alpha-(k[2]-k[3])^2)*exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1]+(3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2]+(3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3])/(((p[1]-p[2])^2*alpha-(k[1]+k[2])^2)*((p[1]-p[3])^2*alpha-(k[1]+k[3])^2)*((p[2]-p[3])^2*alpha-(k[2]+k[3])^2))+((p[1]-p[3])^2*alpha-(k[1]-k[3])^2)*exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1]+(3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3])/((p[1]-p[3])^2*alpha-(k[1]+k[3])^2)+exp((3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3]))

2*(k[1]*exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1])+((p[1]-p[2])^2*alpha-(k[1]-k[2])^2)*(k[1]+k[2])*exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1]+(3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2])/((p[1]-p[2])^2*alpha-(k[1]+k[2])^2)+k[2]*exp((3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2])+((p[2]-p[3])^2*alpha-(k[2]-k[3])^2)*(k[2]+k[3])*exp((3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2]+(3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3])/((p[2]-p[3])^2*alpha-(k[2]+k[3])^2)+((p[1]-p[2])^2*alpha-(k[1]-k[2])^2)*((p[1]-p[3])^2*alpha-(k[1]-k[3])^2)*((p[2]-p[3])^2*alpha-(k[2]-k[3])^2)*(k[1]+k[2]+k[3])*exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1]+(3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2]+(3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3])/(((p[1]-p[2])^2*alpha-(k[1]+k[2])^2)*((p[1]-p[3])^2*alpha-(k[1]+k[3])^2)*((p[2]-p[3])^2*alpha-(k[2]+k[3])^2))+((p[1]-p[3])^2*alpha-(k[1]-k[3])^2)*(k[1]+k[3])*exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1]+(3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3])/((p[1]-p[3])^2*alpha-(k[1]+k[3])^2)+k[3]*exp((3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3]))/(1+exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1])+((p[1]-p[2])^2*alpha-(k[1]-k[2])^2)*exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1]+(3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2])/((p[1]-p[2])^2*alpha-(k[1]+k[2])^2)+exp((3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2])+((p[2]-p[3])^2*alpha-(k[2]-k[3])^2)*exp((3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2]+(3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3])/((p[2]-p[3])^2*alpha-(k[2]+k[3])^2)+((p[1]-p[2])^2*alpha-(k[1]-k[2])^2)*((p[1]-p[3])^2*alpha-(k[1]-k[3])^2)*((p[2]-p[3])^2*alpha-(k[2]-k[3])^2)*exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1]+(3/4)*k[2]*t*alpha*p[2]^2+(1/4)*t*k[2]^3+k[2]*p[2]*y+k[2]*x+k[2]*z+eta[2]+(3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3])/(((p[1]-p[2])^2*alpha-(k[1]+k[2])^2)*((p[1]-p[3])^2*alpha-(k[1]+k[3])^2)*((p[2]-p[3])^2*alpha-(k[2]+k[3])^2))+((p[1]-p[3])^2*alpha-(k[1]-k[3])^2)*exp((3/4)*k[1]*t*alpha*p[1]^2+(1/4)*t*k[1]^3+k[1]*p[1]*y+k[1]*x+k[1]*z+eta[1]+(3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3])/((p[1]-p[3])^2*alpha-(k[1]+k[3])^2)+exp((3/4)*k[3]*t*alpha*p[3]^2+(1/4)*t*k[3]^3+k[3]*p[3]*y+k[3]*x+k[3]*z+eta[3]))

(1)
 

NULL

Download convert-to-matlab.mw

I have plotted a 3D figure by maple 2023. but all numbers and units on axes are seen a black boxes. How can fix this problem?

Dear Maple Community,

I come to you with a question about the reduced involutive form (rif) package. Namely, I decided to try the classic example from the "LONG GUIDE TO THE STANDARD FORM PACKAGE", which dates back to 1993. Here is the link to the complete documentation:

https://wayback.cecm.sfu.ca/~wittkopf/files/standard_manual.txt

So, the example is the following:

2.1 SIMPLE EXAMPLES

EXAMPLE A

Consider the system of nonlinear PDEs:       

y Zxxx - x Zxyy  =  Zyy - y Zy

                        2     2    2
2 y x Zxxx Zxyy + x Zxxx + x y Zxyy  =  0

                  2    2
y Zxyy - x W + 2 x  y Z  =  0

                 2    2
Zyy - y Zy  + 2 x  y W  =  x W

where the dependent variables W and Z are functions of the
independent variables x and y, and Zxxx denotes the third partial
derivative of Z with respect to x etc.

After making computations back in 1993 with Maple V, they obtain the following involutive form:

In our original notation the (considerably) simplified system is:
                                            2
  Zxxx = 0, Zxy = 0, Zyy = y Zy, W = 2 x y Z

So, I tried the same system of PDEs in the modern Maple and the modern rifsimp() command. You can find the result below:

demo_question.mw

The problem is that nowadays [Maple 2022.1] , I get only the trivial solution: z = 0 and w = 0.

Could someone clarify, please, where the truth is and what am I doing wrong?

Thanks a lot in advance for any help and clarification!

Best regards,

Dr. Denys D.
 

restart:

with(DETools):

PDE1 := y*diff(z(x,y), x$3) - x*diff(z(x,y),x,y$2) = diff(z(x,y),y$2) - y*diff(z(x,y), y);

y*(diff(diff(diff(z(x, y), x), x), x))-x*(diff(diff(diff(z(x, y), x), y), y)) = diff(diff(z(x, y), y), y)-y*(diff(z(x, y), y))

(1)

PDE2 := 2*x*y*diff(z(x,y),x$3)*diff(z(x,y),x,y$2) + x*(diff(z(x,y),x$3))^2 + x*y^2*(diff(z(x,y),x,y$2))^2 = 0;

2*x*y*(diff(diff(diff(z(x, y), x), x), x))*(diff(diff(diff(z(x, y), x), y), y))+x*(diff(diff(diff(z(x, y), x), x), x))^2+x*y^2*(diff(diff(diff(z(x, y), x), y), y))^2 = 0

(2)

PDE3 := y*diff(z(x,y),x,y$2) - x*w(x,y) + 2*x^2*y*z(x,y)^2 = 0;

y*(diff(diff(diff(z(x, y), x), y), y))-x*w(x, y)+2*x^2*y*z(x, y)^2 = 0

(3)

PDE4 := diff(z(x,y), y$2) - y*diff(z(x,y),y) + 2*x^2*y*w(x,y)^2 = x*w(x,y);

diff(diff(z(x, y), y), y)-y*(diff(z(x, y), y))+2*x^2*y*w(x, y)^2 = x*w(x, y)

(4)

sys := [PDE1, PDE2, PDE3, PDE4]:

rif := rifsimp(sys, [[w], [z]], indep = [x,y]);

table( [( Case ) = [[z(x, y)*(8*z(x, y)^2*y^2*x^2-1) = 0, diff(z(x, y), x), "false split"]], ( Solved ) = [w(x, y) = 0, z(x, y) = 0] ] )

(5)
 

 

Which version of Maple contains its most optimal and elegant coding, regardless of utility,  and was it the product of someone's direct creative input (not auto-coded with AI for example).

As an aside, there's a spelling mistake in the word "separate" below within the "Tags" instruction:

"Tags are words are used to describe and categorize your content. Combine multiple words with dashes(-), and seperate tags with spaces."

Hello,

I have updated to maple 2024 on both my desktop and my laptop, and now I am missing the feature "Convert Output Units:" in the context tab on my windows 11 laptop. It's still available on my windows 10 desktop.

I have tried reinstalling maple and installing java, but it unfortunately did not help. Due to limited school licences, I am unable to test with maple 2023.

Is this an issue you have heard of?

Thank you in advance,

Daniel

 

And here is the context menu on windows 11. Also nothing happens when I click "Format -> Convert Output Units" in the top menu. 

 

Hello, i have been drawing some cool 3d plots for my assignment, but when i use the export button and export it as pdf the plots turn out very low quality. 

See the image below is using the export function

Then i tried something different i tried using the print button and printing to a pdf.

That resulted in a different looking plot

This plot using the print to pdf feature looks much nicer, but the 3d text plot has become impossible to read.

 

Is there a way to fix that? Or to make the export to pdf feature export at higher quality? 

Best Regards

restart;
Fig:=proc(t)
local a,b,c,A,B,C,Oo,P,NorA,NorB,NorC,lieu,Lieu,dr,tx:
uses plots, geometry;
a := 11:b := 7:
c := sqrt(a^2 - b^2):

point(A, a*cos(t), b*sin(t)):
point(B, a*cos(t + 2/3*Pi), b*sin(t + 2/3*Pi)):
point(C, a*cos(t + 4/3*Pi), b*sin(t + 4/3*Pi)):
point(Oo,0,0):
lieu:=a^2*x^2+b^2*y^2-c^4/4=0:
Lieu := implicitplot(lieu, x = -a .. a, y = -b .. b, color = green):

line(NorA, y-coordinates(A)[2] =((a^2*coordinates(A)[2])/(b^2*coordinates(A)[1]))*(x-coordinates(A)[1]),[x, y]):
line(NorB, y-coordinates(B)[2] =((a^2*coordinates(B)[2])/(b^2*coordinates(B)[1]))*(x-coordinates(B)[1]), [x, y]):
line(NorC, y-coordinates(C)[2] =((a^2*coordinates(C)[2])/(b^2*coordinates(C)[1]))*(x-coordinates(C)[1]),[x, y]):
intersection(P,NorA,NorB):

ellipse(p, x^2/a^2 + y^2/b^2 - 1, [x, y]);

tx := textplot([[coordinates(A1)[], "A"],[coordinates(A2)[], "B"], [coordinates(C)[], "C"], [coordinates(Oo)[], "O"],#[coordinates(P)[], "P"]], font = [times, bold, 16], align = [above, left]):
dr := draw([p(color = blue),NorA(color=red,NorB(color=red),NorC(color=red),p(color=blue),
Oo(color = black, symbol = solidcircle, symbolsize = 8), P(color = black, symbol = solidcircle, symbolsize = 8)]):
display(dr,tx,Lieu,scaling=constrained, axes=none,title = "Les triangles inscrits dans une ellipse ont leur centre de gravité en son centre . Lieu du point de concours des perpendicalaires issues des sommets", titlefont = [HELVETICA, 14]);
end:

Error, `:=` unexpected
plots:-animate(Fig, [t], t=0.1..2*Pi, frames=150);
 

the second ode is giving me zero also when we back to orginal under the condition by using them must the orginal ode be zero but i don't know where is mistake , when Orginal paper use some thing different but i think they must have same results i don't know i use them wrong i am not sure at here just , when U(xi)=y(z) in my mw

restart

with(PDEtools)

NULL

undeclare(prime)

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

(1)

NULL

G := V(xi) = RootOf(3*_Z^2-3*_Z-1)*B[1]+B[1]*(exp(xi)+exp(-xi))/(exp(xi)-exp(-xi))

V(xi) = RootOf(3*_Z^2-3*_Z-1)*B[1]+B[1]*(exp(xi)+exp(-xi))/(exp(xi)-exp(-xi))

(2)

NULL

p := 2*k

2*k

(3)

ode := I*(-(diff(U(xi), xi))*p*exp(I*(k*x-t*w))-I*U(xi)*w*exp(I*(k*x-t*w)))+(diff(diff(U(xi), xi), xi))*exp(I*(k*x-t*w))+(2*I)*(diff(U(xi), xi))*k*exp(I*(k*x-t*w))-U(xi)*k^2*exp(I*(k*x-t*w))+eta*U(xi)*exp(I*(k*x-t*w))+beta*U(xi)^n*U(xi)*exp(I*(k*x-t*w))+gamma*U(xi)^(2*n)*U(xi)*exp(I*(k*x-t*w))+delta*U(xi)^(3*n)*U(xi)*exp(I*(k*x-t*w))+lambda*U(xi)^(4*n)*U(xi)*exp(I*(k*x-t*w)) = 0

I*(-2*(diff(U(xi), xi))*k*exp(I*(k*x-t*w))-I*U(xi)*w*exp(I*(k*x-t*w)))+(diff(diff(U(xi), xi), xi))*exp(I*(k*x-t*w))+(2*I)*(diff(U(xi), xi))*k*exp(I*(k*x-t*w))-U(xi)*k^2*exp(I*(k*x-t*w))+eta*U(xi)*exp(I*(k*x-t*w))+beta*U(xi)^n*U(xi)*exp(I*(k*x-t*w))+gamma*U(xi)^(2*n)*U(xi)*exp(I*(k*x-t*w))+delta*U(xi)^(3*n)*U(xi)*exp(I*(k*x-t*w))+lambda*U(xi)^(4*n)*U(xi)*exp(I*(k*x-t*w)) = 0

(4)

case1 := [beta = 2*RootOf(3*_Z^2-3*_Z-1)*(n+2)/(B[1]*n^2), delta = 2*B[1]*(RootOf(3*_Z^2-3*_Z-1)+1)*(3*n+2)/(3*n^2), eta = (k^2*n^2*B[1]^2-n^2*w*B[1]^2-1)/(n^2*B[1]^2), gamma = -6*RootOf(3*_Z^2-3*_Z-1)*(n+1)/n^2, lambda = B[1]^2*(3*RootOf(3*_Z^2-3*_Z-1)-7)*(2*n+1)/(9*n^2), A[0] = RootOf(3*_Z^2-3*_Z-1)*B[1], A[1] = 0, B[1] = B[1]]

[beta = 2*RootOf(3*_Z^2-3*_Z-1)*(n+2)/(B[1]*n^2), delta = (2/3)*B[1]*(RootOf(3*_Z^2-3*_Z-1)+1)*(3*n+2)/n^2, eta = (k^2*n^2*B[1]^2-n^2*w*B[1]^2-1)/(n^2*B[1]^2), gamma = -6*RootOf(3*_Z^2-3*_Z-1)*(n+1)/n^2, lambda = (1/9)*B[1]^2*(3*RootOf(3*_Z^2-3*_Z-1)-7)*(2*n+1)/n^2, A[0] = RootOf(3*_Z^2-3*_Z-1)*B[1], A[1] = 0, B[1] = B[1]]

(5)

n := 1

1

(6)

G := U(xi) = (B[1]*(RootOf(3*_Z^2-3*_Z-1)+coth(xi)))^(-1/n)

U(xi) = 1/(B[1]*(RootOf(3*_Z^2-3*_Z-1)+coth(xi)))

(7)

pde3 := eval(ode, case1)

I*(-2*(diff(U(xi), xi))*k*exp(I*(k*x-t*w))-I*U(xi)*w*exp(I*(k*x-t*w)))+(diff(diff(U(xi), xi), xi))*exp(I*(k*x-t*w))+(2*I)*(diff(U(xi), xi))*k*exp(I*(k*x-t*w))-U(xi)*k^2*exp(I*(k*x-t*w))+(k^2*B[1]^2-w*B[1]^2-1)*U(xi)*exp(I*(k*x-t*w))/B[1]^2+6*RootOf(3*_Z^2-3*_Z-1)*U(xi)^2*exp(I*(k*x-t*w))/B[1]-12*RootOf(3*_Z^2-3*_Z-1)*U(xi)^3*exp(I*(k*x-t*w))+(10/3)*B[1]*(RootOf(3*_Z^2-3*_Z-1)+1)*U(xi)^4*exp(I*(k*x-t*w))+(1/3)*B[1]^2*(3*RootOf(3*_Z^2-3*_Z-1)-7)*U(xi)^5*exp(I*(k*x-t*w)) = 0

(8)

odetest(eval(G, case1), pde3)

79584*exp(I*k*x-I*t*w+12*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-127440*exp(I*k*x-I*t*w+10*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+8352*exp(I*k*x-I*t*w+6*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-27792*exp(I*k*x-I*t*w+8*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-24*exp(2*xi-I*t*w+I*k*x)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+4752*exp(I*k*x-I*t*w+4*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+288*exp(2*xi-I*t*w+I*k*x)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-479376*exp(I*k*x-I*t*w+12*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+138240*exp(I*k*x-I*t*w+10*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+70560*exp(18*xi+I*k*x-I*t*w)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-492912*exp(I*k*x-I*t*w+16*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+777888*exp(I*k*x-I*t*w+14*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+16608*exp(I*k*x-I*t*w+8*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-1056*exp(I*k*x-I*t*w+6*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+288*exp(I*k*x-I*t*w+4*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-39000*exp(18*xi+I*k*x-I*t*w)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-50400*exp(I*k*x-I*t*w+16*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+121440*exp(I*k*x-I*t*w+14*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+27000*RootOf(3*_Z^2-3*_Z-1)*exp(18*xi+I*k*x-I*t*w)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-55080*RootOf(3*_Z^2-3*_Z-1)*exp(18*xi+I*k*x-I*t*w)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+7200*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+16*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+394416*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+16*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-205920*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+14*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-609984*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+14*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-244512*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+12*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+366768*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+12*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-42480*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+10*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-144720*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+10*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-48672*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+8*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+8208*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+8*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+9504*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+6*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+20736*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+6*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+288*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+4*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+18576*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+4*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-72*RootOf(3*_Z^2-3*_Z-1)*exp(2*xi-I*t*w+I*k*x)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+1080*RootOf(3*_Z^2-3*_Z-1)*exp(2*xi-I*t*w+I*k*x)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))

(9)

simplify(-492912*exp(I*k*x-I*t*w+16*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+777888*exp(I*k*x-I*t*w+14*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+16608*exp(I*k*x-I*t*w+8*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-1056*exp(I*k*x-I*t*w+6*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+288*exp(I*k*x-I*t*w+4*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-39000*exp(18*xi+I*k*x-I*t*w)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-50400*exp(I*k*x-I*t*w+16*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+121440*exp(I*k*x-I*t*w+14*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+79584*exp(I*k*x-I*t*w+12*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-127440*exp(I*k*x-I*t*w+10*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+8352*exp(I*k*x-I*t*w+6*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-27792*exp(I*k*x-I*t*w+8*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-24*exp(2*xi-I*t*w+I*k*x)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+4752*exp(I*k*x-I*t*w+4*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+288*exp(2*xi-I*t*w+I*k*x)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-479376*exp(I*k*x-I*t*w+12*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+138240*exp(I*k*x-I*t*w+10*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+70560*exp(18*xi+I*k*x-I*t*w)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-55080*RootOf(3*_Z^2-3*_Z-1)*exp(18*xi+I*k*x-I*t*w)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+7200*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+16*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+394416*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+16*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-205920*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+14*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-609984*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+14*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-244512*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+12*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+366768*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+12*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-42480*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+10*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-144720*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+10*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-48672*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+8*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+8208*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+8*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+9504*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+6*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+20736*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+6*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+288*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+4*xi)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+18576*RootOf(3*_Z^2-3*_Z-1)*exp(I*k*x-I*t*w+4*xi)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))-72*RootOf(3*_Z^2-3*_Z-1)*exp(2*xi-I*t*w+I*k*x)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+1080*RootOf(3*_Z^2-3*_Z-1)*exp(2*xi-I*t*w+I*k*x)/(B[1]^3*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1))+27000*RootOf(3*_Z^2-3*_Z-1)*exp(18*xi+I*k*x-I*t*w)/(B[1]*(3125*exp(20*xi)+25000*exp(18*xi)+76875*exp(16*xi)+108000*exp(14*xi)+55650*exp(12*xi)-12432*exp(10*xi)-11130*exp(8*xi)+4320*exp(6*xi)-615*exp(4*xi)+40*exp(2*xi)-1)))

(((244512*B[1]^2-366768)*exp(10*xi)+(205920*B[1]^2+609984)*exp(12*xi)+(-7200*B[1]^2-394416)*exp(14*xi)+42480*exp(8*xi)*B[1]^2-27000*exp(16*xi)*B[1]^2-288*exp(2*xi)*B[1]^2-9504*exp(4*xi)*B[1]^2+48672*exp(6*xi)*B[1]^2+72*B[1]^2+144720*exp(8*xi)+55080*exp(16*xi)-18576*exp(2*xi)-20736*exp(4*xi)-8208*exp(6*xi)-1080)*RootOf(3*_Z^2-3*_Z-1)+(-79584*B[1]^2+479376)*exp(10*xi)+(-121440*B[1]^2-777888)*exp(12*xi)+(50400*B[1]^2+492912)*exp(14*xi)+127440*exp(8*xi)*B[1]^2+39000*exp(16*xi)*B[1]^2-288*exp(2*xi)*B[1]^2+1056*exp(4*xi)*B[1]^2-16608*exp(6*xi)*B[1]^2+24*B[1]^2-138240*exp(8*xi)-70560*exp(16*xi)-4752*exp(2*xi)-8352*exp(4*xi)+27792*exp(6*xi)-288)*exp(2*xi-I*t*w+I*k*x)/(B[1]^3*(-3125*exp(20*xi)-25000*exp(18*xi)-76875*exp(16*xi)-108000*exp(14*xi)-55650*exp(12*xi)+12432*exp(10*xi)+11130*exp(8*xi)-4320*exp(6*xi)+615*exp(4*xi)-40*exp(2*xi)+1))

(10)

Download ode.mw

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