a2 = a^2 a4 = a^4 b2 = b^2 b4 = b^4 c2 = c^2 c4 = c^4 d2 = d^2 d4 = d^4 e2 = e^2 e3 = e^3 f2 = f^2 f3 = f^3 t2 = Cos[r]^2 t3 = Cos[r]^3 t4 = Cos[r]^4 t5 = Cos[r]^5 t6 = Cos[r]^6 s2 = Sin[r]^2 s3 = Sin[r]^3 s4 = Sin[r]^4 s5 = Sin[r]^5 s6 = Sin[r]^6 t = Cos[r] s = Sin[r] g = (-(a2*b2*c4*d2*t2)+a4*c2*d4*t2+a2*b4*c4*t4-a4*b2*c2*d2*t4+a2*b2*c2*d2*e2*t4-3*a4*d4*e2*t4-a2*b2*c4*f2*t4-a4*c2*d2*f2*t4+2*a2*b2*c4*e*f*t3*s+6*a4*c2*d2*e*f*t3*s-2*a2*b2*c2*d2*e*f*t3*s-6*a4*d4*e*f*t3*s+a4*c4*d2*s2-a2*b2*c2*d4*s2+a4*b2*c4*t2*s2-4*a4*b2*c2*d2*t2*s2+2*a2*b4*c2*d2*t2*s2+a4*b2*d4*t2*s2-a2*b2*c4*e2*t2*s2-6*a4*c2*d2*e2*t2*s2+4*a2*b2*c2*d2*e2*t2*s2-a2*b2*d4*e2*t2*s2-3*a4*c4*f2*t2*s2+4*a4*c2*d2*f2*t2*s2-2*a2*b2*c2*d2*f2*t2*s2-3*a4*d4*f2*t2*s2+6*a4*c4*e*f*t*s3-6*a4*c2*d2*e*f*t*s3+2*a2*b2*c2*d2*e*f*t*s3-2*a2*b2*d4*e*f*t*s3-a4*b2*c2*d2*s4+a2*b4*d4*s4-3*a4*c4*e2*s4+a2*b2*c2*d2*e2*s4-a4*c2*d2*f2*s4-a2*b2*d4*f2*s4) h = (a4*c4*d4-2*a4*b2*c4*d2*t2-2*a4*c2*d4*e2*t2-2*a4*c4*d2*f2*t2+a4*b4*c4*t4+2*a4*b2*c2*d2*e2*t4+a4*d4*e^4*t4-2*a4*b2*c4*f2*t4+2*a4*c2*d2*e2*f2*t4+a4*c4*f^4*t4+4*a4*c4*d2*e*f*t*s-4*a4*c2*d4*e*f*t*s+4*a4*b2*c4*e*f*t3*s-4*a4*b2*c2*d2*e*f*t3*s-4*a4*c2*d2*e3*f*t3*s+4*a4*d4*e3*f*t3*s-4*a4*c4*e*f3*t3*s+4*a4*c2*d2*e*f3*t3*s-2*a4*b2*c2*d4*s2-2*a4*c4*d2*e2*s2-2*a4*c2*d4*f2*s2+2*a4*b4*c2*d2*t2*s2-2*a4*b2*c4*e2*t2*s2+8*a4*b2*c2*d2*e2*t2*s2-2*a4*b2*d4*e2*t2*s2+2*a4*c2*d2*e^4*t2*s2-4*a4*b2*c2*d2*f2*t2*s2+6*a4*c4*e2*f2*t2*s2-8*a4*c2*d2*e2*f2*t2*s2+6*a4*d4*e2*f2*t2*s2+2*a4*c2*d2*f^4*t2*s2+4*a4*b2*c2*d2*e*f*t*s3-4*a4*b2*d4*e*f*t*s3-4*a4*c4*e3*f*t*s3+4*a4*c2*d2*e3*f*t*s3-4*a4*c2*d2*e*f3*t*s3+4*a4*d4*e*f3*t*s3+a4*b4*d4*s4+2*a4*b2*c2*d2*e2*s4+a4*c4*e^4*s4-2*a4*b2*d4*f2*s4+2*a4*c2*d2*e2*f2*s4+a4*d4*f^4*s4) i = (a4*c2*d4*e*t2-a4*b2*c2*d2*e*t4-a4*d4*e3*t4-a4*c2*d2*e*f2*t4-a4*c4*d2*f*t*s+a4*c2*d4*f*t*s-a4*b2*c4*f*t3*s+a4*b2*c2*d2*f*t3*s+3*a4*c2*d2*e2*f*t3*s-3*a4*d4*e2*f*t3*s+a4*c4*f3*t3*s-a4*c2*d2*f3*t3*s+a4*c4*d2*e*s2+a4*b2*c4*e*t2*s2-4*a4*b2*c2*d2*e*t2*s2+a4*b2*d4*e*t2*s2-2*a4*c2*d2*e3*t2*s2-3*a4*c4*e*f2*t2*s2+4*a4*c2*d2*e*f2*t2*s2-3*a4*d4*e*f2*t2*s2-a4*b2*c2*d2*f*t*s3+a4*b2*d4*f*t*s3+3*a4*c4*e2*f*t*s3-3*a4*c2*d2*e2*f*t*s3+a4*c2*d2*f3*t*s3-a4*d4*f3*t*s3-a4*b2*c2*d2*e*s4-a4*c4*e3*s4-a4*c2*d2*e*f2*s4) j = (-(a2*b2*c2*d2*e*t4)+a4*d4*e*t4-a2*b2*c4*f*t3*s-a4*c2*d2*f*t3*s+a2*b2*c2*d2*f*t3*s+a4*d4*f*t3*s+a2*b2*c4*e*t2*s2+2*a4*c2*d2*e*t2*s2-4*a2*b2*c2*d2*e*t2*s2+a2*b2*d4*e*t2*s2-a4*c4*f*t*s3+a4*c2*d2*f*t*s3-a2*b2*c2*d2*f*t*s3+a2*b2*d4*f*t*s3+a4*c4*e*s4-a2*b2*c2*d2*e*s4) k = (b4*c4*t4-2*a2*b2*c2*d2*t4+a4*d4*t4+2*a2*b2*c4*t2*s2+2*a4*c2*d2*t2*s2-8*a2*b2*c2*d2*t2*s2+2*b4*c2*d2*t2*s2+2*a2*b2*d4*t2*s2+a4*c4*s4-2*a2*b2*c2*d2*s4+b4*d4*s4) l = (a2*b2*c2*d2*e*t4-a4*d4*e*t4+a2*b2*c4*f*t3*s+a4*c2*d2*f*t3*s-a2*b2*c2*d2*f*t3*s-a4*d4*f*t3*s-a2*b2*c4*e*t2*s2-2*a4*c2*d2*e*t2*s2+4*a2*b2*c2*d2*e*t2*s2-a2*b2*d4*e*t2*s2+a4*c4*f*t*s3-a4*c2*d2*f*t*s3+a2*b2*c2*d2*f*t*s3-a2*b2*d4*f*t*s3-a4*c4*e*s4+a2*b2*c2*d2*e*s4) m = (-16*g^3-288*j*g*i+432*k*i^2+432*j^2*h+144*k*g*h+Sqrt[-4*(4*g^2+48*j*i+12*k*h)^3+(-16*g^3-288*j*g*i+432*k*i^2+432*j^2*h+144*k*g*h)^2]) n = ((-64*l^3)/k^3-(32*l*g)/k^2+(32*(-(a4*c2*d4*e*t2)+a4*b2*c2*d2*e*t4+a4*d4*e3*t4+a4*c2*d2*e*f2*t4+a4*c4*d2*f*t*s-a4*c2*d4*f*t*s+a4*b2*c4*f*t3*s-a4*b2*c2*d2*f*t3*s-3*a4*c2*d2*e2*f*t3*s+3*a4*d4*e2*f*t3*s-a4*c4*f3*t3*s+a4*c2*d2*f3*t3*s-a4*c4*d2*e*s2-a4*b2*c4*e*t2*s2+4*a4*b2*c2*d2*e*t2*s2-a4*b2*d4*e*t2*s2+2*a4*c2*d2*e3*t2*s2+3*a4*c4*e*f2*t2*s2-4*a4*c2*d2*e*f2*t2*s2+3*a4*d4*e*f2*t2*s2+a4*b2*c2*d2*f*t*s3-a4*b2*d4*f*t*s3-3*a4*c4*e2*f*t*s3+3*a4*c2*d2*e2*f*t*s3-a4*c2*d2*f3*t*s3+a4*d4*f3*t*s3+a4*b2*c2*d2*e*s4+a4*c4*e3*s4+a4*c2*d2*e*f2*s4))/k) o = (4*Sqrt[(4*l^2)/k^2+(4*g)/(3*k)+(2^(1/3)*(4*g^2+48*j*i+12*k*h))/(3*k*m^(1/3))+m^(1/3)/(3*2^(1/3)*k)]) p = (2^(1/3)*(4*g^2+48*j*i+12*k*h)) q = (-(l/k)-Sqrt[(4*l^2)/k^2+(4*g)/(3*k)+p/(3*k*m^(1/3))+m^(1/3)/(3*2^(1/3)*k)]/2-Sqrt[(8*l^2)/k^2+(8*g)/(3*k)-p/(3*k*m^(1/3))-m^(1/3)/(3*2^(1/3)*k)-n/o]/2) u = (-(l/k)-Sqrt[(4*l^2)/k^2+(4*g)/(3*k)+p/(3*k*m^(1/3))+m^(1/3)/(3*2^(1/3)*k)]/2+Sqrt[(8*l^2)/k^2+(8*g)/(3*k)-p/(3*k*m^(1/3))-m^(1/3)/(3*2^(1/3)*k)-n/o]/2) v = (-(l/k)+Sqrt[(4*l^2)/k^2+(4*g)/(3*k)+p/(3*k*m^(1/3))+m^(1/3)/(3*2^(1/3)*k)]/2-Sqrt[(8*l^2)/k^2+(8*g)/(3*k)-p/(3*k*m^(1/3))-m^(1/3)/(3*2^(1/3)*k)+n/o]/2) w = (-(l/k)+Sqrt[(4*l^2)/k^2+(4*g)/(3*k)+p/(3*k*m^(1/3))+m^(1/3)/(3*2^(1/3)*k)]/2+Sqrt[(8*l^2)/k^2+(8*g)/(3*k)-p/(3*k*m^(1/3))-m^(1/3)/(3*2^(1/3)*k)+n/o]/2) x = (2*a2*b2*c^6*f2*t6-2*a4*c4*d2*f2*t6-4*a2*b2*c^6*e*f*t5*s+4*a2*b2*c4*d2*e*f*t5*s+2*a4*c^6*d2*t2*s2-4*a4*c4*d4*t2*s2+2*a4*c2*d^6*t2*s2-2*a4*b2*c^6*t4*s2+4*a4*b2*c4*d2*t4*s2-2*a4*b2*c2*d4*t4*s2+2*a2*b2*c^6*e2*t4*s2-4*a2*b2*c4*d2*e2*t4*s2+2*a2*b2*c2*d4*e2*t4*s2-4*a4*c4*d2*f2*t4*s2+6*a2*b2*c4*d2*f2*t4*s2-2*a4*c2*d4*f2*t4*s2-8*a2*b2*c4*d2*e*f*t3*s3+8*a2*b2*c2*d4*e*f*t3*s3-2*a4*b2*c4*d2*t2*s4+4*a4*b2*c2*d4*t2*s4-2*a4*b2*d^6*t2*s4+2*a2*b2*c4*d2*e2*t2*s4-4*a2*b2*c2*d4*e2*t2*s4+2*a2*b2*d^6*e2*t2*s4-2*a4*c4*d2*f2*t2*s4-4*a4*c2*d4*f2*t2*s4+6*a2*b2*c2*d4*f2*t2*s4-4*a2*b2*c2*d4*e*f*t*s5+4*a2*b2*d^6*e*f*t*s5-2*a4*c2*d4*f2*s6+2*a2*b2*d^6*f2*s6) y = (1/3)