Results of Heun Functions

From DRMF
Revision as of 14:28, 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
31.2.E1 diff(w, [z$(2)])+((gamma)/(z)+(delta)/(z - 1)+(epsilon)/(z - a))* diff(w, z)+(alpha*beta*z - q)/(z*(z - 1)*(z - a))*w = 0 D[w, {z, 2}]+(Divide[\[Gamma],z]+Divide[\[Delta],z - 1]+Divide[\[Epsilon],z - a])* D[w, z]+Divide[\[Alpha]*\[Beta]*z - q,z*(z - 1)*(z - a)]*w = 0 Failure Failure Skip Successful
31.2.E5 z = (sin(theta))^(2) z = (Sin[\[Theta]])^(2) Failure Failure
Fail
-3.123831633+.115712505*I <- {theta = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
-3.123831633-2.712714619*I <- {theta = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
-5.952258757-2.712714619*I <- {theta = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)}
-5.952258757+.115712505*I <- {theta = 2^(1/2)+I*2^(1/2), z = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Fail
Complex[-3.1238316385762896, 0.11571250751855189] <- {Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-3.1238316385762896, 2.7127146172276384] <- {Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[-3.1238316385762896, 0.11571250751855189] <- {Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]}
Complex[-3.1238316385762896, 2.7127146172276384] <- {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
31.2.E6 diff(w, [theta$(2)])+((2*gamma - 1)* cot(theta)-(2*delta - 1)* tan(theta)-(epsilon*sin(2*theta))/(a - (sin(theta))^(2)))* diff(w, theta)+ 4*(alpha*beta*(sin(theta))^(2)- q)/(a - (sin(theta))^(2))*w = 0 D[w, {\[Theta], 2}]+((2*\[Gamma]- 1)* Cot[\[Theta]]-(2*\[Delta]- 1)* Tan[\[Theta]]-Divide[\[Epsilon]*Sin[2*\[Theta]],a - (Sin[\[Theta]])^(2)])* D[w, \[Theta]]+ 4*Divide[\[Alpha]*\[Beta]*(Sin[\[Theta]])^(2)- q,a - (Sin[\[Theta]])^(2)]*w = 0 Failure Failure Skip Skip
31.2#Ex8 z = (JacobiSN(zeta, k))^(2) z = (JacobiSN[\[zeta], (k)^2])^(2) Failure Failure
Fail
.165123316+1.322794733*I <- {z = 2^(1/2)+I*2^(1/2), zeta = 2^(1/2)+I*2^(1/2), k = 1}
1.289691928+.142135589*I <- {z = 2^(1/2)+I*2^(1/2), zeta = 2^(1/2)+I*2^(1/2), k = 2}
1.298236003+1.527150376*I <- {z = 2^(1/2)+I*2^(1/2), zeta = 2^(1/2)+I*2^(1/2), k = 3}
.165123316+1.505632391*I <- {z = 2^(1/2)+I*2^(1/2), zeta = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Error
31.2.E8 diff(w, [zeta$(2)])+((2*gamma - 1)*(JacobiCN(zeta, k)*JacobiDN(zeta, k))/(JacobiSN(zeta, k))-(2*delta - 1)*(JacobiSN(zeta, k)*JacobiDN(zeta, k))/(JacobiCN(zeta, k))-(2*epsilon - 1)*(k)^(2)*(JacobiSN(zeta, k)*JacobiCN(zeta, k))/(JacobiDN(zeta, k)))* diff(w, zeta)+ 4*(k)^(2)*(alpha*beta*(JacobiSN(zeta, k))^(2)- q)* w = 0 D[w, {\[zeta], 2}]+((2*\[Gamma]- 1)*Divide[JacobiCN[\[zeta], (k)^2]*JacobiDN[\[zeta], (k)^2],JacobiSN[\[zeta], (k)^2]]-(2*\[Delta]- 1)*Divide[JacobiSN[\[zeta], (k)^2]*JacobiDN[\[zeta], (k)^2],JacobiCN[\[zeta], (k)^2]]-(2*\[Epsilon]- 1)*(k)^(2)*Divide[JacobiSN[\[zeta], (k)^2]*JacobiCN[\[zeta], (k)^2],JacobiDN[\[zeta], (k)^2]])* D[w, \[zeta]]+ 4*(k)^(2)*(\[Alpha]*\[Beta]*(JacobiSN[\[zeta], (k)^2])^(2)- q)* w = 0 Failure Failure Skip Error
31.3.E1 HeunG(a, q, alpha, beta, gamma, delta, z)= sum(c[j]*(z)^(j), j = 0..infinity) Error Failure Error Skip -
31.7.E1 hypergeom([alpha , beta], [gamma], z)= HeunG(1, alpha*beta, alpha, beta, gamma, delta, z) Error Successful Error - -
31.7.E1 HeunG(1, alpha*beta, alpha, beta, gamma, delta, z)= HeunG(0, 0, alpha, beta, gamma, alpha + beta + 1 - gamma, z) Error Successful Error - -
31.7.E1 HeunG(0, 0, alpha, beta, gamma, alpha + beta + 1 - gamma, z)= HeunG(a, a*alpha*beta, alpha, beta, gamma, alpha + beta + 1 - gamma, z) Error Successful Error - -
31.7.E2 HeunG(2, alpha*beta, alpha, beta, gamma, alpha + beta - 2*gamma + 1, z)= hypergeom([(1)/(2)*alpha ,(1)/(2)*beta], [gamma], 1 -(1 - z)^(2)) Error Failure Error Skip -
31.7.E3 HeunG(4, alpha*beta, alpha, beta, (1)/(2), (2)/(3)*(alpha + beta), z)= hypergeom([(1)/(3)*alpha ,(1)/(3)*beta], [(1)/(2)], 1 -(1 - z)^(2)*(1 -(1)/(4)*z)) Error Failure Error
Fail
-3.621930481+3.545214886*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
-.7797065831-28.11306461*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
-2.255705377+1.783715852*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)-I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
-2.255705377-1.783715852*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)-I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
... skip entries to safe data
-
31.7.E4 HeunG((1)/(2)+ I*(sqrt(3))/(2), alpha*beta*((1)/(2)+ I*(sqrt(3))/(6)), alpha, beta, (1)/(3)*(alpha + beta + 1), (1)/(3)*(alpha + beta + 1), z)= hypergeom([(1)/(3)*alpha ,(1)/(3)*beta], [(1)/(3)*(alpha + beta + 1)], 1 -(1 -((3)/(2)- I*(sqrt(3))/(2))*z)^(3)) Error Failure Error
Fail
2.753353716-2.379263249*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
-2.603938147-2.727318150*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
.8968927627+1.268651452*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), z = -2^(1/2)+I*2^(1/2)}
.3609263936-1.161063097*I <- {alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)-I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
... skip entries to safe data
-
31.9.E2 int((t)^(gamma - 1)*(1 - t)^(delta - 1)*(t - a)^(epsilon - 1)* w[m]*(t)* w[k]*(t), t = zeta..(1 + , 0 + , 1 - , 0 -))= KroneckerDelta[m, k]*theta[m] Integrate[(t)^(\[Gamma]- 1)*(1 - t)^(\[Delta]- 1)*(t - a)^(\[Epsilon]- 1)* Subscript[w, m]*(t)* Subscript[w, k]*(t), {t, \[zeta], (1 + , 0 + , 1 - , 0 -)}]= KroneckerDelta[m, k]*Subscript[\[Theta], m] Error Failure - Error
31.9#Ex1 f[0]*(q[m], z)= HeunG(a, q[m], alpha, beta, gamma, delta, z) Error Failure Error Skip -
31.9#Ex2 f[1]*(q[m], z)= HeunG(1 - a, alpha*beta - q[m], alpha, beta, delta, gamma, 1 - z) Error Failure Error Skip -
31.10#Ex1 cos(theta)=((z*t)/(a))^(1/ 2) Cos[\[Theta]]=(Divide[z*t,a])^(1/ 2) Failure Failure
Fail
-.9668889726-2.452589209*I <- {a = 2^(1/2)+I*2^(1/2), t = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
-.9668889726-1.370197009*I <- {a = 2^(1/2)+I*2^(1/2), t = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
-.2015221077-.604830144*I <- {a = 2^(1/2)+I*2^(1/2), t = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)}
-.2015221077-3.217956074*I <- {a = 2^(1/2)+I*2^(1/2), t = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), z = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Skip
31.10#Ex2 sin(theta)*cos(phi)= I*(((z - a)*(t - a))/(a*(1 - a)))^(1/ 2) Sin[\[Theta]]*Cos[\[Phi]]= I*(Divide[(z - a)*(t - a),a*(1 - a)])^(1/ 2) Failure Failure Skip Skip
31.10#Ex3 sin(theta)*sin(phi)=(((z - 1)*(t - 1))/(1 - a))^(1/ 2) Sin[\[Theta]]*Sin[\[Phi]]=(Divide[(z - 1)*(t - 1),1 - a])^(1/ 2) Failure Failure Skip Skip
31.10.E8 (sin(theta))^(2)*(diff(K, [theta$(2)])+((1 - 2*gamma)*tan(theta)+ 2*(delta + epsilon -(1)/(2))*cot(theta))*diff(K, theta)- 4*alpha*beta*K)+ diff(K, [phi$(2)])+((1 - 2*delta)*cot(phi)-(1 - 2*epsilon)*tan(phi))* diff(K, phi)= 0 (Sin[\[Theta]])^(2)*(D[K, {\[Theta], 2}]+((1 - 2*\[Gamma])*Tan[\[Theta]]+ 2*(\[Delta]+ \[Epsilon]-Divide[1,2])*Cot[\[Theta]])*D[K, \[Theta]]- 4*\[Alpha]*\[Beta]*K)+ D[K, {\[Phi], 2}]+((1 - 2*\[Delta])*Cot[\[Phi]]-(1 - 2*\[Epsilon])*Tan[\[Phi]])* D[K, \[Phi]]= 0 Failure Failure
Fail
132.0659658-73.30251604*I <- {K = 2^(1/2)+I*2^(1/2), alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2)}
73.30251604-132.0659658*I <- {K = 2^(1/2)+I*2^(1/2), alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)-I*2^(1/2)}
132.0659658-73.30251604*I <- {K = 2^(1/2)+I*2^(1/2), alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), theta = -2^(1/2)-I*2^(1/2)}
73.30251604-132.0659658*I <- {K = 2^(1/2)+I*2^(1/2), alpha = 2^(1/2)+I*2^(1/2), beta = 2^(1/2)+I*2^(1/2), theta = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Fail
Complex[132.06596595801318, -73.30251627701908] <- {Rule[K, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[α, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[β, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[73.30251627701908, -132.06596595801318] <- {Rule[K, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[α, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[β, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[132.06596595801318, -73.30251627701908] <- {Rule[K, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[α, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[β, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]}
Complex[73.30251627701908, -132.06596595801318] <- {Rule[K, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[α, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[β, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
31.10.E10 K*(z , t)=(z*t - a)^((1)/(2)- delta - sigma)* hypergeom([(1)/(2)- delta - sigma + alpha ,(1)/(2)- delta - sigma + beta], [gamma], (z*t)/(a))* hypergeom([-(1)/(2)+ delta + sigma , -(1)/(2)+ epsilon - sigma], [delta], (a*(z - 1)*(t - 1))/((a - 1)*(z*t - a))) K*(z , t)=(z*t - a)^(Divide[1,2]- \[Delta]- \[Sigma])* HypergeometricPFQ[{Divide[1,2]- \[Delta]- \[Sigma]+ \[Alpha],Divide[1,2]- \[Delta]- \[Sigma]+ \[Beta]}, {\[Gamma]}, Divide[z*t,a]]* HypergeometricPFQ[{-Divide[1,2]+ \[Delta]+ \[Sigma], -Divide[1,2]+ \[Epsilon]- \[Sigma]}, {\[Delta]}, Divide[a*(z - 1)*(t - 1),(a - 1)*(z*t - a)]] Failure Failure Skip Error
31.10.E18 diff(K, [u$(2)])+ diff(K, [v$(2)])+ diff(K, [w$(2)])+(2*gamma - 1)/(u)*diff(K, u)+(2*delta - 1)/(v)*diff(K, v)+(2*epsilon - 1)/(w)*diff(K, w)= 0 D[K, {u, 2}]+ D[K, {v, 2}]+ D[K, {w, 2}]+Divide[2*\[Gamma]- 1,u]*D[K, u]+Divide[2*\[Delta]- 1,v]*D[K, v]+Divide[2*\[Epsilon]- 1,w]*D[K, w]= 0 Successful Successful - -
31.10#Ex7 u = r*cos(theta) u = r*Cos[\[Theta]] Failure Failure
Fail
-1.769276062+3.636960052*I <- {r = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), u = 2^(1/2)+I*2^(1/2)}
-1.769276062+.808532928*I <- {r = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), u = 2^(1/2)-I*2^(1/2)}
-4.597703186+.808532928*I <- {r = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), u = -2^(1/2)-I*2^(1/2)}
-4.597703186+3.636960052*I <- {r = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), u = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Fail
Complex[-1.7692760628877078, 3.636960055953727] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[3.636960055953727, -1.7692760628877078] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[-1.7692760628877078, 3.636960055953727] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]}
Complex[3.636960055953727, -1.7692760628877078] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
31.10#Ex8 v = r*sin(theta)*sin(phi) v = r*Sin[\[Theta]]*Sin[\[Phi]] Failure Failure
Fail
-3.167193693-6.839909303*I <- {phi = 2^(1/2)+I*2^(1/2), r = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2)}
-3.167193693-9.668336427*I <- {phi = 2^(1/2)+I*2^(1/2), r = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), v = 2^(1/2)-I*2^(1/2)}
-5.995620817-9.668336427*I <- {phi = 2^(1/2)+I*2^(1/2), r = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), v = -2^(1/2)-I*2^(1/2)}
-5.995620817-6.839909303*I <- {phi = 2^(1/2)+I*2^(1/2), r = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), v = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Fail
Complex[-3.1671937049405976, -6.839909310002729] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ϕ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-5.261108038166927, -5.261108038166927] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ϕ, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[5.9956208296867874, 9.66833643474892] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ϕ, Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]}
Complex[8.089535162913117, 8.089535162913117] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ϕ, Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
31.10#Ex9 w = r*sin(theta)*cos(phi) w = r*Sin[\[Theta]]*Cos[\[Phi]] Failure Failure
Fail
-6.105916754+5.235877121*I <- {phi = 2^(1/2)+I*2^(1/2), r = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2)}
-6.105916754+2.407449997*I <- {phi = 2^(1/2)+I*2^(1/2), r = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), w = 2^(1/2)-I*2^(1/2)}
-8.934343878+2.407449997*I <- {phi = 2^(1/2)+I*2^(1/2), r = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), w = -2^(1/2)-I*2^(1/2)}
-8.934343878+5.235877121*I <- {phi = 2^(1/2)+I*2^(1/2), r = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), w = -2^(1/2)+I*2^(1/2)}
... skip entries to safe data
Fail
Complex[-6.1059167609067115, 5.235877134071633] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ϕ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[7.1571861513265675, -4.764438262814106] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ϕ, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[-6.1059167609067115, 5.235877134071633] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ϕ, Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]}
Complex[7.1571861513265675, -4.764438262814106] <- {Rule[r, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[w, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[θ, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[ϕ, Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
31.10.E21 diff(K, [r$(2)])+(2*(gamma + delta + epsilon)- 1)/(r)*diff(K, r)+(1)/((r)^(2))*diff(K, [theta$(2)])+((2*(delta + epsilon)- 1)* cot(theta)-(2*gamma - 1)* tan(theta))/((r)^(2))*diff(K, theta)+(1)/((r)^(2)* (sin(theta))^(2))*diff(K, [phi$(2)])+((2*delta - 1)* cot(phi)-(2*epsilon - 1)* tan(phi))/((r)^(2)* (sin(theta))^(2))*diff(K, phi)= 0 D[K, {r, 2}]+Divide[2*(\[Gamma]+ \[Delta]+ \[Epsilon])- 1,r]*D[K, r]+Divide[1,(r)^(2)]*D[K, {\[Theta], 2}]+Divide[(2*(\[Delta]+ \[Epsilon])- 1)* Cot[\[Theta]]-(2*\[Gamma]- 1)* Tan[\[Theta]],(r)^(2)]*D[K, \[Theta]]+Divide[1,(r)^(2)* (Sin[\[Theta]])^(2)]*D[K, {\[Phi], 2}]+Divide[(2*\[Delta]- 1)* Cot[\[Phi]]-(2*\[Epsilon]- 1)* Tan[\[Phi]],(r)^(2)* (Sin[\[Theta]])^(2)]*D[K, \[Phi]]= 0 Successful Successful - -
31.11.E12 P[j]=(GAMMA(alpha + j)*GAMMA(1 - gamma + alpha + j))/(GAMMA(1 + alpha - beta + epsilon + 2*j))*(z)^(- alpha - j)* hypergeom([alpha + j , 1 - gamma + alpha + j], [1 + alpha - beta + epsilon + 2*j], (1)/(z)) Subscript[P, j]=Divide[Gamma[\[Alpha]+ j]*Gamma[1 - \[Gamma]+ \[Alpha]+ j],Gamma[1 + \[Alpha]- \[Beta]+ \[Epsilon]+ 2*j]]*(z)^(- \[Alpha]- j)* HypergeometricPFQ[{\[Alpha]+ j , 1 - \[Gamma]+ \[Alpha]+ j}, {1 + \[Alpha]- \[Beta]+ \[Epsilon]+ 2*j}, Divide[1,z]] Failure Failure Skip Error
31.12.E1 diff(w, [z$(2)])+((gamma)/(z)+(delta)/(z - 1)+ epsilon)* diff(w, z)+(alpha*z - q)/(z*(z - 1))*w = 0 D[w, {z, 2}]+(Divide[\[Gamma],z]+Divide[\[Delta],z - 1]+ \[Epsilon])* D[w, z]+Divide[\[Alpha]*z - q,z*(z - 1)]*w = 0 Failure Failure
Fail
1.414213562+1.414213562*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
-1.414213562+1.414213562*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
-1.414213562-1.414213562*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)}
1.414213562-1.414213562*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 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
31.12.E2 diff(w, [z$(2)])+((delta)/((z)^(2))+(gamma)/(z)+ 1)* diff(w, z)+(alpha*z - q)/((z)^(2))*w = 0 D[w, {z, 2}]+(Divide[\[Delta],(z)^(2)]+Divide[\[Gamma],z]+ 1)* D[w, z]+Divide[\[Alpha]*z - q,(z)^(2)]*w = 0 Failure Failure
Fail
.4142135620+1.414213562*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
-.4142135620+1.414213562*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
-2.414213562-1.414213562*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)}
2.414213562-1.414213562*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 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
31.12.E3 diff(w, [z$(2)])-((gamma)/(z)+ delta + z)* diff(w, z)+(alpha*z - q)/(z)*w = 0 D[w, {z, 2}]-(Divide[\[Gamma],z]+ \[Delta]+ z)* D[w, z]+Divide[\[Alpha]*z - q,z]*w = 0 Failure Failure
Fail
-1.414213562+2.585786436*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
1.414213562+2.585786436*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
1.414213562+5.414213560*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)}
-1.414213562+5.414213560*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 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
31.12.E4 diff(w, [z$(2)])+(gamma + z)* z*diff(w, z)+(alpha*z - q)* w = 0 D[w, {z, 2}]+(\[Gamma]+ z)* z*D[w, z]+(\[Alpha]*z - q)* w = 0 Failure Failure
Fail
-5.656854245+1.656854247*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)+I*2^(1/2)}
5.656854245+1.656854247*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = 2^(1/2)-I*2^(1/2)}
5.656854245-9.656854243*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 2^(1/2)+I*2^(1/2), w = 2^(1/2)+I*2^(1/2), z = -2^(1/2)-I*2^(1/2)}
-5.656854245-9.656854243*I <- {alpha = 2^(1/2)+I*2^(1/2), q = 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
31.15.E1 diff(w, [z$(2)])+(sum((gamma[j])/(z - a[j]), j = 1..N))* diff(w, z)+(Phi*(z))/(product(z - a[j], j = 1..N))*w = 0 D[w, {z, 2}]+(Sum[Divide[Subscript[\[Gamma], j],z - Subscript[a, j]], {j, 1, N}])* D[w, z]+Divide[\[CapitalPhi]*(z),Product[z - Subscript[a, j], {j, 1, N}]]*w = 0 Failure Failure Skip Error
31.16#Ex1 x = (sin(theta))^(2)* (cos(phi))^(2) x = (Sin[\[Theta]])^(2)* (Cos[\[Phi]])^(2) Failure Failure
Fail
15.36970401+10.48681191*I <- {phi = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), x = 1}
16.36970401+10.48681191*I <- {phi = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), x = 2}
17.36970401+10.48681191*I <- {phi = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), x = 3}
18.74191400+1.298501056*I <- {phi = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)-I*2^(1/2), x = 1}
... skip entries to safe data
Error
31.16#Ex2 y = (sin(theta))^(2)* (sin(phi))^(2) y = (Sin[\[Theta]])^(2)* (Sin[\[Phi]])^(2) Failure Failure
Fail
-17.90774920-11.78531296*I <- {phi = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), y = 1}
-16.90774920-11.78531296*I <- {phi = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), y = 2}
-15.90774920-11.78531296*I <- {phi = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)+I*2^(1/2), y = 3}
-21.27995919-0.*I <- {phi = 2^(1/2)+I*2^(1/2), theta = 2^(1/2)-I*2^(1/2), y = 1}
... skip entries to safe data
Error