Results of Jacobian Elliptic Functions

From DRMF
Jump to navigation Jump to search
DLMF Formula Maple Mathematica Symbolic
Maple
Symbolic
Mathematica
Numeric
Maple
Numeric
Mathematica
22.2#Ex1 k =((JacobiTheta2(0, q))^(2))/((JacobiTheta3(0, q))^(2)) k =Divide[(EllipticTheta[2, 0, q])^(2),(EllipticTheta[3, 0, q])^(2)] Failure Failure Error Successful
22.2#Ex2 sqrt(1 - (k)^(2))=((JacobiTheta4(0, q))^(2))/((JacobiTheta3(0, q))^(2)) Sqrt[1 - (k)^(2)]=Divide[(EllipticTheta[4, 0, q])^(2),(EllipticTheta[3, 0, q])^(2)] Failure Failure Error Successful
22.2#Ex3 EllipticK(k)=(Pi)/(2)*(JacobiTheta3(0, q))^(2) EllipticK[(k)^2]=Divide[Pi,2]*(EllipticTheta[3, 0, q])^(2) Failure Failure Error
Fail
DirectedInfinity[] <- {Rule[k, 1], Rule[q, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
DirectedInfinity[] <- {Rule[k, 1], Rule[q, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
DirectedInfinity[] <- {Rule[k, 1], Rule[q, Times[Complex[-1, -1], Power[2, Rational[1, 2]]]]}
DirectedInfinity[] <- {Rule[k, 1], Rule[q, Times[Complex[-1, 1], Power[2, Rational[1, 2]]]]}
22.2.E3 zeta =(Pi*z)/(2*EllipticK(k)) \[zeta]=Divide[Pi*z,2*EllipticK[(k)^2]] Failure Failure Error Error
22.2.E4 JacobiSN(z, k)=(JacobiTheta3(0, q))/(JacobiTheta2(0, q))*(JacobiTheta1(zeta, q))/(JacobiTheta4(zeta, q)) JacobiSN[z, (k)^2]=Divide[EllipticTheta[3, 0, q],EllipticTheta[2, 0, q]]*Divide[EllipticTheta[1, \[zeta], q],EllipticTheta[4, \[zeta], q]] Failure Failure Error Error
22.2.E4 (JacobiTheta3(0, q))/(JacobiTheta2(0, q))*(JacobiTheta1(zeta, q))/(JacobiTheta4(zeta, q))=(1)/(JacobiNS(z, k)) Divide[EllipticTheta[3, 0, q],EllipticTheta[2, 0, q]]*Divide[EllipticTheta[1, \[zeta], q],EllipticTheta[4, \[zeta], q]]=Divide[1,JacobiNS[z, (k)^2]] Failure Failure Error Error
22.2.E5 JacobiCN(z, k)=(JacobiTheta4(0, q))/(JacobiTheta2(0, q))*(JacobiTheta2(zeta, q))/(JacobiTheta4(zeta, q)) JacobiCN[z, (k)^2]=Divide[EllipticTheta[4, 0, q],EllipticTheta[2, 0, q]]*Divide[EllipticTheta[2, \[zeta], q],EllipticTheta[4, \[zeta], q]] Failure Failure Error Error
22.2.E5 (JacobiTheta4(0, q))/(JacobiTheta2(0, q))*(JacobiTheta2(zeta, q))/(JacobiTheta4(zeta, q))=(1)/(JacobiNC(z, k)) Divide[EllipticTheta[4, 0, q],EllipticTheta[2, 0, q]]*Divide[EllipticTheta[2, \[zeta], q],EllipticTheta[4, \[zeta], q]]=Divide[1,JacobiNC[z, (k)^2]] Failure Failure Error Error
22.2.E6 JacobiDN(z, k)=(JacobiTheta4(0, q))/(JacobiTheta3(0, q))*(JacobiTheta3(zeta, q))/(JacobiTheta4(zeta, q)) JacobiDN[z, (k)^2]=Divide[EllipticTheta[4, 0, q],EllipticTheta[3, 0, q]]*Divide[EllipticTheta[3, \[zeta], q],EllipticTheta[4, \[zeta], q]] Failure Failure Error Error
22.2.E6 (JacobiTheta4(0, q))/(JacobiTheta3(0, q))*(JacobiTheta3(zeta, q))/(JacobiTheta4(zeta, q))=(1)/(JacobiND(z, k)) Divide[EllipticTheta[4, 0, q],EllipticTheta[3, 0, q]]*Divide[EllipticTheta[3, \[zeta], q],EllipticTheta[4, \[zeta], q]]=Divide[1,JacobiND[z, (k)^2]] Failure Failure Error Error
22.2.E7 JacobiSD(z, k)=((JacobiTheta3(0, q))^(2))/(JacobiTheta2(0, q)*JacobiTheta4(0, q))*(JacobiTheta1(zeta, q))/(JacobiTheta3(zeta, q)) JacobiSD[z, (k)^2]=Divide[(EllipticTheta[3, 0, q])^(2),EllipticTheta[2, 0, q]*EllipticTheta[4, 0, q]]*Divide[EllipticTheta[1, \[zeta], q],EllipticTheta[3, \[zeta], q]] Failure Failure Error Error
22.2.E7 ((JacobiTheta3(0, q))^(2))/(JacobiTheta2(0, q)*JacobiTheta4(0, q))*(JacobiTheta1(zeta, q))/(JacobiTheta3(zeta, q))=(1)/(JacobiDS(z, k)) Divide[(EllipticTheta[3, 0, q])^(2),EllipticTheta[2, 0, q]*EllipticTheta[4, 0, q]]*Divide[EllipticTheta[1, \[zeta], q],EllipticTheta[3, \[zeta], q]]=Divide[1,JacobiDS[z, (k)^2]] Failure Failure Error Error
22.2.E8 JacobiCD(z, k)=(JacobiTheta3(0, q))/(JacobiTheta2(0, q))*(JacobiTheta2(zeta, q))/(JacobiTheta3(zeta, q)) JacobiCD[z, (k)^2]=Divide[EllipticTheta[3, 0, q],EllipticTheta[2, 0, q]]*Divide[EllipticTheta[2, \[zeta], q],EllipticTheta[3, \[zeta], q]] Failure Failure Error Error
22.2.E8 (JacobiTheta3(0, q))/(JacobiTheta2(0, q))*(JacobiTheta2(zeta, q))/(JacobiTheta3(zeta, q))=(1)/(JacobiDC(z, k)) Divide[EllipticTheta[3, 0, q],EllipticTheta[2, 0, q]]*Divide[EllipticTheta[2, \[zeta], q],EllipticTheta[3, \[zeta], q]]=Divide[1,JacobiDC[z, (k)^2]] Failure Failure Error Error
22.2.E9 JacobiSC(z, k)=(JacobiTheta3(0, q))/(JacobiTheta4(0, q))*(JacobiTheta1(zeta, q))/(JacobiTheta2(zeta, q)) JacobiSC[z, (k)^2]=Divide[EllipticTheta[3, 0, q],EllipticTheta[4, 0, q]]*Divide[EllipticTheta[1, \[zeta], q],EllipticTheta[2, \[zeta], q]] Failure Failure Error Error
22.2.E9 (JacobiTheta3(0, q))/(JacobiTheta4(0, q))*(JacobiTheta1(zeta, q))/(JacobiTheta2(zeta, q))=(1)/(JacobiCS(z, k)) Divide[EllipticTheta[3, 0, q],EllipticTheta[4, 0, q]]*Divide[EllipticTheta[1, \[zeta], q],EllipticTheta[2, \[zeta], q]]=Divide[1,JacobiCS[z, (k)^2]] Failure Failure Error Error
22.2.E10 genJacobiellk(p)*q* z*k =(genJacobiellk(p)*r* z*k)/(genJacobiellk(q)*r* z*k) genJacobiellk(p)*q* z*k =Divide[genJacobiellk(p)*r* z*k,genJacobiellk(q)*r* z*k] Failure Failure Error Skip
22.2.E10 (genJacobiellk(p)*r* z*k)/(genJacobiellk(q)*r* z*k)=(1)/(genJacobiellk(q)*p* z*k) Divide[genJacobiellk(p)*r* z*k,genJacobiellk(q)*r* z*k]=Divide[1,genJacobiellk(q)*p* z*k] Failure Failure Error Skip
22.2.E11 genJacobiellk(p)*q* z*k =(JacobiThetap(z,exp(I*Pi*tau)))/(JacobiThetaq(z,exp(I*Pi*tau))) genJacobiellk(p)*q* z*k =Divide[EllipticTheta[p, z, \[Tau]],EllipticTheta[q, z, \[Tau]]] Failure Failure Error Skip
22.2.E12 tau =(I*EllipticCK(k))/(EllipticK(k)) \[Tau]=Divide[I*EllipticK[1-(k)^2],EllipticK[(k)^2]] Failure Failure Error
Fail
Complex[1.4142135623730951, 1.4142135623730951] <- {Rule[k, 1], Rule[Ο„, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[2.034924298733449, 0.929003383041147] <- {Rule[k, 2], Rule[Ο„, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[2.1238725324006347, 0.9602938378765811] <- {Rule[k, 3], Rule[Ο„, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[1.4142135623730951, -1.4142135623730951] <- {Rule[k, 1], Rule[Ο„, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E1 (JacobiSN(z, k))^(2)+ (JacobiCN(z, k))^(2)= (k)^(2)* (JacobiSN(z, k))^(2)+ (JacobiDN(z, k))^(2) (JacobiSN[z, (k)^2])^(2)+ (JacobiCN[z, (k)^2])^(2)= (k)^(2)* (JacobiSN[z, (k)^2])^(2)+ (JacobiDN[z, (k)^2])^(2) Successful Successful - -
22.6.E1 (k)^(2)* (JacobiSN(z, k))^(2)+ (JacobiDN(z, k))^(2)= 1 (k)^(2)* (JacobiSN[z, (k)^2])^(2)+ (JacobiDN[z, (k)^2])^(2)= 1 Successful Successful - -
22.6.E2 1 + (JacobiCS(z, k))^(2)= (k)^(2)+ (JacobiDS(z, k))^(2) 1 + (JacobiCS[z, (k)^2])^(2)= (k)^(2)+ (JacobiDS[z, (k)^2])^(2) Successful Successful - -
22.6.E2 (k)^(2)+ (JacobiDS(z, k))^(2)= (JacobiNS(z, k))^(2) (k)^(2)+ (JacobiDS[z, (k)^2])^(2)= (JacobiNS[z, (k)^2])^(2) Successful Successful - -
22.6.E3 1 - (k)^(2)* (JacobiSC(z, k))^(2)+ 1 = (JacobiDC(z, k))^(2) 1 - (k)^(2)* (JacobiSC[z, (k)^2])^(2)+ 1 = (JacobiDC[z, (k)^2])^(2) Failure Failure
Fail
5.538045195-1.298501057*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
1.632868431-.533445486*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
.8869726205+.142192957*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
5.538045195+1.298501057*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[5.538045200949385, -1.2985010548545433] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[1.6328684295963352, -0.5334454854262538] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.8869726205411628, 0.14219295744217275] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[5.538045200949385, 1.2985010548545433] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E3 (JacobiDC(z, k))^(2)= 1 - (k)^(2)* (JacobiNC(z, k))^(2)+ (k)^(2) (JacobiDC[z, (k)^2])^(2)= 1 - (k)^(2)* (JacobiNC[z, (k)^2])^(2)+ (k)^(2) Failure Failure
Fail
-4.538045196+1.298501057*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
-.632868431+.533445486*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
.113027376-.142192958*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
-4.538045196-1.298501057*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[-4.5380452009493855, 1.2985010548545435] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.6328684295963332, 0.5334454854262538] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.11302737945883834, -0.14219295744217342] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-4.5380452009493855, -1.2985010548545435] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E4 - (k)^(2)* 1 - (k)^(2)* (JacobiSD(z, k))^(2)= (k)^(2)*((JacobiCD(z, k))^(2)- 1) - (k)^(2)* 1 - (k)^(2)* (JacobiSD[z, (k)^2])^(2)= (k)^(2)*((JacobiCD[z, (k)^2])^(2)- 1) Failure Failure
Fail
3.538045195-1.298501057*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
-.767955680e-1-.7785401828*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
.3808337301+8.838098584*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
3.538045195+1.298501057*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[3.5380452009493846, -1.2985010548545433] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.07679556965128587, -0.7785401828344382] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.3808337424857964, 8.838098611812974] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[3.5380452009493846, 1.2985010548545433] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E4 (k)^(2)*((JacobiCD(z, k))^(2)- 1)= 1 - (k)^(2)*(1 - (JacobiND(z, k))^(2)) (k)^(2)*((JacobiCD[z, (k)^2])^(2)- 1)= 1 - (k)^(2)*(1 - (JacobiND[z, (k)^2])^(2)) Failure Failure
Fail
3.538045196-1.298501057*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
-.1919889172e-1-.1946350456*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
.423148605e-1+.982010952*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
3.538045196+1.298501057*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[3.538045200949385, -1.2985010548545435] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.01919889241282169, -0.1946350457086099] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.04231486027619802, 0.9820109568681117] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[3.538045200949385, 1.2985010548545435] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E5 JacobiSN(2*z, k)=(2*JacobiSN(z, k)*JacobiCN(z, k)*JacobiDN(z, k))/(1 - (k)^(2)* (JacobiSN(z, k))^(4)) JacobiSN[2*z, (k)^2]=Divide[2*JacobiSN[z, (k)^2]*JacobiCN[z, (k)^2]*JacobiDN[z, (k)^2],1 - (k)^(2)* (JacobiSN[z, (k)^2])^(4)] Failure Failure Successful Successful
22.6.E6 JacobiCN(2*z, k)=((JacobiCN(z, k))^(2)- (JacobiSN(z, k))^(2)* (JacobiDN(z, k))^(2))/(1 - (k)^(2)* (JacobiSN(z, k))^(4)) JacobiCN[2*z, (k)^2]=Divide[(JacobiCN[z, (k)^2])^(2)- (JacobiSN[z, (k)^2])^(2)* (JacobiDN[z, (k)^2])^(2),1 - (k)^(2)* (JacobiSN[z, (k)^2])^(4)] Failure Failure Successful Successful
22.6.E6 ((JacobiCN(z, k))^(2)- (JacobiSN(z, k))^(2)* (JacobiDN(z, k))^(2))/(1 - (k)^(2)* (JacobiSN(z, k))^(4))=((JacobiCN(z, k))^(4)- 1 - (k)^(2)* (JacobiSN(z, k))^(4))/(1 - (k)^(2)* (JacobiSN(z, k))^(4)) Divide[(JacobiCN[z, (k)^2])^(2)- (JacobiSN[z, (k)^2])^(2)* (JacobiDN[z, (k)^2])^(2),1 - (k)^(2)* (JacobiSN[z, (k)^2])^(4)]=Divide[(JacobiCN[z, (k)^2])^(4)- 1 - (k)^(2)* (JacobiSN[z, (k)^2])^(4),1 - (k)^(2)* (JacobiSN[z, (k)^2])^(4)] Failure Failure
Fail
-4.094154376+1.280458226*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
-1.389457565+.616517316e-1*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
.8632946284-.6529631058*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
-4.094154376-1.280458226*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[-4.0941543674510195, 1.2804582127704043] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-1.3894575644075957, 0.06165173015688402] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.8632946317597533, -0.6529631059321507] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-4.0941543674510195, -1.2804582127704043] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E7 JacobiDN(2*z, k)=((JacobiDN(z, k))^(2)- (k)^(2)* (JacobiSN(z, k))^(2)* (JacobiCN(z, k))^(2))/(1 - (k)^(2)* (JacobiSN(z, k))^(4)) JacobiDN[2*z, (k)^2]=Divide[(JacobiDN[z, (k)^2])^(2)- (k)^(2)* (JacobiSN[z, (k)^2])^(2)* (JacobiCN[z, (k)^2])^(2),1 - (k)^(2)* (JacobiSN[z, (k)^2])^(4)] Failure Failure Successful Successful
22.6.E7 ((JacobiDN(z, k))^(2)- (k)^(2)* (JacobiSN(z, k))^(2)* (JacobiCN(z, k))^(2))/(1 - (k)^(2)* (JacobiSN(z, k))^(4))=((JacobiDN(z, k))^(4)+ (k)^(2)* 1 - (k)^(2)* (JacobiSN(z, k))^(4))/(1 - (k)^(2)* (JacobiSN(z, k))^(4)) Divide[(JacobiDN[z, (k)^2])^(2)- (k)^(2)* (JacobiSN[z, (k)^2])^(2)* (JacobiCN[z, (k)^2])^(2),1 - (k)^(2)* (JacobiSN[z, (k)^2])^(4)]=Divide[(JacobiDN[z, (k)^2])^(4)+ (k)^(2)* 1 - (k)^(2)* (JacobiSN[z, (k)^2])^(4),1 - (k)^(2)* (JacobiSN[z, (k)^2])^(4)] Failure Failure
Fail
-.9999999995-.2e-10*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
1.213361962-.134512870*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
-8.242862557+3.616411048*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
-.9999999995+.2e-10*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[-0.9999999999999996, -8.326672684688674*^-17] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[1.213361958707478, -0.1345128657968393] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-8.24286257590017, 3.6164110482396037] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.9999999999999996, 8.326672684688674*^-17] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E8 JacobiCD(2*z, k)=((JacobiCD(z, k))^(2)- 1 - (k)^(2)* (JacobiSD(z, k))^(2)* (JacobiND(z, k))^(2))/(1 + (k)^(2)* 1 - (k)^(2)* (JacobiSD(z, k))^(4)) JacobiCD[2*z, (k)^2]=Divide[(JacobiCD[z, (k)^2])^(2)- 1 - (k)^(2)* (JacobiSD[z, (k)^2])^(2)* (JacobiND[z, (k)^2])^(2),1 + (k)^(2)* 1 - (k)^(2)* (JacobiSD[z, (k)^2])^(4)] Failure Failure
Fail
.1370541185+.1873251287e-1*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
.5364817078-.4234624245*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
-.1981753675-.1199254751*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
.1370541185-.1873251287e-1*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[0.13705411883745122, 0.018732512731960915] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.5364817078278756, -0.42346242319671296] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.19817536922951154, -0.1199254747103525] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.13705411883745144, -0.018732512731960915] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E9 JacobiSD(2*z, k)=(2*JacobiSD(z, k)*JacobiCD(z, k)*JacobiND(z, k))/(1 + (k)^(2)* 1 - (k)^(2)* (JacobiSD(z, k))^(4)) JacobiSD[2*z, (k)^2]=Divide[2*JacobiSD[z, (k)^2]*JacobiCD[z, (k)^2]*JacobiND[z, (k)^2],1 + (k)^(2)* 1 - (k)^(2)* (JacobiSD[z, (k)^2])^(4)] Failure Failure
Fail
-8.411649228+2.496794499*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
.4171906607e-1-.5404871752*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
.4672486370e-1-.3344443629*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
-8.411649228-2.496794499*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[-8.411649235958867, 2.496794495227415] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.041719065906232006, -0.5404871748442961] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.046724863833304056, -0.33444436276903133] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-8.411649235958867, -2.496794495227415] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E10 JacobiND(2*z, k)=((JacobiND(z, k))^(2)+ (k)^(2)* (JacobiSD(z, k))^(2)* (JacobiCD(z, k))^(2))/(1 + (k)^(2)* 1 - (k)^(2)* (JacobiSD(z, k))^(4)) JacobiND[2*z, (k)^2]=Divide[(JacobiND[z, (k)^2])^(2)+ (k)^(2)* (JacobiSD[z, (k)^2])^(2)* (JacobiCD[z, (k)^2])^(2),1 + (k)^(2)* 1 - (k)^(2)* (JacobiSD[z, (k)^2])^(4)] Failure Failure
Fail
-8.469613315+2.476300734*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
-.2446575645+.5929818787*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
-.5059779542e-1-.4472642739*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
-8.469613315-2.476300734*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[-8.469613322356564, 2.4763007298746587] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.24465756431597135, 0.5929818773302299] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.05059779615055053, -0.4472642742544212] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-8.469613322356564, -2.4763007298746587] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E11 JacobiDC(2*z, k)=((JacobiDC(z, k))^(2)+ 1 - (k)^(2)* (JacobiSC(z, k))^(2)* (JacobiNC(z, k))^(2))/(1 - 1 - (k)^(2)* (JacobiSC(z, k))^(4)) JacobiDC[2*z, (k)^2]=Divide[(JacobiDC[z, (k)^2])^(2)+ 1 - (k)^(2)* (JacobiSC[z, (k)^2])^(2)* (JacobiNC[z, (k)^2])^(2),1 - 1 - (k)^(2)* (JacobiSC[z, (k)^2])^(4)] Failure Failure
Fail
.2798628459+.1057645812*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
2.155279764+3.336838966*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
-10.41618961+.723801634*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
.2798628459-.1057645812*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[0.27986284597445743, 0.1057645806458628] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[2.1552797720040004, 3.3368389687939786] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-10.416189608158701, 0.7238016559320513] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.27986284597445743, -0.1057645806458628] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E12 JacobiNC(2*z, k)=((JacobiNC(z, k))^(2)+ (JacobiSC(z, k))^(2)* (JacobiDC(z, k))^(2))/(1 - 1 - (k)^(2)* (JacobiSC(z, k))^(4)) JacobiNC[2*z, (k)^2]=Divide[(JacobiNC[z, (k)^2])^(2)+ (JacobiSC[z, (k)^2])^(2)* (JacobiDC[z, (k)^2])^(2),1 - 1 - (k)^(2)* (JacobiSC[z, (k)^2])^(4)] Failure Failure
Fail
-8.445366052+2.504181595*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
-2.348000820+.4644873082*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
.3919060714+4.559323678*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
-8.445366052-2.504181595*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[-8.4453660597032, 2.504181591384576] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-2.3480008192225705, 0.46448731013438893] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.39190608798513005, 4.559323684618953] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-8.4453660597032, -2.504181591384576] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E13 JacobiSC(2*z, k)=(2*JacobiSC(z, k)*JacobiDC(z, k)*JacobiNC(z, k))/(1 - 1 - (k)^(2)* (JacobiSC(z, k))^(4)) JacobiSC[2*z, (k)^2]=Divide[2*JacobiSC[z, (k)^2]*JacobiDC[z, (k)^2]*JacobiNC[z, (k)^2],1 - 1 - (k)^(2)* (JacobiSC[z, (k)^2])^(4)] Failure Failure
Fail
-8.387425493+2.524419001*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
1.765721394-.9866914128*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
-.5663184000+3.386135413*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
-8.387425493-2.524419001*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[-8.387425500158386, 2.5244189972251565] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[1.7657213943311842, -0.9866914167974857] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.5663183953417591, 3.3861354179416785] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-8.387425500158386, -2.5244189972251565] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E14 JacobiNS(2*z, k)=((JacobiNS(z, k))^(4)- (k)^(2))/(2*JacobiCS(z, k)*JacobiDS(z, k)*JacobiNS(z, k)) JacobiNS[2*z, (k)^2]=Divide[(JacobiNS[z, (k)^2])^(4)- (k)^(2),2*JacobiCS[z, (k)^2]*JacobiDS[z, (k)^2]*JacobiNS[z, (k)^2]] Failure Failure Successful Successful
22.6.E15 JacobiDS(2*z, k)=((k)^(2)* 1 - (k)^(2)+ (JacobiDS(z, k))^(4))/(2*JacobiCS(z, k)*JacobiDS(z, k)*JacobiNS(z, k)) JacobiDS[2*z, (k)^2]=Divide[(k)^(2)* 1 - (k)^(2)+ (JacobiDS[z, (k)^2])^(4),2*JacobiCS[z, (k)^2]*JacobiDS[z, (k)^2]*JacobiNS[z, (k)^2]] Failure Failure
Fail
-2.958056429-.877828454*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
1.088429910+2.208840486*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
-2.958056429+.877828454*I <- {z = 2^(1/2)-I*2^(1/2), k = 2}
1.088429910-2.208840486*I <- {z = 2^(1/2)-I*2^(1/2), k = 3}
... skip entries to safe data
Fail
Complex[-2.9580564228983786, -0.8778284568736507] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[1.0884299045387233, 2.2088404891294435] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-2.958056422898387, 0.8778284568736494] <- {Rule[k, 2], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[1.088429904538725, -2.2088404891294466] <- {Rule[k, 3], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E16 JacobiCS(2*z, k)=((JacobiCS(z, k))^(4)- 1 - (k)^(2))/(2*JacobiCS(z, k)*JacobiDS(z, k)*JacobiNS(z, k)) JacobiCS[2*z, (k)^2]=Divide[(JacobiCS[z, (k)^2])^(4)- 1 - (k)^(2),2*JacobiCS[z, (k)^2]*JacobiDS[z, (k)^2]*JacobiNS[z, (k)^2]] Failure Failure
Fail
-5.128303818+1.266734153*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
1.972037619+.5852189693*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
-.2721074781-.5522101210*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
-5.128303818-1.266734153*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[-5.12830382438052, 1.2667341514547281] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[1.9720376152655872, 0.5852189712491013] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.2721074761346811, -0.5522101222823614] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-5.12830382438052, -1.2667341514547281] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E17 (1 - JacobiCN(2*z, k))/(1 + JacobiCN(2*z, k))=((JacobiSN(z, k))^(2)* (JacobiDN(z, k))^(2))/((JacobiCN(z, k))^(2)) Divide[1 - JacobiCN[2*z, (k)^2],1 + JacobiCN[2*z, (k)^2]]=Divide[(JacobiSN[z, (k)^2])^(2)* (JacobiDN[z, (k)^2])^(2),(JacobiCN[z, (k)^2])^(2)] Failure Failure Successful Successful
22.6.E18 (1 - JacobiDN(2*z, k))/(1 + JacobiDN(2*z, k))=((k)^(2)* (JacobiSN(z, k))^(2)* (JacobiCN(z, k))^(2))/((JacobiDN(z, k))^(2)) Divide[1 - JacobiDN[2*z, (k)^2],1 + JacobiDN[2*z, (k)^2]]=Divide[(k)^(2)* (JacobiSN[z, (k)^2])^(2)* (JacobiCN[z, (k)^2])^(2),(JacobiDN[z, (k)^2])^(2)] Failure Failure Successful Successful
22.6.E19 (JacobiSN((1)/(2)*z, k))^(2)=(1 - JacobiCN(z, k))/(1 + JacobiDN(z, k)) (JacobiSN[Divide[1,2]*z, (k)^2])^(2)=Divide[1 - JacobiCN[z, (k)^2],1 + JacobiDN[z, (k)^2]] Failure Failure Successful Successful
22.6.E19 (1 - JacobiCN(z, k))/(1 + JacobiDN(z, k))=(1 - JacobiDN(z, k))/((k)^(2)*(1 + JacobiCN(z, k))) Divide[1 - JacobiCN[z, (k)^2],1 + JacobiDN[z, (k)^2]]=Divide[1 - JacobiDN[z, (k)^2],(k)^(2)*(1 + JacobiCN[z, (k)^2])] Successful Successful - -
22.6.E19 (1 - JacobiDN(z, k))/((k)^(2)*(1 + JacobiCN(z, k)))=(JacobiDN(z, k)- (k)^(2)* JacobiCN(z, k)- 1 - (k)^(2))/((k)^(2)*(JacobiDN(z, k)- JacobiCN(z, k))) Divide[1 - JacobiDN[z, (k)^2],(k)^(2)*(1 + JacobiCN[z, (k)^2])]=Divide[JacobiDN[z, (k)^2]- (k)^(2)* JacobiCN[z, (k)^2]- 1 - (k)^(2),(k)^(2)*(JacobiDN[z, (k)^2]- JacobiCN[z, (k)^2])] Failure Failure Skip
Fail
DirectedInfinity[] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.45878538673953206, 0.3465757753125938] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.9906706508509473, -0.4762646080392824] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
DirectedInfinity[] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E20 (JacobiCN((1)/(2)*z, k))^(2)=(- 1 - (k)^(2)+ JacobiDN(z, k)+ (k)^(2)* JacobiCN(z, k))/((k)^(2)*(1 + JacobiCN(z, k))) (JacobiCN[Divide[1,2]*z, (k)^2])^(2)=Divide[- 1 - (k)^(2)+ JacobiDN[z, (k)^2]+ (k)^(2)* JacobiCN[z, (k)^2],(k)^(2)*(1 + JacobiCN[z, (k)^2])] Failure Failure
Fail
1.508209580+.7016668416*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
-.5803980617-3.358394228*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
16.67395347+17.27038148*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
1.508209580-.7016668416*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[1.5082095810878147, 0.7016668414711776] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.5803980702877369, -3.3583942301798655] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[16.673953528328266, 17.27038147971548] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[1.5082095810878147, -0.7016668414711776] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E20 (- 1 - (k)^(2)+ JacobiDN(z, k)+ (k)^(2)* JacobiCN(z, k))/((k)^(2)*(1 + JacobiCN(z, k)))=(1 - (k)^(2)*(1 - JacobiDN(z, k)))/((k)^(2)*(JacobiDN(z, k)- JacobiCN(z, k))) Divide[- 1 - (k)^(2)+ JacobiDN[z, (k)^2]+ (k)^(2)* JacobiCN[z, (k)^2],(k)^(2)*(1 + JacobiCN[z, (k)^2])]=Divide[1 - (k)^(2)*(1 - JacobiDN[z, (k)^2]),(k)^(2)*(JacobiDN[z, (k)^2]- JacobiCN[z, (k)^2])] Failure Failure
Fail
Float(infinity)+Float(infinity)*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
.4185282685+3.372883816*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
-16.73162628-17.29201076*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
Float(infinity)+Float(infinity)*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
DirectedInfinity[] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.41852827726622005, 3.3728838175892157] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-16.731626338940483, -17.292010762136766] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
DirectedInfinity[] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E20 (1 - (k)^(2)*(1 - JacobiDN(z, k)))/((k)^(2)*(JacobiDN(z, k)- JacobiCN(z, k)))=(1 - (k)^(2)*(1 + JacobiCN(z, k)))/(1 - (k)^(2)+ JacobiDN(z, k)- (k)^(2)* JacobiCN(z, k)) Divide[1 - (k)^(2)*(1 - JacobiDN[z, (k)^2]),(k)^(2)*(JacobiDN[z, (k)^2]- JacobiCN[z, (k)^2])]=Divide[1 - (k)^(2)*(1 + JacobiCN[z, (k)^2]),1 - (k)^(2)+ JacobiDN[z, (k)^2]- (k)^(2)* JacobiCN[z, (k)^2]] Failure Failure Skip
Fail
Complex[-0.07006090347484534, -0.11541357157973622] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.33824294612571393, 0.3972114524620808] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.07006090347484517, 0.11541357157973614] <- {Rule[k, 2], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[-0.33824294612571454, -0.3972114524620811] <- {Rule[k, 3], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E21 (JacobiDN((1)/(2)*z, k))^(2)=((k)^(2)* JacobiCN(z, k)+ JacobiDN(z, k)+ 1 - (k)^(2))/(1 + JacobiDN(z, k)) (JacobiDN[Divide[1,2]*z, (k)^2])^(2)=Divide[(k)^(2)* JacobiCN[z, (k)^2]+ JacobiDN[z, (k)^2]+ 1 - (k)^(2),1 + JacobiDN[z, (k)^2]] Failure Failure Successful Successful
22.6.E21 ((k)^(2)* JacobiCN(z, k)+ JacobiDN(z, k)+ 1 - (k)^(2))/(1 + JacobiDN(z, k))=(1 - (k)^(2)*(1 - JacobiCN(z, k)))/(JacobiDN(z, k)- JacobiCN(z, k)) Divide[(k)^(2)* JacobiCN[z, (k)^2]+ JacobiDN[z, (k)^2]+ 1 - (k)^(2),1 + JacobiDN[z, (k)^2]]=Divide[1 - (k)^(2)*(1 - JacobiCN[z, (k)^2]),JacobiDN[z, (k)^2]- JacobiCN[z, (k)^2]] Failure Failure
Fail
Float(infinity)+Float(infinity)*I <- {z = 2^(1/2)+I*2^(1/2), k = 1}
.352520828+.579583496e-1*I <- {z = 2^(1/2)+I*2^(1/2), k = 2}
.480944700-.194663538*I <- {z = 2^(1/2)+I*2^(1/2), k = 3}
Float(infinity)+Float(infinity)*I <- {z = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
DirectedInfinity[] <- {Rule[k, 1], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.3525208279139327, 0.05795834963740132] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.4809447044900228, -0.19466354179159007] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
DirectedInfinity[] <- {Rule[k, 1], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E21 (1 - (k)^(2)*(1 - JacobiCN(z, k)))/(JacobiDN(z, k)- JacobiCN(z, k))=(1 - (k)^(2)*(1 + JacobiDN(z, k)))/(1 - (k)^(2)+ JacobiDN(z, k)- (k)^(2)* JacobiCN(z, k)) Divide[1 - (k)^(2)*(1 - JacobiCN[z, (k)^2]),JacobiDN[z, (k)^2]- JacobiCN[z, (k)^2]]=Divide[1 - (k)^(2)*(1 + JacobiDN[z, (k)^2]),1 - (k)^(2)+ JacobiDN[z, (k)^2]- (k)^(2)* JacobiCN[z, (k)^2]] Failure Failure Skip
Fail
Complex[0.10198361655247856, 0.014552344162486408] <- {Rule[k, 2], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.10205512091915558, 0.18553829333350658] <- {Rule[k, 3], Rule[z, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.10198361655248034, -0.014552344162487074] <- {Rule[k, 2], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
Complex[0.10205512091914493, -0.18553829333351368] <- {Rule[k, 3], Rule[z, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.6.E22 genJacobiellk(p)*(q)^(2)* (1)/(2)*z*k =(genJacobiellk(p)*s* z*k + genJacobiellk(r)*s* z*k)/(genJacobiellk(q)*s* z*k + genJacobiellk(r)*s* z*k) genJacobiellk(p)*(q)^(2)* Divide[1,2]*z*k =Divide[genJacobiellk(p)*s* z*k + genJacobiellk(r)*s* z*k,genJacobiellk(q)*s* z*k + genJacobiellk(r)*s* z*k] Failure Failure Skip Skip
22.6.E22 (genJacobiellk(p)*s* z*k + genJacobiellk(r)*s* z*k)/(genJacobiellk(q)*s* z*k + genJacobiellk(r)*s* z*k)=(genJacobiellk(p)*q* z*k + genJacobiellk(r)*q* z*k)/(1 + genJacobiellk(r)*q* z*k) Divide[genJacobiellk(p)*s* z*k + genJacobiellk(r)*s* z*k,genJacobiellk(q)*s* z*k + genJacobiellk(r)*s* z*k]=Divide[genJacobiellk(p)*q* z*k + genJacobiellk(r)*q* z*k,1 + genJacobiellk(r)*q* z*k] Failure Failure Skip Skip
22.6.E22 (genJacobiellk(p)*q* z*k + genJacobiellk(r)*q* z*k)/(1 + genJacobiellk(r)*q* z*k)=(genJacobiellk(p)*r* z*k + 1)/(genJacobiellk(q)*r* z*k + 1) Divide[genJacobiellk(p)*q* z*k + genJacobiellk(r)*q* z*k,1 + genJacobiellk(r)*q* z*k]=Divide[genJacobiellk(p)*r* z*k + 1,genJacobiellk(q)*r* z*k + 1] Failure Failure Skip Skip
22.7.E2 JacobiSN(z, k)=((1 + k[1])* JacobiSN(z/(1 + k[1]), k[1]))/(1 + k[1]*(JacobiSN(z/(1 + k[1]), k[1]))^(2)) JacobiSN[z, (k)^2]=Divide[(1 + Subscript[k, 1])* JacobiSN[z/(1 + Subscript[k, 1]), (Subscript[k, 1])^2],1 + Subscript[k, 1]*(JacobiSN[z/(1 + Subscript[k, 1]), (Subscript[k, 1])^2])^(2)] Failure Failure
Fail
.55864218e-1-.8664119331e-1*I <- {z = 2^(1/2)+I*2^(1/2), k[1] = 2^(1/2)+I*2^(1/2), k = 1}
-.2250495657+.6319729879*I <- {z = 2^(1/2)+I*2^(1/2), k[1] = 2^(1/2)+I*2^(1/2), k = 2}
-1.435242225+.239860557e-1*I <- {z = 2^(1/2)+I*2^(1/2), k[1] = 2^(1/2)+I*2^(1/2), k = 3}
-.17665263e-1+.9799998387e-1*I <- {z = 2^(1/2)+I*2^(1/2), k[1] = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Successful
22.7.E3 JacobiCN(z, k)=(JacobiCN(z/(1 + k[1]), k[1])*JacobiDN(z/(1 + k[1]), k[1]))/(1 + k[1]*(JacobiSN(z/(1 + k[1]), k[1]))^(2)) JacobiCN[z, (k)^2]=Divide[JacobiCN[z/(1 + Subscript[k, 1]), (Subscript[k, 1])^2]*JacobiDN[z/(1 + Subscript[k, 1]), (Subscript[k, 1])^2],1 + Subscript[k, 1]*(JacobiSN[z/(1 + Subscript[k, 1]), (Subscript[k, 1])^2])^(2)] Failure Failure
Fail
-.2105289453-.565375351e-1*I <- {z = 2^(1/2)+I*2^(1/2), k[1] = 2^(1/2)+I*2^(1/2), k = 1}
-1.400590390+1.028876610*I <- {z = 2^(1/2)+I*2^(1/2), k[1] = 2^(1/2)+I*2^(1/2), k = 2}
-1.242789928+.3906876874*I <- {z = 2^(1/2)+I*2^(1/2), k[1] = 2^(1/2)+I*2^(1/2), k = 3}
.2083630894+.417473069e-1*I <- {z = 2^(1/2)+I*2^(1/2), k[1] = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Successful
22.7.E4 JacobiDN(z, k)=((JacobiDN(z/(1 + k[1]), k[1]))^(2)-(1 - k[1]))/(1 + k[1]- (JacobiDN(z/(1 + k[1]), k[1]))^(2)) JacobiDN[z, (k)^2]=Divide[(JacobiDN[z/(1 + Subscript[k, 1]), (Subscript[k, 1])^2])^(2)-(1 - Subscript[k, 1]),1 + Subscript[k, 1]- (JacobiDN[z/(1 + Subscript[k, 1]), (Subscript[k, 1])^2])^(2)] Failure Failure
Fail
.1402363057-.923635469e-1*I <- {z = 2^(1/2)+I*2^(1/2), k[1] = 2^(1/2)+I*2^(1/2), k = 1}
1.725656124-1.103604180*I <- {z = 2^(1/2)+I*2^(1/2), k[1] = 2^(1/2)+I*2^(1/2), k = 2}
.7478105788+1.143211966*I <- {z = 2^(1/2)+I*2^(1/2), k[1] = 2^(1/2)+I*2^(1/2), k = 3}
-.1058691384+.765115293e-1*I <- {z = 2^(1/2)+I*2^(1/2), k[1] = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Successful
22.7.E6 JacobiSN(z, k)=((1 +sqrt(1 - (k)^(2))[2])* JacobiSN(z/(1 +sqrt(1 - (k)^(2))[2]), k[2])*JacobiCN(z/(1 +sqrt(1 - (k)^(2))[2]), k[2]))/(JacobiDN(z/(1 +sqrt(1 - (k)^(2))[2]), k[2])) JacobiSN[z, (k)^2]=Divide[(1 +Subscript[Sqrt[1 - (k)^(2)], 2])* JacobiSN[z/(1 +Subscript[Sqrt[1 - (k)^(2)], 2]), (Subscript[k, 2])^2]*JacobiCN[z/(1 +Subscript[Sqrt[1 - (k)^(2)], 2]), (Subscript[k, 2])^2],JacobiDN[z/(1 +Subscript[Sqrt[1 - (k)^(2)], 2]), (Subscript[k, 2])^2]] Failure Failure Error Successful
22.7.E7 JacobiCN(z, k)((1 +sqrt(1 - (k)^(2))[2])*((JacobiDN(z/(1 +sqrt(1 - (k)^(2))[2]), k[2]))^(2)-sqrt(1 - (k)^(2))[2]))/(k(k[2])^(2)*JacobiDN(z/(1 +sqrt(1 - (k)^(2))[2]), k[2])) JacobiCN[z, (k)^2]Divide[(1 +Subscript[Sqrt[1 - (k)^(2)], 2])*((JacobiDN[z/(1 +Subscript[Sqrt[1 - (k)^(2)], 2]), (Subscript[k, 2])^2])^(2)-Subscript[Sqrt[1 - (k)^(2)], 2]),k(Subscript[k, 2])^(2)*JacobiDN[z/(1 +Subscript[Sqrt[1 - (k)^(2)], 2]), (Subscript[k, 2])^2]] Failure Failure Error Successful
22.7.E8 JacobiDN(z, k)((1 -sqrt(1 - (k)^(2))[2])*((JacobiDN(z/(1 +sqrt(1 - (k)^(2))[2]), k[2]))^(2)+sqrt(1 - (k)^(2))[2]))/(k(k[2])^(2)*JacobiDN(z/(1 +sqrt(1 - (k)^(2))[2]), k[2])) JacobiDN[z, (k)^2]Divide[(1 -Subscript[Sqrt[1 - (k)^(2)], 2])*((JacobiDN[z/(1 +Subscript[Sqrt[1 - (k)^(2)], 2]), (Subscript[k, 2])^2])^(2)+Subscript[Sqrt[1 - (k)^(2)], 2]),k(Subscript[k, 2])^(2)*JacobiDN[z/(1 +Subscript[Sqrt[1 - (k)^(2)], 2]), (Subscript[k, 2])^2]] Failure Failure Error Successful
22.8.E1 JacobiSN(u + v, k)=(JacobiSN(u, k)*JacobiCN(v, k)*JacobiDN(v, k)+ JacobiSN(v, k)*JacobiCN(u, k)*JacobiDN(u, k))/(1 - (k)^(2)* (JacobiSN(u, k))^(2)* (JacobiSN(v, k))^(2)) JacobiSN[u + v, (k)^2]=Divide[JacobiSN[u, (k)^2]*JacobiCN[v, (k)^2]*JacobiDN[v, (k)^2]+ JacobiSN[v, (k)^2]*JacobiCN[u, (k)^2]*JacobiDN[u, (k)^2],1 - (k)^(2)* (JacobiSN[u, (k)^2])^(2)* (JacobiSN[v, (k)^2])^(2)] Successful Failure - Skip
22.8.E2 JacobiCN(u + v, k)=(JacobiCN(u, k)*JacobiCN(v, k)- JacobiSN(u, k)*JacobiDN(u, k)*JacobiSN(v, k)*JacobiDN(v, k))/(1 - (k)^(2)* (JacobiSN(u, k))^(2)* (JacobiSN(v, k))^(2)) JacobiCN[u + v, (k)^2]=Divide[JacobiCN[u, (k)^2]*JacobiCN[v, (k)^2]- JacobiSN[u, (k)^2]*JacobiDN[u, (k)^2]*JacobiSN[v, (k)^2]*JacobiDN[v, (k)^2],1 - (k)^(2)* (JacobiSN[u, (k)^2])^(2)* (JacobiSN[v, (k)^2])^(2)] Successful Failure - Successful
22.8.E3 JacobiDN(u + v, k)=(JacobiDN(u, k)*JacobiDN(v, k)- (k)^(2)* JacobiSN(u, k)*JacobiCN(u, k)*JacobiSN(v, k)*JacobiCN(v, k))/(1 - (k)^(2)* (JacobiSN(u, k))^(2)* (JacobiSN(v, k))^(2)) JacobiDN[u + v, (k)^2]=Divide[JacobiDN[u, (k)^2]*JacobiDN[v, (k)^2]- (k)^(2)* JacobiSN[u, (k)^2]*JacobiCN[u, (k)^2]*JacobiSN[v, (k)^2]*JacobiCN[v, (k)^2],1 - (k)^(2)* (JacobiSN[u, (k)^2])^(2)* (JacobiSN[v, (k)^2])^(2)] Successful Failure - Skip
22.8.E4 JacobiCD(u + v, k)=(JacobiCD(u, k)*JacobiCD(v, k)- 1 - (k)^(2)* JacobiSD(u, k)*JacobiND(u, k)*JacobiSD(v, k)*JacobiND(v, k))/(1 + (k)^(2)* 1 - (k)^(2)* (JacobiSD(u, k))^(2)* (JacobiSD(v, k))^(2)) JacobiCD[u + v, (k)^2]=Divide[JacobiCD[u, (k)^2]*JacobiCD[v, (k)^2]- 1 - (k)^(2)* JacobiSD[u, (k)^2]*JacobiND[u, (k)^2]*JacobiSD[v, (k)^2]*JacobiND[v, (k)^2],1 + (k)^(2)* 1 - (k)^(2)* (JacobiSD[u, (k)^2])^(2)* (JacobiSD[v, (k)^2])^(2)] Failure Failure
Fail
.1370541185+.1873251287e-1*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 1}
.5364817078-.4234624245*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 2}
-.1981753675-.1199254751*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 3}
.1228104592+.1366601567e-11*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Skip
22.8.E5 JacobiSD(u + v, k)=(JacobiSD(u, k)*JacobiCD(v, k)*JacobiND(v, k)+ JacobiSD(v, k)*JacobiCD(u, k)*JacobiND(u, k))/(1 + (k)^(2)* 1 - (k)^(2)* (JacobiSD(u, k))^(2)* (JacobiSD(v, k))^(2)) JacobiSD[u + v, (k)^2]=Divide[JacobiSD[u, (k)^2]*JacobiCD[v, (k)^2]*JacobiND[v, (k)^2]+ JacobiSD[v, (k)^2]*JacobiCD[u, (k)^2]*JacobiND[u, (k)^2],1 + (k)^(2)* 1 - (k)^(2)* (JacobiSD[u, (k)^2])^(2)* (JacobiSD[v, (k)^2])^(2)] Failure Failure
Fail
-8.411649228+2.496794499*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 1}
.4171906607e-1-.5404871752*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 2}
.4672486370e-1-.3344443629*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 3}
8.845535938-0.*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Skip
22.8.E6 JacobiND(u + v, k)=(JacobiND(u, k)*JacobiND(v, k)+ (k)^(2)* JacobiSD(u, k)*JacobiCD(u, k)*JacobiSD(v, k)*JacobiCD(v, k))/(1 + (k)^(2)* 1 - (k)^(2)* (JacobiSD(u, k))^(2)* (JacobiSD(v, k))^(2)) JacobiND[u + v, (k)^2]=Divide[JacobiND[u, (k)^2]*JacobiND[v, (k)^2]+ (k)^(2)* JacobiSD[u, (k)^2]*JacobiCD[u, (k)^2]*JacobiSD[v, (k)^2]*JacobiCD[v, (k)^2],1 + (k)^(2)* 1 - (k)^(2)* (JacobiSD[u, (k)^2])^(2)* (JacobiSD[v, (k)^2])^(2)] Failure Failure
Fail
-8.469613315+2.476300734*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 1}
-.2446575645+.5929818787*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 2}
-.5059779542e-1-.4472642739*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 3}
8.907556175-0.*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[-8.469613322356564, 2.4763007298746587] <- {Rule[k, 1], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.24465756431597135, 0.5929818773302299] <- {Rule[k, 2], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.05059779615055053, -0.4472642742544212] <- {Rule[k, 3], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[8.907556180814666, 0.0] <- {Rule[k, 1], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.8.E7 JacobiDC(u + v, k)=(JacobiDC(u, k)*JacobiDC(v, k)+ 1 - (k)^(2)* JacobiSC(u, k)*JacobiNC(u, k)*JacobiSC(v, k)*JacobiNC(v, k))/(1 - 1 - (k)^(2)* (JacobiSC(u, k))^(2)* (JacobiSC(v, k))^(2)) JacobiDC[u + v, (k)^2]=Divide[JacobiDC[u, (k)^2]*JacobiDC[v, (k)^2]+ 1 - (k)^(2)* JacobiSC[u, (k)^2]*JacobiNC[u, (k)^2]*JacobiSC[v, (k)^2]*JacobiNC[v, (k)^2],1 - 1 - (k)^(2)* (JacobiSC[u, (k)^2])^(2)* (JacobiSC[v, (k)^2])^(2)] Failure Failure
Fail
.2798628459+.1057645812*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 1}
2.155279764+3.336838966*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 2}
-10.41618961+.723801634*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 3}
.2913197033+.1243926156e-11*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[0.27986284597445743, 0.1057645806458628] <- {Rule[k, 1], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[2.1552797720040004, 3.3368389687939786] <- {Rule[k, 2], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-10.416189608158701, 0.7238016559320513] <- {Rule[k, 3], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.2913197027505876, 0.0] <- {Rule[k, 1], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.8.E8 JacobiNC(u + v, k)=(JacobiNC(u, k)*JacobiNC(v, k)+ JacobiSC(u, k)*JacobiDC(u, k)*JacobiSC(v, k)*JacobiDC(v, k))/(1 - 1 - (k)^(2)* (JacobiSC(u, k))^(2)* (JacobiSC(v, k))^(2)) JacobiNC[u + v, (k)^2]=Divide[JacobiNC[u, (k)^2]*JacobiNC[v, (k)^2]+ JacobiSC[u, (k)^2]*JacobiDC[u, (k)^2]*JacobiSC[v, (k)^2]*JacobiDC[v, (k)^2],1 - 1 - (k)^(2)* (JacobiSC[u, (k)^2])^(2)* (JacobiSC[v, (k)^2])^(2)] Failure Failure
Fail
-8.445366052+2.504181595*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 1}
-2.348000820+.4644873082*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 2}
.3919060714+4.559323678*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 3}
8.869980794+0.*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[-8.4453660597032, 2.504181591384576] <- {Rule[k, 1], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-2.3480008192225705, 0.46448731013438893] <- {Rule[k, 2], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[0.39190608798513005, 4.559323684618953] <- {Rule[k, 3], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[8.869980800731279, 0.0] <- {Rule[k, 1], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.8.E9 JacobiSC(u + v, k)=(JacobiSC(u, k)*JacobiDC(v, k)*JacobiNC(v, k)+ JacobiSC(v, k)*JacobiDC(u, k)*JacobiNC(u, k))/(1 - 1 - (k)^(2)* (JacobiSC(u, k))^(2)* (JacobiSC(v, k))^(2)) JacobiSC[u + v, (k)^2]=Divide[JacobiSC[u, (k)^2]*JacobiDC[v, (k)^2]*JacobiNC[v, (k)^2]+ JacobiSC[v, (k)^2]*JacobiDC[u, (k)^2]*JacobiNC[u, (k)^2],1 - 1 - (k)^(2)* (JacobiSC[u, (k)^2])^(2)* (JacobiSC[v, (k)^2])^(2)] Failure Failure
Fail
-8.387425493+2.524419001*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 1}
1.765721394-.9866914128*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 2}
-.5663184000+3.386135413*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 3}
8.808222182+0.*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Fail
Complex[-8.387425500158386, 2.5244189972251565] <- {Rule[k, 1], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[1.7657213943311842, -0.9866914167974857] <- {Rule[k, 2], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[-0.5663183953417591, 3.3861354179416785] <- {Rule[k, 3], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, 1], Power[2, Rational[1, 2]]]]}
Complex[8.808222188159213, 0.0] <- {Rule[k, 1], Rule[u, Times[Complex[1, 1], Power[2, Rational[1, 2]]]], Rule[v, Times[Complex[1, -1], Power[2, Rational[1, 2]]]]}
... skip entries to safe data
22.8.E10 JacobiNS(u + v, k)=(JacobiNS(u, k)*JacobiDS(v, k)*JacobiCS(v, k)- JacobiNS(v, k)*JacobiDS(u, k)*JacobiCS(u, k))/((JacobiCS(v, k))^(2)- (JacobiCS(u, k))^(2)) JacobiNS[u + v, (k)^2]=Divide[JacobiNS[u, (k)^2]*JacobiDS[v, (k)^2]*JacobiCS[v, (k)^2]- JacobiNS[v, (k)^2]*JacobiDS[u, (k)^2]*JacobiCS[u, (k)^2],(JacobiCS[v, (k)^2])^(2)- (JacobiCS[u, (k)^2])^(2)] Successful Failure - Successful
22.8.E11 JacobiDS(u + v, k)=(JacobiDS(u, k)*JacobiCS(v, k)*JacobiNS(v, k)- JacobiDS(v, k)*JacobiCS(u, k)*JacobiNS(u, k))/((JacobiCS(v, k))^(2)- (JacobiCS(u, k))^(2)) JacobiDS[u + v, (k)^2]=Divide[JacobiDS[u, (k)^2]*JacobiCS[v, (k)^2]*JacobiNS[v, (k)^2]- JacobiDS[v, (k)^2]*JacobiCS[u, (k)^2]*JacobiNS[u, (k)^2],(JacobiCS[v, (k)^2])^(2)- (JacobiCS[u, (k)^2])^(2)] Successful Failure - Successful
22.8.E12 JacobiCS(u + v, k)=(JacobiCS(u, k)*JacobiDS(v, k)*JacobiNS(v, k)- JacobiCS(v, k)*JacobiDS(u, k)*JacobiNS(u, k))/((JacobiCS(v, k))^(2)- (JacobiCS(u, k))^(2)) JacobiCS[u + v, (k)^2]=Divide[JacobiCS[u, (k)^2]*JacobiDS[v, (k)^2]*JacobiNS[v, (k)^2]- JacobiCS[v, (k)^2]*JacobiDS[u, (k)^2]*JacobiNS[u, (k)^2],(JacobiCS[v, (k)^2])^(2)- (JacobiCS[u, (k)^2])^(2)] Successful Failure - Successful
22.8.E13 JacobiSN(u + v, k)=((JacobiSN(u, k))^(2)- (JacobiSN(v, k))^(2))/(JacobiSN(u, k)*JacobiCN(v, k)*JacobiDN(v, k)- JacobiSN(v, k)*JacobiCN(u, k)*JacobiDN(u, k)) JacobiSN[u + v, (k)^2]=Divide[(JacobiSN[u, (k)^2])^(2)- (JacobiSN[v, (k)^2])^(2),JacobiSN[u, (k)^2]*JacobiCN[v, (k)^2]*JacobiDN[v, (k)^2]- JacobiSN[v, (k)^2]*JacobiCN[u, (k)^2]*JacobiDN[u, (k)^2]] Successful Failure - Successful
22.8.E14 JacobiSN(u + v, k)=(JacobiSN(u, k)*JacobiCN(u, k)*JacobiDN(v, k)+ JacobiSN(v, k)*JacobiCN(v, k)*JacobiDN(u, k))/(JacobiCN(u, k)*JacobiCN(v, k)+ JacobiSN(u, k)*JacobiDN(u, k)*JacobiSN(v, k)*JacobiDN(v, k)) JacobiSN[u + v, (k)^2]=Divide[JacobiSN[u, (k)^2]*JacobiCN[u, (k)^2]*JacobiDN[v, (k)^2]+ JacobiSN[v, (k)^2]*JacobiCN[v, (k)^2]*JacobiDN[u, (k)^2],JacobiCN[u, (k)^2]*JacobiCN[v, (k)^2]+ JacobiSN[u, (k)^2]*JacobiDN[u, (k)^2]*JacobiSN[v, (k)^2]*JacobiDN[v, (k)^2]] Successful Failure - Successful
22.8.E15 JacobiCN(u + v, k)=(JacobiSN(u, k)*JacobiCN(u, k)*JacobiDN(v, k)- JacobiSN(v, k)*JacobiCN(v, k)*JacobiDN(u, k))/(JacobiSN(u, k)*JacobiCN(v, k)*JacobiDN(v, k)- JacobiSN(v, k)*JacobiCN(u, k)*JacobiDN(u, k)) JacobiCN[u + v, (k)^2]=Divide[JacobiSN[u, (k)^2]*JacobiCN[u, (k)^2]*JacobiDN[v, (k)^2]- JacobiSN[v, (k)^2]*JacobiCN[v, (k)^2]*JacobiDN[u, (k)^2],JacobiSN[u, (k)^2]*JacobiCN[v, (k)^2]*JacobiDN[v, (k)^2]- JacobiSN[v, (k)^2]*JacobiCN[u, (k)^2]*JacobiDN[u, (k)^2]] Successful Failure - Successful
22.8.E16 JacobiCN(u + v, k)=(1 - (JacobiSN(u, k))^(2)- (JacobiSN(v, k))^(2)+ (k)^(2)* (JacobiSN(u, k))^(2)* (JacobiSN(v, k))^(2))/(JacobiCN(u, k)*JacobiCN(v, k)+ JacobiSN(u, k)*JacobiDN(u, k)*JacobiSN(v, k)*JacobiDN(v, k)) JacobiCN[u + v, (k)^2]=Divide[1 - (JacobiSN[u, (k)^2])^(2)- (JacobiSN[v, (k)^2])^(2)+ (k)^(2)* (JacobiSN[u, (k)^2])^(2)* (JacobiSN[v, (k)^2])^(2),JacobiCN[u, (k)^2]*JacobiCN[v, (k)^2]+ JacobiSN[u, (k)^2]*JacobiDN[u, (k)^2]*JacobiSN[v, (k)^2]*JacobiDN[v, (k)^2]] Successful Failure - Successful
22.8.E17 JacobiDN(u + v, k)=(JacobiSN(u, k)*JacobiCN(v, k)*JacobiDN(u, k)- JacobiSN(v, k)*JacobiCN(u, k)*JacobiDN(v, k))/(JacobiSN(u, k)*JacobiCN(v, k)*JacobiDN(v, k)- JacobiSN(v, k)*JacobiCN(u, k)*JacobiDN(u, k)) JacobiDN[u + v, (k)^2]=Divide[JacobiSN[u, (k)^2]*JacobiCN[v, (k)^2]*JacobiDN[u, (k)^2]- JacobiSN[v, (k)^2]*JacobiCN[u, (k)^2]*JacobiDN[v, (k)^2],JacobiSN[u, (k)^2]*JacobiCN[v, (k)^2]*JacobiDN[v, (k)^2]- JacobiSN[v, (k)^2]*JacobiCN[u, (k)^2]*JacobiDN[u, (k)^2]] Successful Failure - Successful
22.8.E18 JacobiDN(u + v, k)=(JacobiCN(u, k)*JacobiDN(u, k)*JacobiCN(v, k)*JacobiDN(v, k)+ 1 - (k)^(2)* JacobiSN(u, k)*JacobiSN(v, k))/(JacobiCN(u, k)*JacobiCN(v, k)+ JacobiSN(u, k)*JacobiDN(u, k)*JacobiSN(v, k)*JacobiDN(v, k)) JacobiDN[u + v, (k)^2]=Divide[JacobiCN[u, (k)^2]*JacobiDN[u, (k)^2]*JacobiCN[v, (k)^2]*JacobiDN[v, (k)^2]+ 1 - (k)^(2)* JacobiSN[u, (k)^2]*JacobiSN[v, (k)^2],JacobiCN[u, (k)^2]*JacobiCN[v, (k)^2]+ JacobiSN[u, (k)^2]*JacobiDN[u, (k)^2]*JacobiSN[v, (k)^2]*JacobiDN[v, (k)^2]] Failure Failure
Fail
-.4438908315+.1804284132e-1*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 1}
-.1432992406+.147150302*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 2}
-.8677161564+.92219262e-1*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)+I*2^(1/2), k = 3}
.4223716725-.4114809072e-11*I <- {u = 2^(1/2)+I*2^(1/2), v = 2^(1/2)-I*2^(1/2), k = 1}
... skip entries to safe data
Skip
22.8.E21