Results of Mathieu Functions and Hill’s Equation

From DRMF
Revision as of 15:26, 19 January 2020 by Admin (talk | contribs) (Created page with "{| class="wikitable sortable" |- ! DLMF !! Formula !! Maple !! Mathematica !! Symbolic<br>Maple !! Symbolic<br>Mathematica !! Numeric<br>Maple !! Numeric<br>Mathematica |- | [...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search
DLMF Formula Maple Mathematica Symbolic
Maple
Symbolic
Mathematica
Numeric
Maple
Numeric
Mathematica
28.1#Ex15 S*exp(1)[n]*(s , z)=(MathieuCE(n, q, z))/(MathieuCE(n, q, 0)) S*Subscript[E*, n]*(s , z)=Divide[MathieuC[n, q, z],MathieuC[n, q, 0]] Failure Failure Error Error
28.1#Ex16 S*o[n]*(s , z)=(MathieuSE(n, q, z))/(subs( temp=0, diff( MathieuSE(n, q, temp), temp$(1) ) )) S*Subscript[o, n]*(s , z)=Divide[MathieuS[n, q, z],D[MathieuS[n, q, temp], {temp, 1}]/.temp-> 0] Failure Failure Skip Error
28.1#Ex17 S*exp(1)[n]*(c , z)=(MathieuCE(n, q, z))/(MathieuCE(n, q, 0)) S*Subscript[E*, n]*(c , z)=Divide[MathieuC[n, q, z],MathieuC[n, q, 0]] Failure Failure Error Error
28.1#Ex18 S*o[n]*(c , z)=(MathieuSE(n, q, z))/(subs( temp=0, diff( MathieuSE(n, q, temp), temp$(1) ) )) S*Subscript[o, n]*(c , z)=Divide[MathieuS[n, q, z],D[MathieuS[n, q, temp], {temp, 1}]/.temp-> 0] Failure Failure Skip Error
28.2.E14 w*(z + Pi)= exp(Pi*I*nu)*w*(z) w*(z + Pi)= Exp[Pi*I*\[Nu]]*w*(z) Failure Failure
Fail
4.397533327+8.455409696*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
8.455409696+4.488232549*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
4.488232549+.4303561791*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)}
.4303561791+4.397533327*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Fail
Complex[4.397533326856219, 8.455409698756243] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ν, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-323.35991533293776, 98.99067506580616] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ν, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[332.24568120925454, 98.99067506580616] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ν, Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]}
Complex[4.4882325494605135, 8.455409698756243] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ν, Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
28.2.E17 w*(z + Pi)+ w*(z - Pi)= 2*cos(Pi*nu)*w*(z) w*(z + Pi)+ w*(z - Pi)= 2*Cos[Pi*\[Nu]]*w*(z) Failure Failure
Fail
327.7574484+98.56031892*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
98.56031892-327.7574484*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
-327.7574484-98.56031892*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)}
-98.56031892+327.7574484*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Fail
Complex[327.757448659794, 98.56031888824567] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ν, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-327.757448659794, 98.56031888824567] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ν, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[327.757448659794, 98.56031888824567] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ν, Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]}
Complex[-327.757448659794, 98.56031888824567] <- {Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ν, Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
28.2.E18 w*(z)= sum(c[2*n]*exp(I*(nu + 2*n)* z), n = - infinity..infinity) w*(z)= Sum[Subscript[c, 2*n]*Exp[I*(\[Nu]+ 2*n)* z], {n, - Infinity, Infinity}] Failure Failure Skip Skip
28.2.E21 0 , 0 , Error Error - -
28.2.E22 0 , 0 , Error Error - -
28.2.E23 MathieuA(n, 0)= (n)^(2) MathieuCharacteristicA[n, 0]= (n)^(2) Successful Successful - -
28.2.E24 MathieuB(n, 0)= (n)^(2) MathieuCharacteristicB[n, 0]= (n)^(2) Successful Successful - -
28.2.E25 MathieuB(1, q)< MathieuA(1, q) MathieuCharacteristicB[1, q]< MathieuCharacteristicA[1, q] Failure Failure Successful Successful
28.2.E25 MathieuA(1, q)< MathieuB(2, q) MathieuCharacteristicA[1, q]< MathieuCharacteristicB[2, q] Failure Failure Skip Successful
28.2.E25 MathieuB(2, q)< MathieuA(2, q) MathieuCharacteristicB[2, q]< MathieuCharacteristicA[2, q] Failure Failure Skip Successful
28.2.E25 MathieuA(2, q)< MathieuB(3, q) MathieuCharacteristicA[2, q]< MathieuCharacteristicB[3, q] Failure Failure Skip Successful
28.2.E25 MathieuA(1, q)< MathieuB(1, q) MathieuCharacteristicA[1, q]< MathieuCharacteristicB[1, q] Failure Failure Skip Successful
28.2.E26 MathieuA(2*n, - q)= MathieuA(2*n, q) MathieuCharacteristicA[2*n, - q]= MathieuCharacteristicA[2*n, q] Failure Failure Successful Successful
28.2.E27 MathieuA(2*n + 1, - q)= MathieuB(2*n + 1, q) MathieuCharacteristicA[2*n + 1, - q]= MathieuCharacteristicB[2*n + 1, q] Failure Failure Successful Successful
28.2.E28 MathieuB(2*n + 2, - q)= MathieuB(2*n + 2, q) MathieuCharacteristicB[2*n + 2, - q]= MathieuCharacteristicB[2*n + 2, q] Failure Failure Successful Successful
28.2#Ex4 MathieuCE(0, 0, z)= 1/sqrt(2) MathieuC[0, 0, z]= 1/Sqrt[2] Failure Successful - -
28.2#Ex5 MathieuCE(n, 0, z)= cos(n*z) MathieuC[n, 0, z]= Cos[n*z] Successful Failure -
Fail
Complex[6.510464566583027, -0.7008927266021505] <- {Rule[n, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[11.262006072549275, -34.68845328285399] <- {Rule[n, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[6.510464566583027, 0.7008927266021505] <- {Rule[n, 2], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[11.262006072549275, 34.68845328285399] <- {Rule[n, 3], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
28.2#Ex6 MathieuSE(n, 0, z)= sin(n*z) MathieuS[n, 0, z]= Sin[n*z] Successful Failure -
Fail
Complex[0.8057439410809155, 6.510552888635757] <- {Rule[n, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[34.75636341426024, 11.321973340262975] <- {Rule[n, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.8057439410809155, -6.510552888635757] <- {Rule[n, 2], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[34.75636341426024, -11.321973340262975] <- {Rule[n, 3], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
28.2#Ex7 int((MathieuCE(n, q, x))^(2), x = 0..2*Pi)= Pi Integrate[(MathieuC[n, q, x])^(2), {x, 0, 2*Pi}]= Pi Failure Failure Skip
Fail
Complex[-1.727379091216698, 1.4142135623730951] <- {Rule[Integrate[Power[MathieuC[n, q, x], 2], {x, 0, Times[2, Pi]}], Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-1.727379091216698, -1.4142135623730951] <- {Rule[Integrate[Power[MathieuC[n, q, x], 2], {x, 0, Times[2, Pi]}], Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[-4.555806215962888, -1.4142135623730951] <- {Rule[Integrate[Power[MathieuC[n, q, x], 2], {x, 0, Times[2, Pi]}], Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]}
Complex[-4.555806215962888, 1.4142135623730951] <- {Rule[Integrate[Power[MathieuC[n, q, x], 2], {x, 0, Times[2, Pi]}], Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]}
28.2#Ex8 int((MathieuSE(n, q, x))^(2), x = 0..2*Pi)= Pi Integrate[(MathieuS[n, q, x])^(2), {x, 0, 2*Pi}]= Pi Failure Failure Skip
Fail
Complex[-1.727379091216698, 1.4142135623730951] <- {Rule[Integrate[Power[MathieuS[n, q, x], 2], {x, 0, Times[2, Pi]}], Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-1.727379091216698, -1.4142135623730951] <- {Rule[Integrate[Power[MathieuS[n, q, x], 2], {x, 0, Times[2, Pi]}], Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[-4.555806215962888, -1.4142135623730951] <- {Rule[Integrate[Power[MathieuS[n, q, x], 2], {x, 0, Times[2, Pi]}], Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]}
Complex[-4.555806215962888, 1.4142135623730951] <- {Rule[Integrate[Power[MathieuS[n, q, x], 2], {x, 0, Times[2, Pi]}], Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]}
28.2.E31 int(MathieuCE(m, q, x)*MathieuCE(n, q, x), x = 0..2*Pi)= 0 Integrate[MathieuC[m, q, x]*MathieuC[n, q, x], {x, 0, 2*Pi}]= 0 Failure Failure Skip Successful
28.2.E32 int(MathieuSE(m, q, x)*MathieuSE(n, q, x), x = 0..2*Pi)= 0 Integrate[MathieuS[m, q, x]*MathieuS[n, q, x], {x, 0, 2*Pi}]= 0 Failure Failure Skip Successful
28.2.E33 int(MathieuCE(m, q, x)*MathieuSE(n, q, x), x = 0..2*Pi)= 0 Integrate[MathieuC[m, q, x]*MathieuS[n, q, x], {x, 0, 2*Pi}]= 0 Failure Failure Skip
Fail
Complex[1.4142135623730951, 1.4142135623730951] <- {Rule[Integrate[Times[MathieuC[m, q, x], MathieuS[n, q, x]], {x, 0, Times[2, Pi]}], Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[1.4142135623730951, -1.4142135623730951] <- {Rule[Integrate[Times[MathieuC[m, q, x], MathieuS[n, q, x]], {x, 0, Times[2, Pi]}], Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[-1.4142135623730951, -1.4142135623730951] <- {Rule[Integrate[Times[MathieuC[m, q, x], MathieuS[n, q, x]], {x, 0, Times[2, Pi]}], Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]}
Complex[-1.4142135623730951, 1.4142135623730951] <- {Rule[Integrate[Times[MathieuC[m, q, x], MathieuS[n, q, x]], {x, 0, Times[2, Pi]}], Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]}
28.2.E34 MathieuCE(2*n, - q, z)=(- 1)^(n)* MathieuCE(2*n, q, (1)/(2)*Pi - z) MathieuC[2*n, - q, z]=(- 1)^(n)* MathieuC[2*n, q, Divide[1,2]*Pi - z] Failure Failure Successful
Fail
Complex[-35.48938782449842, 4.362541390270897] <- {Rule[n, 1], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[8.113008541051663, 1.5552980263308331] <- {Rule[n, 2], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[35.468444164343595, -60.307504750945526] <- {Rule[n, 3], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[4.4218686670701555, 4.355505323618388] <- {Rule[n, 1], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
28.2.E35 MathieuCE(2*n + 1, - q, z)=(- 1)^(n)* MathieuSE(2*n + 1, q, (1)/(2)*Pi - z) MathieuC[2*n + 1, - q, z]=(- 1)^(n)* MathieuS[2*n + 1, q, Divide[1,2]*Pi - z] Failure Failure Successful
Fail
Complex[23.78813652597893, -3.3722327992542382] <- {Rule[n, 1], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[44.411224266286126, -43.54652180033389] <- {Rule[n, 2], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[31.14066048310312, -63.12632131709884] <- {Rule[n, 3], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-2.8575002662710154, -10.873868123505298] <- {Rule[n, 1], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
28.2.E36 MathieuSE(2*n + 1, - q, z)=(- 1)^(n)* MathieuCE(2*n + 1, q, (1)/(2)*Pi - z) MathieuS[2*n + 1, - q, z]=(- 1)^(n)* MathieuC[2*n + 1, q, Divide[1,2]*Pi - z] Failure Failure Successful
Fail
Complex[-2.359402591966014, 27.60697614269746] <- {Rule[n, 1], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[47.446183037810655, 46.79242964252569] <- {Rule[n, 2], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[63.57245907030711, 29.231688225822445] <- {Rule[n, 3], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-9.92152066646148, 3.1462660649328162] <- {Rule[n, 1], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
28.2.E37 MathieuSE(2*n + 2, - q, z)=(- 1)^(n)* MathieuSE(2*n + 2, q, (1)/(2)*Pi - z) MathieuS[2*n + 2, - q, z]=(- 1)^(n)* MathieuS[2*n + 2, q, Divide[1,2]*Pi - z] Failure Failure
Fail
-33.89568074-158.8507182*I <- {q = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2), n = 1}
-1663.167618+2486.508244*I <- {q = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2), n = 2}
50746.06591-21466.91354*I <- {q = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2), n = 3}
43.05202189+35.26439985*I <- {q = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2), n = 1}
... skip entries to safe data
Fail
Complex[-13.013045011746364, -6.523555599290751] <- {Rule[n, 1], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[60.43374347015696, 35.92848167143245] <- {Rule[n, 2], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[80.47427800717344, 35.59929164615286] <- {Rule[n, 3], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[2.5195173062774003, 0.020895058047888604] <- {Rule[n, 1], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
28.4.E1 MathieuCE(2*n, q, z)sum(A(A[2*m])^(2*n)*(q)* cos(2*m*z), m = 0..infinity) MathieuC[2*n, q, z]Sum[A(Subscript[A, 2*m])^(2*n)*(q)* Cos[2*m*z], {m, 0, Infinity}] Failure Failure Skip Skip
28.4.E2 MathieuCE(2*n + 1, q, z)sum(A(A[2*m + 1])^(2*n + 1)*(q)* cos((2*m + 1)* z), m = 0..infinity) MathieuC[2*n + 1, q, z]Sum[A(Subscript[A, 2*m + 1])^(2*n + 1)*(q)* Cos[(2*m + 1)* z], {m, 0, Infinity}] Failure Failure Skip Skip
28.4.E3 MathieuSE(2*n + 1, q, z)sum(B(B[2*m + 1])^(2*n + 1)*(q)* sin((2*m + 1)* z), m = 0..infinity) MathieuS[2*n + 1, q, z]Sum[B(Subscript[B, 2*m + 1])^(2*n + 1)*(q)* Sin[(2*m + 1)* z], {m, 0, Infinity}] Failure Failure Skip Skip
28.4.E4 MathieuSE(2*n + 2, q, z)sum(B(B[2*m + 2])^(2*n + 2)*(q)* sin((2*m + 2)* z), m = 0..infinity) MathieuS[2*n + 2, q, z]Sum[B(Subscript[B, 2*m + 2])^(2*n + 2)*(q)* Sin[(2*m + 2)* z], {m, 0, Infinity}] Failure Failure Skip Skip
28.5.E5 (C[n]*(q))^(2)* int((f[n]*(x , q))^(2), x = 0..2*Pi)=(S[n]*(q))^(2)* int((g[n]*(x , q))^(2), x = 0..2*Pi) (Subscript[C, n]*(q))^(2)* Integrate[(Subscript[f, n]*(x , q))^(2), {x, 0, 2*Pi}]=(Subscript[S, n]*(q))^(2)* Integrate[(Subscript[g, n]*(x , q))^(2), {x, 0, 2*Pi}] Failure Failure Skip Error
28.5.E5 (S[n]*(q))^(2)* int((g[n]*(x , q))^(2), x = 0..2*Pi)= Pi (Subscript[S, n]*(q))^(2)* Integrate[(Subscript[g, n]*(x , q))^(2), {x, 0, 2*Pi}]= Pi Failure Failure Skip Error
28.6.E20 (rho(rho[n])^(j))/((n)^(2))> = k*sqrt(1 - (k)^(2))*(EllipticK(k))^(2) Divide[\[Rho](Subscript[\[Rho], n])^(j),(n)^(2)]> = k*Sqrt[1 - (k)^(2)]*(EllipticK[(k)^2])^(2) Failure Failure Skip Successful
28.7.E1 sum(MathieuA(2*n, q)-(2*n)^(2), n = 0..infinity)= 0 Sum[MathieuCharacteristicA[2*n, q]-(2*n)^(2), {n, 0, Infinity}]= 0 Failure Failure Skip
Fail
Complex[1.4142135623730951, 1.4142135623730951] <- {Rule[Sum[Plus[Times[-4, Power[n, 2]], MathieuCharacteristicA[Times[2, n], q]], {n, 0, DirectedInfinity[1]}], Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[1.4142135623730951, -1.4142135623730951] <- {Rule[Sum[Plus[Times[-4, Power[n, 2]], MathieuCharacteristicA[Times[2, n], q]], {n, 0, DirectedInfinity[1]}], Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[-1.4142135623730951, -1.4142135623730951] <- {Rule[Sum[Plus[Times[-4, Power[n, 2]], MathieuCharacteristicA[Times[2, n], q]], {n, 0, DirectedInfinity[1]}], Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]}
Complex[-1.4142135623730951, 1.4142135623730951] <- {Rule[Sum[Plus[Times[-4, Power[n, 2]], MathieuCharacteristicA[Times[2, n], q]], {n, 0, DirectedInfinity[1]}], Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]}
28.7.E2 sum(MathieuA(2*n + 1, q)-(2*n + 1)^(2), n = 0..infinity)= q Sum[MathieuCharacteristicA[2*n + 1, q]-(2*n + 1)^(2), {n, 0, Infinity}]= q Failure Failure Skip Skip
28.7.E3 sum(MathieuB(2*n + 1, q)-(2*n + 1)^(2), n = 0..infinity)= - q Sum[MathieuCharacteristicB[2*n + 1, q]-(2*n + 1)^(2), {n, 0, Infinity}]= - q Failure Failure Skip Skip
28.7.E4 sum(MathieuB(2*n + 2, q)-(2*n + 2)^(2), n = 0..infinity)= 0 Sum[MathieuCharacteristicB[2*n + 2, q]-(2*n + 2)^(2), {n, 0, Infinity}]= 0 Failure Failure Skip
Fail
Complex[1.4142135623730951, 1.4142135623730951] <- {Rule[Sum[Plus[Times[-1, Power[Plus[2, Times[2, n]], 2]], MathieuCharacteristicB[Plus[2, Times[2, n]], q]], {n, 0, DirectedInfinity[1]}], Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[1.4142135623730951, -1.4142135623730951] <- {Rule[Sum[Plus[Times[-1, Power[Plus[2, Times[2, n]], 2]], MathieuCharacteristicB[Plus[2, Times[2, n]], q]], {n, 0, DirectedInfinity[1]}], Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[-1.4142135623730951, -1.4142135623730951] <- {Rule[Sum[Plus[Times[-1, Power[Plus[2, Times[2, n]], 2]], MathieuCharacteristicB[Plus[2, Times[2, n]], q]], {n, 0, DirectedInfinity[1]}], Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]}
Complex[-1.4142135623730951, 1.4142135623730951] <- {Rule[Sum[Plus[Times[-1, Power[Plus[2, Times[2, n]], 2]], MathieuCharacteristicB[Plus[2, Times[2, n]], q]], {n, 0, DirectedInfinity[1]}], Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]}
28.8#Ex3 (MathieuCE(m, (h)^(2), x))/(MathieuCE(m, (h)^(2), 0))(W(W[m])^(+)*(x)*(P[m]*(x)- Q[m]*(x))+ W(W[m])^(-)*(x)*(P[m]*(x)+ Q[m]*(x))) Divide[MathieuC[m, (h)^(2), x],MathieuC[m, (h)^(2), 0]](W(Subscript[W, m])^(+)*(x)*(Subscript[P, m]*(x)- Subscript[Q, m]*(x))+ W(Subscript[W, m])^(-)*(x)*(Subscript[P, m]*(x)+ Subscript[Q, m]*(x))) Error Failure - Error
28.8#Ex4 (MathieuSE(m + 1, (h)^(2), x))/(subs( temp=0, diff( MathieuSE(m + 1, (h)^(2), temp), temp$(1) ) ))(W(W[m])^(+)*(x)*(P[m]*(x)- Q[m]*(x))- W(W[m])^(-)*(x)*(P[m]*(x)+ Q[m]*(x))) Divide[MathieuS[m + 1, (h)^(2), x],D[MathieuS[m + 1, (h)^(2), temp], {temp, 1}]/.temp-> 0](W(Subscript[W, m])^(+)*(x)*(Subscript[P, m]*(x)- Subscript[Q, m]*(x))- W(Subscript[W, m])^(-)*(x)*(Subscript[P, m]*(x)+ Subscript[Q, m]*(x))) Error Failure - Error
28.10.E1 (2)/(Pi)*int(cos(2*h*cos(z)*cos(t))*MathieuCE(2*n, (h)^(2), t), t = 0..(Pi)/(2))(A(A[0])^(2*n)*((h)^(2)))/(MathieuCE(2*n, (h)^(2), (1)/(2)*Pi))*MathieuCE(2*n, (h)^(2), z) Divide[2,Pi]*Integrate[Cos[2*h*Cos[z]*Cos[t]]*MathieuC[2*n, (h)^(2), t], {t, 0, Divide[Pi,2]}]Divide[A(Subscript[A, 0])^(2*n)*((h)^(2)),MathieuC[2*n, (h)^(2), Divide[1,2]*Pi]]*MathieuC[2*n, (h)^(2), z] Failure Failure Skip Skip
28.10.E2 (2)/(Pi)*int(cosh(2*h*sin(z)*sin(t))*MathieuCE(2*n, (h)^(2), t), t = 0..(Pi)/(2))(A(A[0])^(2*n)*((h)^(2)))/(MathieuCE(2*n, (h)^(2), 0))*MathieuCE(2*n, (h)^(2), z) Divide[2,Pi]*Integrate[Cosh[2*h*Sin[z]*Sin[t]]*MathieuC[2*n, (h)^(2), t], {t, 0, Divide[Pi,2]}]Divide[A(Subscript[A, 0])^(2*n)*((h)^(2)),MathieuC[2*n, (h)^(2), 0]]*MathieuC[2*n, (h)^(2), z] Failure Failure Skip Skip
28.10.E3 (2)/(Pi)*int(sin(2*h*cos(z)*cos(t))*MathieuCE(2*n + 1, (h)^(2), t), t = 0..(Pi)/(2))= (h*A(A[1])^(2*n + 1)*((h)^(2)))/(subs( temp=(1)/(2)*Pi, diff( MathieuCE(2*n + 1, (h)^(2), temp), temp$(1) ) ))*MathieuCE(2*n + 1, (h)^(2), z) Divide[2,Pi]*Integrate[Sin[2*h*Cos[z]*Cos[t]]*MathieuC[2*n + 1, (h)^(2), t], {t, 0, Divide[Pi,2]}]= Divide[h*A(Subscript[A, 1])^(2*n + 1)*((h)^(2)),D[MathieuC[2*n + 1, (h)^(2), temp], {temp, 1}]/.temp-> Divide[1,2]*Pi]*MathieuC[2*n + 1, (h)^(2), z] Failure Failure Skip Skip
28.10.E4 (2)/(Pi)*int(cos(z)*cos(t)*cosh(2*h*sin(z)*sin(t))*MathieuCE(2*n + 1, (h)^(2), t), t = 0..(Pi)/(2))(A(A[1])^(2*n + 1)*((h)^(2)))/(2*MathieuCE(2*n + 1, (h)^(2), 0))*MathieuCE(2*n + 1, (h)^(2), z) Divide[2,Pi]*Integrate[Cos[z]*Cos[t]*Cosh[2*h*Sin[z]*Sin[t]]*MathieuC[2*n + 1, (h)^(2), t], {t, 0, Divide[Pi,2]}]Divide[A(Subscript[A, 1])^(2*n + 1)*((h)^(2)),2*MathieuC[2*n + 1, (h)^(2), 0]]*MathieuC[2*n + 1, (h)^(2), z] Failure Failure Skip Error
28.10.E5 (2)/(Pi)*int(sinh(2*h*sin(z)*sin(t))*MathieuSE(2*n + 1, (h)^(2), t), t = 0..(Pi)/(2))(h*B(B[1])^(2*n + 1)*((h)^(2)))/(subs( temp=0, diff( MathieuSE(2*n + 1, (h)^(2), temp), temp$(1) ) ))*MathieuSE(2*n + 1, (h)^(2), z) Divide[2,Pi]*Integrate[Sinh[2*h*Sin[z]*Sin[t]]*MathieuS[2*n + 1, (h)^(2), t], {t, 0, Divide[Pi,2]}]Divide[h*B(Subscript[B, 1])^(2*n + 1)*((h)^(2)),D[MathieuS[2*n + 1, (h)^(2), temp], {temp, 1}]/.temp-> 0]*MathieuS[2*n + 1, (h)^(2), z] Failure Failure Skip Successful
28.10.E6 (2)/(Pi)*int(sin(z)*sin(t)*cos(2*h*cos(z)*cos(t))*MathieuSE(2*n + 1, (h)^(2), t), t = 0..(Pi)/(2))(B(B[1])^(2*n + 1)*((h)^(2)))/(2*MathieuSE(2*n + 1, (h)^(2), (1)/(2)*Pi))*MathieuSE(2*n + 1, (h)^(2), z) Divide[2,Pi]*Integrate[Sin[z]*Sin[t]*Cos[2*h*Cos[z]*Cos[t]]*MathieuS[2*n + 1, (h)^(2), t], {t, 0, Divide[Pi,2]}]Divide[B(Subscript[B, 1])^(2*n + 1)*((h)^(2)),2*MathieuS[2*n + 1, (h)^(2), Divide[1,2]*Pi]]*MathieuS[2*n + 1, (h)^(2), z] Failure Failure Skip Skip
28.10.E7 (2)/(Pi)*int(sin(z)*sin(t)*sin(2*h*cos(z)*cos(t))*MathieuSE(2*n + 2, (h)^(2), t), t = 0..(Pi)/(2))= (h*B(B[2])^(2*n + 2)*((h)^(2)))/(2*subs( temp=(1)/(2)*Pi, diff( MathieuSE(2*n + 2, (h)^(2), temp), temp$(1) ) ))*MathieuSE(2*n + 2, (h)^(2), z) Divide[2,Pi]*Integrate[Sin[z]*Sin[t]*Sin[2*h*Cos[z]*Cos[t]]*MathieuS[2*n + 2, (h)^(2), t], {t, 0, Divide[Pi,2]}]= Divide[h*B(Subscript[B, 2])^(2*n + 2)*((h)^(2)),2*(D[MathieuS[2*n + 2, (h)^(2), temp], {temp, 1}]/.temp-> Divide[1,2]*Pi)]*MathieuS[2*n + 2, (h)^(2), z] Failure Failure Skip Error
28.10.E8 (2)/(Pi)*int(cos(z)*cos(t)*sinh(2*h*sin(z)*sin(t))*MathieuSE(2*n + 2, (h)^(2), t), t = 0..(Pi)/(2))(h*B(B[2])^(2*n + 2)*((h)^(2)))/(2*subs( temp=0, diff( MathieuSE(2*n + 2, (h)^(2), temp), temp$(1) ) ))*MathieuSE(2*n + 2, (h)^(2), z) Divide[2,Pi]*Integrate[Cos[z]*Cos[t]*Sinh[2*h*Sin[z]*Sin[t]]*MathieuS[2*n + 2, (h)^(2), t], {t, 0, Divide[Pi,2]}]Divide[h*B(Subscript[B, 2])^(2*n + 2)*((h)^(2)),2*(D[MathieuS[2*n + 2, (h)^(2), temp], {temp, 1}]/.temp-> 0)]*MathieuS[2*n + 2, (h)^(2), z] Failure Failure Skip Error
28.11.E3 1 = sum(A(A[0])^(2*n)*(q)* MathieuCE(2*n, q, z), n = 0..infinity) 1 = Sum[A(Subscript[A, 0])^(2*n)*(q)* MathieuC[2*n, q, z], {n, 0, Infinity}] Failure Failure Skip Error
28.11.E4 cos(2*m*z)sum(A(A[2*m])^(2*n)*(q)* MathieuCE(2*n, q, z), n = 0..infinity) Cos[2*m*z]Sum[A(Subscript[A, 2*m])^(2*n)*(q)* MathieuC[2*n, q, z], {n, 0, Infinity}] Failure Failure Skip Error
28.11.E5 cos((2*m + 1)* z)sum(A(A[2*m + 1])^(2*n + 1)*(q)* MathieuCE(2*n + 1, q, z), n = 0..infinity) Cos[(2*m + 1)* z]Sum[A(Subscript[A, 2*m + 1])^(2*n + 1)*(q)* MathieuC[2*n + 1, q, z], {n, 0, Infinity}] Failure Failure Skip Error
28.11.E6 sin((2*m + 1)* z)sum(B(B[2*m + 1])^(2*n + 1)*(q)* MathieuSE(2*n + 1, q, z), n = 0..infinity) Sin[(2*m + 1)* z]Sum[B(Subscript[B, 2*m + 1])^(2*n + 1)*(q)* MathieuS[2*n + 1, q, z], {n, 0, Infinity}] Failure Failure Skip Error
28.11.E7 sin((2*m + 2)* z)sum(B(B[2*m + 2])^(2*n + 2)*(q)* MathieuSE(2*n + 2, q, z), n = 0..infinity) Sin[(2*m + 2)* z]Sum[B(Subscript[B, 2*m + 2])^(2*n + 2)*(q)* MathieuS[2*n + 2, q, z], {n, 0, Infinity}] Failure Failure Skip Error
28.12.E4 Error Sqrt[2]*MathieuC[\[Nu], 0, z]= Exp[I*\[Nu]*z] Error Failure - Error
28.12.E5 Error Integrate[Sqrt[2]*MathieuC[\[Nu], q, x]*Sqrt[2]*MathieuC[\[Nu], q, - x], {x, 0, Pi}]= Pi Error Failure - Error
28.12.E6 Error Sqrt[2]*MathieuC[\[Nu], q, z + Pi]= Exp[Pi*I*\[Nu]]*Sqrt[2]*MathieuC[\[Nu], q, z] Error Failure - Error
28.12.E8 Error Sqrt[2]*MathieuC[- \[Nu], q, z]= Sqrt[2]*MathieuC[\[Nu], q, - z] Error Failure - Error
28.12.E9 Error Sqrt[2]*MathieuC[\[Nu], - q, z]= Exp[I*\[Nu]*Pi/ 2]*Sqrt[2]*MathieuC[\[Nu], q, z -Divide[1,2]*Pi] Error Failure - Error
28.12.E10 Error Conjugate[Sqrt[2]*MathieuC[\[Nu], q, z]]= Sqrt[2]*MathieuC[Conjugate[\[Nu]], Conjugate[q], - Conjugate[z]] Error Failure - Error
28.12#Ex1 Error Sqrt[2]*MathieuC[n, q, z]=Sqrt[2]*MathieuC[n, q, z] Error Successful - -
28.12#Ex2 Error Sqrt[2]*MathieuC[- n, q, z]= -Sqrt[2]*I*MathieuS[n, q, z] Error Failure - Error
28.12.E12 Error MathieuC[\[Nu], q, z]=Divide[1,2]*(Sqrt[2]*MathieuC[\[Nu], q, z]+ Sqrt[2]*MathieuC[\[Nu], q, - z]) Error Failure - Error
28.12.E13 Error MathieuS[\[Nu], q, z]= -Divide[1,2]*I*(Sqrt[2]*MathieuC[\[Nu], q, z]- Sqrt[2]*MathieuC[\[Nu], q, - z]) Error Failure - Error
28.12.E14 MathieuCE(nu, q, z)= MathieuCE(nu, q, - z) MathieuC[\[Nu], q, z]= MathieuC[\[Nu], q, - z] Successful Successful - -
28.12.E14 MathieuCE(nu, q, - z)= MathieuCE(- nu, q, z) MathieuC[\[Nu], q, - z]= MathieuC[- \[Nu], q, z] Failure Failure Error Error
28.12.E15 MathieuSE(nu, q, z)= - MathieuSE(nu, q, - z) MathieuS[\[Nu], q, z]= - MathieuS[\[Nu], q, - z] Successful Successful - -
28.12.E15 - MathieuSE(nu, q, - z)= - MathieuSE(- nu, q, z) - MathieuS[\[Nu], q, - z]= - MathieuS[- \[Nu], q, z] Failure Failure Error Error
28.14.E1 Error Sqrt[2]*MathieuC[\[Nu], q, z]Sum[c(Subscript[c, 2*m])^(\[Nu])*(q)* Exp[I*(\[Nu]+ 2*m)* z], {m, - Infinity, Infinity}] Error Failure - Error
28.14.E2 MathieuCE(nu, q, z)sum(c(c[2*m])^(nu)*(q)* cos((nu + 2*m)* z), m = - infinity..infinity) MathieuC[\[Nu], q, z]Sum[c(Subscript[c, 2*m])^(\[Nu])*(q)* Cos[(\[Nu]+ 2*m)* z], {m, - Infinity, Infinity}] Failure Failure Skip Error
28.14.E3 MathieuSE(nu, q, z)sum(c(c[2*m])^(nu)*(q)* sin((nu + 2*m)* z), m = - infinity..infinity) MathieuS[\[Nu], q, z]Sum[c(Subscript[c, 2*m])^(\[Nu])*(q)* Sin[(\[Nu]+ 2*m)* z], {m, - Infinity, Infinity}] Failure Failure Skip Error
28.19.E4 Error Exp[I*\[Nu]*z]Sum[c(Subscript[c, - 2*n])^(\[Nu]+ 2*n)*(q)* Sqrt[2]*MathieuC[\[Nu]+ 2*n, q, z], {n, - Infinity, Infinity}] Error Failure - Error
28.22.E5 g[exp(1), 2*m]*(h)=(- 1)^(m)*(MathieuCE(2*m, (h)^(2), (1)/(2)*Pi))/(A(A[0])^(2*m)*((h)^(2))) Subscript[g, E , 2*m]*(h)=(- 1)^(m)*Divide[MathieuC[2*m, (h)^(2), Divide[1,2]*Pi],A(Subscript[A, 0])^(2*m)*((h)^(2))] Failure Failure Error Error
28.22.E6 g[exp(1), 2*m + 1]*(h)=(- 1)^(m + 1)*(subs( temp=(1)/(2)*Pi, diff( MathieuCE(2*m + 1, (h)^(2), temp), temp$(1) ) ))/(h*A(A[1])^(2*m + 1)*((h)^(2))) Subscript[g, E , 2*m + 1]*(h)=(- 1)^(m + 1)*Divide[D[MathieuC[2*m + 1, (h)^(2), temp], {temp, 1}]/.temp-> Divide[1,2]*Pi,h*A(Subscript[A, 1])^(2*m + 1)*((h)^(2))] Failure Failure Error Error
28.22.E7 g[o , 2*m + 1]*(h)=(- 1)^(m)*(MathieuSE(2*m + 1, (h)^(2), (1)/(2)*Pi))/(h*B(B[1])^(2*m + 1)*((h)^(2))) Subscript[g, o , 2*m + 1]*(h)=(- 1)^(m)*Divide[MathieuS[2*m + 1, (h)^(2), Divide[1,2]*Pi],h*B(Subscript[B, 1])^(2*m + 1)*((h)^(2))] Failure Failure Error Error
28.22.E8 g[o , 2*m + 2]*(h)=(- 1)^(m + 1)*(subs( temp=(1)/(2)*Pi, diff( MathieuSE(2*m + 2, (h)^(2), temp), temp$(1) ) ))/((h)^(2)* B(B[2])^(2*m + 2)*((h)^(2))) Subscript[g, o , 2*m + 2]*(h)=(- 1)^(m + 1)*Divide[D[MathieuS[2*m + 2, (h)^(2), temp], {temp, 1}]/.temp-> Divide[1,2]*Pi,(h)^(2)* B(Subscript[B, 2])^(2*m + 2)*((h)^(2))] Failure Failure Error Error
28.25.E3 (m + 1)* (D[m + 1])^(+)+((m +(1)/(2))^(2)+(m +(1)/(4))*8*I*h + 2*(h)^(2)- a)* (D[m])^(+)+(m -(1)/(2))*(8*I*h*m)* (D[m - 1])^(+)= 0 (m + 1)* (Subscript[D, m + 1])^(+)+((m +Divide[1,2])^(2)+(m +Divide[1,4])*8*I*h + 2*(h)^(2)- a)* (Subscript[D, m])^(+)+(m -Divide[1,2])*(8*I*h*m)* (Subscript[D, m - 1])^(+)= 0 Error Failure - Error
28.25.E3 (m + 1)* (D[m + 1])^(-)+((m +(1)/(2))^(2)-(m +(1)/(4))*8*I*h + 2*(h)^(2)- a)* (D[m])^(-)-(m -(1)/(2))*(8*I*h*m)* (D[m - 1])^(-)= 0 (m + 1)* (Subscript[D, m + 1])^(-)+((m +Divide[1,2])^(2)-(m +Divide[1,4])*8*I*h + 2*(h)^(2)- a)* (Subscript[D, m])^(-)-(m -Divide[1,2])*(8*I*h*m)* (Subscript[D, m - 1])^(-)= 0 Error Failure - Error
28.26.E3 phi = 2*h*sinh(z)-(m +(1)/(2))* arctan(sinh(z)) \[Phi]= 2*h*Sinh[z]-(m +Divide[1,2])* ArcTan[Sinh[z]] Failure Failure
Fail
8.881737466-4.791146621*I <- {h = 2^(1/2)+I*2^(1/2), phi = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2), m = 1}
10.37211930-4.302072204*I <- {h = 2^(1/2)+I*2^(1/2), phi = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2), m = 2}
11.86250114-3.812997788*I <- {h = 2^(1/2)+I*2^(1/2), phi = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2), m = 3}
-3.289185494+5.912553089*I <- {h = 2^(1/2)+I*2^(1/2), phi = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2), m = 1}
... skip entries to safe data
Error
28.28.E1 w = cosh(z)*cos(t)*cos(alpha)+ sinh(z)*sin(t)*sin(alpha) w = Cosh[z]*Cos[t]*Cos[\[Alpha]]+ Sinh[z]*Sin[t]*Sin[\[Alpha]] Failure Failure
Fail
1.558413509-1.537727303*I <- {alpha = 2^(1/2)+I*2^(1/2), t = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
.934763107+4.464613324*I <- {alpha = 2^(1/2)+I*2^(1/2), t = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
-1.290314455+18.77347892*I <- {alpha = 2^(1/2)+I*2^(1/2), t = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)}
9.261119835-14.27924254*I <- {alpha = 2^(1/2)+I*2^(1/2), t = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Error
28.28.E10 0 < argument(h*(cosh(z)+ 1)) 0 < Arg[h*(Cosh[z]+ 1)] Failure Failure
Fail
0. < -.1740759484 <- {h = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
0. < -.1740759484 <- {h = 2^(1/2)+I*2^(1/2), z = -2^(1/2)+I*2^(1/2)}
0. < -1.744872276 <- {h = 2^(1/2)-I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
0. < -1.744872276 <- {h = 2^(1/2)-I*2^(1/2), z = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Error
28.28.E10 0 < argument(h*(cosh(z)- 1)) 0 < Arg[h*(Cosh[z]- 1)] Failure Failure
Fail
0. < -1.118030274 <- {h = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
0. < -1.118030274 <- {h = 2^(1/2)+I*2^(1/2), z = -2^(1/2)+I*2^(1/2)}
0. < -2.688826601 <- {h = 2^(1/2)-I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
0. < -2.688826601 <- {h = 2^(1/2)-I*2^(1/2), z = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Error
28.28.E10 argument(h*(cosh(z)+ 1))< Pi Arg[h*(Cosh[z]+ 1)]< Pi Failure Failure Skip Error
28.28.E10 argument(h*(cosh(z)- 1))< Pi Arg[h*(Cosh[z]- 1)]< Pi Failure Failure Skip Error
28.28#Ex4 R*(z , t)=((1)/(2)*(cosh(2*z)+ cos(2*t)))^((1)/(2)) R*(z , t)=(Divide[1,2]*(Cosh[2*z]+ Cos[2*t]))^(Divide[1,2]) Failure Failure Error Error
28.28#Ex5 R*(z , 0)= cosh(z) R*(z , 0)= Cosh[z] Failure Failure Error Error
28.28#Ex6 exp(2*I*phi)=(cosh(z + I*t))/(cosh(z - I*t)) Exp[2*I*\[Phi]]=Divide[Cosh[z + I*t],Cosh[z - I*t]] Failure Failure
Fail
.5583951073e-1+.1820881038e-1*I <- {phi = 2^(1/2)+I*2^(1/2), t = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
.5598730513e-1-.1787687390e-1*I <- {phi = 2^(1/2)+I*2^(1/2), t = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
8.866720637+.1820881038e-1*I <- {phi = 2^(1/2)+I*2^(1/2), t = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)}
8.019859366+2.615210924*I <- {phi = 2^(1/2)+I*2^(1/2), t = 2^(1/2)+I*2^(1/2), z = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Error
28.28.E28 Error (Subscript[\[Alpha], \[Nu], m])^(1)=Divide[1,2*Pi]*Integrate[Sin[t]*Sqrt[2]*MathieuC[\[Nu], (h)^(2), t]*Sqrt[2]*MathieuC[- \[Nu]- 2*m - 1, (h)^(2), t], {t, 0, 2*Pi}] Error Failure - Error
28.29.E3 int(Q*(z), z = 0..Pi)= 0 Integrate[Q*(z), {z, 0, Pi}]= 0 Failure Failure Skip Error
28.29.E6 - 1 < Re(nu) - 1 < Re[\[Nu]] Failure Failure
Fail
-1. < -1.414213562 <- {nu = -2^(1/2)-I*2^(1/2)}
-1. < -1.414213562 <- {nu = -2^(1/2)+I*2^(1/2)}
Error
28.29.E6 Re(nu)< = 1 Re[\[Nu]]< = 1 Failure Failure
Fail
1.414213562 <= 1. <- {nu = 2^(1/2)+I*2^(1/2)}
1.414213562 <= 1. <- {nu = 2^(1/2)-I*2^(1/2)}
Error
28.29.E7 w*(z + Pi)= exp(Pi*I*nu)*w*(z) w*(z + Pi)= Exp[Pi*I*\[Nu]]*w*(z) Failure Failure
Fail
4.397533327+8.455409696*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
8.455409696+4.488232549*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
4.488232549+.4303561791*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)}
.4303561791+4.397533327*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Error
28.29.E13 w*(z + Pi)+ w*(z - Pi)= 2*cos(Pi*nu)*w*(z) w*(z + Pi)+ w*(z - Pi)= 2*Cos[Pi*\[Nu]]*w*(z) Failure Failure
Fail
327.7574484+98.56031892*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
98.56031892-327.7574484*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
-327.7574484-98.56031892*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)}
-98.56031892+327.7574484*I <- {nu = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Error
28.30.E2 (1)/(2*Pi)*int(w[m]*(x)* w[n]*(x), x = 0..2*Pi)= KroneckerDelta[m, n] Divide[1,2*Pi]*Integrate[Subscript[w, m]*(x)* Subscript[w, n]*(x), {x, 0, 2*Pi}]= KroneckerDelta[m, n] Failure Failure Skip Error
28.31#Ex4 W*(z)= w*(z)* exp(-(1)/(4)*xi*cos(2*z)) W*(z)= w*(z)* Exp[-Divide[1,4]*\[Xi]*Cos[2*z]] Failure Failure
Fail
-16.39510758+26.39608289*I <- {W = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
66.37576538-162.5747100*I <- {W = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
16.39510758-26.39608289*I <- {W = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)}
-66.37576538+162.5747100*I <- {W = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)+I*2^(1/2), z = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Error
28.31.E4 w[exp(1), s]*(z)= sum(A[2*ell + s]*cos((2*ell + s)* z), ell = 0..infinity) Subscript[w, E , s]*(z)= Sum[Subscript[A, 2*\[ScriptL]+ s]*Cos[(2*\[ScriptL]+ s)* z], {\[ScriptL], 0, Infinity}] Error Failure - Error
28.31.E5 w[o , s]*(z)= sum(B[2*ell + s]*sin((2*ell + s)* z), ell = 0..infinity) Subscript[w, o , s]*(z)= Sum[Subscript[B, 2*\[ScriptL]+ s]*Sin[(2*\[ScriptL]+ s)* z], {\[ScriptL], 0, Infinity}] Error Failure - Error
28.31.E12 int((C(C[p])^(m)*(x , xi))^(2), x = 0..2*Pi)=int((S(S[p])^(m)*(x , xi))^(2), x = 0..2*Pi) Integrate[(C(Subscript[C, p])^(m)*(x , \[Xi]))^(2), {x, 0, 2*Pi}]=Integrate[(S(Subscript[S, p])^(m)*(x , \[Xi]))^(2), {x, 0, 2*Pi}] Failure Failure Skip Error
28.31.E12 int((S(S[p])^(m)*(x , xi))^(2), x = 0..2*Pi)= 1 Integrate[(S(Subscript[S, p])^(m)*(x , \[Xi]))^(2), {x, 0, 2*Pi}]= 1 Failure Failure Skip Error
28.31.E21 int(h*s(s[p])^(m[1])*(x , xi)* h*s(s[p])^(m[2])*(x , xi), x = 0..2*Pi) Integrate[h*s(Subscript[s, p])^(Subscript[m, 1])*(x , \[Xi])* h*s(Subscript[s, p])^(Subscript[m, 2])*(x , \[Xi]), {x, 0, 2*Pi}] Failure Failure Skip Error
28.31.E21 int(h*s(s[p])^(m[1])*(x , xi)* h*s(s[p])^(m[2])*(x , xi), x = 0..2*Pi)= 0 Integrate[h*s(Subscript[s, p])^(Subscript[m, 1])*(x , \[Xi])* h*s(Subscript[s, p])^(Subscript[m, 2])*(x , \[Xi]), {x, 0, 2*Pi}]= 0 Failure Failure Skip Error
28.31.E22 int(int(h*c(c[p[1]])^(m[1])*(u , xi)* h*c(c[p[1]])^(m[1])*(v , xi)* h*c(c[p[2]])^(m[2])*(u , xi)* h*c(c[p[2]])^(m[2])*(v , xi)*(cos(2*u)- cos(2*v)), v = 0..2*Pi), u = u[0]..u[infinity])= 0 Integrate[Integrate[h*c(Subscript[c, Subscript[p, 1]])^(Subscript[m, 1])*(u , \[Xi])* h*c(Subscript[c, Subscript[p, 1]])^(Subscript[m, 1])*(v , \[Xi])* h*c(Subscript[c, Subscript[p, 2]])^(Subscript[m, 2])*(u , \[Xi])* h*c(Subscript[c, Subscript[p, 2]])^(Subscript[m, 2])*(v , \[Xi])*(Cos[2*u]- Cos[2*v]), {v, 0, 2*Pi}], {u, Subscript[u, 0], Subscript[u, Infinity]}]= 0 Failure Failure Skip Error
28.31.E23 int(int(h*s(s[p[1]])^(m[1])*(u , xi)* h*s(s[p[1]])^(m[1])*(v , xi)* h*s(s[p[2]])^(m[2])*(u , xi)* h*s(s[p[2]])^(m[2])*(v , xi)*(cos(2*u)- cos(2*v)), v = 0..2*Pi), u = u[0]..u[infinity])= 0 Integrate[Integrate[h*s(Subscript[s, Subscript[p, 1]])^(Subscript[m, 1])*(u , \[Xi])* h*s(Subscript[s, Subscript[p, 1]])^(Subscript[m, 1])*(v , \[Xi])* h*s(Subscript[s, Subscript[p, 2]])^(Subscript[m, 2])*(u , \[Xi])* h*s(Subscript[s, Subscript[p, 2]])^(Subscript[m, 2])*(v , \[Xi])*(Cos[2*u]- Cos[2*v]), {v, 0, 2*Pi}], {u, Subscript[u, 0], Subscript[u, Infinity]}]= 0 Failure Failure Skip Error
28.31.E24 int(int(h*c(c[p[1]])^(m[1])*(u , xi)* h*c(c[p[1]])^(m[1])*(v , xi)* h*s(s[p[2]])^(m[2])*(u , xi)* h*s(s[p[2]])^(m[2])*(v , xi)*(cos(2*u)- cos(2*v)), v = 0..2*Pi), u = u[0]..u[infinity])= 0 Integrate[Integrate[h*c(Subscript[c, Subscript[p, 1]])^(Subscript[m, 1])*(u , \[Xi])* h*c(Subscript[c, Subscript[p, 1]])^(Subscript[m, 1])*(v , \[Xi])* h*s(Subscript[s, Subscript[p, 2]])^(Subscript[m, 2])*(u , \[Xi])* h*s(Subscript[s, Subscript[p, 2]])^(Subscript[m, 2])*(v , \[Xi])*(Cos[2*u]- Cos[2*v]), {v, 0, 2*Pi}], {u, Subscript[u, 0], Subscript[u, Infinity]}]= 0 Failure Failure Skip Error
28.32#Ex1 x = c*cosh(xi)*cos(eta) x = c*Cosh[\[Xi]]*Cos[\[Eta]] Failure Failure
Fail
-4.329890955-5.329890955*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)+I*2^(1/2), x = 1}
-3.329890955-5.329890955*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)+I*2^(1/2), x = 2}
-2.329890955-5.329890955*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)+I*2^(1/2), x = 3}
4.167193694+6.839909304*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)-I*2^(1/2), x = 1}
... skip entries to safe data
Error
28.32#Ex2 y = c*sinh(xi)*sin(eta) y = c*Sinh[\[Xi]]*Sin[\[Eta]] Failure Failure
Fail
7.675321591-6.675321591*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)+I*2^(1/2), y = 1}
8.675321591-6.675321591*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)+I*2^(1/2), y = 2}
9.675321591-6.675321591*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)+I*2^(1/2), y = 3}
-7.254122865+4.581407255*I <- {c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)-I*2^(1/2), y = 1}
... skip entries to safe data
Error
28.32.E2 diff(V, [x$(2)])+ diff(V, [y$(2)])+ (k)^(2)* V = 0 D[V, {x, 2}]+ D[V, {y, 2}]+ (k)^(2)* V = 0 Failure Failure
Fail
1.414213562+1.414213562*I <- {V = 2^(1/2)+I*2^(1/2), k = 1}
5.656854248+5.656854248*I <- {V = 2^(1/2)+I*2^(1/2), k = 2}
12.72792206+12.72792206*I <- {V = 2^(1/2)+I*2^(1/2), k = 3}
1.414213562-1.414213562*I <- {V = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Error
28.32.E3 diff(V, [xi$(2)])+ diff(V, [eta$(2)])+(1)/(2)*(c)^(2)* (k)^(2)*(cosh(2*xi)- cos(2*eta))* V = 0 D[V, {\[Xi], 2}]+ D[V, {\[Eta], 2}]+Divide[1,2]*(c)^(2)* (k)^(2)*(Cosh[2*\[Xi]]- Cos[2*\[Eta]])* V = 0 Failure Failure
Fail
-14.69086244-14.69086244*I <- {V = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)+I*2^(1/2), k = 1}
-58.76344974-58.76344974*I <- {V = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)+I*2^(1/2), k = 2}
-132.2177619-132.2177619*I <- {V = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), xi = 2^(1/2)+I*2^(1/2), k = 3}
-14.69086244-14.69086244*I <- {V = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), eta = 2^(1/2)+I*2^(1/2), xi = -2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Error
28.32.E4 diff(K, [z$(2)])- diff(K, [zeta$(2)])= 2*q*(cos(2*z)- cos(2*zeta))* K D[K, {z, 2}]- D[K, {\[zeta], 2}]= 2*q*(Cos[2*z]- Cos[2*\[zeta]])* K Failure Failure
Fail
-41.55203380-0.*I <- {K = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2), zeta = 2^(1/2)-I*2^(1/2)}
-41.55203380-0.*I <- {K = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2), zeta = -2^(1/2)+I*2^(1/2)}
41.55203380-0.*I <- {K = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2), zeta = 2^(1/2)+I*2^(1/2)}
41.55203380-0.*I <- {K = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2), zeta = -2^(1/2)-I*2^(1/2)}
... skip entries to safe data
Error
28.32#Ex3 x[1]=(1)/(2)*c*(cosh(2*alpha)+ cos(2*beta)- cosh(2*gamma)) Subscript[x, 1]=Divide[1,2]*c*(Cosh[2*\[Alpha]]+ Cos[2*\[Beta]]- Cosh[2*\[Gamma]]) Failure Failure
Fail
14.06853191+14.06853191*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), x[1] = 2^(1/2)+I*2^(1/2)}
14.06853191+11.24010479*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), x[1] = 2^(1/2)-I*2^(1/2)}
11.24010479+11.24010479*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), x[1] = -2^(1/2)-I*2^(1/2)}
11.24010479+14.06853191*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), x[1] = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Error
28.32#Ex4 x[2]= 2*c*cosh(alpha)*cos(beta)*sinh(gamma) Subscript[x, 2]= 2*c*Cosh[\[Alpha]]*Cos[\[Beta]]*Sinh[\[Gamma]] Failure Failure
Fail
-5.086190384-5.086190384*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), x[2] = 2^(1/2)+I*2^(1/2)}
-5.086190384-7.914617508*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), x[2] = 2^(1/2)-I*2^(1/2)}
-7.914617508-7.914617508*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), x[2] = -2^(1/2)-I*2^(1/2)}
-7.914617508-5.086190384*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), x[2] = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Error
28.32#Ex5 x[3]= 2*c*sinh(alpha)*sin(beta)*cosh(gamma) Subscript[x, 3]= 2*c*Sinh[\[Alpha]]*Sin[\[Beta]]*Cosh[\[Gamma]] Failure Failure
Fail
17.05136734-14.22294022*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), x[3] = 2^(1/2)+I*2^(1/2)}
17.05136734-17.05136734*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), x[3] = 2^(1/2)-I*2^(1/2)}
14.22294022-17.05136734*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), x[3] = -2^(1/2)-I*2^(1/2)}
14.22294022-14.22294022*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), c = 2^(1/2)+I*2^(1/2), x[3] = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Error
28.33.E1 diff(W, [x$(2)])+ diff(W, [y$(2)])-(rho)/(tau)*diff(W, [t$(2)])= 0 D[W, {x, 2}]+ D[W, {y, 2}]-Divide[\[Rho],\[Tau]]*D[W, {t, 2}]= 0 Successful Successful - -