R/SEFourMixedExpA45_A47.R
In adw96/CatchAll: Species Richness Estimation with CatchAll
Defines functions
SEFourMixedExpA45_A47
SEFourMixedExpA45_A47 <- function(t1, t2, t3, t4, t5, t6, t7, a, sHatSubset) {
Criteria <- 0.0000000000000001
maxIter <- 100000
test <- 100.0
k <- 0
##A45
while (test > criteria & k < maximumIteration)
{
t1P <- pow((t1/(1+t1)),k)
t2P <- pow((t2/(1+t2)),k)
t3P <- pow((t3/(1+t3)),k)
t4P <- pow((t4/(1+t4)),k)
t12kP <- pow((t1/(1+t1)),(2*k))
t22kP <- pow((t2/(1+t2)),(2*k))
t32kP <- pow((t3/(1+t3)),(2*k))
t42kP <- pow((t4/(1+t4)),(2*k))
A45 <- (-t6*t2P*t3*t3*t4P*t1P*(t4*t4)-2*t6*t2P*t3*t4P*t1P*(t4*t4)*t1+t6*t2P*(t1*t1)*t42kP*t4
*t5-8*t42kP*t6*t2*t3*t1P*k*t1-2*t42kP*t3*t5*t1P*k*t1*(t2*t2)-8*t42kP*t7*t2*t1P*k*t3-2*t6
*t2P*t3*t4P*t1P*(t4*t4)-t42kP*(t1*t1)*t7*t3P*k*t5*(t2*t2)*t3-t6*t2P*t3*t3*t4P*t1P*t4-t42kP
*t7*t7*t3P*k+4*t42kP*t2*t3*t1P*k+t42kP*(t2*t2)*t5*t1P*k*t1*t6+4*t42kP*t3*t6*t1P*t4*(t2
*t2)-2*t6*t2P*t3*t42kP*t4+2*t42kP*t3*t3*t6*t1P*t4*(t2*t2)-2*t42kP*t1*t6*t2P*k*t2*t5*t3*t3
+2*t7*t3P*(t2*t2)*t3*t42kP*t4*t6*t1-2*t6*t6*t22kP*t1*t4P*t4+t6*t6*t2P*t3*t3*t42kP*t4+t7*t3P
*(t1*t1)*t42kP*t4*t6+2*t42kP*t2*t3*t3*t5*t1P*k*t6-2*t42kP*t6*t6*t1P*t4*t1*t3-t42kP*(t1*t1)
*t7*t3P*k*t6*t3-2*t42kP*t7*(t2*t2)*t1P*k+4*t7*t7*t3P*t1*t2*t42kP*t4-t6*t2P*t3*t3*t42kP
*t4+2*t42kP*t7*t3*t5*t1P*k*t1*(t2*t2)-2*t42kP*t7*(t2*t2)*t1P*k*t3*t3+t42kP*t6*t6*t1P*k+2
*t42kP*t2*t1P*k+2*t42kP*t7*(t2*t2)*t1P*k*t6*t1+2*t42kP*t7*t3P*k*t2+t7*t3P*t1P*t1*t4P
*t6*t4+t7*t7*t3P*t1P*t1*t4P*t4+t6*t6*t2P*t3*t3*t4*t1P*t1*t4P*t2-2*t42kP*t6*t1P*k*(t2
*t2)*t3*t3-t42kP*t7*t4*t5*t1P*(t2*t2)*t1+t42kP*t7*(t2*t2)*t1P*k*t5+t42kP*(t2*t2)*t3*t3*t5*t1P
*k*t7+t42kP*t5*t1P*k*t6-2*t42kP*t6*t2P*k*t2*t7*t3+t6*t6*t2P*t3*t3*t42kP*t4*t2-4*t42kP*t6
*t3*t3*t1P*t1*t7*t4*t2+2*t42kP*t6*t6*t1P*k*t1*t2-t7*t7*t32kP*t4P*t4+2*t7*t7*t3P*t2*t3*(t4
*t4)*t4P*t1P+t42kP*t7*t3*t3*t5*t1P*k*t1-2*(t2*t2)*(t4*t4)*t4P*t7*t7*t32kP*t1+t7*t7*t3P
*(t1*t1)*(t2*t2)*t42kP*t4+2*t7*t7*t3P*t1P*t1*t4P*t2*t3*(t4*t4)-2*t5*t12kP*t2*t4P*t4-t42kP
*(t1*t1)*t7*t3P*k*t6*(t2*t2)+t42kP*t3*t3*t2P*k*t6+2*t42kP*t3*t5*t1P*k*t1*t6*(t2*t2)+2*t4P
*t3*t4*t6*t2P*k*t2*t7*t3P+t6*t6*t22kP*(t1*t1)*t4*k*t4P+4*t7*t3P*t1*t2P*k*t4P*t6+4*t7*t3P
*t6*t2P*k*t2*t4P*t1*t3+4*t7*t3P*t6*t2P*k*t2*t4P*t1+2*t7*t3P*t6*t2P*k*t2*t4P*(t1*t1)*t4-t42kP
*(t1*t1)*t7*t3P*k*t5*t3-4*t6*t2P*t4*t3P*t3*t4P*t7*t1+2*t7*t7*t3P*t1*t42kP*t4+4*t42kP*t7
*t2*t1P*k*t6*t3*t3+2*t42kP*(t2*t2)*t3*t5*t1P*k*t7+t6*t6*t2P*(t4*t4)*t4P*t1P-t6*t2P*t3*t3
*(t4*t4)*t1P*t1*t4P+t6*t6*t22kP*k*t4P+t7*t3P*(t2*t2)*t42kP*t4*t5-4*t42kP*t1*t6*t2P*k
*t2*t7*t3+t42kP*t5*t1P*k*t7*t3*t3+t42kP*t1P*k*t1*(t2*t2)+2*t42kP*t3*t3*t5*t1P*k*t1*t6*t2
+t7*t3P*t42kP*t4*t6-2*t7*t3P*t1*t3*t42kP*t4-2*t42kP*t5*t1P*k*t3+2*t6*t2P*t1*t42kP*t4
*t5*t2+t42kP*(t2*t2)*t3*t3*t5*t1P*k*t6-2*t42kP*(t1*t1)*t7*t3P*k*t5*t2-t42kP*(t1*t1)*t7*t3P
*k*t5+4*t42kP*t3*t5*t1P*k*t1*t6*t2+t7*t3P*(t2*t2)*t3*t42kP*t4*t6-2*(t4*t4)*t1*t4P*t6*t6*t22kP-t42kP
*t6*(t2*t2)*t4*t5*t1P*t1-2*t42kP*t6*t1P*k*t3*t3+t42kP*t7*t3*t3*t5*t1P*k*t1*(t2*t2)+2*t42kP
*t2*t5*t1P*k*t1*t6-4*t42kP*t7*t2*t1P*k*t1-t4P*(t4*t4)*t1P*t1*t7*t3P+4*t7*t3P*t1*t2*t42kP
*t4*t6-2*t7*t3P*t2*t3*t42kP*t4*(t1*t1)-2*t42kP*t1*t6*t6*t2P*k*t2*t3*t3+2*t42kP*t3*t3*t7*t1P
*t4-t6*t6*t22kP*(t1*t1)*t4P*t4-2*t42kP*t1*t6*t2P*k*t2*t7+t7*t3P*t42kP*t4*t5+t7*t7*t3P*t3
*t42kP*t4+t7*t7*t3P*(t2*t2)*t3*t42kP*t4+2*t42kP*t1*t6*t2P*k*t2*t3*t3+t6*t6*t2P*(t1*t1)*t42kP
*t4*t2-t6*t2P*(t1*t1)*t42kP*t4+t42kP*t7*t3P*k*(t2*t2)*t3-2*t42kP*t7*t1*t2P*k*t6*t3*t3-4*t6
*t2P*t3*t42kP*t4*t1+t42kP*t7*t7*t1P*k+t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4*t6+t5*t12kP*(t2*t2)
*t4P*t6*t4+2*t42kP*t7*t7*t2*t1P*k*t1*t3*t3+2*t5*t12kP*(t2*t2)*t4P*t6*t4*t3-2*t42kP*t5*t1P
*k*t2+4*t5*t12kP*t2*t4P*t6*t4*t3+2*t42kP*(t2*t2)*t7*t1P*t4*t1-t6*t2P*t3*t3*t42kP*t4*t2*(t1
*t1)+t6*t2P*t3*t3*t4*t1P*t1*t4P*t7-2*t42kP*t3*t5*t1P*k*t1+t6*t2P*t3*t3*t42kP*t4*t5+t42kP
*t2P*k*t6*(t1*t1)-t5*t1P*t3P*t3*t4*t4P*t7*(t2*t2)-2*t7*t3P*t2*t3*t4*t1P*t1*t4P-2*t6*t2P
*t3*t4*t1P*t1*t4P*t5-t42kP*(t1*t1)*t7*t7*t3P*k*(t2*t2)*t3-2*(t4*t4)*(t1*t1)*t4P*t7*t3P*t6
*t2P-t7*t3P*t3*t4*t5*t1P*t4P*t1+t6*t6*t2P*t3*t3*t4*t1P*t1*t4P-2*t42kP*t1*t7*t3P*k*t6
*(t2*t2)+t6*t6*t2P*t2*t42kP*t4-2*t7*t3P*t4*t2P*t2*t4P*t6*(t1*t1)*t3-t42kP*t7*(t1*t1)*t2P
*k*t6+4*t42kP*t2*t3*t5*t1P*k*t7+4*t42kP*t7*t2*t1P*k*t6*t1-2*t7*t7*t32kP*(t1*t1)*t2*t4P*t4-2
*t6*t2P*t3*t42kP*t4*(t1*t1)-2*t42kP*t5*t2P*k*t6*t1+t6*t2P*t3*t3*t42kP*t4*t5*(t1*t1)*t2+t42kP
*t7*t7*t1P*k*t1*t3*t3+t42kP*(t2*t2)*t1P*k-4*t7*t3P*t4*t2P*t2*t4P*t6*t1*t3+2*t42kP*(t1*t1)
*t7*t3P*k*t2*t3+2*t5*t12kP*t2*t4P*t6*(t4*t4)-2*t7*t3P*t2*t3*t4*t1P*t1*t4P*t5+2*t7*t3P*t2
*t3*t4*t1P*t1*t4P*t6-2*t42kP*(t1*t1)*t6*t2P*k*t2*t7*t3+2*t42kP*t3*t2P*k*t6+4*t42kP*t1*t7
*t3P*k*t2*t3+2*t42kP*t1P*k*t1*t2+4*t42kP*t2*t3*t5*t1P*k*t6-t42kP*t6*t2P*k*t2*t5-t42kP
*t7*t3P*k*t6*t3-2*t42kP*t2*t3*t3*t5*t1P*k-t42kP*t7*t7*t3P*k*(t2*t2)-2*t7*t3P*t4*t2P*t2
*t4P*t6-2*(t4*t4)*(t1*t1)*t4P*t6*t6*t22kP*t3+2*t42kP*(t2*t2)*t7*t1P*t4+t5*t12kP*t3*t3*(t4
*t4)*(t2*t2)*t4P*t7-t7*t3P*t3*(t4*t4)*t4P*t1P-2*t6*t2P*t1*t42kP*t4+8*t42kP*t7*t2*t1P
*k*t6*t1*t3-t7*t3P*t3*(t4*t4)*t4P*t1P*t1-2*t7*t3P*t3*(t4*t4)*t4P*t1P*t2+2*t7*t3P*t2*t3
*t42kP*t4*t6*(t1*t1)-4*t42kP*t6*t1P*k*t2-t5*t12kP*(t2*t2)*t4P*t4-2*t42kP*t1*t7*t7*t3P*k
*t3+t7*t3P*t3*t4*t1P*t1*t4P*t6-2*t42kP*t1P*t1*t3*t4+2*t4P*t6*t2P*k*t2*t7*t3P+4*t7*t3P
*t1*t4*t2P*k*t4P*t6+4*t7*t3P*t3*t4*t6*t2P*k*t4P*t1*t2+2*t6*t6*t22kP*t1*k*t4P+t6*t6*t22kP
*(t1*t1)*t3*t3*k*t4P*t4+2*t4P*t6*t2P*k*t2*t7*t3P*t3+t6*t6*t22kP*t3*t3*k*t4P+2*t7*t7*t32kP
*t1*(t2*t2)*k*t4P*t4+t7*t7*t32kP*k*t4P*(t2*t2)+t7*t7*t32kP*k*t4P*(t2*t2)*t4-2*t42kP*t6*(t2
*t2)*t7*t1P*t4-2*t42kP*t6*(t2*t2)*t7*t1P*t4*t1+2*t6*t6*t22kP*t1*t4*k*t4P+2*t6*t6*t22kP*(t1
*t1)*t3*k*t4P*t4+2*t6*t6*t22kP*t1*t3*t3*k*t4P*t4-t4P*t4*t1P*t1*t6*t2P-t4P*t4*t1P*t1*t7
*t3P+2*t7*t7*t3P*t1P*t1*t4P*t2*t4-4*t42kP*t6*t3*(t2*t2)*t7*t1P*t4-2*t6*t6*t22kP*t3*t4P
*t4*(t1*t1)-t5*t1P*t4*t7*t3P*t4P*t3+2*t6*t2P*t3*t4P*t7*t1P*t4+t6*t2P*t2*t42kP*t4*t5+t7
*t3P*t3*t4P*t6*t1P*t4+2*t42kP*t6*t3*t3*t1P*k*t1*t7+2*t42kP*t7*t7*(t2*t2)*t1P*k*t1*t3+t42kP
*(t1*t1)*t3*t3*t2P*k*t6-t7*t3P*t4*t5*t1P*t4P*t1-2*t7*t3P*t4*t5*t1P*t4P*t1*t2+t6*t2P*t2
*t4*t1P*t1*t4P*t7+t42kP*t5*t1P*k*t6*(t2*t2)+2*t5*t12kP*t4P*t7*t4*t3+t7*t7*t32kP*k*t4P
*(t1*t1)*t4+2*t42kP*t7*t7*t2*t1P*k*t1-2*t7*t7*t32kP*t2*t4P*t4-2*t42kP*t1*t7*t7*t3P*k*(t2
*t2)-2*t42kP*t1*t6*t6*t2P*k*t2+2*t42kP*t6*t6*t1P*k*t2*t3*t3+2*t5*t1P*t2*t42kP*t4+2*t42kP
*(t1*t1)*t7*t3P*k*t2-t7*t3P*t3*t4P*t1P*t4+t7*t7*t32kP*k*t4P*t4+t7*t7*t32kP*k*t4P*(t1
*t1)+2*t7*t7*t32kP*k*t4P*t1+2*t7*t7*t32kP*k*t4P*t2+t7*t7*t3P*t3*t4P*t1P*t4+2*t6*t6*t2P
*t3*t4*t1P*t1*t4P*t2-t6*t2P*t3*t3*t4*t1P*t1*t4P-2*t7*t3P*t4*t2P*t2*t4P*t6*(t1*t1)+t7
*t7*t3P*(t1*t1)*t42kP*t4+t7*t3P*(t2*t2)*t3*t4*t1P*t1*t4P*t6+t7*t7*t32kP*(t1*t1)*(t2*t2)*k
*t4P+4*t7*t7*t32kP*t1*t2*k*t4P+2*t7*t7*t32kP*(t1*t1)*t2*k*t4P+2*t7*t7*t32kP*t1*(t2*t2)*k
*t4P+2*t7*t7*t32kP*(t1*t1)*t2*k*t4P*t4+2*t7*t7*t32kP*k*t4P*t2*t4+2*t7*t7*t32kP*k*t4P*t1
*t4+t42kP*t3*t3*t1P*k+t6*t2P*(t1*t1)*t42kP*t4*t7+2*t6*t2P*t3*t42kP*t4*t5-2*t7*t7*t32kP
*t1*(t2*t2)*t4P*t4-t4P*t7*t7*t1P*k*t1*t3P*t3-t6*t6*t2P*t4*t1P*k*t4P*t3*t3-t4P*t7*t2*t1P
*k*t6*t2P*t3*t3*t4-t4P*t7*t7*(t2*t2)*t1P*k*t3P*t4*t3-t4P*t7*t2*t1P*k*t6*t2P*t1*t3*t3+t4P
*t5*t1P*k*t7*t3P*t3-t4P*t6*t3*t1P*k*t1*t7*t3P-t6*t6*t2P*t1P*k*t1*t4P+t6*t2P*t1P*k
*t1*t4P*t5-t7*t3P*(t2*t2)*t1P*k*t1*t4P*t6*t4-t6*t6*t2P*t4*t1P*k*t4P*t2-t6*t6*t2P*t2*t1P
*k*t1*t4P+t7*t3P*(t2*t2)*t1P*k*t4P+2*t7*t3P*t2*t1P*k*t4P+t6*t2P*t1P*k*t4P-t5*t12kP
*k*t4P*t6*(t2*t2)*t3*t3+t6*t2P*t3*t3*t4*t1P*t1*t4P*t7*t2-2*t4P*t2*t1P*t1*t7*t3P*t3*(t4
*t4)+2*t6*t2P*t3*t4*t1P*t1*t4P*t7*t2-2*t6*t2P*t3*t4*t1P*t1*t4P*t5*t2+4*t5*t12kP*t2*t4P
*t6*(t4*t4)*t3-2*t42kP*t7*t7*t3*t3*t1P*t4*t2+2*t6*t6*t22kP*t3*k*t4P*t4+t6*t6*t22kP*(t1*t1)
*t3*t3*k*t4P-t42kP*t6*t6*(t2*t2)*t1P*t1*t4+2*t7*t3P*t4*t2P*k*t4P*t6+t6*t6*t22kP*t4*k*t4P
+2*t4P*t6*t2P*k*t2*t7*t3P*t4+2*t7*t3P*t6*t2P*k*t2*t4P*(t1*t1)*t3+2*t7*t3P*t6*t2P*k*t2
*t4P*(t1*t1)+2*t7*t3P*t3*t4*t6*t2P*k*t4P*(t1*t1)*t2+t6*t6*t22kP*t3*t3*k*t4P*t4+2*t7*t3P
*t2P*k*t4P*t6+2*t7*t3P*(t1*t1)*t4*t2P*k*t4P*t6*t3+2*t7*t3P*t3*t2P*k*t4P*t6+t7*t7*t32kP
*k*t4P-t42kP*t6*t4*t5*t1P+4*t7*t7*t32kP*t1*t2*k*t4P*t4-4*t42kP*t6*t3*t3*t2*t7*t1P*t4-2
*t42kP*t3*t6*t6*t2P*k-t42kP*(t1*t1)*t6*t2P*k*t2*t5-2*t5*t1P*t42kP*t7*t4*t1*t3-t4P*t6*t6
*t2*t3*t3*t1P*k*t1*t2P*t4-t6*t6*t2P*t3*t3*t1P*k*t1*t4P-t6*t2P*t3*t3*t1P*k*t1*t4P*t7-t6
*t6*t2P*t2*t3*t3*t1P*k*t4P+t4P*t3*t3*t4*t1P*k*t6*t2P*t2+2*t4P*t3*t4*t1P*k*t6*t2P*t1
*t2+2*t4P*t4*t5*t1P*k*t1*t7*t3P*t2*t3+t4P*t4*t5*t1P*k*t1*t6*t2P*t2-t4P*t7*t2*t1P*k*t6
*t2P*t1*t4-t4P*t7*t7*(t2*t2)*t1P*k*t3P*t1*t4*t3-4*t5*t12kP*k*t4P*t7*t2*t3-t5*t12kP*k*t4P
*t6*t4-t5*t12kP*k*t4P*t7*t3*t3*t4-2*t4P*t7*t7*t2*t1P*k*t3P*t1*t4+t4P*t4*t5*t1P*k*t1*t7
*t3P*(t2*t2)*t3+t4P*t4*t5*t1P*k*t1*t6*t2P*t3*t3*t2+t4P*t4*t5*t1P*k*t1*t6*t2P*t3*t3+t4P
*t4*t5*t1P*k*t1*t7*t3P*t3-t4P*t7*t7*(t2*t2)*t1P*k*t3P*t1-t4P*t6*t6*t1P*k*t2P-2*t4P
*t7*t2*t1P*k*t6*t2P*t1*t3-2*t4P*t7*t2*t1P*k*t6*t2P*t3*t4-t5*t12kP*k*t4P*t7*t4+t6*t2P
*t3*t3*t1P*k*t4P-t4P*t6*t1P*k*t7*t3P-2*t5*t12kP*t2*t4*k*t4P*t6-t6*t6*t2P*t2*t1P*k*t1
*t4P*t4-2*t6*t2P*t3*t1P*k*t4P*t7-2*t6*t6*t2P*t3*t1P*k*t4P-2*t5*t12kP*t2*t4*k*t4P*t7
*t3*t3-t5*t12kP*(t2*t2)*t4*k*t4P*t7*t3*t3+t5*t12kP*k*t4P*t3*t3-t4P*t7*t7*(t2*t2)*t1P*k*t3P
*t1*t3-2*t5*t12kP*k*t4P*t7*t2*t3*t3+t4P*t4*t5*t1P*k*t7*t3P+t4P*t4*t5*t1P*k*t6*t2P-t4P
*t7*t2*t1P*k*t6*t2P*t1+2*t4P*t4*t5*t1P*k*t6*t2P*t3+t4P*t4*t5*t1P*k*t6*t2P*t2+t4P*t4
*t5*t1P*k*t7*t3P*(t2*t2)+t4P*t4*t5*t1P*k*t6*t2P*t3*t3-2*t4P*t7*t2*t1P*k*t6*t2P*t3-t4P
*t7*t2*t1P*k*t6*t2P*t4-t4P*t6*(t2*t2)*t3*t1P*k*t1*t7*t3P*t4+t4P*t4*t5*t1P*k*t7*t3P*t3-2
*t5*t12kP*k*t4P*t7*t3*t4+2*t4P*t4*t5*t1P*k*t7*t3P*t2-t5*t12kP*k*t4P*t7*(t2*t2)*t3*t3+t4P
*t3*t3*t4*t1P*k*t6*t2P*t1-2*t4P*t7*t7*t2*t1P*k*t3P-t4P*t7*t2*t1P*k*t6*t2P+t4P*t4*t1P
*k*t6*t2P*t1+8*t42kP*t2*t3*t7*t1P*t4-t5*t12kP*k*t4P*t6*t3*t3*t4-2*t5*t12kP*k*t4P*t6*t3
*t4-t6*t2P*t1P*k*t1*t4P*t7*t4-t4P*t6*t1P*k*t1*t7*t3P*t4-2*t4P*t7*t7*t2*t1P*k*t3P*t1-t4P
*t7*t7*(t2*t2)*t1P*k*t3P-2*t4P*t7*t7*t2*t1P*k*t3P*t4-t4P*t6*t6*t2*t3*t3*t1P*k*t1*t2P-2
*t4P*t6*t6*t2*t3*t1P*k*t1*t2P*t4-2*t4P*t7*t7*t2*t1P*k*t3P*t1*t3-2*t4P*t7*t7*t2*t1P*k
*t3P*t4*t3-t4P*t7*t7*(t2*t2)*t1P*k*t3P*t3+4*t42kP*(t2*t2)*t3*t7*t1P*t4+2*t42kP*(t2*t2)
*t3*t1P*k-t4P*t4*t1P*t1*t7*t3P*t3+t6*t2P*t2*t1P*k*t4P+2*t4P*t3*t4*t1P*k*t6*t2P+t4P
*t3*t4*t1P*k*t7*t3P-t7*t7*t3P*t3*t1P*k*t4P+2*t6*t2P*t3*t1P*k*t4P*t5-t4P*t6*t1P*k
*t1*t7*t3P-2*t6*t2P*t3*t1P*k*t1*t4P*t7-t4P*t7*t7*t4*t1P*k*t3P-t4P*t7*t7*t3*t4*t1P*k
*t3P-2*t4P*t6*t6*t3*t4*t1P*k*t1*t2P-t4P*t6*t3*t4*t1P*k*t1*t7*t3P-t4P*t6*t6*t3*t3*t4*t1P
*k*t1*t2P+2*t7*t3P*t2*t1P*k*t1*t4P-t6*t6*t2P*t1P*k*t1*t4P*t4+2*t4P*t1P*k*t1*t6*t2P
*t3-t4P*t7*t2*t1P*k*t6*t2P*t1*t3*t3*t4-4*t5*t12kP*k*t4P*t6*t2*t3+t4P*t1P*k*t1*t6*t2P
+t4P*t1P*k*t1*t7*t3P+t4P*t3*t4*t1P*k*t7*t3P*(t2*t2)+2*t4P*t3*t4*t1P*k*t6*t2P*t2-2*t5
*t12kP*k*t4P*t6*(t2*t2)*t3+t4P*t3*t3*t5*t1P*k*t1*t6*t2P+2*t4P*t3*t5*t1P*k*t1*t6*t2P+t4P
*t3*t5*t1P*k*t1*t7*t3P-t6*t2P*t3*t3*t1P*k*t1*t4P*t7*t4+2*t4P*t2*t3*t1P*k*t7*t3P-4*t5
*t1P*t42kP*t7*t4*t1*t2*t3+2*t4P*t4*t5*t1P*k*t1*t6*t2P*t3+t4P*t4*t5*t1P*k*t1*t6*t2P+2
*t5*t1P*(t2*t2)*t42kP*t4*t1*t3+t5*t12kP*k*t4P-t42kP*t3*t3*t6*t2P*k*t7-t42kP*(t1*t1)*t7
*t7*t3P*k*t3+t7*t3P*(t1*t1)*t3*t42kP*t4*t6-4*(t4*t4)*t1*t4P*t7*t3P*t6*t2P+t6*t2P*t2*t4P
*t7*t1P*t4-2*t42kP*(t1*t1)*t6*t2P*k*t2*t5*t3+2*t42kP*t7*t7*(t2*t2)*t1P*k*t3-t42kP*(t1*t1)
*t7*t7*t3P*k*(t2*t2)-t42kP*t6*t6*t1P*t4*t3*t3+2*t6*t2P*t2*t4P*t7*t1P*t4*t3-t4P*(t2*t2)
*t1P*t1*t7*t3P*t3*(t4*t4)-t7*t3P*(t2*t2)*t42kP*t4-2*t5*t1P*t42kP*t7*t4*t3+t42kP*t5*t1P
*k*t6*t3*t3+2*t6*t2P*t2*t4P*t7*t1P*(t4*t4)*t3-t42kP*t3*t3*t1P*t4+t6*t2P*t2*t4P*t7*t1P
*(t4*t4)-2*t42kP*t6*t3*t3*(t2*t2)*t7*t1P*t4-4*t5*t1P*t42kP*t7*t4*t2*t3-2*t5*t1P*t42kP*t7
*t4*t2-2*t42kP*t6*t1P*k+t7*t7*t3P*t42kP*t4+2*t7*t7*t3P*(t1*t1)*t2*t42kP*t4-2*t42kP*(t1
*t1)*t6*t6*t2P*k*t2*t3-2*t42kP*t3*t3*t6*t6*t2P*k*t1+4*t6*t2P*t3*t42kP*t4*t5*t1*t2-2*t42kP
*t7*t7*t3P*k*t2*t3-2*t5*t1P*t42kP*t7*t4*t1*t2-t42kP*t6*t2P*k*t7-4*t42kP*t5*t2P*k*t6*t1
*t3+2*t42kP*t6*t6*(t2*t2)*t3*t1P*k*t1-2*t42kP*t7*t3P*k*t5*t2*t3-t6*t2P*t2*t42kP*t4-(t2*t2)
*(t4*t4)*t4P*t7*t7*t32kP+t6*t2P*t3*t3*t42kP*t4*t7*t2+t6*t2P*t2*t4P*t7*t1P*(t4*t4)*t1+t5
*t12kP*t3*t3*(t2*t2)*t4P*t7*t4-4*t42kP*t7*t7*t3*t1P*t4*t2-2*t42kP*t1*t7*t3P*k*t5*t3+t6*t2P
*t3*t3*t4P*t7*t1P*(t4*t4)*t1+2*t6*t2P*t3*t4P*t7*t1P*(t4*t4)*t1-t5*t1P*t3*t3*t42kP*t7*t4
*t1+t42kP*(t2*t2)*t3*t3*t1P*k*t1-2*t4P*t7*t7*t2*t1P*k*t3P*t3-2*t4P*t6*t6*t2*t3*t1P*k*t1
*t2P+t7*t3P*(t2*t2)*t1P*k*t1*t4P*t4+2*t7*t3P*t2*t1P*k*t1*t4P*t4+t4P*t4*t1P*k*t6*t2P
+t4P*t4*t1P*k*t7*t3P-t4P*t7*t2*t1P*k*t6*t2P*t3*t3+2*t4P*t3*t4*t1P*k*t7*t3P*t1*t2-2
*t4P*t6*t1P*k*t7*t3P*t2-2*t4P*t6*t2*t3*t1P*k*t1*t7*t3P+t6*t2P*t3*t3*t4P*t7*t1P*(t4
*t4)-t4P*t6*t1P*k*t7*t3P*t3-t4P*t6*t1P*k*t7*t3P*t4+t4P*t4*t5*t1P*k*t1*t7*t3P*(t2*t2)
+2*t4P*t4*t5*t1P*k*t1*t6*t2P*t3*t2-2*t7*t3P*t2*t1P*k*t1*t4P*t6*t4-t5*t12kP*(t2*t2)*t4*k
*t4P*t6+4*t5*t12kP*t2*t4*k*t4P*t3+t4P*t5*t1P*k*t6*t2P+t4P*t5*t1P*k*t7*t3P+t4P*t4
*t1P*k*t7*t3P*t1+2*t4P*t4*t1P*k*t7*t3P*t2+t4P*t5*t1P*k*t7*t3P*t1+2*t4P*t5*t1P*k*t7
*t3P*t2+2*t4P*t3*t5*t1P*k*t1*t6*t2P*t2+t4P*t3*t5*t1P*k*t1*t7*t3P*(t2*t2)+t4P*t3*t4*t1P
*k*t7*t3P*t1+2*t4P*t3*t4*t1P*k*t7*t3P*t2-2*t5*t1P*t3*t3*t42kP*t7*t4*t1*t2+t4P*t3*t3*t5
*t1P*k*t1*t6*t2P*t2+t6*t2P*t2*t1P*k*t4P*t5+t4P*t2*t3*t3*t5*t1P*k*t6*t2P*t4+t4P*(t2
*t2)*t3*t5*t1P*k*t7*t3P*t4-2*t4P*t6*t2*t3*t1P*k*t1*t7*t3P*t4-t4P*t6*(t2*t2)*t3*t1P*k*t1
*t7*t3P+t4P*(t2*t2)*t3*t5*t1P*k*t7*t3P+2*t4P*t2*t3*t5*t1P*k*t7*t3P*t4+t4P*t4*t1P*k
*t7*t3P*(t2*t2)+2*t42kP*t3*t5*t1P*k*t1*t6+t6*t6*t2P*(t1*t1)*t42kP*t4-t42kP*t7*t7*t3P*k
*(t2*t2)*t3-2*t42kP*t3*t6*t6*t2P*k*(t1*t1)+t7*t3P*(t2*t2)*(t4*t4)*t3*t4P*t6*t1P+t6*t6*t2P
*t2*(t4*t4)*t4P*t1P+2*t42kP*t6*t6*t2*t3*t3*t1P*k*t1+t42kP*t6*t6*t1P*k*t3*t3-4*t42kP*t7
*t1*t2P*k*t6*t3-2*t5*t1P*t3*t3*t42kP*t7*t4*t2-t7*t3P*t4P*t1P*t4-t7*t3P*t4P*t1P*(t4
*t4)-4*t42kP*t6*t3*(t2*t2)*t7*t1P*t4*t1-2*t42kP*t1P*k*t1*t7+t5*t12kP*t4P*t6*t4+t7*t3P*(t2
*t2)*t3*t42kP*t4*t5+2*t5*t12kP*t2*t4P*t6*t4*t3*t3-2*t42kP*t1*t7*t3P*k*t6*t3+2*t7*t3P*t2*t3
*t42kP*t4*t5+t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4*t5+t5*t12kP*(t2*t2)*t4P*t6*t4*t3*t3+2*t42kP
*t7*t7*t2*t1P*k*t3*t3+2*t6*t2P*t3*t3*t42kP*t4*t7*t1-t7*t7*t32kP*(t1*t1)*(t2*t2)*t4P*t4+t42kP
*t7*t7*t1P*k*t3*t3-t42kP*t7*t4*t5*t1P*(t2*t2)*t3*t3*t1-2*t42kP*t1*t7*t7*t3P*k*(t2*t2)*t3-t7
*t3P*t42kP*t4+2*t7*t7*t3P*t4P*t1P*t4*t2+2*t7*t3P*t1P*t1*t4P*t6*t2*t3*(t4*t4)-2*t42kP
*t3*t3*t2*t1P*t4+t5*t12kP*(t2*t2)*t4P*t6*(t4*t4)*t3*t3-4*t42kP*t2*t1P*t1*t4*t3-2*t42kP*(t2
*t2)*t1P*t1*t4*t3-t42kP*t6*t6*t1P*t4*(t2*t2)+t7*t3P*(t2*t2)*t42kP*t4*t6+t5*t12kP*t3*t3*(t4
*t4)*t4P*t6-2*t5*t12kP*t3*t3*(t4*t4)*t2*t4P+4*t42kP*t7*t1P*t4*t2-t42kP*t6*(t2*t2)*t4*t5*t1P-t6
*t2P*(t1*t1)*t42kP*t4*t2+t5*t12kP*(t4*t4)*t4P*t6-t6*t2P*t3*t3*(t4*t4)*t2*t4P*t1P+4*t42kP
*t7*t1P*t4*t1*t3+4*t6*t2P*t3*t42kP*t4*t7*t1+2*t7*t3P*t2*t3*t4P*t6*t1P*t4-t5*t1P*t3*t3*t42kP
*t7*t4+2*t6*t2P*t3*t3*t42kP*t4*t5*t1+2*t6*t6*t2P*t3*t3*t42kP*t4*t1+t7*t3P*t3*t42kP*t4*t6
+t42kP*t1P*k+2*t7*t3P*(t1*t1)*t4*t2P*k*t4P*t6+4*t7*t3P*t1*t4*t2P*k*t4P*t6*t3+t6*t6*t22kP
*(t1*t1)*k*t4P-t42kP*t6*t1*t4*t5*t1P+2*t7*t3P*t3*t2P*k*t4P*t6*(t1*t1)+4*t7*t3P*t3*t2P
*k*t4P*t6*t1+4*t6*t6*t22kP*t1*t3*k*t4P*t4+2*t6*t6*t22kP*t3*k*t4P+4*t6*t6*t22kP*t1*t3*k*t4P
+2*t6*t6*t22kP*(t1*t1)*t3*k*t4P+2*t6*t6*t22kP*t1*t3*t3*k*t4P+4*t7*t3P*t6*t2P*k*t2*t4P*t1
*t4-t6*t2P*t5*t1P*t4P*t1*t4+2*t42kP*t1*t7*t3P*k*(t2*t2)+2*t6*t2P*t3*t3*t42kP*t4*t7*t1*t2
+t4P*t7*t4*t1P*t1*t6*t2P+t7*t3P*(t2*t2)*t3*t42kP*t4*t5*(t1*t1)-(t4*t4)*(t1*t1)*t4P*t7*t7
*t32kP+t6*t2P*t42kP*t4*t7-t42kP*t7*t7*t3P*k*t3-t42kP*(t1*t1)*t6*t6*t2P*k*t2+t7*t3P*t3
*t42kP*t4*t5+2*t6*t6*t2P*t3*t42kP*t4*t2-2*t42kP*t6*t6*(t2*t2)*t1P*t1*t4*t3+2*t6*t6*t2P*t3
*t3*t42kP*t4*t1*t2-(t4*t4)*(t1*t1)*t4P*t6*t6*t22kP*t3*t3+4*t42kP*t1*t3*t2P*k*t6-t7*t3P*(t2
*t2)*t3*t42kP*t4*(t1*t1)+2*t5*t12kP*t3*(t2*t2)*t4P*t7*t4+2*t6*t2P*t1*t42kP*t4*t7*t2-2*t5*t1P
*t4*t7*t3P*t4P*t3*t2-t6*t6*t22kP*t3*t3*t4P*t4*(t1*t1)+2*t6*t6*t2P*t1*t42kP*t4*t2+2*t6*t2P
*t3*t3*t42kP*t4*t5*t1*t2+2*t6*t6*t2P*t3*t42kP*t4*(t1*t1)+t7*t7*t3P*t1P*t1*t4P*(t2*t2)*t4-t42kP
*t7*t3P*k*t5*(t2*t2)*t3-2*t42kP*t2*t1P*t1*t4-t42kP*(t2*t2)*t1P*t1*t4-2*t42kP*(t1*t1)*t7*t3P
*k*t5*t2*t3-2*t42kP*t7*t7*t3P*k*t2-t42kP*t6*t6*t2P*k*t2*t3*t3+t7*t3P*t1P*t1*t4P*t6*(t2
*t2)*(t4*t4)+2*t6*t2P*t1*t42kP*t4*t5-t5*t1P*t1*t3*t3*t4P*(t4*t4)*t6*t2P*t2+2*t7*t3P*t2*t3
*t42kP*t4*t6+2*t7*t7*t3P*t1*t3*t42kP*t4+t7*t3P*(t2*t2)*t3*t42kP*t4*t6*(t1*t1)-8*t42kP*t6
*t2*t7*t1P*t4*t3-2*t42kP*t3*t1P*t4-4*t5*t12kP*t2*(t4*t4)*t4P*t3-t6*t2P*t4P*t1P*t4-t6
*t2P*t4P*t1P*(t4*t4)-4*t42kP*t6*t2*t7*t1P*t4-2*t5*t12kP*t2*(t4*t4)*t4P+t7*t7*t3P*t4P
*t1P*t4-t42kP*t7*t7*t3*t3*t1P*t4+2*t42kP*t7*t7*t1P*k*t3-t42kP*t3*t3*t5*t1P*k*t1*(t2*t2)
+2*t42kP*t7*t3*t3*t5*t1P*k*t1*t2-2*t42kP*t6*t1P*k*(t2*t2)-2*t42kP*t7*(t2*t2)*t1P*k*t1+4*t7
*t3P*t1*t2*t42kP*t4*t5-t7*t3P*(t1*t1)*t3*t42kP*t4+t6*t6*t2P*t4P*t1P*t4+t42kP*t2P*k
*t6+t42kP*t1P*k*t1*t3*t3-8*t42kP*t6*t1P*k*t2*t3+2*t42kP*t7*t7*t2*t1P*k+t42kP*t6*t2P*k
*t2*t3*t3-4*t42kP*t6*t2*t4*t5*t1P*t3*t1-2*t42kP*t1P*k*t1*t6-2*t6*t2P*t4*t3P*t3*t4P*t7-t42kP
*(t1*t1)*t7*t3P*k*t5*(t2*t2)+2*t7*t3P*(t1*t1)*t2*t42kP*t4*t5+t42kP*t7*t7*(t2*t2)*t1P*k*t3*t3
+t5*t12kP*t4P*t7*t4-2*t42kP*t7*t7*t2*t1P*t4-t42kP*t7*t7*(t2*t2)*t1P*t4+t6*t2P*t3*t3*t42kP
*t4*t7*t2*(t1*t1)+t6*t6*t2P*t2*t3*t3*t1P*t1*t4P*(t4*t4)-t42kP*(t1*t1)*t6*t2P*k*t2*t5*t3*t3
+2*t42kP*(t2*t2)*t3*t5*t1P*k*t6+t5*t12kP*(t2*t2)*(t4*t4)*t4P*t6-2*t42kP*t7*(t2*t2)*t1P*k
*t1*t3*t3+t6*t6*t2P*t2*t4P*t1P*t4*t3*t3-4*t42kP*t3*t6*t6*t2P*k*t1+t7*t3P*t4P*t6*t1P*t4-(t4
*t4)*t4P*t6*t6*t22kP+t7*t7*t3P*t3*(t2*t2)*t4P*t1P*t4-2*t42kP*t1*t7*t3P*k*t5+2*t7*t3P
*t4P*t6*t1P*t4*t2+t7*t3P*t4P*t6*t1P*(t4*t4)-t6*t2P*t3*t3*t4P*t4*t5*t1P-4*t42kP*t2*t3
*t5*t1P*k+2*t6*t2P*t3*t42kP*t4*t7*(t1*t1)+t6*t2P*t3*t3*t42kP*t4*t7*(t1*t1)+2*t7*t3P*t1*(t2
*t2)*t42kP*t4*t5-4*t42kP*t6*t1P*k*(t2*t2)*t3-2*t42kP*t3*t3*t1P*k*t7-4*t42kP*t1*t7*t7*t3P
*k*t2+2*t7*t3P*t4P*t6*t1P*(t4*t4)*t2+t7*t3P*t1P*t1*t4P*t6*(t2*t2)*t4-2*t4P*t2*t1P*t1
*t6*t2P*t3*t4+t4P*t6*t6*t4*t1P*t1*t2P-t4P*(t2*t2)*t1P*t1*t7*t3P*t4+t6*t6*t2P*t42kP
*t4-2*t42kP*t7*t1*t2P*k*t6+8*t42kP*t7*t2*t1P*k*t6*t3-2*t42kP*t1*t7*t7*t3P*k-2*t7*t3P*t1
*t42kP*t4+4*t42kP*t6*t1P*k*t7*t3-t7*t3P*(t1*t1)*t42kP*t4-4*t7*t3P*t1*t2*t42kP*t4+2*t42kP
*t2*t3*t3*t1P*k-t42kP*t1P*k*t1*t5+4*t6*t2P*t3*t42kP*t4*t5*t1+2*t42kP*t7*t2*t1P*k*t5+t42kP
*(t1*t1)*t6*t2P*k*t2-2*t42kP*t6*(t2*t2)*t3*t3*t1P*k*t1+2*t42kP*t7*t3*t5*t1P*k*t1-4*t42kP
*t6*t2*t3*t3*t1P*k*t1+2*t42kP*t1*t6*t2P*k*t2-4*t42kP*t1P*k*t1*t6*t3-2*t42kP*t5*t2P*k*t6
*(t1*t1)*t3+2*t42kP*t6*t6*t1P*k*(t2*t2)*t3-2*t42kP*t6*t6*t2P*k*t2*t3+t6*t2P*(t1*t1)*t42kP
*t4*t5*t2+t42kP*t7*t7*(t2*t2)*t1P*k*t1+t6*t2P*t2*t42kP*t4*t7+2*t6*t6*t2P*t3*t42kP*t4+t6*t2P
*(t1*t1)*t42kP*t4*t7*t2-t7*t3P*t4P*t5*t1P*t4+4*t42kP*t7*t1P*t4*t3+2*t4P*t3*t4*t6*t2P
*k*t7*t3P+2*t7*t3P*(t1*t1)*t2P*k*t4P*t6-t7*t3P*(t2*t2)*t3*t4*t1P*t1*t4P+2*t42kP*t7*t1P
*t4*t1+4*t42kP*t7*t1P*t4*t1*t2+t42kP*t6*t2P*k*t2-t42kP*(t2*t2)*t3*t3*t5*t1P*k+2*t7*t3P
*t1*t3*t42kP*t4*t5-4*t42kP*t1P*k*t1*t7*t3+2*t7*t3P*t1P*t1*t4P*t6*t2*t4-t4P*t2*t1P*t1
*t6*t2P*t3*t3*t4-t42kP*t7*t7*(t2*t2)*t1P*t1*t4+t42kP*t6*t6*t1P*k*t1*(t2*t2)+t42kP*t7*t7*(t2
*t2)*t1P*k*t1*t3*t3+t4P*t4*t5*t1P*k*t1*t7*t3P+t4P*(t2*t2)*t3*t1P*k*t7*t3P+t4P*t3*t3*t4
*t1P*k*t6*t2P*t1*t2-2*t5*t12kP*t2*t4*k*t4P*t6*t3*t3-t5*t12kP*(t2*t2)*t4*k*t4P*t6*t3*t3-t6
*t6*t2P*t2*t3*t3*t1P*k*t4P*t4+t4P*t4*t1P*k*t6*t2P*t2-t6*t2P*t4*t1P*k*t4P*t7-t4P*t7
*t7*t1P*k*t3P+2*t4P*t2*t3*t1P*k*t1*t6*t2P-2*t4P*t7*t7*t2*t1P*k*t3P*t1*t4*t3-t42kP*t1P
*t1*t3*t3*t4+t4P*t1P*k*t1*t7*t3P*t3+t4P*t1P*k*t1*t6*t2P*t3*t3-t5*t12kP*(t2*t2)*t4*k*t4P
*t7-4*t5*t12kP*t2*t4*k*t4P*t6*t3-4*t5*t12kP*t2*t4*k*t4P*t7*t3+2*t5*t12kP*t2*t4*k*t4P*t3*t3
+2*t5*t12kP*t2*t4*k*t4P-2*t5*t12kP*(t2*t2)*t4*k*t4P*t6*t3-2*t5*t12kP*(t2*t2)*t4*k*t4P*t7
*t3-2*t6*t6*t2P*t3*t1P*k*t1*t4P-2*t4P*t6*t2*t3*t4*t1P*k*t7*t3P-2*t5*t12kP*k*t4P*t6*t2-2
*t5*t12kP*t2*t4*k*t4P*t7-2*t6*t6*t2P*t2*t3*t1P*k*t4P*t4-2*t6*t6*t2P*t4*t1P*k*t4P*t3-2
*t6*t2P*t4*t1P*k*t4P*t7*t3-2*t6*t6*t2P*t2*t3*t1P*k*t4P-t6*t6*t2P*t3*t3*t1P*k*t4P+t6
*t2P*t3*t3*t1P*k*t4P*t5-t6*t2P*t3*t3*t1P*k*t4P*t7+t5*t12kP*k*t4P*(t2*t2)-2*t6*t2P*t3
*t1P*k*t1*t4P*t7*t4-t4P*t7*t7*t1P*k*t1*t3P+t4P*t5*t1P*k*t7*t3P*(t2*t2)-t5*t12kP*t3
*t3*(t2*t2)*t4P*t4+2*t6*t2P*t3*t1P*k*t4P+t7*t3P*(t2*t2)*t1P*k*t1*t4P*t3+t4P*t1P*k*t1
*t6*t2P*t2+2*t4P*t3*t4*t1P*k*t6*t2P*t1+t4P*t3*t3*t4*t1P*k*t6*t2P-t6*t2P*t4*t1P*k*t4P
*t7*t3*t3-t6*t6*t2P*t2*t1P*k*t4P-8*t42kP*t6*t3*t1P*t1*t7*t2*t4-2*t5*t12kP*t3*(t2*t2)*t4P
*t4+4*t5*t12kP*k*t4P*t2*t3-t6*t2P*t1P*k*t4P*t7+2*t5*t12kP*(t2*t2)*(t4*t4)*t4P*t6*t3+t4P
*t3*t1P*k*t7*t3P+t7*t3P*(t2*t2)*t1P*k*t1*t4P-t6*t2P*t1P*k*t1*t4P*t7+2*t5*t12kP*k*t4P
*t2+t5*t12kP*k*t4P*t4+2*t5*t12kP*k*t4P*t3-t5*t12kP*k*t4P*t6+t4P*t2*t3*t3*t5*t1P*k*t6
*t2P+2*t4P*t2*t3*t5*t1P*k*t6*t2P*t4+2*t4P*t2*t3*t5*t1P*k*t6*t2P+2*t4P*t2*t3*t5*t1P
*k*t7*t3P-t4P*t6*t1P*k*t7*t3P*(t2*t2)-2*t5*t12kP*k*t4P*t6*t3-2*t5*t12kP*k*t4P*t7*t2-2
*t4P*t6*t1P*k*t7*t3P*t2*t3-t4P*t6*t1P*k*t7*t3P*t4*t3-t4P*t6*t1P*k*t7*t3P*(t2*t2)*t4-t5
*t12kP*k*t4P*t6*(t2*t2)+2*t5*t12kP*k*t4P*(t2*t2)*t3-t5*t12kP*k*t4P*t7*(t2*t2)-t4P*t6*t1P
*k*t7*t3P*(t2*t2)*t3+2*t5*t12kP*k*t4P*t2*t3*t3+2*t4P*t4*t5*t1P*k*t1*t7*t3P*t2+t5*t12kP
*k*t4P*(t2*t2)*t3*t3-t5*t12kP*k*t4P*t6*t3*t3-t5*t12kP*k*t4P*t7*t3*t3+2*t4P*t3*t5*t1P*k
*t1*t7*t3P*t2+2*t5*t12kP*k*t4P*t3*t4-2*t5*t12kP*k*t4P*t7*t3+t4P*(t2*t2)*t5*t1P*k*t1*t7
*t3P-2*t4P*t6*t1P*k*t7*t3P*t2*t4-t6*t6*t2P*t4*t1P*k*t4P-t5*t12kP*k*t4P*t7-t4P*t6
*(t2*t2)*t3*t4*t1P*k*t7*t3P+2*t5*t12kP*t2*t4P*t6*t4-t7*t7*t3P*t4*t1P*k*t1*t4P*t3-2*t5*t12kP
*k*t4P*t7*(t2*t2)*t3-2*t7*t3P*t2*t1P*k*t1*t4P*t6+t42kP*t6*t6*t1P*k*(t2*t2)*t3*t3+t6*t6*t2P
*t2*t4*t1P*t1*t4P-4*t42kP*t3*t5*t1P*k*t1*t2+2*t42kP*(t1*t1)*t6*t2P*k*t2*t3-(t4*t4)*t4P
*t6*t6*t22kP*t3*t3+2*t42kP*t7*(t2*t2)*t1P*k*t6*t1*t3*t3+2*t7*t3P*(t2*t2)*t3*t42kP*t4*t5*t1
+4*t42kP*t6*t6*t1P*k*t2*t3-t42kP*t5*t2P*k*t6*(t1*t1)+4*t6*t2P*t3*t42kP*t4*t7*t1*t2-t42kP
*t5*t2P*k*t6*(t1*t1)*t3*t3+2*t6*t2P*t3*t42kP*t4*t5*t2*(t1*t1)-t42kP*t6*t6*t2P*k-4*t42kP*t7
*t2*t1P*k*t3*t3-4*t42kP*t6*t1*t2*t7*t3P*k*t3-4*t42kP*t1*t7*t3P*k*t5*t2-2*t42kP*t1*t7*t3P
*k*t5*(t2*t2)-4*t42kP*t7*t2*t1P*k*t1*t3*t3+2*t42kP*t1*t7*t3P*k*t3+t42kP*t5*t1P*k*t7+2*t6
*t2P*t3*t42kP*t4*t7-t42kP*t6*t6*t2P*k*(t1*t1)-t42kP*t5*t1P*k*(t2*t2)-t42kP*t6*t2P*k*t2
*t7*t3*t3+t42kP*t5*t1P*k*t7*t1-2*t6*t2P*t3*t3*t42kP*t4*t1-t4P*t2*t1P*t1*t6*t2P*t4+t7*t7
*t3P*t3*t4*t1P*t1*t4P-t6*t2P*t2*t4*t1P*t1*t4P*t5+4*t42kP*t6*t6*t2*t3*t1P*k*t1-8*t42kP
*t7*t2*t1P*k*t1*t3+t42kP*(t2*t2)*t5*t1P*k*t1*t7+2*t7*t3P*t1*(t2*t2)*t42kP*t4*t6+t42kP*(t1
*t1)*t7*t3P*k-4*t42kP*t1P*k*t1*t6*t2+2*t42kP*t6*t1P*k*t1*t7-t6*t6*t22kP*t4P*t4-2*t42kP
*t7*t7*t2*t1P*t1*t4-2*t7*t3P*t2*t3*t42kP*t4-t42kP*t5*t2P*k*t6-2*t7*t3P*t4P*t5*t1P*t4
*t2-t7*t3P*(t2*t2)*t3*t42kP*t4+t42kP*t7*t3P*k+2*t42kP*t6*t6*t3*t1P*k*t1-4*t42kP*t7*(t2
*t2)*t1P*k*t3-2*t42kP*t7*t3P*k*t6*t2*t3-2*t42kP*t1*t7*t3P*k*t6-2*t42kP*t2*t5*t1P*k*t1-t7
*t7*t32kP*(t2*t2)*t4P*t4+2*t42kP*(t1*t1)*t3*t2P*k*t6-t42kP*(t1*t1)*t6*t6*t2P*k*t2*t3*t3-2
*t4P*t2*t1P*t1*t7*t3P*t4-t42kP*t3*t3*t6*t6*t2P*k*(t1*t1)+t7*t7*t3P*(t2*t2)*t3*t4*t1P*t1
*t4P+2*t6*t6*t2P*t3*t4*t1P*t1*t4P-2*t42kP*t7*t4*t5*t1P*(t2*t2)*t3-t6*t2P*t4P*t2*t5*t1P
*t4+2*t5*t12kP*(t2*t2)*t4*k*t4P*t3+t5*t12kP*(t2*t2)*t4*k*t4P+t5*t12kP*(t2*t2)*t4*k*t4P*t3
*t3+t6*t2P*t2*t3*t3*t1P*k*t4P+t5*t12kP*(t4*t4)*t4P*t7+t4P*t4*t1P*k*t6*t2P*t1*t2-t7*t7
*t3P*t4*t1P*k*t1*t4P-2*t5*t12kP*k*t4P*t6*t2*t3*t3-t4P*t7*t7*(t2*t2)*t1P*k*t3P*t4+t4P
*t3*t4*t1P*k*t7*t3P*t1*(t2*t2)+t5*t12kP*k*t4P*t3*t3*t4+t4P*t2*t5*t1P*k*t1*t6*t2P+2*t4P
*t2*t5*t1P*k*t1*t7*t3P+2*t6*t2P*t2*t3*t1P*k*t4P-t4P*t7*t7*(t2*t2)*t1P*k*t3P*t1*t4-2*t4P
*t7*t2*t1P*k*t6*t2P*t1*t3*t4+t4P*t2*t3*t3*t1P*k*t1*t6*t2P-t7*t3P*(t2*t2)*t1P*k*t1*t4P
*t6+2*t7*t3P*t2*t1P*k*t1*t4P*t3+t4P*t1P*k*t7*t3P+2*t42kP*t5*t1P*k*t6*t3-2*t42kP*t5
*t2P*k*t6*t3+4*t5*t1P*t2*t42kP*t4*t1*t3+4*t42kP*t3*t6*t1P*t4*t1*(t2*t2)+2*t42kP*t3*t3*t6
*t1P*t4*t1*(t2*t2)+8*t42kP*t2*t3*t7*t1P*t4*t1+4*t42kP*(t2*t2)*t3*t7*t1P*t4*t1-t7*t3P*(t2
*t2)*t3*t4*t1P*t1*t4P*t5+2*t42kP*(t2*t2)*t3*t3*t7*t1P*t4+t42kP*t5*t1P*k*t6*t1-2*t42kP*t1
*t7*t3P*k*t5*(t2*t2)*t3-t5*t12kP*t4P*t4-4*t42kP*t7*t7*t3*t1P*t1*t4*t2+t7*t7*t32kP*(t1*t1)
*(t2*t2)*k*t4P*t4-4*t2*(t4*t4)*t4P*t7*t7*t32kP*t1-2*t42kP*t6*t3*t3*(t2*t2)*t7*t1P*t4*t1-t5
*t1P*t42kP*t7*t4*t1-t42kP*t6*t6*t1P*t4*t1-4*t42kP*t7*t2*t1P*k+t42kP*t7*t3P*k*t3+t42kP
*t6*t6*t3*t3*t1P*k*t1-4*t42kP*t1*t7*t3P*k*t5*t2*t3+2*t42kP*t2*t3*t3*t5*t1P*k*t7-t42kP*t5
*t2P*k*t6*t3*t3-4*t42kP*t6*t1P*k*t2*t3*t3+2*t5*t12kP*t2*t4P*t7*t4+t5*t12kP*(t2*t2)*t4P
*t7*t4-2*t42kP*t6*(t1*t1)*t2*t7*t3P*k*t3+4*t42kP*t7*t2*t1P*k*t6+t42kP*t6*t6*(t2*t2)*t3*t3*t1P
*k*t1-4*t42kP*t1*t6*t6*t2P*k*t2*t3+2*t5*t12kP*t2*t4P*t7*(t4*t4)-2*t7*t3P*(t2*t2)*t3*t42kP
*t4*t1+2*t42kP*t7*t3P*k*t2*t3+2*t5*t12kP*(t2*t2)*(t4*t4)*t3*t4P*t7+4*t42kP*t2*t6*t1P*t4*t1-2
*t6*t2P*t4P*t4*t7*t3P+2*t5*t12kP*t3*t3*(t4*t4)*t4P*t6*t2-t6*t2P*t4P*t4*t5*t1P+2*t7*t3P
*t2*t42kP*t4*t6+t42kP*t1*(t2*t2)*t4*t5*t1P*t3*t3+4*t7*t3P*t2*t3*t42kP*t4*t6*t1+t5*t1P*t42kP
*t4*t1+2*t6*t2P*t1*t42kP*t4*t7-2*t6*t2P*t3*t4P*t4*t5*t1P-4*(t4*t4)*t1*t4P*t6*t6*t22kP*t3
+2*t7*t7*t3P*t4P*t1P*(t4*t4)*t2+2*t6*t2P*t3*t4P*t7*t1P*(t4*t4)-t42kP*(t2*t2)*t1P*t4+4
*t42kP*t3*t3*t7*t1P*t4*t1*t2-t5*t1P*t3*t3*t42kP*t6*t4-t42kP*t7*t7*t3*t3*t1P*t1*t4-2*t42kP
*t7*t7*t3*t3*t1P*t1*t4*t2+t6*t2P*t3*t3*t4P*t7*t1P*t4-t7*t3P*(t2*t2)*(t4*t4)*t3*t4P*t1P
+2*t42kP*t6*t1P*t4-2*t42kP*t7*t7*(t2*t2)*t1P*t1*t4*t3+t4P*t7*t1P*t1*t6*t2P*(t4*t4)+2*t42kP
*t3*t3*t7*t1P*t4*t1+t7*t7*t3P*(t2*t2)*t4P*t1P*t4-2*t5*t12kP*t3*t4P*t4-2*t5*t12kP*t3*t3
*t4P*t4*t2-2*t5*t12kP*t3*t4P*(t4*t4)-4*t5*t12kP*t3*t4P*t4*t2-t5*t12kP*t3*t3*t4P*t4-t5*t12kP
*t3*t3*t4P*(t4*t4)+2*t6*t6*t2P*t2*(t4*t4)*t4P*t1P*t3-2*t42kP*t2*t1P*t4-4*t6*t2P*t1*t4P
*t4*t7*t3P-t5*t1P*t42kP*t7*t4+t6*t6*t2P*t3*t3*(t4*t4)*t2*t4P*t1P+t7*t7*t3P*t3*(t4*t4)*t4P
*t1P-2*t6*t2P*t3*t42kP*t4*(t1*t1)*t2+4*t42kP*t7*t7*t2*t1P*k*t1*t3+t42kP*(t1*t1)*t7*t3P
*k*(t2*t2)*t3+2*t42kP*t6*t1P*k*t7*t3*t3+2*t6*t2P*t3*t4*t1P*t1*t4P*t7+t6*t2P*t3*t3*t2*t4P
*t7*t1P*t4-t6*t2P*t3*t3*t5*t1P*t4P*t1*t4+2*t7*t7*t3P*t2*t3*t4*t1P*t1*t4P-t7*t3P*(t2*t2)
*t5*t1P*t4P*t1*t4+2*t42kP*t2P*k*t6*t1+4*t42kP*t7*t7*t2*t1P*k*t3+4*t42kP*t3*t6*t1P*t4
+t6*t2P*t42kP*t4*t5-t42kP*t6*t6*t1P*t4*t3*t3*t1+2*t42kP*(t2*t2)*t6*t1P*t4*t1-2*t42kP*t7
*(t1*t1)*t2P*k*t6*t3+t7*t3P*t3*(t4*t4)*t1P*t1*t4P*t6+2*t42kP*t1*t7*t3P*k-t42kP*t7*t3P
*k*t5*t3-4*t42kP*t6*t3*t7*t1P*t4-2*t42kP*t3*t3*t5*t1P*k*t1*t2-2*t42kP*t6*t6*t2P*k*t1+4*t6
*t6*t2P*t3*t42kP*t4*t1*t2-t42kP*t6*(t1*t1)*(t2*t2)*t7*t3P*k*t3-2*t42kP*t1P*k*t1*t7*t3*t3
+2*t42kP*t1*t3*t3*t2P*k*t6-t42kP*t7*t4*t5*t1P*(t2*t2)+2*t42kP*t6*t2P*k*t2*t3+2*t42kP*t6
*t6*t1P*k*t2+t42kP*t7*t3P*k*(t2*t2)+2*t7*t7*t3P*t2*t3*t42kP*t4*(t1*t1)-t42kP*(t1*t1)*t7*t7
*t3P*k+2*t42kP*t2*t5*t1P*k*t1*t7+2*t42kP*t1P*k*t1*t3+t7*t7*t3P*(t2*t2)*t42kP*t4-2*t42kP
*t7*t1P*k-2*t42kP*t6*t2P*k*t2*t5*t3-4*t42kP*t1*t7*t3P*k*t6*t2-2*t42kP*t7*t3P*k*t5*t2-4
*t42kP*t6*t1P*k*t3-2*t6*t2P*t1*t42kP*t4*t2+t7*t3P*(t2*t2)*t4P*t6*t1P*t4-2*t42kP*t7*t7
*t3*t1P*t1*t4-t42kP*t7*t7*t1P*t1*t4-2*t5*t1P*t3*t42kP*t6*t4*t1+t7*t7*t3P*(t2*t2)*t4P*t1P
*(t4*t4)+t6*t6*t2P*t2*t4P*t1P*t4-2*t42kP*t6*t3*t3*t7*t1P*t4+2*t7*t7*t3P*(t2*t2)*t3*t42kP
*t4*t1-2*t7*t3P*t3*t4P*(t4*t4)*t5*t1P*t2-t7*t3P*t3*t4P*(t4*t4)*t5*t1P-2*t7*t3P*t3*t4P
*(t4*t4)*t6*t2P-4*t6*t2P*t1*t2*t3*t4P*(t4*t4)*t7*t3P-t42kP*t3*t3*(t2*t2)*t1P*t4+2*t6*t6*t2P
*t2*t4P*t1P*t4*t3+4*t42kP*t2*t6*t1P*t4+2*t5*t1P*t3*t42kP*t4-2*t7*t3P*t3*t4P*(t4*t4)*t6
*t2P*t2-t7*t3P*t3*t4P*(t4*t4)*t5*t1P*(t2*t2)+t7*t7*t3P*t1P*t1*t4P*(t2*t2)*(t4*t4)+t5*t1P
*t3*t3*t42kP*t4*t1+2*t5*t1P*t3*t42kP*t4*t1+t5*t1P*t3*t3*t42kP*t4+2*t5*t1P*t3*t3*t42kP*t4
*t2-2*t2*(t4*t4)*t4P*t7*t3P*t6*t2P*(t1*t1)-t7*t7*t32kP*(t1*t1)*t4P*t4-t42kP*t7*t7*t3*t3*(t2
*t2)*t1P*t4*t1-2*t42kP*t7*t7*t3*(t2*t2)*t1P*t4+t4P*t6*t6*(t4*t4)*t1P*t1*t2P-t4P*(t4*t4)
*t1P*t1*t6*t2P+t7*t7*t3P*t3*(t4*t4)*t1P*t1*t4P-t42kP*t7*t7*t3*t3*(t2*t2)*t1P*t4+4*t42kP
*t2*t3*t1P*k*t1+t42kP*t7*t7*t1P*k*t1-2*t42kP*(t1*t1)*t7*t7*t3P*k*t2*t3-2*t42kP*t6*t1*(t2
*t2)*t7*t3P*k*t3-t6*t2P*t42kP*t4+4*t42kP*t6*t3*t1P*k*t1*t7-t42kP*t7*t3P*k*t5-2*t42kP
*t5*t2P*k*t6*t1*t3*t3-2*t42kP*t3*t6*t2P*k*t7+t42kP*(t1*t1)*t6*t2P*k*t2*t3*t3-t42kP*t5*t1P
*k*t3*t3+2*t7*t3P*t1*t42kP*t4*t6-2*t7*t3P*t2*(t4*t4)*t4P*t1P-2*t6*t2P*(t1*t1)*t2*t3*t4P
*(t4*t4)*t7*t3P+t7*t7*t3P*t1P*t1*t4P*(t4*t4)-2*t42kP*t6*t6*t1P*t4*(t2*t2)*t3-t5*t1P*t2
*t4P*(t4*t4)*t6*t2P-2*t5*t1P*t2*t4P*(t4*t4)*t7*t3P+4*t7*t3P*t2*t3*t42kP*t4*t5*t1-2*t7*t7
*t32kP*t1*t4P*t4-t6*t2P*t2*(t4*t4)*t4P*t1P-4*t7*t3P*t3*t4P*(t4*t4)*t6*t2P*t1-4*t42kP
*t6*t2*t4*t5*t1P*t3-t6*t2P*t2*(t4*t4)*t4P*t1P*t1+2*t7*t7*t3P*t1P*t1*t4P*(t4*t4)*t2+2*t7
*t3P*(t1*t1)*t2*t42kP*t4*t6-2*t6*t2P*t2*(t4*t4)*t4P*t1P*t1*t3-(t4*t4)*t4P*t7*t7*t32kP-2
*t42kP*t6*t6*t1P*t4*t2*t3*t3-t5*t1P*t4P*(t4*t4)*t6*t2P*t1-2*t5*t1P*t4P*(t4*t4)*t6*t2P
*t3-t5*t1P*t4P*(t4*t4)*t6*t2P-t5*t1P*t4P*(t4*t4)*t7*t3P-t5*t1P*t4P*(t4*t4)*t7*t3P*t1-t5
*t1P*t4P*(t4*t4)*t6*t2P*t3*t3+2*t6*t2P*t2*t3*t1P*t1*t4P*t7*(t4*t4)-t7*t3P*(t2*t2)*t4P
*t5*t1P*t4-t42kP*t6*t6*t1P*t4*(t2*t2)*t3*t3-t7*t3P*(t2*t2)*(t4*t4)*t4P*t1P*t1-2*t42kP*t6
*t6*t1P*t4*t2-t5*t1P*t3*t3*t42kP*t6*t4*t1-t5*t1P*(t2*t2)*t4P*(t4*t4)*t7*t3P*t1-2*t6*t6*t22kP
*t3*t4P*t4-t7*t3P*(t2*t2)*(t4*t4)*t4P*t1P-2*t7*t3P*t2*(t4*t4)*t4P*t1P*t1-4*t42kP*t3*t1P
*t4*t2-2*t42kP*t6*(t2*t2)*t4*t5*t1P*t3*t1-2*t5*t1P*t1*t3*t4P*(t4*t4)*t7*t3P*t2-2*t6*t2P*t2
*(t4*t4)*t4P*t1P*t3+t5*t1P*(t2*t2)*t42kP*t4*t1+2*t7*t7*t3P*t1*(t2*t2)*t42kP*t4-2*t5*t12kP
*(t2*t2)*(t4*t4)*t3*t4P-2*t42kP*t3*t3*t2*t1P*t4*t1-t42kP*t1P*t1*t4-2*t7*t3P*t3*t4P*(t4
*t4)*t6*t2P*(t1*t1)+2*t42kP*(t2*t2)*t6*t1P*t4+t5*t1P*t42kP*t4-t5*t1P*t1*t3*t4P*(t4*t4)
*t7*t3P*(t2*t2)-t6*t2P*t2*t4P*t1P*t4*t3*t3-2*t5*t1P*t1*t3*t4P*(t4*t4)*t6*t2P*t2-2*t5*t1P
*t3*t42kP*t6*t4+2*t6*t2P*t3*t42kP*t4*t5*t2-4*t6*t2P*t3*t42kP*t4*t1*t2-t4P*t2*t1P*t1*t6
*t2P*t3*t3*(t4*t4)+t7*t7*t3P*(t2*t2)*(t4*t4)*t3*t4P*t1P-2*t5*t1P*t2*t4P*(t4*t4)*t7*t3P
*t1-t5*t1P*(t2*t2)*t4P*(t4*t4)*t7*t3P+t6*t2P*t2*t3*t3*t1P*t1*t4P*t7*(t4*t4)-t5*t1P*t2*t4P
*(t4*t4)*t6*t2P*t3*t3-t42kP*t7*t7*t1P*t4-t42kP*t3*t3*(t2*t2)*t1P*t4*t1-4*t42kP*t6*t3*t1P
*t1*t7*t4+t6*t6*t2P*t3*t3*t42kP*t4*(t1*t1)+2*t5*t1P*t2*t42kP*t4*t1-4*t42kP*t6*t6*t1P*t4*t2
*t3-2*t42kP*t6*t6*t1P*t4*t1*t2+2*t5*t1P*(t2*t2)*t42kP*t4*t3+2*t5*t12kP*t3*(t4*t4)*t4P*t7
+4*t5*t12kP*t3*(t4*t4)*t4P*t7*t2-2*t42kP*t6*t6*t1P*t4*t3-4*t2*(t4*t4)*t4P*t7*t3P*t6*t2P
*t1+t5*t1P*(t2*t2)*t42kP*t4-2*(t4*t4)*t1*t4P*t7*t7*t32kP+t6*t2P*t3*t3*t42kP*t4*t5*t2-t42kP
*t6*t6*t1P*t4-t5*t12kP*t4P*(t4*t4)-4*t7*t3P*t2*t3*t42kP*t4*t1-t5*t1P*t2*t4P*(t4*t4)*t6
*t2P*t1-2*t5*t1P*t2*t4P*(t4*t4)*t6*t2P*t3-t5*t1P*t1*t3*t3*t4P*(t4*t4)*t6*t2P+2*t42kP
*t1*t2*t4*t5*t1P*t3*t3+t6*t6*t2P*t3*t3*t4P*t1P*(t4*t4)*t1+t6*t6*t2P*t3*t3*t4P*t1P*(t4*t4)-2
*t2*(t4*t4)*t4P*t7*t3P*t6*t2P-2*t5*t1P*t1*t3*t4P*(t4*t4)*t6*t2P-t5*t1P*t1*t3*t4P*(t4
*t4)*t7*t3P+2*t6*t6*t2P*t3*t4P*t1P*(t4*t4)*t1+t6*t6*t2P*t3*t3*t4P*t1P*t4-2*(t4*t4)*t4P
*t7*t3P*t6*t2P-4*t7*t7*t32kP*t1*t2*t4P*t4+4*t5*t1P*t2*t42kP*t4*t3+t6*t2P*t4P*t7*t1P
*t4+2*t6*t2P*t3*t42kP*t4*t7*t2+2*t6*t6*t2P*t3*t4P*t1P*t4+2*t6*t6*t2P*t3*t4P*t1P*(t4*t4)
+2*t6*t2P*t3*t42kP*t4*t7*t2*(t1*t1)-2*t6*t2P*(t1*t1)*t4P*t4*t7*t3P-(t4*t4)*(t1*t1)*t4P*t6
*t6*t22kP+t42kP*t7*t7*(t2*t2)*t1P*k-4*t42kP*t6*(t2*t2)*t3*t1P*k*t1-t42kP*t6*t2P*k*t2*t7
+2*t7*t7*t3P*t2*t42kP*t4-4*t42kP*t7*(t2*t2)*t1P*k*t1*t3+2*t42kP*t6*t6*t1P*k*t3-t42kP*t5
*t1P*k+2*t7*t3P*t2*t3*(t4*t4)*t4P*t6*t1P+t42kP*(t1*t1)*t7*t3P*k*(t2*t2)-t5*t1P*t3*t3*t4
*t2P*t2*t4P*t6+2*t42kP*t7*t7*t1P*k*t1*t3-t42kP*t7*t3P*k*t6*(t2*t2)*t3+t6*t2P*t3*t3*t42kP
*t4*t7-2*t7*t3P*t2*t42kP*t4+t7*t3P*t1P*t1*t4P*t6*(t4*t4)+2*t42kP*t1P*t1*t6*t4+2*t7*t3P
*t1P*t1*t4P*t6*(t4*t4)*t2-2*t42kP*t6*t3*t3*t1P*t1*t7*t4+2*t42kP*t3*t3*t6*t1P*t4*t1+2*t5*t12kP
*t3*t4P*t6*t4+t5*t12kP*t3*t3*t4P*t6*t4-4*t42kP*t1*t7*t7*t3P*k*t2*t3+2*t42kP*(t2*t2)*t3*t1P
*k*t1+t5*t12kP*t3*t3*t4P*t7*t4+2*t5*t12kP*t3*t3*t4P*t7*t4*t2+4*t42kP*t3*t3*t6*t1P*t4*t1*t2
+2*t5*t12kP*t3*t3*(t4*t4)*t2*t4P*t7+t5*t12kP*t3*t3*t4P*t7*(t4*t4)+2*t42kP*t1*t7*t3P*k*(t2
*t2)*t3+2*t42kP*t2*t3*t3*t1P*k*t1-2*t6*t2P*t3*t42kP*t4*t2-t42kP*t7*t3P*k*t6-2*t2*(t4*t4)
*t4P*t7*t7*t32kP-t42kP*t6*t2P*k*t2*t5*t3*t3+2*t7*t3P*t1*t42kP*t4*t5+2*t42kP*t7*(t2*t2)
*t1P*k*t6*t3*t3-2*t42kP*t1P*k*t1*t6*(t2*t2)-2*t6*t2P*t3*t4P*t1P*t4-t42kP*t7*t4*t5*t1P
*(t2*t2)*t3*t3+2*t42kP*t5*t1P*k*t7*t3-t42kP*t3*t3*t6*t6*t2P*k+2*t42kP*t3*t1P*k+2*t42kP
*t7*(t2*t2)*t1P*k*t6-2*t6*t2P*t4*t3P*t3*t4P*t7*(t1*t1)-t42kP*t1P*t4-2*t7*t3P*t2*t4P*t1P
*t4-t7*t3P*(t2*t2)*t4P*t1P*t4+2*t7*t3P*t2*t42kP*t4*t5+8*t42kP*t3*t6*t1P*t4*t2-2*t42kP
*t1*t6*t2P*k*t2*t7*t3*t3-4*t42kP*t1*t6*t2P*k*t2*t5*t3+t7*t3P*(t2*t2)*t4P*t6*t1P*(t4*t4)+2
*t42kP*t5*t1P*k*t6*t2-4*t7*t3P*t4*t2P*t2*t4P*t6*t1-2*t5*t1P*t3*t4*t2P*t2*t4P*t6-t6*t2P
*t3*t3*t42kP*t4*t2+t42kP*t1P*k*t1-2*t42kP*(t1*t1)*t7*t3P*k*t6*t2+4*t42kP*t1*t7*t3P*k*t2-2
*t42kP*t1P*k*t1*t6*t3*t3-t42kP*t3*t3*t5*t1P*k*t1+2*t42kP*t7*t1P*t4-2*t42kP*(t1*t1)*t7*t7
*t3P*k*t2-2*t42kP*t1*t6*t2P*k*t2*t5+2*t6*t6*t2P*t3*t42kP*t4*t2*(t1*t1)+2*t5*t12kP*(t4*t4)
*t4P*t6*t3+t6*t6*t2P*t3*t3*t42kP*t4*t2*(t1*t1)+t6*t2P*t3*t3*(t4*t4)*t2*t4P*t7*t1P+t5*t12kP
*(t2*t2)*(t4*t4)*t4P*t7+2*t42kP*t6*t1P*k*t7-t42kP*(t1*t1)*t6*t2P*k*t2*t7*t3*t3-t42kP*(t1
*t1)*t6*t2P*k*t2*t7+4*t42kP*t7*t3*t5*t1P*k*t1*t2+2*t7*t3P*t1*t3*t42kP*t4*t6+4*t42kP*t1*t6
*t2P*k*t2*t3+t42kP*t6*t6*t1P*k*(t2*t2)+t42kP*(t2*t2)*t4*t5*t1P*t3*t3-t42kP*t7*t3P*k*t6
*(t2*t2)-4*t6*t6*t22kP*t3*t4P*t4*t1-4*t42kP*t3*t1P*k*t7-t6*t2P*t3*t3*t4*t1P*t1*t4P*t5*t2
+4*t42kP*t3*t3*t6*t1P*t4*t2+4*t42kP*t3*t6*t1P*t4*t1+2*t42kP*t3*t3*t6*t1P*t4-2*t6*t6*t22kP
*t3*t3*t4P*t4*t1-t42kP*t6*t6*t2P*k*t2+2*t7*t7*t3P*t2*t3*t4P*t1P*t4-t5*t12kP*(t2*t2)*(t4
*t4)*t3*t3*t4P-2*t42kP*(t2*t2)*t3*t5*t1P*k+4*t42kP*t7*t2*t1P*k*t6*t1*t3*t3+4*t42kP*t7*(t2
*t2)*t1P*k*t6*t1*t3-2*t2*(t4*t4)*t4P*t7*t7*t32kP*(t1*t1)-2*(t4*t4)*t1*t4P*t6*t6*t22kP*t3*t3
+4*t42kP*t7*(t2*t2)*t1P*k*t6*t3-2*t42kP*t7*t3P*k*t6*t2+t7*t7*t3P*(t1*t1)*t3*t42kP*t4-4*t42kP
*t6*t6*t1P*t4*t1*t2*t3+8*t42kP*t3*t6*t1P*t4*t1*t2+2*t6*t6*t2P*t1*t42kP*t4-t6*t2P*t3*t3*t42kP
*t4*(t1*t1)+t42kP*(t1*t1)*t7*t3P*k*t3+t42kP*(t2*t2)*t3*t3*t1P*k+t42kP*t6*t6*t1P*k*t1+2*t6
*t2P*t3*t42kP*t4*t5*(t1*t1)-2*t42kP*(t2*t2)*t1P*t4*t3-t42kP*t7*t3P*k*t5*(t2*t2)+t42kP*t3
*t3*t5*t1P*k*t1*t6+t7*t3P*(t1*t1)*t42kP*t4*t5-t42kP*t7*(t1*t1)*t2P*k*t6*t3*t3-2*t42kP*t7
*t7*t3*t1P*t4-2*t7*t3P*t4*t2P*t2*t4P*t6*t3-2*(t4*t4)*t4P*t6*t6*t22kP*t3-t42kP*(t2*t2)*t5
*t1P*k*t1-2*t6*t2P*t3*t4*t1P*t1*t4P+t42kP*t3*t3*t5*t1P*k*t1*t6*(t2*t2)-t7*t3P*t3*t42kP
*t4+2*t7*t3P*t2*t3*t42kP*t4*t5*(t1*t1)-t42kP*(t1*t1)*t7*t3P*k*t6-t7*t3P*(t1*t1)*(t2*t2)*t42kP
*t4-2*t42kP*t6*t6*t1P*t4*t2*t3*t3*t1+4*t6*t6*t2P*t3*t42kP*t4*t1-t42kP*t6*t6*t1P*t4*(t2*t2)
*t3*t3*t1+4*t7*t7*t3P*t2*t3*t42kP*t4*t1-2*t7*t3P*t2*t3*t4P*t1P*t4-t7*t3P*(t2*t2)*t3*t4P
*t1P*t4+4*t5*t12kP*t2*t3*t4P*t7*t4-t5*t1P*t3*t3*(t2*t2)*t42kP*t6*t4*t1-2*t5*t1P*t3*t3*t2
*t42kP*t6*t4*t1-2*t42kP*t6*t2*t4*t5*t1P*t1-t5*t1P*t3*t3*(t2*t2)*t42kP*t6*t4-2*t42kP*t7*t1P
*t1*t6*t4-4*t42kP*t7*t1P*t1*t6*t4*t2-2*t42kP*t6*(t2*t2)*t4*t5*t1P*t3+t7*t3P*t3*(t4*t4)*t4P
*t6*t1P-2*t5*t1P*t3*t3*t2*t42kP*t6*t4-t5*t12kP*(t2*t2)*(t4*t4)*t4P-2*t42kP*t7*t4*t5*t1P
*(t2*t2)*t3*t1-2*t42kP*t6*t2*t4*t5*t1P+4*t42kP*t3*t3*t7*t1P*t4*t2+t7*t3P*(t1*t1)*t3*t42kP
*t4*t5-(t2*t2)*(t4*t4)*t4P*t7*t7*t32kP*(t1*t1)-2*t6*t2P*t3*t3*t42kP*t4*t1*t2+t7*t3P*t3*(t2
*t2)*t4P*t6*t1P*t4+t7*t7*t3P*(t2*t2)*(t4*t4)*t3*t4P*t1P*t1-t6*t6*t22kP*t3*t3*t4P*t4-t6
*t2P*t2*t4P*t1P*t4-2*t6*t2P*t2*t4P*t1P*t4*t3+t7*t3P*(t2*t2)*(t4*t4)*t3*t4P*t6*t1P*t1-2
*t7*t3P*(t1*t1)*t2*t42kP*t4+t7*t7*t3P*(t2*t2)*t3*t42kP*t4*(t1*t1)+2*t7*t7*t3P*t2*t3*t42kP
*t4+2*t6*t6*t2P*t2*(t4*t4)*t4P*t1P*t1*t3-2*t42kP*t6*t7*t1P*t4+t7*t7*t3P*t4P*t1P*(t4*t4)
+t6*t2P*t3*t3*t42kP*t4*t5*(t1*t1)-2*t7*t3P*t1*(t2*t2)*t42kP*t4+t6*t6*t2P*t2*(t4*t4)*t4P*t1P
*t1+2*t42kP*(t2*t2)*t3*t3*t7*t1P*t4*t1+t6*t2P*t4P*t7*t1P*(t4*t4))/(1+t4)/t4*pow(t7*t3P
+t6*t2P+t5*t1P+t4P-t4P*t5*t1*t2*t3+t5*t1P*t2+t6*t2P*t4+t6*t2P*t3+t6*t2P*t1+t7*t3P*t4
+t7*t3P*t2+t7*t3P*t1-t4P*t6*t2-t4P*t7*t3-t4P*t5*t1+t4P*t2*t3-t4P*t5*t3-t4P*t5*t2+t4P
*t1*t3-t4P*t6*t3-t4P*t6*t1+t4P*t1*t2-t4P*t7*t2-t4P*t7*t1+t5*t1P*t4+t5*t1P*t3+t4P*t3-t4P
*t5-t4P*t6-t4P*t7+t4P*t2+t4P*t1+t5*t1P*t2*t4+t5*t1P*t3*t4+t5*t1P*t2*t3+t6*t2P*t1*t4+t6
*t2P*t3*t4+t6*t2P*t1*t3+t7*t3P*t2*t4+t7*t3P*t1*t2+t7*t3P*t1*t4-t4P*t7*t1*t2-t4P*t6*t2*t3-t4P
*t6*t1*t2-t4P*t7*t2*t3-t4P*t7*t1*t3-t4P*t6*t1*t3-t4P*t5*t1*t2-t4P*t5*t1*t3-t4P*t5*t2*t3+t4P
*t1*t2*t3-t4P*t6*t1*t2*t3+t5*t1P*t2*t3*t4+t6*t2P*t1*t3*t4+t7*t3P*t1*t2*t4-t4P*t7*t1*t2*t3,-2)
if (k > 0) test <- abs(A45/a[4,5])
a[4,5] <- a[4,5] + A45
k <- k+1
}
if (k == maximumIteration) {
return(list("flag"=1))
break
}
##A46
test <- 100.0
k <- 0
while (test > criteria & k < maximumIteration)
{
t1P <- pow((t1/(1+t1)),k)
t2P <- pow((t2/(1+t2)),k)
t3P <- pow((t3/(1+t3)),k)
t4P <- pow((t4/(1+t4)),k)
t12kP <- pow((t1/(1+t1)),(2*k))
t22kP <- pow((t2/(1+t2)),(2*k))
t32kP <- pow((t3/(1+t3)),(2*k))
t42kP <- pow((t4/(1+t4)),(2*k))
A46 <- -1/(1+t4)/t4*pow(t7*t3P+t6*t2P+t5*t1P+t4P-t4P*t5*t1*t2*t3+t5*t1P*t2+t6*t2P*t4+t6*t2P
*t3+t6*t2P*t1+t7*t3P*t4+t7*t3P*t2+t7*t3P*t1-t4P*t6*t2-t4P*t7*t3-t4P*t5*t1+t4P*t2*t3-t4P
*t5*t3-t4P*t5*t2+t4P*t1*t3-t4P*t6*t3-t4P*t6*t1+t4P*t1*t2-t4P*t7*t2-t4P*t7*t1+t5*t1P*t4
+t5*t1P*t3+t4P*t3-t4P*t5-t4P*t6-t4P*t7+t4P*t2+t4P*t1+t5*t1P*t2*t4+t5*t1P*t3*t4+t5*t1P
*t2*t3+t6*t2P*t1*t4+t6*t2P*t3*t4+t6*t2P*t1*t3+t7*t3P*t2*t4+t7*t3P*t1*t2+t7*t3P*t1*t4-t4P
*t7*t1*t2-t4P*t6*t2*t3-t4P*t6*t1*t2-t4P*t7*t2*t3-t4P*t7*t1*t3-t4P*t6*t1*t3-t4P*t5*t1*t2-t4P
*t5*t1*t3-t4P*t5*t2*t3+t4P*t1*t2*t3-t4P*t6*t1*t2*t3+t5*t1P*t2*t3*t4+t6*t2P*t1*t3*t4+t7*t3P
*t1*t2*t4-t4P*t7*t1*t2*t3,-2)*(t6*t2P*(t1*t1)*t42kP*t4*t5-2*t42kP*t3*t5*t1P*k*t1*(t2*t2)+t42kP
*(t1*t1)*t7*t3P*k*t5*(t2*t2)*t3+t42kP*t7*t7*t3P*k-t4P*t5*t5*t1*t2P*t2*t1P*t4+4*t42kP*t1
*(t3*t3)*t2P*k*t5*t2+4*t42kP*t7*t1*t2P*k+t42kP*t2P*t4-4*t42kP*t7*(t1*t1)*t2P*k*t5*t3+t42kP
*(t2*t2)*t5*t1P*k*t1*t6-2*t6*t2P*t3*t42kP*t4+2*t42kP*(t1*t1)*(t3*t3)*t2P*k*t7-2*t42kP*t1
*t6*t2P*k*t2*t5*(t3*t3)-2*t7*t3P*(t2*t2)*t3*t42kP*t4*t6*t1+2*t42kP*t2*(t3*t3)*t5*t5*t1P*k+2
*t42kP*t2P*k*t7*t2-t7*t3P*(t1*t1)*t42kP*t4*t6+2*t42kP*t2*(t3*t3)*t5*t1P*k*t6-2*t42kP*t7
*(t1*t1)*t2P*k*t5+2*t42kP*(t1*t1)*t2P*k*t2*t7+t42kP*(t1*t1)*t7*t3P*k*t6*t3-4*t7*t7*t3P*t1
*t2*t42kP*t4-t6*t2P*(t3*t3)*t42kP*t4+2*t42kP*t7*t3*t5*t1P*k*t1*(t2*t2)-t42kP*t7*t7*t2P
*k*t2*(t3*t3)-2*t42kP*t5*t5*t2P*k*t2*t3-2*t42kP*t7*t3P*k*t2-t42kP*t7*t4*t5*t1P*(t2*t2)*t1
+t42kP*t7*(t2*t2)*t1P*k*t5+t42kP*(t2*t2)*(t3*t3)*t5*t1P*k*t7+t42kP*t5*t1P*k*t6-2*t42kP
*t6*t2P*k*t2*t7*t3+t7*t7*t32kP*t4P*t4-2*t42kP*t7*t7*t2P*k*t1*t2+t42kP*t7*(t3*t3)*t5*t1P
*k*t1+8*t42kP*t1*t3*t2P*k*t5*t2+2*(t2*t2)*(t4*t4)*t4P*t7*t7*t32kP*t1-2*t42kP*t7*t7*t1*t2P
*k*(t3*t3)-t7*t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4-t5*t5*t1P*(t2*t2)*(t3*t3)*t42kP*t4*t1+t42kP*(t1
*t1)*t7*t3P*k*t6*(t2*t2)-t5*t5*t1P*(t2*t2)*t42kP*t4+t42kP*(t3*t3)*t2P*k*t6+2*t42kP*t3*t5
*t1P*k*t1*t6*(t2*t2)-2*t7*t3P*t4*t2P*t2*t4P*t5*t1-t7*t7*t3P*t4*t2P*t2*t4P*t3-t4P*t2P
*k*t7*t3P*(t1*t1)-t4P*t2P*k*t5*t1P*t1+2*t6*t22kP*t1*(t3*t3)*k*t4P*t7*t4-4*t6*t22kP*t1*t3
*k*t4P+t6*t22kP*k*t4P*t7+t6*t22kP*k*t4P*t5-t4P*t3*t4*t6*t2P*k*t2*t7*t3P-t5*t1P*(t3
*t3)*t2P*k*t2*t4P+t4P*t5*t2P*k*t7*t3P*t3+t4P*t5*t5*t2P*k*t1P*(t3*t3)-2*t6*t22kP*t1
*(t3*t3)*k*t4P-2*t7*t3P*t1*t2P*k*t4P*t6-t4P*(t1*t1)*t3*t2P*k*t7*t3P*t2+t6*t22kP*(t1*t1)
*(t3*t3)*k*t4P*t5-2*t5*t1P*t1*t3*t2P*k*t2*t4P+t5*t1P*t4*t2P*k*t4P*t7+t4P*t7*t2P*k*t5
*t1P*t2*(t3*t3)*t1-2*t6*t22kP*t3*k*t4P*t4-2*t7*t3P*t6*t2P*k*t2*t4P*t1*t3+2*t4P*t5*t5*t2P
*k*t1P*t3*t4+t5*t5*t1P*t1*t2P*k*t2*t4P+t5*t1P*t1*(t3*t3)*t4*t2P*k*t4P*t7*t2+t7*t7*t3P
*t2P*k*t2*t4P*(t1*t1)+2*t4P*t7*t3*t4*t2P*k*t5*t1P-2*t7*t3P*t6*t2P*k*t2*t4P*t1-t7*t3P
*t6*t2P*k*t2*t4P*(t1*t1)*t4-t7*t3P*t2P*k*t2*t4P*t4-2*t4P*t3*t2P*k*t5*t1P-t4P*t3*t2P
*k*t7*t3P+t4P*t7*t7*t3*t4*t2P*k*t3P-4*t42kP*t7*t1*t2P*k*t5*(t3*t3)+2*t42kP*t5*(t1*t1)*t7
*t2P*t4*(t3*t3)-2*t6*t22kP*(t3*t3)*(t4*t4)*t4P*t7*t1+t42kP*t5*t5*(t1*t1)*t2P*t4*(t3*t3)+2*t42kP
*t1*t2P*t4-t5*t1P*t1*(t3*t3)*t4P*t7*t2P*(t4*t4)+2*t42kP*(t3*t3)*t2P*k*t5*t2+t42kP*(t1*t1)
*t7*t3P*k*t5*t3-2*t42kP*t1*(t3*t3)*t2P*k*t2+2*t6*t2P*t4*t3P*t3*t4P*t7*t1+2*t42kP*(t1*t1)
*(t3*t3)*t2P*k*t5*t2+t5*t5*t12kP*(t2*t2)*t4P*(t4*t4)-2*t7*t7*t3P*t1*t42kP*t4+t4P*t4*t2P
*t2*t5*t1P-t7*t3P*t4*t2P*t2*t4P*t5+2*t42kP*(t2*t2)*t3*t5*t1P*k*t7-t6*t22kP*k*t4P-t7*t3P
*(t2*t2)*t42kP*t4*t5-4*t42kP*t1*t6*t2P*k*t2*t7*t3+t42kP*t5*t1P*k*t7*(t3*t3)+2*t42kP*(t3*t3)
*t5*t1P*k*t1*t6*t2-t7*t3P*t42kP*t4*t6-2*t42kP*t5*t5*(t1*t1)*t2P*k*t2*t3+2*t7*t3P*t1*t3*t42kP
*t4-2*t42kP*t5*t1P*k*t3+2*t42kP*t5*t5*t1P*k*t2+2*t6*t2P*t1*t42kP*t4*t5*t2+t42kP*(t2*t2)
*(t3*t3)*t5*t1P*k*t6+2*t42kP*(t1*t1)*t7*t3P*k*t5*t2+4*t42kP*t3*t5*t5*t1P*k*t1*t2-t4P*t7*t1
*t2P*t2*t5*t1P*t4-2*t42kP*t5*t2P*k*t7*t2+t42kP*(t1*t1)*t7*t3P*k*t5-t42kP*t7*t7*t2P*k
*t2+4*t42kP*t3*t2P*k*t7*t2-2*t42kP*t5*t2P*k*t7*(t3*t3)+4*t42kP*t3*t5*t1P*k*t1*t6*t2-t7*t3P
*(t2*t2)*t3*t42kP*t4*t6-t42kP*t6*(t2*t2)*t4*t5*t1P*t1-t42kP*t5*t5*t2P*k+t42kP*t7*(t3*t3)
*t5*t1P*k*t1*(t2*t2)+2*t42kP*t2*t5*t1P*k*t1*t6-t42kP*t7*t7*(t1*t1)*t2P*k*(t3*t3)-4*t7*t3P
*t1*t2*t42kP*t4*t6+2*t7*t3P*t2*t3*t42kP*t4*(t1*t1)+2*t5*t5*t12kP*t2*t4P*t4-2*t42kP*t1*t6
*t2P*k*t2*t7-t7*t3P*t42kP*t4*t5-t7*t7*t3P*t3*t42kP*t4-t42kP*(t1*t1)*(t3*t3)*t2P*k*t2-t7
*t7*t3P*(t2*t2)*t3*t42kP*t4+2*t42kP*t1*t6*t2P*k*t2*(t3*t3)-t6*t2P*(t1*t1)*t42kP*t4-t42kP
*t7*t3P*k*(t2*t2)*t3-2*t42kP*t7*t1*t2P*k*t6*(t3*t3)+4*t42kP*t5*(t1*t1)*t7*t2P*t4*t3-2*t5*t5
*t1P*t1*t4P*t2P*t4*t3-t5*t5*t1P*t1*t4P*t2P*(t4*t4)-2*t5*t5*t1P*t1*t4P*t2P*(t4*t4)*t3-4
*t6*t2P*t3*t42kP*t4*t1-4*t42kP*t7*t1*t2P*k*t5-t4P*t5*t5*t1*t2P*t2*t1P*(t3*t3)*(t4*t4)-2
*t6*t22kP*t3*t4P*t5*t4+2*t42kP*(t1*t1)*t2P*t4*t3-t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4*t6-2*t42kP
*t5*t1P*k*t2-t6*t2P*(t3*t3)*t42kP*t4*t2*(t1*t1)+2*t42kP*t7*(t1*t1)*t2P*k+4*t42kP*t5*(t3*t3)
*t7*t2P*t4*t1-t7*t3P*(t1*t1)*t3*t4P*t5*t2P*t4-t4P*t5*t5*(t3*t3)*t2P*t2*t1P*(t4*t4)+2*t42kP
*t7*t7*t3*t2P*t4*t2+4*t42kP*t7*t7*t3*t2P*t4*t1*t2-2*t42kP*t3*t5*t1P*k*t1+t6*t2P*(t3*t3)*t42kP
*t4*t5+t42kP*t2P*k*t6*(t1*t1)+2*t5*t1P*t3P*t3*t4*t4P*t7*(t2*t2)+2*t6*t2P*t3*t4*t1P*t1*t4P
*t5+t42kP*(t1*t1)*t7*t7*t3P*k*(t2*t2)*t3+(t4*t4)*(t1*t1)*t4P*t7*t3P*t6*t2P+4*t42kP*(t1*t1)
*t3*t2P*k*t5+2*t7*t3P*t3*t4*t5*t1P*t4P*t1+2*t42kP*t1*t7*t3P*k*t6*(t2*t2)+t7*t3P*t4*t2P
*t2*t4P*t6*(t1*t1)*t3-t7*t7*t3P*t4*t2P*t2*t4P*(t1*t1)*t3-t7*t3P*t4*t2P*t2*t4P*t5*(t1*t1)
*t3-t42kP*t7*(t1*t1)*t2P*k*t6+4*t42kP*t2*t3*t5*t1P*k*t7+2*t7*t7*t32kP*(t1*t1)*t2*t4P*t4-2
*t6*t2P*t3*t42kP*t4*(t1*t1)-2*t42kP*t5*t2P*k*t6*t1+t6*t2P*(t3*t3)*t42kP*t4*t5*(t1*t1)*t2
+2*t7*t3P*t4*t2P*t2*t4P*t6*t1*t3-2*t42kP*(t1*t1)*t7*t3P*k*t2*t3+4*t7*t3P*t2*t3*t4*t1P*t1
*t4P*t5-2*t42kP*(t1*t1)*t6*t2P*k*t2*t7*t3+2*t42kP*t3*t2P*k*t6-4*t42kP*t1*t7*t3P*k*t2*t3
+4*t42kP*t2*t3*t5*t1P*k*t6-t42kP*t6*t2P*k*t2*t5-2*t42kP*t7*t7*t2P*k*t2*t3+t42kP*t7*t3P
*k*t6*t3-2*t42kP*t2*(t3*t3)*t5*t1P*k-2*t42kP*t5*t2P*k*t7*t2*(t3*t3)-2*t5*t5*t1P*(t2*t2)*t3
*t42kP*t4+t42kP*t7*t7*t3P*k*(t2*t2)+t7*t3P*t4*t2P*t2*t4P*t6+t5*t5*t12kP*(t2*t2)*t4P*t4-2
*t6*t2P*t1*t42kP*t4-4*t6*t22kP*t1*t3*t4P*t7*t4+2*t5*t1P*t3*(t4*t4)*t2P*t2*t4P*t1+t42kP
*t7*t7*(t1*t1)*t2P*t4*(t3*t3)-4*t42kP*t1*t7*t2P*t4-2*t7*t3P*t2*t3*t42kP*t4*t6*(t1*t1)+2*t42kP
*t1*t7*t7*t3P*k*t3-t42kP*t2P*k*(t1*t1)-t4P*t1*(t3*t3)*t2P*k*t5*t1P+2*t4P*t5*t1*t2P*k
*t2*t7*t3P+t4P*t5*(t1*t1)*t2P*k*t2*t7*t3P-t4P*t6*t2P*k*t2*t7*t3P+t6*t22kP*(t1*t1)*(t3
*t3)*k*t4P*t5*t4-2*t7*t3P*t2P*k*t2*t4P*t1+2*t5*t5*t1P*t1*t3*t4*t2P*k*t4P*t2+t5*t5*t1P
*t1*(t3*t3)*t4*t2P*k*t4P-t4P*(t3*t3)*t2P*k*t5*t1P-2*t4P*t3*t2P*k*t5*t1P*t4-t4P*t3*t2P
*k*t7*t3P*t2-t4P*t3*t2P*k*t7*t3P*t4+2*t4P*t5*t5*t2P*k*t1P*t3*t1-2*t7*t3P*t1*t4*t2P
*k*t4P*t6+2*t7*t3P*t1*t4*t2P*k*t4P*t5+2*t7*t7*t3P*t1*t4*t2P*k*t4P-2*t7*t3P*t3*t4*t6*t2P
*k*t4P*t1*t2-t5*t1P*t1*(t3*t3)*t4*t2P*k*t4P+2*t6*t22kP*t1*k*t4P*t7+2*t6*t22kP*t1*k*t4P
*t5+t4P*t5*(t1*t1)*t2P*k*t2*t7*t3P*t3-t6*t22kP*(t1*t1)*(t3*t3)*k*t4P*t4-4*t6*t22kP*t1*t3
*k*t4P*t4+t5*t1P*t4*t2P*k*t2*t4P*t7+2*t4P*t5*t4*t2P*k*t2*t7*t3P*t1-t7*t3P*(t1*t1)*t4
*t2P*k*t4P*t2-t7*t3P*(t1*t1)*t4*t2P*k*t4P*t3+2*t4P*t5*t5*t4*t2P*k*t1P*t2*t3+t7*t7*t3P
*t3*t4*t2P*k*t4P*(t1*t1)*t2-2*t7*t3P*t1*t4*t2P*k*t4P*t3+2*t5*t1P*t1*t3*t4*t2P*k*t4P*t7
+2*t5*t5*t1P*t1*t3*t4*t2P*k*t4P-t4P*t6*t2P*k*t2*t7*t3P*t3+t4P*t5*t5*t2P*k*t1P*t4*t1
+2*t4P*t5*t2P*k*t7*t3P*t1*t3-2*t7*t7*t32kP*t1*(t2*t2)*k*t4P*t4-t7*t7*t32kP*k*t4P*(t2*t2)-t7
*t7*t32kP*k*t4P*(t2*t2)*t4+t7*t3P*t4*t2P*t2*t4P+t4P*t5*t5*t4*t2P*k*t2*t1P+t7*t3P*(t1
*t1)*t4*t2P*k*t4P*t5*t3+2*t6*t22kP*(t1*t1)*t3*k*t4P*t7*t4+2*t6*t22kP*t1*(t3*t3)*k*t4P*t5
*t4+2*t6*t22kP*(t1*t1)*t3*k*t4P*t5*t4-2*t4P*t1*t3*t2P*k*t5*t1P-2*t4P*t1*t3*t2P*k*t7*t3P-t5
*t1P*t1*(t3*t3)*t2P*k*t2*t4P-t6*t22kP*(t3*t3)*k*t4P+2*t5*t1P*t4*t7*t3P*t4P*t3+t6*t2P
*t2*t42kP*t4*t5-t7*t3P*(t4*t4)*t2P*t2*t4P*t5*(t1*t1)*t3-2*t5*t5*t1P*(t2*t2)*t3*t42kP*t4*t1
+2*t42kP*t5*t5*t1P*k*t3-4*t42kP*t5*(t1*t1)*t2P*t2*t4*t3-4*t42kP*(t3*t3)*t7*t2P*t4*t1-2*t42kP
*(t3*t3)*t7*t2P*t4*t2-4*t42kP*(t3*t3)*t7*t2P*t4*t1*t2-2*t6*t22kP*t1*(t3*t3)*t4P*t7*t4-t6*t22kP
*(t1*t1)*(t3*t3)*t4P*t7*t4+t5*t1P*(t3*t3)*t4P*t2P*t4-2*t6*t22kP*t1*t4P*t5*t4-t6*t22kP*(t1
*t1)*t4P*t5*t4+t42kP*(t1*t1)*(t3*t3)*t2P*k*t6+2*t7*t3P*t4*t5*t1P*t4P*t1+4*t7*t3P*t4*t5
*t1P*t4P*t1*t2+t42kP*t5*t1P*k*t6*(t2*t2)-t7*t7*t32kP*k*t4P*(t1*t1)*t4-2*t6*t22kP*(t1*t1)
*t4P*t5*t4*t3-2*t6*t22kP*t1*t4P*t5*(t4*t4)-t6*t22kP*(t1*t1)*t4P*t5*(t4*t4)+t5*t1P*t4P*t2P
*(t4*t4)*t2+2*t5*t1P*t4P*t2P*(t4*t4)*t2*t3+t42kP*t5*t5*t2P*t2*t4+2*t7*t7*t32kP*t2*t4P*t4
+4*t42kP*(t1*t1)*t2P*k*t2*t7*t3+2*t42kP*t1*t7*t7*t3P*k*(t2*t2)-4*t42kP*t7*t2P*k*t5*(t1*t1)
*t2*t3-t5*t5*t1P*(t2*t2)*(t3*t3)*t42kP*t4-t42kP*t2P*k*t2+t42kP*t5*t5*(t3*t3)*t2P*t2*t4*(t1
*t1)-2*t4P*t5*t1*t2P*t2*t7*t3P*(t4*t4)-t4P*t5*(t1*t1)*t2P*t2*t7*t3P*(t4*t4)-2*t6*t22kP
*t3*(t4*t4)*t4P*t7+4*t42kP*t5*t3*t2P*t2*t7*t4+2*t5*t1P*t2*t42kP*t4-2*t42kP*(t1*t1)*t7*t3P
*k*t2-t7*t7*t32kP*k*t4P*t4-t7*t7*t32kP*k*t4P*(t1*t1)-2*t7*t7*t32kP*k*t4P*t1-2*t7*t7*t32kP
*k*t4P*t2+t6*t22kP*(t1*t1)*(t4*t4)*t4P+2*t6*t22kP*(t1*t1)*(t4*t4)*t4P*t3+t7*t3P*t4*t2P
*t2*t4P*t6*(t1*t1)+4*t42kP*t3*t2P*k*t7+2*t7*t3P*t4*t2P*t2*t4P*t1*t3-t7*t7*t3P*(t1*t1)*t42kP
*t4-t7*t7*t32kP*(t1*t1)*(t2*t2)*k*t4P-4*t7*t7*t32kP*t1*t2*k*t4P-2*t7*t7*t32kP*(t1*t1)*t2*k
*t4P-2*t7*t7*t32kP*t1*(t2*t2)*k*t4P-2*t7*t7*t32kP*(t1*t1)*t2*k*t4P*t4-2*t7*t7*t32kP*k*t4P
*t2*t4-2*t7*t7*t32kP*k*t4P*t1*t4+t6*t2P*(t1*t1)*t42kP*t4*t7+2*t6*t2P*t3*t42kP*t4*t5+2*t7
*t7*t32kP*t1*(t2*t2)*t4P*t4-2*t4P*t5*t1P*k*t7*t3P*t3-t6*t2P*t1P*k*t1*t4P*t5-t5*t1P
*t1*(t3*t3)*t4P*t7*t2P*(t4*t4)*t2-2*t5*t1P*t3*(t4*t4)*t4P*t7*t2P+2*t6*t2P*t3*t4*t1P*t1
*t4P*t5*t2+t6*t22kP*(t1*t1)*t4P*t4+4*t6*t22kP*t1*t4P*t4*t3+2*t6*t22kP*t1*t4P*(t4*t4)+4
*t6*t22kP*t1*t4P*(t4*t4)*t3-t5*t5*t1P*t4P*t2P*t4+t42kP*t7*t7*t2P*t2*t4+t5*t5*t1P*t1*(t3
*t3)*t4*t2P*k*t4P*t2-t5*t1P*t1*t4*t2P*k*t2*t4P+t6*t22kP*(t1*t1)*t4*k*t4P*t5-2*t7*t3P
*t1*t4*t2P*k*t4P-t7*t3P*t4*t2P*k*t4P+t7*t7*t3P*t4*t2P*k*t4P+2*t6*t22kP*t3*k*t4P*t5
*t4+2*t6*t22kP*t3*k*t4P*t7*t4-t6*t22kP*t4*k*t4P-t4P*(t3*t3)*t2P*k*t5*t1P*t4+t6*t22kP
*(t1*t1)*(t3*t3)*k*t4P*t7+t4P*t7*t2P*k*t5*t1P*t2*(t3*t3)*t4+2*t7*t7*t3P*t2P*k*t2*t4P*t1
*t4+t4P*t5*t4*t2P*k*t2*t7*t3P*(t1*t1)-t7*t3P*t4*t2P*k*t4P*t6+t4P*t7*t1*t2P*k*t5*t1P
+2*t4P*t7*t7*t1*t2P*k*t3P+2*t4P*t7*t1*t2P*k*t5*t1P*t3+t6*t22kP*t4*k*t4P*t7+t6*t22kP
*t4*k*t4P*t5+2*t6*t22kP*t1*t4*k*t4P*t7+t7*t7*t3P*t2P*k*t4P+2*t5*t1P*t3*t2P*k*t2*t4P
*t7+2*t5*t5*t1P*t3*t2P*k*t2*t4P-t7*t3P*t2P*k*t2*t4P+t4P*t5*t5*t4*t2P*k*t2*t1P*t1-t4P
*t6*t2P*k*t2*t7*t3P*t4-t7*t3P*t6*t2P*k*t2*t4P*(t1*t1)*t3-t7*t3P*t6*t2P*k*t2*t4P*(t1*t1)-t4P
*(t1*t1)*t3*t2P*k*t7*t3P-2*t4P*t1*t3*t2P*k*t7*t3P*t2+2*t4P*t7*t7*t1*t2P*k*t3P*t3+t4P
*t7*t1*t2P*k*t5*t1P*(t3*t3)+t5*t1P*t1*(t3*t3)*t4*t2P*k*t4P*t7+t4P*t5*t4*t2P*k*t2*t7*t3P
+t6*t22kP*(t1*t1)*(t3*t3)*k*t4P*t7*t4-t7*t3P*t3*t4*t6*t2P*k*t4P*(t1*t1)*t2+t6*t22kP*(t3*t3)
*k*t4P*t5*t4+t6*t22kP*(t3*t3)*k*t4P*t7*t4-2*t6*t22kP*t1*t4*k*t4P-t6*t22kP*(t1*t1)*t4*k*t4P-2
*t6*t22kP*t3*k*t4P-t7*t3P*(t1*t1)*t4*t2P*k*t4P*t2*t3-t5*t1P*t4*t2P*k*t2*t4P-t5*t1P
*t1*t2P*k*t2*t4P+2*t5*t5*t1P*t1*t3*t2P*k*t2*t4P+2*t4P*t5*t4*t2P*k*t2*t7*t3P*t1*t3+t7
*t7*t3P*t3*t2P*k*t4P-t7*t3P*t2P*k*t4P*t6-t6*t22kP*(t1*t1)*(t3*t3)*k*t4P-2*t6*t22kP
*(t1*t1)*t3*k*t4P+t4P*t5*t4*t2P*k*t2*t7*t3P*(t1*t1)*t3+t7*t7*t3P*t2P*k*t2*t4P+t4P*t7
*t1*t2P*k*t5*t1P*t4+t4P*t7*t7*(t1*t1)*t2P*k*t3P-t7*t3P*(t1*t1)*t4*t2P*k*t4P*t6*t3+t7
*t7*t3P*(t1*t1)*t4*t2P*k*t4P*t3-t7*t3P*t3*t2P*k*t4P*t6-t7*t7*t32kP*k*t4P-t42kP*t6*t4
*t5*t1P-4*t7*t7*t32kP*t1*t2*k*t4P*t4+2*t5*t5*t12kP*t4P*(t4*t4)*t3-t42kP*(t1*t1)*t6*t2P
*k*t2*t5-2*t5*t1P*t42kP*t7*t4*t1*t3+2*t42kP*t5*t2P*k*(t1*t1)-4*t4P*t4*t5*t1P*k*t1*t7*t3P
*t2*t3-t4P*t4*t5*t1P*k*t1*t6*t2P*t2-2*t5*t5*t12kP*k*t4P*t2*(t3*t3)-2*t4P*t4*t5*t1P*k*t1
*t7*t3P*(t2*t2)*t3-t4P*t4*t5*t1P*k*t1*t6*t2P*(t3*t3)*t2-t4P*t4*t5*t1P*k*t1*t6*t2P*(t3*t3)-2
*t4P*t4*t5*t1P*k*t1*t7*t3P*t3-2*t5*t5*t12kP*t2*t4*k*t4P-2*t4P*t4*t5*t1P*k*t7*t3P-t4P
*t4*t5*t1P*k*t6*t2P-2*t4P*t4*t5*t1P*k*t6*t2P*t3-t4P*t4*t5*t1P*k*t6*t2P*t2-2*t4P*t4
*t5*t1P*k*t7*t3P*(t2*t2)-t4P*t4*t5*t1P*k*t6*t2P*(t3*t3)-2*t4P*t4*t5*t1P*k*t7*t3P*t3-4
*t4P*t4*t5*t1P*k*t7*t3P*t2-2*t6*t2P*t3*t1P*k*t4P*t5-t5*t5*t12kP*k*t4P*(t3*t3)*t4+2*t42kP
*t5*(t1*t1)*t2P*k*t2-t4P*(t3*t3)*t5*t1P*k*t1*t6*t2P-2*t4P*t3*t5*t1P*k*t1*t6*t2P-2*t4P
*t3*t5*t1P*k*t1*t7*t3P-4*t5*t1P*t42kP*t7*t4*t1*t2*t3-2*t4P*t4*t5*t1P*k*t1*t6*t2P*t3-t4P
*t4*t5*t1P*k*t1*t6*t2P+2*t5*t1P*(t2*t2)*t42kP*t4*t1*t3-t5*t5*t12kP*k*t4P-t42kP*(t3*t3)
*t6*t2P*k*t7+t42kP*(t1*t1)*t7*t7*t3P*k*t3-t7*t3P*(t1*t1)*t3*t42kP*t4*t6+2*(t4*t4)*t1*t4P
*t7*t3P*t6*t2P+2*t7*t3P*t4*t2P*t2*t4P*t1-4*t42kP*t5*t5*t2P*k*t1*t3-2*t42kP*(t1*t1)*t6
*t2P*k*t2*t5*t3+t42kP*(t1*t1)*t7*t7*t3P*k*(t2*t2)+t7*t3P*(t2*t2)*t42kP*t4-2*t5*t1P*t42kP
*t7*t4*t3+t42kP*t5*t1P*k*t6*(t3*t3)-4*t5*t1P*t42kP*t7*t4*t2*t3-2*t5*t1P*t42kP*t7*t4*t2-t7
*t7*t3P*t42kP*t4-2*t7*t7*t3P*(t1*t1)*t2*t42kP*t4+4*t6*t2P*t3*t42kP*t4*t5*t1*t2+2*t42kP
*t7*t7*t3P*k*t2*t3-2*t5*t1P*t42kP*t7*t4*t1*t2-t42kP*t6*t2P*k*t7-4*t42kP*t5*t2P*k*t6*t1
*t3+2*t42kP*t7*t3P*k*t5*t2*t3-t6*t2P*t2*t42kP*t4-2*t42kP*t5*t5*t2P*k*t3+(t2*t2)*(t4*t4)*t4P
*t7*t7*t32kP+t6*t2P*(t3*t3)*t42kP*t4*t7*t2-t5*t5*t1P*(t3*t3)*t42kP*t4+t5*t5*t12kP*(t2*t2)
*(t3*t3)*t4P*t4+2*t42kP*t1*t7*t3P*k*t5*t3+8*t42kP*t1*t3*t2P*k*t5-t5*t1P*(t3*t3)*t42kP*t7
*t4*t1-2*t4P*t4*t5*t1P*k*t1*t7*t3P*(t2*t2)-2*t4P*t4*t5*t1P*k*t1*t6*t2P*t3*t2-t4P*t5*t1P
*k*t6*t2P-2*t4P*t5*t1P*k*t7*t3P-2*t4P*t5*t1P*k*t7*t3P*t1-4*t4P*t5*t1P*k*t7*t3P*t2-2
*t4P*t3*t5*t1P*k*t1*t6*t2P*t2-2*t4P*t3*t5*t1P*k*t1*t7*t3P*(t2*t2)-2*t5*t1P*(t3*t3)*t42kP
*t7*t4*t1*t2-t4P*(t3*t3)*t5*t1P*k*t1*t6*t2P*t2-t6*t2P*t2*t1P*k*t4P*t5-t4P*t2*(t3*t3)*t5
*t1P*k*t6*t2P*t4-2*t4P*(t2*t2)*t3*t5*t1P*k*t7*t3P*t4-2*t4P*(t2*t2)*t3*t5*t1P*k*t7*t3P-4
*t4P*t2*t3*t5*t1P*k*t7*t3P*t4+2*t42kP*t3*t5*t1P*k*t1*t6+t42kP*t7*t7*t3P*k*(t2*t2)*t3+2
*t42kP*(t3*t3)*t2P*k*t7-t4P*t5*t5*t1*t2P*t2*t1P*(t4*t4)+t42kP*t2P*t2*t4+t6*t22kP*t4P
*t4-4*t42kP*t7*t1*t2P*k*t6*t3+2*t5*t1P*t4P*t2P*(t4*t4)*t3+2*t7*t3P*t1*t3*(t4*t4)*t4P*t2P-2
*t5*t1P*(t3*t3)*t42kP*t7*t4*t2-t7*t3P*(t2*t2)*t3*t42kP*t4*t5+2*t42kP*t1*t7*t3P*k*t6*t3-2
*t7*t3P*t2*t3*t42kP*t4*t5-t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4*t5+t42kP*t5*t5*t1P*k*t1-t42kP
*t5*t5*(t1*t1)*t2P*k*t2*(t3*t3)+2*t6*t2P*(t3*t3)*t42kP*t4*t7*t1+t7*t7*t32kP*(t1*t1)*(t2*t2)*t4P
*t4+4*t42kP*t1*t2P*k*t2*t7-t42kP*t7*t4*t5*t1P*(t2*t2)*(t3*t3)*t1+t42kP*t5*t5*t1P*k*(t2*t2)
+2*t42kP*t1*t7*t7*t3P*k*(t2*t2)*t3+t7*t3P*t42kP*t4-t6*t22kP*(t1*t1)*(t3*t3)*(t4*t4)*t4P*t7
+t42kP*t5*t5*(t1*t1)*t2P*t4*t2+2*t42kP*t5*t5*(t1*t1)*t2P*t4*t2*t3+t6*t22kP*(t1*t1)*(t3*t3)
*t4P*t4+t6*t22kP*(t1*t1)*(t3*t3)*t4P*(t4*t4)-t5*t1P*t1*t4P*t7*t2P*(t4*t4)*t2-2*t5*t1P*t1
*t4P*t7*t2P*(t4*t4)*t2*t3+2*t6*t22kP*t3*t4P*t4+t6*t22kP*(t3*t3)*t4P*t4-t7*t3P*(t4*t4)*t2P
*t2*t4P*t5*t3-2*t42kP*t5*(t1*t1)*t2P*t2*t4-t7*t3P*(t2*t2)*t42kP*t4*t6+t6*t22kP*(t3*t3)*(t4
*t4)*t4P-2*t42kP*t5*t2P*t4*(t1*t1)*t2*(t3*t3)+4*t42kP*t7*t7*t3*t2P*t4*t1+t42kP*t7*t7*(t3
*t3)*t2P*t4+2*t42kP*t7*t7*(t3*t3)*t2P*t4*t1+2*t42kP*t3*t2P*t4+t42kP*(t1*t1)*t2P*t4-2*t42kP
*t5*t2P*t4-t42kP*t6*(t2*t2)*t4*t5*t1P-t6*t2P*(t1*t1)*t42kP*t4*t2-4*t6*t22kP*t3*t4P*t5*t4
*t1-t6*t22kP*(t3*t3)*t4P*t5*t4-2*t6*t22kP*(t3*t3)*t4P*t5*t4*t1-2*t6*t22kP*t3*t4P*t5*(t4*t4)-4
*t6*t22kP*t3*t4P*t5*(t4*t4)*t1-2*t6*t22kP*t3*t4P*t7*t4-t6*t22kP*(t1*t1)*(t3*t3)*t4P*t5*t4
+t5*t5*t12kP*t4P*(t4*t4)*(t3*t3)+4*t6*t2P*t3*t42kP*t4*t7*t1-t5*t1P*(t3*t3)*t42kP*t7*t4+2
*t6*t2P*(t3*t3)*t42kP*t4*t5*t1-t7*t3P*t3*t42kP*t4*t6-t5*t5*t1P*t42kP*t4+t7*t7*t3P*t2P
*k*t2*t4P*(t1*t1)*t4+t6*t22kP*(t3*t3)*k*t4P*t5+t6*t22kP*(t3*t3)*k*t4P*t7-2*t5*t1P*t1*t3*t4
*t2P*k*t4P*t2+2*t5*t1P*t1*t3*t4*t2P*k*t4P*t7*t2-2*t7*t3P*t1*t4*t2P*k*t4P*t2*t3+2*t7*t7
*t3P*t3*t4*t2P*k*t4P*t1*t2+t4P*t5*t5*t4*t2P*k*t1P*t2*(t3*t3)+2*t4P*t5*t1*t2P*k*t2*t7
*t3P*t3-t7*t3P*(t1*t1)*t4*t2P*k*t4P-2*t7*t3P*t1*t4*t2P*k*t4P*t2-2*t4P*t3*t4*t2P*k*t2
*t5*t1P-t4P*(t3*t3)*t4*t2P*k*t2*t5*t1P+2*t7*t7*t3P*t2P*k*t2*t4P*t1-t6*t22kP*(t3*t3)*k
*t4P*t4+2*t7*t7*t3P*t2P*k*t2*t4P*t1*t3+t7*t7*t3P*t2P*k*t2*t4P*(t1*t1)*t3+t7*t7*t3P*t2P
*k*t2*t4P*t4+t4P*t5*t2P*k*t7*t3P*(t1*t1)*t3+t4P*t5*t5*t2P*k*t1P*(t3*t3)*t1+t4P*t5*t2P
*k*t7*t3P*t2*t3+t4P*t5*t5*t2P*k*t1P*t1+t4P*t5*t2P*k*t7*t3P*(t1*t1)+t4P*t7*t2P*k*t5
*t1P*t2*t4*t1+2*t4P*t7*t2P*k*t5*t1P*t2*t3*t1+t7*t7*t3P*(t1*t1)*t4*t2P*k*t4P-t4P*t3*t4
*t2P*k*t2*t7*t3P+t4P*t5*t2P*k*t7*t3P*t4*t3-t7*t3P*(t1*t1)*t4*t2P*k*t4P*t6-2*t7*t3P
*t1*t4*t2P*k*t4P*t6*t3+t7*t3P*(t1*t1)*t4*t2P*k*t4P*t5+2*t7*t7*t3P*t1*t4*t2P*k*t4P*t3
+2*t7*t3P*t1*t4*t2P*k*t4P*t5*t3+t4P*t5*t4*t2P*k*t2*t7*t3P*t3-t4P*t2P*k*t5*t1P*t2-t4P
*t2P*k*t5*t1P-t4P*t2P*k*t7*t3P-t4P*t2P*k*t5*t1P*t4+t4P*t7*t2P*k*t5*t1P-2*t4P
*t2P*k*t7*t3P*t1-t6*t22kP*(t1*t1)*k*t4P+t6*t22kP*(t1*t1)*k*t4P*t7+t6*t22kP*(t1*t1)*k*t4P
*t5-2*t6*t22kP*t1*k*t4P-t42kP*t6*t1*t4*t5*t1P-t7*t3P*t4*t2P*t2*t4P*t5*(t1*t1)-t5*t5*t1P
*t1*t4P*t2P*t4+2*t42kP*t5*(t3*t3)*t7*t2P*t4*t2+t4P*t7*(t3*t3)*t4*t2P*k*t5*t1P+t6*t22kP
*(t1*t1)*t4*k*t4P*t7-t7*t3P*t3*t2P*k*t4P*t6*(t1*t1)-2*t5*t1P*t1*t3*t4*t2P*k*t4P+t4P*t7
*t2P*k*t5*t1P*t2*t1+2*t4P*t7*t2P*k*t5*t1P*t2*t3*t4+t4P*t7*t7*t3*t4*t2P*k*t3P*t2+t4P
*t5*t5*t2P*k*t1P*t2+t4P*t5*t5*t2P*k*t1P+t4P*t5*t2P*k*t7*t3P+2*t4P*t5*t5*t2P*k*t1P
*t3+t4P*t5*t5*t2P*k*t1P*t4+2*t4P*t5*t2P*k*t7*t3P*t1+t4P*t5*t2P*k*t7*t3P*t2+t4P*t5
*t2P*k*t7*t3P*t4-t5*t1P*t1*(t3*t3)*t4*t2P*k*t4P*t2-2*t7*t3P*t3*t2P*k*t4P*t6*t1+t4P
*t7*t7*(t1*t1)*t2P*k*t3P*t3-2*t5*t1P*t3*t2P*k*t2*t4P-t4P*t2P*k*t5*t1P*t4*t1+4*t6*t22kP
*t1*t3*k*t4P*t5*t4+4*t6*t22kP*t1*t3*k*t4P*t7*t4-2*t6*t22kP*(t1*t1)*t3*k*t4P*t4-2*t6*t22kP
*t1*(t3*t3)*k*t4P*t4+t5*t1P*t2P*k*t2*t4P*t7+t7*t7*t3P*t2P*k*t2*t4P*t3+2*t6*t22kP*t3*k
*t4P*t7+2*t6*t22kP*t3*k*t4P*t5+2*t6*t22kP*t1*t4*k*t4P*t5+t5*t1P*(t3*t3)*t2P*k*t4P*t7-t7
*t3P*t2P*k*t2*t4P*(t1*t1)+4*t6*t22kP*t1*t3*k*t4P*t7+4*t6*t22kP*t1*t3*k*t4P*t5+2*t5*t1P
*t3*t2P*k*t4P*t7+2*t6*t22kP*(t1*t1)*t3*k*t4P*t7+2*t6*t22kP*t1*(t3*t3)*k*t4P*t5+2*t6*t22kP
*(t1*t1)*t3*k*t4P*t5+2*t6*t22kP*t1*(t3*t3)*k*t4P*t7-2*t7*t3P*t6*t2P*k*t2*t4P*t1*t4+t5*t5
*t1P*t1*(t3*t3)*t2P*k*t2*t4P+t6*t2P*t5*t1P*t4P*t1*t4+t7*t3P*t4*t2P*t2*t4P*t3-t4P
*t5*t5*t4*t2P*t2*t1P-t4P*t7*t4*t2P*t2*t5*t1P-t5*t5*t1P*(t3*t3)*t4*t2P*t2*t4P-2*t5*t1P
*t3*t4*t2P*t2*t4P*t7*t1-2*t5*t5*t1P*t3*t4*t2P*t2*t4P*t1-2*t42kP*t1*t7*t3P*k*(t2*t2)+2*t6
*t2P*(t3*t3)*t42kP*t4*t7*t1*t2-2*t5*t1P*t3*t4*t2P*t2*t4P*t7-t7*t3P*(t2*t2)*t3*t42kP*t4
*t5*(t1*t1)+(t4*t4)*(t1*t1)*t4P*t7*t7*t32kP+t6*t2P*t42kP*t4*t7+t42kP*t7*t7*t3P*k*t3-t7*t3P
*t3*t42kP*t4*t5+4*t42kP*t3*t2P*k*t5*t2+2*t5*t5*t12kP*t3*t4P*t4+4*t42kP*t1*t3*t2P*k*t6-4
*t42kP*t7*t2P*k*t5*t1*t2*(t3*t3)+t7*t3P*(t2*t2)*t3*t42kP*t4*(t1*t1)+2*t6*t2P*t1*t42kP*t4
*t7*t2+4*t5*t1P*t4*t7*t3P*t4P*t3*t2-2*t5*t5*t1P*t2*(t3*t3)*t42kP*t4*t1-2*t42kP*t7*t7*t2P
*k*t1*t2*(t3*t3)-t42kP*t7*t7*t2P*k*(t1*t1)*t2*(t3*t3)+2*t6*t2P*(t3*t3)*t42kP*t4*t5*t1*t2-2*t42kP
*t7*(t1*t1)*t2P*k*t5*(t3*t3)+t42kP*t7*t3P*k*t5*(t2*t2)*t3-t42kP*t7*t7*(t3*t3)*t2P*k+2*t42kP
*(t1*t1)*t7*t3P*k*t5*t2*t3+2*t42kP*t7*t7*t3P*k*t2-2*t5*t5*t1P*t2*t42kP*t4*t1+2*t42kP*t7*t7
*t3*t2P*t4-t5*t1P*t1*(t3*t3)*t4P*t7*t2P*t4-t6*t22kP*t4P*t7*t4-2*t6*t22kP*t4P*t7*t4*t1-t6
*t22kP*t4P*t7*(t4*t4)-8*t42kP*t5*t2P*t4*t1*t2*t3+t4P*(t3*t3)*t2P*t2*t5*t1P*t1*(t4*t4)+2
*t6*t2P*t1*t42kP*t4*t5-2*t42kP*(t1*t1)*t7*t2P*t4-t5*t1P*(t3*t3)*t4P*t7*t2P*t4+t42kP*t5
*t5*(t1*t1)*t2P*t4-4*t42kP*t7*t2P*t4*t3-2*t42kP*t7*t2P*t4*t2-4*t42kP*t7*t2P*t4*t2*t3-2
*t6*t22kP*t1*(t3*t3)*(t4*t4)*t4P*t5-t6*t22kP*(t1*t1)*(t3*t3)*(t4*t4)*t4P*t5-2*t42kP*(t1*t1)
*t7*t2P*t4*(t3*t3)-2*t42kP*(t1*t1)*t7*t2P*t4*(t3*t3)*t2+t42kP*t7*t7*(t1*t1)*t2P*t4+2*t42kP
*t5*t7*t2P*t4+4*t42kP*t5*t7*t2P*t4*t1+4*t42kP*t5*t7*t2P*t4*t3+8*t42kP*t5*t7*t2P*t4*t1*t3
+t7*t3P*t3*t4P*t2P*(t4*t4)+t5*t1P*t1*(t3*t3)*t4P*(t4*t4)*t6*t2P*t2-2*t7*t3P*t2*t3*t42kP
*t4*t6+2*t7*t3P*t1*t4P*t2P*t4+t7*t3P*(t1*t1)*t4P*t2P*t4+2*t7*t3P*t1*t4P*t2P*(t4*t4)
+t7*t3P*(t1*t1)*t4P*t2P*(t4*t4)-t7*t3P*(t1*t1)*t3*t4P*t5*t2P*(t4*t4)-2*t7*t7*t3P*t1*t3
*t4P*t2P*t4-t7*t7*t3P*(t1*t1)*t3*t4P*t2P*t4-2*t7*t7*t3P*t1*t3*t4P*t2P*(t4*t4)-t7*t7*t3P
*(t1*t1)*t3*t4P*t2P*(t4*t4)-2*t7*t7*t3P*t1*t3*t42kP*t4-t7*t3P*(t2*t2)*t3*t42kP*t4*t6*(t1
*t1)-t42kP*(t3*t3)*t5*t1P*k*t1*(t2*t2)+2*t42kP*t7*(t3*t3)*t5*t1P*k*t1*t2-2*t42kP*t1*t2P*k
*t2-4*t7*t3P*t1*t2*t42kP*t4*t5+t7*t3P*(t1*t1)*t3*t42kP*t4+t42kP*t2P*k*t6-t42kP*(t3*t3)
*t2P*k-2*t42kP*t5*t5*t2P*k*t1-t42kP*t5*t5*(t1*t1)*t2P*k*t2+t42kP*t6*t2P*k*t2*(t3*t3)-4
*t42kP*t6*t2*t4*t5*t1P*t3*t1-2*t42kP*t5*t2P*k*t7+t6*t2P*t4*t3P*t3*t4P*t7+t42kP*(t1*t1)
*t7*t3P*k*t5*(t2*t2)-2*t7*t3P*(t1*t1)*t2*t42kP*t4*t5+t6*t2P*(t3*t3)*t42kP*t4*t7*t2*(t1*t1)-t42kP
*(t1*t1)*t6*t2P*k*t2*t5*(t3*t3)+4*t42kP*t3*t2P*k*t5+t7*t3P*t4P*t2P*t4+4*t42kP*t5*(t3*t3)
*t7*t2P*t4*t1*t2+2*t42kP*t7*t7*t1*t2P*t4-t5*t5*t1P*t4P*t2P*t4*(t3*t3)-t5*t5*t1P*t4P*t2P
*(t4*t4)*(t3*t3)+2*t42kP*(t2*t2)*t3*t5*t1P*k*t6+t42kP*(t2*t2)*t5*t5*t1P*k*t1+t5*t1P*(t3*t3)
*t4*t2P*t2*t4P*t1+2*t42kP*t1*t7*t3P*k*t5+t6*t2P*(t3*t3)*t4P*t4*t5*t1P-4*t42kP*t2*t3*t5
*t1P*k+2*t6*t2P*t3*t42kP*t4*t7*(t1*t1)+t6*t2P*(t3*t3)*t42kP*t4*t7*(t1*t1)-2*t7*t3P*t1*(t2
*t2)*t42kP*t4*t5+4*t42kP*t1*t7*t7*t3P*k*t2-2*t42kP*t7*t2P*k*t5*(t1*t1)*t2*(t3*t3)-2*t42kP
*t7*t1*t2P*k*t6-2*t42kP*t5*t5*t1*t2P*k*t2+2*t42kP*t1*t7*t7*t3P*k+2*t7*t3P*t1*t42kP*t4+t7
*t3P*(t1*t1)*t42kP*t4+t7*t3P*t4*t2P*t2*t4P*(t1*t1)*t3+4*t7*t3P*t1*t2*t42kP*t4-t42kP*t1P
*k*t1*t5+4*t6*t2P*t3*t42kP*t4*t5*t1+2*t42kP*t7*t2*t1P*k*t5+t42kP*(t1*t1)*t6*t2P*k*t2+2*t42kP
*t7*t3*t5*t1P*k*t1-2*t42kP*t7*t7*t1*t2P*k-t42kP*t5*t5*t2P*k*(t3*t3)-t5*t5*t1P*(t2*t2)*t42kP
*t4*t1+2*t42kP*t1*t6*t2P*k*t2-2*t42kP*t5*t2P*k*t6*(t1*t1)*t3+t6*t2P*(t1*t1)*t42kP*t4*t5*t2
+t6*t2P*t2*t42kP*t4*t7+t6*t2P*(t1*t1)*t42kP*t4*t7*t2+2*t7*t3P*t4P*t5*t1P*t4+t4P*t5*t5
*t2P*k*t1P*(t3*t3)*t4-t4P*t3*t4*t6*t2P*k*t7*t3P+t5*t5*t1P*(t3*t3)*t2P*k*t2*t4P+t5*t1P
*(t3*t3)*t2P*k*t2*t4P*t7-t7*t3P*(t1*t1)*t2P*k*t4P*t6+t42kP*t6*t2P*k*t2-t42kP*(t2*t2)
*(t3*t3)*t5*t1P*k+2*t5*t5*t12kP*(t2*t2)*t3*t4P*t4-2*t7*t3P*t1*t3*t42kP*t4*t5+2*t5*t5*t12kP
*t2*(t3*t3)*t4P*t4-2*t4P*t4*t5*t1P*k*t1*t7*t3P-2*t5*t5*t12kP*t2*t4*k*t4P*(t3*t3)-t5*t5*t12kP
*(t2*t2)*t4*k*t4P-4*t5*t5*t12kP*t2*t4*k*t4P*t3-t6*t2P*(t3*t3)*t1P*k*t4P*t5-t5*t5*t12kP
*(t2*t2)*t4*k*t4P*(t3*t3)-2*t4P*t5*t1P*k*t7*t3P*(t2*t2)-2*t5*t5*t12kP*(t2*t2)*t4*k*t4P*t3-2
*t5*t5*t12kP*k*t4P*t3-2*t5*t5*t12kP*k*t4P*t2-t5*t5*t12kP*k*t4P*(t2*t2)-t5*t5*t12kP*k*t4P
*(t3*t3)-t5*t5*t12kP*k*t4P*t4-t4P*t2*(t3*t3)*t5*t1P*k*t6*t2P-2*t4P*t2*t3*t5*t1P*k*t6*t2P
*t4-2*t4P*t2*t3*t5*t1P*k*t6*t2P-4*t4P*t2*t3*t5*t1P*k*t7*t3P-4*t4P*t4*t5*t1P*k*t1*t7*t3P
*t2-4*t4P*t3*t5*t1P*k*t1*t7*t3P*t2-2*t5*t5*t12kP*k*t4P*t3*t4-2*t5*t5*t12kP*k*t4P*(t2*t2)
*t3-2*t4P*(t2*t2)*t5*t1P*k*t1*t7*t3P-t5*t5*t12kP*k*t4P*(t2*t2)*(t3*t3)-4*t5*t5*t12kP*k*t4P
*t2*t3-4*t42kP*t7*t2P*k*t5*t1*t2+t5*t5*t12kP*(t2*t2)*t4P*(t4*t4)*(t3*t3)+t42kP*(t1*t1)*t2P
*t4*(t3*t3)+t42kP*(t1*t1)*t2P*t4*(t3*t3)*t2-4*t42kP*t5*t2P*t4*t1-4*t42kP*t5*t2P*t4*t3-8*t42kP
*t5*t2P*t4*t1*t3-2*t42kP*t5*t2P*t4*t2-4*t42kP*t5*t2P*t4*t1*t2-4*t42kP*t5*t2P*t4*t2*t3+t42kP
*(t3*t3)*t2P*t4+t6*t22kP*(t4*t4)*t4P+t42kP*t5*t5*t2P*t4-t5*t5*t1P*(t3*t3)*t42kP*t4*t1-t42kP
*(t1*t1)*t2P*k*t2+2*t5*t1P*t3*t4*t2P*t2*t4P*t1-4*t42kP*t3*t5*t1P*k*t1*t2+2*t42kP*(t1*t1)
*t6*t2P*k*t2*t3-2*t7*t3P*(t2*t2)*t3*t42kP*t4*t5*t1-2*t42kP*t7*t2P*k*t5*(t1*t1)*t2-t42kP*t5
*t2P*k*t6*(t1*t1)+4*t6*t2P*t3*t42kP*t4*t7*t1*t2-t42kP*t5*t2P*k*t6*(t1*t1)*(t3*t3)+2*t6*t2P
*t3*t42kP*t4*t5*t2*(t1*t1)+4*t42kP*t6*t1*t2*t7*t3P*k*t3+4*t42kP*t1*t7*t3P*k*t5*t2+2*t42kP
*t1*t7*t3P*k*t5*(t2*t2)-2*t42kP*t1*t7*t3P*k*t3+t42kP*t5*t1P*k*t7+2*t6*t2P*t3*t42kP*t4*t7-2
*t42kP*t5*t5*t2P*k*t1*(t3*t3)-t5*t1P*(t3*t3)*t4*t2P*t2*t4P*t7+4*t5*t5*t12kP*t2*t4P*(t4
*t4)*t3+2*t42kP*(t3*t3)*t5*t5*t1P*k*t1*t2-t42kP*t5*t1P*k*(t2*t2)-t42kP*t6*t2P*k*t2*t7*(t3
*t3)+t42kP*t5*t1P*k*t7*t1-2*t6*t2P*(t3*t3)*t42kP*t4*t1+t6*t2P*t2*t4*t1P*t1*t4P*t5+t42kP
*(t2*t2)*t5*t1P*k*t1*t7-2*t7*t3P*t1*(t2*t2)*t42kP*t4*t6-t42kP*(t1*t1)*t7*t3P*k+2*t7*t3P*t2
*t3*t42kP*t4-t42kP*t5*t2P*k*t6-t5*t1P*(t3*t3)*t4*t2P*t2*t4P*t7*t1-t5*t5*t1P*(t3*t3)*t4
*t2P*t2*t4P*t1+4*t7*t3P*t4P*t5*t1P*t4*t2-t42kP*t7*t7*(t1*t1)*t2P*k+t7*t3P*(t2*t2)*t3
*t42kP*t4-t42kP*t7*t3P*k+2*t42kP*t7*t3P*k*t6*t2*t3+2*t42kP*t1*t7*t3P*k*t6-2*t42kP*t2
*t5*t1P*k*t1+t7*t7*t32kP*(t2*t2)*t4P*t4+2*t42kP*(t1*t1)*t3*t2P*k*t6-4*t42kP*t7*t7*t2P*k
*t1*t2*t3+2*t42kP*t5*t2P*k-2*t42kP*t7*t4*t5*t1P*(t2*t2)*t3+t6*t2P*t4P*t2*t5*t1P*t4-t4P
*t2*t5*t1P*k*t1*t6*t2P-4*t4P*t2*t5*t1P*k*t1*t7*t3P+4*t42kP*t1*(t3*t3)*t2P*k*t7+2*t42kP
*t5*t1P*k*t6*t3-t42kP*t5*t5*t2P*k*t2*(t3*t3)+t4P*t4*t2P*t2*t5*t1P*t1-2*t42kP*t5*t2P*k
*t6*t3+4*t5*t1P*t2*t42kP*t4*t1*t3+2*t7*t3P*(t2*t2)*t3*t4*t1P*t1*t4P*t5-2*t42kP*t3*t2P*k
+t42kP*t5*t1P*k*t6*t1+2*t42kP*t1*t7*t3P*k*t5*(t2*t2)*t3-t7*t7*t32kP*(t1*t1)*(t2*t2)*k*t4P
*t4-4*t42kP*(t1*t1)*t3*t5*t2P*t4+4*t2*(t4*t4)*t4P*t7*t7*t32kP*t1-t5*t1P*t42kP*t7*t4*t1+t42kP
*t5*t5*t1P*k*(t3*t3)-t42kP*t7*t3P*k*t3+t5*t5*t12kP*(t3*t3)*t4P*t4+4*t42kP*t1*t7*t3P*k*t5
*t2*t3-2*t42kP*t7*t7*(t1*t1)*t2P*k*t3+2*t42kP*t2*(t3*t3)*t5*t1P*k*t7-t42kP*t5*t2P*k*t6*(t3
*t3)+2*t42kP*t6*(t1*t1)*t2*t7*t3P*k*t3-4*t42kP*t1*t3*t2P*k*t2+2*t7*t3P*(t2*t2)*t3*t42kP*t4
*t1-2*t42kP*t7*t3P*k*t2*t3+t42kP*(t3*t3)*t5*t5*t1P*k*t1+4*t42kP*(t1*t1)*t3*t2P*k*t5*t2-2
*t42kP*(t3*t3)*t5*t2P*t4-t7*t3P*t2P*t2*t4P*t5*(t4*t4)-t6*t22kP*(t3*t3)*(t4*t4)*t4P*t7+2
*t42kP*t5*t5*t1*t2P*t4*(t3*t3)-2*t42kP*(t1*t1)*(t3*t3)*t5*t2P*t4+t7*t3P*(t4*t4)*t2P*t2*t4P
*t3+8*t42kP*t5*t3*t2P*t2*t7*t4*t1+2*t42kP*t7*t7*(t1*t1)*t2P*t4*t3+t42kP*t7*t7*(t1*t1)*t2P
*t4*t2+2*t42kP*t7*t7*(t1*t1)*t2P*t4*t2*t3+t6*t2P*t4P*t4*t7*t3P+t6*t2P*t4P*t4*t5*t1P-2
*t7*t3P*t2*t42kP*t4*t6-2*t7*t3P*t1*t3*(t4*t4)*t4P*t5*t2P-2*t5*t5*t1P*t4P*t2P*t4*t3-t5
*t5*t1P*t4P*t2P*(t4*t4)-2*t5*t5*t1P*t4P*t2P*(t4*t4)*t3-t5*t5*t1P*t4P*t2P*(t4*t4)*t2-2
*t5*t5*t1P*t4P*t2P*(t4*t4)*t2*t3+2*t7*t3P*t1*t4P*t2P*(t4*t4)*t2+t7*t3P*(t1*t1)*t4P*t2P
*(t4*t4)*t2-t5*t5*t1P*t1*(t3*t3)*(t4*t4)*t4P*t2P+t42kP*t5*t5*(t3*t3)*t2P*t4+t42kP*t1*(t2
*t2)*t4*t5*t1P*(t3*t3)-4*t7*t3P*t2*t3*t42kP*t4*t6*t1+t5*t1P*t42kP*t4*t1-t5*t1P*t4P*t7*t2P
*(t4*t4)*t2+2*t6*t22kP*t1*t4P*t4-t6*t22kP*(t3*t3)*(t4*t4)*t4P*t5+4*t42kP*t5*t5*t3*t2P*t2
*t4*t1+t42kP*t5*t5*(t3*t3)*t2P*t2*t4+2*t42kP*t5*t5*(t3*t3)*t2P*t2*t4*t1-t5*t1P*(t3*t3)*(t4
*t4)*t4P*t7*t2P-t5*t1P*(t3*t3)*(t4*t4)*t4P*t7*t2P*t2-2*t42kP*(t3*t3)*t7*t2P*t4+2*t6*t2P
*t1*t42kP*t4*t7+2*t6*t2P*t3*t4P*t4*t5*t1P+t7*t3P*(t4*t4)*t2P*t2*t4P-t6*t22kP*(t3*t3)
*t4P*t7*t4-t5*t5*t1P*t1*(t3*t3)*t4P*t2P*t4-t7*t7*t3P*(t1*t1)*t4P*t2P*t4-t5*t1P*(t3*t3)
*t42kP*t6*t4+t5*t1P*t1*t4P*t2P*t4*(t3*t3)+t5*t1P*t1*t4P*t2P*(t4*t4)*(t3*t3)+t7*t3P*t3
*t4P*t2P*t4+2*t6*t2P*t1*t4P*t4*t7*t3P-t5*t1P*t42kP*t7*t4+t42kP*t7*t7*(t3*t3)*t2P*t4
*(t1*t1)*t2+2*t42kP*t5*(t3*t3)*t7*t2P*t4+t5*t1P*t1*t4P*t2P*t4+2*t42kP*t5*(t1*t1)*t7*t2P
*t4-2*t6*t2P*t3*t42kP*t4*(t1*t1)*t2+4*t42kP*t5*t1*t2P*k*t2-t42kP*(t1*t1)*t7*t3P*k*(t2*t2)
*t3-2*t42kP*(t1*t1)*t3*t2P*k*t2+t6*t2P*(t3*t3)*t5*t1P*t4P*t1*t4+2*t7*t3P*(t2*t2)*t5*t1P
*t4P*t1*t4-2*t42kP*t7*t7*t2P*k*(t1*t1)*t2*t3+2*t42kP*t2P*k*t6*t1+2*t5*t5*t12kP*(t2*t2)*t4P
*(t4*t4)*t3+t7*t3P*(t1*t1)*t3*t4P*t2P*t4+t7*t3P*(t1*t1)*t3*(t4*t4)*t4P*t2P+2*t7*t3P*t1
*t3*(t4*t4)*t4P*t2P*t2+t7*t3P*(t1*t1)*t3*(t4*t4)*t4P*t2P*t2+t6*t2P*t42kP*t4*t5-2*t42kP
*t3*t2P*k*t2-2*t5*t5*t1P*t3*t42kP*t4*t1-2*t42kP*t7*(t1*t1)*t2P*k*t6*t3+2*t5*t1P*t3*t4*t2P
*t2*t4P-2*t42kP*t1*t7*t3P*k+t42kP*t7*t3P*k*t5*t3-2*t42kP*(t3*t3)*t5*t1P*k*t1*t2+t42kP
*(t2*t2)*(t3*t3)*t5*t5*t1P*k+t42kP*t6*(t1*t1)*(t2*t2)*t7*t3P*k*t3+2*t42kP*t1*(t3*t3)*t2P*k
*t6-t42kP*(t1*t1)*(t3*t3)*t2P*k-t42kP*t7*t4*t5*t1P*(t2*t2)+2*t42kP*t6*t2P*k*t2*t3-t42kP
*t7*t3P*k*(t2*t2)-2*t7*t7*t3P*t2*t3*t42kP*t4*(t1*t1)-t42kP*t7*t7*t2P*k*(t1*t1)*t2+t42kP*(t1
*t1)*t7*t7*t3P*k+2*t42kP*t2*t5*t1P*k*t1*t7+4*t42kP*t1*(t3*t3)*t2P*k*t5-t7*t7*t3P*(t2*t2)
*t42kP*t4+2*t42kP*(t3*t3)*t2P*k*t5-2*t42kP*t6*t2P*k*t2*t5*t3+4*t42kP*t1*t7*t3P*k*t6*t2
+2*t42kP*t7*t3P*k*t5*t2+2*t42kP*(t3*t3)*t2P*k*t7*t2-2*t6*t2P*t1*t42kP*t4*t2-2*t5*t1P*t3
*t42kP*t6*t4*t1-2*t7*t7*t3P*(t2*t2)*t3*t42kP*t4*t1+4*t7*t3P*t3*t4P*(t4*t4)*t5*t1P*t2+2*t7
*t3P*t3*t4P*(t4*t4)*t5*t1P+t7*t3P*t3*t4P*(t4*t4)*t6*t2P+2*t6*t2P*t1*t2*t3*t4P*(t4*t4)
*t7*t3P+2*t42kP*t5*t5*t3*t2P*t4-8*t42kP*t1*t7*t2P*t4*t3-4*t42kP*t1*t7*t2P*t4*t2-8*t42kP
*t1*t7*t2P*t4*t2*t3-t7*t3P*t3*t4P*t5*t2P*t4-2*t7*t3P*t3*t4P*t5*t2P*t4*t1-t7*t3P*t3*t4P
*t5*t2P*(t4*t4)+2*t5*t1P*t3*t42kP*t4+t7*t3P*t3*t4P*(t4*t4)*t6*t2P*t2+2*t7*t3P*t3*t4P
*(t4*t4)*t5*t1P*(t2*t2)+t5*t1P*(t3*t3)*t42kP*t4*t1+2*t5*t1P*t3*t42kP*t4*t1+t5*t1P*(t3*t3)
*t42kP*t4+2*t5*t1P*(t3*t3)*t42kP*t4*t2+t2*(t4*t4)*t4P*t7*t3P*t6*t2P*(t1*t1)+t7*t7*t32kP
*(t1*t1)*t4P*t4-2*t42kP*t5*t5*t2P*k*(t1*t1)*t3+4*t42kP*t2*t3*t5*t5*t1P*k+2*t42kP*(t2*t2)
*t3*t5*t5*t1P*k+2*t42kP*(t1*t1)*t7*t7*t3P*k*t2*t3+2*t42kP*t6*t1*(t2*t2)*t7*t3P*k*t3-t6*t2P
*t42kP*t4-t42kP*t7*t7*t2P*k+t42kP*t7*t3P*k*t5-2*t42kP*t5*t2P*k*t6*t1*(t3*t3)-8*t42kP
*t7*t1*t2P*k*t5*t3-2*t42kP*t3*t6*t2P*k*t7-t42kP*(t3*t3)*t2P*k*t2-t7*t3P*t4*t2P*t2*t4P
*t5*t3+t42kP*(t1*t1)*t6*t2P*k*t2*(t3*t3)-t42kP*t5*t1P*k*(t3*t3)-2*t7*t3P*t1*t42kP*t4*t6+t6
*t2P*(t1*t1)*t2*t3*t4P*(t4*t4)*t7*t3P+t5*t1P*t2*t4P*(t4*t4)*t6*t2P+4*t5*t1P*t2*t4P*(t4
*t4)*t7*t3P-4*t7*t3P*t2*t3*t42kP*t4*t5*t1+2*t7*t7*t32kP*t1*t4P*t4+2*t7*t3P*t3*t4P*(t4*t4)
*t6*t2P*t1-4*t42kP*t6*t2*t4*t5*t1P*t3-2*t7*t3P*(t1*t1)*t2*t42kP*t4*t6+(t4*t4)*t4P*t7*t7*t32kP
+t5*t5*t12kP*t4P*(t4*t4)-2*t5*t5*t1P*t2*(t3*t3)*t42kP*t4+t5*t1P*t4P*(t4*t4)*t6*t2P*t1+2
*t5*t1P*t4P*(t4*t4)*t6*t2P*t3+t5*t1P*t4P*(t4*t4)*t6*t2P+2*t5*t1P*t4P*(t4*t4)*t7*t3P
+2*t5*t1P*t4P*(t4*t4)*t7*t3P*t1+t5*t1P*t4P*(t4*t4)*t6*t2P*(t3*t3)+2*t7*t3P*(t2*t2)*t4P
*t5*t1P*t4-t5*t1P*(t3*t3)*t42kP*t6*t4*t1+2*t5*t1P*(t2*t2)*t4P*(t4*t4)*t7*t3P*t1-2*t42kP
*t6*(t2*t2)*t4*t5*t1P*t3*t1+4*t5*t1P*t1*t3*t4P*(t4*t4)*t7*t3P*t2+t5*t1P*(t2*t2)*t42kP*t4
*t1-2*t7*t7*t3P*t1*(t2*t2)*t42kP*t4+t7*t3P*t3*t4P*(t4*t4)*t6*t2P*(t1*t1)+t5*t1P*t42kP*t4-2
*t5*t1P*t3*(t4*t4)*t4P*t7*t2P*t2-4*t5*t5*t1P*t2*t3*t42kP*t4+2*t5*t1P*t1*t3*t4P*(t4*t4)
*t7*t3P*(t2*t2)+2*t5*t1P*t1*t3*t4P*(t4*t4)*t6*t2P*t2-2*t7*t3P*t1*t4P*t5*t2P*t4+t7*t3P
*(t4*t4)*t4P*t2P+2*t42kP*t5*(t3*t3)*t7*t2P*t4*(t1*t1)*t2+4*t42kP*t1*t2P*t4*t3-2*t5*t1P
*t3*t42kP*t6*t4+2*t6*t2P*t3*t42kP*t4*t5*t2-4*t6*t2P*t3*t42kP*t4*t1*t2+4*t5*t1P*t2*t4P*(t4
*t4)*t7*t3P*t1+2*t5*t1P*(t2*t2)*t4P*(t4*t4)*t7*t3P+t5*t1P*t2*t4P*(t4*t4)*t6*t2P*(t3*t3)
+2*t5*t1P*t2*t42kP*t4*t1+2*t5*t1P*(t2*t2)*t42kP*t4*t3+2*t2*(t4*t4)*t4P*t7*t3P*t6*t2P*t1
+t5*t1P*(t2*t2)*t42kP*t4+2*(t4*t4)*t1*t4P*t7*t7*t32kP+t6*t2P*(t3*t3)*t42kP*t4*t5*t2-t7*t3P
*(t1*t1)*(t4*t4)*t4P*t5*t2P+t42kP*(t1*t1)*t2P*t4*t2+4*t42kP*t1*t2P*t4*t2*t3+2*t42kP*(t1
*t1)*t2P*t4*t2*t3+4*t7*t3P*t2*t3*t42kP*t4*t1+t5*t1P*t2*t4P*(t4*t4)*t6*t2P*t1+2*t5*t1P*t2
*t4P*(t4*t4)*t6*t2P*t3+t5*t1P*t1*(t3*t3)*t4P*(t4*t4)*t6*t2P+2*t42kP*t1*t2*t4*t5*t1P*(t3
*t3)+t2*(t4*t4)*t4P*t7*t3P*t6*t2P+2*t5*t1P*t1*t3*t4P*(t4*t4)*t6*t2P+2*t5*t1P*t1*t3*t4P
*(t4*t4)*t7*t3P+(t4*t4)*t4P*t7*t3P*t6*t2P+4*t7*t7*t32kP*t1*t2*t4P*t4+4*t5*t1P*t2*t42kP
*t4*t3-t5*t1P*t1*t4P*t7*t2P*(t4*t4)-2*t5*t1P*t1*t4P*t7*t2P*(t4*t4)*t3-2*t5*t1P*t3*t4P
*t7*t2P*t4-t7*t3P*(t4*t4)*t4P*t5*t2P-t7*t7*t3P*t3*(t4*t4)*t4P*t2P-t7*t7*t3P*t3*(t4*t4)
*t4P*t2P*t2+2*t7*t3P*t1*t3*t4P*t2P*t4-2*t7*t3P*(t4*t4)*t4P*t5*t2P*t1-4*t42kP*(t1*t1)
*t7*t2P*t4*t3-2*t42kP*(t1*t1)*t7*t2P*t4*t2-4*t42kP*(t1*t1)*t7*t2P*t4*t2*t3+2*t6*t22kP*t1
*t4P*t4*(t3*t3)+2*t6*t2P*t3*t42kP*t4*t7*t2-t7*t3P*t4P*t5*t2P*t4-t6*t22kP*t4P*t5*t4-t6
*t22kP*t4P*t5*(t4*t4)+2*t5*t1P*t4P*t2P*t4*t3+t5*t1P*t4P*t2P*(t4*t4)+2*t42kP*t5*t5*(t1
*t1)*t2P*t4*t3-t7*t3P*(t1*t1)*t4P*t5*t2P*t4+2*t6*t2P*t3*t42kP*t4*t7*t2*(t1*t1)+t6*t2P*(t1
*t1)*t4P*t4*t7*t3P-2*t42kP*t7*t2P*t4+2*t42kP*t5*t7*t2P*t4*t2+4*t42kP*t5*t7*t2P*t4*t1
*t2+2*t6*t22kP*t3*(t4*t4)*t4P-2*t6*t22kP*t1*(t4*t4)*t4P*t7+t42kP*t7*t7*t2P*t4-4*t42kP*t5
*t2P*k*t7*t3-t42kP*t6*t2P*k*t2*t7-4*t42kP*t5*t2P*k*t7*t2*t3-2*t7*t7*t3P*t2*t42kP*t4-t42kP
*t5*t1P*k-2*t42kP*(t1*t1)*t3*t2P*k-4*t42kP*t1*t3*t2P*k-t42kP*(t1*t1)*t7*t3P*k*(t2*t2)+t5
*t1P*(t3*t3)*t4*t2P*t2*t4P*t6+2*t42kP*t3*t5*t5*t1P*k*t1*(t2*t2)+t42kP*t7*t3P*k*t6*(t2*t2)
*t3-2*t42kP*t2P*k*t1+2*t42kP*t2P*k*t7+4*t42kP*t1*t2P*k*t2*t7*(t3*t3)-2*t5*t1P*t1*t4P
*t7*t2P*t4*t3+8*t42kP*t1*t3*t2P*k*t7+2*t5*t5*t12kP*t2*t4P*(t4*t4)+t6*t2P*(t3*t3)*t42kP
*t4*t7+2*t7*t3P*t2*t42kP*t4+4*t42kP*t1*t7*t7*t3P*k*t2*t3-4*t42kP*t7*t7*t1*t2P*k*t3-2*t42kP
*t1*t7*t3P*k*(t2*t2)*t3-2*t6*t2P*t3*t42kP*t4*t2+t42kP*t7*t3P*k*t6+2*t2*(t4*t4)*t4P*t7*t7
*t32kP+2*t42kP*(t1*t1)*(t3*t3)*t2P*k*t5-t42kP*t6*t2P*k*t2*t5*(t3*t3)-2*t7*t3P*t1*t42kP
*t4*t5-t42kP*t2P*k-t42kP*t7*t4*t5*t1P*(t2*t2)*(t3*t3)+2*t42kP*t5*t1P*k*t7*t3+t42kP*t5*t5
*t1P*k+t6*t2P*t4*t3P*t3*t4P*t7*(t1*t1)-t42kP*t5*t5*t2P*k*(t1*t1)*(t3*t3)+8*t42kP*t1*t2P
*k*t2*t7*t3-2*t7*t3P*t2*t42kP*t4*t5-2*t42kP*t1*t6*t2P*k*t2*t7*(t3*t3)-4*t42kP*t1*t6*t2P*k
*t2*t5*t3-t7*t7*t3P*t4*t2P*t2*t4P+t5*t1P*(t3*t3)*t4*t2P*t2*t4P+2*t42kP*t5*t1P*k*t6*t2
+2*t42kP*t3*t5*t5*t1P*k*t1+2*t7*t3P*t4*t2P*t2*t4P*t6*t1-2*t7*t7*t3P*t4*t2P*t2*t4P*t1
+2*t5*t1P*t3*t4*t2P*t2*t4P*t6-2*t5*t5*t1P*t3*t4*t2P*t2*t4P+t7*t3P*t4*t2P*t2*t4P*(t1
*t1)-t6*t2P*(t3*t3)*t42kP*t4*t2+2*t42kP*(t1*t1)*t7*t3P*k*t6*t2-4*t42kP*t1*t7*t3P*k*t2+t5
*t5*t12kP*t4P*t4-t42kP*(t3*t3)*t5*t1P*k*t1-2*t42kP*t7*t7*t3*t2P*k+2*t42kP*(t1*t1)*t7*t7
*t3P*k*t2-2*t42kP*t1*t6*t2P*k*t2*t5-2*t42kP*t5*t5*t1*t2P*k*t2*(t3*t3)-t42kP*(t1*t1)*t6*t2P
*k*t2*t7*(t3*t3)-t42kP*(t1*t1)*t6*t2P*k*t2*t7+4*t42kP*t7*t3*t5*t1P*k*t1*t2-2*t7*t3P*t1*t3*t42kP
*t4*t6+4*t42kP*t1*t6*t2P*k*t2*t3+2*t42kP*(t1*t1)*t2P*k*t2*t7*(t3*t3)+t42kP*(t2*t2)*t4*t5*t1P
*(t3*t3)+t42kP*t7*t3P*k*t6*(t2*t2)+t6*t2P*(t3*t3)*t4*t1P*t1*t4P*t5*t2+4*t42kP*(t1*t1)*t3
*t2P*k*t7+2*t42kP*t2*t5*t5*t1P*k*t1+2*t42kP*t5*t2P*k*t2-2*t42kP*(t2*t2)*t3*t5*t1P*k-t42kP
*t5*t5*t2P*k*(t1*t1)+4*t5*t5*t12kP*t2*t3*t4P*t4-8*t42kP*t7*t2P*k*t5*t1*t2*t3+t42kP*(t3*t3)
*t5*t5*t1P*k*t1*(t2*t2)+2*t2*(t4*t4)*t4P*t7*t7*t32kP*(t1*t1)-4*t42kP*t5*t5*t1*t2P*k*t2*t3+2
*t42kP*t7*t3P*k*t6*t2-t7*t7*t3P*(t1*t1)*t3*t42kP*t4-t6*t2P*(t3*t3)*t42kP*t4*(t1*t1)-t42kP
*(t1*t1)*t7*t3P*k*t3-2*t5*t5*t1P*t3*t42kP*t4-t42kP*t5*t5*t2P*k*t2-4*t5*t5*t1P*t2*t3*t42kP
*t4*t1-2*t42kP*t1*(t3*t3)*t2P*k-2*t7*t7*t3P*t4*t2P*t2*t4P*t1*t3+2*t6*t2P*t3*t42kP*t4*t5
*(t1*t1)+t42kP*t7*t3P*k*t5*(t2*t2)+t42kP*(t3*t3)*t5*t1P*k*t1*t6-t7*t3P*(t1*t1)*t42kP*t4*t5-t42kP
*t7*(t1*t1)*t2P*k*t6*(t3*t3)+2*t5*t5*t12kP*t2*t4P*(t4*t4)*(t3*t3)-t7*t7*t3P*t4*t2P*t2*t4P
*(t1*t1)+4*t42kP*t5*t2P*k*t1+t7*t3P*t4*t2P*t2*t4P*t6*t3-2*t7*t3P*t4*t2P*t2*t4P*t5*t1
*t3-t42kP*(t2*t2)*t5*t1P*k*t1+t42kP*(t3*t3)*t5*t1P*k*t1*t6*(t2*t2)+t7*t3P*t3*t42kP*t4-2*t7
*t3P*t2*t3*t42kP*t4*t5*(t1*t1)+t42kP*(t1*t1)*t7*t3P*k*t6-t7*t7*t3P*t4P*t2P*t4-2*t7*t7*t3P
*t4P*t2P*t4*t1-t7*t7*t3P*t4P*t2P*(t4*t4)-2*t7*t7*t3P*t4P*t2P*(t4*t4)*t1-t6*t22kP*(t1
*t1)*t4P*t7*t4-2*t6*t22kP*(t1*t1)*t4P*t7*t4*t3-t6*t22kP*(t1*t1)*t4P*t7*(t4*t4)+2*t6*t22kP
*(t1*t1)*t3*t4P*t4-2*t6*t22kP*(t1*t1)*t4P*t7*(t4*t4)*t3+t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4-2*t7
*t7*t3P*t1*t3*t4P*t2P*(t4*t4)*t2-t7*t7*t3P*(t1*t1)*t3*t4P*t2P*(t4*t4)*t2-4*t6*t22kP*t1
*t3*(t4*t4)*t4P*t7-t7*t7*t3P*(t4*t4)*t2P*t2*t4P-2*t7*t7*t3P*(t4*t4)*t2P*t2*t4P*t1-2*t42kP
*t5*t2P*t4*(t1*t1)+2*t42kP*t5*t5*t1*t2P*t4+4*t42kP*t5*t5*t1*t2P*t4*t3+2*t42kP*t5*t5*t1*t2P
*t4*t2-2*t4P*t5*t5*t1*t2P*t2*t1P*(t4*t4)*t3+t5*t1P*t4P*t2P*t4-4*t7*t7*t3P*t2*t3*t42kP
*t4*t1-2*t5*t5*t1P*t2*t42kP*t4+2*t42kP*t5*(t1*t1)*t7*t2P*t4*t2+4*t42kP*t5*(t1*t1)*t7*t2P
*t4*t2*t3-t5*t1P*t1*t4P*t7*t2P*t4-t7*t7*t3P*(t1*t1)*(t4*t4)*t4P*t2P-t7*t7*t3P*(t1*t1)*(t4
*t4)*t4P*t2P*t2-t5*t1P*(t3*t3)*(t2*t2)*t42kP*t6*t4*t1-2*t5*t1P*(t3*t3)*t2*t42kP*t6*t4*t1-2
*t42kP*t6*t2*t4*t5*t1P*t1-t5*t1P*(t3*t3)*(t2*t2)*t42kP*t6*t4-2*t42kP*t6*(t2*t2)*t4*t5*t1P
*t3-2*t6*t22kP*(t1*t1)*t3*(t4*t4)*t4P*t5+2*t6*t22kP*t1*t4P*(t4*t4)*(t3*t3)-4*t42kP*(t3*t3)
*t5*t2P*t4*t1-2*t42kP*(t3*t3)*t5*t2P*t4*t2-4*t42kP*(t3*t3)*t5*t2P*t4*t1*t2+t5*t1P*(t3*t3)
*(t4*t4)*t4P*t2P+t5*t1P*(t3*t3)*(t4*t4)*t4P*t2P*t2-2*t5*t1P*(t3*t3)*t2*t42kP*t6*t4-2*t42kP
*t7*t4*t5*t1P*(t2*t2)*t3*t1-2*t42kP*t6*t2*t4*t5*t1P-t7*t3P*(t1*t1)*t3*t42kP*t4*t5+2*t42kP
*(t3*t3)*t2P*t4*t1+2*t42kP*t3*t2P*t4*t2+t42kP*(t3*t3)*t2P*t4*t2+2*t42kP*(t3*t3)*t2P*t4
*t1*t2+2*t42kP*t5*t5*t3*t2P*t2*t4-2*t7*t3P*(t4*t4)*t2P*t2*t4P*t5*t1*t3+(t2*t2)*(t4*t4)*t4P
*t7*t7*t32kP*(t1*t1)-2*t6*t2P*(t3*t3)*t42kP*t4*t1*t2+2*t42kP*t7*t7*t2P*t2*(t3*t3)*t4*t1+t42kP
*t7*t7*t2P*t2*(t3*t3)*t4+2*t42kP*t1*t2P*t4*t2-t7*t7*t3P*t3*t4P*t2P*t4+2*t5*t1P*t1*t4P
*t2P*t4*t3+t5*t1P*t1*t4P*t2P*(t4*t4)+2*t5*t1P*t1*t4P*t2P*(t4*t4)*t3+t5*t1P*t1*t4P*t2P
*(t4*t4)*t2+2*t42kP*t7*t7*t2P*t2*t4*t1-t5*t1P*t4P*t7*t2P*t4-t5*t1P*t4P*t7*t2P*(t4*t4)
+2*t7*t3P*(t1*t1)*t2*t42kP*t4-t7*t7*t3P*(t2*t2)*t3*t42kP*t4*(t1*t1)-2*t7*t7*t3P*t2*t3*t42kP
*t4+t6*t2P*(t3*t3)*t42kP*t4*t5*(t1*t1)-t5*t5*t1P*t1*t42kP*t4+2*t7*t3P*t1*(t2*t2)*t42kP*t4)
if (k > 0) test <- abs(A46/a[4,6])
a[4,6] <- a[4,6] + A46
k <- k+1
}
if (k == maximumIteration) {
return(list("flag"=1))
break
}
##A47
test <- 100.0
k <- 0
while (test > criteria & k < maximumIteration)
{
t1P <- pow((t1/(1+t1)),k)
t2P <- pow((t2/(1+t2)),k)
t3P <- pow((t3/(1+t3)),k)
t4P <- pow((t4/(1+t4)),k)
t12kP <- pow((t1/(1+t1)),(2*k))
t22kP <- pow((t2/(1+t2)),(2*k))
t32kP <- pow((t3/(1+t3)),(2*k))
t42kP <- pow((t4/(1+t4)),(2*k))
A47 <- -1/(1+t4)/t4*pow(t7*t3P+t6*t2P+t5*t1P+t4P-t4P*t5*t1*t2*t3+t5*t1P*t2+t6*t2P*t4+t6*t2P
*t3+t6*t2P*t1+t7*t3P*t4+t7*t3P*t2+t7*t3P*t1-t4P*t6*t2-t4P*t7*t3-t4P*t5*t1+t4P*t2*t3-t4P
*t5*t3-t4P*t5*t2+t4P*t1*t3-t4P*t6*t3-t4P*t6*t1+t4P*t1*t2-t4P*t7*t2-t4P*t7*t1+t5*t1P*t4
+t5*t1P*t3+t4P*t3-t4P*t5-t4P*t6-t4P*t7+t4P*t2+t4P*t1+t5*t1P*t2*t4+t5*t1P*t3*t4+t5*t1P
*t2*t3+t6*t2P*t1*t4+t6*t2P*t3*t4+t6*t2P*t1*t3+t7*t3P*t2*t4+t7*t3P*t1*t2+t7*t3P*t1*t4-t4P
*t7*t1*t2-t4P*t6*t2*t3-t4P*t6*t1*t2-t4P*t7*t2*t3-t4P*t7*t1*t3-t4P*t6*t1*t3-t4P*t5*t1*t2-t4P
*t5*t1*t3-t4P*t5*t2*t3+t4P*t1*t2*t3-t4P*t6*t1*t2*t3+t5*t1P*t2*t3*t4+t6*t2P*t1*t3*t4+t7*t3P
*t1*t2*t4-t4P*t7*t1*t2*t3,-2)*(-2*t42kP*t5*t5*t3P*k*t2-t6*t2P*(t1*t1)*t42kP*t4*t5-2*t42kP
*t3*t5*t1P*k*t1*(t2*t2)-t42kP*(t1*t1)*t7*t3P*k*t5*(t2*t2)*t3+t42kP*(t2*t2)*t5*t1P*k*t1*t6+2
*t6*t2P*t3*t42kP*t4+2*t42kP*t1*t6*t2P*k*t2*t5*(t3*t3)+2*t7*t3P*(t2*t2)*t3*t42kP*t4*t6*t1
+2*t6*t6*t22kP*t1*t4P*t4+2*t42kP*t2*(t3*t3)*t5*t5*t1P*k-2*t42kP*t5*(t1*t1)*t3P*k*t6*(t2*t2)-t6
*t6*t2P*(t3*t3)*t42kP*t4+t7*t3P*(t1*t1)*t42kP*t4*t6+2*t42kP*t2*(t3*t3)*t5*t1P*k*t6-t42kP
*(t1*t1)*t7*t3P*k*t6*t3+4*t42kP*(t1*t1)*t2*t3P*k*t3*t6-2*t42kP*t6*t6*t3P*k*t1*(t2*t2)+t6*t2P
*(t3*t3)*t42kP*t4+2*t42kP*t7*t3*t5*t1P*k*t1*(t2*t2)-2*t42kP*t6*t6*t2*t3P*k*t3*(t1*t1)-t42kP
*t3P*k-t42kP*(t1*t1)*t3P*k+2*t42kP*t7*t3P*k*t2-t42kP*t7*t4*t5*t1P*(t2*t2)*t1+t42kP*t7
*(t2*t2)*t1P*k*t5+t42kP*(t2*t2)*(t3*t3)*t5*t1P*k*t7+t42kP*t5*t1P*k*t6+2*t42kP*t6*t2P*k
*t2*t7*t3-t6*t6*t2P*(t3*t3)*t42kP*t4*t2-2*t42kP*t2*t3P*k*t3+2*t5*t1P*t3P*t3*t4*t4P*t2+t42kP
*t7*(t3*t3)*t5*t1P*k*t1-t5*t5*t1P*(t2*t2)*(t3*t3)*t42kP*t4*t1-t42kP*t3P*k*t3-t42kP*(t1*t1)
*t7*t3P*k*t6*(t2*t2)-2*t4P*t6*t4*t3P*t3*t5*t1P*t2-t5*t5*t1P*(t2*t2)*t42kP*t4-t42kP*(t3
*t3)*t2P*k*t6+2*t42kP*t3*t5*t1P*k*t1*t6*(t2*t2)-t4P*t3*t4*t6*t2P*k*t2*t7*t3P-t6*t6*t22kP
*(t1*t1)*t4*k*t4P-2*t7*t3P*t1*t2P*k*t4P*t6-2*t7*t3P*t6*t2P*k*t2*t4P*t1*t3-2*t7*t3P*t6
*t2P*k*t2*t4P*t1-t7*t3P*t6*t2P*k*t2*t4P*(t1*t1)*t4-t5*t5*t1P*t3P*t3*t4*t4P*t1*(t2*t2)-t42kP
*(t1*t1)*t7*t3P*k*t5*t3-t6*t2P*t4*t3P*t3*t4P*t5*t2+2*t6*t2P*t4*t3P*t3*t4P*t7*t1-2*t6*t6
*t2P*t4*t3P*t3*t4P*t1+t5*t5*t12kP*(t2*t2)*t4P*(t4*t4)+2*t42kP*(t2*t2)*t3*t5*t1P*k*t7-t6
*t6*t22kP*k*t4P+t7*t3P*(t2*t2)*t42kP*t4*t5+4*t42kP*t1*t6*t2P*k*t2*t7*t3+t42kP*t5*t1P
*k*t7*(t3*t3)+2*t42kP*(t3*t3)*t5*t1P*k*t1*t6*t2+t7*t3P*t42kP*t4*t6-2*t7*t3P*t1*t3*t42kP*t4-2
*t42kP*t5*t1P*k*t3+2*t42kP*t5*t5*t1P*k*t2-2*t6*t2P*t1*t42kP*t4*t5*t2+t42kP*(t2*t2)*(t3
*t3)*t5*t1P*k*t6-2*t42kP*t5*(t1*t1)*t3P*k*t3*t6-2*t42kP*(t1*t1)*t7*t3P*k*t5*t2+4*t42kP*t3
*t5*t5*t1P*k*t1*t2-t42kP*(t1*t1)*t3P*k*(t2*t2)-t42kP*(t1*t1)*t7*t3P*k*t5+4*t42kP*t3*t5*t1P
*k*t1*t6*t2+t7*t3P*(t2*t2)*t3*t42kP*t4*t6+2*(t4*t4)*t1*t4P*t6*t6*t22kP-t42kP*t6*(t2*t2)*t4
*t5*t1P*t1+t42kP*t7*(t3*t3)*t5*t1P*k*t1*(t2*t2)-t42kP*t6*t6*t3P*k-4*t42kP*t5*t1*t3P*k*t6
+2*t42kP*t5*(t1*t1)*t3P*k+2*t42kP*t2*t5*t1P*k*t1*t6+4*t7*t3P*t1*t2*t42kP*t4*t6-2*t7*t3P
*t2*t3*t42kP*t4*(t1*t1)+2*t42kP*t1*t6*t6*t2P*k*t2*(t3*t3)+2*t5*t5*t12kP*t2*t4P*t4-t6*t2P
*t4*t3P*t3*t4P*t5*(t1*t1)*t2-4*t42kP*t1*t3P*k*t2+t6*t6*t22kP*(t1*t1)*t4P*t4+2*t42kP*t1
*t6*t2P*k*t2*t7-8*t42kP*t6*t2*t3P*k*t3*t5*t1+t7*t3P*t42kP*t4*t5-2*t42kP*t1*t6*t2P*k*t2
*(t3*t3)+4*t42kP*t1*(t2*t2)*t3P*k*t3*t6+2*t42kP*(t1*t1)*t3P*k*t3*t6-t6*t6*t2P*(t1*t1)*t42kP
*t4*t2+t6*t2P*(t1*t1)*t42kP*t4-2*t42kP*t6*t3P*k*t5*(t2*t2)+t42kP*t7*t3P*k*(t2*t2)*t3+2*t42kP
*t7*t1*t2P*k*t6*(t3*t3)+4*t6*t2P*t3*t42kP*t4*t1+t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4*t6-4*t42kP
*t5*(t1*t1)*t3P*k*t6*t2-2*t42kP*t5*t1P*k*t2+t6*t2P*(t3*t3)*t42kP*t4*t2*(t1*t1)-t42kP*t5*t5
*t3P*k*(t2*t2)-2*t42kP*t3*t5*t1P*k*t1-t6*t2P*(t3*t3)*t42kP*t4*t5-t42kP*t2P*k*t6*(t1*t1)
+t5*t1P*t3P*t3*t4*t4P*t1*(t2*t2)+t5*t1P*t3P*t3*t4*t4P*t7*(t2*t2)+4*t6*t2P*t3*t4*t1P*t1
*t4P*t5+(t4*t4)*(t1*t1)*t4P*t7*t3P*t6*t2P-t42kP*t5*t5*t3P*k*t3-4*t42kP*t1*t2*t3P*k*t3
+t7*t3P*t3*t4*t5*t1P*t4P*t1-2*t42kP*t1*t7*t3P*k*t6*(t2*t2)-t6*t6*t2P*t2*t42kP*t4+t7*t3P
*t4*t2P*t2*t4P*t6*(t1*t1)*t3+t42kP*t7*(t1*t1)*t2P*k*t6-2*t42kP*t6*t6*(t2*t2)*t3P*k*t3*t1
+2*t5*t1P*t3P*t3*t4*t4P*t1*t2-2*t5*t5*t1P*t3P*t3*t4*t4P*t1*t2+4*t42kP*t2*t3*t5*t1P*k
*t7+2*t6*t2P*t3*t42kP*t4*(t1*t1)-t42kP*(t2*t2)*t3P*k*t3+2*t42kP*t5*t2P*k*t6*t1-t6*t2P*(t3
*t3)*t42kP*t4*t5*(t1*t1)*t2-2*t42kP*t5*t5*t1*t3P*k*(t2*t2)+2*t7*t3P*t4*t2P*t2*t4P*t6*t1*t3-2
*t6*t6*t2P*t4*t3P*t3*t4P*t1*t2+2*t42kP*t5*t3P*k*t3+2*t42kP*(t1*t1)*t7*t3P*k*t2*t3+2*t6
*t2P*t4*t3P*t3*t4P*t1*t2-t6*t6*t2P*t4*t3P*t3*t4P*t2+t6*t2P*t4*t3P*t3*t4P*(t1*t1)*t2
+2*t7*t3P*t2*t3*t4*t1P*t1*t4P*t5+2*t42kP*(t1*t1)*t6*t2P*k*t2*t7*t3-2*t42kP*t3*t2P*k*t6
+4*t42kP*t1*t7*t3P*k*t2*t3+4*t42kP*t2*t3*t5*t1P*k*t6-4*t42kP*t6*t3P*k*t5*t2+t42kP*t6*t2P
*k*t2*t5-t42kP*t7*t3P*k*t6*t3-2*t42kP*t2*(t3*t3)*t5*t1P*k-2*t5*t5*t1P*(t2*t2)*t3*t42kP*t4-4
*t42kP*t5*t1*t3P*k*t6*(t2*t2)+2*t42kP*t5*(t1*t1)*t3P*k*(t2*t2)+t7*t3P*t4*t2P*t2*t4P*t6
+2*(t4*t4)*(t1*t1)*t4P*t6*t6*t22kP*t3+t5*t5*t12kP*(t2*t2)*t4P*t4+2*t6*t2P*t1*t42kP*t4+t4P
*t6*t4*t3P*k*t3*t5*t1P*t1+2*t4P*t6*t6*t3P*k*t2P*t1+t4P*t6*t6*t3P*k*t2P*t3+2*t4P*t6
*t3P*k*t5*t1P*t2+2*t7*t32kP*k*t4P*t6*t2*t4+t7*t32kP*k*t4P*t6*(t2*t2)*t4-t7*t32kP*k*t4P
*(t1*t1)*t4-2*t7*t32kP*k*t4P*t1-2*t7*t32kP*k*t4P*t2+t7*t32kP*k*t4P*t6*(t1*t1)+t6*t2P*t2
*t3P*k*t3*t4P*t5-t5*t1P*t4*t3P*k*t4P*t1*(t2*t2)*t3-t4P*(t1*t1)*t3P*k*t6*t2P*t3*t4+t4P
*t5*(t1*t1)*t3P*k*t6*t2P+t4P*t5*t5*t4*t3P*k*t3*t1P-t5*t1P*(t2*t2)*t3P*k*t3*t4P-t6*t2P
*t4*t3P*k*t4P*(t1*t1)+t4P*t6*t6*(t1*t1)*t2*t3P*k*t3*t2P+t4P*t6*t1*(t2*t2)*t3P*k*t3*t5*t1P
+2*t4P*t6*t1*t2*t3P*k*t3*t5*t1P+2*t4P*t6*t6*t1*t2*t3P*k*t3*t2P+t6*t2P*(t1*t1)*t3P*k*t3
*t4P*t5*t2+t5*t5*t1P*t4*t3P*k*t4P*(t2*t2)*t3+t4P*t5*t5*t1*t3P*k*t1P+2*t4P*t5*t1*t3P
*k*t6*t2P+t4P*t6*t3P*k*t5*t1P+t4P*t6*t6*t3P*k*t2P+t4P*t6*t3P*k*t5*t1P*t3+t4P*t6
*t3P*k*t5*t1P*t4+t5*t5*t1P*t3P*k*t3*t4P*t1*(t2*t2)+2*t6*t6*t2P*t4*t3P*k*t4P*t1*t2+t4P
*t6*t6*t3P*k*t2P*t2+2*t4P*t6*t1*t2*t3P*k*t3*t5*t1P*t4+2*t6*t6*t2P*t1*t3P*k*t3*t4P+2*t6
*t2P*t1*t3P*k*t3*t4P*t5-t42kP*t5*t5*t3P*k*(t2*t2)*t3+2*t7*t3P*t2*t3*t42kP*t4*t6*(t1*t1)
+4*t42kP*t6*t2*t3P*k*t3+2*t7*t32kP*t1*(t4*t4)*t4P-t7*t32kP*t4P*t5*(t4*t4)*(t1*t1)-t6*t2P
*(t1*t1)*t4P*t5*t3P*t4+t42kP*(t2*t2)*t3P*t4-t42kP*(t1*t1)*(t2*t2)*t3P*k*t3-t42kP*t6*t6
*t3P*k*t3-2*t42kP*t6*(t2*t2)*t3P*k*t3*t5*(t1*t1)-2*t42kP*t3P*t3*t5*t4-2*t7*t32kP*t4P*t6
*t4*t1-2*t7*t32kP*t4P*t6*t4*t2-4*t7*t32kP*t4P*t6*t4*t1*t2-t7*t32kP*t4P*t6*(t4*t4)-2*t7*t32kP
*t4P*t6*(t4*t4)*t1-2*t7*t32kP*t4P*t6*(t4*t4)*t2-4*t7*t32kP*t4P*t6*(t4*t4)*t1*t2+2*t42kP*t5
*t5*t3P*t4*t1+2*t42kP*t5*t5*t3P*t4*t2+4*t42kP*t5*t5*t3P*t4*t1*t2+t42kP*t5*t5*t3P*t4*t3
+2*t42kP*t5*t5*t3P*t4*t1*t3+2*t42kP*t5*t5*t3P*t4*t2*t3+4*t42kP*t5*t5*t3P*t4*t1*t2*t3+4*t7
*t32kP*t1*(t4*t4)*t4P*t2+2*t7*t32kP*(t1*t1)*(t4*t4)*t4P*t2+t7*t32kP*(t1*t1)*(t4*t4)*t4P-t4P
*t6*t2P*k*t2*t7*t3P-2*t7*t3P*t1*t4*t2P*k*t4P*t6-2*t7*t3P*t3*t4*t6*t2P*k*t4P*t1*t2-2*t6
*t6*t22kP*t1*k*t4P-t6*t6*t22kP*(t1*t1)*(t3*t3)*k*t4P*t4-t4P*t6*t2P*k*t2*t7*t3P*t3-t6*t6
*t22kP*(t3*t3)*k*t4P+2*t7*t32kP*(t1*t1)*t2*k*t4P*t5*t4+2*t7*t32kP*t1*(t2*t2)*k*t4P*t5*t4
+2*t7*t32kP*(t1*t1)*t2*k*t4P*t6*t4-t4P*(t2*t2)*t4*t3P*k*t5*t1P-2*t4P*t2*t4*t3P*k*t5*t1P
+t7*t32kP*k*t4P*t5*(t1*t1)+t7*t32kP*k*t4P*t6+t7*t32kP*k*t4P*t5+t7*t32kP*k*t4P*t5*(t2
*t2)+t6*t6*t2P*t4*t3P*k*t4P*t2-t6*t2P*t4*t3P*k*t4P*t3+t7*t32kP*(t1*t1)*(t2*t2)*k*t4P
*t5+2*t5*t5*t1P*t3P*k*t3*t4P*t1*t2+t7*t32kP*k*t4P*t5*(t2*t2)*t4+2*t7*t32kP*k*t4P*t6*t2-t6
*t2P*t2*t3P*k*t4P+t4P*t6*t4*t3P*k*t3*t5*t1P*(t2*t2)-t5*t5*t1P*t3P*t3*t4P*(t4*t4)-2
*t5*t5*t1P*t3P*t3*t4P*(t4*t4)*t2-t5*t1P*t1*(t2*t2)*t4P*t6*t3P*t4-t5*t5*t1P*t3P*t3*(t4
*t4)*t4P*t1*(t2*t2)+t5*t1P*t1*t4P*t3P*t4+t5*t1P*t1*t4P*t3P*(t4*t4)+2*t6*t2P*t1*t4P
*t3P*t4+t6*t2P*(t1*t1)*t4P*t3P*t4-t6*t6*t2P*t4P*t3P*t4+t42kP*t6*t6*t3P*t4*(t2*t2)*t3-2
*t42kP*t6*t3P*t4-2*t42kP*t5*t3P*t4+t42kP*t5*t5*t3P*t4+t7*t32kP*t4P*(t4*t4)+t7*t32kP
*t4P*t4-2*t6*t6*t22kP*t1*t4*k*t4P-2*t6*t6*t22kP*(t1*t1)*t3*k*t4P*t4-2*t6*t6*t22kP*t1*(t3
*t3)*k*t4P*t4-2*t7*t32kP*(t2*t2)*t4P*t6*(t4*t4)*t1-2*t7*t32kP*t1*(t2*t2)*t4P*t5*t4+2*t5*t1P
*t2*t4P*t3P*t4+t5*t1P*(t2*t2)*t4P*t3P*t4-4*t42kP*t5*t1*t3P*t3*(t2*t2)*t4+t5*t1P*(t2*t2)
*t4P*t3P*(t4*t4)-t5*t5*t1P*t3P*t3*t4P*t1*(t4*t4)-2*t42kP*(t1*t1)*(t2*t2)*t6*t3P*t4*t3-2
*t4P*t6*(t4*t4)*t3P*t3*t5*t1P*t1*t2+t42kP*t5*t5*t3P*t4*(t1*t1)+t42kP*t5*t5*t3P*t4*(t1*t1)
*t3-2*t42kP*(t1*t1)*(t2*t2)*t6*t3P*t4+2*t6*t6*t22kP*t3*t4P*t4*(t1*t1)+t5*t1P*t4*t7*t3P*t4P
*t3-t6*t2P*t2*t42kP*t4*t5-2*t5*t5*t1P*(t2*t2)*t3*t42kP*t4*t1+2*t42kP*t5*t5*t1P*k*t3+t6*t2P
*t4*t3P*t3*t4P*(t1*t1)-t42kP*(t1*t1)*(t3*t3)*t2P*k*t6+4*t42kP*t5*t1*t3P*k*(t2*t2)+t7*t3P
*t4*t5*t1P*t4P*t1+2*t7*t3P*t4*t5*t1P*t4P*t1*t2+t42kP*t5*t1P*k*t6*(t2*t2)+2*t5*t5*t1P
*t2*t3P*k*t3*t4P-t6*t2P*t4*t3P*k*t4P*(t1*t1)*t2-2*t5*t1P*t3P*k*t4P*t2-t5*t1P*t3P
*k*t4P-2*t6*t2P*t4*t3P*k*t4P*t1*t2-2*t6*t2P*t4*t3P*k*t4P*t1-t6*t2P*t4*t3P*k*t4P*t2
+2*t6*t6*t2P*t4*t3P*k*t4P*t1+t6*t2P*t4*t3P*k*t4P*t5*t2+t6*t2P*t4*t3P*k*t4P*t5*t3+2
*t6*t2P*t4*t3P*k*t4P*t5*t1-t6*t2P*t4*t3P*k*t4P+t6*t2P*t4*t3P*k*t4P*t5*(t1*t1)+t6*t6
*t2P*t4*t3P*k*t4P*(t1*t1)+t7*t32kP*k*t4P*t5*(t1*t1)*t4+t7*t32kP*k*t4P*t6*(t1*t1)*t4-t6
*t2P*t3P*k*t3*t4P-2*t6*t2P*t2*t3P*k*t4P*t1-t5*t5*t1P*(t2*t2)*(t3*t3)*t42kP*t4+2*t42kP
*t1*t6*t6*t2P*k*t2+2*t5*t1P*t2*t42kP*t4+2*t42kP*(t1*t1)*t7*t3P*k*t2-t5*t1P*t3P*k*t4P
*t4-2*t4P*t1*t3P*k*t5*t1P*t2*t3-t4P*(t1*t1)*t3P*k*t6*t2P*t3*t2-2*t5*t1P*t4*t3P*k*t4P
*t1*t2*t3-t7*t32kP*k*t4P*t4+t4P*t5*t3P*k*t6*t2P*t2+t4P*t5*t5*t3P*k*t1P*(t2*t2)+t5*t5
*t1P*t1*(t2*t2)*t3P*k*t4P+t7*t32kP*(t1*t1)*(t2*t2)*k*t4P*t5*t4-t4P*t3P*k*t6*t2P*t3*t2
+2*t5*t5*t1P*t4*t3P*k*t4P*t2*t3+t5*t5*t1P*t4*t3P*k*t4P*t1*t3+2*t4P*t5*t5*t3P*k*t1P
*t2*t4+t4P*t5*t5*t3P*k*t1P*(t2*t2)*t4+t7*t32kP*k*t4P*t5*t4+t7*t32kP*k*t4P*t6*t4+t7*t32kP
*(t1*t1)*(t2*t2)*k*t4P*t6*t4+2*t6*t6*t2P*t4*t3P*k*t3*t4P*t1+2*t6*t2P*t4*t3P*k*t3*t4P*t5
*t1-2*t6*t2P*t2*t4*t3P*k*t3*t4P*t1+2*t6*t6*t2P*t2*t4*t3P*k*t3*t4P*t1+2*t6*t2P*t2*t4*t3P
*k*t3*t4P*t5*t1-t4P*t1*t3P*k*t5*t1P*(t2*t2)*t3+t7*t32kP*k*t4P*t6*(t2*t2)+2*t7*t32kP*k*t4P
*t6*t1+2*t7*t32kP*k*t4P*t5*t2+2*t7*t32kP*k*t4P*t5*t1-2*t5*t1P*t1*t2*t3P*k*t4P+2*t7*t32kP
*t1*(t2*t2)*k*t4P*t6*t4-t7*t32kP*(t1*t1)*(t2*t2)*k*t4P*t4-4*t7*t32kP*t1*t2*k*t4P*t4+t7*t32kP
*(t1*t1)*(t2*t2)*k*t4P*t6+4*t7*t32kP*t1*t2*k*t4P*t5+2*t7*t32kP*t1*(t2*t2)*k*t4P*t6-t7*t32kP
*(t1*t1)*(t2*t2)*k*t4P+2*t5*t1P*t1*t2*t3P*k*t4P*t6*t4-2*t5*t1P*t2*t3P*k*t3*t4P*t4+t4P
*t5*t5*t3P*k*t1P*t3+t4P*t5*t5*t3P*k*t1P*t4+t7*t3P*t4*t2P*t2*t4P*t6*(t1*t1)-2*t7*t32kP
*(t1*t1)*t2*k*t4P-2*t7*t32kP*t1*(t2*t2)*k*t4P-t5*t1P*t1*t3P*k*t4P-2*t7*t32kP*t1*(t2*t2)
*k*t4P*t4-2*t7*t32kP*(t1*t1)*t2*k*t4P*t4+2*t5*t1P*t1*t2*t3P*k*t4P*t6+2*t5*t5*t1P*t1*t2
*t3P*k*t4P-t5*t1P*t3P*k*t3*t4P*t4-t6*t2P*t2*t3P*k*t4P*(t1*t1)+4*t7*t32kP*t1*t2*k*t4P
*t6+t6*t6*t2P*t4*t3P*k*t4P+t6*t2P*t4*t3P*k*t4P*t5-t5*t1P*(t2*t2)*t3P*k*t3*t4P*t4+2
*t4P*t5*t1*t3P*k*t6*t2P*t2-t5*t1P*t1*(t2*t2)*t3P*k*t4P*t4+2*t5*t5*t1P*t1*t2*t3P*k*t4P
*t4-t5*t1P*t3P*k*t4P*(t2*t2)+t6*t6*t2P*t4*t3P*k*t3*t4P*(t1*t1)+t6*t2P*t4*t3P*k*t3*t4P
*t5*(t1*t1)+2*t7*t32kP*(t1*t1)*t2*k*t4P*t5+2*t7*t32kP*(t1*t1)*t2*k*t4P*t6+2*t7*t32kP*t1*(t2
*t2)*k*t4P*t5+t6*t6*t2P*t2*t4*t3P*k*t3*t4P*(t1*t1)+t6*t2P*t2*t4*t3P*k*t3*t4P*t5*(t1*t1)-t6
*t2P*t2*t4*t3P*k*t3*t4P+t6*t6*t2P*(t1*t1)*t3P*k*t3*t4P+2*t6*t2P*t1*t3P*k*t3*t4P*t5
*t2+t6*t2P*(t1*t1)*t3P*k*t3*t4P*t5+t4P*t5*t3P*k*t6*t2P*t3+2*t4P*t5*t5*t3P*k*t1P*t2
+t4P*t5*t5*t3P*k*t1P+2*t4P*t6*t6*t3P*k*t2P*t1*t2+t4P*t5*t3P*k*t6*t2P-4*t7*t32kP*t1
*t2*k*t4P+t6*t6*t2P*t4*t3P*k*t4P*(t1*t1)*t2+t6*t2P*t4*t3P*k*t4P*t5*(t1*t1)*t2-t5*t1P
*t1*t3P*k*t4P*t4+2*t4P*t6*t3P*k*t5*t1P*t2*t4+t4P*t6*(t2*t2)*t3P*k*t3*t5*t1P+2*t7*t32kP
*k*t4P*t5*t2*t4+2*t7*t32kP*k*t4P*t6*t1*t4+2*t4P*t6*t2*t3P*k*t3*t5*t1P-t6*t2P*(t1*t1)*t42kP
*t4*t7-2*t6*t2P*t3*t42kP*t4*t5+t42kP*t3P*t4-t4P*t5*t1P*k*t7*t3P*t3-2*t6*t2P*t1P*k*t1
*t4P*t5+4*t6*t2P*t3*t4*t1P*t1*t4P*t5*t2-2*t6*t6*t22kP*t3*k*t4P*t4-t6*t6*t22kP*(t1*t1)*(t3
*t3)*k*t4P-t7*t3P*t4*t2P*k*t4P*t6-t6*t6*t22kP*t4*k*t4P-t4P*t6*t2P*k*t2*t7*t3P*t4-t7
*t3P*t6*t2P*k*t2*t4P*(t1*t1)*t3-t7*t3P*t6*t2P*k*t2*t4P*(t1*t1)-t7*t3P*t3*t4*t6*t2P*k
*t4P*(t1*t1)*t2-t6*t6*t22kP*(t3*t3)*k*t4P*t4-t7*t3P*t2P*k*t4P*t6-t7*t3P*(t1*t1)*t4*t2P
*k*t4P*t6*t3-t7*t3P*t3*t2P*k*t4P*t6+t4P*t6*t4*t3P*k*t3*t5*t1P+2*t4P*t6*t4*t3P*k*t3
*t5*t1P*t2-t7*t32kP*k*t4P-t42kP*t6*t4*t5*t1P-2*t7*t32kP*k*t4P*t1*t4-t7*t32kP*k*t4P
*(t2*t2)-t7*t32kP*k*t4P*(t1*t1)-t7*t32kP*k*t4P*(t2*t2)*t4-2*t7*t32kP*k*t4P*t2*t4+t4P*t5
*t5*t1*t3P*k*t3*t1P-t5*t1P*t3P*k*t3*t4P+t5*t1P*t1*(t2*t2)*t3P*k*t4P*t6-t4P*(t1*t1)
*t3P*k*t6*t2P-2*t4P*t1*t3P*k*t6*t2P+4*t7*t32kP*t1*t2*k*t4P*t5*t4+4*t7*t32kP*t1*t2*k*t4P
*t6*t4-t5*t1P*t1*(t2*t2)*t3P*k*t4P+2*t5*t5*t12kP*t4P*(t4*t4)*t3+t4P*t6*t6*t4*t3P*k*t3*t2P
+2*t42kP*t3*t6*t6*t2P*k+t42kP*(t1*t1)*t6*t2P*k*t2*t5-2*t5*t1P*t42kP*t7*t4*t1*t3-t42kP*t5
*t5*(t1*t1)*t3P*k*(t2*t2)-2*t4P*t4*t5*t1P*k*t1*t7*t3P*t2*t3-2*t4P*t4*t5*t1P*k*t1*t6*t2P
*t2-2*t5*t5*t12kP*k*t4P*t2*(t3*t3)-t4P*t4*t5*t1P*k*t1*t7*t3P*(t2*t2)*t3-2*t4P*t4*t5*t1P
*k*t1*t6*t2P*(t3*t3)*t2-2*t4P*t4*t5*t1P*k*t1*t6*t2P*(t3*t3)-t4P*t4*t5*t1P*k*t1*t7*t3P*t3-2
*t5*t5*t12kP*t2*t4*k*t4P-t4P*t4*t5*t1P*k*t7*t3P-2*t4P*t4*t5*t1P*k*t6*t2P-4*t4P*t4*t5
*t1P*k*t6*t2P*t3-2*t4P*t4*t5*t1P*k*t6*t2P*t2-t4P*t4*t5*t1P*k*t7*t3P*(t2*t2)-2*t4P*t4
*t5*t1P*k*t6*t2P*(t3*t3)-2*t42kP*(t1*t1)*t2*t3P*k*t3-t4P*t4*t5*t1P*k*t7*t3P*t3-2*t4P
*t4*t5*t1P*k*t7*t3P*t2+t5*t1P*t3P*t3*t4P*(t4*t4)+2*t5*t1P*t3P*t3*t4P*(t4*t4)*t2+2*t42kP
*t3P*t4*t1+t42kP*t3P*t4*t3-4*t6*t2P*t3*t1P*k*t4P*t5-t5*t5*t12kP*k*t4P*(t3*t3)*t4-2*t4P
*(t3*t3)*t5*t1P*k*t1*t6*t2P-4*t4P*t3*t5*t1P*k*t1*t6*t2P-t4P*t3*t5*t1P*k*t1*t7*t3P-4*t5
*t1P*t42kP*t7*t4*t1*t2*t3-4*t4P*t4*t5*t1P*k*t1*t6*t2P*t3-2*t4P*t4*t5*t1P*k*t1*t6*t2P
+2*t5*t1P*(t2*t2)*t42kP*t4*t1*t3-2*t42kP*t5*t5*(t1*t1)*t3P*k*t3*t2-t5*t5*t12kP*k*t4P+t42kP
*(t3*t3)*t6*t2P*k*t7-t4P*t6*t4*t3P*t3*t5*t1P+t7*t3P*(t1*t1)*t3*t42kP*t4*t6+2*(t4*t4)*t1*t4P
*t7*t3P*t6*t2P+8*t42kP*t6*t3P*k*t1*t2+2*t42kP*(t1*t1)*t6*t2P*k*t2*t5*t3-t7*t3P*(t2*t2)
*t42kP*t4-2*t5*t1P*t42kP*t7*t4*t3-2*t42kP*t6*t3P*k*t5*t3+t42kP*t5*t1P*k*t6*(t3*t3)-4*t42kP
*t6*t6*t3P*k*t1*t2-4*t5*t1P*t42kP*t7*t4*t2*t3-2*t5*t1P*t42kP*t7*t4*t2+2*t42kP*(t1*t1)*t6
*t6*t2P*k*t2*t3+2*t42kP*(t3*t3)*t6*t6*t2P*k*t1-4*t6*t2P*t3*t42kP*t4*t5*t1*t2-2*t6*t2P*t4
*t3P*t3*t4P*t5*t1*t2-2*t5*t1P*t42kP*t7*t4*t1*t2+t42kP*t6*t2P*k*t7+4*t42kP*t5*t2P*k*t6
*t1*t3-4*t42kP*t5*t5*t1*t3P*k*t2-2*t42kP*t7*t3P*k*t5*t2*t3+t6*t2P*t2*t42kP*t4-t6*t2P*(t3
*t3)*t42kP*t4*t7*t2-t5*t5*t1P*(t3*t3)*t42kP*t4+t5*t5*t12kP*(t2*t2)*(t3*t3)*t4P*t4-2*t42kP
*t1*t7*t3P*k*t5*t3-t5*t1P*(t3*t3)*t42kP*t7*t4*t1-t4P*t4*t5*t1P*k*t1*t7*t3P*(t2*t2)-4*t4P
*t4*t5*t1P*k*t1*t6*t2P*t3*t2-2*t4P*t5*t1P*k*t6*t2P-t4P*t5*t1P*k*t7*t3P-t4P*t5*t1P
*k*t7*t3P*t1-2*t4P*t5*t1P*k*t7*t3P*t2-4*t4P*t3*t5*t1P*k*t1*t6*t2P*t2-t4P*t3*t5*t1P
*k*t1*t7*t3P*(t2*t2)-2*t5*t1P*(t3*t3)*t42kP*t7*t4*t1*t2-2*t4P*(t3*t3)*t5*t1P*k*t1*t6*t2P
*t2-2*t6*t2P*t2*t1P*k*t4P*t5-2*t4P*t2*(t3*t3)*t5*t1P*k*t6*t2P*t4-t4P*(t2*t2)*t3*t5*t1P
*k*t7*t3P*t4-t4P*(t2*t2)*t3*t5*t1P*k*t7*t3P-2*t4P*t2*t3*t5*t1P*k*t7*t3P*t4+2*t42kP*t3
*t5*t1P*k*t1*t6-t6*t6*t2P*(t1*t1)*t42kP*t4+2*t42kP*t3*t6*t6*t2P*k*(t1*t1)+4*t42kP*t7*t1*t2P
*k*t6*t3-2*t5*t1P*(t3*t3)*t42kP*t7*t4*t2+t7*t3P*(t2*t2)*t3*t42kP*t4*t5-2*t42kP*t1*t7*t3P
*k*t6*t3+2*t7*t3P*t2*t3*t42kP*t4*t5+t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4*t5+t6*t2P*t4*t3P*t3*t4P
*t2+t42kP*t5*t5*t1P*k*t1-2*t6*t2P*(t3*t3)*t42kP*t4*t7*t1-t42kP*t7*t4*t5*t1P*(t2*t2)*(t3*t3)
*t1+t42kP*t5*t5*t1P*k*(t2*t2)+8*t42kP*t1*t2*t3P*k*t3*t5-t42kP*t6*t6*(t2*t2)*t3P*k*t3-t7*t3P
*t42kP*t4+8*t42kP*t1*t2*t3P*k*t3*t6-2*t42kP*t3P*k*t2-2*t42kP*(t1*t1)*t5*t3P*t4*(t2*t2)-t5
*t1P*t1*(t4*t4)*t4P*t6*t3P+2*t42kP*t6*t6*t1*(t2*t2)*t3P*t4-2*t7*t32kP*t4P*t5*t4*(t1*t1)
*t2-2*t7*t32kP*t4P*t5*(t4*t4)*(t1*t1)*t2+2*t42kP*t1*(t2*t2)*t3P*t4*t3+t42kP*(t1*t1)*(t2*t2)
*t3P*t4*t3+t6*t2P*(t1*t1)*(t4*t4)*t4P*t3P-t4P*t6*(t4*t4)*t3P*t3*t5*t1P*(t2*t2)+t7*t3P
*(t2*t2)*t42kP*t4*t6-t6*t6*t2P*(t4*t4)*t3P*t3*t4P*(t1*t1)*t2-t6*t2P*(t1*t1)*t2*(t4*t4)*t4P
*t5*t3P-t7*t32kP*(t2*t2)*t4P*t5*t4-t7*t32kP*t4P*t5*(t4*t4)*(t2*t2)-t5*t5*t1P*t1*(t2*t2)*t4P
*t3P*t4+2*t7*t32kP*t1*(t2*t2)*t4P*t4+2*t42kP*t6*t3P*t3*t5*(t1*t1)*(t2*t2)*t4+t6*t2P*(t4*t4)
*t4P*t3P-4*t42kP*t5*t3P*t4*t1-t42kP*t6*(t2*t2)*t4*t5*t1P+t6*t2P*(t1*t1)*t42kP*t4*t2-t5
*t5*t1P*(t4*t4)*t4P*t3P+2*t42kP*t6*t6*t3P*t3*(t1*t1)*t2*t4+t5*t5*t12kP*t4P*(t4*t4)*(t3
*t3)-4*t6*t2P*t3*t42kP*t4*t7*t1-t5*t1P*(t2*t2)*t4P*t6*t3P*t4-t5*t1P*(t2*t2)*t4P*t6*t3P
*(t4*t4)-t7*t32kP*t4P*t6*t4*(t1*t1)-4*t7*t32kP*t4P*t5*t4*t1*t2-t7*t32kP*t4P*t5*(t4*t4)-2
*t7*t32kP*t4P*t5*(t4*t4)*t1-2*t7*t32kP*t4P*t5*(t4*t4)*t2-t5*t1P*t4P*t6*t3P*t4-2*t5*t1P
*t4P*t6*t3P*t4*t2-t5*t1P*t4P*t6*t3P*(t4*t4)-4*t7*t32kP*t4P*t5*(t4*t4)*t1*t2-t5*t1P*(t3
*t3)*t42kP*t7*t4+2*t42kP*t6*t3P*k-t42kP*t6*t6*t3P*k*(t2*t2)-2*t6*t2P*(t3*t3)*t42kP*t4*t5
*t1-2*t6*t6*t2P*(t3*t3)*t42kP*t4*t1+t7*t3P*t3*t42kP*t4*t6-t5*t5*t1P*t42kP*t4-t7*t3P*(t1
*t1)*t4*t2P*k*t4P*t6-2*t7*t3P*t1*t4*t2P*k*t4P*t6*t3-t6*t6*t22kP*(t1*t1)*k*t4P-t42kP*t6
*t1*t4*t5*t1P+2*t7*t32kP*(t1*t1)*t4P*t4*t2+4*t42kP*t2*t3P*k*t3*t5-t7*t3P*t3*t2P*k*t4P
*t6*(t1*t1)-2*t7*t3P*t3*t2P*k*t4P*t6*t1-4*t6*t6*t22kP*t1*t3*k*t4P*t4-2*t6*t6*t22kP*t3*k*t4P-4
*t6*t6*t22kP*t1*t3*k*t4P-2*t6*t6*t22kP*(t1*t1)*t3*k*t4P-2*t6*t6*t22kP*t1*(t3*t3)*k*t4P-2
*t7*t3P*t6*t2P*k*t2*t4P*t1*t4+2*t6*t2P*t5*t1P*t4P*t1*t4+2*t42kP*t1*t7*t3P*k*(t2*t2)-2
*t6*t2P*(t3*t3)*t42kP*t4*t7*t1*t2-8*t42kP*t2*t5*t3P*t4*t1-2*t42kP*(t2*t2)*t5*t3P*t4-4*t42kP
*(t2*t2)*t5*t3P*t4*t1-4*t42kP*t2*t5*t3P*t4*t3+2*t7*t32kP*t4P*t4*t2+4*t7*t32kP*t4P*t4*t1
*t2-t6*t2P*(t1*t1)*t3P*t3*t4P*t5*t2*(t4*t4)+t5*t1P*t3P*t3*(t4*t4)*t4P*t1*(t2*t2)+4*t42kP
*t6*t6*t3P*t3*t1*t2*t4+2*t7*t32kP*t4P*t4*t1+t7*t32kP*(t1*t1)*(t2*t2)*t4P*t4-2*t42kP*t5*(t1
*t1)*t3P*t3*t4+t7*t3P*(t2*t2)*t3*t42kP*t4*t5*(t1*t1)-t6*t2P*t42kP*t4*t7+t42kP*(t1*t1)*t6
*t6*t2P*k*t2+t7*t3P*t3*t42kP*t4*t5-2*t42kP*t6*t6*t3P*k*t2-2*t6*t6*t2P*t3*t42kP*t4*t2+2
*t5*t5*t12kP*t3*t4P*t4-2*t6*t6*t2P*(t3*t3)*t42kP*t4*t1*t2+(t4*t4)*(t1*t1)*t4P*t6*t6*t22kP
*(t3*t3)-4*t42kP*t1*t3*t2P*k*t6-4*t42kP*t6*t2*t3P*k*t3*t5*(t1*t1)-t7*t3P*(t2*t2)*t3*t42kP
*t4*(t1*t1)-2*t4P*t6*t4*t3P*t3*t5*t1P*t2*t1-2*t6*t2P*t1*t42kP*t4*t7*t2-2*t6*t2P*(t4*t4)*t4P
*t5*t3P*t1-t6*t2P*(t4*t4)*t4P*t5*t3P+2*t5*t1P*t4*t7*t3P*t4P*t3*t2-2*t5*t5*t1P*t2*(t3
*t3)*t42kP*t4*t1+t6*t6*t22kP*(t3*t3)*t4P*t4*(t1*t1)-2*t6*t6*t2P*t1*t42kP*t4*t2-2*t6*t2P*(t3
*t3)*t42kP*t4*t5*t1*t2-t4P*t6*t4*t3P*t3*t5*t1P*(t2*t2)*t1-2*t6*t6*t2P*t3*t42kP*t4*(t1*t1)-t42kP
*t7*t3P*k*t5*(t2*t2)*t3-2*t42kP*t5*t5*t3P*k*t2*t3-t4P*t6*t4*t3P*t3*t5*t1P*(t2*t2)-2*t42kP
*(t1*t1)*t7*t3P*k*t5*t2*t3-2*t5*t5*t1P*t2*t42kP*t4*t1+t42kP*t6*t6*t2P*k*t2*(t3*t3)-2*t6*t6
*t2P*t4P*t3P*t4*t1-t6*t6*t2P*t4P*t3P*(t4*t4)-2*t6*t6*t2P*t4P*t3P*(t4*t4)*t1-t6*t6*t2P
*t4P*t3P*(t4*t4)*t3-t7*t32kP*(t1*t1)*(t2*t2)*t4P*t5*t4+t5*t1P*(t2*t2)*t4P*t3P*(t4*t4)*t3-t7
*t32kP*(t1*t1)*(t2*t2)*t4P*t5*(t4*t4)-2*t7*t32kP*t1*(t2*t2)*t4P*t5*(t4*t4)+t42kP*t5*t5*t3P
*t4*(t2*t2)+2*t42kP*t5*t5*t3P*t4*(t2*t2)*t1+t42kP*t5*t5*t3P*t4*(t2*t2)*t3+2*t42kP*t5*t5*t3P
*t4*(t2*t2)*t1*t3-2*t6*t2P*t1*t42kP*t4*t5-8*t42kP*t5*t1*t3P*t3*t4*t2-4*t42kP*t5*(t1*t1)*t3P
*t3*t4*t2-2*t5*t5*t1P*t2*t4P*t3P*t4+2*t42kP*t5*t5*(t1*t1)*t2*t3P*t4+t42kP*(t1*t1)*t3P*t4
+2*t5*t1P*t1*(t3*t3)*t4P*(t4*t4)*t6*t2P*t2+2*t7*t3P*t2*t3*t42kP*t4*t6+t7*t3P*(t2*t2)*t3*t42kP
*t4*t6*(t1*t1)-t42kP*(t3*t3)*t5*t1P*k*t1*(t2*t2)+2*t42kP*t7*(t3*t3)*t5*t1P*k*t1*t2-2*t42kP
*t1*(t2*t2)*t3P*k*t3+4*t7*t3P*t1*t2*t42kP*t4*t5+2*t42kP*t5*t3P*k*(t2*t2)-t7*t3P*(t1*t1)*t3
*t42kP*t4-t42kP*t2P*k*t6-2*t42kP*t6*t6*t3P*k*t1*t3-t6*t6*t2P*t4*t3P*t3*t4P*(t1*t1)*t2-t42kP
*t6*t2P*k*t2*(t3*t3)+t6*t2P*t4*t3P*t3*t4P+4*t42kP*t6*t3P*k*t2+2*t42kP*t6*t3P*k*(t2*t2)-4
*t42kP*t6*t2*t4*t5*t1P*t3*t1-t5*t5*t1P*t3P*t3*t4*t4P*t1-2*t5*t5*t1P*t3P*t3*t4*t4P*t2
+t6*t2P*t4*t3P*t3*t4P*t7-t42kP*(t1*t1)*t7*t3P*k*t5*(t2*t2)+2*t7*t3P*(t1*t1)*t2*t42kP*t4
*t5+4*t42kP*t1*(t2*t2)*t3P*k*t3*t5-t6*t2P*(t3*t3)*t42kP*t4*t7*t2*(t1*t1)+t42kP*(t1*t1)*t6*t2P
*k*t2*t5*(t3*t3)+2*t42kP*(t2*t2)*t3*t5*t1P*k*t6+t42kP*(t2*t2)*t5*t5*t1P*k*t1+4*t42kP*t3*t6
*t6*t2P*k*t1+4*t42kP*t1*t3P*k*t3*t6+(t4*t4)*t4P*t6*t6*t22kP-2*t42kP*t1*t7*t3P*k*t5-t42kP
*t6*t6*t3P*k*(t1*t1)+2*t6*t2P*(t3*t3)*t4P*t4*t5*t1P-4*t42kP*t2*t3*t5*t1P*k-2*t6*t2P*t3
*t42kP*t4*t7*(t1*t1)-t6*t2P*(t3*t3)*t42kP*t4*t7*(t1*t1)+2*t7*t3P*t1*(t2*t2)*t42kP*t4*t5-t6
*t6*t2P*t42kP*t4+2*t42kP*t7*t1*t2P*k*t6-2*t7*t3P*t1*t42kP*t4-4*t42kP*t5*t1*t3P*k*t3*t6-t7
*t3P*(t1*t1)*t42kP*t4-4*t7*t3P*t1*t2*t42kP*t4-t42kP*t1P*k*t1*t5-4*t6*t2P*t3*t42kP*t4
*t5*t1+2*t42kP*t7*t2*t1P*k*t5-t42kP*(t1*t1)*t6*t2P*k*t2+2*t42kP*t7*t3*t5*t1P*k*t1-t6*t6*t2P
*t2*t4P*t3P*t4+2*t42kP*t3P*t3*t1*t4-t4P*t6*(t4*t4)*t3P*t3*t5*t1P*(t2*t2)*t1-t7*t32kP
*t4P*t6*t4-t7*t32kP*(t2*t2)*t4P*t6*t4-2*t7*t32kP*(t2*t2)*t4P*t6*t4*t1-t7*t32kP*(t2*t2)*t4P
*t6*(t4*t4)-t42kP*t5*t5*(t1*t1)*t3P*k-t5*t5*t1P*(t2*t2)*t42kP*t4*t1-2*t42kP*t1*t6*t2P*k*t2
+2*t42kP*t5*t2P*k*t6*(t1*t1)*t3+4*t42kP*t5*t3P*k*t2+2*t42kP*t6*t6*t2P*k*t2*t3-t6*t2P*t4
*t3P*t3*t4P*t5-t6*t2P*(t1*t1)*t42kP*t4*t5*t2-t6*t2P*t2*t42kP*t4*t7-2*t6*t6*t2P*t3*t42kP
*t4-t6*t2P*(t1*t1)*t42kP*t4*t7*t2+t7*t3P*t4P*t5*t1P*t4-t4P*t3*t4*t6*t2P*k*t7*t3P-t7*t3P
*(t1*t1)*t2P*k*t4P*t6-t42kP*t6*t2P*k*t2-2*t42kP*t1*t3P*k-t42kP*(t2*t2)*(t3*t3)*t5*t1P
*k+2*t5*t5*t12kP*(t2*t2)*t3*t4P*t4+2*t7*t3P*t1*t3*t42kP*t4*t5-2*t42kP*t5*t5*t1*t3P*k-2*t6
*t6*t2P*(t4*t4)*t3P*t3*t4P*t1-t6*t6*t2P*(t4*t4)*t3P*t3*t4P*(t1*t1)-2*t42kP*(t1*t1)*t6*t3P
*t4*t3+2*t42kP*t5*(t2*t2)*t6*t3P*t4-2*t4P*t6*t6*t3P*t3*t2P*t1*t2*(t4*t4)-4*t42kP*(t1*t1)
*t6*t3P*t4*t2+2*t5*t5*t12kP*t2*(t3*t3)*t4P*t4-t4P*t4*t5*t1P*k*t1*t7*t3P-2*t5*t5*t12kP*t2
*t4*k*t4P*(t3*t3)-t5*t5*t12kP*(t2*t2)*t4*k*t4P-4*t5*t5*t12kP*t2*t4*k*t4P*t3-2*t6*t2P*(t3
*t3)*t1P*k*t4P*t5-t5*t5*t12kP*(t2*t2)*t4*k*t4P*(t3*t3)-t4P*t5*t1P*k*t7*t3P*(t2*t2)-2*t5
*t5*t12kP*(t2*t2)*t4*k*t4P*t3-2*t5*t5*t12kP*k*t4P*t3-2*t5*t5*t12kP*k*t4P*t2-t5*t5*t12kP
*k*t4P*(t2*t2)-t5*t5*t12kP*k*t4P*(t3*t3)-t5*t5*t12kP*k*t4P*t4-2*t4P*t2*(t3*t3)*t5*t1P*k
*t6*t2P-4*t4P*t2*t3*t5*t1P*k*t6*t2P*t4-4*t4P*t2*t3*t5*t1P*k*t6*t2P-2*t4P*t2*t3*t5*t1P
*k*t7*t3P-2*t4P*t4*t5*t1P*k*t1*t7*t3P*t2-2*t4P*t3*t5*t1P*k*t1*t7*t3P*t2-2*t5*t5*t12kP
*k*t4P*t3*t4-2*t5*t5*t12kP*k*t4P*(t2*t2)*t3-t4P*(t2*t2)*t5*t1P*k*t1*t7*t3P-t5*t5*t12kP
*k*t4P*(t2*t2)*(t3*t3)-4*t5*t5*t12kP*k*t4P*t2*t3+t5*t5*t12kP*(t2*t2)*t4P*(t4*t4)*(t3*t3)-t5
*t5*t1P*(t3*t3)*t42kP*t4*t1-2*t42kP*t1*t3P*k*(t2*t2)-4*t42kP*t3*t5*t1P*k*t1*t2-2*t42kP
*(t1*t1)*t6*t2P*k*t2*t3-2*t42kP*t1*t3P*k*t3+(t4*t4)*t4P*t6*t6*t22kP*(t3*t3)+2*t7*t3P*(t2
*t2)*t3*t42kP*t4*t5*t1+t42kP*t5*t2P*k*t6*(t1*t1)+2*t42kP*t6*(t2*t2)*t3P*k*t3-4*t6*t2P*t3
*t42kP*t4*t7*t1*t2+t42kP*t5*t2P*k*t6*(t1*t1)*(t3*t3)-2*t6*t2P*t3*t42kP*t4*t5*t2*(t1*t1)+4*t42kP
*t6*t3P*k*(t1*t1)*t2+t42kP*t6*t6*t2P*k-4*t42kP*t6*t1*t2*t7*t3P*k*t3-4*t42kP*t1*t7*t3P*k
*t5*t2-2*t42kP*t1*t7*t3P*k*t5*(t2*t2)+2*t42kP*t1*t7*t3P*k*t3+t42kP*t5*t1P*k*t7-2*t6*t2P
*t3*t42kP*t4*t7-4*t42kP*t5*t5*t1*t3P*k*t3*t2+t42kP*t6*t6*t2P*k*(t1*t1)+4*t5*t5*t12kP*t2*t4P
*(t4*t4)*t3+t5*t1P*t4P*t3P*t4-t6*t6*t2P*t2*t4P*t3P*t4*(t1*t1)-t6*t6*t2P*(t1*t1)*t2*(t4
*t4)*t4P*t3P+2*t42kP*(t3*t3)*t5*t5*t1P*k*t1*t2+2*t42kP*t6*t3P*k*(t1*t1)-t42kP*t5*t1P
*k*(t2*t2)+t42kP*t6*t2P*k*t2*t7*(t3*t3)+t42kP*t5*t1P*k*t7*t1+2*t6*t2P*(t3*t3)*t42kP*t4*t1
+2*t6*t2P*t2*t4*t1P*t1*t4P*t5+t42kP*(t2*t2)*t5*t1P*k*t1*t7-2*t42kP*t5*t5*(t1*t1)*t3P*k
*t2+2*t7*t3P*t1*(t2*t2)*t42kP*t4*t6+2*t42kP*t6*t3P*k*t3+t42kP*(t1*t1)*t7*t3P*k+t6*t6*t22kP
*t4P*t4+4*t42kP*t6*t3P*k*t1-2*t7*t3P*t2*t3*t42kP*t4+t6*t2P*t2*t4P*t3P*t4-t6*t2P*(t1
*t1)*t2*t4P*t5*t3P*t4+t6*t2P*t2*t4P*t3P*(t4*t4)-4*t42kP*t6*(t2*t2)*t3P*k*t3*t5*t1+t42kP
*t5*t2P*k*t6+t5*t1P*t3P*t3*t4*t4P+t5*t1P*t3P*t3*t4*t4P*(t2*t2)+2*t7*t3P*t4P*t5*t1P
*t4*t2-4*t42kP*t6*t3P*t4*t1*t3-4*t42kP*t6*t3P*t4*t2*t3-8*t42kP*t6*t3P*t4*t1*t2*t3-4*t42kP
*t6*t3P*t4*t2-8*t42kP*t6*t3P*t4*t1*t2-2*t42kP*t6*t3P*t4*t3-4*t42kP*t6*t3P*t4*t1-t7*t3P
*(t2*t2)*t3*t42kP*t4+2*t42kP*(t1*t1)*(t2*t2)*t3P*k*t3*t6+t42kP*t7*t3P*k-2*t42kP*t7*t3P
*k*t6*t2*t3-2*t42kP*t1*t7*t3P*k*t6-2*t42kP*t2*t5*t1P*k*t1-2*t42kP*(t1*t1)*t3*t2P*k*t6+t42kP
*(t1*t1)*t6*t6*t2P*k*t2*(t3*t3)-2*t42kP*(t1*t1)*t3P*k*t2+t42kP*(t3*t3)*t6*t6*t2P*k*(t1*t1)-8
*t42kP*t5*t1*t3P*k*t6*t2-2*t42kP*t7*t4*t5*t1P*(t2*t2)*t3+2*t6*t2P*t4P*t2*t5*t1P*t4-2*t4P
*t2*t5*t1P*k*t1*t6*t2P-2*t4P*t2*t5*t1P*k*t1*t7*t3P+2*t42kP*t5*t1P*k*t6*t3+t42kP*t6*t6
*(t1*t1)*(t2*t2)*t3P*t4-2*t42kP*t5*(t1*t1)*t3P*t3*(t2*t2)*t4+2*t42kP*t6*t6*t1*(t2*t2)*t3P*t4
*t3+2*t42kP*t5*(t2*t2)*t6*t3P*t4*t3+2*t42kP*t5*t2P*k*t6*t3+4*t5*t1P*t2*t42kP*t4*t1*t3+t7
*t3P*(t2*t2)*t3*t4*t1P*t1*t4P*t5+t42kP*t5*t1P*k*t6*t1-2*t42kP*t1*t7*t3P*k*t5*(t2*t2)*t3-2
*t5*t1P*t1*t2*t3P*k*t4P*t4+t5*t5*t1P*t4*t3P*k*t4P*t1*(t2*t2)*t3+t5*t1P*t1*(t2*t2)*t3P
*k*t4P*t6*t4-t4P*t1*t3P*k*t3*t5*t1P-t4P*t1*t3P*k*t3*t5*t1P*t4+t5*t5*t1P*t1*(t2*t2)*t3P
*k*t4P*t4-2*t4P*t1*t3P*k*t6*t2P*t3+t4P*t6*t1*(t2*t2)*t3P*k*t3*t5*t1P*t4-t6*t2P*t2*t4
*t3P*k*t3*t4P*(t1*t1)-t4P*t3P*k*t6*t2P+t4P*t6*t3P*k*t5*t1P*(t2*t2)-t4P*(t1*t1)*t3P
*k*t6*t2P*t3-2*t4P*t1*t3P*k*t6*t2P*t3*t4+t4P*t5*t5*t1*t3P*k*t1P*t4+t6*t6*t2P*t2*t4*t3P
*k*t3*t4P+t6*t2P*t2*t4*t3P*k*t3*t4P*t5+t4P*t6*t3P*k*t5*t1P*t4*t1+t4P*t6*t3P*k*t5*t1P
*t3*t1+2*t7*t32kP*k*t4P*t5*t1*t4-2*t4P*t1*t3P*k*t6*t2P*t3*t2+2*t5*t5*t1P*t4*t3P*k*t4P
*t1*t2*t3+t4P*t6*t3P*k*t5*t1P*(t2*t2)*t4+2*t6*t2P*t4*t3P*k*t4P*t5*t1*t2+t4P*t5*(t1*t1)
*t3P*k*t6*t2P*t2+t5*t5*t1P*(t2*t2)*t3P*k*t3*t4P-2*t5*t1P*t2*t3P*k*t3*t4P+t4P*t6*t6
*t3P*k*t2P*(t1*t1)*t2+t4P*t6*t3P*k*t5*t1P*t1+t4P*t6*t6*t3P*k*t2P*(t1*t1)+t4P*t6*t6
*t2*t3P*k*t2P*t3-t5*t1P*t42kP*t7*t4*t1+2*t6*t2P*t4*t3P*t3*t4P*t1-2*t6*t2P*t4*t3P*t3
*t4P*t5*t1+t42kP*t5*t5*t1P*k*(t3*t3)+t42kP*t7*t3P*k*t3+t5*t5*t12kP*(t3*t3)*t4P*t4-4*t42kP
*t1*t7*t3P*k*t5*t2*t3+2*t42kP*t2*(t3*t3)*t5*t1P*k*t7+t42kP*t5*t2P*k*t6*(t3*t3)-2*t42kP*t6
*(t2*t2)*t3P*k*t3*t5+4*t42kP*t5*(t1*t1)*t3P*k*t2-2*t42kP*t6*(t1*t1)*t2*t7*t3P*k*t3+4*t42kP
*t1*t6*t6*t2P*k*t2*t3-2*t7*t3P*(t2*t2)*t3*t42kP*t4*t1+2*t42kP*t7*t3P*k*t2*t3+t42kP*(t3*t3)
*t5*t5*t1P*k*t1-2*t42kP*(t2*t2)*t6*t3P*t4-4*t42kP*(t2*t2)*t6*t3P*t4*t1-2*t42kP*(t2*t2)*t6
*t3P*t4*t3+2*t7*t32kP*t1*(t2*t2)*(t4*t4)*t4P-t5*t5*t1P*t1*t4P*t3P*t4-2*t5*t5*t1P*t1*t4P
*t3P*t4*t2-t5*t5*t1P*t1*t4P*t3P*(t4*t4)-t4P*t6*(t4*t4)*t3P*t3*t5*t1P-2*t4P*t6*(t4*t4)
*t3P*t3*t5*t1P*t2-2*t5*t1P*t1*t2*(t4*t4)*t4P*t6*t3P+t6*t2P*t4P*t4*t7*t3P+2*t6*t2P*t4P
*t4*t5*t1P+2*t7*t3P*t2*t42kP*t4*t6+t42kP*t1*(t2*t2)*t4*t5*t1P*(t3*t3)+4*t7*t3P*t2*t3*t42kP
*t4*t6*t1+t5*t1P*t42kP*t4*t1+2*t7*t32kP*t4P*(t4*t4)*t2-2*t6*t2P*t1*t42kP*t4*t7+4*t6*t2P
*t3*t4P*t4*t5*t1P+4*(t4*t4)*t1*t4P*t6*t6*t22kP*t3-t5*t1P*(t3*t3)*t42kP*t6*t4-t5*t1P*t1
*(t2*t2)*(t4*t4)*t4P*t6*t3P+2*t5*t1P*(t4*t4)*t4P*t3P*t2-t6*t2P*(t4*t4)*t4P*t5*t3P*t3-2
*t6*t2P*(t4*t4)*t4P*t5*t3P*t1*t3-2*t5*t1P*t1*t4P*t6*t3P*t4*t2-t5*t1P*t1*t4P*t6*t3P
*t4+2*t6*t2P*t1*t4P*t4*t7*t3P-t5*t1P*t42kP*t7*t4+2*t42kP*(t1*t1)*t2*t3P*t4+2*t42kP*t1
*(t2*t2)*t3P*t4+t42kP*(t1*t1)*(t2*t2)*t3P*t4+t6*t2P*t4P*t3P*t4-t6*t6*t2P*(t1*t1)*t4P
*t3P*t4-4*t42kP*t5*t1*t3P*t3*t4-2*t5*t5*t1P*t2*t4P*t3P*(t4*t4)-t5*t5*t1P*(t2*t2)*t4P
*t3P*t4-2*t6*t2P*(t4*t4)*t3P*t3*t4P*t5*t1*t2+t42kP*t3P*t3*(t1*t1)*t4+t42kP*t6*t6*t3P
*t4*(t2*t2)+2*t6*t2P*t3*t42kP*t4*(t1*t1)*t2-t6*t6*t2P*t4*t3P*t3*t4P+t42kP*(t1*t1)*t7*t3P
*k*(t2*t2)*t3-t6*t2P*t4*t3P*t3*t4P*t5*(t1*t1)+2*t42kP*t5*t3P*k-2*t42kP*t5*(t1*t1)*t3P*k
*t6-2*t42kP*t5*t5*t1*t3P*k*t3*(t2*t2)+2*t6*t2P*(t3*t3)*t5*t1P*t4P*t1*t4+t7*t3P*(t2*t2)*t5
*t1P*t4P*t1*t4-2*t42kP*t2P*k*t6*t1+4*t42kP*t6*t3P*k*t1*(t2*t2)+2*t5*t5*t12kP*(t2*t2)*t4P
*(t4*t4)*t3-t6*t2P*t42kP*t4*t5-2*t5*t5*t1P*t3*t42kP*t4*t1+2*t42kP*t7*(t1*t1)*t2P*k*t6*t3
+2*t42kP*t1*t7*t3P*k-t42kP*t7*t3P*k*t5*t3-2*t42kP*(t3*t3)*t5*t1P*k*t1*t2+2*t42kP*t6*t6
*t2P*k*t1+t42kP*(t2*t2)*(t3*t3)*t5*t5*t1P*k-4*t6*t6*t2P*t3*t42kP*t4*t1*t2-t42kP*t3P*k*(t2
*t2)-t42kP*t6*(t1*t1)*(t2*t2)*t7*t3P*k*t3-2*t42kP*t1*(t3*t3)*t2P*k*t6-t42kP*t7*t4*t5*t1P
*(t2*t2)-2*t42kP*t6*t2P*k*t2*t3+t42kP*t7*t3P*k*(t2*t2)+2*t42kP*t2*t5*t1P*k*t1*t7-t42kP
*t6*t6*(t2*t2)*t3P*k*t3*(t1*t1)+4*t42kP*t5*t1*t3P*k+2*t42kP*t6*t2P*k*t2*t5*t3-4*t42kP*t1
*t7*t3P*k*t6*t2-2*t42kP*t7*t3P*k*t5*t2-t42kP*t5*t5*t3P*k+2*t6*t2P*t1*t42kP*t4*t2+2*t42kP
*t5*(t1*t1)*t6*t3P*t4*(t2*t2)+4*t42kP*t5*t1*t6*t3P*t4*(t2*t2)*t3-t6*t6*t2P*t4P*t3P*(t4*t4)
*(t1*t1)-2*t5*t5*t1P*t1*t2*(t4*t4)*t4P*t3P*t3-2*t5*t1P*t3*t42kP*t6*t4*t1+2*t7*t3P*t3*t4P
*(t4*t4)*t5*t1P*t2+t7*t3P*t3*t4P*(t4*t4)*t5*t1P+t7*t3P*t3*t4P*(t4*t4)*t6*t2P+2*t6*t2P
*t1*t2*t3*t4P*(t4*t4)*t7*t3P-t5*t5*t1P*t1*(t2*t2)*(t4*t4)*t4P*t3P-2*t5*t5*t1P*t1*t2*(t4*t4)
*t4P*t3P-4*t42kP*t2*t5*t3P*t4+4*t42kP*t5*t1*t6*t3P*t4*(t2*t2)+t42kP*t6*t6*t3P*t4*(t1
*t1)+t42kP*t6*t6*t3P*t4*(t1*t1)*t3+2*t5*t1P*t3*t42kP*t4+t7*t3P*t3*t4P*(t4*t4)*t6*t2P*t2
+t7*t3P*t3*t4P*(t4*t4)*t5*t1P*(t2*t2)+t5*t1P*(t3*t3)*t42kP*t4*t1+2*t5*t1P*t3*t42kP*t4*t1
+t5*t1P*(t3*t3)*t42kP*t4+2*t5*t1P*(t3*t3)*t42kP*t4*t2+t2*(t4*t4)*t4P*t7*t3P*t6*t2P*(t1
*t1)+2*t42kP*(t1*t1)*(t2*t2)*t3P*k*t3*t5-t42kP*t5*t5*(t1*t1)*t3P*k*t3*(t2*t2)+4*t42kP*t2*t3
*t5*t5*t1P*k+2*t42kP*(t2*t2)*t3*t5*t5*t1P*k-t6*t2P*t2*t4P*t5*t3P*(t4*t4)*t3+4*t42kP*t1
*t2*t3P*t4*t3+2*t42kP*(t1*t1)*t2*t3P*t4*t3-4*t42kP*(t1*t1)*t6*t3P*t4*t2*t3+2*t42kP*t5*(t1
*t1)*t3P*k*t3-2*t42kP*t6*t1*(t2*t2)*t7*t3P*k*t3+t6*t2P*t42kP*t4-t42kP*t7*t3P*k*t5-t5*t5
*t1P*t3P*t3*t4*t4P*(t2*t2)-2*t42kP*t6*t6*t3P*k*t1+2*t42kP*t5*t2P*k*t6*t1*(t3*t3)+2*t42kP
*t3*t6*t2P*k*t7-t42kP*(t1*t1)*t6*t2P*k*t2*(t3*t3)-t42kP*t5*t1P*k*(t3*t3)-t42kP*t6*t6*t3P
*k*(t1*t1)*(t2*t2)+2*t7*t3P*t1*t42kP*t4*t6+t6*t2P*(t1*t1)*t2*t3*t4P*(t4*t4)*t7*t3P+2*t5*t1P
*t2*t4P*(t4*t4)*t6*t2P+2*t5*t1P*t2*t4P*(t4*t4)*t7*t3P+4*t7*t3P*t2*t3*t42kP*t4*t5*t1+2*t7
*t3P*t3*t4P*(t4*t4)*t6*t2P*t1-4*t42kP*t6*t2*t4*t5*t1P*t3+2*t7*t3P*(t1*t1)*t2*t42kP*t4*t6
+t5*t5*t12kP*t4P*(t4*t4)-2*t5*t5*t1P*t2*(t3*t3)*t42kP*t4+2*t5*t1P*t4P*(t4*t4)*t6*t2P*t1
+4*t5*t1P*t4P*(t4*t4)*t6*t2P*t3+2*t5*t1P*t4P*(t4*t4)*t6*t2P+t5*t1P*t4P*(t4*t4)*t7*t3P
+t5*t1P*t4P*(t4*t4)*t7*t3P*t1+2*t5*t1P*t4P*(t4*t4)*t6*t2P*(t3*t3)+t7*t3P*(t2*t2)*t4P
*t5*t1P*t4-t5*t1P*(t3*t3)*t42kP*t6*t4*t1+t5*t1P*(t2*t2)*t4P*(t4*t4)*t7*t3P*t1+2*t6*t6*t22kP
*t3*t4P*t4-2*t42kP*t6*(t2*t2)*t4*t5*t1P*t3*t1+2*t5*t1P*t1*t3*t4P*(t4*t4)*t7*t3P*t2+t5*t1P
*(t2*t2)*t42kP*t4*t1+t7*t3P*t3*t4P*(t4*t4)*t6*t2P*(t1*t1)+t5*t1P*t42kP*t4-4*t5*t5*t1P*t2
*t3*t42kP*t4+t5*t1P*t1*t3*t4P*(t4*t4)*t7*t3P*(t2*t2)+4*t5*t1P*t1*t3*t4P*(t4*t4)*t6*t2P
*t2-2*t5*t1P*t3*t42kP*t6*t4-2*t6*t2P*t3*t42kP*t4*t5*t2+4*t6*t2P*t3*t42kP*t4*t1*t2+2*t5*t1P
*t2*t4P*(t4*t4)*t7*t3P*t1+t5*t1P*(t2*t2)*t4P*(t4*t4)*t7*t3P+2*t5*t1P*t2*t4P*(t4*t4)*t6
*t2P*(t3*t3)-t6*t6*t2P*(t3*t3)*t42kP*t4*(t1*t1)+2*t5*t1P*t2*t42kP*t4*t1+2*t5*t1P*(t2*t2)
*t42kP*t4*t3+2*t2*(t4*t4)*t4P*t7*t3P*t6*t2P*t1+t5*t1P*(t2*t2)*t42kP*t4+2*t42kP*t2*t3P
*t4+t42kP*t6*t6*t3P*t4+t6*t2P*(t4*t4)*t4P*t3P*t3-2*t5*t1P*t2*(t4*t4)*t4P*t6*t3P+t5*t1P
*t1*(t2*t2)*t4P*t3P*t4+2*t5*t1P*t1*t2*t4P*t3P*(t4*t4)+t5*t1P*t1*(t2*t2)*t4P*t3P*(t4*t4)-t6
*t2P*(t3*t3)*t42kP*t4*t5*t2+2*t6*t2P*t2*t4P*t3P*t4*t1-4*t42kP*t6*t3P*t4*t1*(t2*t2)*t3+2
*t6*t2P*t2*t4P*t3P*(t4*t4)*t1+t6*t2P*t2*t4P*t3P*(t4*t4)*t3+2*t6*t2P*t2*t4P*t3P*(t4
*t4)*t1*t3+t6*t2P*t2*t4P*t3P*t4*(t1*t1)+t6*t2P*t2*t4P*t3P*(t4*t4)*(t1*t1)+t42kP*t6*t6*t3P
*t3*(t1*t1)*(t2*t2)*t4-4*t7*t3P*t2*t3*t42kP*t4*t1+2*t5*t1P*t2*t4P*(t4*t4)*t6*t2P*t1+4*t5*t1P
*t2*t4P*(t4*t4)*t6*t2P*t3+2*t5*t1P*t1*(t3*t3)*t4P*(t4*t4)*t6*t2P+2*t42kP*t1*t2*t4*t5*t1P
*(t3*t3)+t2*(t4*t4)*t4P*t7*t3P*t6*t2P+4*t5*t1P*t1*t3*t4P*(t4*t4)*t6*t2P+t5*t1P*t1*t3*t4P
*(t4*t4)*t7*t3P+(t4*t4)*t4P*t7*t3P*t6*t2P+4*t5*t1P*t2*t42kP*t4*t3-2*t6*t2P*t3*t42kP*t4
*t7*t2-2*t6*t2P*t3*t42kP*t4*t7*t2*(t1*t1)+t6*t2P*(t1*t1)*t4P*t4*t7*t3P+2*t42kP*t6*t6*t3P
*t4*t2+(t4*t4)*(t1*t1)*t4P*t6*t6*t22kP+2*t6*t2P*t1*(t4*t4)*t4P*t3P+2*t6*t2P*t1*(t4*t4)*t4P
*t3P*t3-t5*t5*t1P*(t2*t2)*t4P*t3P*(t4*t4)*t3+2*t42kP*t6*t6*(t1*t1)*t2*t3P*t4+t42kP*t5*t5
*(t1*t1)*(t2*t2)*t3P*t4+2*t42kP*t5*t5*(t1*t1)*t2*t3P*t4*t3+t42kP*t5*t5*(t1*t1)*(t2*t2)*t3P
*t4*t3+t7*t32kP*(t1*t1)*(t2*t2)*(t4*t4)*t4P+t5*t1P*t3P*t3*t4*t4P*t1-t42kP*t6*t6*t3P*k*(t1
*t1)*t3+t42kP*t6*t2P*k*t2*t7+4*t42kP*t5*t1*t3P*k*t3-t42kP*t5*t1P*k+t42kP*(t1*t1)*t7*t3P
*k*(t2*t2)+2*t5*t1P*(t3*t3)*t4*t2P*t2*t4P*t6+2*t42kP*t3*t5*t5*t1P*k*t1*(t2*t2)-t4P*t6*t4
*t3P*t3*t5*t1P*t1-t42kP*t7*t3P*k*t6*(t2*t2)*t3-4*t42kP*t6*t6*t2*t3P*k*t3*t1+2*t42kP*t6
*t3P*k*(t1*t1)*(t2*t2)+2*t5*t5*t12kP*t2*t4P*(t4*t4)-t6*t2P*(t3*t3)*t42kP*t4*t7-2*t7*t3P*t2
*t42kP*t4-2*t42kP*t6*t6*t2*t3P*k*t3+2*t42kP*t1*t7*t3P*k*(t2*t2)*t3+2*t6*t2P*t3*t42kP*t4
*t2-t42kP*t7*t3P*k*t6+t42kP*t6*t2P*k*t2*t5*(t3*t3)+2*t7*t3P*t1*t42kP*t4*t5-t42kP*t7*t4
*t5*t1P*(t2*t2)*(t3*t3)+2*t42kP*t5*t1P*k*t7*t3+t42kP*(t3*t3)*t6*t6*t2P*k+t42kP*t5*t5*t1P
*k-t42kP*(t1*t1)*t3P*k*t3-t6*t6*t2P*t4*t3P*t3*t4P*(t1*t1)+t6*t2P*t4*t3P*t3*t4P*t7*(t1
*t1)+2*t7*t3P*t2*t42kP*t4*t5-2*t42kP*t6*t6*t3P*k*(t1*t1)*t2+2*t42kP*t1*t6*t2P*k*t2*t7*(t3
*t3)-2*t42kP*t5*t5*t1*t3P*k*t3+4*t42kP*t1*t6*t2P*k*t2*t5*t3+4*t42kP*(t1*t1)*t2*t3P*k*t3*t5
+2*t42kP*t5*t1P*k*t6*t2+2*t42kP*t3*t5*t5*t1P*k*t1+2*t7*t3P*t4*t2P*t2*t4P*t6*t1+4*t5*t1P
*t3*t4*t2P*t2*t4P*t6+t6*t2P*(t3*t3)*t42kP*t4*t2-2*t42kP*(t1*t1)*t7*t3P*k*t6*t2+4*t42kP
*t1*t7*t3P*k*t2+t5*t5*t12kP*t4P*t4-t42kP*(t3*t3)*t5*t1P*k*t1+2*t42kP*t1*t6*t2P*k*t2*t5-2
*t6*t6*t2P*t3*t42kP*t4*t2*(t1*t1)-t6*t6*t2P*(t3*t3)*t42kP*t4*t2*(t1*t1)+t42kP*(t1*t1)*t6*t2P
*k*t2*t7*(t3*t3)+t42kP*(t1*t1)*t6*t2P*k*t2*t7+4*t42kP*t7*t3*t5*t1P*k*t1*t2+2*t7*t3P*t1*t3*t42kP
*t4*t6-4*t42kP*t1*t6*t2P*k*t2*t3+t42kP*(t2*t2)*t4*t5*t1P*(t3*t3)-t42kP*t7*t3P*k*t6*(t2*t2)
+4*t6*t6*t22kP*t3*t4P*t4*t1+2*t6*t2P*(t3*t3)*t4*t1P*t1*t4P*t5*t2+2*t42kP*t2*t5*t5*t1P*k
*t1+2*t6*t6*t22kP*(t3*t3)*t4P*t4*t1+t42kP*t6*t6*t2P*k*t2-4*t42kP*t6*t2*t3P*k*t3*t5-2*t42kP
*(t2*t2)*t3*t5*t1P*k+4*t5*t5*t12kP*t2*t3*t4P*t4+t42kP*(t3*t3)*t5*t5*t1P*k*t1*(t2*t2)+8*t42kP
*t5*t1*t3P*k*t2+2*(t4*t4)*t1*t4P*t6*t6*t22kP*(t3*t3)-2*t42kP*t7*t3P*k*t6*t2-2*t6*t6*t2P*t1
*t42kP*t4+t6*t2P*(t3*t3)*t42kP*t4*(t1*t1)+t42kP*(t1*t1)*t7*t3P*k*t3-2*t5*t5*t1P*t3*t42kP
*t4-4*t5*t5*t1P*t2*t3*t42kP*t4*t1+2*t42kP*(t2*t2)*t3P*k*t3*t5-2*t6*t2P*t3*t42kP*t4*t5*(t1
*t1)-t42kP*t7*t3P*k*t5*(t2*t2)+t42kP*(t3*t3)*t5*t1P*k*t1*t6+t7*t3P*(t1*t1)*t42kP*t4*t5+t42kP
*t7*(t1*t1)*t2P*k*t6*(t3*t3)+2*t5*t5*t12kP*t2*t4P*(t4*t4)*(t3*t3)-t5*t5*t1P*t3P*t3*t4*t4P-2
*t42kP*t6*t3P*k*t5+t7*t3P*t4*t2P*t2*t4P*t6*t3+2*(t4*t4)*t4P*t6*t6*t22kP*t3-t42kP*(t2
*t2)*t5*t1P*k*t1+t42kP*(t3*t3)*t5*t1P*k*t1*t6*(t2*t2)-t7*t3P*t3*t42kP*t4+2*t7*t3P*t2*t3*t42kP
*t4*t5*(t1*t1)-t42kP*(t1*t1)*t7*t3P*k*t6-t42kP*t5*t5*(t1*t1)*t3P*k*t3+t5*t1P*(t4*t4)*t4P
*t3P-t5*t5*t1P*(t2*t2)*t4P*t3P*(t4*t4)+2*t42kP*t6*t6*t3P*t4*t1-2*t6*t6*t2P*t2*t4P*t3P
*t4*t1-t6*t6*t2P*t2*t4P*t3P*(t4*t4)-2*t6*t6*t2P*t2*t4P*t3P*(t4*t4)*t1-t6*t6*t2P*t2*t4P
*t3P*(t4*t4)*t3+t6*t2P*(t1*t1)*(t4*t4)*t4P*t3P*t3-t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4-2*t7*t32kP
*(t1*t1)*t2*t4P*t6*t4-t7*t32kP*(t1*t1)*(t2*t2)*t4P*t6*(t4*t4)-2*t7*t32kP*(t1*t1)*t2*t4P*t6
*(t4*t4)-t7*t32kP*(t1*t1)*(t2*t2)*t4P*t6*t4-t6*t2P*t2*t4P*t5*t3P*t4-2*t42kP*(t1*t1)*t5*t3P
*t4-4*t6*t6*t2P*t3*t42kP*t4*t1-2*t5*t5*t1P*t2*t42kP*t4+t7*t32kP*(t2*t2)*t4P*t4+t7*t32kP
*(t1*t1)*t4P*t4-t5*t5*t1P*t4P*t3P*t4+2*t5*t1P*t1*t2*t4P*t3P*t4+4*t42kP*t6*t6*t3P*t4
*t1*t2-t7*t32kP*t4P*t5*t4*(t1*t1)-t4P*t6*(t4*t4)*t3P*t3*t5*t1P*t1-2*t42kP*(t1*t1)*t6*t3P
*t4-t7*t32kP*t4P*t6*(t4*t4)*(t1*t1)+2*t42kP*t5*t6*t3P*t4+4*t42kP*t5*t6*t3P*t4*t2+2*t42kP
*t5*t6*t3P*t4*t3+4*t42kP*t5*t6*t3P*t4*t2*t3-t6*t2P*t4P*t5*t3P*t4-2*t6*t2P*t4P*t5*t3P
*t4*t1-2*t7*t32kP*t4P*t5*t4*t1-2*t7*t32kP*t4P*t5*t4*t2-2*t42kP*t3P*t3*t5*(t2*t2)*t4-t5*t1P
*(t3*t3)*(t2*t2)*t42kP*t6*t4*t1-2*t5*t1P*(t3*t3)*t2*t42kP*t6*t4*t1-2*t42kP*t6*t2*t4*t5*t1P
*t1-t5*t1P*(t3*t3)*(t2*t2)*t42kP*t6*t4-2*t42kP*t6*(t2*t2)*t4*t5*t1P*t3-2*t5*t1P*(t3*t3)*t2
*t42kP*t6*t4-2*t42kP*t7*t4*t5*t1P*(t2*t2)*t3*t1-2*t42kP*t6*t2*t4*t5*t1P+t7*t3P*(t1*t1)*t3
*t42kP*t4*t5+2*t6*t2P*(t3*t3)*t42kP*t4*t1*t2+t6*t6*t22kP*(t3*t3)*t4P*t4+2*t5*t1P*t1*t2*t4P
*t3P*(t4*t4)*t3+t42kP*t6*t6*t3P*t4*t3+2*t42kP*t6*t6*t3P*t4*t1*t3+2*t42kP*t6*t6*t3P*t4*t2
*t3-t6*t2P*(t1*t1)*(t4*t4)*t4P*t5*t3P+4*t42kP*t5*t1*t6*t3P*t4+2*t42kP*t5*(t1*t1)*t6*t3P
*t4+8*t42kP*t5*t1*t6*t3P*t4*t2+4*t42kP*t5*(t1*t1)*t6*t3P*t4*t2+4*t42kP*t5*t1*t6*t3P*t4*t3
+2*t42kP*t5*(t1*t1)*t6*t3P*t4*t3+8*t42kP*t5*t1*t6*t3P*t4*t2*t3+4*t42kP*t5*(t1*t1)*t6*t3P
*t4*t2*t3+t5*t1P*t3P*t3*t4P*t1*(t4*t4)+t7*t32kP*(t2*t2)*(t4*t4)*t4P-2*t7*t3P*(t1*t1)*t2*t42kP
*t4-t6*t2P*(t1*t1)*t3P*t3*t4P*t5*(t4*t4)-t7*t32kP*t4P*t5*t4+2*t42kP*t2*t3P*t4*t3+t42kP
*(t2*t2)*t3P*t4*t3+t6*t2P*(t4*t4)*t3P*t3*t4P*(t1*t1)*t2-2*t6*t2P*t2*t4P*t5*t3P*t4*t1-t6
*t2P*t2*t4P*t5*t3P*(t4*t4)-2*t6*t2P*t2*t4P*t5*t3P*(t4*t4)*t1+4*t42kP*t1*t2*t3P*t4-4*t42kP
*(t1*t1)*t5*t3P*t4*t2-t6*t2P*(t3*t3)*t42kP*t4*t5*(t1*t1)-t5*t5*t1P*t1*t42kP*t4-2*t7*t3P*t1
*(t2*t2)*t42kP*t4)
if (k > 0) test <- abs(A47/a[4,7])
a[4,7] <- a[4,7] + A27
k <- k+1
}
if (k == maximumIteration) {
return(list("flag"=1))
break
}
}
adw96/CatchAll documentation built on May 28, 2019, 3:55 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions SEFourMixedExpA45_A47
SEFourMixedExpA45_A47 <- function(t1, t2, t3, t4, t5, t6, t7, a, sHatSubset) {
Criteria <- 0.0000000000000001
maxIter <- 100000
test <- 100.0
k <- 0
##A45
while (test > criteria & k < maximumIteration)
{
t1P <- pow((t1/(1+t1)),k)
t2P <- pow((t2/(1+t2)),k)
t3P <- pow((t3/(1+t3)),k)
t4P <- pow((t4/(1+t4)),k)
t12kP <- pow((t1/(1+t1)),(2*k))
t22kP <- pow((t2/(1+t2)),(2*k))
t32kP <- pow((t3/(1+t3)),(2*k))
t42kP <- pow((t4/(1+t4)),(2*k))
A45 <- (-t6*t2P*t3*t3*t4P*t1P*(t4*t4)-2*t6*t2P*t3*t4P*t1P*(t4*t4)*t1+t6*t2P*(t1*t1)*t42kP*t4
*t5-8*t42kP*t6*t2*t3*t1P*k*t1-2*t42kP*t3*t5*t1P*k*t1*(t2*t2)-8*t42kP*t7*t2*t1P*k*t3-2*t6
*t2P*t3*t4P*t1P*(t4*t4)-t42kP*(t1*t1)*t7*t3P*k*t5*(t2*t2)*t3-t6*t2P*t3*t3*t4P*t1P*t4-t42kP
*t7*t7*t3P*k+4*t42kP*t2*t3*t1P*k+t42kP*(t2*t2)*t5*t1P*k*t1*t6+4*t42kP*t3*t6*t1P*t4*(t2
*t2)-2*t6*t2P*t3*t42kP*t4+2*t42kP*t3*t3*t6*t1P*t4*(t2*t2)-2*t42kP*t1*t6*t2P*k*t2*t5*t3*t3
+2*t7*t3P*(t2*t2)*t3*t42kP*t4*t6*t1-2*t6*t6*t22kP*t1*t4P*t4+t6*t6*t2P*t3*t3*t42kP*t4+t7*t3P
*(t1*t1)*t42kP*t4*t6+2*t42kP*t2*t3*t3*t5*t1P*k*t6-2*t42kP*t6*t6*t1P*t4*t1*t3-t42kP*(t1*t1)
*t7*t3P*k*t6*t3-2*t42kP*t7*(t2*t2)*t1P*k+4*t7*t7*t3P*t1*t2*t42kP*t4-t6*t2P*t3*t3*t42kP
*t4+2*t42kP*t7*t3*t5*t1P*k*t1*(t2*t2)-2*t42kP*t7*(t2*t2)*t1P*k*t3*t3+t42kP*t6*t6*t1P*k+2
*t42kP*t2*t1P*k+2*t42kP*t7*(t2*t2)*t1P*k*t6*t1+2*t42kP*t7*t3P*k*t2+t7*t3P*t1P*t1*t4P
*t6*t4+t7*t7*t3P*t1P*t1*t4P*t4+t6*t6*t2P*t3*t3*t4*t1P*t1*t4P*t2-2*t42kP*t6*t1P*k*(t2
*t2)*t3*t3-t42kP*t7*t4*t5*t1P*(t2*t2)*t1+t42kP*t7*(t2*t2)*t1P*k*t5+t42kP*(t2*t2)*t3*t3*t5*t1P
*k*t7+t42kP*t5*t1P*k*t6-2*t42kP*t6*t2P*k*t2*t7*t3+t6*t6*t2P*t3*t3*t42kP*t4*t2-4*t42kP*t6
*t3*t3*t1P*t1*t7*t4*t2+2*t42kP*t6*t6*t1P*k*t1*t2-t7*t7*t32kP*t4P*t4+2*t7*t7*t3P*t2*t3*(t4
*t4)*t4P*t1P+t42kP*t7*t3*t3*t5*t1P*k*t1-2*(t2*t2)*(t4*t4)*t4P*t7*t7*t32kP*t1+t7*t7*t3P
*(t1*t1)*(t2*t2)*t42kP*t4+2*t7*t7*t3P*t1P*t1*t4P*t2*t3*(t4*t4)-2*t5*t12kP*t2*t4P*t4-t42kP
*(t1*t1)*t7*t3P*k*t6*(t2*t2)+t42kP*t3*t3*t2P*k*t6+2*t42kP*t3*t5*t1P*k*t1*t6*(t2*t2)+2*t4P
*t3*t4*t6*t2P*k*t2*t7*t3P+t6*t6*t22kP*(t1*t1)*t4*k*t4P+4*t7*t3P*t1*t2P*k*t4P*t6+4*t7*t3P
*t6*t2P*k*t2*t4P*t1*t3+4*t7*t3P*t6*t2P*k*t2*t4P*t1+2*t7*t3P*t6*t2P*k*t2*t4P*(t1*t1)*t4-t42kP
*(t1*t1)*t7*t3P*k*t5*t3-4*t6*t2P*t4*t3P*t3*t4P*t7*t1+2*t7*t7*t3P*t1*t42kP*t4+4*t42kP*t7
*t2*t1P*k*t6*t3*t3+2*t42kP*(t2*t2)*t3*t5*t1P*k*t7+t6*t6*t2P*(t4*t4)*t4P*t1P-t6*t2P*t3*t3
*(t4*t4)*t1P*t1*t4P+t6*t6*t22kP*k*t4P+t7*t3P*(t2*t2)*t42kP*t4*t5-4*t42kP*t1*t6*t2P*k
*t2*t7*t3+t42kP*t5*t1P*k*t7*t3*t3+t42kP*t1P*k*t1*(t2*t2)+2*t42kP*t3*t3*t5*t1P*k*t1*t6*t2
+t7*t3P*t42kP*t4*t6-2*t7*t3P*t1*t3*t42kP*t4-2*t42kP*t5*t1P*k*t3+2*t6*t2P*t1*t42kP*t4
*t5*t2+t42kP*(t2*t2)*t3*t3*t5*t1P*k*t6-2*t42kP*(t1*t1)*t7*t3P*k*t5*t2-t42kP*(t1*t1)*t7*t3P
*k*t5+4*t42kP*t3*t5*t1P*k*t1*t6*t2+t7*t3P*(t2*t2)*t3*t42kP*t4*t6-2*(t4*t4)*t1*t4P*t6*t6*t22kP-t42kP
*t6*(t2*t2)*t4*t5*t1P*t1-2*t42kP*t6*t1P*k*t3*t3+t42kP*t7*t3*t3*t5*t1P*k*t1*(t2*t2)+2*t42kP
*t2*t5*t1P*k*t1*t6-4*t42kP*t7*t2*t1P*k*t1-t4P*(t4*t4)*t1P*t1*t7*t3P+4*t7*t3P*t1*t2*t42kP
*t4*t6-2*t7*t3P*t2*t3*t42kP*t4*(t1*t1)-2*t42kP*t1*t6*t6*t2P*k*t2*t3*t3+2*t42kP*t3*t3*t7*t1P
*t4-t6*t6*t22kP*(t1*t1)*t4P*t4-2*t42kP*t1*t6*t2P*k*t2*t7+t7*t3P*t42kP*t4*t5+t7*t7*t3P*t3
*t42kP*t4+t7*t7*t3P*(t2*t2)*t3*t42kP*t4+2*t42kP*t1*t6*t2P*k*t2*t3*t3+t6*t6*t2P*(t1*t1)*t42kP
*t4*t2-t6*t2P*(t1*t1)*t42kP*t4+t42kP*t7*t3P*k*(t2*t2)*t3-2*t42kP*t7*t1*t2P*k*t6*t3*t3-4*t6
*t2P*t3*t42kP*t4*t1+t42kP*t7*t7*t1P*k+t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4*t6+t5*t12kP*(t2*t2)
*t4P*t6*t4+2*t42kP*t7*t7*t2*t1P*k*t1*t3*t3+2*t5*t12kP*(t2*t2)*t4P*t6*t4*t3-2*t42kP*t5*t1P
*k*t2+4*t5*t12kP*t2*t4P*t6*t4*t3+2*t42kP*(t2*t2)*t7*t1P*t4*t1-t6*t2P*t3*t3*t42kP*t4*t2*(t1
*t1)+t6*t2P*t3*t3*t4*t1P*t1*t4P*t7-2*t42kP*t3*t5*t1P*k*t1+t6*t2P*t3*t3*t42kP*t4*t5+t42kP
*t2P*k*t6*(t1*t1)-t5*t1P*t3P*t3*t4*t4P*t7*(t2*t2)-2*t7*t3P*t2*t3*t4*t1P*t1*t4P-2*t6*t2P
*t3*t4*t1P*t1*t4P*t5-t42kP*(t1*t1)*t7*t7*t3P*k*(t2*t2)*t3-2*(t4*t4)*(t1*t1)*t4P*t7*t3P*t6
*t2P-t7*t3P*t3*t4*t5*t1P*t4P*t1+t6*t6*t2P*t3*t3*t4*t1P*t1*t4P-2*t42kP*t1*t7*t3P*k*t6
*(t2*t2)+t6*t6*t2P*t2*t42kP*t4-2*t7*t3P*t4*t2P*t2*t4P*t6*(t1*t1)*t3-t42kP*t7*(t1*t1)*t2P
*k*t6+4*t42kP*t2*t3*t5*t1P*k*t7+4*t42kP*t7*t2*t1P*k*t6*t1-2*t7*t7*t32kP*(t1*t1)*t2*t4P*t4-2
*t6*t2P*t3*t42kP*t4*(t1*t1)-2*t42kP*t5*t2P*k*t6*t1+t6*t2P*t3*t3*t42kP*t4*t5*(t1*t1)*t2+t42kP
*t7*t7*t1P*k*t1*t3*t3+t42kP*(t2*t2)*t1P*k-4*t7*t3P*t4*t2P*t2*t4P*t6*t1*t3+2*t42kP*(t1*t1)
*t7*t3P*k*t2*t3+2*t5*t12kP*t2*t4P*t6*(t4*t4)-2*t7*t3P*t2*t3*t4*t1P*t1*t4P*t5+2*t7*t3P*t2
*t3*t4*t1P*t1*t4P*t6-2*t42kP*(t1*t1)*t6*t2P*k*t2*t7*t3+2*t42kP*t3*t2P*k*t6+4*t42kP*t1*t7
*t3P*k*t2*t3+2*t42kP*t1P*k*t1*t2+4*t42kP*t2*t3*t5*t1P*k*t6-t42kP*t6*t2P*k*t2*t5-t42kP
*t7*t3P*k*t6*t3-2*t42kP*t2*t3*t3*t5*t1P*k-t42kP*t7*t7*t3P*k*(t2*t2)-2*t7*t3P*t4*t2P*t2
*t4P*t6-2*(t4*t4)*(t1*t1)*t4P*t6*t6*t22kP*t3+2*t42kP*(t2*t2)*t7*t1P*t4+t5*t12kP*t3*t3*(t4
*t4)*(t2*t2)*t4P*t7-t7*t3P*t3*(t4*t4)*t4P*t1P-2*t6*t2P*t1*t42kP*t4+8*t42kP*t7*t2*t1P
*k*t6*t1*t3-t7*t3P*t3*(t4*t4)*t4P*t1P*t1-2*t7*t3P*t3*(t4*t4)*t4P*t1P*t2+2*t7*t3P*t2*t3
*t42kP*t4*t6*(t1*t1)-4*t42kP*t6*t1P*k*t2-t5*t12kP*(t2*t2)*t4P*t4-2*t42kP*t1*t7*t7*t3P*k
*t3+t7*t3P*t3*t4*t1P*t1*t4P*t6-2*t42kP*t1P*t1*t3*t4+2*t4P*t6*t2P*k*t2*t7*t3P+4*t7*t3P
*t1*t4*t2P*k*t4P*t6+4*t7*t3P*t3*t4*t6*t2P*k*t4P*t1*t2+2*t6*t6*t22kP*t1*k*t4P+t6*t6*t22kP
*(t1*t1)*t3*t3*k*t4P*t4+2*t4P*t6*t2P*k*t2*t7*t3P*t3+t6*t6*t22kP*t3*t3*k*t4P+2*t7*t7*t32kP
*t1*(t2*t2)*k*t4P*t4+t7*t7*t32kP*k*t4P*(t2*t2)+t7*t7*t32kP*k*t4P*(t2*t2)*t4-2*t42kP*t6*(t2
*t2)*t7*t1P*t4-2*t42kP*t6*(t2*t2)*t7*t1P*t4*t1+2*t6*t6*t22kP*t1*t4*k*t4P+2*t6*t6*t22kP*(t1
*t1)*t3*k*t4P*t4+2*t6*t6*t22kP*t1*t3*t3*k*t4P*t4-t4P*t4*t1P*t1*t6*t2P-t4P*t4*t1P*t1*t7
*t3P+2*t7*t7*t3P*t1P*t1*t4P*t2*t4-4*t42kP*t6*t3*(t2*t2)*t7*t1P*t4-2*t6*t6*t22kP*t3*t4P
*t4*(t1*t1)-t5*t1P*t4*t7*t3P*t4P*t3+2*t6*t2P*t3*t4P*t7*t1P*t4+t6*t2P*t2*t42kP*t4*t5+t7
*t3P*t3*t4P*t6*t1P*t4+2*t42kP*t6*t3*t3*t1P*k*t1*t7+2*t42kP*t7*t7*(t2*t2)*t1P*k*t1*t3+t42kP
*(t1*t1)*t3*t3*t2P*k*t6-t7*t3P*t4*t5*t1P*t4P*t1-2*t7*t3P*t4*t5*t1P*t4P*t1*t2+t6*t2P*t2
*t4*t1P*t1*t4P*t7+t42kP*t5*t1P*k*t6*(t2*t2)+2*t5*t12kP*t4P*t7*t4*t3+t7*t7*t32kP*k*t4P
*(t1*t1)*t4+2*t42kP*t7*t7*t2*t1P*k*t1-2*t7*t7*t32kP*t2*t4P*t4-2*t42kP*t1*t7*t7*t3P*k*(t2
*t2)-2*t42kP*t1*t6*t6*t2P*k*t2+2*t42kP*t6*t6*t1P*k*t2*t3*t3+2*t5*t1P*t2*t42kP*t4+2*t42kP
*(t1*t1)*t7*t3P*k*t2-t7*t3P*t3*t4P*t1P*t4+t7*t7*t32kP*k*t4P*t4+t7*t7*t32kP*k*t4P*(t1
*t1)+2*t7*t7*t32kP*k*t4P*t1+2*t7*t7*t32kP*k*t4P*t2+t7*t7*t3P*t3*t4P*t1P*t4+2*t6*t6*t2P
*t3*t4*t1P*t1*t4P*t2-t6*t2P*t3*t3*t4*t1P*t1*t4P-2*t7*t3P*t4*t2P*t2*t4P*t6*(t1*t1)+t7
*t7*t3P*(t1*t1)*t42kP*t4+t7*t3P*(t2*t2)*t3*t4*t1P*t1*t4P*t6+t7*t7*t32kP*(t1*t1)*(t2*t2)*k
*t4P+4*t7*t7*t32kP*t1*t2*k*t4P+2*t7*t7*t32kP*(t1*t1)*t2*k*t4P+2*t7*t7*t32kP*t1*(t2*t2)*k
*t4P+2*t7*t7*t32kP*(t1*t1)*t2*k*t4P*t4+2*t7*t7*t32kP*k*t4P*t2*t4+2*t7*t7*t32kP*k*t4P*t1
*t4+t42kP*t3*t3*t1P*k+t6*t2P*(t1*t1)*t42kP*t4*t7+2*t6*t2P*t3*t42kP*t4*t5-2*t7*t7*t32kP
*t1*(t2*t2)*t4P*t4-t4P*t7*t7*t1P*k*t1*t3P*t3-t6*t6*t2P*t4*t1P*k*t4P*t3*t3-t4P*t7*t2*t1P
*k*t6*t2P*t3*t3*t4-t4P*t7*t7*(t2*t2)*t1P*k*t3P*t4*t3-t4P*t7*t2*t1P*k*t6*t2P*t1*t3*t3+t4P
*t5*t1P*k*t7*t3P*t3-t4P*t6*t3*t1P*k*t1*t7*t3P-t6*t6*t2P*t1P*k*t1*t4P+t6*t2P*t1P*k
*t1*t4P*t5-t7*t3P*(t2*t2)*t1P*k*t1*t4P*t6*t4-t6*t6*t2P*t4*t1P*k*t4P*t2-t6*t6*t2P*t2*t1P
*k*t1*t4P+t7*t3P*(t2*t2)*t1P*k*t4P+2*t7*t3P*t2*t1P*k*t4P+t6*t2P*t1P*k*t4P-t5*t12kP
*k*t4P*t6*(t2*t2)*t3*t3+t6*t2P*t3*t3*t4*t1P*t1*t4P*t7*t2-2*t4P*t2*t1P*t1*t7*t3P*t3*(t4
*t4)+2*t6*t2P*t3*t4*t1P*t1*t4P*t7*t2-2*t6*t2P*t3*t4*t1P*t1*t4P*t5*t2+4*t5*t12kP*t2*t4P
*t6*(t4*t4)*t3-2*t42kP*t7*t7*t3*t3*t1P*t4*t2+2*t6*t6*t22kP*t3*k*t4P*t4+t6*t6*t22kP*(t1*t1)
*t3*t3*k*t4P-t42kP*t6*t6*(t2*t2)*t1P*t1*t4+2*t7*t3P*t4*t2P*k*t4P*t6+t6*t6*t22kP*t4*k*t4P
+2*t4P*t6*t2P*k*t2*t7*t3P*t4+2*t7*t3P*t6*t2P*k*t2*t4P*(t1*t1)*t3+2*t7*t3P*t6*t2P*k*t2
*t4P*(t1*t1)+2*t7*t3P*t3*t4*t6*t2P*k*t4P*(t1*t1)*t2+t6*t6*t22kP*t3*t3*k*t4P*t4+2*t7*t3P
*t2P*k*t4P*t6+2*t7*t3P*(t1*t1)*t4*t2P*k*t4P*t6*t3+2*t7*t3P*t3*t2P*k*t4P*t6+t7*t7*t32kP
*k*t4P-t42kP*t6*t4*t5*t1P+4*t7*t7*t32kP*t1*t2*k*t4P*t4-4*t42kP*t6*t3*t3*t2*t7*t1P*t4-2
*t42kP*t3*t6*t6*t2P*k-t42kP*(t1*t1)*t6*t2P*k*t2*t5-2*t5*t1P*t42kP*t7*t4*t1*t3-t4P*t6*t6
*t2*t3*t3*t1P*k*t1*t2P*t4-t6*t6*t2P*t3*t3*t1P*k*t1*t4P-t6*t2P*t3*t3*t1P*k*t1*t4P*t7-t6
*t6*t2P*t2*t3*t3*t1P*k*t4P+t4P*t3*t3*t4*t1P*k*t6*t2P*t2+2*t4P*t3*t4*t1P*k*t6*t2P*t1
*t2+2*t4P*t4*t5*t1P*k*t1*t7*t3P*t2*t3+t4P*t4*t5*t1P*k*t1*t6*t2P*t2-t4P*t7*t2*t1P*k*t6
*t2P*t1*t4-t4P*t7*t7*(t2*t2)*t1P*k*t3P*t1*t4*t3-4*t5*t12kP*k*t4P*t7*t2*t3-t5*t12kP*k*t4P
*t6*t4-t5*t12kP*k*t4P*t7*t3*t3*t4-2*t4P*t7*t7*t2*t1P*k*t3P*t1*t4+t4P*t4*t5*t1P*k*t1*t7
*t3P*(t2*t2)*t3+t4P*t4*t5*t1P*k*t1*t6*t2P*t3*t3*t2+t4P*t4*t5*t1P*k*t1*t6*t2P*t3*t3+t4P
*t4*t5*t1P*k*t1*t7*t3P*t3-t4P*t7*t7*(t2*t2)*t1P*k*t3P*t1-t4P*t6*t6*t1P*k*t2P-2*t4P
*t7*t2*t1P*k*t6*t2P*t1*t3-2*t4P*t7*t2*t1P*k*t6*t2P*t3*t4-t5*t12kP*k*t4P*t7*t4+t6*t2P
*t3*t3*t1P*k*t4P-t4P*t6*t1P*k*t7*t3P-2*t5*t12kP*t2*t4*k*t4P*t6-t6*t6*t2P*t2*t1P*k*t1
*t4P*t4-2*t6*t2P*t3*t1P*k*t4P*t7-2*t6*t6*t2P*t3*t1P*k*t4P-2*t5*t12kP*t2*t4*k*t4P*t7
*t3*t3-t5*t12kP*(t2*t2)*t4*k*t4P*t7*t3*t3+t5*t12kP*k*t4P*t3*t3-t4P*t7*t7*(t2*t2)*t1P*k*t3P
*t1*t3-2*t5*t12kP*k*t4P*t7*t2*t3*t3+t4P*t4*t5*t1P*k*t7*t3P+t4P*t4*t5*t1P*k*t6*t2P-t4P
*t7*t2*t1P*k*t6*t2P*t1+2*t4P*t4*t5*t1P*k*t6*t2P*t3+t4P*t4*t5*t1P*k*t6*t2P*t2+t4P*t4
*t5*t1P*k*t7*t3P*(t2*t2)+t4P*t4*t5*t1P*k*t6*t2P*t3*t3-2*t4P*t7*t2*t1P*k*t6*t2P*t3-t4P
*t7*t2*t1P*k*t6*t2P*t4-t4P*t6*(t2*t2)*t3*t1P*k*t1*t7*t3P*t4+t4P*t4*t5*t1P*k*t7*t3P*t3-2
*t5*t12kP*k*t4P*t7*t3*t4+2*t4P*t4*t5*t1P*k*t7*t3P*t2-t5*t12kP*k*t4P*t7*(t2*t2)*t3*t3+t4P
*t3*t3*t4*t1P*k*t6*t2P*t1-2*t4P*t7*t7*t2*t1P*k*t3P-t4P*t7*t2*t1P*k*t6*t2P+t4P*t4*t1P
*k*t6*t2P*t1+8*t42kP*t2*t3*t7*t1P*t4-t5*t12kP*k*t4P*t6*t3*t3*t4-2*t5*t12kP*k*t4P*t6*t3
*t4-t6*t2P*t1P*k*t1*t4P*t7*t4-t4P*t6*t1P*k*t1*t7*t3P*t4-2*t4P*t7*t7*t2*t1P*k*t3P*t1-t4P
*t7*t7*(t2*t2)*t1P*k*t3P-2*t4P*t7*t7*t2*t1P*k*t3P*t4-t4P*t6*t6*t2*t3*t3*t1P*k*t1*t2P-2
*t4P*t6*t6*t2*t3*t1P*k*t1*t2P*t4-2*t4P*t7*t7*t2*t1P*k*t3P*t1*t3-2*t4P*t7*t7*t2*t1P*k
*t3P*t4*t3-t4P*t7*t7*(t2*t2)*t1P*k*t3P*t3+4*t42kP*(t2*t2)*t3*t7*t1P*t4+2*t42kP*(t2*t2)
*t3*t1P*k-t4P*t4*t1P*t1*t7*t3P*t3+t6*t2P*t2*t1P*k*t4P+2*t4P*t3*t4*t1P*k*t6*t2P+t4P
*t3*t4*t1P*k*t7*t3P-t7*t7*t3P*t3*t1P*k*t4P+2*t6*t2P*t3*t1P*k*t4P*t5-t4P*t6*t1P*k
*t1*t7*t3P-2*t6*t2P*t3*t1P*k*t1*t4P*t7-t4P*t7*t7*t4*t1P*k*t3P-t4P*t7*t7*t3*t4*t1P*k
*t3P-2*t4P*t6*t6*t3*t4*t1P*k*t1*t2P-t4P*t6*t3*t4*t1P*k*t1*t7*t3P-t4P*t6*t6*t3*t3*t4*t1P
*k*t1*t2P+2*t7*t3P*t2*t1P*k*t1*t4P-t6*t6*t2P*t1P*k*t1*t4P*t4+2*t4P*t1P*k*t1*t6*t2P
*t3-t4P*t7*t2*t1P*k*t6*t2P*t1*t3*t3*t4-4*t5*t12kP*k*t4P*t6*t2*t3+t4P*t1P*k*t1*t6*t2P
+t4P*t1P*k*t1*t7*t3P+t4P*t3*t4*t1P*k*t7*t3P*(t2*t2)+2*t4P*t3*t4*t1P*k*t6*t2P*t2-2*t5
*t12kP*k*t4P*t6*(t2*t2)*t3+t4P*t3*t3*t5*t1P*k*t1*t6*t2P+2*t4P*t3*t5*t1P*k*t1*t6*t2P+t4P
*t3*t5*t1P*k*t1*t7*t3P-t6*t2P*t3*t3*t1P*k*t1*t4P*t7*t4+2*t4P*t2*t3*t1P*k*t7*t3P-4*t5
*t1P*t42kP*t7*t4*t1*t2*t3+2*t4P*t4*t5*t1P*k*t1*t6*t2P*t3+t4P*t4*t5*t1P*k*t1*t6*t2P+2
*t5*t1P*(t2*t2)*t42kP*t4*t1*t3+t5*t12kP*k*t4P-t42kP*t3*t3*t6*t2P*k*t7-t42kP*(t1*t1)*t7
*t7*t3P*k*t3+t7*t3P*(t1*t1)*t3*t42kP*t4*t6-4*(t4*t4)*t1*t4P*t7*t3P*t6*t2P+t6*t2P*t2*t4P
*t7*t1P*t4-2*t42kP*(t1*t1)*t6*t2P*k*t2*t5*t3+2*t42kP*t7*t7*(t2*t2)*t1P*k*t3-t42kP*(t1*t1)
*t7*t7*t3P*k*(t2*t2)-t42kP*t6*t6*t1P*t4*t3*t3+2*t6*t2P*t2*t4P*t7*t1P*t4*t3-t4P*(t2*t2)
*t1P*t1*t7*t3P*t3*(t4*t4)-t7*t3P*(t2*t2)*t42kP*t4-2*t5*t1P*t42kP*t7*t4*t3+t42kP*t5*t1P
*k*t6*t3*t3+2*t6*t2P*t2*t4P*t7*t1P*(t4*t4)*t3-t42kP*t3*t3*t1P*t4+t6*t2P*t2*t4P*t7*t1P
*(t4*t4)-2*t42kP*t6*t3*t3*(t2*t2)*t7*t1P*t4-4*t5*t1P*t42kP*t7*t4*t2*t3-2*t5*t1P*t42kP*t7
*t4*t2-2*t42kP*t6*t1P*k+t7*t7*t3P*t42kP*t4+2*t7*t7*t3P*(t1*t1)*t2*t42kP*t4-2*t42kP*(t1
*t1)*t6*t6*t2P*k*t2*t3-2*t42kP*t3*t3*t6*t6*t2P*k*t1+4*t6*t2P*t3*t42kP*t4*t5*t1*t2-2*t42kP
*t7*t7*t3P*k*t2*t3-2*t5*t1P*t42kP*t7*t4*t1*t2-t42kP*t6*t2P*k*t7-4*t42kP*t5*t2P*k*t6*t1
*t3+2*t42kP*t6*t6*(t2*t2)*t3*t1P*k*t1-2*t42kP*t7*t3P*k*t5*t2*t3-t6*t2P*t2*t42kP*t4-(t2*t2)
*(t4*t4)*t4P*t7*t7*t32kP+t6*t2P*t3*t3*t42kP*t4*t7*t2+t6*t2P*t2*t4P*t7*t1P*(t4*t4)*t1+t5
*t12kP*t3*t3*(t2*t2)*t4P*t7*t4-4*t42kP*t7*t7*t3*t1P*t4*t2-2*t42kP*t1*t7*t3P*k*t5*t3+t6*t2P
*t3*t3*t4P*t7*t1P*(t4*t4)*t1+2*t6*t2P*t3*t4P*t7*t1P*(t4*t4)*t1-t5*t1P*t3*t3*t42kP*t7*t4
*t1+t42kP*(t2*t2)*t3*t3*t1P*k*t1-2*t4P*t7*t7*t2*t1P*k*t3P*t3-2*t4P*t6*t6*t2*t3*t1P*k*t1
*t2P+t7*t3P*(t2*t2)*t1P*k*t1*t4P*t4+2*t7*t3P*t2*t1P*k*t1*t4P*t4+t4P*t4*t1P*k*t6*t2P
+t4P*t4*t1P*k*t7*t3P-t4P*t7*t2*t1P*k*t6*t2P*t3*t3+2*t4P*t3*t4*t1P*k*t7*t3P*t1*t2-2
*t4P*t6*t1P*k*t7*t3P*t2-2*t4P*t6*t2*t3*t1P*k*t1*t7*t3P+t6*t2P*t3*t3*t4P*t7*t1P*(t4
*t4)-t4P*t6*t1P*k*t7*t3P*t3-t4P*t6*t1P*k*t7*t3P*t4+t4P*t4*t5*t1P*k*t1*t7*t3P*(t2*t2)
+2*t4P*t4*t5*t1P*k*t1*t6*t2P*t3*t2-2*t7*t3P*t2*t1P*k*t1*t4P*t6*t4-t5*t12kP*(t2*t2)*t4*k
*t4P*t6+4*t5*t12kP*t2*t4*k*t4P*t3+t4P*t5*t1P*k*t6*t2P+t4P*t5*t1P*k*t7*t3P+t4P*t4
*t1P*k*t7*t3P*t1+2*t4P*t4*t1P*k*t7*t3P*t2+t4P*t5*t1P*k*t7*t3P*t1+2*t4P*t5*t1P*k*t7
*t3P*t2+2*t4P*t3*t5*t1P*k*t1*t6*t2P*t2+t4P*t3*t5*t1P*k*t1*t7*t3P*(t2*t2)+t4P*t3*t4*t1P
*k*t7*t3P*t1+2*t4P*t3*t4*t1P*k*t7*t3P*t2-2*t5*t1P*t3*t3*t42kP*t7*t4*t1*t2+t4P*t3*t3*t5
*t1P*k*t1*t6*t2P*t2+t6*t2P*t2*t1P*k*t4P*t5+t4P*t2*t3*t3*t5*t1P*k*t6*t2P*t4+t4P*(t2
*t2)*t3*t5*t1P*k*t7*t3P*t4-2*t4P*t6*t2*t3*t1P*k*t1*t7*t3P*t4-t4P*t6*(t2*t2)*t3*t1P*k*t1
*t7*t3P+t4P*(t2*t2)*t3*t5*t1P*k*t7*t3P+2*t4P*t2*t3*t5*t1P*k*t7*t3P*t4+t4P*t4*t1P*k
*t7*t3P*(t2*t2)+2*t42kP*t3*t5*t1P*k*t1*t6+t6*t6*t2P*(t1*t1)*t42kP*t4-t42kP*t7*t7*t3P*k
*(t2*t2)*t3-2*t42kP*t3*t6*t6*t2P*k*(t1*t1)+t7*t3P*(t2*t2)*(t4*t4)*t3*t4P*t6*t1P+t6*t6*t2P
*t2*(t4*t4)*t4P*t1P+2*t42kP*t6*t6*t2*t3*t3*t1P*k*t1+t42kP*t6*t6*t1P*k*t3*t3-4*t42kP*t7
*t1*t2P*k*t6*t3-2*t5*t1P*t3*t3*t42kP*t7*t4*t2-t7*t3P*t4P*t1P*t4-t7*t3P*t4P*t1P*(t4
*t4)-4*t42kP*t6*t3*(t2*t2)*t7*t1P*t4*t1-2*t42kP*t1P*k*t1*t7+t5*t12kP*t4P*t6*t4+t7*t3P*(t2
*t2)*t3*t42kP*t4*t5+2*t5*t12kP*t2*t4P*t6*t4*t3*t3-2*t42kP*t1*t7*t3P*k*t6*t3+2*t7*t3P*t2*t3
*t42kP*t4*t5+t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4*t5+t5*t12kP*(t2*t2)*t4P*t6*t4*t3*t3+2*t42kP
*t7*t7*t2*t1P*k*t3*t3+2*t6*t2P*t3*t3*t42kP*t4*t7*t1-t7*t7*t32kP*(t1*t1)*(t2*t2)*t4P*t4+t42kP
*t7*t7*t1P*k*t3*t3-t42kP*t7*t4*t5*t1P*(t2*t2)*t3*t3*t1-2*t42kP*t1*t7*t7*t3P*k*(t2*t2)*t3-t7
*t3P*t42kP*t4+2*t7*t7*t3P*t4P*t1P*t4*t2+2*t7*t3P*t1P*t1*t4P*t6*t2*t3*(t4*t4)-2*t42kP
*t3*t3*t2*t1P*t4+t5*t12kP*(t2*t2)*t4P*t6*(t4*t4)*t3*t3-4*t42kP*t2*t1P*t1*t4*t3-2*t42kP*(t2
*t2)*t1P*t1*t4*t3-t42kP*t6*t6*t1P*t4*(t2*t2)+t7*t3P*(t2*t2)*t42kP*t4*t6+t5*t12kP*t3*t3*(t4
*t4)*t4P*t6-2*t5*t12kP*t3*t3*(t4*t4)*t2*t4P+4*t42kP*t7*t1P*t4*t2-t42kP*t6*(t2*t2)*t4*t5*t1P-t6
*t2P*(t1*t1)*t42kP*t4*t2+t5*t12kP*(t4*t4)*t4P*t6-t6*t2P*t3*t3*(t4*t4)*t2*t4P*t1P+4*t42kP
*t7*t1P*t4*t1*t3+4*t6*t2P*t3*t42kP*t4*t7*t1+2*t7*t3P*t2*t3*t4P*t6*t1P*t4-t5*t1P*t3*t3*t42kP
*t7*t4+2*t6*t2P*t3*t3*t42kP*t4*t5*t1+2*t6*t6*t2P*t3*t3*t42kP*t4*t1+t7*t3P*t3*t42kP*t4*t6
+t42kP*t1P*k+2*t7*t3P*(t1*t1)*t4*t2P*k*t4P*t6+4*t7*t3P*t1*t4*t2P*k*t4P*t6*t3+t6*t6*t22kP
*(t1*t1)*k*t4P-t42kP*t6*t1*t4*t5*t1P+2*t7*t3P*t3*t2P*k*t4P*t6*(t1*t1)+4*t7*t3P*t3*t2P
*k*t4P*t6*t1+4*t6*t6*t22kP*t1*t3*k*t4P*t4+2*t6*t6*t22kP*t3*k*t4P+4*t6*t6*t22kP*t1*t3*k*t4P
+2*t6*t6*t22kP*(t1*t1)*t3*k*t4P+2*t6*t6*t22kP*t1*t3*t3*k*t4P+4*t7*t3P*t6*t2P*k*t2*t4P*t1
*t4-t6*t2P*t5*t1P*t4P*t1*t4+2*t42kP*t1*t7*t3P*k*(t2*t2)+2*t6*t2P*t3*t3*t42kP*t4*t7*t1*t2
+t4P*t7*t4*t1P*t1*t6*t2P+t7*t3P*(t2*t2)*t3*t42kP*t4*t5*(t1*t1)-(t4*t4)*(t1*t1)*t4P*t7*t7
*t32kP+t6*t2P*t42kP*t4*t7-t42kP*t7*t7*t3P*k*t3-t42kP*(t1*t1)*t6*t6*t2P*k*t2+t7*t3P*t3
*t42kP*t4*t5+2*t6*t6*t2P*t3*t42kP*t4*t2-2*t42kP*t6*t6*(t2*t2)*t1P*t1*t4*t3+2*t6*t6*t2P*t3
*t3*t42kP*t4*t1*t2-(t4*t4)*(t1*t1)*t4P*t6*t6*t22kP*t3*t3+4*t42kP*t1*t3*t2P*k*t6-t7*t3P*(t2
*t2)*t3*t42kP*t4*(t1*t1)+2*t5*t12kP*t3*(t2*t2)*t4P*t7*t4+2*t6*t2P*t1*t42kP*t4*t7*t2-2*t5*t1P
*t4*t7*t3P*t4P*t3*t2-t6*t6*t22kP*t3*t3*t4P*t4*(t1*t1)+2*t6*t6*t2P*t1*t42kP*t4*t2+2*t6*t2P
*t3*t3*t42kP*t4*t5*t1*t2+2*t6*t6*t2P*t3*t42kP*t4*(t1*t1)+t7*t7*t3P*t1P*t1*t4P*(t2*t2)*t4-t42kP
*t7*t3P*k*t5*(t2*t2)*t3-2*t42kP*t2*t1P*t1*t4-t42kP*(t2*t2)*t1P*t1*t4-2*t42kP*(t1*t1)*t7*t3P
*k*t5*t2*t3-2*t42kP*t7*t7*t3P*k*t2-t42kP*t6*t6*t2P*k*t2*t3*t3+t7*t3P*t1P*t1*t4P*t6*(t2
*t2)*(t4*t4)+2*t6*t2P*t1*t42kP*t4*t5-t5*t1P*t1*t3*t3*t4P*(t4*t4)*t6*t2P*t2+2*t7*t3P*t2*t3
*t42kP*t4*t6+2*t7*t7*t3P*t1*t3*t42kP*t4+t7*t3P*(t2*t2)*t3*t42kP*t4*t6*(t1*t1)-8*t42kP*t6
*t2*t7*t1P*t4*t3-2*t42kP*t3*t1P*t4-4*t5*t12kP*t2*(t4*t4)*t4P*t3-t6*t2P*t4P*t1P*t4-t6
*t2P*t4P*t1P*(t4*t4)-4*t42kP*t6*t2*t7*t1P*t4-2*t5*t12kP*t2*(t4*t4)*t4P+t7*t7*t3P*t4P
*t1P*t4-t42kP*t7*t7*t3*t3*t1P*t4+2*t42kP*t7*t7*t1P*k*t3-t42kP*t3*t3*t5*t1P*k*t1*(t2*t2)
+2*t42kP*t7*t3*t3*t5*t1P*k*t1*t2-2*t42kP*t6*t1P*k*(t2*t2)-2*t42kP*t7*(t2*t2)*t1P*k*t1+4*t7
*t3P*t1*t2*t42kP*t4*t5-t7*t3P*(t1*t1)*t3*t42kP*t4+t6*t6*t2P*t4P*t1P*t4+t42kP*t2P*k
*t6+t42kP*t1P*k*t1*t3*t3-8*t42kP*t6*t1P*k*t2*t3+2*t42kP*t7*t7*t2*t1P*k+t42kP*t6*t2P*k
*t2*t3*t3-4*t42kP*t6*t2*t4*t5*t1P*t3*t1-2*t42kP*t1P*k*t1*t6-2*t6*t2P*t4*t3P*t3*t4P*t7-t42kP
*(t1*t1)*t7*t3P*k*t5*(t2*t2)+2*t7*t3P*(t1*t1)*t2*t42kP*t4*t5+t42kP*t7*t7*(t2*t2)*t1P*k*t3*t3
+t5*t12kP*t4P*t7*t4-2*t42kP*t7*t7*t2*t1P*t4-t42kP*t7*t7*(t2*t2)*t1P*t4+t6*t2P*t3*t3*t42kP
*t4*t7*t2*(t1*t1)+t6*t6*t2P*t2*t3*t3*t1P*t1*t4P*(t4*t4)-t42kP*(t1*t1)*t6*t2P*k*t2*t5*t3*t3
+2*t42kP*(t2*t2)*t3*t5*t1P*k*t6+t5*t12kP*(t2*t2)*(t4*t4)*t4P*t6-2*t42kP*t7*(t2*t2)*t1P*k
*t1*t3*t3+t6*t6*t2P*t2*t4P*t1P*t4*t3*t3-4*t42kP*t3*t6*t6*t2P*k*t1+t7*t3P*t4P*t6*t1P*t4-(t4
*t4)*t4P*t6*t6*t22kP+t7*t7*t3P*t3*(t2*t2)*t4P*t1P*t4-2*t42kP*t1*t7*t3P*k*t5+2*t7*t3P
*t4P*t6*t1P*t4*t2+t7*t3P*t4P*t6*t1P*(t4*t4)-t6*t2P*t3*t3*t4P*t4*t5*t1P-4*t42kP*t2*t3
*t5*t1P*k+2*t6*t2P*t3*t42kP*t4*t7*(t1*t1)+t6*t2P*t3*t3*t42kP*t4*t7*(t1*t1)+2*t7*t3P*t1*(t2
*t2)*t42kP*t4*t5-4*t42kP*t6*t1P*k*(t2*t2)*t3-2*t42kP*t3*t3*t1P*k*t7-4*t42kP*t1*t7*t7*t3P
*k*t2+2*t7*t3P*t4P*t6*t1P*(t4*t4)*t2+t7*t3P*t1P*t1*t4P*t6*(t2*t2)*t4-2*t4P*t2*t1P*t1
*t6*t2P*t3*t4+t4P*t6*t6*t4*t1P*t1*t2P-t4P*(t2*t2)*t1P*t1*t7*t3P*t4+t6*t6*t2P*t42kP
*t4-2*t42kP*t7*t1*t2P*k*t6+8*t42kP*t7*t2*t1P*k*t6*t3-2*t42kP*t1*t7*t7*t3P*k-2*t7*t3P*t1
*t42kP*t4+4*t42kP*t6*t1P*k*t7*t3-t7*t3P*(t1*t1)*t42kP*t4-4*t7*t3P*t1*t2*t42kP*t4+2*t42kP
*t2*t3*t3*t1P*k-t42kP*t1P*k*t1*t5+4*t6*t2P*t3*t42kP*t4*t5*t1+2*t42kP*t7*t2*t1P*k*t5+t42kP
*(t1*t1)*t6*t2P*k*t2-2*t42kP*t6*(t2*t2)*t3*t3*t1P*k*t1+2*t42kP*t7*t3*t5*t1P*k*t1-4*t42kP
*t6*t2*t3*t3*t1P*k*t1+2*t42kP*t1*t6*t2P*k*t2-4*t42kP*t1P*k*t1*t6*t3-2*t42kP*t5*t2P*k*t6
*(t1*t1)*t3+2*t42kP*t6*t6*t1P*k*(t2*t2)*t3-2*t42kP*t6*t6*t2P*k*t2*t3+t6*t2P*(t1*t1)*t42kP
*t4*t5*t2+t42kP*t7*t7*(t2*t2)*t1P*k*t1+t6*t2P*t2*t42kP*t4*t7+2*t6*t6*t2P*t3*t42kP*t4+t6*t2P
*(t1*t1)*t42kP*t4*t7*t2-t7*t3P*t4P*t5*t1P*t4+4*t42kP*t7*t1P*t4*t3+2*t4P*t3*t4*t6*t2P
*k*t7*t3P+2*t7*t3P*(t1*t1)*t2P*k*t4P*t6-t7*t3P*(t2*t2)*t3*t4*t1P*t1*t4P+2*t42kP*t7*t1P
*t4*t1+4*t42kP*t7*t1P*t4*t1*t2+t42kP*t6*t2P*k*t2-t42kP*(t2*t2)*t3*t3*t5*t1P*k+2*t7*t3P
*t1*t3*t42kP*t4*t5-4*t42kP*t1P*k*t1*t7*t3+2*t7*t3P*t1P*t1*t4P*t6*t2*t4-t4P*t2*t1P*t1
*t6*t2P*t3*t3*t4-t42kP*t7*t7*(t2*t2)*t1P*t1*t4+t42kP*t6*t6*t1P*k*t1*(t2*t2)+t42kP*t7*t7*(t2
*t2)*t1P*k*t1*t3*t3+t4P*t4*t5*t1P*k*t1*t7*t3P+t4P*(t2*t2)*t3*t1P*k*t7*t3P+t4P*t3*t3*t4
*t1P*k*t6*t2P*t1*t2-2*t5*t12kP*t2*t4*k*t4P*t6*t3*t3-t5*t12kP*(t2*t2)*t4*k*t4P*t6*t3*t3-t6
*t6*t2P*t2*t3*t3*t1P*k*t4P*t4+t4P*t4*t1P*k*t6*t2P*t2-t6*t2P*t4*t1P*k*t4P*t7-t4P*t7
*t7*t1P*k*t3P+2*t4P*t2*t3*t1P*k*t1*t6*t2P-2*t4P*t7*t7*t2*t1P*k*t3P*t1*t4*t3-t42kP*t1P
*t1*t3*t3*t4+t4P*t1P*k*t1*t7*t3P*t3+t4P*t1P*k*t1*t6*t2P*t3*t3-t5*t12kP*(t2*t2)*t4*k*t4P
*t7-4*t5*t12kP*t2*t4*k*t4P*t6*t3-4*t5*t12kP*t2*t4*k*t4P*t7*t3+2*t5*t12kP*t2*t4*k*t4P*t3*t3
+2*t5*t12kP*t2*t4*k*t4P-2*t5*t12kP*(t2*t2)*t4*k*t4P*t6*t3-2*t5*t12kP*(t2*t2)*t4*k*t4P*t7
*t3-2*t6*t6*t2P*t3*t1P*k*t1*t4P-2*t4P*t6*t2*t3*t4*t1P*k*t7*t3P-2*t5*t12kP*k*t4P*t6*t2-2
*t5*t12kP*t2*t4*k*t4P*t7-2*t6*t6*t2P*t2*t3*t1P*k*t4P*t4-2*t6*t6*t2P*t4*t1P*k*t4P*t3-2
*t6*t2P*t4*t1P*k*t4P*t7*t3-2*t6*t6*t2P*t2*t3*t1P*k*t4P-t6*t6*t2P*t3*t3*t1P*k*t4P+t6
*t2P*t3*t3*t1P*k*t4P*t5-t6*t2P*t3*t3*t1P*k*t4P*t7+t5*t12kP*k*t4P*(t2*t2)-2*t6*t2P*t3
*t1P*k*t1*t4P*t7*t4-t4P*t7*t7*t1P*k*t1*t3P+t4P*t5*t1P*k*t7*t3P*(t2*t2)-t5*t12kP*t3
*t3*(t2*t2)*t4P*t4+2*t6*t2P*t3*t1P*k*t4P+t7*t3P*(t2*t2)*t1P*k*t1*t4P*t3+t4P*t1P*k*t1
*t6*t2P*t2+2*t4P*t3*t4*t1P*k*t6*t2P*t1+t4P*t3*t3*t4*t1P*k*t6*t2P-t6*t2P*t4*t1P*k*t4P
*t7*t3*t3-t6*t6*t2P*t2*t1P*k*t4P-8*t42kP*t6*t3*t1P*t1*t7*t2*t4-2*t5*t12kP*t3*(t2*t2)*t4P
*t4+4*t5*t12kP*k*t4P*t2*t3-t6*t2P*t1P*k*t4P*t7+2*t5*t12kP*(t2*t2)*(t4*t4)*t4P*t6*t3+t4P
*t3*t1P*k*t7*t3P+t7*t3P*(t2*t2)*t1P*k*t1*t4P-t6*t2P*t1P*k*t1*t4P*t7+2*t5*t12kP*k*t4P
*t2+t5*t12kP*k*t4P*t4+2*t5*t12kP*k*t4P*t3-t5*t12kP*k*t4P*t6+t4P*t2*t3*t3*t5*t1P*k*t6
*t2P+2*t4P*t2*t3*t5*t1P*k*t6*t2P*t4+2*t4P*t2*t3*t5*t1P*k*t6*t2P+2*t4P*t2*t3*t5*t1P
*k*t7*t3P-t4P*t6*t1P*k*t7*t3P*(t2*t2)-2*t5*t12kP*k*t4P*t6*t3-2*t5*t12kP*k*t4P*t7*t2-2
*t4P*t6*t1P*k*t7*t3P*t2*t3-t4P*t6*t1P*k*t7*t3P*t4*t3-t4P*t6*t1P*k*t7*t3P*(t2*t2)*t4-t5
*t12kP*k*t4P*t6*(t2*t2)+2*t5*t12kP*k*t4P*(t2*t2)*t3-t5*t12kP*k*t4P*t7*(t2*t2)-t4P*t6*t1P
*k*t7*t3P*(t2*t2)*t3+2*t5*t12kP*k*t4P*t2*t3*t3+2*t4P*t4*t5*t1P*k*t1*t7*t3P*t2+t5*t12kP
*k*t4P*(t2*t2)*t3*t3-t5*t12kP*k*t4P*t6*t3*t3-t5*t12kP*k*t4P*t7*t3*t3+2*t4P*t3*t5*t1P*k
*t1*t7*t3P*t2+2*t5*t12kP*k*t4P*t3*t4-2*t5*t12kP*k*t4P*t7*t3+t4P*(t2*t2)*t5*t1P*k*t1*t7
*t3P-2*t4P*t6*t1P*k*t7*t3P*t2*t4-t6*t6*t2P*t4*t1P*k*t4P-t5*t12kP*k*t4P*t7-t4P*t6
*(t2*t2)*t3*t4*t1P*k*t7*t3P+2*t5*t12kP*t2*t4P*t6*t4-t7*t7*t3P*t4*t1P*k*t1*t4P*t3-2*t5*t12kP
*k*t4P*t7*(t2*t2)*t3-2*t7*t3P*t2*t1P*k*t1*t4P*t6+t42kP*t6*t6*t1P*k*(t2*t2)*t3*t3+t6*t6*t2P
*t2*t4*t1P*t1*t4P-4*t42kP*t3*t5*t1P*k*t1*t2+2*t42kP*(t1*t1)*t6*t2P*k*t2*t3-(t4*t4)*t4P
*t6*t6*t22kP*t3*t3+2*t42kP*t7*(t2*t2)*t1P*k*t6*t1*t3*t3+2*t7*t3P*(t2*t2)*t3*t42kP*t4*t5*t1
+4*t42kP*t6*t6*t1P*k*t2*t3-t42kP*t5*t2P*k*t6*(t1*t1)+4*t6*t2P*t3*t42kP*t4*t7*t1*t2-t42kP
*t5*t2P*k*t6*(t1*t1)*t3*t3+2*t6*t2P*t3*t42kP*t4*t5*t2*(t1*t1)-t42kP*t6*t6*t2P*k-4*t42kP*t7
*t2*t1P*k*t3*t3-4*t42kP*t6*t1*t2*t7*t3P*k*t3-4*t42kP*t1*t7*t3P*k*t5*t2-2*t42kP*t1*t7*t3P
*k*t5*(t2*t2)-4*t42kP*t7*t2*t1P*k*t1*t3*t3+2*t42kP*t1*t7*t3P*k*t3+t42kP*t5*t1P*k*t7+2*t6
*t2P*t3*t42kP*t4*t7-t42kP*t6*t6*t2P*k*(t1*t1)-t42kP*t5*t1P*k*(t2*t2)-t42kP*t6*t2P*k*t2
*t7*t3*t3+t42kP*t5*t1P*k*t7*t1-2*t6*t2P*t3*t3*t42kP*t4*t1-t4P*t2*t1P*t1*t6*t2P*t4+t7*t7
*t3P*t3*t4*t1P*t1*t4P-t6*t2P*t2*t4*t1P*t1*t4P*t5+4*t42kP*t6*t6*t2*t3*t1P*k*t1-8*t42kP
*t7*t2*t1P*k*t1*t3+t42kP*(t2*t2)*t5*t1P*k*t1*t7+2*t7*t3P*t1*(t2*t2)*t42kP*t4*t6+t42kP*(t1
*t1)*t7*t3P*k-4*t42kP*t1P*k*t1*t6*t2+2*t42kP*t6*t1P*k*t1*t7-t6*t6*t22kP*t4P*t4-2*t42kP
*t7*t7*t2*t1P*t1*t4-2*t7*t3P*t2*t3*t42kP*t4-t42kP*t5*t2P*k*t6-2*t7*t3P*t4P*t5*t1P*t4
*t2-t7*t3P*(t2*t2)*t3*t42kP*t4+t42kP*t7*t3P*k+2*t42kP*t6*t6*t3*t1P*k*t1-4*t42kP*t7*(t2
*t2)*t1P*k*t3-2*t42kP*t7*t3P*k*t6*t2*t3-2*t42kP*t1*t7*t3P*k*t6-2*t42kP*t2*t5*t1P*k*t1-t7
*t7*t32kP*(t2*t2)*t4P*t4+2*t42kP*(t1*t1)*t3*t2P*k*t6-t42kP*(t1*t1)*t6*t6*t2P*k*t2*t3*t3-2
*t4P*t2*t1P*t1*t7*t3P*t4-t42kP*t3*t3*t6*t6*t2P*k*(t1*t1)+t7*t7*t3P*(t2*t2)*t3*t4*t1P*t1
*t4P+2*t6*t6*t2P*t3*t4*t1P*t1*t4P-2*t42kP*t7*t4*t5*t1P*(t2*t2)*t3-t6*t2P*t4P*t2*t5*t1P
*t4+2*t5*t12kP*(t2*t2)*t4*k*t4P*t3+t5*t12kP*(t2*t2)*t4*k*t4P+t5*t12kP*(t2*t2)*t4*k*t4P*t3
*t3+t6*t2P*t2*t3*t3*t1P*k*t4P+t5*t12kP*(t4*t4)*t4P*t7+t4P*t4*t1P*k*t6*t2P*t1*t2-t7*t7
*t3P*t4*t1P*k*t1*t4P-2*t5*t12kP*k*t4P*t6*t2*t3*t3-t4P*t7*t7*(t2*t2)*t1P*k*t3P*t4+t4P
*t3*t4*t1P*k*t7*t3P*t1*(t2*t2)+t5*t12kP*k*t4P*t3*t3*t4+t4P*t2*t5*t1P*k*t1*t6*t2P+2*t4P
*t2*t5*t1P*k*t1*t7*t3P+2*t6*t2P*t2*t3*t1P*k*t4P-t4P*t7*t7*(t2*t2)*t1P*k*t3P*t1*t4-2*t4P
*t7*t2*t1P*k*t6*t2P*t1*t3*t4+t4P*t2*t3*t3*t1P*k*t1*t6*t2P-t7*t3P*(t2*t2)*t1P*k*t1*t4P
*t6+2*t7*t3P*t2*t1P*k*t1*t4P*t3+t4P*t1P*k*t7*t3P+2*t42kP*t5*t1P*k*t6*t3-2*t42kP*t5
*t2P*k*t6*t3+4*t5*t1P*t2*t42kP*t4*t1*t3+4*t42kP*t3*t6*t1P*t4*t1*(t2*t2)+2*t42kP*t3*t3*t6
*t1P*t4*t1*(t2*t2)+8*t42kP*t2*t3*t7*t1P*t4*t1+4*t42kP*(t2*t2)*t3*t7*t1P*t4*t1-t7*t3P*(t2
*t2)*t3*t4*t1P*t1*t4P*t5+2*t42kP*(t2*t2)*t3*t3*t7*t1P*t4+t42kP*t5*t1P*k*t6*t1-2*t42kP*t1
*t7*t3P*k*t5*(t2*t2)*t3-t5*t12kP*t4P*t4-4*t42kP*t7*t7*t3*t1P*t1*t4*t2+t7*t7*t32kP*(t1*t1)
*(t2*t2)*k*t4P*t4-4*t2*(t4*t4)*t4P*t7*t7*t32kP*t1-2*t42kP*t6*t3*t3*(t2*t2)*t7*t1P*t4*t1-t5
*t1P*t42kP*t7*t4*t1-t42kP*t6*t6*t1P*t4*t1-4*t42kP*t7*t2*t1P*k+t42kP*t7*t3P*k*t3+t42kP
*t6*t6*t3*t3*t1P*k*t1-4*t42kP*t1*t7*t3P*k*t5*t2*t3+2*t42kP*t2*t3*t3*t5*t1P*k*t7-t42kP*t5
*t2P*k*t6*t3*t3-4*t42kP*t6*t1P*k*t2*t3*t3+2*t5*t12kP*t2*t4P*t7*t4+t5*t12kP*(t2*t2)*t4P
*t7*t4-2*t42kP*t6*(t1*t1)*t2*t7*t3P*k*t3+4*t42kP*t7*t2*t1P*k*t6+t42kP*t6*t6*(t2*t2)*t3*t3*t1P
*k*t1-4*t42kP*t1*t6*t6*t2P*k*t2*t3+2*t5*t12kP*t2*t4P*t7*(t4*t4)-2*t7*t3P*(t2*t2)*t3*t42kP
*t4*t1+2*t42kP*t7*t3P*k*t2*t3+2*t5*t12kP*(t2*t2)*(t4*t4)*t3*t4P*t7+4*t42kP*t2*t6*t1P*t4*t1-2
*t6*t2P*t4P*t4*t7*t3P+2*t5*t12kP*t3*t3*(t4*t4)*t4P*t6*t2-t6*t2P*t4P*t4*t5*t1P+2*t7*t3P
*t2*t42kP*t4*t6+t42kP*t1*(t2*t2)*t4*t5*t1P*t3*t3+4*t7*t3P*t2*t3*t42kP*t4*t6*t1+t5*t1P*t42kP
*t4*t1+2*t6*t2P*t1*t42kP*t4*t7-2*t6*t2P*t3*t4P*t4*t5*t1P-4*(t4*t4)*t1*t4P*t6*t6*t22kP*t3
+2*t7*t7*t3P*t4P*t1P*(t4*t4)*t2+2*t6*t2P*t3*t4P*t7*t1P*(t4*t4)-t42kP*(t2*t2)*t1P*t4+4
*t42kP*t3*t3*t7*t1P*t4*t1*t2-t5*t1P*t3*t3*t42kP*t6*t4-t42kP*t7*t7*t3*t3*t1P*t1*t4-2*t42kP
*t7*t7*t3*t3*t1P*t1*t4*t2+t6*t2P*t3*t3*t4P*t7*t1P*t4-t7*t3P*(t2*t2)*(t4*t4)*t3*t4P*t1P
+2*t42kP*t6*t1P*t4-2*t42kP*t7*t7*(t2*t2)*t1P*t1*t4*t3+t4P*t7*t1P*t1*t6*t2P*(t4*t4)+2*t42kP
*t3*t3*t7*t1P*t4*t1+t7*t7*t3P*(t2*t2)*t4P*t1P*t4-2*t5*t12kP*t3*t4P*t4-2*t5*t12kP*t3*t3
*t4P*t4*t2-2*t5*t12kP*t3*t4P*(t4*t4)-4*t5*t12kP*t3*t4P*t4*t2-t5*t12kP*t3*t3*t4P*t4-t5*t12kP
*t3*t3*t4P*(t4*t4)+2*t6*t6*t2P*t2*(t4*t4)*t4P*t1P*t3-2*t42kP*t2*t1P*t4-4*t6*t2P*t1*t4P
*t4*t7*t3P-t5*t1P*t42kP*t7*t4+t6*t6*t2P*t3*t3*(t4*t4)*t2*t4P*t1P+t7*t7*t3P*t3*(t4*t4)*t4P
*t1P-2*t6*t2P*t3*t42kP*t4*(t1*t1)*t2+4*t42kP*t7*t7*t2*t1P*k*t1*t3+t42kP*(t1*t1)*t7*t3P
*k*(t2*t2)*t3+2*t42kP*t6*t1P*k*t7*t3*t3+2*t6*t2P*t3*t4*t1P*t1*t4P*t7+t6*t2P*t3*t3*t2*t4P
*t7*t1P*t4-t6*t2P*t3*t3*t5*t1P*t4P*t1*t4+2*t7*t7*t3P*t2*t3*t4*t1P*t1*t4P-t7*t3P*(t2*t2)
*t5*t1P*t4P*t1*t4+2*t42kP*t2P*k*t6*t1+4*t42kP*t7*t7*t2*t1P*k*t3+4*t42kP*t3*t6*t1P*t4
+t6*t2P*t42kP*t4*t5-t42kP*t6*t6*t1P*t4*t3*t3*t1+2*t42kP*(t2*t2)*t6*t1P*t4*t1-2*t42kP*t7
*(t1*t1)*t2P*k*t6*t3+t7*t3P*t3*(t4*t4)*t1P*t1*t4P*t6+2*t42kP*t1*t7*t3P*k-t42kP*t7*t3P
*k*t5*t3-4*t42kP*t6*t3*t7*t1P*t4-2*t42kP*t3*t3*t5*t1P*k*t1*t2-2*t42kP*t6*t6*t2P*k*t1+4*t6
*t6*t2P*t3*t42kP*t4*t1*t2-t42kP*t6*(t1*t1)*(t2*t2)*t7*t3P*k*t3-2*t42kP*t1P*k*t1*t7*t3*t3
+2*t42kP*t1*t3*t3*t2P*k*t6-t42kP*t7*t4*t5*t1P*(t2*t2)+2*t42kP*t6*t2P*k*t2*t3+2*t42kP*t6
*t6*t1P*k*t2+t42kP*t7*t3P*k*(t2*t2)+2*t7*t7*t3P*t2*t3*t42kP*t4*(t1*t1)-t42kP*(t1*t1)*t7*t7
*t3P*k+2*t42kP*t2*t5*t1P*k*t1*t7+2*t42kP*t1P*k*t1*t3+t7*t7*t3P*(t2*t2)*t42kP*t4-2*t42kP
*t7*t1P*k-2*t42kP*t6*t2P*k*t2*t5*t3-4*t42kP*t1*t7*t3P*k*t6*t2-2*t42kP*t7*t3P*k*t5*t2-4
*t42kP*t6*t1P*k*t3-2*t6*t2P*t1*t42kP*t4*t2+t7*t3P*(t2*t2)*t4P*t6*t1P*t4-2*t42kP*t7*t7
*t3*t1P*t1*t4-t42kP*t7*t7*t1P*t1*t4-2*t5*t1P*t3*t42kP*t6*t4*t1+t7*t7*t3P*(t2*t2)*t4P*t1P
*(t4*t4)+t6*t6*t2P*t2*t4P*t1P*t4-2*t42kP*t6*t3*t3*t7*t1P*t4+2*t7*t7*t3P*(t2*t2)*t3*t42kP
*t4*t1-2*t7*t3P*t3*t4P*(t4*t4)*t5*t1P*t2-t7*t3P*t3*t4P*(t4*t4)*t5*t1P-2*t7*t3P*t3*t4P
*(t4*t4)*t6*t2P-4*t6*t2P*t1*t2*t3*t4P*(t4*t4)*t7*t3P-t42kP*t3*t3*(t2*t2)*t1P*t4+2*t6*t6*t2P
*t2*t4P*t1P*t4*t3+4*t42kP*t2*t6*t1P*t4+2*t5*t1P*t3*t42kP*t4-2*t7*t3P*t3*t4P*(t4*t4)*t6
*t2P*t2-t7*t3P*t3*t4P*(t4*t4)*t5*t1P*(t2*t2)+t7*t7*t3P*t1P*t1*t4P*(t2*t2)*(t4*t4)+t5*t1P
*t3*t3*t42kP*t4*t1+2*t5*t1P*t3*t42kP*t4*t1+t5*t1P*t3*t3*t42kP*t4+2*t5*t1P*t3*t3*t42kP*t4
*t2-2*t2*(t4*t4)*t4P*t7*t3P*t6*t2P*(t1*t1)-t7*t7*t32kP*(t1*t1)*t4P*t4-t42kP*t7*t7*t3*t3*(t2
*t2)*t1P*t4*t1-2*t42kP*t7*t7*t3*(t2*t2)*t1P*t4+t4P*t6*t6*(t4*t4)*t1P*t1*t2P-t4P*(t4*t4)
*t1P*t1*t6*t2P+t7*t7*t3P*t3*(t4*t4)*t1P*t1*t4P-t42kP*t7*t7*t3*t3*(t2*t2)*t1P*t4+4*t42kP
*t2*t3*t1P*k*t1+t42kP*t7*t7*t1P*k*t1-2*t42kP*(t1*t1)*t7*t7*t3P*k*t2*t3-2*t42kP*t6*t1*(t2
*t2)*t7*t3P*k*t3-t6*t2P*t42kP*t4+4*t42kP*t6*t3*t1P*k*t1*t7-t42kP*t7*t3P*k*t5-2*t42kP
*t5*t2P*k*t6*t1*t3*t3-2*t42kP*t3*t6*t2P*k*t7+t42kP*(t1*t1)*t6*t2P*k*t2*t3*t3-t42kP*t5*t1P
*k*t3*t3+2*t7*t3P*t1*t42kP*t4*t6-2*t7*t3P*t2*(t4*t4)*t4P*t1P-2*t6*t2P*(t1*t1)*t2*t3*t4P
*(t4*t4)*t7*t3P+t7*t7*t3P*t1P*t1*t4P*(t4*t4)-2*t42kP*t6*t6*t1P*t4*(t2*t2)*t3-t5*t1P*t2
*t4P*(t4*t4)*t6*t2P-2*t5*t1P*t2*t4P*(t4*t4)*t7*t3P+4*t7*t3P*t2*t3*t42kP*t4*t5*t1-2*t7*t7
*t32kP*t1*t4P*t4-t6*t2P*t2*(t4*t4)*t4P*t1P-4*t7*t3P*t3*t4P*(t4*t4)*t6*t2P*t1-4*t42kP
*t6*t2*t4*t5*t1P*t3-t6*t2P*t2*(t4*t4)*t4P*t1P*t1+2*t7*t7*t3P*t1P*t1*t4P*(t4*t4)*t2+2*t7
*t3P*(t1*t1)*t2*t42kP*t4*t6-2*t6*t2P*t2*(t4*t4)*t4P*t1P*t1*t3-(t4*t4)*t4P*t7*t7*t32kP-2
*t42kP*t6*t6*t1P*t4*t2*t3*t3-t5*t1P*t4P*(t4*t4)*t6*t2P*t1-2*t5*t1P*t4P*(t4*t4)*t6*t2P
*t3-t5*t1P*t4P*(t4*t4)*t6*t2P-t5*t1P*t4P*(t4*t4)*t7*t3P-t5*t1P*t4P*(t4*t4)*t7*t3P*t1-t5
*t1P*t4P*(t4*t4)*t6*t2P*t3*t3+2*t6*t2P*t2*t3*t1P*t1*t4P*t7*(t4*t4)-t7*t3P*(t2*t2)*t4P
*t5*t1P*t4-t42kP*t6*t6*t1P*t4*(t2*t2)*t3*t3-t7*t3P*(t2*t2)*(t4*t4)*t4P*t1P*t1-2*t42kP*t6
*t6*t1P*t4*t2-t5*t1P*t3*t3*t42kP*t6*t4*t1-t5*t1P*(t2*t2)*t4P*(t4*t4)*t7*t3P*t1-2*t6*t6*t22kP
*t3*t4P*t4-t7*t3P*(t2*t2)*(t4*t4)*t4P*t1P-2*t7*t3P*t2*(t4*t4)*t4P*t1P*t1-4*t42kP*t3*t1P
*t4*t2-2*t42kP*t6*(t2*t2)*t4*t5*t1P*t3*t1-2*t5*t1P*t1*t3*t4P*(t4*t4)*t7*t3P*t2-2*t6*t2P*t2
*(t4*t4)*t4P*t1P*t3+t5*t1P*(t2*t2)*t42kP*t4*t1+2*t7*t7*t3P*t1*(t2*t2)*t42kP*t4-2*t5*t12kP
*(t2*t2)*(t4*t4)*t3*t4P-2*t42kP*t3*t3*t2*t1P*t4*t1-t42kP*t1P*t1*t4-2*t7*t3P*t3*t4P*(t4
*t4)*t6*t2P*(t1*t1)+2*t42kP*(t2*t2)*t6*t1P*t4+t5*t1P*t42kP*t4-t5*t1P*t1*t3*t4P*(t4*t4)
*t7*t3P*(t2*t2)-t6*t2P*t2*t4P*t1P*t4*t3*t3-2*t5*t1P*t1*t3*t4P*(t4*t4)*t6*t2P*t2-2*t5*t1P
*t3*t42kP*t6*t4+2*t6*t2P*t3*t42kP*t4*t5*t2-4*t6*t2P*t3*t42kP*t4*t1*t2-t4P*t2*t1P*t1*t6
*t2P*t3*t3*(t4*t4)+t7*t7*t3P*(t2*t2)*(t4*t4)*t3*t4P*t1P-2*t5*t1P*t2*t4P*(t4*t4)*t7*t3P
*t1-t5*t1P*(t2*t2)*t4P*(t4*t4)*t7*t3P+t6*t2P*t2*t3*t3*t1P*t1*t4P*t7*(t4*t4)-t5*t1P*t2*t4P
*(t4*t4)*t6*t2P*t3*t3-t42kP*t7*t7*t1P*t4-t42kP*t3*t3*(t2*t2)*t1P*t4*t1-4*t42kP*t6*t3*t1P
*t1*t7*t4+t6*t6*t2P*t3*t3*t42kP*t4*(t1*t1)+2*t5*t1P*t2*t42kP*t4*t1-4*t42kP*t6*t6*t1P*t4*t2
*t3-2*t42kP*t6*t6*t1P*t4*t1*t2+2*t5*t1P*(t2*t2)*t42kP*t4*t3+2*t5*t12kP*t3*(t4*t4)*t4P*t7
+4*t5*t12kP*t3*(t4*t4)*t4P*t7*t2-2*t42kP*t6*t6*t1P*t4*t3-4*t2*(t4*t4)*t4P*t7*t3P*t6*t2P
*t1+t5*t1P*(t2*t2)*t42kP*t4-2*(t4*t4)*t1*t4P*t7*t7*t32kP+t6*t2P*t3*t3*t42kP*t4*t5*t2-t42kP
*t6*t6*t1P*t4-t5*t12kP*t4P*(t4*t4)-4*t7*t3P*t2*t3*t42kP*t4*t1-t5*t1P*t2*t4P*(t4*t4)*t6
*t2P*t1-2*t5*t1P*t2*t4P*(t4*t4)*t6*t2P*t3-t5*t1P*t1*t3*t3*t4P*(t4*t4)*t6*t2P+2*t42kP
*t1*t2*t4*t5*t1P*t3*t3+t6*t6*t2P*t3*t3*t4P*t1P*(t4*t4)*t1+t6*t6*t2P*t3*t3*t4P*t1P*(t4*t4)-2
*t2*(t4*t4)*t4P*t7*t3P*t6*t2P-2*t5*t1P*t1*t3*t4P*(t4*t4)*t6*t2P-t5*t1P*t1*t3*t4P*(t4
*t4)*t7*t3P+2*t6*t6*t2P*t3*t4P*t1P*(t4*t4)*t1+t6*t6*t2P*t3*t3*t4P*t1P*t4-2*(t4*t4)*t4P
*t7*t3P*t6*t2P-4*t7*t7*t32kP*t1*t2*t4P*t4+4*t5*t1P*t2*t42kP*t4*t3+t6*t2P*t4P*t7*t1P
*t4+2*t6*t2P*t3*t42kP*t4*t7*t2+2*t6*t6*t2P*t3*t4P*t1P*t4+2*t6*t6*t2P*t3*t4P*t1P*(t4*t4)
+2*t6*t2P*t3*t42kP*t4*t7*t2*(t1*t1)-2*t6*t2P*(t1*t1)*t4P*t4*t7*t3P-(t4*t4)*(t1*t1)*t4P*t6
*t6*t22kP+t42kP*t7*t7*(t2*t2)*t1P*k-4*t42kP*t6*(t2*t2)*t3*t1P*k*t1-t42kP*t6*t2P*k*t2*t7
+2*t7*t7*t3P*t2*t42kP*t4-4*t42kP*t7*(t2*t2)*t1P*k*t1*t3+2*t42kP*t6*t6*t1P*k*t3-t42kP*t5
*t1P*k+2*t7*t3P*t2*t3*(t4*t4)*t4P*t6*t1P+t42kP*(t1*t1)*t7*t3P*k*(t2*t2)-t5*t1P*t3*t3*t4
*t2P*t2*t4P*t6+2*t42kP*t7*t7*t1P*k*t1*t3-t42kP*t7*t3P*k*t6*(t2*t2)*t3+t6*t2P*t3*t3*t42kP
*t4*t7-2*t7*t3P*t2*t42kP*t4+t7*t3P*t1P*t1*t4P*t6*(t4*t4)+2*t42kP*t1P*t1*t6*t4+2*t7*t3P
*t1P*t1*t4P*t6*(t4*t4)*t2-2*t42kP*t6*t3*t3*t1P*t1*t7*t4+2*t42kP*t3*t3*t6*t1P*t4*t1+2*t5*t12kP
*t3*t4P*t6*t4+t5*t12kP*t3*t3*t4P*t6*t4-4*t42kP*t1*t7*t7*t3P*k*t2*t3+2*t42kP*(t2*t2)*t3*t1P
*k*t1+t5*t12kP*t3*t3*t4P*t7*t4+2*t5*t12kP*t3*t3*t4P*t7*t4*t2+4*t42kP*t3*t3*t6*t1P*t4*t1*t2
+2*t5*t12kP*t3*t3*(t4*t4)*t2*t4P*t7+t5*t12kP*t3*t3*t4P*t7*(t4*t4)+2*t42kP*t1*t7*t3P*k*(t2
*t2)*t3+2*t42kP*t2*t3*t3*t1P*k*t1-2*t6*t2P*t3*t42kP*t4*t2-t42kP*t7*t3P*k*t6-2*t2*(t4*t4)
*t4P*t7*t7*t32kP-t42kP*t6*t2P*k*t2*t5*t3*t3+2*t7*t3P*t1*t42kP*t4*t5+2*t42kP*t7*(t2*t2)
*t1P*k*t6*t3*t3-2*t42kP*t1P*k*t1*t6*(t2*t2)-2*t6*t2P*t3*t4P*t1P*t4-t42kP*t7*t4*t5*t1P
*(t2*t2)*t3*t3+2*t42kP*t5*t1P*k*t7*t3-t42kP*t3*t3*t6*t6*t2P*k+2*t42kP*t3*t1P*k+2*t42kP
*t7*(t2*t2)*t1P*k*t6-2*t6*t2P*t4*t3P*t3*t4P*t7*(t1*t1)-t42kP*t1P*t4-2*t7*t3P*t2*t4P*t1P
*t4-t7*t3P*(t2*t2)*t4P*t1P*t4+2*t7*t3P*t2*t42kP*t4*t5+8*t42kP*t3*t6*t1P*t4*t2-2*t42kP
*t1*t6*t2P*k*t2*t7*t3*t3-4*t42kP*t1*t6*t2P*k*t2*t5*t3+t7*t3P*(t2*t2)*t4P*t6*t1P*(t4*t4)+2
*t42kP*t5*t1P*k*t6*t2-4*t7*t3P*t4*t2P*t2*t4P*t6*t1-2*t5*t1P*t3*t4*t2P*t2*t4P*t6-t6*t2P
*t3*t3*t42kP*t4*t2+t42kP*t1P*k*t1-2*t42kP*(t1*t1)*t7*t3P*k*t6*t2+4*t42kP*t1*t7*t3P*k*t2-2
*t42kP*t1P*k*t1*t6*t3*t3-t42kP*t3*t3*t5*t1P*k*t1+2*t42kP*t7*t1P*t4-2*t42kP*(t1*t1)*t7*t7
*t3P*k*t2-2*t42kP*t1*t6*t2P*k*t2*t5+2*t6*t6*t2P*t3*t42kP*t4*t2*(t1*t1)+2*t5*t12kP*(t4*t4)
*t4P*t6*t3+t6*t6*t2P*t3*t3*t42kP*t4*t2*(t1*t1)+t6*t2P*t3*t3*(t4*t4)*t2*t4P*t7*t1P+t5*t12kP
*(t2*t2)*(t4*t4)*t4P*t7+2*t42kP*t6*t1P*k*t7-t42kP*(t1*t1)*t6*t2P*k*t2*t7*t3*t3-t42kP*(t1
*t1)*t6*t2P*k*t2*t7+4*t42kP*t7*t3*t5*t1P*k*t1*t2+2*t7*t3P*t1*t3*t42kP*t4*t6+4*t42kP*t1*t6
*t2P*k*t2*t3+t42kP*t6*t6*t1P*k*(t2*t2)+t42kP*(t2*t2)*t4*t5*t1P*t3*t3-t42kP*t7*t3P*k*t6
*(t2*t2)-4*t6*t6*t22kP*t3*t4P*t4*t1-4*t42kP*t3*t1P*k*t7-t6*t2P*t3*t3*t4*t1P*t1*t4P*t5*t2
+4*t42kP*t3*t3*t6*t1P*t4*t2+4*t42kP*t3*t6*t1P*t4*t1+2*t42kP*t3*t3*t6*t1P*t4-2*t6*t6*t22kP
*t3*t3*t4P*t4*t1-t42kP*t6*t6*t2P*k*t2+2*t7*t7*t3P*t2*t3*t4P*t1P*t4-t5*t12kP*(t2*t2)*(t4
*t4)*t3*t3*t4P-2*t42kP*(t2*t2)*t3*t5*t1P*k+4*t42kP*t7*t2*t1P*k*t6*t1*t3*t3+4*t42kP*t7*(t2
*t2)*t1P*k*t6*t1*t3-2*t2*(t4*t4)*t4P*t7*t7*t32kP*(t1*t1)-2*(t4*t4)*t1*t4P*t6*t6*t22kP*t3*t3
+4*t42kP*t7*(t2*t2)*t1P*k*t6*t3-2*t42kP*t7*t3P*k*t6*t2+t7*t7*t3P*(t1*t1)*t3*t42kP*t4-4*t42kP
*t6*t6*t1P*t4*t1*t2*t3+8*t42kP*t3*t6*t1P*t4*t1*t2+2*t6*t6*t2P*t1*t42kP*t4-t6*t2P*t3*t3*t42kP
*t4*(t1*t1)+t42kP*(t1*t1)*t7*t3P*k*t3+t42kP*(t2*t2)*t3*t3*t1P*k+t42kP*t6*t6*t1P*k*t1+2*t6
*t2P*t3*t42kP*t4*t5*(t1*t1)-2*t42kP*(t2*t2)*t1P*t4*t3-t42kP*t7*t3P*k*t5*(t2*t2)+t42kP*t3
*t3*t5*t1P*k*t1*t6+t7*t3P*(t1*t1)*t42kP*t4*t5-t42kP*t7*(t1*t1)*t2P*k*t6*t3*t3-2*t42kP*t7
*t7*t3*t1P*t4-2*t7*t3P*t4*t2P*t2*t4P*t6*t3-2*(t4*t4)*t4P*t6*t6*t22kP*t3-t42kP*(t2*t2)*t5
*t1P*k*t1-2*t6*t2P*t3*t4*t1P*t1*t4P+t42kP*t3*t3*t5*t1P*k*t1*t6*(t2*t2)-t7*t3P*t3*t42kP
*t4+2*t7*t3P*t2*t3*t42kP*t4*t5*(t1*t1)-t42kP*(t1*t1)*t7*t3P*k*t6-t7*t3P*(t1*t1)*(t2*t2)*t42kP
*t4-2*t42kP*t6*t6*t1P*t4*t2*t3*t3*t1+4*t6*t6*t2P*t3*t42kP*t4*t1-t42kP*t6*t6*t1P*t4*(t2*t2)
*t3*t3*t1+4*t7*t7*t3P*t2*t3*t42kP*t4*t1-2*t7*t3P*t2*t3*t4P*t1P*t4-t7*t3P*(t2*t2)*t3*t4P
*t1P*t4+4*t5*t12kP*t2*t3*t4P*t7*t4-t5*t1P*t3*t3*(t2*t2)*t42kP*t6*t4*t1-2*t5*t1P*t3*t3*t2
*t42kP*t6*t4*t1-2*t42kP*t6*t2*t4*t5*t1P*t1-t5*t1P*t3*t3*(t2*t2)*t42kP*t6*t4-2*t42kP*t7*t1P
*t1*t6*t4-4*t42kP*t7*t1P*t1*t6*t4*t2-2*t42kP*t6*(t2*t2)*t4*t5*t1P*t3+t7*t3P*t3*(t4*t4)*t4P
*t6*t1P-2*t5*t1P*t3*t3*t2*t42kP*t6*t4-t5*t12kP*(t2*t2)*(t4*t4)*t4P-2*t42kP*t7*t4*t5*t1P
*(t2*t2)*t3*t1-2*t42kP*t6*t2*t4*t5*t1P+4*t42kP*t3*t3*t7*t1P*t4*t2+t7*t3P*(t1*t1)*t3*t42kP
*t4*t5-(t2*t2)*(t4*t4)*t4P*t7*t7*t32kP*(t1*t1)-2*t6*t2P*t3*t3*t42kP*t4*t1*t2+t7*t3P*t3*(t2
*t2)*t4P*t6*t1P*t4+t7*t7*t3P*(t2*t2)*(t4*t4)*t3*t4P*t1P*t1-t6*t6*t22kP*t3*t3*t4P*t4-t6
*t2P*t2*t4P*t1P*t4-2*t6*t2P*t2*t4P*t1P*t4*t3+t7*t3P*(t2*t2)*(t4*t4)*t3*t4P*t6*t1P*t1-2
*t7*t3P*(t1*t1)*t2*t42kP*t4+t7*t7*t3P*(t2*t2)*t3*t42kP*t4*(t1*t1)+2*t7*t7*t3P*t2*t3*t42kP
*t4+2*t6*t6*t2P*t2*(t4*t4)*t4P*t1P*t1*t3-2*t42kP*t6*t7*t1P*t4+t7*t7*t3P*t4P*t1P*(t4*t4)
+t6*t2P*t3*t3*t42kP*t4*t5*(t1*t1)-2*t7*t3P*t1*(t2*t2)*t42kP*t4+t6*t6*t2P*t2*(t4*t4)*t4P*t1P
*t1+2*t42kP*(t2*t2)*t3*t3*t7*t1P*t4*t1+t6*t2P*t4P*t7*t1P*(t4*t4))/(1+t4)/t4*pow(t7*t3P
+t6*t2P+t5*t1P+t4P-t4P*t5*t1*t2*t3+t5*t1P*t2+t6*t2P*t4+t6*t2P*t3+t6*t2P*t1+t7*t3P*t4
+t7*t3P*t2+t7*t3P*t1-t4P*t6*t2-t4P*t7*t3-t4P*t5*t1+t4P*t2*t3-t4P*t5*t3-t4P*t5*t2+t4P
*t1*t3-t4P*t6*t3-t4P*t6*t1+t4P*t1*t2-t4P*t7*t2-t4P*t7*t1+t5*t1P*t4+t5*t1P*t3+t4P*t3-t4P
*t5-t4P*t6-t4P*t7+t4P*t2+t4P*t1+t5*t1P*t2*t4+t5*t1P*t3*t4+t5*t1P*t2*t3+t6*t2P*t1*t4+t6
*t2P*t3*t4+t6*t2P*t1*t3+t7*t3P*t2*t4+t7*t3P*t1*t2+t7*t3P*t1*t4-t4P*t7*t1*t2-t4P*t6*t2*t3-t4P
*t6*t1*t2-t4P*t7*t2*t3-t4P*t7*t1*t3-t4P*t6*t1*t3-t4P*t5*t1*t2-t4P*t5*t1*t3-t4P*t5*t2*t3+t4P
*t1*t2*t3-t4P*t6*t1*t2*t3+t5*t1P*t2*t3*t4+t6*t2P*t1*t3*t4+t7*t3P*t1*t2*t4-t4P*t7*t1*t2*t3,-2)
if (k > 0) test <- abs(A45/a[4,5])
a[4,5] <- a[4,5] + A45
k <- k+1
}
if (k == maximumIteration) {
return(list("flag"=1))
break
}
##A46
test <- 100.0
k <- 0
while (test > criteria & k < maximumIteration)
{
t1P <- pow((t1/(1+t1)),k)
t2P <- pow((t2/(1+t2)),k)
t3P <- pow((t3/(1+t3)),k)
t4P <- pow((t4/(1+t4)),k)
t12kP <- pow((t1/(1+t1)),(2*k))
t22kP <- pow((t2/(1+t2)),(2*k))
t32kP <- pow((t3/(1+t3)),(2*k))
t42kP <- pow((t4/(1+t4)),(2*k))
A46 <- -1/(1+t4)/t4*pow(t7*t3P+t6*t2P+t5*t1P+t4P-t4P*t5*t1*t2*t3+t5*t1P*t2+t6*t2P*t4+t6*t2P
*t3+t6*t2P*t1+t7*t3P*t4+t7*t3P*t2+t7*t3P*t1-t4P*t6*t2-t4P*t7*t3-t4P*t5*t1+t4P*t2*t3-t4P
*t5*t3-t4P*t5*t2+t4P*t1*t3-t4P*t6*t3-t4P*t6*t1+t4P*t1*t2-t4P*t7*t2-t4P*t7*t1+t5*t1P*t4
+t5*t1P*t3+t4P*t3-t4P*t5-t4P*t6-t4P*t7+t4P*t2+t4P*t1+t5*t1P*t2*t4+t5*t1P*t3*t4+t5*t1P
*t2*t3+t6*t2P*t1*t4+t6*t2P*t3*t4+t6*t2P*t1*t3+t7*t3P*t2*t4+t7*t3P*t1*t2+t7*t3P*t1*t4-t4P
*t7*t1*t2-t4P*t6*t2*t3-t4P*t6*t1*t2-t4P*t7*t2*t3-t4P*t7*t1*t3-t4P*t6*t1*t3-t4P*t5*t1*t2-t4P
*t5*t1*t3-t4P*t5*t2*t3+t4P*t1*t2*t3-t4P*t6*t1*t2*t3+t5*t1P*t2*t3*t4+t6*t2P*t1*t3*t4+t7*t3P
*t1*t2*t4-t4P*t7*t1*t2*t3,-2)*(t6*t2P*(t1*t1)*t42kP*t4*t5-2*t42kP*t3*t5*t1P*k*t1*(t2*t2)+t42kP
*(t1*t1)*t7*t3P*k*t5*(t2*t2)*t3+t42kP*t7*t7*t3P*k-t4P*t5*t5*t1*t2P*t2*t1P*t4+4*t42kP*t1
*(t3*t3)*t2P*k*t5*t2+4*t42kP*t7*t1*t2P*k+t42kP*t2P*t4-4*t42kP*t7*(t1*t1)*t2P*k*t5*t3+t42kP
*(t2*t2)*t5*t1P*k*t1*t6-2*t6*t2P*t3*t42kP*t4+2*t42kP*(t1*t1)*(t3*t3)*t2P*k*t7-2*t42kP*t1
*t6*t2P*k*t2*t5*(t3*t3)-2*t7*t3P*(t2*t2)*t3*t42kP*t4*t6*t1+2*t42kP*t2*(t3*t3)*t5*t5*t1P*k+2
*t42kP*t2P*k*t7*t2-t7*t3P*(t1*t1)*t42kP*t4*t6+2*t42kP*t2*(t3*t3)*t5*t1P*k*t6-2*t42kP*t7
*(t1*t1)*t2P*k*t5+2*t42kP*(t1*t1)*t2P*k*t2*t7+t42kP*(t1*t1)*t7*t3P*k*t6*t3-4*t7*t7*t3P*t1
*t2*t42kP*t4-t6*t2P*(t3*t3)*t42kP*t4+2*t42kP*t7*t3*t5*t1P*k*t1*(t2*t2)-t42kP*t7*t7*t2P
*k*t2*(t3*t3)-2*t42kP*t5*t5*t2P*k*t2*t3-2*t42kP*t7*t3P*k*t2-t42kP*t7*t4*t5*t1P*(t2*t2)*t1
+t42kP*t7*(t2*t2)*t1P*k*t5+t42kP*(t2*t2)*(t3*t3)*t5*t1P*k*t7+t42kP*t5*t1P*k*t6-2*t42kP
*t6*t2P*k*t2*t7*t3+t7*t7*t32kP*t4P*t4-2*t42kP*t7*t7*t2P*k*t1*t2+t42kP*t7*(t3*t3)*t5*t1P
*k*t1+8*t42kP*t1*t3*t2P*k*t5*t2+2*(t2*t2)*(t4*t4)*t4P*t7*t7*t32kP*t1-2*t42kP*t7*t7*t1*t2P
*k*(t3*t3)-t7*t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4-t5*t5*t1P*(t2*t2)*(t3*t3)*t42kP*t4*t1+t42kP*(t1
*t1)*t7*t3P*k*t6*(t2*t2)-t5*t5*t1P*(t2*t2)*t42kP*t4+t42kP*(t3*t3)*t2P*k*t6+2*t42kP*t3*t5
*t1P*k*t1*t6*(t2*t2)-2*t7*t3P*t4*t2P*t2*t4P*t5*t1-t7*t7*t3P*t4*t2P*t2*t4P*t3-t4P*t2P
*k*t7*t3P*(t1*t1)-t4P*t2P*k*t5*t1P*t1+2*t6*t22kP*t1*(t3*t3)*k*t4P*t7*t4-4*t6*t22kP*t1*t3
*k*t4P+t6*t22kP*k*t4P*t7+t6*t22kP*k*t4P*t5-t4P*t3*t4*t6*t2P*k*t2*t7*t3P-t5*t1P*(t3
*t3)*t2P*k*t2*t4P+t4P*t5*t2P*k*t7*t3P*t3+t4P*t5*t5*t2P*k*t1P*(t3*t3)-2*t6*t22kP*t1
*(t3*t3)*k*t4P-2*t7*t3P*t1*t2P*k*t4P*t6-t4P*(t1*t1)*t3*t2P*k*t7*t3P*t2+t6*t22kP*(t1*t1)
*(t3*t3)*k*t4P*t5-2*t5*t1P*t1*t3*t2P*k*t2*t4P+t5*t1P*t4*t2P*k*t4P*t7+t4P*t7*t2P*k*t5
*t1P*t2*(t3*t3)*t1-2*t6*t22kP*t3*k*t4P*t4-2*t7*t3P*t6*t2P*k*t2*t4P*t1*t3+2*t4P*t5*t5*t2P
*k*t1P*t3*t4+t5*t5*t1P*t1*t2P*k*t2*t4P+t5*t1P*t1*(t3*t3)*t4*t2P*k*t4P*t7*t2+t7*t7*t3P
*t2P*k*t2*t4P*(t1*t1)+2*t4P*t7*t3*t4*t2P*k*t5*t1P-2*t7*t3P*t6*t2P*k*t2*t4P*t1-t7*t3P
*t6*t2P*k*t2*t4P*(t1*t1)*t4-t7*t3P*t2P*k*t2*t4P*t4-2*t4P*t3*t2P*k*t5*t1P-t4P*t3*t2P
*k*t7*t3P+t4P*t7*t7*t3*t4*t2P*k*t3P-4*t42kP*t7*t1*t2P*k*t5*(t3*t3)+2*t42kP*t5*(t1*t1)*t7
*t2P*t4*(t3*t3)-2*t6*t22kP*(t3*t3)*(t4*t4)*t4P*t7*t1+t42kP*t5*t5*(t1*t1)*t2P*t4*(t3*t3)+2*t42kP
*t1*t2P*t4-t5*t1P*t1*(t3*t3)*t4P*t7*t2P*(t4*t4)+2*t42kP*(t3*t3)*t2P*k*t5*t2+t42kP*(t1*t1)
*t7*t3P*k*t5*t3-2*t42kP*t1*(t3*t3)*t2P*k*t2+2*t6*t2P*t4*t3P*t3*t4P*t7*t1+2*t42kP*(t1*t1)
*(t3*t3)*t2P*k*t5*t2+t5*t5*t12kP*(t2*t2)*t4P*(t4*t4)-2*t7*t7*t3P*t1*t42kP*t4+t4P*t4*t2P
*t2*t5*t1P-t7*t3P*t4*t2P*t2*t4P*t5+2*t42kP*(t2*t2)*t3*t5*t1P*k*t7-t6*t22kP*k*t4P-t7*t3P
*(t2*t2)*t42kP*t4*t5-4*t42kP*t1*t6*t2P*k*t2*t7*t3+t42kP*t5*t1P*k*t7*(t3*t3)+2*t42kP*(t3*t3)
*t5*t1P*k*t1*t6*t2-t7*t3P*t42kP*t4*t6-2*t42kP*t5*t5*(t1*t1)*t2P*k*t2*t3+2*t7*t3P*t1*t3*t42kP
*t4-2*t42kP*t5*t1P*k*t3+2*t42kP*t5*t5*t1P*k*t2+2*t6*t2P*t1*t42kP*t4*t5*t2+t42kP*(t2*t2)
*(t3*t3)*t5*t1P*k*t6+2*t42kP*(t1*t1)*t7*t3P*k*t5*t2+4*t42kP*t3*t5*t5*t1P*k*t1*t2-t4P*t7*t1
*t2P*t2*t5*t1P*t4-2*t42kP*t5*t2P*k*t7*t2+t42kP*(t1*t1)*t7*t3P*k*t5-t42kP*t7*t7*t2P*k
*t2+4*t42kP*t3*t2P*k*t7*t2-2*t42kP*t5*t2P*k*t7*(t3*t3)+4*t42kP*t3*t5*t1P*k*t1*t6*t2-t7*t3P
*(t2*t2)*t3*t42kP*t4*t6-t42kP*t6*(t2*t2)*t4*t5*t1P*t1-t42kP*t5*t5*t2P*k+t42kP*t7*(t3*t3)
*t5*t1P*k*t1*(t2*t2)+2*t42kP*t2*t5*t1P*k*t1*t6-t42kP*t7*t7*(t1*t1)*t2P*k*(t3*t3)-4*t7*t3P
*t1*t2*t42kP*t4*t6+2*t7*t3P*t2*t3*t42kP*t4*(t1*t1)+2*t5*t5*t12kP*t2*t4P*t4-2*t42kP*t1*t6
*t2P*k*t2*t7-t7*t3P*t42kP*t4*t5-t7*t7*t3P*t3*t42kP*t4-t42kP*(t1*t1)*(t3*t3)*t2P*k*t2-t7
*t7*t3P*(t2*t2)*t3*t42kP*t4+2*t42kP*t1*t6*t2P*k*t2*(t3*t3)-t6*t2P*(t1*t1)*t42kP*t4-t42kP
*t7*t3P*k*(t2*t2)*t3-2*t42kP*t7*t1*t2P*k*t6*(t3*t3)+4*t42kP*t5*(t1*t1)*t7*t2P*t4*t3-2*t5*t5
*t1P*t1*t4P*t2P*t4*t3-t5*t5*t1P*t1*t4P*t2P*(t4*t4)-2*t5*t5*t1P*t1*t4P*t2P*(t4*t4)*t3-4
*t6*t2P*t3*t42kP*t4*t1-4*t42kP*t7*t1*t2P*k*t5-t4P*t5*t5*t1*t2P*t2*t1P*(t3*t3)*(t4*t4)-2
*t6*t22kP*t3*t4P*t5*t4+2*t42kP*(t1*t1)*t2P*t4*t3-t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4*t6-2*t42kP
*t5*t1P*k*t2-t6*t2P*(t3*t3)*t42kP*t4*t2*(t1*t1)+2*t42kP*t7*(t1*t1)*t2P*k+4*t42kP*t5*(t3*t3)
*t7*t2P*t4*t1-t7*t3P*(t1*t1)*t3*t4P*t5*t2P*t4-t4P*t5*t5*(t3*t3)*t2P*t2*t1P*(t4*t4)+2*t42kP
*t7*t7*t3*t2P*t4*t2+4*t42kP*t7*t7*t3*t2P*t4*t1*t2-2*t42kP*t3*t5*t1P*k*t1+t6*t2P*(t3*t3)*t42kP
*t4*t5+t42kP*t2P*k*t6*(t1*t1)+2*t5*t1P*t3P*t3*t4*t4P*t7*(t2*t2)+2*t6*t2P*t3*t4*t1P*t1*t4P
*t5+t42kP*(t1*t1)*t7*t7*t3P*k*(t2*t2)*t3+(t4*t4)*(t1*t1)*t4P*t7*t3P*t6*t2P+4*t42kP*(t1*t1)
*t3*t2P*k*t5+2*t7*t3P*t3*t4*t5*t1P*t4P*t1+2*t42kP*t1*t7*t3P*k*t6*(t2*t2)+t7*t3P*t4*t2P
*t2*t4P*t6*(t1*t1)*t3-t7*t7*t3P*t4*t2P*t2*t4P*(t1*t1)*t3-t7*t3P*t4*t2P*t2*t4P*t5*(t1*t1)
*t3-t42kP*t7*(t1*t1)*t2P*k*t6+4*t42kP*t2*t3*t5*t1P*k*t7+2*t7*t7*t32kP*(t1*t1)*t2*t4P*t4-2
*t6*t2P*t3*t42kP*t4*(t1*t1)-2*t42kP*t5*t2P*k*t6*t1+t6*t2P*(t3*t3)*t42kP*t4*t5*(t1*t1)*t2
+2*t7*t3P*t4*t2P*t2*t4P*t6*t1*t3-2*t42kP*(t1*t1)*t7*t3P*k*t2*t3+4*t7*t3P*t2*t3*t4*t1P*t1
*t4P*t5-2*t42kP*(t1*t1)*t6*t2P*k*t2*t7*t3+2*t42kP*t3*t2P*k*t6-4*t42kP*t1*t7*t3P*k*t2*t3
+4*t42kP*t2*t3*t5*t1P*k*t6-t42kP*t6*t2P*k*t2*t5-2*t42kP*t7*t7*t2P*k*t2*t3+t42kP*t7*t3P
*k*t6*t3-2*t42kP*t2*(t3*t3)*t5*t1P*k-2*t42kP*t5*t2P*k*t7*t2*(t3*t3)-2*t5*t5*t1P*(t2*t2)*t3
*t42kP*t4+t42kP*t7*t7*t3P*k*(t2*t2)+t7*t3P*t4*t2P*t2*t4P*t6+t5*t5*t12kP*(t2*t2)*t4P*t4-2
*t6*t2P*t1*t42kP*t4-4*t6*t22kP*t1*t3*t4P*t7*t4+2*t5*t1P*t3*(t4*t4)*t2P*t2*t4P*t1+t42kP
*t7*t7*(t1*t1)*t2P*t4*(t3*t3)-4*t42kP*t1*t7*t2P*t4-2*t7*t3P*t2*t3*t42kP*t4*t6*(t1*t1)+2*t42kP
*t1*t7*t7*t3P*k*t3-t42kP*t2P*k*(t1*t1)-t4P*t1*(t3*t3)*t2P*k*t5*t1P+2*t4P*t5*t1*t2P*k
*t2*t7*t3P+t4P*t5*(t1*t1)*t2P*k*t2*t7*t3P-t4P*t6*t2P*k*t2*t7*t3P+t6*t22kP*(t1*t1)*(t3
*t3)*k*t4P*t5*t4-2*t7*t3P*t2P*k*t2*t4P*t1+2*t5*t5*t1P*t1*t3*t4*t2P*k*t4P*t2+t5*t5*t1P
*t1*(t3*t3)*t4*t2P*k*t4P-t4P*(t3*t3)*t2P*k*t5*t1P-2*t4P*t3*t2P*k*t5*t1P*t4-t4P*t3*t2P
*k*t7*t3P*t2-t4P*t3*t2P*k*t7*t3P*t4+2*t4P*t5*t5*t2P*k*t1P*t3*t1-2*t7*t3P*t1*t4*t2P
*k*t4P*t6+2*t7*t3P*t1*t4*t2P*k*t4P*t5+2*t7*t7*t3P*t1*t4*t2P*k*t4P-2*t7*t3P*t3*t4*t6*t2P
*k*t4P*t1*t2-t5*t1P*t1*(t3*t3)*t4*t2P*k*t4P+2*t6*t22kP*t1*k*t4P*t7+2*t6*t22kP*t1*k*t4P
*t5+t4P*t5*(t1*t1)*t2P*k*t2*t7*t3P*t3-t6*t22kP*(t1*t1)*(t3*t3)*k*t4P*t4-4*t6*t22kP*t1*t3
*k*t4P*t4+t5*t1P*t4*t2P*k*t2*t4P*t7+2*t4P*t5*t4*t2P*k*t2*t7*t3P*t1-t7*t3P*(t1*t1)*t4
*t2P*k*t4P*t2-t7*t3P*(t1*t1)*t4*t2P*k*t4P*t3+2*t4P*t5*t5*t4*t2P*k*t1P*t2*t3+t7*t7*t3P
*t3*t4*t2P*k*t4P*(t1*t1)*t2-2*t7*t3P*t1*t4*t2P*k*t4P*t3+2*t5*t1P*t1*t3*t4*t2P*k*t4P*t7
+2*t5*t5*t1P*t1*t3*t4*t2P*k*t4P-t4P*t6*t2P*k*t2*t7*t3P*t3+t4P*t5*t5*t2P*k*t1P*t4*t1
+2*t4P*t5*t2P*k*t7*t3P*t1*t3-2*t7*t7*t32kP*t1*(t2*t2)*k*t4P*t4-t7*t7*t32kP*k*t4P*(t2*t2)-t7
*t7*t32kP*k*t4P*(t2*t2)*t4+t7*t3P*t4*t2P*t2*t4P+t4P*t5*t5*t4*t2P*k*t2*t1P+t7*t3P*(t1
*t1)*t4*t2P*k*t4P*t5*t3+2*t6*t22kP*(t1*t1)*t3*k*t4P*t7*t4+2*t6*t22kP*t1*(t3*t3)*k*t4P*t5
*t4+2*t6*t22kP*(t1*t1)*t3*k*t4P*t5*t4-2*t4P*t1*t3*t2P*k*t5*t1P-2*t4P*t1*t3*t2P*k*t7*t3P-t5
*t1P*t1*(t3*t3)*t2P*k*t2*t4P-t6*t22kP*(t3*t3)*k*t4P+2*t5*t1P*t4*t7*t3P*t4P*t3+t6*t2P
*t2*t42kP*t4*t5-t7*t3P*(t4*t4)*t2P*t2*t4P*t5*(t1*t1)*t3-2*t5*t5*t1P*(t2*t2)*t3*t42kP*t4*t1
+2*t42kP*t5*t5*t1P*k*t3-4*t42kP*t5*(t1*t1)*t2P*t2*t4*t3-4*t42kP*(t3*t3)*t7*t2P*t4*t1-2*t42kP
*(t3*t3)*t7*t2P*t4*t2-4*t42kP*(t3*t3)*t7*t2P*t4*t1*t2-2*t6*t22kP*t1*(t3*t3)*t4P*t7*t4-t6*t22kP
*(t1*t1)*(t3*t3)*t4P*t7*t4+t5*t1P*(t3*t3)*t4P*t2P*t4-2*t6*t22kP*t1*t4P*t5*t4-t6*t22kP*(t1
*t1)*t4P*t5*t4+t42kP*(t1*t1)*(t3*t3)*t2P*k*t6+2*t7*t3P*t4*t5*t1P*t4P*t1+4*t7*t3P*t4*t5
*t1P*t4P*t1*t2+t42kP*t5*t1P*k*t6*(t2*t2)-t7*t7*t32kP*k*t4P*(t1*t1)*t4-2*t6*t22kP*(t1*t1)
*t4P*t5*t4*t3-2*t6*t22kP*t1*t4P*t5*(t4*t4)-t6*t22kP*(t1*t1)*t4P*t5*(t4*t4)+t5*t1P*t4P*t2P
*(t4*t4)*t2+2*t5*t1P*t4P*t2P*(t4*t4)*t2*t3+t42kP*t5*t5*t2P*t2*t4+2*t7*t7*t32kP*t2*t4P*t4
+4*t42kP*(t1*t1)*t2P*k*t2*t7*t3+2*t42kP*t1*t7*t7*t3P*k*(t2*t2)-4*t42kP*t7*t2P*k*t5*(t1*t1)
*t2*t3-t5*t5*t1P*(t2*t2)*(t3*t3)*t42kP*t4-t42kP*t2P*k*t2+t42kP*t5*t5*(t3*t3)*t2P*t2*t4*(t1
*t1)-2*t4P*t5*t1*t2P*t2*t7*t3P*(t4*t4)-t4P*t5*(t1*t1)*t2P*t2*t7*t3P*(t4*t4)-2*t6*t22kP
*t3*(t4*t4)*t4P*t7+4*t42kP*t5*t3*t2P*t2*t7*t4+2*t5*t1P*t2*t42kP*t4-2*t42kP*(t1*t1)*t7*t3P
*k*t2-t7*t7*t32kP*k*t4P*t4-t7*t7*t32kP*k*t4P*(t1*t1)-2*t7*t7*t32kP*k*t4P*t1-2*t7*t7*t32kP
*k*t4P*t2+t6*t22kP*(t1*t1)*(t4*t4)*t4P+2*t6*t22kP*(t1*t1)*(t4*t4)*t4P*t3+t7*t3P*t4*t2P
*t2*t4P*t6*(t1*t1)+4*t42kP*t3*t2P*k*t7+2*t7*t3P*t4*t2P*t2*t4P*t1*t3-t7*t7*t3P*(t1*t1)*t42kP
*t4-t7*t7*t32kP*(t1*t1)*(t2*t2)*k*t4P-4*t7*t7*t32kP*t1*t2*k*t4P-2*t7*t7*t32kP*(t1*t1)*t2*k
*t4P-2*t7*t7*t32kP*t1*(t2*t2)*k*t4P-2*t7*t7*t32kP*(t1*t1)*t2*k*t4P*t4-2*t7*t7*t32kP*k*t4P
*t2*t4-2*t7*t7*t32kP*k*t4P*t1*t4+t6*t2P*(t1*t1)*t42kP*t4*t7+2*t6*t2P*t3*t42kP*t4*t5+2*t7
*t7*t32kP*t1*(t2*t2)*t4P*t4-2*t4P*t5*t1P*k*t7*t3P*t3-t6*t2P*t1P*k*t1*t4P*t5-t5*t1P
*t1*(t3*t3)*t4P*t7*t2P*(t4*t4)*t2-2*t5*t1P*t3*(t4*t4)*t4P*t7*t2P+2*t6*t2P*t3*t4*t1P*t1
*t4P*t5*t2+t6*t22kP*(t1*t1)*t4P*t4+4*t6*t22kP*t1*t4P*t4*t3+2*t6*t22kP*t1*t4P*(t4*t4)+4
*t6*t22kP*t1*t4P*(t4*t4)*t3-t5*t5*t1P*t4P*t2P*t4+t42kP*t7*t7*t2P*t2*t4+t5*t5*t1P*t1*(t3
*t3)*t4*t2P*k*t4P*t2-t5*t1P*t1*t4*t2P*k*t2*t4P+t6*t22kP*(t1*t1)*t4*k*t4P*t5-2*t7*t3P
*t1*t4*t2P*k*t4P-t7*t3P*t4*t2P*k*t4P+t7*t7*t3P*t4*t2P*k*t4P+2*t6*t22kP*t3*k*t4P*t5
*t4+2*t6*t22kP*t3*k*t4P*t7*t4-t6*t22kP*t4*k*t4P-t4P*(t3*t3)*t2P*k*t5*t1P*t4+t6*t22kP
*(t1*t1)*(t3*t3)*k*t4P*t7+t4P*t7*t2P*k*t5*t1P*t2*(t3*t3)*t4+2*t7*t7*t3P*t2P*k*t2*t4P*t1
*t4+t4P*t5*t4*t2P*k*t2*t7*t3P*(t1*t1)-t7*t3P*t4*t2P*k*t4P*t6+t4P*t7*t1*t2P*k*t5*t1P
+2*t4P*t7*t7*t1*t2P*k*t3P+2*t4P*t7*t1*t2P*k*t5*t1P*t3+t6*t22kP*t4*k*t4P*t7+t6*t22kP
*t4*k*t4P*t5+2*t6*t22kP*t1*t4*k*t4P*t7+t7*t7*t3P*t2P*k*t4P+2*t5*t1P*t3*t2P*k*t2*t4P
*t7+2*t5*t5*t1P*t3*t2P*k*t2*t4P-t7*t3P*t2P*k*t2*t4P+t4P*t5*t5*t4*t2P*k*t2*t1P*t1-t4P
*t6*t2P*k*t2*t7*t3P*t4-t7*t3P*t6*t2P*k*t2*t4P*(t1*t1)*t3-t7*t3P*t6*t2P*k*t2*t4P*(t1*t1)-t4P
*(t1*t1)*t3*t2P*k*t7*t3P-2*t4P*t1*t3*t2P*k*t7*t3P*t2+2*t4P*t7*t7*t1*t2P*k*t3P*t3+t4P
*t7*t1*t2P*k*t5*t1P*(t3*t3)+t5*t1P*t1*(t3*t3)*t4*t2P*k*t4P*t7+t4P*t5*t4*t2P*k*t2*t7*t3P
+t6*t22kP*(t1*t1)*(t3*t3)*k*t4P*t7*t4-t7*t3P*t3*t4*t6*t2P*k*t4P*(t1*t1)*t2+t6*t22kP*(t3*t3)
*k*t4P*t5*t4+t6*t22kP*(t3*t3)*k*t4P*t7*t4-2*t6*t22kP*t1*t4*k*t4P-t6*t22kP*(t1*t1)*t4*k*t4P-2
*t6*t22kP*t3*k*t4P-t7*t3P*(t1*t1)*t4*t2P*k*t4P*t2*t3-t5*t1P*t4*t2P*k*t2*t4P-t5*t1P
*t1*t2P*k*t2*t4P+2*t5*t5*t1P*t1*t3*t2P*k*t2*t4P+2*t4P*t5*t4*t2P*k*t2*t7*t3P*t1*t3+t7
*t7*t3P*t3*t2P*k*t4P-t7*t3P*t2P*k*t4P*t6-t6*t22kP*(t1*t1)*(t3*t3)*k*t4P-2*t6*t22kP
*(t1*t1)*t3*k*t4P+t4P*t5*t4*t2P*k*t2*t7*t3P*(t1*t1)*t3+t7*t7*t3P*t2P*k*t2*t4P+t4P*t7
*t1*t2P*k*t5*t1P*t4+t4P*t7*t7*(t1*t1)*t2P*k*t3P-t7*t3P*(t1*t1)*t4*t2P*k*t4P*t6*t3+t7
*t7*t3P*(t1*t1)*t4*t2P*k*t4P*t3-t7*t3P*t3*t2P*k*t4P*t6-t7*t7*t32kP*k*t4P-t42kP*t6*t4
*t5*t1P-4*t7*t7*t32kP*t1*t2*k*t4P*t4+2*t5*t5*t12kP*t4P*(t4*t4)*t3-t42kP*(t1*t1)*t6*t2P
*k*t2*t5-2*t5*t1P*t42kP*t7*t4*t1*t3+2*t42kP*t5*t2P*k*(t1*t1)-4*t4P*t4*t5*t1P*k*t1*t7*t3P
*t2*t3-t4P*t4*t5*t1P*k*t1*t6*t2P*t2-2*t5*t5*t12kP*k*t4P*t2*(t3*t3)-2*t4P*t4*t5*t1P*k*t1
*t7*t3P*(t2*t2)*t3-t4P*t4*t5*t1P*k*t1*t6*t2P*(t3*t3)*t2-t4P*t4*t5*t1P*k*t1*t6*t2P*(t3*t3)-2
*t4P*t4*t5*t1P*k*t1*t7*t3P*t3-2*t5*t5*t12kP*t2*t4*k*t4P-2*t4P*t4*t5*t1P*k*t7*t3P-t4P
*t4*t5*t1P*k*t6*t2P-2*t4P*t4*t5*t1P*k*t6*t2P*t3-t4P*t4*t5*t1P*k*t6*t2P*t2-2*t4P*t4
*t5*t1P*k*t7*t3P*(t2*t2)-t4P*t4*t5*t1P*k*t6*t2P*(t3*t3)-2*t4P*t4*t5*t1P*k*t7*t3P*t3-4
*t4P*t4*t5*t1P*k*t7*t3P*t2-2*t6*t2P*t3*t1P*k*t4P*t5-t5*t5*t12kP*k*t4P*(t3*t3)*t4+2*t42kP
*t5*(t1*t1)*t2P*k*t2-t4P*(t3*t3)*t5*t1P*k*t1*t6*t2P-2*t4P*t3*t5*t1P*k*t1*t6*t2P-2*t4P
*t3*t5*t1P*k*t1*t7*t3P-4*t5*t1P*t42kP*t7*t4*t1*t2*t3-2*t4P*t4*t5*t1P*k*t1*t6*t2P*t3-t4P
*t4*t5*t1P*k*t1*t6*t2P+2*t5*t1P*(t2*t2)*t42kP*t4*t1*t3-t5*t5*t12kP*k*t4P-t42kP*(t3*t3)
*t6*t2P*k*t7+t42kP*(t1*t1)*t7*t7*t3P*k*t3-t7*t3P*(t1*t1)*t3*t42kP*t4*t6+2*(t4*t4)*t1*t4P
*t7*t3P*t6*t2P+2*t7*t3P*t4*t2P*t2*t4P*t1-4*t42kP*t5*t5*t2P*k*t1*t3-2*t42kP*(t1*t1)*t6
*t2P*k*t2*t5*t3+t42kP*(t1*t1)*t7*t7*t3P*k*(t2*t2)+t7*t3P*(t2*t2)*t42kP*t4-2*t5*t1P*t42kP
*t7*t4*t3+t42kP*t5*t1P*k*t6*(t3*t3)-4*t5*t1P*t42kP*t7*t4*t2*t3-2*t5*t1P*t42kP*t7*t4*t2-t7
*t7*t3P*t42kP*t4-2*t7*t7*t3P*(t1*t1)*t2*t42kP*t4+4*t6*t2P*t3*t42kP*t4*t5*t1*t2+2*t42kP
*t7*t7*t3P*k*t2*t3-2*t5*t1P*t42kP*t7*t4*t1*t2-t42kP*t6*t2P*k*t7-4*t42kP*t5*t2P*k*t6*t1
*t3+2*t42kP*t7*t3P*k*t5*t2*t3-t6*t2P*t2*t42kP*t4-2*t42kP*t5*t5*t2P*k*t3+(t2*t2)*(t4*t4)*t4P
*t7*t7*t32kP+t6*t2P*(t3*t3)*t42kP*t4*t7*t2-t5*t5*t1P*(t3*t3)*t42kP*t4+t5*t5*t12kP*(t2*t2)
*(t3*t3)*t4P*t4+2*t42kP*t1*t7*t3P*k*t5*t3+8*t42kP*t1*t3*t2P*k*t5-t5*t1P*(t3*t3)*t42kP*t7
*t4*t1-2*t4P*t4*t5*t1P*k*t1*t7*t3P*(t2*t2)-2*t4P*t4*t5*t1P*k*t1*t6*t2P*t3*t2-t4P*t5*t1P
*k*t6*t2P-2*t4P*t5*t1P*k*t7*t3P-2*t4P*t5*t1P*k*t7*t3P*t1-4*t4P*t5*t1P*k*t7*t3P*t2-2
*t4P*t3*t5*t1P*k*t1*t6*t2P*t2-2*t4P*t3*t5*t1P*k*t1*t7*t3P*(t2*t2)-2*t5*t1P*(t3*t3)*t42kP
*t7*t4*t1*t2-t4P*(t3*t3)*t5*t1P*k*t1*t6*t2P*t2-t6*t2P*t2*t1P*k*t4P*t5-t4P*t2*(t3*t3)*t5
*t1P*k*t6*t2P*t4-2*t4P*(t2*t2)*t3*t5*t1P*k*t7*t3P*t4-2*t4P*(t2*t2)*t3*t5*t1P*k*t7*t3P-4
*t4P*t2*t3*t5*t1P*k*t7*t3P*t4+2*t42kP*t3*t5*t1P*k*t1*t6+t42kP*t7*t7*t3P*k*(t2*t2)*t3+2
*t42kP*(t3*t3)*t2P*k*t7-t4P*t5*t5*t1*t2P*t2*t1P*(t4*t4)+t42kP*t2P*t2*t4+t6*t22kP*t4P
*t4-4*t42kP*t7*t1*t2P*k*t6*t3+2*t5*t1P*t4P*t2P*(t4*t4)*t3+2*t7*t3P*t1*t3*(t4*t4)*t4P*t2P-2
*t5*t1P*(t3*t3)*t42kP*t7*t4*t2-t7*t3P*(t2*t2)*t3*t42kP*t4*t5+2*t42kP*t1*t7*t3P*k*t6*t3-2
*t7*t3P*t2*t3*t42kP*t4*t5-t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4*t5+t42kP*t5*t5*t1P*k*t1-t42kP
*t5*t5*(t1*t1)*t2P*k*t2*(t3*t3)+2*t6*t2P*(t3*t3)*t42kP*t4*t7*t1+t7*t7*t32kP*(t1*t1)*(t2*t2)*t4P
*t4+4*t42kP*t1*t2P*k*t2*t7-t42kP*t7*t4*t5*t1P*(t2*t2)*(t3*t3)*t1+t42kP*t5*t5*t1P*k*(t2*t2)
+2*t42kP*t1*t7*t7*t3P*k*(t2*t2)*t3+t7*t3P*t42kP*t4-t6*t22kP*(t1*t1)*(t3*t3)*(t4*t4)*t4P*t7
+t42kP*t5*t5*(t1*t1)*t2P*t4*t2+2*t42kP*t5*t5*(t1*t1)*t2P*t4*t2*t3+t6*t22kP*(t1*t1)*(t3*t3)
*t4P*t4+t6*t22kP*(t1*t1)*(t3*t3)*t4P*(t4*t4)-t5*t1P*t1*t4P*t7*t2P*(t4*t4)*t2-2*t5*t1P*t1
*t4P*t7*t2P*(t4*t4)*t2*t3+2*t6*t22kP*t3*t4P*t4+t6*t22kP*(t3*t3)*t4P*t4-t7*t3P*(t4*t4)*t2P
*t2*t4P*t5*t3-2*t42kP*t5*(t1*t1)*t2P*t2*t4-t7*t3P*(t2*t2)*t42kP*t4*t6+t6*t22kP*(t3*t3)*(t4
*t4)*t4P-2*t42kP*t5*t2P*t4*(t1*t1)*t2*(t3*t3)+4*t42kP*t7*t7*t3*t2P*t4*t1+t42kP*t7*t7*(t3
*t3)*t2P*t4+2*t42kP*t7*t7*(t3*t3)*t2P*t4*t1+2*t42kP*t3*t2P*t4+t42kP*(t1*t1)*t2P*t4-2*t42kP
*t5*t2P*t4-t42kP*t6*(t2*t2)*t4*t5*t1P-t6*t2P*(t1*t1)*t42kP*t4*t2-4*t6*t22kP*t3*t4P*t5*t4
*t1-t6*t22kP*(t3*t3)*t4P*t5*t4-2*t6*t22kP*(t3*t3)*t4P*t5*t4*t1-2*t6*t22kP*t3*t4P*t5*(t4*t4)-4
*t6*t22kP*t3*t4P*t5*(t4*t4)*t1-2*t6*t22kP*t3*t4P*t7*t4-t6*t22kP*(t1*t1)*(t3*t3)*t4P*t5*t4
+t5*t5*t12kP*t4P*(t4*t4)*(t3*t3)+4*t6*t2P*t3*t42kP*t4*t7*t1-t5*t1P*(t3*t3)*t42kP*t7*t4+2
*t6*t2P*(t3*t3)*t42kP*t4*t5*t1-t7*t3P*t3*t42kP*t4*t6-t5*t5*t1P*t42kP*t4+t7*t7*t3P*t2P
*k*t2*t4P*(t1*t1)*t4+t6*t22kP*(t3*t3)*k*t4P*t5+t6*t22kP*(t3*t3)*k*t4P*t7-2*t5*t1P*t1*t3*t4
*t2P*k*t4P*t2+2*t5*t1P*t1*t3*t4*t2P*k*t4P*t7*t2-2*t7*t3P*t1*t4*t2P*k*t4P*t2*t3+2*t7*t7
*t3P*t3*t4*t2P*k*t4P*t1*t2+t4P*t5*t5*t4*t2P*k*t1P*t2*(t3*t3)+2*t4P*t5*t1*t2P*k*t2*t7
*t3P*t3-t7*t3P*(t1*t1)*t4*t2P*k*t4P-2*t7*t3P*t1*t4*t2P*k*t4P*t2-2*t4P*t3*t4*t2P*k*t2
*t5*t1P-t4P*(t3*t3)*t4*t2P*k*t2*t5*t1P+2*t7*t7*t3P*t2P*k*t2*t4P*t1-t6*t22kP*(t3*t3)*k
*t4P*t4+2*t7*t7*t3P*t2P*k*t2*t4P*t1*t3+t7*t7*t3P*t2P*k*t2*t4P*(t1*t1)*t3+t7*t7*t3P*t2P
*k*t2*t4P*t4+t4P*t5*t2P*k*t7*t3P*(t1*t1)*t3+t4P*t5*t5*t2P*k*t1P*(t3*t3)*t1+t4P*t5*t2P
*k*t7*t3P*t2*t3+t4P*t5*t5*t2P*k*t1P*t1+t4P*t5*t2P*k*t7*t3P*(t1*t1)+t4P*t7*t2P*k*t5
*t1P*t2*t4*t1+2*t4P*t7*t2P*k*t5*t1P*t2*t3*t1+t7*t7*t3P*(t1*t1)*t4*t2P*k*t4P-t4P*t3*t4
*t2P*k*t2*t7*t3P+t4P*t5*t2P*k*t7*t3P*t4*t3-t7*t3P*(t1*t1)*t4*t2P*k*t4P*t6-2*t7*t3P
*t1*t4*t2P*k*t4P*t6*t3+t7*t3P*(t1*t1)*t4*t2P*k*t4P*t5+2*t7*t7*t3P*t1*t4*t2P*k*t4P*t3
+2*t7*t3P*t1*t4*t2P*k*t4P*t5*t3+t4P*t5*t4*t2P*k*t2*t7*t3P*t3-t4P*t2P*k*t5*t1P*t2-t4P
*t2P*k*t5*t1P-t4P*t2P*k*t7*t3P-t4P*t2P*k*t5*t1P*t4+t4P*t7*t2P*k*t5*t1P-2*t4P
*t2P*k*t7*t3P*t1-t6*t22kP*(t1*t1)*k*t4P+t6*t22kP*(t1*t1)*k*t4P*t7+t6*t22kP*(t1*t1)*k*t4P
*t5-2*t6*t22kP*t1*k*t4P-t42kP*t6*t1*t4*t5*t1P-t7*t3P*t4*t2P*t2*t4P*t5*(t1*t1)-t5*t5*t1P
*t1*t4P*t2P*t4+2*t42kP*t5*(t3*t3)*t7*t2P*t4*t2+t4P*t7*(t3*t3)*t4*t2P*k*t5*t1P+t6*t22kP
*(t1*t1)*t4*k*t4P*t7-t7*t3P*t3*t2P*k*t4P*t6*(t1*t1)-2*t5*t1P*t1*t3*t4*t2P*k*t4P+t4P*t7
*t2P*k*t5*t1P*t2*t1+2*t4P*t7*t2P*k*t5*t1P*t2*t3*t4+t4P*t7*t7*t3*t4*t2P*k*t3P*t2+t4P
*t5*t5*t2P*k*t1P*t2+t4P*t5*t5*t2P*k*t1P+t4P*t5*t2P*k*t7*t3P+2*t4P*t5*t5*t2P*k*t1P
*t3+t4P*t5*t5*t2P*k*t1P*t4+2*t4P*t5*t2P*k*t7*t3P*t1+t4P*t5*t2P*k*t7*t3P*t2+t4P*t5
*t2P*k*t7*t3P*t4-t5*t1P*t1*(t3*t3)*t4*t2P*k*t4P*t2-2*t7*t3P*t3*t2P*k*t4P*t6*t1+t4P
*t7*t7*(t1*t1)*t2P*k*t3P*t3-2*t5*t1P*t3*t2P*k*t2*t4P-t4P*t2P*k*t5*t1P*t4*t1+4*t6*t22kP
*t1*t3*k*t4P*t5*t4+4*t6*t22kP*t1*t3*k*t4P*t7*t4-2*t6*t22kP*(t1*t1)*t3*k*t4P*t4-2*t6*t22kP
*t1*(t3*t3)*k*t4P*t4+t5*t1P*t2P*k*t2*t4P*t7+t7*t7*t3P*t2P*k*t2*t4P*t3+2*t6*t22kP*t3*k
*t4P*t7+2*t6*t22kP*t3*k*t4P*t5+2*t6*t22kP*t1*t4*k*t4P*t5+t5*t1P*(t3*t3)*t2P*k*t4P*t7-t7
*t3P*t2P*k*t2*t4P*(t1*t1)+4*t6*t22kP*t1*t3*k*t4P*t7+4*t6*t22kP*t1*t3*k*t4P*t5+2*t5*t1P
*t3*t2P*k*t4P*t7+2*t6*t22kP*(t1*t1)*t3*k*t4P*t7+2*t6*t22kP*t1*(t3*t3)*k*t4P*t5+2*t6*t22kP
*(t1*t1)*t3*k*t4P*t5+2*t6*t22kP*t1*(t3*t3)*k*t4P*t7-2*t7*t3P*t6*t2P*k*t2*t4P*t1*t4+t5*t5
*t1P*t1*(t3*t3)*t2P*k*t2*t4P+t6*t2P*t5*t1P*t4P*t1*t4+t7*t3P*t4*t2P*t2*t4P*t3-t4P
*t5*t5*t4*t2P*t2*t1P-t4P*t7*t4*t2P*t2*t5*t1P-t5*t5*t1P*(t3*t3)*t4*t2P*t2*t4P-2*t5*t1P
*t3*t4*t2P*t2*t4P*t7*t1-2*t5*t5*t1P*t3*t4*t2P*t2*t4P*t1-2*t42kP*t1*t7*t3P*k*(t2*t2)+2*t6
*t2P*(t3*t3)*t42kP*t4*t7*t1*t2-2*t5*t1P*t3*t4*t2P*t2*t4P*t7-t7*t3P*(t2*t2)*t3*t42kP*t4
*t5*(t1*t1)+(t4*t4)*(t1*t1)*t4P*t7*t7*t32kP+t6*t2P*t42kP*t4*t7+t42kP*t7*t7*t3P*k*t3-t7*t3P
*t3*t42kP*t4*t5+4*t42kP*t3*t2P*k*t5*t2+2*t5*t5*t12kP*t3*t4P*t4+4*t42kP*t1*t3*t2P*k*t6-4
*t42kP*t7*t2P*k*t5*t1*t2*(t3*t3)+t7*t3P*(t2*t2)*t3*t42kP*t4*(t1*t1)+2*t6*t2P*t1*t42kP*t4
*t7*t2+4*t5*t1P*t4*t7*t3P*t4P*t3*t2-2*t5*t5*t1P*t2*(t3*t3)*t42kP*t4*t1-2*t42kP*t7*t7*t2P
*k*t1*t2*(t3*t3)-t42kP*t7*t7*t2P*k*(t1*t1)*t2*(t3*t3)+2*t6*t2P*(t3*t3)*t42kP*t4*t5*t1*t2-2*t42kP
*t7*(t1*t1)*t2P*k*t5*(t3*t3)+t42kP*t7*t3P*k*t5*(t2*t2)*t3-t42kP*t7*t7*(t3*t3)*t2P*k+2*t42kP
*(t1*t1)*t7*t3P*k*t5*t2*t3+2*t42kP*t7*t7*t3P*k*t2-2*t5*t5*t1P*t2*t42kP*t4*t1+2*t42kP*t7*t7
*t3*t2P*t4-t5*t1P*t1*(t3*t3)*t4P*t7*t2P*t4-t6*t22kP*t4P*t7*t4-2*t6*t22kP*t4P*t7*t4*t1-t6
*t22kP*t4P*t7*(t4*t4)-8*t42kP*t5*t2P*t4*t1*t2*t3+t4P*(t3*t3)*t2P*t2*t5*t1P*t1*(t4*t4)+2
*t6*t2P*t1*t42kP*t4*t5-2*t42kP*(t1*t1)*t7*t2P*t4-t5*t1P*(t3*t3)*t4P*t7*t2P*t4+t42kP*t5
*t5*(t1*t1)*t2P*t4-4*t42kP*t7*t2P*t4*t3-2*t42kP*t7*t2P*t4*t2-4*t42kP*t7*t2P*t4*t2*t3-2
*t6*t22kP*t1*(t3*t3)*(t4*t4)*t4P*t5-t6*t22kP*(t1*t1)*(t3*t3)*(t4*t4)*t4P*t5-2*t42kP*(t1*t1)
*t7*t2P*t4*(t3*t3)-2*t42kP*(t1*t1)*t7*t2P*t4*(t3*t3)*t2+t42kP*t7*t7*(t1*t1)*t2P*t4+2*t42kP
*t5*t7*t2P*t4+4*t42kP*t5*t7*t2P*t4*t1+4*t42kP*t5*t7*t2P*t4*t3+8*t42kP*t5*t7*t2P*t4*t1*t3
+t7*t3P*t3*t4P*t2P*(t4*t4)+t5*t1P*t1*(t3*t3)*t4P*(t4*t4)*t6*t2P*t2-2*t7*t3P*t2*t3*t42kP
*t4*t6+2*t7*t3P*t1*t4P*t2P*t4+t7*t3P*(t1*t1)*t4P*t2P*t4+2*t7*t3P*t1*t4P*t2P*(t4*t4)
+t7*t3P*(t1*t1)*t4P*t2P*(t4*t4)-t7*t3P*(t1*t1)*t3*t4P*t5*t2P*(t4*t4)-2*t7*t7*t3P*t1*t3
*t4P*t2P*t4-t7*t7*t3P*(t1*t1)*t3*t4P*t2P*t4-2*t7*t7*t3P*t1*t3*t4P*t2P*(t4*t4)-t7*t7*t3P
*(t1*t1)*t3*t4P*t2P*(t4*t4)-2*t7*t7*t3P*t1*t3*t42kP*t4-t7*t3P*(t2*t2)*t3*t42kP*t4*t6*(t1
*t1)-t42kP*(t3*t3)*t5*t1P*k*t1*(t2*t2)+2*t42kP*t7*(t3*t3)*t5*t1P*k*t1*t2-2*t42kP*t1*t2P*k
*t2-4*t7*t3P*t1*t2*t42kP*t4*t5+t7*t3P*(t1*t1)*t3*t42kP*t4+t42kP*t2P*k*t6-t42kP*(t3*t3)
*t2P*k-2*t42kP*t5*t5*t2P*k*t1-t42kP*t5*t5*(t1*t1)*t2P*k*t2+t42kP*t6*t2P*k*t2*(t3*t3)-4
*t42kP*t6*t2*t4*t5*t1P*t3*t1-2*t42kP*t5*t2P*k*t7+t6*t2P*t4*t3P*t3*t4P*t7+t42kP*(t1*t1)
*t7*t3P*k*t5*(t2*t2)-2*t7*t3P*(t1*t1)*t2*t42kP*t4*t5+t6*t2P*(t3*t3)*t42kP*t4*t7*t2*(t1*t1)-t42kP
*(t1*t1)*t6*t2P*k*t2*t5*(t3*t3)+4*t42kP*t3*t2P*k*t5+t7*t3P*t4P*t2P*t4+4*t42kP*t5*(t3*t3)
*t7*t2P*t4*t1*t2+2*t42kP*t7*t7*t1*t2P*t4-t5*t5*t1P*t4P*t2P*t4*(t3*t3)-t5*t5*t1P*t4P*t2P
*(t4*t4)*(t3*t3)+2*t42kP*(t2*t2)*t3*t5*t1P*k*t6+t42kP*(t2*t2)*t5*t5*t1P*k*t1+t5*t1P*(t3*t3)
*t4*t2P*t2*t4P*t1+2*t42kP*t1*t7*t3P*k*t5+t6*t2P*(t3*t3)*t4P*t4*t5*t1P-4*t42kP*t2*t3*t5
*t1P*k+2*t6*t2P*t3*t42kP*t4*t7*(t1*t1)+t6*t2P*(t3*t3)*t42kP*t4*t7*(t1*t1)-2*t7*t3P*t1*(t2
*t2)*t42kP*t4*t5+4*t42kP*t1*t7*t7*t3P*k*t2-2*t42kP*t7*t2P*k*t5*(t1*t1)*t2*(t3*t3)-2*t42kP
*t7*t1*t2P*k*t6-2*t42kP*t5*t5*t1*t2P*k*t2+2*t42kP*t1*t7*t7*t3P*k+2*t7*t3P*t1*t42kP*t4+t7
*t3P*(t1*t1)*t42kP*t4+t7*t3P*t4*t2P*t2*t4P*(t1*t1)*t3+4*t7*t3P*t1*t2*t42kP*t4-t42kP*t1P
*k*t1*t5+4*t6*t2P*t3*t42kP*t4*t5*t1+2*t42kP*t7*t2*t1P*k*t5+t42kP*(t1*t1)*t6*t2P*k*t2+2*t42kP
*t7*t3*t5*t1P*k*t1-2*t42kP*t7*t7*t1*t2P*k-t42kP*t5*t5*t2P*k*(t3*t3)-t5*t5*t1P*(t2*t2)*t42kP
*t4*t1+2*t42kP*t1*t6*t2P*k*t2-2*t42kP*t5*t2P*k*t6*(t1*t1)*t3+t6*t2P*(t1*t1)*t42kP*t4*t5*t2
+t6*t2P*t2*t42kP*t4*t7+t6*t2P*(t1*t1)*t42kP*t4*t7*t2+2*t7*t3P*t4P*t5*t1P*t4+t4P*t5*t5
*t2P*k*t1P*(t3*t3)*t4-t4P*t3*t4*t6*t2P*k*t7*t3P+t5*t5*t1P*(t3*t3)*t2P*k*t2*t4P+t5*t1P
*(t3*t3)*t2P*k*t2*t4P*t7-t7*t3P*(t1*t1)*t2P*k*t4P*t6+t42kP*t6*t2P*k*t2-t42kP*(t2*t2)
*(t3*t3)*t5*t1P*k+2*t5*t5*t12kP*(t2*t2)*t3*t4P*t4-2*t7*t3P*t1*t3*t42kP*t4*t5+2*t5*t5*t12kP
*t2*(t3*t3)*t4P*t4-2*t4P*t4*t5*t1P*k*t1*t7*t3P-2*t5*t5*t12kP*t2*t4*k*t4P*(t3*t3)-t5*t5*t12kP
*(t2*t2)*t4*k*t4P-4*t5*t5*t12kP*t2*t4*k*t4P*t3-t6*t2P*(t3*t3)*t1P*k*t4P*t5-t5*t5*t12kP
*(t2*t2)*t4*k*t4P*(t3*t3)-2*t4P*t5*t1P*k*t7*t3P*(t2*t2)-2*t5*t5*t12kP*(t2*t2)*t4*k*t4P*t3-2
*t5*t5*t12kP*k*t4P*t3-2*t5*t5*t12kP*k*t4P*t2-t5*t5*t12kP*k*t4P*(t2*t2)-t5*t5*t12kP*k*t4P
*(t3*t3)-t5*t5*t12kP*k*t4P*t4-t4P*t2*(t3*t3)*t5*t1P*k*t6*t2P-2*t4P*t2*t3*t5*t1P*k*t6*t2P
*t4-2*t4P*t2*t3*t5*t1P*k*t6*t2P-4*t4P*t2*t3*t5*t1P*k*t7*t3P-4*t4P*t4*t5*t1P*k*t1*t7*t3P
*t2-4*t4P*t3*t5*t1P*k*t1*t7*t3P*t2-2*t5*t5*t12kP*k*t4P*t3*t4-2*t5*t5*t12kP*k*t4P*(t2*t2)
*t3-2*t4P*(t2*t2)*t5*t1P*k*t1*t7*t3P-t5*t5*t12kP*k*t4P*(t2*t2)*(t3*t3)-4*t5*t5*t12kP*k*t4P
*t2*t3-4*t42kP*t7*t2P*k*t5*t1*t2+t5*t5*t12kP*(t2*t2)*t4P*(t4*t4)*(t3*t3)+t42kP*(t1*t1)*t2P
*t4*(t3*t3)+t42kP*(t1*t1)*t2P*t4*(t3*t3)*t2-4*t42kP*t5*t2P*t4*t1-4*t42kP*t5*t2P*t4*t3-8*t42kP
*t5*t2P*t4*t1*t3-2*t42kP*t5*t2P*t4*t2-4*t42kP*t5*t2P*t4*t1*t2-4*t42kP*t5*t2P*t4*t2*t3+t42kP
*(t3*t3)*t2P*t4+t6*t22kP*(t4*t4)*t4P+t42kP*t5*t5*t2P*t4-t5*t5*t1P*(t3*t3)*t42kP*t4*t1-t42kP
*(t1*t1)*t2P*k*t2+2*t5*t1P*t3*t4*t2P*t2*t4P*t1-4*t42kP*t3*t5*t1P*k*t1*t2+2*t42kP*(t1*t1)
*t6*t2P*k*t2*t3-2*t7*t3P*(t2*t2)*t3*t42kP*t4*t5*t1-2*t42kP*t7*t2P*k*t5*(t1*t1)*t2-t42kP*t5
*t2P*k*t6*(t1*t1)+4*t6*t2P*t3*t42kP*t4*t7*t1*t2-t42kP*t5*t2P*k*t6*(t1*t1)*(t3*t3)+2*t6*t2P
*t3*t42kP*t4*t5*t2*(t1*t1)+4*t42kP*t6*t1*t2*t7*t3P*k*t3+4*t42kP*t1*t7*t3P*k*t5*t2+2*t42kP
*t1*t7*t3P*k*t5*(t2*t2)-2*t42kP*t1*t7*t3P*k*t3+t42kP*t5*t1P*k*t7+2*t6*t2P*t3*t42kP*t4*t7-2
*t42kP*t5*t5*t2P*k*t1*(t3*t3)-t5*t1P*(t3*t3)*t4*t2P*t2*t4P*t7+4*t5*t5*t12kP*t2*t4P*(t4
*t4)*t3+2*t42kP*(t3*t3)*t5*t5*t1P*k*t1*t2-t42kP*t5*t1P*k*(t2*t2)-t42kP*t6*t2P*k*t2*t7*(t3
*t3)+t42kP*t5*t1P*k*t7*t1-2*t6*t2P*(t3*t3)*t42kP*t4*t1+t6*t2P*t2*t4*t1P*t1*t4P*t5+t42kP
*(t2*t2)*t5*t1P*k*t1*t7-2*t7*t3P*t1*(t2*t2)*t42kP*t4*t6-t42kP*(t1*t1)*t7*t3P*k+2*t7*t3P*t2
*t3*t42kP*t4-t42kP*t5*t2P*k*t6-t5*t1P*(t3*t3)*t4*t2P*t2*t4P*t7*t1-t5*t5*t1P*(t3*t3)*t4
*t2P*t2*t4P*t1+4*t7*t3P*t4P*t5*t1P*t4*t2-t42kP*t7*t7*(t1*t1)*t2P*k+t7*t3P*(t2*t2)*t3
*t42kP*t4-t42kP*t7*t3P*k+2*t42kP*t7*t3P*k*t6*t2*t3+2*t42kP*t1*t7*t3P*k*t6-2*t42kP*t2
*t5*t1P*k*t1+t7*t7*t32kP*(t2*t2)*t4P*t4+2*t42kP*(t1*t1)*t3*t2P*k*t6-4*t42kP*t7*t7*t2P*k
*t1*t2*t3+2*t42kP*t5*t2P*k-2*t42kP*t7*t4*t5*t1P*(t2*t2)*t3+t6*t2P*t4P*t2*t5*t1P*t4-t4P
*t2*t5*t1P*k*t1*t6*t2P-4*t4P*t2*t5*t1P*k*t1*t7*t3P+4*t42kP*t1*(t3*t3)*t2P*k*t7+2*t42kP
*t5*t1P*k*t6*t3-t42kP*t5*t5*t2P*k*t2*(t3*t3)+t4P*t4*t2P*t2*t5*t1P*t1-2*t42kP*t5*t2P*k
*t6*t3+4*t5*t1P*t2*t42kP*t4*t1*t3+2*t7*t3P*(t2*t2)*t3*t4*t1P*t1*t4P*t5-2*t42kP*t3*t2P*k
+t42kP*t5*t1P*k*t6*t1+2*t42kP*t1*t7*t3P*k*t5*(t2*t2)*t3-t7*t7*t32kP*(t1*t1)*(t2*t2)*k*t4P
*t4-4*t42kP*(t1*t1)*t3*t5*t2P*t4+4*t2*(t4*t4)*t4P*t7*t7*t32kP*t1-t5*t1P*t42kP*t7*t4*t1+t42kP
*t5*t5*t1P*k*(t3*t3)-t42kP*t7*t3P*k*t3+t5*t5*t12kP*(t3*t3)*t4P*t4+4*t42kP*t1*t7*t3P*k*t5
*t2*t3-2*t42kP*t7*t7*(t1*t1)*t2P*k*t3+2*t42kP*t2*(t3*t3)*t5*t1P*k*t7-t42kP*t5*t2P*k*t6*(t3
*t3)+2*t42kP*t6*(t1*t1)*t2*t7*t3P*k*t3-4*t42kP*t1*t3*t2P*k*t2+2*t7*t3P*(t2*t2)*t3*t42kP*t4
*t1-2*t42kP*t7*t3P*k*t2*t3+t42kP*(t3*t3)*t5*t5*t1P*k*t1+4*t42kP*(t1*t1)*t3*t2P*k*t5*t2-2
*t42kP*(t3*t3)*t5*t2P*t4-t7*t3P*t2P*t2*t4P*t5*(t4*t4)-t6*t22kP*(t3*t3)*(t4*t4)*t4P*t7+2
*t42kP*t5*t5*t1*t2P*t4*(t3*t3)-2*t42kP*(t1*t1)*(t3*t3)*t5*t2P*t4+t7*t3P*(t4*t4)*t2P*t2*t4P
*t3+8*t42kP*t5*t3*t2P*t2*t7*t4*t1+2*t42kP*t7*t7*(t1*t1)*t2P*t4*t3+t42kP*t7*t7*(t1*t1)*t2P
*t4*t2+2*t42kP*t7*t7*(t1*t1)*t2P*t4*t2*t3+t6*t2P*t4P*t4*t7*t3P+t6*t2P*t4P*t4*t5*t1P-2
*t7*t3P*t2*t42kP*t4*t6-2*t7*t3P*t1*t3*(t4*t4)*t4P*t5*t2P-2*t5*t5*t1P*t4P*t2P*t4*t3-t5
*t5*t1P*t4P*t2P*(t4*t4)-2*t5*t5*t1P*t4P*t2P*(t4*t4)*t3-t5*t5*t1P*t4P*t2P*(t4*t4)*t2-2
*t5*t5*t1P*t4P*t2P*(t4*t4)*t2*t3+2*t7*t3P*t1*t4P*t2P*(t4*t4)*t2+t7*t3P*(t1*t1)*t4P*t2P
*(t4*t4)*t2-t5*t5*t1P*t1*(t3*t3)*(t4*t4)*t4P*t2P+t42kP*t5*t5*(t3*t3)*t2P*t4+t42kP*t1*(t2
*t2)*t4*t5*t1P*(t3*t3)-4*t7*t3P*t2*t3*t42kP*t4*t6*t1+t5*t1P*t42kP*t4*t1-t5*t1P*t4P*t7*t2P
*(t4*t4)*t2+2*t6*t22kP*t1*t4P*t4-t6*t22kP*(t3*t3)*(t4*t4)*t4P*t5+4*t42kP*t5*t5*t3*t2P*t2
*t4*t1+t42kP*t5*t5*(t3*t3)*t2P*t2*t4+2*t42kP*t5*t5*(t3*t3)*t2P*t2*t4*t1-t5*t1P*(t3*t3)*(t4
*t4)*t4P*t7*t2P-t5*t1P*(t3*t3)*(t4*t4)*t4P*t7*t2P*t2-2*t42kP*(t3*t3)*t7*t2P*t4+2*t6*t2P
*t1*t42kP*t4*t7+2*t6*t2P*t3*t4P*t4*t5*t1P+t7*t3P*(t4*t4)*t2P*t2*t4P-t6*t22kP*(t3*t3)
*t4P*t7*t4-t5*t5*t1P*t1*(t3*t3)*t4P*t2P*t4-t7*t7*t3P*(t1*t1)*t4P*t2P*t4-t5*t1P*(t3*t3)
*t42kP*t6*t4+t5*t1P*t1*t4P*t2P*t4*(t3*t3)+t5*t1P*t1*t4P*t2P*(t4*t4)*(t3*t3)+t7*t3P*t3
*t4P*t2P*t4+2*t6*t2P*t1*t4P*t4*t7*t3P-t5*t1P*t42kP*t7*t4+t42kP*t7*t7*(t3*t3)*t2P*t4
*(t1*t1)*t2+2*t42kP*t5*(t3*t3)*t7*t2P*t4+t5*t1P*t1*t4P*t2P*t4+2*t42kP*t5*(t1*t1)*t7*t2P
*t4-2*t6*t2P*t3*t42kP*t4*(t1*t1)*t2+4*t42kP*t5*t1*t2P*k*t2-t42kP*(t1*t1)*t7*t3P*k*(t2*t2)
*t3-2*t42kP*(t1*t1)*t3*t2P*k*t2+t6*t2P*(t3*t3)*t5*t1P*t4P*t1*t4+2*t7*t3P*(t2*t2)*t5*t1P
*t4P*t1*t4-2*t42kP*t7*t7*t2P*k*(t1*t1)*t2*t3+2*t42kP*t2P*k*t6*t1+2*t5*t5*t12kP*(t2*t2)*t4P
*(t4*t4)*t3+t7*t3P*(t1*t1)*t3*t4P*t2P*t4+t7*t3P*(t1*t1)*t3*(t4*t4)*t4P*t2P+2*t7*t3P*t1
*t3*(t4*t4)*t4P*t2P*t2+t7*t3P*(t1*t1)*t3*(t4*t4)*t4P*t2P*t2+t6*t2P*t42kP*t4*t5-2*t42kP
*t3*t2P*k*t2-2*t5*t5*t1P*t3*t42kP*t4*t1-2*t42kP*t7*(t1*t1)*t2P*k*t6*t3+2*t5*t1P*t3*t4*t2P
*t2*t4P-2*t42kP*t1*t7*t3P*k+t42kP*t7*t3P*k*t5*t3-2*t42kP*(t3*t3)*t5*t1P*k*t1*t2+t42kP
*(t2*t2)*(t3*t3)*t5*t5*t1P*k+t42kP*t6*(t1*t1)*(t2*t2)*t7*t3P*k*t3+2*t42kP*t1*(t3*t3)*t2P*k
*t6-t42kP*(t1*t1)*(t3*t3)*t2P*k-t42kP*t7*t4*t5*t1P*(t2*t2)+2*t42kP*t6*t2P*k*t2*t3-t42kP
*t7*t3P*k*(t2*t2)-2*t7*t7*t3P*t2*t3*t42kP*t4*(t1*t1)-t42kP*t7*t7*t2P*k*(t1*t1)*t2+t42kP*(t1
*t1)*t7*t7*t3P*k+2*t42kP*t2*t5*t1P*k*t1*t7+4*t42kP*t1*(t3*t3)*t2P*k*t5-t7*t7*t3P*(t2*t2)
*t42kP*t4+2*t42kP*(t3*t3)*t2P*k*t5-2*t42kP*t6*t2P*k*t2*t5*t3+4*t42kP*t1*t7*t3P*k*t6*t2
+2*t42kP*t7*t3P*k*t5*t2+2*t42kP*(t3*t3)*t2P*k*t7*t2-2*t6*t2P*t1*t42kP*t4*t2-2*t5*t1P*t3
*t42kP*t6*t4*t1-2*t7*t7*t3P*(t2*t2)*t3*t42kP*t4*t1+4*t7*t3P*t3*t4P*(t4*t4)*t5*t1P*t2+2*t7
*t3P*t3*t4P*(t4*t4)*t5*t1P+t7*t3P*t3*t4P*(t4*t4)*t6*t2P+2*t6*t2P*t1*t2*t3*t4P*(t4*t4)
*t7*t3P+2*t42kP*t5*t5*t3*t2P*t4-8*t42kP*t1*t7*t2P*t4*t3-4*t42kP*t1*t7*t2P*t4*t2-8*t42kP
*t1*t7*t2P*t4*t2*t3-t7*t3P*t3*t4P*t5*t2P*t4-2*t7*t3P*t3*t4P*t5*t2P*t4*t1-t7*t3P*t3*t4P
*t5*t2P*(t4*t4)+2*t5*t1P*t3*t42kP*t4+t7*t3P*t3*t4P*(t4*t4)*t6*t2P*t2+2*t7*t3P*t3*t4P
*(t4*t4)*t5*t1P*(t2*t2)+t5*t1P*(t3*t3)*t42kP*t4*t1+2*t5*t1P*t3*t42kP*t4*t1+t5*t1P*(t3*t3)
*t42kP*t4+2*t5*t1P*(t3*t3)*t42kP*t4*t2+t2*(t4*t4)*t4P*t7*t3P*t6*t2P*(t1*t1)+t7*t7*t32kP
*(t1*t1)*t4P*t4-2*t42kP*t5*t5*t2P*k*(t1*t1)*t3+4*t42kP*t2*t3*t5*t5*t1P*k+2*t42kP*(t2*t2)
*t3*t5*t5*t1P*k+2*t42kP*(t1*t1)*t7*t7*t3P*k*t2*t3+2*t42kP*t6*t1*(t2*t2)*t7*t3P*k*t3-t6*t2P
*t42kP*t4-t42kP*t7*t7*t2P*k+t42kP*t7*t3P*k*t5-2*t42kP*t5*t2P*k*t6*t1*(t3*t3)-8*t42kP
*t7*t1*t2P*k*t5*t3-2*t42kP*t3*t6*t2P*k*t7-t42kP*(t3*t3)*t2P*k*t2-t7*t3P*t4*t2P*t2*t4P
*t5*t3+t42kP*(t1*t1)*t6*t2P*k*t2*(t3*t3)-t42kP*t5*t1P*k*(t3*t3)-2*t7*t3P*t1*t42kP*t4*t6+t6
*t2P*(t1*t1)*t2*t3*t4P*(t4*t4)*t7*t3P+t5*t1P*t2*t4P*(t4*t4)*t6*t2P+4*t5*t1P*t2*t4P*(t4
*t4)*t7*t3P-4*t7*t3P*t2*t3*t42kP*t4*t5*t1+2*t7*t7*t32kP*t1*t4P*t4+2*t7*t3P*t3*t4P*(t4*t4)
*t6*t2P*t1-4*t42kP*t6*t2*t4*t5*t1P*t3-2*t7*t3P*(t1*t1)*t2*t42kP*t4*t6+(t4*t4)*t4P*t7*t7*t32kP
+t5*t5*t12kP*t4P*(t4*t4)-2*t5*t5*t1P*t2*(t3*t3)*t42kP*t4+t5*t1P*t4P*(t4*t4)*t6*t2P*t1+2
*t5*t1P*t4P*(t4*t4)*t6*t2P*t3+t5*t1P*t4P*(t4*t4)*t6*t2P+2*t5*t1P*t4P*(t4*t4)*t7*t3P
+2*t5*t1P*t4P*(t4*t4)*t7*t3P*t1+t5*t1P*t4P*(t4*t4)*t6*t2P*(t3*t3)+2*t7*t3P*(t2*t2)*t4P
*t5*t1P*t4-t5*t1P*(t3*t3)*t42kP*t6*t4*t1+2*t5*t1P*(t2*t2)*t4P*(t4*t4)*t7*t3P*t1-2*t42kP
*t6*(t2*t2)*t4*t5*t1P*t3*t1+4*t5*t1P*t1*t3*t4P*(t4*t4)*t7*t3P*t2+t5*t1P*(t2*t2)*t42kP*t4
*t1-2*t7*t7*t3P*t1*(t2*t2)*t42kP*t4+t7*t3P*t3*t4P*(t4*t4)*t6*t2P*(t1*t1)+t5*t1P*t42kP*t4-2
*t5*t1P*t3*(t4*t4)*t4P*t7*t2P*t2-4*t5*t5*t1P*t2*t3*t42kP*t4+2*t5*t1P*t1*t3*t4P*(t4*t4)
*t7*t3P*(t2*t2)+2*t5*t1P*t1*t3*t4P*(t4*t4)*t6*t2P*t2-2*t7*t3P*t1*t4P*t5*t2P*t4+t7*t3P
*(t4*t4)*t4P*t2P+2*t42kP*t5*(t3*t3)*t7*t2P*t4*(t1*t1)*t2+4*t42kP*t1*t2P*t4*t3-2*t5*t1P
*t3*t42kP*t6*t4+2*t6*t2P*t3*t42kP*t4*t5*t2-4*t6*t2P*t3*t42kP*t4*t1*t2+4*t5*t1P*t2*t4P*(t4
*t4)*t7*t3P*t1+2*t5*t1P*(t2*t2)*t4P*(t4*t4)*t7*t3P+t5*t1P*t2*t4P*(t4*t4)*t6*t2P*(t3*t3)
+2*t5*t1P*t2*t42kP*t4*t1+2*t5*t1P*(t2*t2)*t42kP*t4*t3+2*t2*(t4*t4)*t4P*t7*t3P*t6*t2P*t1
+t5*t1P*(t2*t2)*t42kP*t4+2*(t4*t4)*t1*t4P*t7*t7*t32kP+t6*t2P*(t3*t3)*t42kP*t4*t5*t2-t7*t3P
*(t1*t1)*(t4*t4)*t4P*t5*t2P+t42kP*(t1*t1)*t2P*t4*t2+4*t42kP*t1*t2P*t4*t2*t3+2*t42kP*(t1
*t1)*t2P*t4*t2*t3+4*t7*t3P*t2*t3*t42kP*t4*t1+t5*t1P*t2*t4P*(t4*t4)*t6*t2P*t1+2*t5*t1P*t2
*t4P*(t4*t4)*t6*t2P*t3+t5*t1P*t1*(t3*t3)*t4P*(t4*t4)*t6*t2P+2*t42kP*t1*t2*t4*t5*t1P*(t3
*t3)+t2*(t4*t4)*t4P*t7*t3P*t6*t2P+2*t5*t1P*t1*t3*t4P*(t4*t4)*t6*t2P+2*t5*t1P*t1*t3*t4P
*(t4*t4)*t7*t3P+(t4*t4)*t4P*t7*t3P*t6*t2P+4*t7*t7*t32kP*t1*t2*t4P*t4+4*t5*t1P*t2*t42kP
*t4*t3-t5*t1P*t1*t4P*t7*t2P*(t4*t4)-2*t5*t1P*t1*t4P*t7*t2P*(t4*t4)*t3-2*t5*t1P*t3*t4P
*t7*t2P*t4-t7*t3P*(t4*t4)*t4P*t5*t2P-t7*t7*t3P*t3*(t4*t4)*t4P*t2P-t7*t7*t3P*t3*(t4*t4)
*t4P*t2P*t2+2*t7*t3P*t1*t3*t4P*t2P*t4-2*t7*t3P*(t4*t4)*t4P*t5*t2P*t1-4*t42kP*(t1*t1)
*t7*t2P*t4*t3-2*t42kP*(t1*t1)*t7*t2P*t4*t2-4*t42kP*(t1*t1)*t7*t2P*t4*t2*t3+2*t6*t22kP*t1
*t4P*t4*(t3*t3)+2*t6*t2P*t3*t42kP*t4*t7*t2-t7*t3P*t4P*t5*t2P*t4-t6*t22kP*t4P*t5*t4-t6
*t22kP*t4P*t5*(t4*t4)+2*t5*t1P*t4P*t2P*t4*t3+t5*t1P*t4P*t2P*(t4*t4)+2*t42kP*t5*t5*(t1
*t1)*t2P*t4*t3-t7*t3P*(t1*t1)*t4P*t5*t2P*t4+2*t6*t2P*t3*t42kP*t4*t7*t2*(t1*t1)+t6*t2P*(t1
*t1)*t4P*t4*t7*t3P-2*t42kP*t7*t2P*t4+2*t42kP*t5*t7*t2P*t4*t2+4*t42kP*t5*t7*t2P*t4*t1
*t2+2*t6*t22kP*t3*(t4*t4)*t4P-2*t6*t22kP*t1*(t4*t4)*t4P*t7+t42kP*t7*t7*t2P*t4-4*t42kP*t5
*t2P*k*t7*t3-t42kP*t6*t2P*k*t2*t7-4*t42kP*t5*t2P*k*t7*t2*t3-2*t7*t7*t3P*t2*t42kP*t4-t42kP
*t5*t1P*k-2*t42kP*(t1*t1)*t3*t2P*k-4*t42kP*t1*t3*t2P*k-t42kP*(t1*t1)*t7*t3P*k*(t2*t2)+t5
*t1P*(t3*t3)*t4*t2P*t2*t4P*t6+2*t42kP*t3*t5*t5*t1P*k*t1*(t2*t2)+t42kP*t7*t3P*k*t6*(t2*t2)
*t3-2*t42kP*t2P*k*t1+2*t42kP*t2P*k*t7+4*t42kP*t1*t2P*k*t2*t7*(t3*t3)-2*t5*t1P*t1*t4P
*t7*t2P*t4*t3+8*t42kP*t1*t3*t2P*k*t7+2*t5*t5*t12kP*t2*t4P*(t4*t4)+t6*t2P*(t3*t3)*t42kP
*t4*t7+2*t7*t3P*t2*t42kP*t4+4*t42kP*t1*t7*t7*t3P*k*t2*t3-4*t42kP*t7*t7*t1*t2P*k*t3-2*t42kP
*t1*t7*t3P*k*(t2*t2)*t3-2*t6*t2P*t3*t42kP*t4*t2+t42kP*t7*t3P*k*t6+2*t2*(t4*t4)*t4P*t7*t7
*t32kP+2*t42kP*(t1*t1)*(t3*t3)*t2P*k*t5-t42kP*t6*t2P*k*t2*t5*(t3*t3)-2*t7*t3P*t1*t42kP
*t4*t5-t42kP*t2P*k-t42kP*t7*t4*t5*t1P*(t2*t2)*(t3*t3)+2*t42kP*t5*t1P*k*t7*t3+t42kP*t5*t5
*t1P*k+t6*t2P*t4*t3P*t3*t4P*t7*(t1*t1)-t42kP*t5*t5*t2P*k*(t1*t1)*(t3*t3)+8*t42kP*t1*t2P
*k*t2*t7*t3-2*t7*t3P*t2*t42kP*t4*t5-2*t42kP*t1*t6*t2P*k*t2*t7*(t3*t3)-4*t42kP*t1*t6*t2P*k
*t2*t5*t3-t7*t7*t3P*t4*t2P*t2*t4P+t5*t1P*(t3*t3)*t4*t2P*t2*t4P+2*t42kP*t5*t1P*k*t6*t2
+2*t42kP*t3*t5*t5*t1P*k*t1+2*t7*t3P*t4*t2P*t2*t4P*t6*t1-2*t7*t7*t3P*t4*t2P*t2*t4P*t1
+2*t5*t1P*t3*t4*t2P*t2*t4P*t6-2*t5*t5*t1P*t3*t4*t2P*t2*t4P+t7*t3P*t4*t2P*t2*t4P*(t1
*t1)-t6*t2P*(t3*t3)*t42kP*t4*t2+2*t42kP*(t1*t1)*t7*t3P*k*t6*t2-4*t42kP*t1*t7*t3P*k*t2+t5
*t5*t12kP*t4P*t4-t42kP*(t3*t3)*t5*t1P*k*t1-2*t42kP*t7*t7*t3*t2P*k+2*t42kP*(t1*t1)*t7*t7
*t3P*k*t2-2*t42kP*t1*t6*t2P*k*t2*t5-2*t42kP*t5*t5*t1*t2P*k*t2*(t3*t3)-t42kP*(t1*t1)*t6*t2P
*k*t2*t7*(t3*t3)-t42kP*(t1*t1)*t6*t2P*k*t2*t7+4*t42kP*t7*t3*t5*t1P*k*t1*t2-2*t7*t3P*t1*t3*t42kP
*t4*t6+4*t42kP*t1*t6*t2P*k*t2*t3+2*t42kP*(t1*t1)*t2P*k*t2*t7*(t3*t3)+t42kP*(t2*t2)*t4*t5*t1P
*(t3*t3)+t42kP*t7*t3P*k*t6*(t2*t2)+t6*t2P*(t3*t3)*t4*t1P*t1*t4P*t5*t2+4*t42kP*(t1*t1)*t3
*t2P*k*t7+2*t42kP*t2*t5*t5*t1P*k*t1+2*t42kP*t5*t2P*k*t2-2*t42kP*(t2*t2)*t3*t5*t1P*k-t42kP
*t5*t5*t2P*k*(t1*t1)+4*t5*t5*t12kP*t2*t3*t4P*t4-8*t42kP*t7*t2P*k*t5*t1*t2*t3+t42kP*(t3*t3)
*t5*t5*t1P*k*t1*(t2*t2)+2*t2*(t4*t4)*t4P*t7*t7*t32kP*(t1*t1)-4*t42kP*t5*t5*t1*t2P*k*t2*t3+2
*t42kP*t7*t3P*k*t6*t2-t7*t7*t3P*(t1*t1)*t3*t42kP*t4-t6*t2P*(t3*t3)*t42kP*t4*(t1*t1)-t42kP
*(t1*t1)*t7*t3P*k*t3-2*t5*t5*t1P*t3*t42kP*t4-t42kP*t5*t5*t2P*k*t2-4*t5*t5*t1P*t2*t3*t42kP
*t4*t1-2*t42kP*t1*(t3*t3)*t2P*k-2*t7*t7*t3P*t4*t2P*t2*t4P*t1*t3+2*t6*t2P*t3*t42kP*t4*t5
*(t1*t1)+t42kP*t7*t3P*k*t5*(t2*t2)+t42kP*(t3*t3)*t5*t1P*k*t1*t6-t7*t3P*(t1*t1)*t42kP*t4*t5-t42kP
*t7*(t1*t1)*t2P*k*t6*(t3*t3)+2*t5*t5*t12kP*t2*t4P*(t4*t4)*(t3*t3)-t7*t7*t3P*t4*t2P*t2*t4P
*(t1*t1)+4*t42kP*t5*t2P*k*t1+t7*t3P*t4*t2P*t2*t4P*t6*t3-2*t7*t3P*t4*t2P*t2*t4P*t5*t1
*t3-t42kP*(t2*t2)*t5*t1P*k*t1+t42kP*(t3*t3)*t5*t1P*k*t1*t6*(t2*t2)+t7*t3P*t3*t42kP*t4-2*t7
*t3P*t2*t3*t42kP*t4*t5*(t1*t1)+t42kP*(t1*t1)*t7*t3P*k*t6-t7*t7*t3P*t4P*t2P*t4-2*t7*t7*t3P
*t4P*t2P*t4*t1-t7*t7*t3P*t4P*t2P*(t4*t4)-2*t7*t7*t3P*t4P*t2P*(t4*t4)*t1-t6*t22kP*(t1
*t1)*t4P*t7*t4-2*t6*t22kP*(t1*t1)*t4P*t7*t4*t3-t6*t22kP*(t1*t1)*t4P*t7*(t4*t4)+2*t6*t22kP
*(t1*t1)*t3*t4P*t4-2*t6*t22kP*(t1*t1)*t4P*t7*(t4*t4)*t3+t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4-2*t7
*t7*t3P*t1*t3*t4P*t2P*(t4*t4)*t2-t7*t7*t3P*(t1*t1)*t3*t4P*t2P*(t4*t4)*t2-4*t6*t22kP*t1
*t3*(t4*t4)*t4P*t7-t7*t7*t3P*(t4*t4)*t2P*t2*t4P-2*t7*t7*t3P*(t4*t4)*t2P*t2*t4P*t1-2*t42kP
*t5*t2P*t4*(t1*t1)+2*t42kP*t5*t5*t1*t2P*t4+4*t42kP*t5*t5*t1*t2P*t4*t3+2*t42kP*t5*t5*t1*t2P
*t4*t2-2*t4P*t5*t5*t1*t2P*t2*t1P*(t4*t4)*t3+t5*t1P*t4P*t2P*t4-4*t7*t7*t3P*t2*t3*t42kP
*t4*t1-2*t5*t5*t1P*t2*t42kP*t4+2*t42kP*t5*(t1*t1)*t7*t2P*t4*t2+4*t42kP*t5*(t1*t1)*t7*t2P
*t4*t2*t3-t5*t1P*t1*t4P*t7*t2P*t4-t7*t7*t3P*(t1*t1)*(t4*t4)*t4P*t2P-t7*t7*t3P*(t1*t1)*(t4
*t4)*t4P*t2P*t2-t5*t1P*(t3*t3)*(t2*t2)*t42kP*t6*t4*t1-2*t5*t1P*(t3*t3)*t2*t42kP*t6*t4*t1-2
*t42kP*t6*t2*t4*t5*t1P*t1-t5*t1P*(t3*t3)*(t2*t2)*t42kP*t6*t4-2*t42kP*t6*(t2*t2)*t4*t5*t1P
*t3-2*t6*t22kP*(t1*t1)*t3*(t4*t4)*t4P*t5+2*t6*t22kP*t1*t4P*(t4*t4)*(t3*t3)-4*t42kP*(t3*t3)
*t5*t2P*t4*t1-2*t42kP*(t3*t3)*t5*t2P*t4*t2-4*t42kP*(t3*t3)*t5*t2P*t4*t1*t2+t5*t1P*(t3*t3)
*(t4*t4)*t4P*t2P+t5*t1P*(t3*t3)*(t4*t4)*t4P*t2P*t2-2*t5*t1P*(t3*t3)*t2*t42kP*t6*t4-2*t42kP
*t7*t4*t5*t1P*(t2*t2)*t3*t1-2*t42kP*t6*t2*t4*t5*t1P-t7*t3P*(t1*t1)*t3*t42kP*t4*t5+2*t42kP
*(t3*t3)*t2P*t4*t1+2*t42kP*t3*t2P*t4*t2+t42kP*(t3*t3)*t2P*t4*t2+2*t42kP*(t3*t3)*t2P*t4
*t1*t2+2*t42kP*t5*t5*t3*t2P*t2*t4-2*t7*t3P*(t4*t4)*t2P*t2*t4P*t5*t1*t3+(t2*t2)*(t4*t4)*t4P
*t7*t7*t32kP*(t1*t1)-2*t6*t2P*(t3*t3)*t42kP*t4*t1*t2+2*t42kP*t7*t7*t2P*t2*(t3*t3)*t4*t1+t42kP
*t7*t7*t2P*t2*(t3*t3)*t4+2*t42kP*t1*t2P*t4*t2-t7*t7*t3P*t3*t4P*t2P*t4+2*t5*t1P*t1*t4P
*t2P*t4*t3+t5*t1P*t1*t4P*t2P*(t4*t4)+2*t5*t1P*t1*t4P*t2P*(t4*t4)*t3+t5*t1P*t1*t4P*t2P
*(t4*t4)*t2+2*t42kP*t7*t7*t2P*t2*t4*t1-t5*t1P*t4P*t7*t2P*t4-t5*t1P*t4P*t7*t2P*(t4*t4)
+2*t7*t3P*(t1*t1)*t2*t42kP*t4-t7*t7*t3P*(t2*t2)*t3*t42kP*t4*(t1*t1)-2*t7*t7*t3P*t2*t3*t42kP
*t4+t6*t2P*(t3*t3)*t42kP*t4*t5*(t1*t1)-t5*t5*t1P*t1*t42kP*t4+2*t7*t3P*t1*(t2*t2)*t42kP*t4)
if (k > 0) test <- abs(A46/a[4,6])
a[4,6] <- a[4,6] + A46
k <- k+1
}
if (k == maximumIteration) {
return(list("flag"=1))
break
}
##A47
test <- 100.0
k <- 0
while (test > criteria & k < maximumIteration)
{
t1P <- pow((t1/(1+t1)),k)
t2P <- pow((t2/(1+t2)),k)
t3P <- pow((t3/(1+t3)),k)
t4P <- pow((t4/(1+t4)),k)
t12kP <- pow((t1/(1+t1)),(2*k))
t22kP <- pow((t2/(1+t2)),(2*k))
t32kP <- pow((t3/(1+t3)),(2*k))
t42kP <- pow((t4/(1+t4)),(2*k))
A47 <- -1/(1+t4)/t4*pow(t7*t3P+t6*t2P+t5*t1P+t4P-t4P*t5*t1*t2*t3+t5*t1P*t2+t6*t2P*t4+t6*t2P
*t3+t6*t2P*t1+t7*t3P*t4+t7*t3P*t2+t7*t3P*t1-t4P*t6*t2-t4P*t7*t3-t4P*t5*t1+t4P*t2*t3-t4P
*t5*t3-t4P*t5*t2+t4P*t1*t3-t4P*t6*t3-t4P*t6*t1+t4P*t1*t2-t4P*t7*t2-t4P*t7*t1+t5*t1P*t4
+t5*t1P*t3+t4P*t3-t4P*t5-t4P*t6-t4P*t7+t4P*t2+t4P*t1+t5*t1P*t2*t4+t5*t1P*t3*t4+t5*t1P
*t2*t3+t6*t2P*t1*t4+t6*t2P*t3*t4+t6*t2P*t1*t3+t7*t3P*t2*t4+t7*t3P*t1*t2+t7*t3P*t1*t4-t4P
*t7*t1*t2-t4P*t6*t2*t3-t4P*t6*t1*t2-t4P*t7*t2*t3-t4P*t7*t1*t3-t4P*t6*t1*t3-t4P*t5*t1*t2-t4P
*t5*t1*t3-t4P*t5*t2*t3+t4P*t1*t2*t3-t4P*t6*t1*t2*t3+t5*t1P*t2*t3*t4+t6*t2P*t1*t3*t4+t7*t3P
*t1*t2*t4-t4P*t7*t1*t2*t3,-2)*(-2*t42kP*t5*t5*t3P*k*t2-t6*t2P*(t1*t1)*t42kP*t4*t5-2*t42kP
*t3*t5*t1P*k*t1*(t2*t2)-t42kP*(t1*t1)*t7*t3P*k*t5*(t2*t2)*t3+t42kP*(t2*t2)*t5*t1P*k*t1*t6+2
*t6*t2P*t3*t42kP*t4+2*t42kP*t1*t6*t2P*k*t2*t5*(t3*t3)+2*t7*t3P*(t2*t2)*t3*t42kP*t4*t6*t1
+2*t6*t6*t22kP*t1*t4P*t4+2*t42kP*t2*(t3*t3)*t5*t5*t1P*k-2*t42kP*t5*(t1*t1)*t3P*k*t6*(t2*t2)-t6
*t6*t2P*(t3*t3)*t42kP*t4+t7*t3P*(t1*t1)*t42kP*t4*t6+2*t42kP*t2*(t3*t3)*t5*t1P*k*t6-t42kP
*(t1*t1)*t7*t3P*k*t6*t3+4*t42kP*(t1*t1)*t2*t3P*k*t3*t6-2*t42kP*t6*t6*t3P*k*t1*(t2*t2)+t6*t2P
*(t3*t3)*t42kP*t4+2*t42kP*t7*t3*t5*t1P*k*t1*(t2*t2)-2*t42kP*t6*t6*t2*t3P*k*t3*(t1*t1)-t42kP
*t3P*k-t42kP*(t1*t1)*t3P*k+2*t42kP*t7*t3P*k*t2-t42kP*t7*t4*t5*t1P*(t2*t2)*t1+t42kP*t7
*(t2*t2)*t1P*k*t5+t42kP*(t2*t2)*(t3*t3)*t5*t1P*k*t7+t42kP*t5*t1P*k*t6+2*t42kP*t6*t2P*k
*t2*t7*t3-t6*t6*t2P*(t3*t3)*t42kP*t4*t2-2*t42kP*t2*t3P*k*t3+2*t5*t1P*t3P*t3*t4*t4P*t2+t42kP
*t7*(t3*t3)*t5*t1P*k*t1-t5*t5*t1P*(t2*t2)*(t3*t3)*t42kP*t4*t1-t42kP*t3P*k*t3-t42kP*(t1*t1)
*t7*t3P*k*t6*(t2*t2)-2*t4P*t6*t4*t3P*t3*t5*t1P*t2-t5*t5*t1P*(t2*t2)*t42kP*t4-t42kP*(t3
*t3)*t2P*k*t6+2*t42kP*t3*t5*t1P*k*t1*t6*(t2*t2)-t4P*t3*t4*t6*t2P*k*t2*t7*t3P-t6*t6*t22kP
*(t1*t1)*t4*k*t4P-2*t7*t3P*t1*t2P*k*t4P*t6-2*t7*t3P*t6*t2P*k*t2*t4P*t1*t3-2*t7*t3P*t6
*t2P*k*t2*t4P*t1-t7*t3P*t6*t2P*k*t2*t4P*(t1*t1)*t4-t5*t5*t1P*t3P*t3*t4*t4P*t1*(t2*t2)-t42kP
*(t1*t1)*t7*t3P*k*t5*t3-t6*t2P*t4*t3P*t3*t4P*t5*t2+2*t6*t2P*t4*t3P*t3*t4P*t7*t1-2*t6*t6
*t2P*t4*t3P*t3*t4P*t1+t5*t5*t12kP*(t2*t2)*t4P*(t4*t4)+2*t42kP*(t2*t2)*t3*t5*t1P*k*t7-t6
*t6*t22kP*k*t4P+t7*t3P*(t2*t2)*t42kP*t4*t5+4*t42kP*t1*t6*t2P*k*t2*t7*t3+t42kP*t5*t1P
*k*t7*(t3*t3)+2*t42kP*(t3*t3)*t5*t1P*k*t1*t6*t2+t7*t3P*t42kP*t4*t6-2*t7*t3P*t1*t3*t42kP*t4-2
*t42kP*t5*t1P*k*t3+2*t42kP*t5*t5*t1P*k*t2-2*t6*t2P*t1*t42kP*t4*t5*t2+t42kP*(t2*t2)*(t3
*t3)*t5*t1P*k*t6-2*t42kP*t5*(t1*t1)*t3P*k*t3*t6-2*t42kP*(t1*t1)*t7*t3P*k*t5*t2+4*t42kP*t3
*t5*t5*t1P*k*t1*t2-t42kP*(t1*t1)*t3P*k*(t2*t2)-t42kP*(t1*t1)*t7*t3P*k*t5+4*t42kP*t3*t5*t1P
*k*t1*t6*t2+t7*t3P*(t2*t2)*t3*t42kP*t4*t6+2*(t4*t4)*t1*t4P*t6*t6*t22kP-t42kP*t6*(t2*t2)*t4
*t5*t1P*t1+t42kP*t7*(t3*t3)*t5*t1P*k*t1*(t2*t2)-t42kP*t6*t6*t3P*k-4*t42kP*t5*t1*t3P*k*t6
+2*t42kP*t5*(t1*t1)*t3P*k+2*t42kP*t2*t5*t1P*k*t1*t6+4*t7*t3P*t1*t2*t42kP*t4*t6-2*t7*t3P
*t2*t3*t42kP*t4*(t1*t1)+2*t42kP*t1*t6*t6*t2P*k*t2*(t3*t3)+2*t5*t5*t12kP*t2*t4P*t4-t6*t2P
*t4*t3P*t3*t4P*t5*(t1*t1)*t2-4*t42kP*t1*t3P*k*t2+t6*t6*t22kP*(t1*t1)*t4P*t4+2*t42kP*t1
*t6*t2P*k*t2*t7-8*t42kP*t6*t2*t3P*k*t3*t5*t1+t7*t3P*t42kP*t4*t5-2*t42kP*t1*t6*t2P*k*t2
*(t3*t3)+4*t42kP*t1*(t2*t2)*t3P*k*t3*t6+2*t42kP*(t1*t1)*t3P*k*t3*t6-t6*t6*t2P*(t1*t1)*t42kP
*t4*t2+t6*t2P*(t1*t1)*t42kP*t4-2*t42kP*t6*t3P*k*t5*(t2*t2)+t42kP*t7*t3P*k*(t2*t2)*t3+2*t42kP
*t7*t1*t2P*k*t6*(t3*t3)+4*t6*t2P*t3*t42kP*t4*t1+t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4*t6-4*t42kP
*t5*(t1*t1)*t3P*k*t6*t2-2*t42kP*t5*t1P*k*t2+t6*t2P*(t3*t3)*t42kP*t4*t2*(t1*t1)-t42kP*t5*t5
*t3P*k*(t2*t2)-2*t42kP*t3*t5*t1P*k*t1-t6*t2P*(t3*t3)*t42kP*t4*t5-t42kP*t2P*k*t6*(t1*t1)
+t5*t1P*t3P*t3*t4*t4P*t1*(t2*t2)+t5*t1P*t3P*t3*t4*t4P*t7*(t2*t2)+4*t6*t2P*t3*t4*t1P*t1
*t4P*t5+(t4*t4)*(t1*t1)*t4P*t7*t3P*t6*t2P-t42kP*t5*t5*t3P*k*t3-4*t42kP*t1*t2*t3P*k*t3
+t7*t3P*t3*t4*t5*t1P*t4P*t1-2*t42kP*t1*t7*t3P*k*t6*(t2*t2)-t6*t6*t2P*t2*t42kP*t4+t7*t3P
*t4*t2P*t2*t4P*t6*(t1*t1)*t3+t42kP*t7*(t1*t1)*t2P*k*t6-2*t42kP*t6*t6*(t2*t2)*t3P*k*t3*t1
+2*t5*t1P*t3P*t3*t4*t4P*t1*t2-2*t5*t5*t1P*t3P*t3*t4*t4P*t1*t2+4*t42kP*t2*t3*t5*t1P*k
*t7+2*t6*t2P*t3*t42kP*t4*(t1*t1)-t42kP*(t2*t2)*t3P*k*t3+2*t42kP*t5*t2P*k*t6*t1-t6*t2P*(t3
*t3)*t42kP*t4*t5*(t1*t1)*t2-2*t42kP*t5*t5*t1*t3P*k*(t2*t2)+2*t7*t3P*t4*t2P*t2*t4P*t6*t1*t3-2
*t6*t6*t2P*t4*t3P*t3*t4P*t1*t2+2*t42kP*t5*t3P*k*t3+2*t42kP*(t1*t1)*t7*t3P*k*t2*t3+2*t6
*t2P*t4*t3P*t3*t4P*t1*t2-t6*t6*t2P*t4*t3P*t3*t4P*t2+t6*t2P*t4*t3P*t3*t4P*(t1*t1)*t2
+2*t7*t3P*t2*t3*t4*t1P*t1*t4P*t5+2*t42kP*(t1*t1)*t6*t2P*k*t2*t7*t3-2*t42kP*t3*t2P*k*t6
+4*t42kP*t1*t7*t3P*k*t2*t3+4*t42kP*t2*t3*t5*t1P*k*t6-4*t42kP*t6*t3P*k*t5*t2+t42kP*t6*t2P
*k*t2*t5-t42kP*t7*t3P*k*t6*t3-2*t42kP*t2*(t3*t3)*t5*t1P*k-2*t5*t5*t1P*(t2*t2)*t3*t42kP*t4-4
*t42kP*t5*t1*t3P*k*t6*(t2*t2)+2*t42kP*t5*(t1*t1)*t3P*k*(t2*t2)+t7*t3P*t4*t2P*t2*t4P*t6
+2*(t4*t4)*(t1*t1)*t4P*t6*t6*t22kP*t3+t5*t5*t12kP*(t2*t2)*t4P*t4+2*t6*t2P*t1*t42kP*t4+t4P
*t6*t4*t3P*k*t3*t5*t1P*t1+2*t4P*t6*t6*t3P*k*t2P*t1+t4P*t6*t6*t3P*k*t2P*t3+2*t4P*t6
*t3P*k*t5*t1P*t2+2*t7*t32kP*k*t4P*t6*t2*t4+t7*t32kP*k*t4P*t6*(t2*t2)*t4-t7*t32kP*k*t4P
*(t1*t1)*t4-2*t7*t32kP*k*t4P*t1-2*t7*t32kP*k*t4P*t2+t7*t32kP*k*t4P*t6*(t1*t1)+t6*t2P*t2
*t3P*k*t3*t4P*t5-t5*t1P*t4*t3P*k*t4P*t1*(t2*t2)*t3-t4P*(t1*t1)*t3P*k*t6*t2P*t3*t4+t4P
*t5*(t1*t1)*t3P*k*t6*t2P+t4P*t5*t5*t4*t3P*k*t3*t1P-t5*t1P*(t2*t2)*t3P*k*t3*t4P-t6*t2P
*t4*t3P*k*t4P*(t1*t1)+t4P*t6*t6*(t1*t1)*t2*t3P*k*t3*t2P+t4P*t6*t1*(t2*t2)*t3P*k*t3*t5*t1P
+2*t4P*t6*t1*t2*t3P*k*t3*t5*t1P+2*t4P*t6*t6*t1*t2*t3P*k*t3*t2P+t6*t2P*(t1*t1)*t3P*k*t3
*t4P*t5*t2+t5*t5*t1P*t4*t3P*k*t4P*(t2*t2)*t3+t4P*t5*t5*t1*t3P*k*t1P+2*t4P*t5*t1*t3P
*k*t6*t2P+t4P*t6*t3P*k*t5*t1P+t4P*t6*t6*t3P*k*t2P+t4P*t6*t3P*k*t5*t1P*t3+t4P*t6
*t3P*k*t5*t1P*t4+t5*t5*t1P*t3P*k*t3*t4P*t1*(t2*t2)+2*t6*t6*t2P*t4*t3P*k*t4P*t1*t2+t4P
*t6*t6*t3P*k*t2P*t2+2*t4P*t6*t1*t2*t3P*k*t3*t5*t1P*t4+2*t6*t6*t2P*t1*t3P*k*t3*t4P+2*t6
*t2P*t1*t3P*k*t3*t4P*t5-t42kP*t5*t5*t3P*k*(t2*t2)*t3+2*t7*t3P*t2*t3*t42kP*t4*t6*(t1*t1)
+4*t42kP*t6*t2*t3P*k*t3+2*t7*t32kP*t1*(t4*t4)*t4P-t7*t32kP*t4P*t5*(t4*t4)*(t1*t1)-t6*t2P
*(t1*t1)*t4P*t5*t3P*t4+t42kP*(t2*t2)*t3P*t4-t42kP*(t1*t1)*(t2*t2)*t3P*k*t3-t42kP*t6*t6
*t3P*k*t3-2*t42kP*t6*(t2*t2)*t3P*k*t3*t5*(t1*t1)-2*t42kP*t3P*t3*t5*t4-2*t7*t32kP*t4P*t6
*t4*t1-2*t7*t32kP*t4P*t6*t4*t2-4*t7*t32kP*t4P*t6*t4*t1*t2-t7*t32kP*t4P*t6*(t4*t4)-2*t7*t32kP
*t4P*t6*(t4*t4)*t1-2*t7*t32kP*t4P*t6*(t4*t4)*t2-4*t7*t32kP*t4P*t6*(t4*t4)*t1*t2+2*t42kP*t5
*t5*t3P*t4*t1+2*t42kP*t5*t5*t3P*t4*t2+4*t42kP*t5*t5*t3P*t4*t1*t2+t42kP*t5*t5*t3P*t4*t3
+2*t42kP*t5*t5*t3P*t4*t1*t3+2*t42kP*t5*t5*t3P*t4*t2*t3+4*t42kP*t5*t5*t3P*t4*t1*t2*t3+4*t7
*t32kP*t1*(t4*t4)*t4P*t2+2*t7*t32kP*(t1*t1)*(t4*t4)*t4P*t2+t7*t32kP*(t1*t1)*(t4*t4)*t4P-t4P
*t6*t2P*k*t2*t7*t3P-2*t7*t3P*t1*t4*t2P*k*t4P*t6-2*t7*t3P*t3*t4*t6*t2P*k*t4P*t1*t2-2*t6
*t6*t22kP*t1*k*t4P-t6*t6*t22kP*(t1*t1)*(t3*t3)*k*t4P*t4-t4P*t6*t2P*k*t2*t7*t3P*t3-t6*t6
*t22kP*(t3*t3)*k*t4P+2*t7*t32kP*(t1*t1)*t2*k*t4P*t5*t4+2*t7*t32kP*t1*(t2*t2)*k*t4P*t5*t4
+2*t7*t32kP*(t1*t1)*t2*k*t4P*t6*t4-t4P*(t2*t2)*t4*t3P*k*t5*t1P-2*t4P*t2*t4*t3P*k*t5*t1P
+t7*t32kP*k*t4P*t5*(t1*t1)+t7*t32kP*k*t4P*t6+t7*t32kP*k*t4P*t5+t7*t32kP*k*t4P*t5*(t2
*t2)+t6*t6*t2P*t4*t3P*k*t4P*t2-t6*t2P*t4*t3P*k*t4P*t3+t7*t32kP*(t1*t1)*(t2*t2)*k*t4P
*t5+2*t5*t5*t1P*t3P*k*t3*t4P*t1*t2+t7*t32kP*k*t4P*t5*(t2*t2)*t4+2*t7*t32kP*k*t4P*t6*t2-t6
*t2P*t2*t3P*k*t4P+t4P*t6*t4*t3P*k*t3*t5*t1P*(t2*t2)-t5*t5*t1P*t3P*t3*t4P*(t4*t4)-2
*t5*t5*t1P*t3P*t3*t4P*(t4*t4)*t2-t5*t1P*t1*(t2*t2)*t4P*t6*t3P*t4-t5*t5*t1P*t3P*t3*(t4
*t4)*t4P*t1*(t2*t2)+t5*t1P*t1*t4P*t3P*t4+t5*t1P*t1*t4P*t3P*(t4*t4)+2*t6*t2P*t1*t4P
*t3P*t4+t6*t2P*(t1*t1)*t4P*t3P*t4-t6*t6*t2P*t4P*t3P*t4+t42kP*t6*t6*t3P*t4*(t2*t2)*t3-2
*t42kP*t6*t3P*t4-2*t42kP*t5*t3P*t4+t42kP*t5*t5*t3P*t4+t7*t32kP*t4P*(t4*t4)+t7*t32kP
*t4P*t4-2*t6*t6*t22kP*t1*t4*k*t4P-2*t6*t6*t22kP*(t1*t1)*t3*k*t4P*t4-2*t6*t6*t22kP*t1*(t3
*t3)*k*t4P*t4-2*t7*t32kP*(t2*t2)*t4P*t6*(t4*t4)*t1-2*t7*t32kP*t1*(t2*t2)*t4P*t5*t4+2*t5*t1P
*t2*t4P*t3P*t4+t5*t1P*(t2*t2)*t4P*t3P*t4-4*t42kP*t5*t1*t3P*t3*(t2*t2)*t4+t5*t1P*(t2*t2)
*t4P*t3P*(t4*t4)-t5*t5*t1P*t3P*t3*t4P*t1*(t4*t4)-2*t42kP*(t1*t1)*(t2*t2)*t6*t3P*t4*t3-2
*t4P*t6*(t4*t4)*t3P*t3*t5*t1P*t1*t2+t42kP*t5*t5*t3P*t4*(t1*t1)+t42kP*t5*t5*t3P*t4*(t1*t1)
*t3-2*t42kP*(t1*t1)*(t2*t2)*t6*t3P*t4+2*t6*t6*t22kP*t3*t4P*t4*(t1*t1)+t5*t1P*t4*t7*t3P*t4P
*t3-t6*t2P*t2*t42kP*t4*t5-2*t5*t5*t1P*(t2*t2)*t3*t42kP*t4*t1+2*t42kP*t5*t5*t1P*k*t3+t6*t2P
*t4*t3P*t3*t4P*(t1*t1)-t42kP*(t1*t1)*(t3*t3)*t2P*k*t6+4*t42kP*t5*t1*t3P*k*(t2*t2)+t7*t3P
*t4*t5*t1P*t4P*t1+2*t7*t3P*t4*t5*t1P*t4P*t1*t2+t42kP*t5*t1P*k*t6*(t2*t2)+2*t5*t5*t1P
*t2*t3P*k*t3*t4P-t6*t2P*t4*t3P*k*t4P*(t1*t1)*t2-2*t5*t1P*t3P*k*t4P*t2-t5*t1P*t3P
*k*t4P-2*t6*t2P*t4*t3P*k*t4P*t1*t2-2*t6*t2P*t4*t3P*k*t4P*t1-t6*t2P*t4*t3P*k*t4P*t2
+2*t6*t6*t2P*t4*t3P*k*t4P*t1+t6*t2P*t4*t3P*k*t4P*t5*t2+t6*t2P*t4*t3P*k*t4P*t5*t3+2
*t6*t2P*t4*t3P*k*t4P*t5*t1-t6*t2P*t4*t3P*k*t4P+t6*t2P*t4*t3P*k*t4P*t5*(t1*t1)+t6*t6
*t2P*t4*t3P*k*t4P*(t1*t1)+t7*t32kP*k*t4P*t5*(t1*t1)*t4+t7*t32kP*k*t4P*t6*(t1*t1)*t4-t6
*t2P*t3P*k*t3*t4P-2*t6*t2P*t2*t3P*k*t4P*t1-t5*t5*t1P*(t2*t2)*(t3*t3)*t42kP*t4+2*t42kP
*t1*t6*t6*t2P*k*t2+2*t5*t1P*t2*t42kP*t4+2*t42kP*(t1*t1)*t7*t3P*k*t2-t5*t1P*t3P*k*t4P
*t4-2*t4P*t1*t3P*k*t5*t1P*t2*t3-t4P*(t1*t1)*t3P*k*t6*t2P*t3*t2-2*t5*t1P*t4*t3P*k*t4P
*t1*t2*t3-t7*t32kP*k*t4P*t4+t4P*t5*t3P*k*t6*t2P*t2+t4P*t5*t5*t3P*k*t1P*(t2*t2)+t5*t5
*t1P*t1*(t2*t2)*t3P*k*t4P+t7*t32kP*(t1*t1)*(t2*t2)*k*t4P*t5*t4-t4P*t3P*k*t6*t2P*t3*t2
+2*t5*t5*t1P*t4*t3P*k*t4P*t2*t3+t5*t5*t1P*t4*t3P*k*t4P*t1*t3+2*t4P*t5*t5*t3P*k*t1P
*t2*t4+t4P*t5*t5*t3P*k*t1P*(t2*t2)*t4+t7*t32kP*k*t4P*t5*t4+t7*t32kP*k*t4P*t6*t4+t7*t32kP
*(t1*t1)*(t2*t2)*k*t4P*t6*t4+2*t6*t6*t2P*t4*t3P*k*t3*t4P*t1+2*t6*t2P*t4*t3P*k*t3*t4P*t5
*t1-2*t6*t2P*t2*t4*t3P*k*t3*t4P*t1+2*t6*t6*t2P*t2*t4*t3P*k*t3*t4P*t1+2*t6*t2P*t2*t4*t3P
*k*t3*t4P*t5*t1-t4P*t1*t3P*k*t5*t1P*(t2*t2)*t3+t7*t32kP*k*t4P*t6*(t2*t2)+2*t7*t32kP*k*t4P
*t6*t1+2*t7*t32kP*k*t4P*t5*t2+2*t7*t32kP*k*t4P*t5*t1-2*t5*t1P*t1*t2*t3P*k*t4P+2*t7*t32kP
*t1*(t2*t2)*k*t4P*t6*t4-t7*t32kP*(t1*t1)*(t2*t2)*k*t4P*t4-4*t7*t32kP*t1*t2*k*t4P*t4+t7*t32kP
*(t1*t1)*(t2*t2)*k*t4P*t6+4*t7*t32kP*t1*t2*k*t4P*t5+2*t7*t32kP*t1*(t2*t2)*k*t4P*t6-t7*t32kP
*(t1*t1)*(t2*t2)*k*t4P+2*t5*t1P*t1*t2*t3P*k*t4P*t6*t4-2*t5*t1P*t2*t3P*k*t3*t4P*t4+t4P
*t5*t5*t3P*k*t1P*t3+t4P*t5*t5*t3P*k*t1P*t4+t7*t3P*t4*t2P*t2*t4P*t6*(t1*t1)-2*t7*t32kP
*(t1*t1)*t2*k*t4P-2*t7*t32kP*t1*(t2*t2)*k*t4P-t5*t1P*t1*t3P*k*t4P-2*t7*t32kP*t1*(t2*t2)
*k*t4P*t4-2*t7*t32kP*(t1*t1)*t2*k*t4P*t4+2*t5*t1P*t1*t2*t3P*k*t4P*t6+2*t5*t5*t1P*t1*t2
*t3P*k*t4P-t5*t1P*t3P*k*t3*t4P*t4-t6*t2P*t2*t3P*k*t4P*(t1*t1)+4*t7*t32kP*t1*t2*k*t4P
*t6+t6*t6*t2P*t4*t3P*k*t4P+t6*t2P*t4*t3P*k*t4P*t5-t5*t1P*(t2*t2)*t3P*k*t3*t4P*t4+2
*t4P*t5*t1*t3P*k*t6*t2P*t2-t5*t1P*t1*(t2*t2)*t3P*k*t4P*t4+2*t5*t5*t1P*t1*t2*t3P*k*t4P
*t4-t5*t1P*t3P*k*t4P*(t2*t2)+t6*t6*t2P*t4*t3P*k*t3*t4P*(t1*t1)+t6*t2P*t4*t3P*k*t3*t4P
*t5*(t1*t1)+2*t7*t32kP*(t1*t1)*t2*k*t4P*t5+2*t7*t32kP*(t1*t1)*t2*k*t4P*t6+2*t7*t32kP*t1*(t2
*t2)*k*t4P*t5+t6*t6*t2P*t2*t4*t3P*k*t3*t4P*(t1*t1)+t6*t2P*t2*t4*t3P*k*t3*t4P*t5*(t1*t1)-t6
*t2P*t2*t4*t3P*k*t3*t4P+t6*t6*t2P*(t1*t1)*t3P*k*t3*t4P+2*t6*t2P*t1*t3P*k*t3*t4P*t5
*t2+t6*t2P*(t1*t1)*t3P*k*t3*t4P*t5+t4P*t5*t3P*k*t6*t2P*t3+2*t4P*t5*t5*t3P*k*t1P*t2
+t4P*t5*t5*t3P*k*t1P+2*t4P*t6*t6*t3P*k*t2P*t1*t2+t4P*t5*t3P*k*t6*t2P-4*t7*t32kP*t1
*t2*k*t4P+t6*t6*t2P*t4*t3P*k*t4P*(t1*t1)*t2+t6*t2P*t4*t3P*k*t4P*t5*(t1*t1)*t2-t5*t1P
*t1*t3P*k*t4P*t4+2*t4P*t6*t3P*k*t5*t1P*t2*t4+t4P*t6*(t2*t2)*t3P*k*t3*t5*t1P+2*t7*t32kP
*k*t4P*t5*t2*t4+2*t7*t32kP*k*t4P*t6*t1*t4+2*t4P*t6*t2*t3P*k*t3*t5*t1P-t6*t2P*(t1*t1)*t42kP
*t4*t7-2*t6*t2P*t3*t42kP*t4*t5+t42kP*t3P*t4-t4P*t5*t1P*k*t7*t3P*t3-2*t6*t2P*t1P*k*t1
*t4P*t5+4*t6*t2P*t3*t4*t1P*t1*t4P*t5*t2-2*t6*t6*t22kP*t3*k*t4P*t4-t6*t6*t22kP*(t1*t1)*(t3
*t3)*k*t4P-t7*t3P*t4*t2P*k*t4P*t6-t6*t6*t22kP*t4*k*t4P-t4P*t6*t2P*k*t2*t7*t3P*t4-t7
*t3P*t6*t2P*k*t2*t4P*(t1*t1)*t3-t7*t3P*t6*t2P*k*t2*t4P*(t1*t1)-t7*t3P*t3*t4*t6*t2P*k
*t4P*(t1*t1)*t2-t6*t6*t22kP*(t3*t3)*k*t4P*t4-t7*t3P*t2P*k*t4P*t6-t7*t3P*(t1*t1)*t4*t2P
*k*t4P*t6*t3-t7*t3P*t3*t2P*k*t4P*t6+t4P*t6*t4*t3P*k*t3*t5*t1P+2*t4P*t6*t4*t3P*k*t3
*t5*t1P*t2-t7*t32kP*k*t4P-t42kP*t6*t4*t5*t1P-2*t7*t32kP*k*t4P*t1*t4-t7*t32kP*k*t4P
*(t2*t2)-t7*t32kP*k*t4P*(t1*t1)-t7*t32kP*k*t4P*(t2*t2)*t4-2*t7*t32kP*k*t4P*t2*t4+t4P*t5
*t5*t1*t3P*k*t3*t1P-t5*t1P*t3P*k*t3*t4P+t5*t1P*t1*(t2*t2)*t3P*k*t4P*t6-t4P*(t1*t1)
*t3P*k*t6*t2P-2*t4P*t1*t3P*k*t6*t2P+4*t7*t32kP*t1*t2*k*t4P*t5*t4+4*t7*t32kP*t1*t2*k*t4P
*t6*t4-t5*t1P*t1*(t2*t2)*t3P*k*t4P+2*t5*t5*t12kP*t4P*(t4*t4)*t3+t4P*t6*t6*t4*t3P*k*t3*t2P
+2*t42kP*t3*t6*t6*t2P*k+t42kP*(t1*t1)*t6*t2P*k*t2*t5-2*t5*t1P*t42kP*t7*t4*t1*t3-t42kP*t5
*t5*(t1*t1)*t3P*k*(t2*t2)-2*t4P*t4*t5*t1P*k*t1*t7*t3P*t2*t3-2*t4P*t4*t5*t1P*k*t1*t6*t2P
*t2-2*t5*t5*t12kP*k*t4P*t2*(t3*t3)-t4P*t4*t5*t1P*k*t1*t7*t3P*(t2*t2)*t3-2*t4P*t4*t5*t1P
*k*t1*t6*t2P*(t3*t3)*t2-2*t4P*t4*t5*t1P*k*t1*t6*t2P*(t3*t3)-t4P*t4*t5*t1P*k*t1*t7*t3P*t3-2
*t5*t5*t12kP*t2*t4*k*t4P-t4P*t4*t5*t1P*k*t7*t3P-2*t4P*t4*t5*t1P*k*t6*t2P-4*t4P*t4*t5
*t1P*k*t6*t2P*t3-2*t4P*t4*t5*t1P*k*t6*t2P*t2-t4P*t4*t5*t1P*k*t7*t3P*(t2*t2)-2*t4P*t4
*t5*t1P*k*t6*t2P*(t3*t3)-2*t42kP*(t1*t1)*t2*t3P*k*t3-t4P*t4*t5*t1P*k*t7*t3P*t3-2*t4P
*t4*t5*t1P*k*t7*t3P*t2+t5*t1P*t3P*t3*t4P*(t4*t4)+2*t5*t1P*t3P*t3*t4P*(t4*t4)*t2+2*t42kP
*t3P*t4*t1+t42kP*t3P*t4*t3-4*t6*t2P*t3*t1P*k*t4P*t5-t5*t5*t12kP*k*t4P*(t3*t3)*t4-2*t4P
*(t3*t3)*t5*t1P*k*t1*t6*t2P-4*t4P*t3*t5*t1P*k*t1*t6*t2P-t4P*t3*t5*t1P*k*t1*t7*t3P-4*t5
*t1P*t42kP*t7*t4*t1*t2*t3-4*t4P*t4*t5*t1P*k*t1*t6*t2P*t3-2*t4P*t4*t5*t1P*k*t1*t6*t2P
+2*t5*t1P*(t2*t2)*t42kP*t4*t1*t3-2*t42kP*t5*t5*(t1*t1)*t3P*k*t3*t2-t5*t5*t12kP*k*t4P+t42kP
*(t3*t3)*t6*t2P*k*t7-t4P*t6*t4*t3P*t3*t5*t1P+t7*t3P*(t1*t1)*t3*t42kP*t4*t6+2*(t4*t4)*t1*t4P
*t7*t3P*t6*t2P+8*t42kP*t6*t3P*k*t1*t2+2*t42kP*(t1*t1)*t6*t2P*k*t2*t5*t3-t7*t3P*(t2*t2)
*t42kP*t4-2*t5*t1P*t42kP*t7*t4*t3-2*t42kP*t6*t3P*k*t5*t3+t42kP*t5*t1P*k*t6*(t3*t3)-4*t42kP
*t6*t6*t3P*k*t1*t2-4*t5*t1P*t42kP*t7*t4*t2*t3-2*t5*t1P*t42kP*t7*t4*t2+2*t42kP*(t1*t1)*t6
*t6*t2P*k*t2*t3+2*t42kP*(t3*t3)*t6*t6*t2P*k*t1-4*t6*t2P*t3*t42kP*t4*t5*t1*t2-2*t6*t2P*t4
*t3P*t3*t4P*t5*t1*t2-2*t5*t1P*t42kP*t7*t4*t1*t2+t42kP*t6*t2P*k*t7+4*t42kP*t5*t2P*k*t6
*t1*t3-4*t42kP*t5*t5*t1*t3P*k*t2-2*t42kP*t7*t3P*k*t5*t2*t3+t6*t2P*t2*t42kP*t4-t6*t2P*(t3
*t3)*t42kP*t4*t7*t2-t5*t5*t1P*(t3*t3)*t42kP*t4+t5*t5*t12kP*(t2*t2)*(t3*t3)*t4P*t4-2*t42kP
*t1*t7*t3P*k*t5*t3-t5*t1P*(t3*t3)*t42kP*t7*t4*t1-t4P*t4*t5*t1P*k*t1*t7*t3P*(t2*t2)-4*t4P
*t4*t5*t1P*k*t1*t6*t2P*t3*t2-2*t4P*t5*t1P*k*t6*t2P-t4P*t5*t1P*k*t7*t3P-t4P*t5*t1P
*k*t7*t3P*t1-2*t4P*t5*t1P*k*t7*t3P*t2-4*t4P*t3*t5*t1P*k*t1*t6*t2P*t2-t4P*t3*t5*t1P
*k*t1*t7*t3P*(t2*t2)-2*t5*t1P*(t3*t3)*t42kP*t7*t4*t1*t2-2*t4P*(t3*t3)*t5*t1P*k*t1*t6*t2P
*t2-2*t6*t2P*t2*t1P*k*t4P*t5-2*t4P*t2*(t3*t3)*t5*t1P*k*t6*t2P*t4-t4P*(t2*t2)*t3*t5*t1P
*k*t7*t3P*t4-t4P*(t2*t2)*t3*t5*t1P*k*t7*t3P-2*t4P*t2*t3*t5*t1P*k*t7*t3P*t4+2*t42kP*t3
*t5*t1P*k*t1*t6-t6*t6*t2P*(t1*t1)*t42kP*t4+2*t42kP*t3*t6*t6*t2P*k*(t1*t1)+4*t42kP*t7*t1*t2P
*k*t6*t3-2*t5*t1P*(t3*t3)*t42kP*t7*t4*t2+t7*t3P*(t2*t2)*t3*t42kP*t4*t5-2*t42kP*t1*t7*t3P
*k*t6*t3+2*t7*t3P*t2*t3*t42kP*t4*t5+t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4*t5+t6*t2P*t4*t3P*t3*t4P
*t2+t42kP*t5*t5*t1P*k*t1-2*t6*t2P*(t3*t3)*t42kP*t4*t7*t1-t42kP*t7*t4*t5*t1P*(t2*t2)*(t3*t3)
*t1+t42kP*t5*t5*t1P*k*(t2*t2)+8*t42kP*t1*t2*t3P*k*t3*t5-t42kP*t6*t6*(t2*t2)*t3P*k*t3-t7*t3P
*t42kP*t4+8*t42kP*t1*t2*t3P*k*t3*t6-2*t42kP*t3P*k*t2-2*t42kP*(t1*t1)*t5*t3P*t4*(t2*t2)-t5
*t1P*t1*(t4*t4)*t4P*t6*t3P+2*t42kP*t6*t6*t1*(t2*t2)*t3P*t4-2*t7*t32kP*t4P*t5*t4*(t1*t1)
*t2-2*t7*t32kP*t4P*t5*(t4*t4)*(t1*t1)*t2+2*t42kP*t1*(t2*t2)*t3P*t4*t3+t42kP*(t1*t1)*(t2*t2)
*t3P*t4*t3+t6*t2P*(t1*t1)*(t4*t4)*t4P*t3P-t4P*t6*(t4*t4)*t3P*t3*t5*t1P*(t2*t2)+t7*t3P
*(t2*t2)*t42kP*t4*t6-t6*t6*t2P*(t4*t4)*t3P*t3*t4P*(t1*t1)*t2-t6*t2P*(t1*t1)*t2*(t4*t4)*t4P
*t5*t3P-t7*t32kP*(t2*t2)*t4P*t5*t4-t7*t32kP*t4P*t5*(t4*t4)*(t2*t2)-t5*t5*t1P*t1*(t2*t2)*t4P
*t3P*t4+2*t7*t32kP*t1*(t2*t2)*t4P*t4+2*t42kP*t6*t3P*t3*t5*(t1*t1)*(t2*t2)*t4+t6*t2P*(t4*t4)
*t4P*t3P-4*t42kP*t5*t3P*t4*t1-t42kP*t6*(t2*t2)*t4*t5*t1P+t6*t2P*(t1*t1)*t42kP*t4*t2-t5
*t5*t1P*(t4*t4)*t4P*t3P+2*t42kP*t6*t6*t3P*t3*(t1*t1)*t2*t4+t5*t5*t12kP*t4P*(t4*t4)*(t3
*t3)-4*t6*t2P*t3*t42kP*t4*t7*t1-t5*t1P*(t2*t2)*t4P*t6*t3P*t4-t5*t1P*(t2*t2)*t4P*t6*t3P
*(t4*t4)-t7*t32kP*t4P*t6*t4*(t1*t1)-4*t7*t32kP*t4P*t5*t4*t1*t2-t7*t32kP*t4P*t5*(t4*t4)-2
*t7*t32kP*t4P*t5*(t4*t4)*t1-2*t7*t32kP*t4P*t5*(t4*t4)*t2-t5*t1P*t4P*t6*t3P*t4-2*t5*t1P
*t4P*t6*t3P*t4*t2-t5*t1P*t4P*t6*t3P*(t4*t4)-4*t7*t32kP*t4P*t5*(t4*t4)*t1*t2-t5*t1P*(t3
*t3)*t42kP*t7*t4+2*t42kP*t6*t3P*k-t42kP*t6*t6*t3P*k*(t2*t2)-2*t6*t2P*(t3*t3)*t42kP*t4*t5
*t1-2*t6*t6*t2P*(t3*t3)*t42kP*t4*t1+t7*t3P*t3*t42kP*t4*t6-t5*t5*t1P*t42kP*t4-t7*t3P*(t1
*t1)*t4*t2P*k*t4P*t6-2*t7*t3P*t1*t4*t2P*k*t4P*t6*t3-t6*t6*t22kP*(t1*t1)*k*t4P-t42kP*t6
*t1*t4*t5*t1P+2*t7*t32kP*(t1*t1)*t4P*t4*t2+4*t42kP*t2*t3P*k*t3*t5-t7*t3P*t3*t2P*k*t4P
*t6*(t1*t1)-2*t7*t3P*t3*t2P*k*t4P*t6*t1-4*t6*t6*t22kP*t1*t3*k*t4P*t4-2*t6*t6*t22kP*t3*k*t4P-4
*t6*t6*t22kP*t1*t3*k*t4P-2*t6*t6*t22kP*(t1*t1)*t3*k*t4P-2*t6*t6*t22kP*t1*(t3*t3)*k*t4P-2
*t7*t3P*t6*t2P*k*t2*t4P*t1*t4+2*t6*t2P*t5*t1P*t4P*t1*t4+2*t42kP*t1*t7*t3P*k*(t2*t2)-2
*t6*t2P*(t3*t3)*t42kP*t4*t7*t1*t2-8*t42kP*t2*t5*t3P*t4*t1-2*t42kP*(t2*t2)*t5*t3P*t4-4*t42kP
*(t2*t2)*t5*t3P*t4*t1-4*t42kP*t2*t5*t3P*t4*t3+2*t7*t32kP*t4P*t4*t2+4*t7*t32kP*t4P*t4*t1
*t2-t6*t2P*(t1*t1)*t3P*t3*t4P*t5*t2*(t4*t4)+t5*t1P*t3P*t3*(t4*t4)*t4P*t1*(t2*t2)+4*t42kP
*t6*t6*t3P*t3*t1*t2*t4+2*t7*t32kP*t4P*t4*t1+t7*t32kP*(t1*t1)*(t2*t2)*t4P*t4-2*t42kP*t5*(t1
*t1)*t3P*t3*t4+t7*t3P*(t2*t2)*t3*t42kP*t4*t5*(t1*t1)-t6*t2P*t42kP*t4*t7+t42kP*(t1*t1)*t6
*t6*t2P*k*t2+t7*t3P*t3*t42kP*t4*t5-2*t42kP*t6*t6*t3P*k*t2-2*t6*t6*t2P*t3*t42kP*t4*t2+2
*t5*t5*t12kP*t3*t4P*t4-2*t6*t6*t2P*(t3*t3)*t42kP*t4*t1*t2+(t4*t4)*(t1*t1)*t4P*t6*t6*t22kP
*(t3*t3)-4*t42kP*t1*t3*t2P*k*t6-4*t42kP*t6*t2*t3P*k*t3*t5*(t1*t1)-t7*t3P*(t2*t2)*t3*t42kP
*t4*(t1*t1)-2*t4P*t6*t4*t3P*t3*t5*t1P*t2*t1-2*t6*t2P*t1*t42kP*t4*t7*t2-2*t6*t2P*(t4*t4)*t4P
*t5*t3P*t1-t6*t2P*(t4*t4)*t4P*t5*t3P+2*t5*t1P*t4*t7*t3P*t4P*t3*t2-2*t5*t5*t1P*t2*(t3
*t3)*t42kP*t4*t1+t6*t6*t22kP*(t3*t3)*t4P*t4*(t1*t1)-2*t6*t6*t2P*t1*t42kP*t4*t2-2*t6*t2P*(t3
*t3)*t42kP*t4*t5*t1*t2-t4P*t6*t4*t3P*t3*t5*t1P*(t2*t2)*t1-2*t6*t6*t2P*t3*t42kP*t4*(t1*t1)-t42kP
*t7*t3P*k*t5*(t2*t2)*t3-2*t42kP*t5*t5*t3P*k*t2*t3-t4P*t6*t4*t3P*t3*t5*t1P*(t2*t2)-2*t42kP
*(t1*t1)*t7*t3P*k*t5*t2*t3-2*t5*t5*t1P*t2*t42kP*t4*t1+t42kP*t6*t6*t2P*k*t2*(t3*t3)-2*t6*t6
*t2P*t4P*t3P*t4*t1-t6*t6*t2P*t4P*t3P*(t4*t4)-2*t6*t6*t2P*t4P*t3P*(t4*t4)*t1-t6*t6*t2P
*t4P*t3P*(t4*t4)*t3-t7*t32kP*(t1*t1)*(t2*t2)*t4P*t5*t4+t5*t1P*(t2*t2)*t4P*t3P*(t4*t4)*t3-t7
*t32kP*(t1*t1)*(t2*t2)*t4P*t5*(t4*t4)-2*t7*t32kP*t1*(t2*t2)*t4P*t5*(t4*t4)+t42kP*t5*t5*t3P
*t4*(t2*t2)+2*t42kP*t5*t5*t3P*t4*(t2*t2)*t1+t42kP*t5*t5*t3P*t4*(t2*t2)*t3+2*t42kP*t5*t5*t3P
*t4*(t2*t2)*t1*t3-2*t6*t2P*t1*t42kP*t4*t5-8*t42kP*t5*t1*t3P*t3*t4*t2-4*t42kP*t5*(t1*t1)*t3P
*t3*t4*t2-2*t5*t5*t1P*t2*t4P*t3P*t4+2*t42kP*t5*t5*(t1*t1)*t2*t3P*t4+t42kP*(t1*t1)*t3P*t4
+2*t5*t1P*t1*(t3*t3)*t4P*(t4*t4)*t6*t2P*t2+2*t7*t3P*t2*t3*t42kP*t4*t6+t7*t3P*(t2*t2)*t3*t42kP
*t4*t6*(t1*t1)-t42kP*(t3*t3)*t5*t1P*k*t1*(t2*t2)+2*t42kP*t7*(t3*t3)*t5*t1P*k*t1*t2-2*t42kP
*t1*(t2*t2)*t3P*k*t3+4*t7*t3P*t1*t2*t42kP*t4*t5+2*t42kP*t5*t3P*k*(t2*t2)-t7*t3P*(t1*t1)*t3
*t42kP*t4-t42kP*t2P*k*t6-2*t42kP*t6*t6*t3P*k*t1*t3-t6*t6*t2P*t4*t3P*t3*t4P*(t1*t1)*t2-t42kP
*t6*t2P*k*t2*(t3*t3)+t6*t2P*t4*t3P*t3*t4P+4*t42kP*t6*t3P*k*t2+2*t42kP*t6*t3P*k*(t2*t2)-4
*t42kP*t6*t2*t4*t5*t1P*t3*t1-t5*t5*t1P*t3P*t3*t4*t4P*t1-2*t5*t5*t1P*t3P*t3*t4*t4P*t2
+t6*t2P*t4*t3P*t3*t4P*t7-t42kP*(t1*t1)*t7*t3P*k*t5*(t2*t2)+2*t7*t3P*(t1*t1)*t2*t42kP*t4
*t5+4*t42kP*t1*(t2*t2)*t3P*k*t3*t5-t6*t2P*(t3*t3)*t42kP*t4*t7*t2*(t1*t1)+t42kP*(t1*t1)*t6*t2P
*k*t2*t5*(t3*t3)+2*t42kP*(t2*t2)*t3*t5*t1P*k*t6+t42kP*(t2*t2)*t5*t5*t1P*k*t1+4*t42kP*t3*t6
*t6*t2P*k*t1+4*t42kP*t1*t3P*k*t3*t6+(t4*t4)*t4P*t6*t6*t22kP-2*t42kP*t1*t7*t3P*k*t5-t42kP
*t6*t6*t3P*k*(t1*t1)+2*t6*t2P*(t3*t3)*t4P*t4*t5*t1P-4*t42kP*t2*t3*t5*t1P*k-2*t6*t2P*t3
*t42kP*t4*t7*(t1*t1)-t6*t2P*(t3*t3)*t42kP*t4*t7*(t1*t1)+2*t7*t3P*t1*(t2*t2)*t42kP*t4*t5-t6
*t6*t2P*t42kP*t4+2*t42kP*t7*t1*t2P*k*t6-2*t7*t3P*t1*t42kP*t4-4*t42kP*t5*t1*t3P*k*t3*t6-t7
*t3P*(t1*t1)*t42kP*t4-4*t7*t3P*t1*t2*t42kP*t4-t42kP*t1P*k*t1*t5-4*t6*t2P*t3*t42kP*t4
*t5*t1+2*t42kP*t7*t2*t1P*k*t5-t42kP*(t1*t1)*t6*t2P*k*t2+2*t42kP*t7*t3*t5*t1P*k*t1-t6*t6*t2P
*t2*t4P*t3P*t4+2*t42kP*t3P*t3*t1*t4-t4P*t6*(t4*t4)*t3P*t3*t5*t1P*(t2*t2)*t1-t7*t32kP
*t4P*t6*t4-t7*t32kP*(t2*t2)*t4P*t6*t4-2*t7*t32kP*(t2*t2)*t4P*t6*t4*t1-t7*t32kP*(t2*t2)*t4P
*t6*(t4*t4)-t42kP*t5*t5*(t1*t1)*t3P*k-t5*t5*t1P*(t2*t2)*t42kP*t4*t1-2*t42kP*t1*t6*t2P*k*t2
+2*t42kP*t5*t2P*k*t6*(t1*t1)*t3+4*t42kP*t5*t3P*k*t2+2*t42kP*t6*t6*t2P*k*t2*t3-t6*t2P*t4
*t3P*t3*t4P*t5-t6*t2P*(t1*t1)*t42kP*t4*t5*t2-t6*t2P*t2*t42kP*t4*t7-2*t6*t6*t2P*t3*t42kP
*t4-t6*t2P*(t1*t1)*t42kP*t4*t7*t2+t7*t3P*t4P*t5*t1P*t4-t4P*t3*t4*t6*t2P*k*t7*t3P-t7*t3P
*(t1*t1)*t2P*k*t4P*t6-t42kP*t6*t2P*k*t2-2*t42kP*t1*t3P*k-t42kP*(t2*t2)*(t3*t3)*t5*t1P
*k+2*t5*t5*t12kP*(t2*t2)*t3*t4P*t4+2*t7*t3P*t1*t3*t42kP*t4*t5-2*t42kP*t5*t5*t1*t3P*k-2*t6
*t6*t2P*(t4*t4)*t3P*t3*t4P*t1-t6*t6*t2P*(t4*t4)*t3P*t3*t4P*(t1*t1)-2*t42kP*(t1*t1)*t6*t3P
*t4*t3+2*t42kP*t5*(t2*t2)*t6*t3P*t4-2*t4P*t6*t6*t3P*t3*t2P*t1*t2*(t4*t4)-4*t42kP*(t1*t1)
*t6*t3P*t4*t2+2*t5*t5*t12kP*t2*(t3*t3)*t4P*t4-t4P*t4*t5*t1P*k*t1*t7*t3P-2*t5*t5*t12kP*t2
*t4*k*t4P*(t3*t3)-t5*t5*t12kP*(t2*t2)*t4*k*t4P-4*t5*t5*t12kP*t2*t4*k*t4P*t3-2*t6*t2P*(t3
*t3)*t1P*k*t4P*t5-t5*t5*t12kP*(t2*t2)*t4*k*t4P*(t3*t3)-t4P*t5*t1P*k*t7*t3P*(t2*t2)-2*t5
*t5*t12kP*(t2*t2)*t4*k*t4P*t3-2*t5*t5*t12kP*k*t4P*t3-2*t5*t5*t12kP*k*t4P*t2-t5*t5*t12kP
*k*t4P*(t2*t2)-t5*t5*t12kP*k*t4P*(t3*t3)-t5*t5*t12kP*k*t4P*t4-2*t4P*t2*(t3*t3)*t5*t1P*k
*t6*t2P-4*t4P*t2*t3*t5*t1P*k*t6*t2P*t4-4*t4P*t2*t3*t5*t1P*k*t6*t2P-2*t4P*t2*t3*t5*t1P
*k*t7*t3P-2*t4P*t4*t5*t1P*k*t1*t7*t3P*t2-2*t4P*t3*t5*t1P*k*t1*t7*t3P*t2-2*t5*t5*t12kP
*k*t4P*t3*t4-2*t5*t5*t12kP*k*t4P*(t2*t2)*t3-t4P*(t2*t2)*t5*t1P*k*t1*t7*t3P-t5*t5*t12kP
*k*t4P*(t2*t2)*(t3*t3)-4*t5*t5*t12kP*k*t4P*t2*t3+t5*t5*t12kP*(t2*t2)*t4P*(t4*t4)*(t3*t3)-t5
*t5*t1P*(t3*t3)*t42kP*t4*t1-2*t42kP*t1*t3P*k*(t2*t2)-4*t42kP*t3*t5*t1P*k*t1*t2-2*t42kP
*(t1*t1)*t6*t2P*k*t2*t3-2*t42kP*t1*t3P*k*t3+(t4*t4)*t4P*t6*t6*t22kP*(t3*t3)+2*t7*t3P*(t2
*t2)*t3*t42kP*t4*t5*t1+t42kP*t5*t2P*k*t6*(t1*t1)+2*t42kP*t6*(t2*t2)*t3P*k*t3-4*t6*t2P*t3
*t42kP*t4*t7*t1*t2+t42kP*t5*t2P*k*t6*(t1*t1)*(t3*t3)-2*t6*t2P*t3*t42kP*t4*t5*t2*(t1*t1)+4*t42kP
*t6*t3P*k*(t1*t1)*t2+t42kP*t6*t6*t2P*k-4*t42kP*t6*t1*t2*t7*t3P*k*t3-4*t42kP*t1*t7*t3P*k
*t5*t2-2*t42kP*t1*t7*t3P*k*t5*(t2*t2)+2*t42kP*t1*t7*t3P*k*t3+t42kP*t5*t1P*k*t7-2*t6*t2P
*t3*t42kP*t4*t7-4*t42kP*t5*t5*t1*t3P*k*t3*t2+t42kP*t6*t6*t2P*k*(t1*t1)+4*t5*t5*t12kP*t2*t4P
*(t4*t4)*t3+t5*t1P*t4P*t3P*t4-t6*t6*t2P*t2*t4P*t3P*t4*(t1*t1)-t6*t6*t2P*(t1*t1)*t2*(t4
*t4)*t4P*t3P+2*t42kP*(t3*t3)*t5*t5*t1P*k*t1*t2+2*t42kP*t6*t3P*k*(t1*t1)-t42kP*t5*t1P
*k*(t2*t2)+t42kP*t6*t2P*k*t2*t7*(t3*t3)+t42kP*t5*t1P*k*t7*t1+2*t6*t2P*(t3*t3)*t42kP*t4*t1
+2*t6*t2P*t2*t4*t1P*t1*t4P*t5+t42kP*(t2*t2)*t5*t1P*k*t1*t7-2*t42kP*t5*t5*(t1*t1)*t3P*k
*t2+2*t7*t3P*t1*(t2*t2)*t42kP*t4*t6+2*t42kP*t6*t3P*k*t3+t42kP*(t1*t1)*t7*t3P*k+t6*t6*t22kP
*t4P*t4+4*t42kP*t6*t3P*k*t1-2*t7*t3P*t2*t3*t42kP*t4+t6*t2P*t2*t4P*t3P*t4-t6*t2P*(t1
*t1)*t2*t4P*t5*t3P*t4+t6*t2P*t2*t4P*t3P*(t4*t4)-4*t42kP*t6*(t2*t2)*t3P*k*t3*t5*t1+t42kP
*t5*t2P*k*t6+t5*t1P*t3P*t3*t4*t4P+t5*t1P*t3P*t3*t4*t4P*(t2*t2)+2*t7*t3P*t4P*t5*t1P
*t4*t2-4*t42kP*t6*t3P*t4*t1*t3-4*t42kP*t6*t3P*t4*t2*t3-8*t42kP*t6*t3P*t4*t1*t2*t3-4*t42kP
*t6*t3P*t4*t2-8*t42kP*t6*t3P*t4*t1*t2-2*t42kP*t6*t3P*t4*t3-4*t42kP*t6*t3P*t4*t1-t7*t3P
*(t2*t2)*t3*t42kP*t4+2*t42kP*(t1*t1)*(t2*t2)*t3P*k*t3*t6+t42kP*t7*t3P*k-2*t42kP*t7*t3P
*k*t6*t2*t3-2*t42kP*t1*t7*t3P*k*t6-2*t42kP*t2*t5*t1P*k*t1-2*t42kP*(t1*t1)*t3*t2P*k*t6+t42kP
*(t1*t1)*t6*t6*t2P*k*t2*(t3*t3)-2*t42kP*(t1*t1)*t3P*k*t2+t42kP*(t3*t3)*t6*t6*t2P*k*(t1*t1)-8
*t42kP*t5*t1*t3P*k*t6*t2-2*t42kP*t7*t4*t5*t1P*(t2*t2)*t3+2*t6*t2P*t4P*t2*t5*t1P*t4-2*t4P
*t2*t5*t1P*k*t1*t6*t2P-2*t4P*t2*t5*t1P*k*t1*t7*t3P+2*t42kP*t5*t1P*k*t6*t3+t42kP*t6*t6
*(t1*t1)*(t2*t2)*t3P*t4-2*t42kP*t5*(t1*t1)*t3P*t3*(t2*t2)*t4+2*t42kP*t6*t6*t1*(t2*t2)*t3P*t4
*t3+2*t42kP*t5*(t2*t2)*t6*t3P*t4*t3+2*t42kP*t5*t2P*k*t6*t3+4*t5*t1P*t2*t42kP*t4*t1*t3+t7
*t3P*(t2*t2)*t3*t4*t1P*t1*t4P*t5+t42kP*t5*t1P*k*t6*t1-2*t42kP*t1*t7*t3P*k*t5*(t2*t2)*t3-2
*t5*t1P*t1*t2*t3P*k*t4P*t4+t5*t5*t1P*t4*t3P*k*t4P*t1*(t2*t2)*t3+t5*t1P*t1*(t2*t2)*t3P
*k*t4P*t6*t4-t4P*t1*t3P*k*t3*t5*t1P-t4P*t1*t3P*k*t3*t5*t1P*t4+t5*t5*t1P*t1*(t2*t2)*t3P
*k*t4P*t4-2*t4P*t1*t3P*k*t6*t2P*t3+t4P*t6*t1*(t2*t2)*t3P*k*t3*t5*t1P*t4-t6*t2P*t2*t4
*t3P*k*t3*t4P*(t1*t1)-t4P*t3P*k*t6*t2P+t4P*t6*t3P*k*t5*t1P*(t2*t2)-t4P*(t1*t1)*t3P
*k*t6*t2P*t3-2*t4P*t1*t3P*k*t6*t2P*t3*t4+t4P*t5*t5*t1*t3P*k*t1P*t4+t6*t6*t2P*t2*t4*t3P
*k*t3*t4P+t6*t2P*t2*t4*t3P*k*t3*t4P*t5+t4P*t6*t3P*k*t5*t1P*t4*t1+t4P*t6*t3P*k*t5*t1P
*t3*t1+2*t7*t32kP*k*t4P*t5*t1*t4-2*t4P*t1*t3P*k*t6*t2P*t3*t2+2*t5*t5*t1P*t4*t3P*k*t4P
*t1*t2*t3+t4P*t6*t3P*k*t5*t1P*(t2*t2)*t4+2*t6*t2P*t4*t3P*k*t4P*t5*t1*t2+t4P*t5*(t1*t1)
*t3P*k*t6*t2P*t2+t5*t5*t1P*(t2*t2)*t3P*k*t3*t4P-2*t5*t1P*t2*t3P*k*t3*t4P+t4P*t6*t6
*t3P*k*t2P*(t1*t1)*t2+t4P*t6*t3P*k*t5*t1P*t1+t4P*t6*t6*t3P*k*t2P*(t1*t1)+t4P*t6*t6
*t2*t3P*k*t2P*t3-t5*t1P*t42kP*t7*t4*t1+2*t6*t2P*t4*t3P*t3*t4P*t1-2*t6*t2P*t4*t3P*t3
*t4P*t5*t1+t42kP*t5*t5*t1P*k*(t3*t3)+t42kP*t7*t3P*k*t3+t5*t5*t12kP*(t3*t3)*t4P*t4-4*t42kP
*t1*t7*t3P*k*t5*t2*t3+2*t42kP*t2*(t3*t3)*t5*t1P*k*t7+t42kP*t5*t2P*k*t6*(t3*t3)-2*t42kP*t6
*(t2*t2)*t3P*k*t3*t5+4*t42kP*t5*(t1*t1)*t3P*k*t2-2*t42kP*t6*(t1*t1)*t2*t7*t3P*k*t3+4*t42kP
*t1*t6*t6*t2P*k*t2*t3-2*t7*t3P*(t2*t2)*t3*t42kP*t4*t1+2*t42kP*t7*t3P*k*t2*t3+t42kP*(t3*t3)
*t5*t5*t1P*k*t1-2*t42kP*(t2*t2)*t6*t3P*t4-4*t42kP*(t2*t2)*t6*t3P*t4*t1-2*t42kP*(t2*t2)*t6
*t3P*t4*t3+2*t7*t32kP*t1*(t2*t2)*(t4*t4)*t4P-t5*t5*t1P*t1*t4P*t3P*t4-2*t5*t5*t1P*t1*t4P
*t3P*t4*t2-t5*t5*t1P*t1*t4P*t3P*(t4*t4)-t4P*t6*(t4*t4)*t3P*t3*t5*t1P-2*t4P*t6*(t4*t4)
*t3P*t3*t5*t1P*t2-2*t5*t1P*t1*t2*(t4*t4)*t4P*t6*t3P+t6*t2P*t4P*t4*t7*t3P+2*t6*t2P*t4P
*t4*t5*t1P+2*t7*t3P*t2*t42kP*t4*t6+t42kP*t1*(t2*t2)*t4*t5*t1P*(t3*t3)+4*t7*t3P*t2*t3*t42kP
*t4*t6*t1+t5*t1P*t42kP*t4*t1+2*t7*t32kP*t4P*(t4*t4)*t2-2*t6*t2P*t1*t42kP*t4*t7+4*t6*t2P
*t3*t4P*t4*t5*t1P+4*(t4*t4)*t1*t4P*t6*t6*t22kP*t3-t5*t1P*(t3*t3)*t42kP*t6*t4-t5*t1P*t1
*(t2*t2)*(t4*t4)*t4P*t6*t3P+2*t5*t1P*(t4*t4)*t4P*t3P*t2-t6*t2P*(t4*t4)*t4P*t5*t3P*t3-2
*t6*t2P*(t4*t4)*t4P*t5*t3P*t1*t3-2*t5*t1P*t1*t4P*t6*t3P*t4*t2-t5*t1P*t1*t4P*t6*t3P
*t4+2*t6*t2P*t1*t4P*t4*t7*t3P-t5*t1P*t42kP*t7*t4+2*t42kP*(t1*t1)*t2*t3P*t4+2*t42kP*t1
*(t2*t2)*t3P*t4+t42kP*(t1*t1)*(t2*t2)*t3P*t4+t6*t2P*t4P*t3P*t4-t6*t6*t2P*(t1*t1)*t4P
*t3P*t4-4*t42kP*t5*t1*t3P*t3*t4-2*t5*t5*t1P*t2*t4P*t3P*(t4*t4)-t5*t5*t1P*(t2*t2)*t4P
*t3P*t4-2*t6*t2P*(t4*t4)*t3P*t3*t4P*t5*t1*t2+t42kP*t3P*t3*(t1*t1)*t4+t42kP*t6*t6*t3P
*t4*(t2*t2)+2*t6*t2P*t3*t42kP*t4*(t1*t1)*t2-t6*t6*t2P*t4*t3P*t3*t4P+t42kP*(t1*t1)*t7*t3P
*k*(t2*t2)*t3-t6*t2P*t4*t3P*t3*t4P*t5*(t1*t1)+2*t42kP*t5*t3P*k-2*t42kP*t5*(t1*t1)*t3P*k
*t6-2*t42kP*t5*t5*t1*t3P*k*t3*(t2*t2)+2*t6*t2P*(t3*t3)*t5*t1P*t4P*t1*t4+t7*t3P*(t2*t2)*t5
*t1P*t4P*t1*t4-2*t42kP*t2P*k*t6*t1+4*t42kP*t6*t3P*k*t1*(t2*t2)+2*t5*t5*t12kP*(t2*t2)*t4P
*(t4*t4)*t3-t6*t2P*t42kP*t4*t5-2*t5*t5*t1P*t3*t42kP*t4*t1+2*t42kP*t7*(t1*t1)*t2P*k*t6*t3
+2*t42kP*t1*t7*t3P*k-t42kP*t7*t3P*k*t5*t3-2*t42kP*(t3*t3)*t5*t1P*k*t1*t2+2*t42kP*t6*t6
*t2P*k*t1+t42kP*(t2*t2)*(t3*t3)*t5*t5*t1P*k-4*t6*t6*t2P*t3*t42kP*t4*t1*t2-t42kP*t3P*k*(t2
*t2)-t42kP*t6*(t1*t1)*(t2*t2)*t7*t3P*k*t3-2*t42kP*t1*(t3*t3)*t2P*k*t6-t42kP*t7*t4*t5*t1P
*(t2*t2)-2*t42kP*t6*t2P*k*t2*t3+t42kP*t7*t3P*k*(t2*t2)+2*t42kP*t2*t5*t1P*k*t1*t7-t42kP
*t6*t6*(t2*t2)*t3P*k*t3*(t1*t1)+4*t42kP*t5*t1*t3P*k+2*t42kP*t6*t2P*k*t2*t5*t3-4*t42kP*t1
*t7*t3P*k*t6*t2-2*t42kP*t7*t3P*k*t5*t2-t42kP*t5*t5*t3P*k+2*t6*t2P*t1*t42kP*t4*t2+2*t42kP
*t5*(t1*t1)*t6*t3P*t4*(t2*t2)+4*t42kP*t5*t1*t6*t3P*t4*(t2*t2)*t3-t6*t6*t2P*t4P*t3P*(t4*t4)
*(t1*t1)-2*t5*t5*t1P*t1*t2*(t4*t4)*t4P*t3P*t3-2*t5*t1P*t3*t42kP*t6*t4*t1+2*t7*t3P*t3*t4P
*(t4*t4)*t5*t1P*t2+t7*t3P*t3*t4P*(t4*t4)*t5*t1P+t7*t3P*t3*t4P*(t4*t4)*t6*t2P+2*t6*t2P
*t1*t2*t3*t4P*(t4*t4)*t7*t3P-t5*t5*t1P*t1*(t2*t2)*(t4*t4)*t4P*t3P-2*t5*t5*t1P*t1*t2*(t4*t4)
*t4P*t3P-4*t42kP*t2*t5*t3P*t4+4*t42kP*t5*t1*t6*t3P*t4*(t2*t2)+t42kP*t6*t6*t3P*t4*(t1
*t1)+t42kP*t6*t6*t3P*t4*(t1*t1)*t3+2*t5*t1P*t3*t42kP*t4+t7*t3P*t3*t4P*(t4*t4)*t6*t2P*t2
+t7*t3P*t3*t4P*(t4*t4)*t5*t1P*(t2*t2)+t5*t1P*(t3*t3)*t42kP*t4*t1+2*t5*t1P*t3*t42kP*t4*t1
+t5*t1P*(t3*t3)*t42kP*t4+2*t5*t1P*(t3*t3)*t42kP*t4*t2+t2*(t4*t4)*t4P*t7*t3P*t6*t2P*(t1
*t1)+2*t42kP*(t1*t1)*(t2*t2)*t3P*k*t3*t5-t42kP*t5*t5*(t1*t1)*t3P*k*t3*(t2*t2)+4*t42kP*t2*t3
*t5*t5*t1P*k+2*t42kP*(t2*t2)*t3*t5*t5*t1P*k-t6*t2P*t2*t4P*t5*t3P*(t4*t4)*t3+4*t42kP*t1
*t2*t3P*t4*t3+2*t42kP*(t1*t1)*t2*t3P*t4*t3-4*t42kP*(t1*t1)*t6*t3P*t4*t2*t3+2*t42kP*t5*(t1
*t1)*t3P*k*t3-2*t42kP*t6*t1*(t2*t2)*t7*t3P*k*t3+t6*t2P*t42kP*t4-t42kP*t7*t3P*k*t5-t5*t5
*t1P*t3P*t3*t4*t4P*(t2*t2)-2*t42kP*t6*t6*t3P*k*t1+2*t42kP*t5*t2P*k*t6*t1*(t3*t3)+2*t42kP
*t3*t6*t2P*k*t7-t42kP*(t1*t1)*t6*t2P*k*t2*(t3*t3)-t42kP*t5*t1P*k*(t3*t3)-t42kP*t6*t6*t3P
*k*(t1*t1)*(t2*t2)+2*t7*t3P*t1*t42kP*t4*t6+t6*t2P*(t1*t1)*t2*t3*t4P*(t4*t4)*t7*t3P+2*t5*t1P
*t2*t4P*(t4*t4)*t6*t2P+2*t5*t1P*t2*t4P*(t4*t4)*t7*t3P+4*t7*t3P*t2*t3*t42kP*t4*t5*t1+2*t7
*t3P*t3*t4P*(t4*t4)*t6*t2P*t1-4*t42kP*t6*t2*t4*t5*t1P*t3+2*t7*t3P*(t1*t1)*t2*t42kP*t4*t6
+t5*t5*t12kP*t4P*(t4*t4)-2*t5*t5*t1P*t2*(t3*t3)*t42kP*t4+2*t5*t1P*t4P*(t4*t4)*t6*t2P*t1
+4*t5*t1P*t4P*(t4*t4)*t6*t2P*t3+2*t5*t1P*t4P*(t4*t4)*t6*t2P+t5*t1P*t4P*(t4*t4)*t7*t3P
+t5*t1P*t4P*(t4*t4)*t7*t3P*t1+2*t5*t1P*t4P*(t4*t4)*t6*t2P*(t3*t3)+t7*t3P*(t2*t2)*t4P
*t5*t1P*t4-t5*t1P*(t3*t3)*t42kP*t6*t4*t1+t5*t1P*(t2*t2)*t4P*(t4*t4)*t7*t3P*t1+2*t6*t6*t22kP
*t3*t4P*t4-2*t42kP*t6*(t2*t2)*t4*t5*t1P*t3*t1+2*t5*t1P*t1*t3*t4P*(t4*t4)*t7*t3P*t2+t5*t1P
*(t2*t2)*t42kP*t4*t1+t7*t3P*t3*t4P*(t4*t4)*t6*t2P*(t1*t1)+t5*t1P*t42kP*t4-4*t5*t5*t1P*t2
*t3*t42kP*t4+t5*t1P*t1*t3*t4P*(t4*t4)*t7*t3P*(t2*t2)+4*t5*t1P*t1*t3*t4P*(t4*t4)*t6*t2P
*t2-2*t5*t1P*t3*t42kP*t6*t4-2*t6*t2P*t3*t42kP*t4*t5*t2+4*t6*t2P*t3*t42kP*t4*t1*t2+2*t5*t1P
*t2*t4P*(t4*t4)*t7*t3P*t1+t5*t1P*(t2*t2)*t4P*(t4*t4)*t7*t3P+2*t5*t1P*t2*t4P*(t4*t4)*t6
*t2P*(t3*t3)-t6*t6*t2P*(t3*t3)*t42kP*t4*(t1*t1)+2*t5*t1P*t2*t42kP*t4*t1+2*t5*t1P*(t2*t2)
*t42kP*t4*t3+2*t2*(t4*t4)*t4P*t7*t3P*t6*t2P*t1+t5*t1P*(t2*t2)*t42kP*t4+2*t42kP*t2*t3P
*t4+t42kP*t6*t6*t3P*t4+t6*t2P*(t4*t4)*t4P*t3P*t3-2*t5*t1P*t2*(t4*t4)*t4P*t6*t3P+t5*t1P
*t1*(t2*t2)*t4P*t3P*t4+2*t5*t1P*t1*t2*t4P*t3P*(t4*t4)+t5*t1P*t1*(t2*t2)*t4P*t3P*(t4*t4)-t6
*t2P*(t3*t3)*t42kP*t4*t5*t2+2*t6*t2P*t2*t4P*t3P*t4*t1-4*t42kP*t6*t3P*t4*t1*(t2*t2)*t3+2
*t6*t2P*t2*t4P*t3P*(t4*t4)*t1+t6*t2P*t2*t4P*t3P*(t4*t4)*t3+2*t6*t2P*t2*t4P*t3P*(t4
*t4)*t1*t3+t6*t2P*t2*t4P*t3P*t4*(t1*t1)+t6*t2P*t2*t4P*t3P*(t4*t4)*(t1*t1)+t42kP*t6*t6*t3P
*t3*(t1*t1)*(t2*t2)*t4-4*t7*t3P*t2*t3*t42kP*t4*t1+2*t5*t1P*t2*t4P*(t4*t4)*t6*t2P*t1+4*t5*t1P
*t2*t4P*(t4*t4)*t6*t2P*t3+2*t5*t1P*t1*(t3*t3)*t4P*(t4*t4)*t6*t2P+2*t42kP*t1*t2*t4*t5*t1P
*(t3*t3)+t2*(t4*t4)*t4P*t7*t3P*t6*t2P+4*t5*t1P*t1*t3*t4P*(t4*t4)*t6*t2P+t5*t1P*t1*t3*t4P
*(t4*t4)*t7*t3P+(t4*t4)*t4P*t7*t3P*t6*t2P+4*t5*t1P*t2*t42kP*t4*t3-2*t6*t2P*t3*t42kP*t4
*t7*t2-2*t6*t2P*t3*t42kP*t4*t7*t2*(t1*t1)+t6*t2P*(t1*t1)*t4P*t4*t7*t3P+2*t42kP*t6*t6*t3P
*t4*t2+(t4*t4)*(t1*t1)*t4P*t6*t6*t22kP+2*t6*t2P*t1*(t4*t4)*t4P*t3P+2*t6*t2P*t1*(t4*t4)*t4P
*t3P*t3-t5*t5*t1P*(t2*t2)*t4P*t3P*(t4*t4)*t3+2*t42kP*t6*t6*(t1*t1)*t2*t3P*t4+t42kP*t5*t5
*(t1*t1)*(t2*t2)*t3P*t4+2*t42kP*t5*t5*(t1*t1)*t2*t3P*t4*t3+t42kP*t5*t5*(t1*t1)*(t2*t2)*t3P
*t4*t3+t7*t32kP*(t1*t1)*(t2*t2)*(t4*t4)*t4P+t5*t1P*t3P*t3*t4*t4P*t1-t42kP*t6*t6*t3P*k*(t1
*t1)*t3+t42kP*t6*t2P*k*t2*t7+4*t42kP*t5*t1*t3P*k*t3-t42kP*t5*t1P*k+t42kP*(t1*t1)*t7*t3P
*k*(t2*t2)+2*t5*t1P*(t3*t3)*t4*t2P*t2*t4P*t6+2*t42kP*t3*t5*t5*t1P*k*t1*(t2*t2)-t4P*t6*t4
*t3P*t3*t5*t1P*t1-t42kP*t7*t3P*k*t6*(t2*t2)*t3-4*t42kP*t6*t6*t2*t3P*k*t3*t1+2*t42kP*t6
*t3P*k*(t1*t1)*(t2*t2)+2*t5*t5*t12kP*t2*t4P*(t4*t4)-t6*t2P*(t3*t3)*t42kP*t4*t7-2*t7*t3P*t2
*t42kP*t4-2*t42kP*t6*t6*t2*t3P*k*t3+2*t42kP*t1*t7*t3P*k*(t2*t2)*t3+2*t6*t2P*t3*t42kP*t4
*t2-t42kP*t7*t3P*k*t6+t42kP*t6*t2P*k*t2*t5*(t3*t3)+2*t7*t3P*t1*t42kP*t4*t5-t42kP*t7*t4
*t5*t1P*(t2*t2)*(t3*t3)+2*t42kP*t5*t1P*k*t7*t3+t42kP*(t3*t3)*t6*t6*t2P*k+t42kP*t5*t5*t1P
*k-t42kP*(t1*t1)*t3P*k*t3-t6*t6*t2P*t4*t3P*t3*t4P*(t1*t1)+t6*t2P*t4*t3P*t3*t4P*t7*(t1
*t1)+2*t7*t3P*t2*t42kP*t4*t5-2*t42kP*t6*t6*t3P*k*(t1*t1)*t2+2*t42kP*t1*t6*t2P*k*t2*t7*(t3
*t3)-2*t42kP*t5*t5*t1*t3P*k*t3+4*t42kP*t1*t6*t2P*k*t2*t5*t3+4*t42kP*(t1*t1)*t2*t3P*k*t3*t5
+2*t42kP*t5*t1P*k*t6*t2+2*t42kP*t3*t5*t5*t1P*k*t1+2*t7*t3P*t4*t2P*t2*t4P*t6*t1+4*t5*t1P
*t3*t4*t2P*t2*t4P*t6+t6*t2P*(t3*t3)*t42kP*t4*t2-2*t42kP*(t1*t1)*t7*t3P*k*t6*t2+4*t42kP
*t1*t7*t3P*k*t2+t5*t5*t12kP*t4P*t4-t42kP*(t3*t3)*t5*t1P*k*t1+2*t42kP*t1*t6*t2P*k*t2*t5-2
*t6*t6*t2P*t3*t42kP*t4*t2*(t1*t1)-t6*t6*t2P*(t3*t3)*t42kP*t4*t2*(t1*t1)+t42kP*(t1*t1)*t6*t2P
*k*t2*t7*(t3*t3)+t42kP*(t1*t1)*t6*t2P*k*t2*t7+4*t42kP*t7*t3*t5*t1P*k*t1*t2+2*t7*t3P*t1*t3*t42kP
*t4*t6-4*t42kP*t1*t6*t2P*k*t2*t3+t42kP*(t2*t2)*t4*t5*t1P*(t3*t3)-t42kP*t7*t3P*k*t6*(t2*t2)
+4*t6*t6*t22kP*t3*t4P*t4*t1+2*t6*t2P*(t3*t3)*t4*t1P*t1*t4P*t5*t2+2*t42kP*t2*t5*t5*t1P*k
*t1+2*t6*t6*t22kP*(t3*t3)*t4P*t4*t1+t42kP*t6*t6*t2P*k*t2-4*t42kP*t6*t2*t3P*k*t3*t5-2*t42kP
*(t2*t2)*t3*t5*t1P*k+4*t5*t5*t12kP*t2*t3*t4P*t4+t42kP*(t3*t3)*t5*t5*t1P*k*t1*(t2*t2)+8*t42kP
*t5*t1*t3P*k*t2+2*(t4*t4)*t1*t4P*t6*t6*t22kP*(t3*t3)-2*t42kP*t7*t3P*k*t6*t2-2*t6*t6*t2P*t1
*t42kP*t4+t6*t2P*(t3*t3)*t42kP*t4*(t1*t1)+t42kP*(t1*t1)*t7*t3P*k*t3-2*t5*t5*t1P*t3*t42kP
*t4-4*t5*t5*t1P*t2*t3*t42kP*t4*t1+2*t42kP*(t2*t2)*t3P*k*t3*t5-2*t6*t2P*t3*t42kP*t4*t5*(t1
*t1)-t42kP*t7*t3P*k*t5*(t2*t2)+t42kP*(t3*t3)*t5*t1P*k*t1*t6+t7*t3P*(t1*t1)*t42kP*t4*t5+t42kP
*t7*(t1*t1)*t2P*k*t6*(t3*t3)+2*t5*t5*t12kP*t2*t4P*(t4*t4)*(t3*t3)-t5*t5*t1P*t3P*t3*t4*t4P-2
*t42kP*t6*t3P*k*t5+t7*t3P*t4*t2P*t2*t4P*t6*t3+2*(t4*t4)*t4P*t6*t6*t22kP*t3-t42kP*(t2
*t2)*t5*t1P*k*t1+t42kP*(t3*t3)*t5*t1P*k*t1*t6*(t2*t2)-t7*t3P*t3*t42kP*t4+2*t7*t3P*t2*t3*t42kP
*t4*t5*(t1*t1)-t42kP*(t1*t1)*t7*t3P*k*t6-t42kP*t5*t5*(t1*t1)*t3P*k*t3+t5*t1P*(t4*t4)*t4P
*t3P-t5*t5*t1P*(t2*t2)*t4P*t3P*(t4*t4)+2*t42kP*t6*t6*t3P*t4*t1-2*t6*t6*t2P*t2*t4P*t3P
*t4*t1-t6*t6*t2P*t2*t4P*t3P*(t4*t4)-2*t6*t6*t2P*t2*t4P*t3P*(t4*t4)*t1-t6*t6*t2P*t2*t4P
*t3P*(t4*t4)*t3+t6*t2P*(t1*t1)*(t4*t4)*t4P*t3P*t3-t7*t3P*(t1*t1)*(t2*t2)*t42kP*t4-2*t7*t32kP
*(t1*t1)*t2*t4P*t6*t4-t7*t32kP*(t1*t1)*(t2*t2)*t4P*t6*(t4*t4)-2*t7*t32kP*(t1*t1)*t2*t4P*t6
*(t4*t4)-t7*t32kP*(t1*t1)*(t2*t2)*t4P*t6*t4-t6*t2P*t2*t4P*t5*t3P*t4-2*t42kP*(t1*t1)*t5*t3P
*t4-4*t6*t6*t2P*t3*t42kP*t4*t1-2*t5*t5*t1P*t2*t42kP*t4+t7*t32kP*(t2*t2)*t4P*t4+t7*t32kP
*(t1*t1)*t4P*t4-t5*t5*t1P*t4P*t3P*t4+2*t5*t1P*t1*t2*t4P*t3P*t4+4*t42kP*t6*t6*t3P*t4
*t1*t2-t7*t32kP*t4P*t5*t4*(t1*t1)-t4P*t6*(t4*t4)*t3P*t3*t5*t1P*t1-2*t42kP*(t1*t1)*t6*t3P
*t4-t7*t32kP*t4P*t6*(t4*t4)*(t1*t1)+2*t42kP*t5*t6*t3P*t4+4*t42kP*t5*t6*t3P*t4*t2+2*t42kP
*t5*t6*t3P*t4*t3+4*t42kP*t5*t6*t3P*t4*t2*t3-t6*t2P*t4P*t5*t3P*t4-2*t6*t2P*t4P*t5*t3P
*t4*t1-2*t7*t32kP*t4P*t5*t4*t1-2*t7*t32kP*t4P*t5*t4*t2-2*t42kP*t3P*t3*t5*(t2*t2)*t4-t5*t1P
*(t3*t3)*(t2*t2)*t42kP*t6*t4*t1-2*t5*t1P*(t3*t3)*t2*t42kP*t6*t4*t1-2*t42kP*t6*t2*t4*t5*t1P
*t1-t5*t1P*(t3*t3)*(t2*t2)*t42kP*t6*t4-2*t42kP*t6*(t2*t2)*t4*t5*t1P*t3-2*t5*t1P*(t3*t3)*t2
*t42kP*t6*t4-2*t42kP*t7*t4*t5*t1P*(t2*t2)*t3*t1-2*t42kP*t6*t2*t4*t5*t1P+t7*t3P*(t1*t1)*t3
*t42kP*t4*t5+2*t6*t2P*(t3*t3)*t42kP*t4*t1*t2+t6*t6*t22kP*(t3*t3)*t4P*t4+2*t5*t1P*t1*t2*t4P
*t3P*(t4*t4)*t3+t42kP*t6*t6*t3P*t4*t3+2*t42kP*t6*t6*t3P*t4*t1*t3+2*t42kP*t6*t6*t3P*t4*t2
*t3-t6*t2P*(t1*t1)*(t4*t4)*t4P*t5*t3P+4*t42kP*t5*t1*t6*t3P*t4+2*t42kP*t5*(t1*t1)*t6*t3P
*t4+8*t42kP*t5*t1*t6*t3P*t4*t2+4*t42kP*t5*(t1*t1)*t6*t3P*t4*t2+4*t42kP*t5*t1*t6*t3P*t4*t3
+2*t42kP*t5*(t1*t1)*t6*t3P*t4*t3+8*t42kP*t5*t1*t6*t3P*t4*t2*t3+4*t42kP*t5*(t1*t1)*t6*t3P
*t4*t2*t3+t5*t1P*t3P*t3*t4P*t1*(t4*t4)+t7*t32kP*(t2*t2)*(t4*t4)*t4P-2*t7*t3P*(t1*t1)*t2*t42kP
*t4-t6*t2P*(t1*t1)*t3P*t3*t4P*t5*(t4*t4)-t7*t32kP*t4P*t5*t4+2*t42kP*t2*t3P*t4*t3+t42kP
*(t2*t2)*t3P*t4*t3+t6*t2P*(t4*t4)*t3P*t3*t4P*(t1*t1)*t2-2*t6*t2P*t2*t4P*t5*t3P*t4*t1-t6
*t2P*t2*t4P*t5*t3P*(t4*t4)-2*t6*t2P*t2*t4P*t5*t3P*(t4*t4)*t1+4*t42kP*t1*t2*t3P*t4-4*t42kP
*(t1*t1)*t5*t3P*t4*t2-t6*t2P*(t3*t3)*t42kP*t4*t5*(t1*t1)-t5*t5*t1P*t1*t42kP*t4-2*t7*t3P*t1
*(t2*t2)*t42kP*t4)
if (k > 0) test <- abs(A47/a[4,7])
a[4,7] <- a[4,7] + A27
k <- k+1
}
if (k == maximumIteration) {
return(list("flag"=1))
break
}
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.