R/SEFourMixedExpA3.R

Defines functions SEFourMixedExpA3

SEFourMixedExpA3 <- function(t1, t2, t3, t4, t5, t6, t7, a, sHatSubset) {
   Criteria <- 0.0000000000000001
  
   maxIter <- 100000
   test <- 100.0
   k <- 0
  
   t33P <- pow(t3,3)
   t34P <- pow(t3,4)
   t3aP <- pow((1+t3),(-3))
   t3bP <- pow(t3,(-2))
  
  ##A33
  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))
     t33kP <- pow((t3/(1+t3)),(3*k))
    
     A33 <- t3aP*t3bP*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)*t7*(-4*(t2*t2)*t34P*t7*t7*t3P*t42kP*t1+4*t34P*(t1*t1)*t7*t3P
                                                                      *t42kP+8*t33P*t3P*t42kP*t5*(t1*t1)-2*(t2*t2)*t34P*t3P*t42kP*(t1*t1)-4*t42kP*t2*t3P
                                                                      *k*k*(t1*t1)*t3+2*t42kP*t5*t5*t3P*k*t2-t6*t6*t22kP*t3P*k*k*(t4*t4)+16*t42kP*t1*t2*t3P*k*t33P-4
                                                                      *t42kP*t6*t6*t3P*k*k*t3*t2-8*t42kP*t6*t3P*k*k*t3*t5*t2+8*t42kP*t6*t6*t3P*k*t1*t33P+12*t42kP
                                                                      *(t1*t1)*t7*t3P*k*t5*(t2*t2)*t3+t4P*t7*t7*t32kP*k*k*(t1*t1)*(t2*t2)*t4-2*t34P*t6*t6*t22kP*t3P
                                                                      +t42kP*t7*t7*t3P*k+t7*t7*t33kP*k*(t2*t2)+8*t42kP*t2*t3P*(t3*t3)*t5+4*t7*t7*t33kP*t1*t2*k-2
                                                                      *t42kP*t7*t3P*k*k*t6*(t2*t2)*(t3*t3)-2*t4P*t4*t32kP*k*k*t7*t1-t6*t2P*t2*t32kP*k*k*t3*t7-4
                                                                      *(t2*t2)*t33P*t7*t7*t3P*t42kP*(t1*t1)+18*t42kP*t5*t5*t1*t3P*k*(t3*t3)+2*t42kP*t5*(t1*t1)
                                                                      *t3P*k*t6*(t2*t2)-2*t5*t5*t12kP*(t2*t2)*t3P*k*k*t3*(t4*t4)-t6*t2P*(t4*t4)*t32kP*k*k*t3*t7+2
                                                                      *t4P*t5*t1*t4*t32kP*k*k*t7+12*t6*t6*t22kP*t4*t3P*k*t3+18*t6*t6*t22kP*t1*t3P*k*(t3*t3)+8*t42kP
                                                                      *t7*t3P*k*k*t1*t3-18*t42kP*t6*t3P*k*(t3*t3)-16*t2*t33P*t7*t7*t3P*t42kP*t1+12*t42kP*(t1
                                                                                                                                                          *t1)*t7*t3P*k*t6*t3-24*t42kP*(t1*t1)*t2*t3P*k*t3*t6-2*t42kP*t7*t3P*k*k*t6-36*t42kP*t7*t3P
                                                                      *k*t2*(t3*t3)-4*t34P*t7*t3P*t42kP*t5+2*t42kP*t6*t6*t3P*k*t1*(t2*t2)+12*t42kP*t6*t6*t2*t3P
                                                                      *k*t3*(t1*t1)-2*t4P*(t2*t2)*t32kP*k*k*t7*t1*t3-t4P*(t2*t2)*t32kP*k*k*t7+t42kP*t3P*k+8*t42kP
                                                                      *(t2*t2)*t3P*t33P*t5*(t1*t1)+t4P*t5*t32kP*k*k*t7*t4-2*t5*t5*t12kP*t3P*k*k*t4-2*(t2*t2)*(t3
                                                                                                                                                              *t3)*t3P*t42kP-t4P*t32kP*k*k*t7+t42kP*(t1*t1)*t3P*k-4*t42kP*t7*t3P*k*t2-2*t42kP*t5
                                                                      *t5*t3P*k*k*t1*(t3*t3)-8*t42kP*t2*t3P*(t3*t3)*t5*t5*t1+36*t42kP*t6*t2*t3P*k*(t3*t3)*t5*(t1
                                                                                                                                                              *t1)-2*t42kP*t6*t6*t1*t3P*k*k+16*t33P*t1*t7*t3P*t42kP-16*t42kP*(t1*t1)*t2*t3P*k*t33P
                                                                      *t6-2*t42kP*t7*t7*t3P*k*k*t1*(t3*t3)-4*t5*t5*t12kP*t2*t3P*k*k*t3*(t4*t4)-2*t42kP*t6*t6*(t1
                                                                                                                                                              *t1)*t3P*k*k*t2*(t3*t3)-2*t42kP*t3P*k*k*t3-8*t5*t5*t12kP*t33P*t4*t3P-8*t42kP*(t2*t2)*t3P
                                                                      *(t3*t3)*t5*t6*t1+4*(t2*t2)*t34P*t7*t3P*t42kP*(t1*t1)+8*t42kP*t6*t1*t3P*k*k*t3-t6*t2P*(t1
                                                                                                                                                             *t1)*t7*t32kP*k*k*(t4*t4)-t5*t1P*(t2*t2)*t7*t32kP*k*k*t1*(t4*t4)*t3+12*t42kP*t2*t3P*k*t3-t4P
                                                                      *(t2*t2)*t32kP*k*k*t7*t3-16*t42kP*t2*t3P*t33P*t5*t6-4*t6*t2P*t1*t7*t32kP*k*k*t2*t4-4*t42kP
                                                                      *t1*(t2*t2)*t7*t3P*k*k*(t3*t3)*t5-t5*t1P*t32kP*k*k*t7*(t4*t4)*t3-2*t42kP*t6*t6*t1*t3P*k*k*(t3
                                                                                                                                                                 *t3)-4*t42kP*t7*t7*t3P*k*k*t1*t2+t7*t7*t33kP*k*(t1*t1)*(t4*t4)+16*t2*t34P*t42kP*t6*t3P*t1-36
                                                                      *t42kP*(t1*t1)*t7*t3P*k*(t3*t3)*t2+t4P*t7*t7*t32kP*k*k*(t1*t1)*(t2*t2)+2*t42kP*t7*t3P*k*k
                                                                      *(t2*t2)*(t3*t3)+4*t42kP*t6*(t1*t1)*t3P*k*k*t2*(t3*t3)+12*t5*t5*t12kP*t3P*k*t3*t4-t4P*t4*t32kP
                                                                      *k*k*t7*(t1*t1)+2*t4P*t5*t2*t4*t32kP*k*k*t7*t3+2*t4P*t5*t32kP*k*k*t7*t1*(t2*t2)*t3+4*t42kP
                                                                      *(t2*t2)*t3P*t34P*t5*(t1*t1)+t4P*t6*(t1*t1)*t32kP*k*k*t7-4*(t2*t2)*(t3*t3)*t7*t3P*t42kP*t6
                                                                      *(t1*t1)+16*t2*t34P*t7*t3P*t42kP*t1+18*t42kP*(t1*t1)*t7*t3P*k*(t3*t3)*t5*(t2*t2)-2*(t2*t2)
                                                                      *t34P*t42kP*t6*t6*t3P*(t1*t1)+4*t42kP*t7*t3P*k*k*t2*(t3*t3)+18*t42kP*t1*(t2*t2)*t3P*k*(t3
                                                                                                                                                             *t3)-4*t42kP*t6*t1*t3P*k*k*t5*(t3*t3)+8*t2*(t3*t3)*t3P*t42kP*t6*(t1*t1)+4*t4P*t7*t7*t32kP
                                                                      *k*k*t1*t2*t4-2*t42kP*(t2*t2)*t3P*t34P*t5*t5+8*(t2*t2)*t33P*t42kP*t6*t3P-2*t5*t5*t12kP
                                                                      *t34P*t3P+4*(t3*t3)*t7*t3P*t42kP+6*t42kP*t3P*k*t3+2*t42kP*t7*t3P*k*k+16*t2*(t3*t3)*t7
                                                                      *t3P*t42kP*t1+2*t42kP*(t1*t1)*t7*t3P*k*t6*(t2*t2)+16*t42kP*t1*t7*t3P*k*t33P*t5+8*t42kP
                                                                      *t5*t3P*k*k*t1*(t2*t2)*t3-8*t2*(t3*t3)*t7*t3P*t42kP*t5*(t1*t1)-4*t42kP*t6*t6*(t1*t1)*t3P*k
                                                                      *k*t2*t3-4*(t3*t3)*t6*t6*t22kP*t3P*t4-12*t4P*t3*t4*t6*t2P*k*t2*t7*t3P-4*t7*t3P*t1*t2P*k
                                                                      *t4P*t6+2*t4P*t6*t2P*k*k*t7*t3P-24*t7*t3P*t6*t2P*k*t2*t4P*t1*t3-8*t42kP*(t1*t1)*t7*t3P
                                                                      *k*t33P*(t2*t2)-4*t4P*t2*t32kP*k*k*t7*t1-4*t7*t3P*t6*t2P*k*t2*t4P*t1-2*t7*t3P*t6*t2P
                                                                      *k*t2*t4P*(t1*t1)*t4-16*t42kP*t5*t1*t3P*k*t33P+2*t7*t7*t33kP*k*t2+t4P*t7*t7*t32kP*k*k+12
                                                                      *t42kP*(t1*t1)*t7*t3P*k*t5*t3-8*t2*t34P*t7*t3P*t42kP*t6+8*t6*t6*t22kP*t1*t3P*k*t33P-2
                                                                      *t42kP*t7*t7*t3P*k*k*(t1*t1)*t3-8*(t2*t2)*t33P*t7*t3P*t42kP*t6-2*t6*t6*t22kP*(t4*t4)*t3P
                                                                      *k*k*t3-2*t42kP*t5*t5*t3P*k*k*t2-4*t5*t5*t12kP*t2*t3P*k*k*(t3*t3)*t4-4*t33P*(t1*t1)*t3P*t42kP
                                                                      *t6*t6-8*(t2*t2)*t33P*t7*t7*t3P*t42kP*t1-4*t5*t5*t12kP*t2*t3P*k*k*t4+8*t42kP*t6*(t2*t2)*t3P
                                                                      *k*t33P*t5-t42kP*t6*t6*(t1*t1)*t3P*k*k+16*t2*t33P*t42kP*t6*t3P*(t1*t1)-4*t33P*t6*t6*t22kP
                                                                      *t3P+2*t4P*t5*t32kP*k*k*t7*(t1*t1)*t2*t3-4*t42kP*t2*t3P*k*k*t3-8*t42kP*t1*t2*t7*t3P*k*k
                                                                      *(t3*t3)*t5-4*t33P*(t4*t4)*t6*t6*t22kP*t3P*(t1*t1)+4*t42kP*(t1*t1)*t7*t7*t3P*k*t33P+32*t2
                                                                      *t33P*t42kP*t6*t3P*t1-t6*t2P*(t1*t1)*t7*t32kP*k*k*t3*t2+2*t6*t6*t22kP*t4*t3P*k+12*t42kP
                                                                      *t5*(t1*t1)*t3P*k*t3*t6-4*t42kP*t7*t3P*k*k*t6*t3+4*t42kP*(t1*t1)*t7*t3P*k*t5*t2+t4P*t5*t32kP
                                                                      *k*k*t7*(t1*t1)-t42kP*t6*t6*(t1*t1)*t3P*k*k*(t2*t2)*(t3*t3)+t42kP*(t1*t1)*t3P*k*(t2*t2)+2*t7
                                                                      *t7*t33kP*t1*(t2*t2)*k+2*t42kP*(t1*t1)*t7*t3P*k*t5-4*t42kP*t6*t6*t1*t3P*k*k*t2-2*t42kP*t1
                                                                      *(t2*t2)*t7*t7*t3P*k*k*(t3*t3)+4*(t3*t3)*t3P*t42kP*t5*(t1*t1)-4*t33P*t7*t7*t3P*t42kP+4*t6
                                                                      *t6*t22kP*t4*t3P*k*t1+18*t5*t5*t12kP*t4*t3P*k*(t3*t3)+4*t34P*t3P*t42kP*t5*(t1*t1)+t42kP
                                                                      *t6*t6*t3P*k+t7*t7*t33kP*k*(t4*t4)+9*t5*t5*t12kP*(t4*t4)*t3P*k*(t3*t3)-2*(t2*t2)*(t3*t3)*t3P
                                                                      *t42kP*(t1*t1)+4*t42kP*t5*t1*t3P*k*t6-36*t42kP*t1*(t2*t2)*t3P*k*(t3*t3)*t6-2*t42kP*t5*(t1
                                                                                                                                                             *t1)*t3P*k+16*t42kP*t2*t3P*(t3*t3)*t5*t1+4*t42kP*t7*t3P*k*k*t1+4*t5*t5*t12kP*t2*t4*t3P
                                                                      *k+8*t6*t6*t22kP*t4*t3P*k*t33P*(t1*t1)+16*t42kP*(t2*t2)*t3P*t33P*t5*t1+8*(t2*t2)*t34P*t42kP
                                                                      *t6*t3P*t1-2*t42kP*(t2*t2)*t3P*t34P*t5*t5*(t1*t1)-8*t2*t33P*t3P*t42kP*(t1*t1)+4*t42kP
                                                                      *t7*t3P*k*k*t1*(t3*t3)-t42kP*t7*t7*t3P*k*k*(t1*t1)*(t3*t3)+4*t42kP*t7*t3P*k*k*t1*(t2*t2)-4
                                                                      *t2*(t3*t3)*t7*t7*t3P*t42kP+2*t42kP*t5*t3P*k*k*(t3*t3)+8*t42kP*t6*t6*t2*t3P*k*t33P*(t1
                                                                                                                                                          *t1)+2*t4P*t6*t1*t32kP*k*k*t7*t3-4*(t2*t2)*t34P*t7*t3P*t42kP*t6+36*t42kP*t6*(t2*t2)*t3P
                                                                      *k*(t3*t3)*t5*t1-t42kP*t5*t5*t3P*k*k+9*t42kP*t5*t5*t3P*k*(t3*t3)+2*t4P*t6*(t1*t1)*t32kP*k
                                                                      *k*t7*t2*t4-16*t42kP*t1*t7*t3P*k*t33P+t4P*t6*t32kP*k*k*t7*(t2*t2)*t4+4*t42kP*t1*t3P*k*t2
                                                                      +18*t42kP*t1*t7*t7*t3P*k*(t3*t3)*(t2*t2)-4*t42kP*t2*t3P*k*k*t1+t4P*t5*(t1*t1)*t4*t32kP*k
                                                                      *k*t7+8*t42kP*(t1*t1)*t7*t3P*k*t33P*t5*(t2*t2)-2*t42kP*t6*t3P*k*k*(t3*t3)*t5*(t2*t2)+48*t42kP
                                                                      *t6*t2*t3P*k*t3*t5*t1+2*t42kP*t5*t3P*k*k+4*(t3*t3)*t3P*t42kP*t5+8*t33P*t3P*t42kP*t6-2
                                                                      *t34P*t3P*t42kP*(t1*t1)-4*t2*t34P*t3P*t42kP-24*t42kP*t1*(t2*t2)*t3P*k*t3*t6-4*t5*t5*t12kP
                                                                      *t3P*k*k*t3*t4-12*t42kP*(t1*t1)*t3P*k*t3*t6+4*(t2*t2)*t34P*t7*t3P*t42kP+2*t42kP*t6*t3P
                                                                      *k*t5*(t2*t2)-8*t42kP*(t2*t2)*t3P*k*t33P*t5-12*t42kP*t7*t3P*k*(t2*t2)*t3+4*(t2*t2)*t34P*t42kP
                                                                      *t6*t3P*(t1*t1)-8*t42kP*t6*t1*t3P*k*k*t5*t2-4*t6*t6*t22kP*t1*t3P*k*k*t3*(t4*t4)-8*t2*t33P
                                                                      *t7*t7*t3P*t42kP+2*t4P*t6*t1*t32kP*k*k*t7-2*t4P*t4*t32kP*k*k*t7*(t1*t1)*t2*t3-8*t42kP*t2
                                                                      *t3P*t33P*t5*t5*(t1*t1)+4*t5*t5*t12kP*(t4*t4)*t3P*k*t33P+2*t4P*t5*t32kP*k*k*t7*(t1*t1)
                                                                      *t2+6*t6*t6*t22kP*(t1*t1)*t3P*k*t3-4*t33P*t3P*t42kP*(t1*t1)-2*t34P*t7*t7*t3P*t42kP+2
                                                                      *t4P*t7*t7*t32kP*k*k*t2*t4+2*t4P*t7*t7*t32kP*k*k*t1*(t2*t2)-8*t2*t34P*t7*t7*t3P*t42kP*t1
                                                                      +4*t42kP*t5*(t1*t1)*t3P*k*t6*t2-2*t42kP*t7*t3P*k*k*t5*(t3*t3)-2*t4P*t2*t32kP*k*k*t7*(t1*t1)
                                                                      *t3+36*t42kP*t1*t7*t3P*k*(t3*t3)*t6+4*t6*t6*t22kP*(t1*t1)*t3P*k*t33P-18*t42kP*t6*(t2*t2)
                                                                      *t3P*k*(t3*t3)+2*t4P*t5*t32kP*k*k*t7*t2+4*t42kP*t6*t1*t3P*k*k*(t2*t2)+2*t42kP*t5*t3P*k
                                                                      *k*(t2*t2)+8*t34P*t1*t7*t3P*t42kP-2*t5*t5*t12kP*t2*t3P*k*k*(t3*t3)*(t4*t4)-2*t6*t2P*t1*t7
                                                                      *t32kP*k*k*t2*(t4*t4)-16*t42kP*t1*(t2*t2)*t3P*k*t33P*t6+t42kP*t5*t5*t3P*k*(t2*t2)+2*t4P
                                                                      *t6*t1*t32kP*k*k*t7*(t2*t2)-t6*t2P*(t1*t1)*t7*t32kP*k*k*t2*(t4*t4)-36*t42kP*t6*t2*t3P*k*(t3
                                                                                                                                                               *t3)+t4P*t5*t32kP*k*k*t7*t3+6*t42kP*(t1*t1)*t7*t7*t3P*k*(t2*t2)*t3-2*(t2*t2)*(t3*t3)*t7*t7*t3P
                                                                      *t42kP-4*(t2*t2)*t34P*t7*t3P*t42kP*t5*(t1*t1)-2*t42kP*t5*t5*t3P*k*k*t1*(t2*t2)+6*t42kP
                                                                      *t5*t5*t3P*k*t3+24*t42kP*t1*t2*t3P*k*t3-16*(t2*t2)*t33P*t7*t3P*t42kP*t6*t1-4*t42kP*t5*t5
                                                                      *t3P*k*k*t1*t2-4*t42kP*t7*t3P*k*k*t6*(t2*t2)*t3+4*t42kP*t1*t7*t3P*k*t6*(t2*t2)+6*t5*t5*t12kP
                                                                      *(t2*t2)*t3P*k*t3+2*t4P*t7*t7*t32kP*k*k*t1*t3+t7*t7*t33kP*(t1*t1)*(t2*t2)*k*(t4*t4)-4*t42kP
                                                                      *t5*t5*t3P*k*k*t1*t2*(t3*t3)-32*t42kP*t1*t2*t3P*k*t33P*t6-2*t42kP*t6*t6*(t1*t1)*t3P*k*k*t2
                                                                      +12*t42kP*t6*t6*(t2*t2)*t3P*k*t3*t1+4*(t2*t2)*(t3*t3)*t3P*t42kP*t6+4*t6*t6*t22kP*(t4*t4)*t3P
                                                                      *k*t33P*(t1*t1)-4*t4P*t4*t32kP*k*k*t7*t1*t2+6*t6*t6*t22kP*t3P*k*t3-8*t42kP*t5*(t1*t1)*t3P
                                                                      *k*t33P+8*t42kP*t7*t3P*k*t6*t33P-4*t42kP*(t2*t2)*t3P*k*k*t1*t3-t6*t2P*(t1*t1)*t7*t32kP
                                                                      *k*k+6*t42kP*(t2*t2)*t3P*k*t3+t4P*(t1*t1)*(t2*t2)*t7*t7*t32kP*k*k*t3-4*t6*t6*t22kP*t1*t3P
                                                                      *k*k*(t3*t3)*t4+4*t42kP*t7*t3P*k*k*(t1*t1)*t2-2*t6*t6*t22kP*(t1*t1)*t3P*k*k*t3*(t4*t4)+8*t42kP
                                                                      *(t1*t1)*t2*t7*t3P*k*k*t3+t4P*t5*t32kP*k*k*t7*(t1*t1)*(t2*t2)*t3+2*t4P*t5*t32kP*k*k*t7*t1-2
                                                                      *t5*t1P*t2*t7*t32kP*k*k*t1+2*t42kP*t5*t5*t1*t3P*k*(t2*t2)+4*t6*t6*t22kP*(t4*t4)*t3P*k*t33P-12
                                                                      *t42kP*t5*t3P*k*t3-8*t5*t5*t12kP*t2*t34P*t4*t3P-24*t42kP*(t1*t1)*t7*t3P*k*t2*t3-2*t5*t5
                                                                      *t12kP*(t2*t2)*t3P*k*k*t3+4*t42kP*t6*t1*t3P*k*k*(t3*t3)-t4P*t4*t32kP*k*k*t7*(t2*t2)*t3-48
                                                                      *t42kP*t1*t7*t3P*k*t2*t3+4*t42kP*t6*t3P*k*t5*t2-t42kP*t3P*k*k*(t3*t3)+12*t42kP*t7*t3P
                                                                      *k*t6*t3-t42kP*t6*t6*(t1*t1)*t3P*k*k*(t3*t3)-t42kP*(t1*t1)*(t2*t2)*t7*t7*t3P*k*k*(t3*t3)+4*t42kP
                                                                      *t5*t1*t3P*k*t6*(t2*t2)-2*t42kP*(t2*t2)*t3P*k*k*t1+2*t4P*t7*t7*t32kP*k*k*(t1*t1)*t2*t4+t42kP
                                                                      *t7*t7*t3P*k*(t2*t2)-2*t42kP*t5*(t1*t1)*t3P*k*(t2*t2)-8*(t3*t3)*t1*t3P*t42kP*t6*t6*t2-8*t42kP
                                                                      *t2*t3P*k*k*t1*t3+t4P*t7*t7*t32kP*k*k*(t1*t1)*t3-2*(t3*t3)*t7*t7*t3P*t42kP+9*t5*t5*t12kP
                                                                      *(t2*t2)*t3P*k*(t3*t3)-t4P*t4*t32kP*k*k*t7-8*t33P*(t4*t4)*t6*t6*t22kP*t3P*t1-16*t42kP*t1
                                                                      *t7*t3P*k*t33P*(t2*t2)-8*t42kP*t1*t2*t7*t3P*k*k*(t3*t3)*t6+8*t4P*(t2*t2)*t3P*t33P*t5*t5
                                                                      *t1P*t1-8*t4P*t7*t3P*k*t6*t2P*t33P+4*t5*t1P*t3P*(t3*t3)*t4P*t6+4*t34P*t4*t6*t6*t2P
                                                                      *t3P*t4P*t2+18*t5*t1P*t4*t3P*k*t4P*(t2*t2)*(t3*t3)-18*t6*t2P*t2*t4*t3P*k*(t3*t3)*t4P
                                                                      *t5*(t1*t1)-18*t4P*t6*t6*(t1*t1)*t3P*k*(t3*t3)*t2P*t4-8*t4P*t6*t6*(t1*t1)*t3P*k*t33P*t2P-16
                                                                      *t4P*t6*t6*t1*t3P*k*t33P*t2P*t4-8*t4P*t6*t6*(t1*t1)*t3P*k*t33P*t2P*t4+2*t4P*t6*t6*t3P
                                                                      *k*k*t2P*t4+4*t4P*t6*t3P*k*k*t5*t1P*t2+2*t4P*t6*t3P*k*k*t5*t1P+2*t4P*t6*t6*t3P*k*k
                                                                      *t2P+8*t4P*t2*t3P*t34P*t5*t5*t1P-8*t4P*t5*t5*t1*t3P*k*t33P*t1P-6*t7*t32kP*(t1*t1)
                                                                      *t33P*t6*t2P*t4+8*t6*t2P*t7*t32kP*k*(t1*t1)*(t4*t4)*t3-12*t4P*t6*t4*t3P*k*t3*t5*t1P*t1-6
                                                                      *t6*t2P*t7*t32kP*(t1*t1)*t2*(t3*t3)*t4+2*t7*t7*t33kP*k*(t4*t4)*t3-4*t4P*t6*t6*t3P*k*t2P*t1-12
                                                                      *t4P*t6*t6*t3P*k*t2P*t3-4*t4P*t6*t3P*k*t5*t1P*t2-4*t7*t7*t33kP*t1*t2*(t3*t3)+2*t4P*t5
                                                                      *t3P*k*k*t6*t2P*t2+2*t4P*t5*t5*t3P*k*k*t1P*(t2*t2)+2*t4P*t5*t5*t3P*k*k*t1P*(t3*t3)+4
                                                                      *t6*t2P*t4*t3P*k*t5*t1P*t2+4*t6*t2P*t4*t3P*k*t5*t1P+8*t2*(t3*t3)*t7*t3P*t4P*t5*t1P
                                                                      *t4*t1-6*t4P*t5*t7*t32kP*k*(t1*t1)*t4*(t3*t3)+8*t6*t6*t2P*t2*t34P*t3P*t4P*t1+2*t5*t1P*t3P
                                                                      *k*t6*t2P+4*t4P*t5*t3P*k*k*t6*t2P*t3*t2-12*t7*t7*t32kP*k*t4P*t1*(t2*t2)*(t3*t3)+2*t5*t1P
                                                                      *(t2*t2)*t7*t3P*k*k*t4P*t1*(t3*t3)+8*t7*t7*t33kP*k*t4*t3*t2+2*t6*t2P*(t4*t4)*t3P*k*t5*t1P
                                                                      *t2+4*t6*t2P*t2*t4*t3P*k*k*t4P*t5*t3+8*t33P*t7*t3P*t4P*t5*t1P+4*(t3*t3)*t7*t3P*t4P
                                                                      *t5*t1P*t4+4*t34P*t7*t3P*t4P*t5*t1P+4*t6*t2P*t1*t3P*k*k*t4P*t5*t2+2*t6*t2P*(t1*t1)
                                                                      *t3P*k*k*t4P*t5-8*t5*t5*t1P*t3P*k*t33P*t4P*t1*(t2*t2)+8*t7*t32kP*t1*t2*k*t5*t1P*t4+4
                                                                      *t4P*t6*t6*t3P*k*k*t2P*t1+4*t4P*t6*t3P*k*k*t5*t1P*t2*t1+4*t4P*t6*t3P*k*k*t5*t1P*t3
                                                                      *t1+2*t4P*t6*t3P*k*k*t5*t1P*t4*t1+4*t4P*t6*t6*t3P*k*k*t2P*t1*(t3*t3)-8*t4P*t2*t4*t3P
                                                                      *k*k*t3*t5*t1P*t1+18*t5*t1P*(t2*t2)*t3P*k*(t3*t3)*t4P+8*t34P*t6*t6*t2P*t3P*t4P*t1+8*t34P
                                                                      *t6*t2P*t3P*t4P*t7*t1-3*t4P*t7*t32kP*(t3*t3)*(t2*t2)-3*t6*t2P*t7*t32kP*(t3*t3)-6*t6*t2P
                                                                      *t7*t32kP*(t3*t3)*t4-3*t6*t2P*t7*t32kP*t33P-6*t6*t2P*t7*t32kP*t33P*t4-4*t7*t32kP*k*t4P
                                                                      *t6*t2*t4+2*t7*t32kP*k*t5*t1P*(t2*t2)*(t4*t4)-2*t7*t32kP*k*t4P*t6*(t2*t2)*t4+2*t7*t32kP*k*t4P
                                                                      *(t1*t1)*t4+4*t7*t32kP*k*t4P*t1+4*t7*t32kP*k*t4P*t2-2*t7*t32kP*k*t4P*t6*(t1*t1)-8*t33P
                                                                      *t6*t2P*t3P*t4P-2*t7*t7*t33kP*(t2*t2)*t4*(t3*t3)-t7*t7*t33kP*(t2*t2)*(t4*t4)*(t3*t3)+2*t6*t2P
                                                                      *(t4*t4)*t3P*k*t5*t1P*t1+4*t4P*t6*t6*t3P*k*k*t2P*t1*(t3*t3)*t4-18*t6*t2P*t2*t3P*k*(t3*t3)
                                                                      *t4P*t5-4*t6*t2P*t1*t3P*k*k*(t3*t3)*t5*t1P*t4-16*t7*t32kP*k*t4P*t5*t1*(t2*t2)*t3+16*t7*t32kP
                                                                      *k*t6*t2P*t1*t3*t2-16*t2*t33P*t3P*t4P*t5*t1P-8*t2*(t3*t3)*t3P*t4P*t5*t1P*t4+16*t7*t32kP
                                                                      *k*t5*t1P*t2*t3*(t4*t4)*t1+16*t7*t32kP*k*t5*t1P*(t2*t2)*t3*t4*t1+16*t7*t32kP*k*t6*t2P*(t1*t1)
                                                                      *t3*t4*t2-8*t7*t32kP*k*t4P*t6*(t1*t1)*(t2*t2)*t3-8*t7*t32kP*k*t4P*t5*(t1*t1)*(t2*t2)*t3+8*t7
                                                                      *t32kP*k*t6*t2P*(t1*t1)*t3*t2+12*t7*t32kP*k*t5*t1P*t2*(t3*t3)*t1+16*t7*t32kP*k*t4P*(t1*t1)
                                                                      *t2*t3*t4+12*t7*t32kP*k*t4P*(t1*t1)*t2*(t3*t3)*t4-2*t5*t1P*t1*t4*t3P*k*k*t4P*(t3*t3)-12*t6
                                                                      *t2P*t2*t3P*k*t3*t4P*t5+2*t4P*t6*t6*t3P*k*k*t2P*t2+2*t4P*t6*t3P*k*k*t5*t1P*(t2*t2)
                                                                      +2*t7*t32kP*k*t6*t2P*(t4*t4)*t2+12*t5*t1P*t4*t3P*k*t4P*t1*(t2*t2)*t3-18*t5*t5*t1P*t4*t3P
                                                                      *k*t4P*t1*(t2*t2)*(t3*t3)+12*t4P*(t1*t1)*t3P*k*t6*t2P*t3*t4+18*t4P*(t1*t1)*t3P*k*(t3*t3)
                                                                      *t6*t2P+16*t4P*t1*t3P*k*t33P*t6*t2P+36*t4P*t1*t3P*k*(t3*t3)*t6*t2P*t4+36*t4P*t1*t3P
                                                                      *k*(t3*t3)*t5*t1P*t2+36*t4P*t1*t3P*k*(t3*t3)*t6*t2P+8*t2*t34P*t7*t3P*t4P*t6*t2P*t1-3
                                                                      *t5*t1P*t7*t32kP*t1*(t3*t3)-6*t5*t1P*t7*t32kP*t1*(t3*t3)*t4+8*(t2*t2)*t33P*t4P*t6*t3P*t5
                                                                      *t1P+16*t2*t33P*t4P*t6*t3P*t5*t1P+2*t7*t7*t33kP*k*(t2*t2)*t3+8*t34P*t6*t2P*t3P*t4P
                                                                      *t5*t1-2*t6*t2P*t3P*k*k*t5*t1P*(t4*t4)-2*t6*t2P*t3P*k*k*t5*t1P*t2-2*t6*t2P*t3P*k*k*t5
                                                                      *t1P-4*t6*t2P*t3P*k*k*t4P*t3-4*t6*t2P*t3P*k*k*t5*t1P*t3-4*t6*t2P*t3P*k*k*t5*t1P*t4-8
                                                                      *t2*(t3*t3)*t3P*t4P*t5*t1P*t1-4*t2*(t3*t3)*t3P*t4P*t6*t2P*(t1*t1)-2*t4P*t5*(t1*t1)*t3P
                                                                      *k*t6*t2P+18*t6*t2P*t3P*k*(t3*t3)*t4P-12*t4P*t5*t5*t4*t3P*k*t3*t1P+3*t4P*t6*t7*t32kP
                                                                      *t4*(t3*t3)+6*t4P*t7*t7*t32kP*t4*(t3*t3)*t1+6*t4P*t7*t7*t32kP*t4*(t3*t3)*t2+12*t4P*t7*t7*t32kP
                                                                      *t4*(t3*t3)*t1*t2+3*t4P*t7*t7*t32kP*t4*t33P+6*t4P*t7*t7*t32kP*t4*t33P*t1+8*t4P*t6*t3P
                                                                      *k*k*t3*t5*t1P*t2*t4+12*t5*t1P*(t2*t2)*t3P*k*t3*t4P-6*t5*t1P*t7*t32kP*t1*t2*(t4*t4)*(t3*t3)-16
                                                                      *t7*t7*t32kP*k*t4P*(t1*t1)*t2*t3-2*t4P*t4*t3P*k*k*t5*t1P*(t2*t2)-6*t4P*t7*t32kP*t1*t4*(t3
                                                                                                                                                             *t3)-6*t6*t2P*t7*t32kP*t1*t2*(t3*t3)-12*t4P*t7*t32kP*t1*t4*(t3*t3)*t2+4*t5*t1P*t1*t34P*t3P
                                                                      *t4P*t6+4*t5*t5*t1P*t1*t34P*t3P*t4P+4*t5*t1P*t1*t34P*t3P*t4P*t7-8*t5*t1P*t1*t33P
                                                                      *t3P*t4P+8*t5*t1P*(t2*t2)*t3P*k*t33P*t4P+16*t5*t1P*t4*t3P*k*t6*t2P*t1*t33P+2*t6*t2P
                                                                      *t4*t3P*k*t4P*(t1*t1)+12*t6*t2P*(t4*t4)*t3P*k*t5*t1P*t3-2*t4P*t3P*k*k*t6*t2P*(t1*t1)
                                                                      *t2+8*t4P*t6*t6*t3P*k*k*t2P*t1*t3*t4-4*t4P*t3P*k*k*t6*t2P*t1*t4+8*t6*t2P*t2*(t4*t4)*t3P
                                                                      *k*t33P*t5*t1P-4*t4P*(t2*t2)*t4*t3P*k*k*t3*t5*t1P*t1-4*t4P*t2*t4*t3P*k*k*(t3*t3)*t5*t1P
                                                                      *t1-2*t4P*t4*t3P*k*k*t5*t1P*(t3*t3)-3*t4P*t7*t32kP*(t1*t1)*t4*(t3*t3)+2*t4P*t5*t5*t1*t3P
                                                                      *k*k*t1P-8*t6*t6*t2P*t2*t4*t3P*k*t33P*t4P-8*t6*t2P*t2*t4*t3P*k*t33P*t4P*t5-18*t6*t6
                                                                      *t2P*t2*t4*t3P*k*(t3*t3)*t4P*(t1*t1)-12*t4P*t6*t6*(t1*t1)*t2*t3P*k*t3*t2P-36*t4P*t6*t6
                                                                      *t1*t2*t3P*k*(t3*t3)*t2P-12*t4P*t6*t1*(t2*t2)*t3P*k*t3*t5*t1P-24*t4P*t6*t1*t2*t3P*k*t3
                                                                      *t5*t1P-24*t4P*t6*t6*t1*t2*t3P*k*t3*t2P-36*t4P*t6*t1*t2*t3P*k*(t3*t3)*t5*t1P-6*t4P*t7
                                                                      *t32kP*(t1*t1)*t4*(t3*t3)*t2+18*t6*t2P*t2*(t4*t4)*t3P*k*(t3*t3)*t5*t1P-12*t6*t2P*(t1*t1)*t3P
                                                                      *k*t3*t4P*t5*t2+8*t6*t2P*t1*t3P*k*t33P*t5*t1P-36*t6*t2P*t1*t3P*k*(t3*t3)*t4P*t5*t2-18
                                                                      *t6*t2P*(t1*t1)*t3P*k*(t3*t3)*t4P*t5+2*t4P*t6*t3P*k*k*(t3*t3)*t5*t1P*(t2*t2)+4*t4P*t6*t3P
                                                                      *k*k*t3*t5*t1P*(t2*t2)*t4+4*t4P*t6*t3P*k*k*(t3*t3)*t5*t1P*t2+2*t4P*t6*t3P*k*k*(t3*t3)*t5
                                                                      *t1P*t4+18*t4P*t1*t3P*k*(t3*t3)*t5*t1P*(t2*t2)+36*t4P*t1*t3P*k*(t3*t3)*t6*t2P*t2-12*t5
                                                                      *t5*t1P*t4*t3P*k*t4P*(t2*t2)*t3+4*t4P*t6*t6*t3P*k*k*t3*t2P*t2+4*t4P*t6*t3P*k*k*t3*t5
                                                                      *t1P*(t2*t2)-2*t4P*t5*t5*t1*t3P*k*t1P-4*t4P*t5*t1*t3P*k*t6*t2P+8*t6*t2P*t2*t4*t3P*k
                                                                      *t33P*t4P+18*t5*t1P*(t4*t4)*t3P*k*t6*t2P*t1*(t3*t3)-36*t5*t5*t1P*t4*t3P*k*t4P*t1*t2*(t3
                                                                                                                                                           *t3)-2*t6*t2P*t2*t4*t3P*k*k*t4P+6*t6*t2P*t7*t32kP*k*(t1*t1)*(t3*t3)+2*t4P*t6*t6*t3P*k*k
                                                                      *(t3*t3)*t2P*t4-8*t4P*t1*t7*t3P*k*t33P*t5*t1P*(t2*t2)*t4-8*t4P*(t1*t1)*t7*t3P*k*t33P
                                                                      *t6*t2P*t2-2*t4P*t6*t3P*k*t5*t1P-2*t4P*t6*t6*t3P*k*t2P+8*t4P*t2*t3P*(t3*t3)*t5*t5*t1P
                                                                      *t1-2*t4P*t3P*k*k*t6*t2P*(t1*t1)*t4-18*t4P*t6*t6*t3P*k*t2P*(t3*t3)-12*t4P*t6*t3P*k*t5
                                                                      *t1P*t3-2*t4P*t6*t3P*k*t5*t1P*t4+4*t4P*t6*t4*t3P*(t3*t3)*t5*t1P*t1+4*t4P*t6*t6*t4*t3P
                                                                      *(t3*t3)*t2P*(t1*t1)-8*t2*t34P*t3P*t4P*t5*t1P-3*t7*t32kP*t33P*t6*t2P*(t4*t4)-4*t6*t2P
                                                                      *t1*t3P*k*k*t3*t5*t1P*(t4*t4)-3*t7*t32kP*t33P*t5*t1P*(t4*t4)-12*t5*t5*t1P*t3P*k*t3*t4P
                                                                      *t1*(t2*t2)-4*t6*t6*t2P*t4*t3P*k*t4P*t1*t2-4*(t3*t3)*t6*t2P*t3P*t5*t1P*(t4*t4)*t1-2*t4P
                                                                      *t6*t6*t3P*k*t2P*t2+2*t4P*t7*t3P*k*k*t5*t1P*(t2*t2)*(t3*t3)-24*t4P*t6*t1*t2*t3P*k*t3*t5
                                                                      *t1P*t4-24*t6*t6*t2P*t1*t3P*k*t3*t4P-24*t6*t2P*t1*t3P*k*t3*t4P*t5+12*t4P*t6*t7*t32kP
                                                                      *t1*t2*t4*(t3*t3)+6*t7*t32kP*k*t5*t1P*(t2*t2)*(t3*t3)*(t4*t4)*t1+12*t7*t32kP*k*t5*t1P*t2*(t3
                                                                                                                                                                *t3)*(t4*t4)*t1-12*t7*t32kP*k*t4P*t5*(t1*t1)*t2*(t3*t3)*t4+6*t7*t32kP*k*t5*t1P*(t2*t2)*(t3*t3)
                                                                      +12*t7*t32kP*k*t4P*t1*(t2*t2)*(t3*t3)-2*t5*t1P*t2*t3P*k*k*t6*t2P*t1*(t3*t3)*(t4*t4)+2*t5*t5
                                                                      *t1P*(t2*t2)*t3P*k*k*t4P*t1*(t3*t3)*t4-2*t5*t1P*t2*t3P*k*k*t6*t2P*t1*(t3*t3)-2*t5*t1P*(t2
                                                                                                                                                             *t2)*t3P*k*k*t4P*t1*(t3*t3)+4*t4P*t7*t3P*k*k*t5*t1P*t2*(t3*t3)+4*t4P*t2*t3P*(t3*t3)*t5
                                                                      *t6*t2P*(t1*t1)-8*t4P*t5*t7*t32kP*k*t3+4*t7*t7*t33kP*k*(t2*t2)*t3*t4-2*t5*t1P*(t2*t2)*t7*t32kP
                                                                      *k*k*t1*t4+6*t42kP*t5*t5*t3P*k*(t2*t2)*t3+t4P*t6*t32kP*k*k*t7+36*t42kP*t7*t3P*k*t6*t2*(t3
                                                                                                                                                             *t3)-24*t42kP*t6*t2*t3P*k*t3-4*t5*t1P*t2*t7*t32kP*k*k*t1*t4*t3+9*t42kP*t5*t5*t3P*k*(t2*t2)
                                                                      *(t3*t3)+16*t42kP*(t1*t1)*t7*t3P*k*t33P*t6*t2+12*t42kP*t1*t7*t7*t3P*k*t3+6*t42kP*(t1*t1)
                                                                      *(t2*t2)*t3P*k*t3-4*t5*t5*t3P*t33P*t42kP+6*t42kP*t6*t6*t3P*k*t3-2*t5*t5*t12kP*(t2*t2)*t34P
                                                                      *(t4*t4)*t3P+12*t42kP*t6*(t2*t2)*t3P*k*t3*t5*(t1*t1)+t4P*t6*t32kP*k*k*t3*t7*(t2*t2)-2*t42kP
                                                                      *t7*t3P*k*k*t6*(t1*t1)*(t2*t2)+4*t42kP*(t2*t2)*t3P*k*t33P-72*t42kP*t1*t2*t3P*k*(t3*t3)*t5
                                                                      +4*t7*t3P*t6*t2P*k*k*t2*t4P*t1+4*t7*t3P*t3*t2P*k*k*t4P*t6-2*t4P*t6*t2P*k*t2*t7*t3P
                                                                      +4*t4P*t1*t6*t2P*k*k*t7*t3P-4*t42kP*t7*t3P*k*k*t6*t1+4*t7*t3P*t6*t2P*k*k*t2*t4P*(t1*t1)
                                                                      *t3+2*t7*t3P*t6*t2P*k*k*t2*t4P*(t1*t1)-4*t7*t3P*t1*t4*t2P*k*t4P*t6-24*t7*t3P*t3*t4*t6*t2P
                                                                      *k*t4P*t1*t2+2*t7*t3P*t6*t2P*k*k*t2*t4P+2*t7*t3P*t6*t2P*k*k*t2*t4P*(t1*t1)*t4-12*t4P
                                                                      *t6*t2P*k*t2*t7*t3P*t3+16*t4P*t1*t2*t33P*t4*t7*t3P*t6*t2P+8*t4P*t7*t32kP*k*t4*t3*(t2
                                                                                                                                                        *t2)+16*t6*t2P*t7*t32kP*k*t1*(t4*t4)*t3-6*t7*t32kP*t1*t33P*t5*t1P*(t2*t2)*t4+4*(t3*t3)*t7*t3P
                                                                      *t4P*t5*t1P-8*t6*t2P*t2*t33P*t3P*t4P*(t1*t1)-6*t7*t32kP*t1*t33P*t4P*(t2*t2)+3*t7*t7
                                                                      *t32kP*(t1*t1)*t33P*t4P*(t2*t2)-12*t7*t32kP*t1*t33P*t5*t1P*t2*t4+16*t4P*t1*t2*t33P*t4
                                                                      *t7*t3P*t5*t1P+8*t4P*t1*(t2*t2)*t33P*t4*t7*t3P*t5*t1P+8*t4P*t1*t2*t34P*t4*t7*t3P*t6
                                                                      *t2P-8*t5*t1P*t33P*t4*t3P*t4P*t1-3*t7*t32kP*t1*(t4*t4)*(t3*t3)*t5*t1P-4*t34P*t6*t2P
                                                                      *t3P*t4P*(t1*t1)-8*t33P*t6*t2P*t3P*t5*t1P*t1-4*t7*t32kP*(t1*t1)*t2*k*t4P*t5*t4-4*t7*t32kP
                                                                      *t1*(t2*t2)*k*t4P*t5*t4-4*t7*t32kP*(t1*t1)*t2*k*t4P*t6*t4-4*t7*t7*t32kP*t1*(t2*t2)*k*t4P*t4
                                                                      +8*t5*t1P*t1*t2*t34P*t3P*t4P*t6+8*t33P*t6*t2P*t3P*t4P*t5*(t1*t1)+8*t33P*t6*t6*t2P
                                                                      *t3P*t4P*(t1*t1)+8*t33P*t6*t2P*t3P*t4P*t7*(t1*t1)+6*t7*t32kP*(t4*t4)*k*(t3*t3)*t6*t2P-8
                                                                      *t2*(t3*t3)*t3P*t4P*t6*t2P*t1-4*t2*(t3*t3)*t3P*t4P*t6*t2P*t4-4*(t2*t2)*(t3*t3)*t3P*t4P
                                                                      *t5*t1P-8*t2*(t3*t3)*t3P*t4P*t5*t1P-4*t2*(t3*t3)*t3P*t4P*t6*t2P-4*t4P*t4*t3P*k*k*t5
                                                                      *t1P*t2*(t3*t3)+2*t4P*(t2*t2)*t4*t3P*k*t5*t1P+4*t4P*t2*t4*t3P*k*t5*t1P+4*t4P*(t2*t2)
                                                                      *t3P*(t3*t3)*t5*t5*t1P*t1-8*t4P*t6*t3P*k*t5*t1P*t33P+3*t4P*t7*t7*t32kP*(t2*t2)*t33P-4
                                                                      *t4P*t2*t3P*k*k*t6*t2P*t3+16*t2*t33P*t42kP*t6*t3P-3*t6*t2P*t7*t32kP*t2*(t4*t4)*(t3*t3)
                                                                      *(t1*t1)-3*t4P*t7*t32kP*t33P*(t2*t2)+2*t7*t32kP*(t1*t1)*t2*k*t6*t2P+8*t7*t32kP*t1*t2*k*t6
                                                                      *t2P*t4+2*t7*t32kP*t1*(t2*t2)*k*t5*t1P+8*t5*t1P*t33P*t4*t3P*t4P*t6*t1+4*t5*t1P*t34P
                                                                      *t4*t3P*t4P*t6+4*t5*t5*t1P*t34P*t4*t3P*t4P+8*t5*t5*t1P*t33P*t4*t3P*t4P*t1+4*t7*t7
                                                                      *t33kP*k*(t4*t4)*t3*t2-16*t5*t1P*t1*t2*t33P*t3P*t4P+8*t33P*t4*t6*t6*t2P*t3P*t4P*(t1
                                                                                                                                                       *t1)*t2+8*t33P*t4*t6*t2P*t3P*t4P*t7*(t1*t1)+8*t4P*t6*t2*t4*t3P*(t3*t3)*t5*t1P*t1+4*t4P
                                                                      *t6*t6*t2*t4*t3P*(t3*t3)*t2P*(t1*t1)-2*t7*t7*t32kP*k*t4P*(t2*t2)-6*t7*t32kP*k*t4P*t6*(t2
                                                                                                                                                            *t2)*(t3*t3)-2*t7*t32kP*k*t4P*t5*(t1*t1)-2*t7*t32kP*k*t4P*t6-2*t7*t32kP*k*t4P*t5-2*t7*t32kP
                                                                      *k*t4P*t5*(t2*t2)-36*t4P*t6*t2*t3P*k*(t3*t3)*t5*t1P-8*t6*t2P*t4*t3P*k*t4P*t5*t33P-2*t6
                                                                      *t6*t2P*t4*t3P*k*t4P*t2+12*t6*t2P*t4*t3P*k*t4P*t3+24*t6*t2P*t4*t3P*k*t5*t1P*t3+2*t6
                                                                      *t2P*(t4*t4)*t3P*k*t5*t1P+32*t7*t32kP*t1*k*t3*t6*t2P*t4+8*t33P*t6*t2P*t3P*t4P*t7-2
                                                                      *t7*t32kP*(t1*t1)*(t2*t2)*k*t4P*t5+8*t33P*t6*t6*t2P*t3P*t4P+8*t33P*t6*t2P*t3P*t4P
                                                                      *t5-8*t33P*t6*t2P*t3P*t5*t1P+3*t4P*t6*t7*t32kP*(t2*t2)*t4*t33P-16*t33P*t6*t2P*t3P
                                                                      *t4P*t1-4*t34P*(t4*t4)*t6*t2P*t3P*t5*t1P-8*t33P*t4*t6*t2P*t3P*t4P*(t1*t1)-4*t6*t2P
                                                                      *t1*t3P*k*k*t3*t5*t1P-4*t6*t2P*t1*t3P*k*k*(t3*t3)*t4P-2*t6*t2P*t1*t3P*k*k*(t3*t3)*t5*t1P-8
                                                                      *t6*t2P*t1*t3P*k*k*t3*t5*t1P*t4-4*t6*t2P*(t1*t1)*t3P*k*k*t3*t4P*t2-2*t6*t2P*(t1*t1)*t3P
                                                                      *k*k*(t3*t3)*t4P-16*t7*t32kP*k*t4P*t6*(t1*t1)*t2*t3-16*t7*t32kP*k*t4P*t5*(t1*t1)*t2*t3+4*t4P
                                                                      *t6*t6*t3P*k*k*t2P*t1*t2+4*t4P*t6*t6*t3P*k*k*t2P*(t1*t1)*t3*t4+4*t4P*t6*t3P*k*k*t5*t1P
                                                                      *t2*(t3*t3)*t4*t1+2*t4P*t6*t3P*k*k*t5*t1P*t1+2*t4P*t6*t6*t3P*k*k*t2P*(t1*t1)*(t3*t3)*t4+2
                                                                      *t4P*t6*t6*t3P*k*k*t2P*(t1*t1)*t2-2*t4P*t3P*k*k*t5*t1P*(t3*t3)+36*t6*t2P*t2*t4*t3P*k
                                                                      *(t3*t3)*t5*t1P*t1-24*t5*t5*t1P*t3P*k*t3*t4P*t1*t2+4*t4P*t6*t6*t3P*k*k*t2P*t1*(t3*t3)*t4
                                                                      *t2+4*t4P*t6*t6*t3P*k*k*t2P*t1*(t3*t3)*t2-4*t34P*t6*t2P*t3P*t4P-4*t34P*t6*t2P*t3P
                                                                      *t5*t1P-8*t34P*t6*t2P*t3P*t4P*t1-2*t4P*t2*t4*t3P*k*k*(t3*t3)*t6*t2P*(t1*t1)-2*t4P*(t2
                                                                                                                                                         *t2)*t4*t3P*k*k*(t3*t3)*t5*t1P*t1+16*t6*t2P*t2*t4*t3P*k*t33P*t5*t1P+16*t6*t2P*t2*t4*t3P
                                                                      *k*t33P*t4P*t1-4*t6*t2P*t2*t4*t3P*k*k*t5*t1P+4*t4P*t2*t4*t7*t3P*k*k*(t3*t3)*t5*t1P*t1
                                                                      +8*t5*t1P*t1*t33P*t3P*t4P*t7+8*t5*t1P*t1*t33P*t3P*t4P*t6+8*t5*t5*t1P*t1*t33P*t3P
                                                                      *t4P-2*t7*t32kP*k*t4P*t5*(t2*t2)*t4-2*t7*t7*t32kP*k*t4P*(t2*t2)*t4+4*t7*t32kP*k*t6*t2P
                                                                      *t1+8*t7*t32kP*k*t6*t2P*t3+4*t7*t32kP*k*t6*t2P*t4+4*t7*t32kP*k*t5*t1P*t2+2*t7*t32kP*k*t5
                                                                      *t1P+2*t7*t32kP*k*t6*t2P+4*t7*t32kP*k*t5*t1P*(t2*t2)*t4-4*t7*t32kP*k*t4P*t6*t2+6*t7*t32kP
                                                                      *k*t6*t2P*(t3*t3)+4*t7*t32kP*k*t5*t1P*t4+3*t4P*t5*t7*t32kP*(t1*t1)*(t2*t2)*t4*(t3*t3)-8*t7
                                                                      *t32kP*k*t4P*t5*(t1*t1)*(t2*t2)*t3*t4+32*t7*t32kP*k*t4P*t1*t2*t3+12*t7*t32kP*k*t6*t2P*t1
                                                                      *(t3*t3)*(t4*t4)*t2-6*t7*t32kP*k*t4P*t6*(t2*t2)*(t3*t3)*t4-8*t7*t32kP*k*t4P*t6*(t2*t2)*t3*t4
                                                                      +16*t6*t2P*t2*t4*t3P*k*t33P*t5*t1P*t1+18*t6*t2P*t2*(t4*t4)*t3P*k*(t3*t3)*t5*t1P*t1+36*t4P
                                                                      *t1*t3P*k*(t3*t3)*t5*t1P*t2*t4+2*t6*t2P*t2*t3P*k*t4P+16*t5*t1P*t7*t32kP*k*t3*t4+16*t5*t1P
                                                                      *t7*t32kP*k*t3*t2+32*t5*t1P*t7*t32kP*k*t3*t2*t4+6*t5*t1P*t7*t32kP*k*(t3*t3)+12*t5*t1P*t7
                                                                      *t32kP*k*(t3*t3)*t4+12*t5*t1P*t7*t32kP*k*(t3*t3)*t2+24*t5*t1P*t7*t32kP*k*(t3*t3)*t2*t4-3*t7
                                                                      *t32kP*(t2*t2)*(t3*t3)*t5*t1P*(t4*t4)+8*t7*t32kP*(t1*t1)*k*t3*t4P*t4-12*t4P*t6*t4*t3P*k*t3
                                                                      *t5*t1P*(t2*t2)-8*t5*t1P*t2*t34P*t4*t3P*t4P-4*t4P*t2*t3P*k*k*t5*t1P*(t3*t3)-4*t6*t2P
                                                                      *t2*t4*t3P*k*k*t4P*t3+8*t4P*t2*t3P*t34P*t5*t5*t1P*t1+t4P*t7*t7*t32kP*k*k*(t1*t1)+2*t4P
                                                                      *(t1*t1)*t6*t2P*k*k*t7*t3P*t4+8*t7*t3P*t6*t2P*k*k*t2*t4P*t1*t3+4*t42kP*t5*t3P*k*k*t1*(t2
                                                                                                                                                            *t2)*(t3*t3)-2*t42kP*t6*t6*t1*t3P*k*k*(t2*t2)*(t3*t3)-2*t42kP*t5*t3P*k*k*t6*(t2*t2)-2*t42kP
                                                                      *t3P*k*k*t1*(t3*t3)-4*t42kP*t6*t1*t3P*k*k*t5+8*(t2*t2)*(t3*t3)*t7*t3P*t42kP*t1-4*t42kP*t2
                                                                      *t3P*t34P*t5*t5*(t1*t1)-2*t42kP*t7*t3P*k*k*t6*(t3*t3)+8*(t2*t2)*t33P*t42kP*t6*t3P*(t1*t1)-4
                                                                      *t42kP*t5*t1*t3P*k*(t2*t2)-2*t42kP*t6*t3P*k*k*(t3*t3)*t5+18*t42kP*t5*(t1*t1)*t3P*k*(t3*t3)
                                                                      *t6-4*t42kP*(t1*t1)*t2*t7*t3P*k*k*(t3*t3)*t6-t42kP*t6*t6*t3P*k*k*(t3*t3)-4*t6*t6*t22kP*t1*t3P
                                                                      *k*k*t4+8*t42kP*t5*t5*t1*t3P*k*t33P*(t2*t2)+8*t42kP*t1*t7*t7*t3P*k*t33P*(t2*t2)+36*t6*t6
                                                                      *t22kP*t4*t3P*k*(t3*t3)*t1-8*t33P*t4*t6*t2P*t3P*t4P-3*t6*t2P*t7*t32kP*(t1*t1)*t2*(t3
                                                                                                                                                        *t3)+12*t5*t1P*t7*t32kP*k*(t3*t3)*(t4*t4)*t2-18*t4P*t6*t6*t4*t3P*k*(t3*t3)*t2P-8*t34P*t4
                                                                      *t6*t2P*t3P*t5*t1P*t1-8*t33P*(t4*t4)*t6*t2P*t3P*t5*t1P*t1-16*t7*t32kP*k*t4P*t6*t2*t3-12
                                                                      *t7*t32kP*k*t4P*t6*t2*(t3*t3)-8*t34P*t4*t6*t2P*t3P*t4P*t1*t2+2*t4P*t6*t3P*k*k*t5*t1P
                                                                      *(t2*t2)*t1-8*t5*t1P*t2*t3P*k*k*t6*t2P*t1*t3*t4+4*t5*t5*t1P*(t2*t2)*t3P*k*k*t4P*t1*t3+2*t5
                                                                      *t5*t1P*(t2*t2)*t3P*k*k*t4P*t1+2*t7*t7*t33kP*k*(t1*t1)*(t2*t2)*t3-16*t6*t6*t2P*t2*t4*t3P
                                                                      *k*t33P*t4P*t1+4*t5*t5*t1P*t2*t3P*k*k*t4P*t1-4*t5*t1P*t2*t3P*k*k*t6*t2P*t1*(t3*t3)*t4
                                                                      +2*t5*t5*t1P*(t2*t2)*t3P*k*k*t4P*t1*(t3*t3)+8*t5*t5*t1P*t2*t3P*k*k*t4P*t1*t3*t4+16*t33P
                                                                      *t6*t2P*t3P*t4P*t7*t1+16*t33P*t6*t6*t2P*t3P*t4P*t1+4*t34P*t6*t6*t2P*t3P*t4P+4*t34P
                                                                      *t6*t2P*t3P*t4P*t5-8*t4P*t2*t4*t3P*k*k*t3*t6*t2P*t1-8*t5*t1P*t1*t2*t3P*(t3*t3)*t6*t2P
                                                                      *t4-4*t5*t1P*t1*t2*t3P*(t3*t3)*t6*t2P+4*t5*t1P*t1*(t2*t2)*t3P*(t3*t3)*t4P*t6+4*t4P*t2*t3P
                                                                      *t34P*t5*t6*t2P*(t1*t1)+8*t4P*t2*t3P*t33P*t5*t6*t2P*(t1*t1)+4*t4P*t2*t3P*(t3*t3)*t5*t6
                                                                      *t2P*(t1*t1)*t4-8*t6*t2P*t2*t4*t3P*k*k*t5*t1P*t3+2*t4P*t6*t3P*k*k*t5*t1P*t4+2*t4P*t6
                                                                      *t3P*k*k*t5*t1P*(t2*t2)*t4+4*t6*t6*t2P*(t1*t1)*t2*t3P*(t3*t3)*t4P-16*t7*t7*t32kP*t1*k*t3
                                                                      *t4P*t4-8*t4P*t5*t5*t3P*k*t1P*t33P+4*t34P*t4*t6*t2P*t3P*t4P*t7*t2+4*t4P*(t2*t2)*t3P
                                                                      *t34P*t5*t5*t1P*t1+16*t5*t1P*t2*t3P*k*t33P*t4P-24*t5*t5*t1P*t2*t3P*k*t3*t4P-2*t6*t2P
                                                                      *t2*(t4*t4)*t3P*k*k*t5*t1P+2*t6*t2P*t4*t3P*k*t4P*(t1*t1)*t2+4*t6*t2P*t4*t3P*k*t5*t1P
                                                                      *t1+4*t5*t1P*t3P*k*t4P*t2+2*t5*t1P*t3P*k*t4P-3*t5*t1P*t7*t32kP*t1*(t2*t2)*(t4*t4)*(t3
                                                                                                                                                         *t3)-16*t7*t32kP*t1*k*t3*t4P*t6*t4+4*t7*t32kP*t1*(t2*t2)*k*t5*t1P*t4+16*t33P*t4*t6*t6*t2P
                                                                      *t3P*t4P*t1*t2-6*t7*t32kP*t2*t33P*t5*t1P*(t4*t4)+3*t7*t7*t32kP*(t2*t2)*t33P*t4P*t4-3
                                                                      *t7*t32kP*(t2*t2)*t33P*t5*t1P*(t4*t4)-6*t7*t32kP*t2*(t3*t3)*t4P*t4+3*t7*t32kP*(t2*t2)*t33P
                                                                      *t4P*t5*t4-4*t5*t1P*(t2*t2)*t34P*t4*t3P*t4P+8*t6*t2P*t7*t32kP*k*(t1*t1)*t3+2*t4P*t6*t3P
                                                                      *k*k*(t3*t3)*t5*t1P+4*t4P*t6*t3P*k*k*t3*t5*t1P*t4+4*t4P*t5*t5*t3P*k*k*t1P*t2+16*t33P
                                                                      *t4*t6*t2P*t3P*t4P*t5*t1*t2-4*t5*t1P*t1*t2*t3P*(t3*t3)*t6*t2P*(t4*t4)+8*t34P*t4*t6*t2P
                                                                      *t3P*t4P*t5*t1*t2+4*t7*t32kP*k*t6*t2P*t4*t2+8*t7*t32kP*k*t6*t2P*t3*t2-18*t4P*t7*t3P*k
                                                                      *t5*t1P*(t2*t2)*(t3*t3)+8*t34P*t4*t6*t6*t2P*t3P*t4P*t1*t2+16*t7*t32kP*k*t6*t2P*t1*t3*(t4
                                                                                                                                                            *t4)*t2-16*t7*t32kP*k*t4P*t6*t1*(t2*t2)*t3*t4+16*t4P*t7*t32kP*k*(t2*t2)*t4*t3*t1+24*t4P*t7
                                                                      *t32kP*k*t2*t4*(t3*t3)*t1+12*t4P*t7*t32kP*k*(t2*t2)*t4*(t3*t3)*t1+8*t4P*(t1*t1)*t3P*k*t33P
                                                                      *t6*t2P*t4-36*t5*t5*t1P*t4*t3P*k*t4P*t2*(t3*t3)+8*t7*t32kP*k*t4P*t3+16*t7*t32kP*k*t4P
                                                                      *t1*t3+16*t7*t32kP*k*t4P*t2*t3+4*t6*t2P*t4*t3P*k*t4P*t1*t2+8*t34P*t4*t6*t6*t2P*t3P*t4P
                                                                      *t1+8*t6*t2P*t3P*k*t33P*t4P+4*(t3*t3)*t1*t3P*t4P*t6*t5*t1P+8*t4P*t7*t32kP*k*(t2*t2)
                                                                      *t4*t3*(t1*t1)+6*t4P*t7*t32kP*k*(t2*t2)*t4*(t3*t3)*(t1*t1)-16*t4P*t6*t6*t1*t2*t3P*k*t33P*t2P-16
                                                                      *t4P*t6*t1*t2*t3P*k*t33P*t5*t1P+8*t7*t7*t33kP*k*(t1*t1)*t3*t2*t4-36*t5*t5*t1P*t3P*k*(t3
                                                                                                                                                           *t3)*t4P*t1*t2+8*t5*t1P*t3P*k*t33P*t6*t2P*t2+8*t34P*t4*t6*t2P*t3P*t4P*t7*t1+8*t7*t32kP
                                                                      *t1*k*t3*t5*t1P*(t4*t4)+8*t5*t1P*t7*t32kP*k*t1*t3+16*t5*t1P*t7*t32kP*k*t1*t3*t4+6*t5*t1P
                                                                      *t7*t32kP*k*t1*(t3*t3)+12*t5*t1P*t7*t32kP*k*t1*(t3*t3)*t4+16*t33P*t6*t2P*t3P*t4P*t5*t1
                                                                      +4*t34P*t6*t2P*t3P*t4P*t7+2*t4P*t2*t4*t7*t3P*k*k*(t3*t3)*t6*t2P+4*t4P*t2*t4*t7*t3P
                                                                      *k*k*(t3*t3)*t5*t1P+2*t4P*(t2*t2)*t4*t7*t3P*k*k*(t3*t3)*t5*t1P-8*(t3*t3)*t6*t2P*t3P*t5*t1P
                                                                      *t2*t4-4*(t3*t3)*t6*t2P*t3P*t4P*(t1*t1)-8*(t3*t3)*t6*t2P*t3P*t5*t1P*t4*t1+4*t34P*t4*t6
                                                                      *t2P*t3P*t4P*t5*t2+4*(t2*t2)*(t3*t3)*t7*t3P*t4P*t5*t1P*t4+8*t34P*t4*t6*t2P*t3P*t4P
                                                                      *t5*t1+4*t6*t2P*t4*t3P*k*t4P*t1+2*t6*t2P*t4*t3P*k*t4P*t2-8*t6*t2P*t2*t4*t7*t3P*k*t33P
                                                                      *t4P*(t1*t1)+12*t7*t32kP*t4*k*(t3*t3)*t6*t2P+8*t7*t32kP*(t4*t4)*k*t3*t6*t2P+16*t7*t32kP*t4
                                                                      *k*t3*t6*t2P+2*t4P*t5*t5*t3P*k*k*(t3*t3)*t1P*t4*t1+4*t4P*t5*t5*t3P*k*k*t3*t1P*t1-18*t6
                                                                      *t2P*(t1*t1)*t3P*k*(t3*t3)*t4P*t5*t2-2*t6*t2P*(t1*t1)*t3P*k*k*(t3*t3)*t4P*t2-4*t6*t2P*t1
                                                                      *t3P*k*k*(t3*t3)*t4P*t2-4*t6*t2P*(t1*t1)*t3P*k*k*t3*t4P+12*t7*t32kP*k*t4P*(t1*t1)*t2*(t3
                                                                                                                                                            *t3)+6*t7*t32kP*k*t6*t2P*(t1*t1)*(t3*t3)*(t4*t4)*t2-6*t7*t32kP*k*t4P*t5*(t1*t1)*(t2*t2)*(t3*t3)
                                                                      *t4+12*t7*t32kP*k*t6*t2P*(t1*t1)*(t3*t3)*t4*t2-6*t7*t32kP*k*t4P*t6*(t1*t1)*(t2*t2)*(t3*t3)-6
                                                                      *t7*t32kP*k*t4P*t5*(t1*t1)*(t2*t2)*(t3*t3)+6*t7*t32kP*k*t6*t2P*(t1*t1)*(t3*t3)*t2-16*t6*t2P
                                                                      *t1*t3P*k*t33P*t4P*t5-4*t6*t6*t2P*t4*t3P*k*t4P*t1-2*t6*t2P*t4*t3P*k*t4P*t5*t2-12*t6
                                                                      *t2P*t4*t3P*k*t4P*t5*t3-4*t6*t2P*t4*t3P*k*t4P*t5*t1-18*t4P*t7*t3P*k*t6*t2P*(t3*t3)
                                                                      *t2-18*t4P*(t1*t1)*t7*t3P*k*(t3*t3)*t6*t2P*t2-16*t4P*t1*t7*t3P*k*t33P*t6*t2P*t2+6*t7*t32kP
                                                                      *k*t6*t2P*(t3*t3)*t2-6*t7*t32kP*k*t4P*t6*(t3*t3)-6*t7*t7*t32kP*k*t4P*(t3*t3)+4*t4P*t2*t4
                                                                      *t7*t3P*k*k*(t3*t3)*t6*t2P*t1-8*t4P*t6*t6*t2*t3P*k*t2P*t33P-16*t6*t2P*t4*t3P*k*t33P
                                                                      *t4P*t5*t1-6*t6*t2P*t7*t32kP*t1*(t3*t3)*(t4*t4)-18*t4P*t6*t1*(t2*t2)*t3P*k*(t3*t3)*t5*t1P
                                                                      *t4-8*t6*t2P*t4*t3P*k*t33P*t4P*t5*(t1*t1)-8*t33P*t6*t2P*t3P*t4P*(t1*t1)-16*t4P*t6*t2
                                                                      *t3P*k*t33P*t5*t1P-8*t5*t1P*(t2*t2)*t33P*t4*t3P*t4P-3*t6*t2P*t7*t32kP*(t1*t1)*(t3*t3)
                                                                      *(t4*t4)+12*t7*t7*t32kP*t1*t2*(t3*t3)*t4P+24*t7*t32kP*t1*k*(t3*t3)*t6*t2P*t4+12*t7*t32kP*t1
                                                                      *t2*(t3*t3)*t4P*t5*t4+2*t6*t2P*t4*t3P*k*t4P-2*t6*t2P*t4*t3P*k*t4P*t5*(t1*t1)-2*t6*t6*t2P
                                                                      *t4*t3P*k*t4P*(t1*t1)-24*t7*t7*t32kP*k*t4P*t1*t2*(t3*t3)+8*t5*t5*t1P*t2*t34P*t4*t3P*t4P
                                                                      +2*t4P*t5*t3P*k*k*t6*t2P*(t3*t3)*t2+6*t4P*t7*t7*t32kP*(t1*t1)*t2*t4*(t3*t3)+3*t4P*t7*t7*t32kP
                                                                      *(t1*t1)*(t2*t2)*t4*(t3*t3)+8*t5*t5*t1P*(t2*t2)*t33P*t4*t3P*t4P+2*t4P*t7*t3P*k*k*t5*t1P
                                                                      *(t3*t3)*t1+4*t5*t1P*t2*t7*t3P*k*k*t4P*t1*(t3*t3)-16*t5*t1P*t2*t33P*t4*t3P*t4P-4*t6*t2P
                                                                      *t2*t4*t3P*k*k*t5*t1P*(t3*t3)+2*t7*t32kP*k*t6*t2P*(t1*t1)*(t4*t4)-2*t7*t32kP*k*t4P*t5*(t1
                                                                                                                                                             *t1)*t4-2*t7*t7*t32kP*k*t4P*(t1*t1)*t4-2*t7*t32kP*k*t4P*t6*(t1*t1)*t4+2*t7*t32kP*k*t5*t1P
                                                                      *(t4*t4)*t1+12*t6*t2P*t3P*k*t3*t4P+4*t4P*t5*t5*(t2*t2)*t4*t3P*k*k*t1P*t3-4*t4P*t4*t3P
                                                                      *k*k*t6*t2P*t3-2*t4P*t4*t3P*k*k*t5*t1P-8*t4P*t7*t7*t32kP*k*(t2*t2)*t3-12*t4P*t7*t7*t32kP
                                                                      *k*t2*(t3*t3)-6*t4P*t7*t7*t32kP*k*(t2*t2)*(t3*t3)-6*t6*t2P*t7*t32kP*t1*(t3*t3)-3*t6*t2P*t7
                                                                      *t32kP*(t1*t1)*(t3*t3)-6*t6*t2P*t7*t32kP*(t1*t1)*(t3*t3)*t4-4*t4P*t4*t3P*k*k*t5*t1P*t2-2
                                                                      *t4P*t4*t3P*k*k*t6*t2P+8*(t2*t2)*t33P*t7*t3P*t4P*t5*t1P-4*t4P*t4*t3P*k*k*t5*t1P*t3
                                                                      +3*t4P*t6*t7*t32kP*(t3*t3)+6*t4P*t6*t7*t32kP*(t3*t3)*t1+3*t4P*t6*t7*t32kP*t33P-3*t7*t32kP
                                                                      *t1*t33P*t5*t1P*(t4*t4)-2*t4P*t4*t3P*k*k*t6*t2P*(t3*t3)-36*t4P*t7*t3P*k*t5*t1P*t2*(t3
                                                                                                                                                         *t3)-18*t4P*t7*t3P*k*t6*t2P*(t3*t3)*t4+4*(t2*t2)*t34P*t7*t3P*t4P*t5*t1P+8*t2*(t3*t3)*t7
                                                                      *t3P*t4P*t6*t2P*t1*t4-4*t5*t1P*t1*t34P*t3P*t4P+36*t5*t1P*t2*t3P*k*(t3*t3)*t4P+2*t4P
                                                                      *t5*t5*(t2*t2)*t4*t3P*k*k*t1P*(t3*t3)+16*t2*t33P*t7*t3P*t4P*t6*t2P*t1+4*t4P*t5*(t1*t1)
                                                                      *t4*t3P*(t3*t3)*t6*t2P+4*t4P*t5*t5*t1*t4*t3P*(t3*t3)*t1P+8*t4P*t5*t1*t4*t3P*(t3*t3)*t6
                                                                      *t2P-4*t34P*t6*t2P*t3P*t5*t1P*t1-4*t2*(t3*t3)*t3P*t4P*t6*t2P*(t1*t1)*t4+4*t6*t6*t2P
                                                                      *t2*t4*t3P*k*k*t4P*t3-8*t4P*t4*t3P*(t3*t3)*t6*t2P*t1-4*t4P*t4*t3P*(t3*t3)*t5*t1P-4*t4P
                                                                      *t4*t3P*(t3*t3)*t6*t2P+3*t7*t32kP*(t2*t2)*t33P*t4P*t6-6*t7*t32kP*(t2*t2)*t33P*t5*t1P
                                                                      *t4+3*t7*t32kP*(t2*t2)*t33P*t4P*t5+6*t7*t32kP*t2*(t3*t3)*t4P*t6*t4-6*t7*t32kP*t2*(t3*t3)
                                                                      *t5*t1P*(t4*t4)-6*t7*t32kP*t2*t33P*t4P*t4-6*t7*t32kP*(t2*t2)*(t3*t3)*t5*t1P*t4-3*t7*t32kP
                                                                      *(t2*t2)*t33P*t5*t1P-12*t7*t32kP*t2*t33P*t5*t1P*t4-6*t7*t32kP*t2*t33P*t6*t2P*t4-18*t4P
                                                                      *t1*t7*t3P*k*(t3*t3)*t5*t1P*(t2*t2)*t4-8*t4P*t1*t7*t3P*k*t33P*t5*t1P*(t2*t2)+4*t5*t1P*t34P
                                                                      *t3P*t4P*t6-2*t7*t7*t33kP*t4*(t3*t3)*(t1*t1)-t7*t7*t33kP*(t4*t4)*(t3*t3)*(t1*t1)+2*t4P*t6*t6
                                                                      *t3P*k*k*(t3*t3)*t2P*t2-2*t4P*t3P*k*k*t5*t1P-4*t4P*t3P*k*k*t5*t1P*t3-32*t7*t7*t32kP
                                                                      *k*t4P*t1*t2*t3+8*t5*t5*t1P*t2*t3P*k*k*t4P*t1*t3-2*t5*t1P*t2*t3P*k*k*t6*t2P*t1*(t4*t4)-36
                                                                      *t6*t2P*t4*t3P*k*(t3*t3)*t4P*t5*t1+18*t4P*t1*t3P*k*(t3*t3)*t5*t1P*(t2*t2)*t4+8*t4P*t1*t3P
                                                                      *k*t33P*t5*t1P*(t2*t2)+6*t7*t32kP*(t4*t4)*k*(t3*t3)*t6*t2P*t2+4*t6*t2P*t2*t3P*k*t4P*t1-2
                                                                      *t5*t5*t3P*t34P*t42kP*(t1*t1)-2*t5*t5*t12kP*t2*t3P*k*k*(t4*t4)+16*t42kP*t6*t6*t2*t3P*k
                                                                      *t33P*t1+16*t5*t5*t12kP*t4*t3P*k*t2*t33P-4*t42kP*t6*(t1*t1)*t3P*k*k*t5*t2+2*t42kP*t1*t7
                                                                      *t7*t3P*k*(t2*t2)+4*(t2*t2)*t34P*t42kP*t6*t3P-4*t4P*t4*t32kP*k*k*t7*t1*t2*t3-8*t42kP*t2
                                                                      *t3P*(t3*t3)*t5*t6-4*t42kP*(t1*t1)*t7*t3P*k*t2+12*t7*t32kP*t1*t33P*t4P*t5*t2+3*t7*t32kP
                                                                      *(t1*t1)*t33P*t4P*t5+3*t7*t32kP*(t1*t1)*t33P*t4P*t6+2*t6*t2P*t2*t3P*k*t5*t1P+8*t4P
                                                                      *t7*t32kP*k*t4*t3+2*t5*t1P*t3P*k*t4P*t4+2*t5*t5*t1P*t1*t4*t3P*k*k*t4P+8*t5*t1P*t3P
                                                                      *k*t33P*t6*t2P+24*t4P*t1*t3P*k*t5*t1P*t2*t3+4*(t2*t2)*(t3*t3)*t4P*t6*t3P*t5*t1P+8*t2
                                                                      *(t3*t3)*t4P*t6*t3P*t5*t1P+12*t5*t1P*t3P*k*t3*t6*t2P+18*t5*t1P*t3P*k*(t3*t3)*t6*t2P-16
                                                                      *t6*t2P*t2*t4*t3P*k*t33P*t4P*t5*t1-4*t6*t2P*t2*t34P*t3P*t5*t1P-8*t6*t2P*t2*t34P*t3P
                                                                      *t4P*t1+2*t6*t2P*(t1*t1)*t3P*k*k*(t3*t3)*t4P*t5*t2*t4+4*t6*t2P*(t1*t1)*t3P*k*k*t3*t4P*t5
                                                                      *t2*t4-8*t6*t2P*t1*t3P*k*k*t3*t4P*t2+8*t6*t2P*t1*t3P*k*k*t3*t4P*t5*t2+4*t6*t2P*t1*t3P
                                                                      *k*k*(t3*t3)*t4P*t5+4*t6*t2P*(t1*t1)*t3P*k*k*t3*t4P*t5+8*t5*t1P*t33P*t3P*t4P*t6-36*t4P
                                                                      *t1*t7*t3P*k*(t3*t3)*t5*t1P*t2*t4+18*t6*t2P*t2*t4*t3P*k*(t3*t3)*t4P+36*t6*t2P*t2*t4*t3P
                                                                      *k*(t3*t3)*t5*t1P+12*t6*t2P*t2*(t4*t4)*t3P*k*t3*t5*t1P-2*t7*t7*t33kP*(t4*t4)*(t3*t3)*t1+18
                                                                      *t5*t1P*t3P*k*(t3*t3)*t6*t2P*t2+4*t5*t1P*t1*(t2*t2)*t34P*t3P*t4P*t6+36*t6*t2P*t2*t4*t3P
                                                                      *k*(t3*t3)*t4P*t1+8*t6*t2P*t1*t3P*k*k*t3*t4P*t5*t2*t4+4*t6*t2P*t1*t3P*k*k*(t3*t3)*t4P*t5
                                                                      *t4-24*t7*t32kP*k*t4P*t6*t1*t2*(t3*t3)*t4-24*t7*t32kP*k*t4P*t5*t1*t2*(t3*t3)*t4+24*t7*t32kP
                                                                      *k*t4P*t1*t2*(t3*t3)-2*t4P*t3P*k*k*t5*t1P*(t3*t3)*t1+2*t6*t2P*(t1*t1)*t3P*k*k*t4P*t5*t2
                                                                      +12*t4P*(t1*t1)*t3P*k*t6*t2P*t3*t2+2*t7*t32kP*(t1*t1)*t2*k*t6*t2P*(t4*t4)+8*t5*t1P*(t4*t4)
                                                                      *t3P*k*t6*t2P*t1*t33P+24*t5*t1P*t4*t3P*k*t6*t2P*t1*t3+24*t5*t1P*t4*t3P*k*t4P*t1*t2
                                                                      *t3-4*t5*t1P*t2*t3P*k*k*t4P*t1*(t3*t3)+2*t7*t32kP*k*t4P*t4-2*t7*t7*t32kP*k*t4P*t4-4*t5
                                                                      *t1P*t2*t3P*k*k*t4P*t1*t4+16*t5*t1P*t4*t3P*k*t6*t2P*t33P+4*(t3*t3)*(t1*t1)*t7*t3P*t4P
                                                                      *t6*t2P*t4+16*t2*t33P*t7*t3P*t4P*t5*t1P*t1-12*t7*t32kP*t1*t33P*t6*t2P*t4*t2-4*(t3*t3)
                                                                      *t3P*t4P*t5*t1P+4*t6*t2P*t1*t7*t3P*k*k*(t3*t3)*t4P*t4+4*(t2*t2)*(t3*t3)*t7*t3P*t4P*t5
                                                                      *t1P*t1-4*t5*t1P*t34P*t4*t3P*t4P*t1-2*t4P*t4*t3P*k*k*t5*t1P*(t2*t2)*(t3*t3)-4*t4P*t4
                                                                      *t3P*k*k*t5*t1P*(t2*t2)*t3-2*t4P*t5*t3P*k*t6*t2P*t2-2*t4P*t5*t5*t3P*k*t1P*(t2*t2)-18
                                                                      *t4P*t5*t5*t3P*k*t1P*(t3*t3)+3*t7*t7*t32kP*(t1*t1)*(t2*t2)*(t3*t3)*t4P+6*t4P*t7*t32kP*k
                                                                      *(t2*t2)*(t3*t3)-2*t5*t5*t1P*t1*(t2*t2)*t3P*k*t4P-16*t7*t7*t32kP*k*t4P*t1*(t2*t2)*t3-3*t7*t32kP
                                                                      *(t1*t1)*t33P*t6*t2P*t2+4*t7*t7*t33kP*k*t4*t3+4*t5*t5*t1P*t34P*t4*t3P*t4P*t1+8*(t3*t3)
                                                                      *t6*t2P*t3P*t4P*t5*t1-4*(t3*t3)*t6*t2P*t3P*t4P-6*t7*t32kP*t1*t33P*t6*t2P*(t4*t4)+6
                                                                      *t7*t32kP*t1*t33P*t4P*t5*t4-4*t5*t1P*t2*t34P*(t4*t4)*t3P*t6*t2P+2*t6*t2P*(t1*t1)*t7*t3P
                                                                      *k*k*(t3*t3)*t4P*t4+8*t7*t7*t33kP*k*t1*t3*t2+6*t7*t32kP*t1*t33P*t4P*t5*(t2*t2)*t4+6*t7*t7*t32kP
                                                                      *t1*t33P*t4P*(t2*t2)*t4+3*t4P*t7*t7*t32kP*(t2*t2)*(t3*t3)+4*(t3*t3)*t1*t7*t3P*t4P*t5*t1P
                                                                      *t4+8*t4P*t2*t3P*(t3*t3)*t5*t6*t2P*t1*t4+6*t7*t32kP*t1*t33P*t4P*t6*t4-36*t5*t1P*t4*t7*t3P
                                                                      *k*t4P*t2*(t3*t3)+3*t7*t32kP*(t1*t1)*t33P*t4P*t6*(t2*t2)*t4+36*t5*t1P*t4*t3P*k*t6*t2P*t1
                                                                      *(t3*t3)+18*t5*t1P*(t4*t4)*t3P*k*t6*t2P*(t3*t3)-36*t5*t1P*t4*t3P*k*t4P*t6*t2*(t3*t3)-18*t5
                                                                      *t1P*t4*t3P*k*t4P*t6*t1*(t3*t3)-18*t5*t5*t1P*t4*t3P*k*t4P*t1*(t3*t3)-2*t7*t32kP*(t1*t1)
                                                                      *(t2*t2)*k*t4P*t5*t4+4*t4P*t6*t6*t3P*k*k*t2P*t1*t4+8*t4P*t6*t6*t3P*k*k*t2P*t1*t3+12*t4P
                                                                      *t3P*k*t6*t2P*t3*t2+8*t4P*t3P*k*t6*t2P*t33P*t4-4*t4P*(t2*t2)*t3P*k*k*t5*t1P*t3-2*t4P
                                                                      *(t2*t2)*t3P*k*k*t5*t1P*(t3*t3)-18*t5*t1P*t4*t7*t3P*k*t4P*(t3*t3)-3*t4P*t7*t32kP*t4*(t3
                                                                                                                                                           *t3)-8*t4P*t5*t7*t32kP*k*t3*(t1*t1)-6*t4P*t5*t7*t32kP*k*(t3*t3)*(t1*t1)+8*t5*t1P*t7*t32kP
                                                                      *k*t3+4*t4P*(t2*t2)*t3P*t34P*t5*t5*t1P-24*t5*t5*t1P*t4*t3P*k*t4P*t2*t3-12*t5*t5*t1P*t4
                                                                      *t3P*k*t4P*t1*t3-4*t4P*t5*t5*t3P*k*t1P*t2*t4-2*t4P*t5*t5*t3P*k*t1P*(t2*t2)*t4-6*t7*t32kP
                                                                      *k*t4P*t5*(t2*t2)*(t3*t3)+2*t7*t32kP*k*t6*t2P*(t4*t4)-2*t7*t32kP*k*t4P*t5*t4-2*t7*t32kP*k
                                                                      *t4P*t6*t4-8*t7*t32kP*k*t4P*t5*(t2*t2)*t3+2*t7*t32kP*k*t5*t1P*(t4*t4)-2*t7*t32kP*(t1*t1)
                                                                      *(t2*t2)*k*t4P*t6*t4+6*t4P*t7*t7*t32kP*t1*(t3*t3)-12*t6*t2P*t7*t32kP*t1*t2*(t3*t3)*t4-24*t6
                                                                      *t6*t2P*t4*t3P*k*t3*t4P*t1-24*t6*t2P*t4*t3P*k*t3*t4P*t5*t1+8*t6*t2P*t2*(t4*t4)*t3P*k
                                                                      *t33P*t5*t1P*t1-8*t6*t6*t2P*t2*t4*t3P*k*t33P*t4P*(t1*t1)-18*t5*t5*t1P*t3P*k*(t3*t3)*t4P
                                                                      *t1*(t2*t2)+2*t4P*t5*(t1*t1)*t2*t4*t3P*k*k*t6*t2P+4*t4P*t5*t1*t2*t4*t3P*k*k*t6*t2P+4*t5*t5
                                                                      *t1P*t2*t3P*k*k*t4P*t1*(t3*t3)+4*t5*t5*t1P*t2*t3P*k*k*t4P*t1*(t3*t3)*t4-4*t5*t1P*t2*t3P
                                                                      *k*k*t6*t2P*t1*t4-18*t5*t5*t1P*t4*t3P*k*t4P*(t2*t2)*(t3*t3)+8*t5*t1P*(t4*t4)*t3P*k*t6*t2P
                                                                      *t33P-16*t5*t1P*t4*t3P*k*t4P*t6*t2*t33P-8*t5*t1P*t4*t3P*k*t4P*t6*t1*t33P-8*t6*t2P
                                                                      *t2*t3P*k*t33P*t4P*t5-4*t4P*t3P*k*k*t6*t2P*t1+24*t6*t2P*t2*t4*t3P*k*t3*t4P*t1-24*t6
                                                                      *t6*t2P*t2*t4*t3P*k*t3*t4P*t1-4*t5*t1P*t2*t3P*k*k*t6*t2P*t1*t3*(t4*t4)+4*t5*t5*t1P*(t2
                                                                                                                                                          *t2)*t3P*k*k*t4P*t1*t3*t4+2*t5*t5*t1P*(t2*t2)*t3P*k*k*t4P*t1*t4-4*t5*t1P*t2*t3P*k*k*t4P
                                                                      *t1-4*t5*t1P*t2*t3P*k*k*t6*t2P*t1*t3-4*t5*t1P*(t2*t2)*t3P*k*k*t4P*t1*t3-18*t6*t6*t2P*t2
                                                                      *t4*t3P*k*(t3*t3)*t4P-18*t6*t2P*t2*t4*t3P*k*(t3*t3)*t4P*t5-24*t6*t2P*t2*t4*t3P*k*t3*t4P
                                                                      *t5*t1+2*t4P*t6*t6*t3P*k*k*t2P*(t1*t1)+2*t4P*t6*t3P*k*k*t5*t1P*(t2*t2)*(t3*t3)*t4*t1+2*t4P
                                                                      *t6*t3P*k*k*t5*t1P*(t2*t2)*t4*t1+2*t4P*t6*t3P*k*k*t5*t1P*(t2*t2)*(t3*t3)*t1+12*t4P*t1*t3P
                                                                      *k*t5*t1P*(t2*t2)*t3+4*t5*t5*t1P*t1*t3P*(t3*t3)*t4P-2*t7*t32kP*k*t4P*t6*(t2*t2)-8*t7*t32kP
                                                                      *k*t4P*t6*(t2*t2)*t3-2*t7*t7*t32kP*k*t4P*(t1*t1)+2*t7*t32kP*k*t6*t2P*t2+2*t7*t32kP*k*t5*t1P
                                                                      *(t2*t2)+2*t7*t32kP*k*t5*t1P*t1+2*t7*t32kP*k*t6*t2P*(t1*t1)-4*t7*t7*t32kP*k*t4P*t1-4*t7*t7
                                                                      *t32kP*k*t4P*t2-4*t7*t32kP*k*t4P*t6*t1-8*t7*t32kP*k*t4P*t6*t3-4*t7*t32kP*k*t4P*t5*t2-4
                                                                      *t7*t32kP*k*t4P*t5*t1-8*t7*t7*t32kP*k*t4P*t3+2*t4P*t7*t3P*k*k*t6*t2P*(t3*t3)*t2-2*t7*t7
                                                                      *t33kP*(t1*t1)*t2*(t3*t3)-2*t7*t7*t33kP*t1*(t2*t2)*(t3*t3)+4*(t2*t2)*(t3*t3)*t7*t3P*t4P*t5*t1P
                                                                      *t4*t1+4*t7*t7*t33kP*k*(t1*t1)*t3*t2-12*t7*t7*t32kP*t1*k*(t3*t3)*t4P*t4-t7*t7*t33kP*(t1*t1)*(t2
                                                                                                                                                                   *t2)*(t3*t3)+4*t34P*t6*t6*t2P*t3P*t4P*(t1*t1)-4*t5*t1P*(t2*t2)*t34P*t4*t3P*t4P*t1+4*t5
                                                                      *t1P*(t2*t2)*t34P*t4*t3P*t4P*t6+8*t2*t34P*t7*t3P*t4P*t5*t1P*t1-16*t7*t7*t32kP*t1*k
                                                                      *t3*t4P+4*t5*t5*t3P*(t3*t3)*t4P*t1P*t4-8*t4P*t6*t6*t4*t3P*k*t33P*t2P-6*t7*t32kP*t4
                                                                      *k*(t3*t3)*t4P*t5-6*t7*t7*t32kP*t4*k*(t3*t3)*t4P-16*t4P*t7*t3P*k*t5*t1P*t2*t33P+2*t7*t7
                                                                      *t33kP*k*(t1*t1)*t3+6*t7*t32kP*t1*k*(t3*t3)*t5*t1P*(t4*t4)-18*t6*t2P*t2*t4*t7*t3P*k*(t3*t3)
                                                                      *t4P-8*t7*t7*t32kP*(t1*t1)*k*t3*t4P-12*t7*t7*t32kP*t1*k*(t3*t3)*t4P+8*t5*t1P*t1*(t2*t2)*t33P
                                                                      *t3P*t4P*t6-8*t5*t1P*t1*t2*t34P*t3P*t4P+8*(t2*t2)*t33P*t7*t3P*t4P*t5*t1P*t1-6*t7
                                                                      *t7*t32kP*(t1*t1)*k*(t3*t3)*t4P+4*t5*t1P*t1*t2*t3P*k*t4P+18*t5*t1P*t1*t3P*k*(t3*t3)*t4P-8
                                                                      *t5*t1P*t1*t3P*k*t33P*t4P*t6-3*t4P*t7*t32kP*(t1*t1)*(t2*t2)*(t3*t3)-6*t4P*t6*t7*t32kP
                                                                      *k*(t1*t1)*t4*(t3*t3)-4*t34P*(t4*t4)*t6*t2P*t3P*t5*t1P*t1+4*t5*t1P*(t2*t2)*t34P*t4*t3P
                                                                      *t4P*t7+8*t5*t5*t1P*(t2*t2)*t33P*t4*t3P*t4P*t1-8*t4P*t4*t3P*k*k*t5*t1P*t2*t3+4*t5*t5
                                                                      *t1P*(t2*t2)*t34P*t4*t3P*t4P*t1-4*t5*t1P*t1*(t2*t2)*t34P*t3P*t4P-4*t7*t32kP*t1*(t2
                                                                                                                                                      *t2)*k*t4P*t6*t4+2*t7*t32kP*(t1*t1)*(t2*t2)*k*t4P*t4+8*t7*t32kP*t1*t2*k*t4P*t4-2*t7*t32kP
                                                                      *(t1*t1)*(t2*t2)*k*t4P*t6-8*t7*t32kP*t1*t2*k*t4P*t5+4*t5*t1P*t34P*t4*t3P*t4P*t6*t1+8*t4P
                                                                      *t6*t2*t4*t3P*(t3*t3)*t5*t1P+4*t4P*t6*t6*t2*t4*t3P*(t3*t3)*t2P-36*t6*t2P*t2*t4*t7*t3P*k
                                                                      *(t3*t3)*t4P*t1+4*t2*t34P*t7*t3P*t4P*t6*t2P*(t1*t1)+8*t2*t33P*t7*t3P*t4P*t6*t2P*(t1
                                                                                                                                                       *t1)+8*t5*t5*t1P*t2*t34P*t4*t3P*t4P*t1-8*t5*t1P*t1*(t2*t2)*t33P*t3P*t4P+4*t34P*t6*t2P
                                                                      *t3P*t4P*t5*(t1*t1)+4*t34P*t6*t2P*t3P*t4P*t7*(t1*t1)+8*t2*t34P*t4P*t6*t3P*t5*t1P
                                                                      +4*t2*(t3*t3)*t7*t3P*t4P*t6*t2P*(t1*t1)*t4+4*(t2*t2)*t34P*t7*t3P*t4P*t5*t1P*t1-8*t7*t7
                                                                      *t32kP*k*t4P*(t1*t1)*(t2*t2)*t3-4*t34P*t4*t6*t2P*t3P*t4P*(t1*t1)*t2+6*t7*t7*t32kP*(t1*t1)
                                                                      *t2*(t3*t3)*t4P+6*t7*t7*t32kP*t1*(t2*t2)*(t3*t3)*t4P+8*t4P*t7*t32kP*k*(t2*t2)*t3-12*t7*t32kP
                                                                      *t1*t2*(t3*t3)*t4P+8*t4P*t2*t3P*(t3*t3)*t5*t5*t1P*t4*t1+16*t4P*t2*t3P*t33P*t5*t5*t1P
                                                                      *t1-16*t33P*t4*t6*t2P*t3P*t5*t1P*t1-8*t33P*t4*t6*t2P*t3P*t4P*(t1*t1)*t2+2*t4P*t6*t6
                                                                      *t3P*k*k*(t3*t3)*t2P+4*t4P*t6*t6*t3P*k*k*t3*t2P*t4+8*t4P*t6*t3P*k*k*t3*t5*t1P*t2+4*t4P
                                                                      *t6*t3P*k*k*t3*t5*t1P+4*t4P*t6*t6*t3P*k*k*t3*t2P-4*t34P*t4*t6*t2P*t3P*t4P*(t1*t1)-6
                                                                      *t7*t7*t32kP*(t1*t1)*k*(t3*t3)*t4P*t4+2*t5*t1P*t1*t3P*k*t6*t2P-6*t4P*t7*t32kP*(t1*t1)*t2
                                                                      *(t3*t3)+4*t4P*(t2*t2)*t3P*(t3*t3)*t5*t5*t1P*t4*t1+2*t6*t6*t2P*t2*t4*t3P*k*k*t4P+4*t7*t32kP
                                                                      *t1*t2*k*t5*t1P+4*t7*t32kP*t1*t2*k*t6*t2P-4*t7*t32kP*t1*(t2*t2)*k*t4P*t6+2*t7*t32kP*(t1*t1)
                                                                      *(t2*t2)*k*t4P-2*t6*t2P*t2*t4*t3P*k*k*t4P*(t3*t3)+6*t4P*t5*t7*t32kP*t1*(t2*t2)*t4*(t3*t3)
                                                                      +4*t2*(t3*t3)*t7*t3P*t4P*t6*t2P*(t1*t1)+8*t4P*t6*t6*t4*t3P*(t3*t3)*t2P*t1+4*t4P*t6*t4*t3P
                                                                      *(t3*t3)*t5*t1P+4*t4P*t6*t6*t4*t3P*(t3*t3)*t2P-16*t7*t7*t32kP*k*t4P*(t1*t1)*t2*t3*t4-12*t7
                                                                      *t7*t32kP*k*t4P*(t1*t1)*t2*(t3*t3)*t4+8*t33P*t4*t6*t2P*t3P*t4P*t5*(t1*t1)+2*t5*t1P*t1*t4
                                                                      *t7*t3P*k*k*t4P*(t3*t3)+16*t5*t5*t1P*t2*t33P*t4*t3P*t4P+2*t6*t2P*t2*t4*t3P*k*k*t4P
                                                                      *t5+3*t7*t7*t32kP*(t1*t1)*t4*(t3*t3)*t4P+8*t33P*t4*t6*t6*t2P*t3P*t4P*(t1*t1)+2*t5*t1P*t1
                                                                      *t2*t3P*k*t6*t2P*(t4*t4)-4*t5*t1P*t1*t2*t3P*k*t4P*t6*t4+16*t5*t1P*t2*t33P*t4*t3P*t4P
                                                                      *t6+16*t5*t1P*t2*t33P*t4*t3P*t4P*t7-16*t7*t32kP*t1*k*t3*t4P*t6+8*t4P*t1*t2*t34P*t4*t7
                                                                      *t3P*t5*t1P+24*t5*t1P*t2*t3P*k*t3*t4P*t4-12*t4P*t5*t5*t3P*k*t1P*t3-2*t4P*t5*t5*t3P
                                                                      *k*t1P*t4-8*t5*t1P*t2*t33P*(t4*t4)*t3P*t6*t2P-8*t5*t1P*t2*t34P*t4*t3P*t6*t2P-8*t4P
                                                                      *t6*t7*t32kP*k*(t1*t1)*t4*t3-16*t5*t1P*t2*t33P*t4*t3P*t6*t2P-6*t4P*t7*t32kP*(t3*t3)*t1
                                                                      +8*t5*t1P*t3P*k*t33P*t4P-32*t42kP*t2*t3P*t33P*t5*t6*t1-2*t4P*t32kP*k*k*t7*t1*t3-4*t5
                                                                      *t5*t12kP*t2*t34P*t3P+8*t42kP*t2*t3P*k*t33P+8*t2*(t3*t3)*t3P*t42kP*t6-16*t4P*t1*t7
                                                                      *t3P*k*t33P*t5*t1P*t2-8*t4P*t1*t7*t3P*k*t33P*t5*t1P*t4-8*t4P*(t1*t1)*t7*t3P*k*t33P
                                                                      *t6*t2P+4*t7*t32kP*(t1*t1)*t2*k*t4P+4*t7*t32kP*t1*(t2*t2)*k*t4P-6*t7*t32kP*t1*t33P*t4P
                                                                      +2*t5*t1P*t1*t3P*k*t4P+16*t4P*t7*t32kP*k*t4*t3*t1+8*t4P*(t2*t2)*t3P*t33P*t5*t5*t1P
                                                                      +16*t6*t2P*t7*t32kP*k*(t1*t1)*t3*t4+6*t4P*t7*t32kP*k*(t1*t1)*(t3*t3)+4*t7*t32kP*t1*(t2*t2)
                                                                      *k*t4P*t4+4*t7*t32kP*(t1*t1)*t2*k*t4P*t4+4*t7*t32kP*t1*t2*k*t5*t1P*(t4*t4)+6*t4P*t7*t32kP
                                                                      *k*t4*(t3*t3)*(t2*t2)-4*(t2*t2)*(t3*t3)*t3P*t4P*t5*t1P*t4*t1+12*t6*t2P*t7*t32kP*k*(t1*t1)*(t3
                                                                                                                                                                 *t3)*t4-18*t4P*(t1*t1)*t7*t3P*k*(t3*t3)*t6*t2P*t4-16*t4P*t1*t7*t3P*k*t33P*t6*t2P*t4-16
                                                                      *t4P*t1*t7*t3P*k*t33P*t5*t1P*t2*t4-16*t4P*t7*t7*t32kP*k*t2*t4*t3-32*t4P*t7*t7*t32kP*k
                                                                      *t2*t4*t3*t1-8*t4P*t1*t7*t3P*k*t33P*t5*t1P-18*t4P*t1*t7*t3P*k*(t3*t3)*t5*t1P*t4+8*t5*t1P
                                                                      *t1*t2*t3P*(t3*t3)*t4P*t6+4*(t3*t3)*t1*t7*t3P*t4P*t5*t1P-4*t5*t1P*t1*t2*t3P*k*t4P*t6-4
                                                                      *t5*t5*t1P*t1*t2*t3P*k*t4P-8*t4P*t7*t7*t32kP*k*(t2*t2)*t4*t3-16*t4P*t7*t7*t32kP*k*(t2*t2)
                                                                      *t4*t3*t1-12*t4P*t7*t7*t32kP*k*t2*t4*(t3*t3)-24*t4P*t7*t7*t32kP*k*t2*t4*(t3*t3)*t1-6*t4P*t7
                                                                      *t7*t32kP*k*(t2*t2)*t4*(t3*t3)-12*t4P*t7*t7*t32kP*k*(t2*t2)*t4*(t3*t3)*t1+12*t4P*t7*t32kP*k
                                                                      *t4*(t3*t3)*t2+16*t4P*t7*t32kP*k*t4*t3*t2+6*t4P*t7*t32kP*k*t4*(t3*t3)+12*t4P*t7*t32kP*k*t4
                                                                      *(t3*t3)*t1-8*t7*t7*t32kP*t4*k*t3*t4P-3*t4P*t7*t32kP*t4*t33P-8*(t2*t2)*t33P*t3P*t4P*t5
                                                                      *t1P-4*(t2*t2)*t34P*t3P*t4P*t5*t1P-8*t2*(t3*t3)*t3P*t4P*t6*t2P*t1*t4+6*t5*t1P*t7*t32kP
                                                                      *k*(t2*t2)*(t4*t4)*(t3*t3)-4*t6*t2P*(t4*t4)*t3P*k*k*t3*t5*t1P+12*t5*t1P*t3P*k*t3*t4P*t4-4
                                                                      *t6*t2P*t4*t3P*k*k*(t3*t3)*t5*t1P-8*t6*t2P*t4*t3P*k*k*t3*t5*t1P-8*t4P*(t1*t1)*t7*t3P
                                                                      *k*t33P*t6*t2P*t4+8*(t3*t3)*t1*t7*t3P*t4P*t6*t2P+6*t7*t7*t32kP*t2*t33P*t4*t4P*(t1*t1)
                                                                      +2*t6*t2P*t2*t3P*k*t4P*(t1*t1)-2*t7*t7*t32kP*(t1*t1)*(t2*t2)*k*t4P+2*t4P*t6*t3P*k*k*(t3
                                                                                                                                                           *t3)*t5*t1P*(t2*t2)*t4-18*t6*t2P*t4*t3P*k*t4P*t5*(t3*t3)-8*t5*t1P*t4*t7*t3P*k*t4P*t33P-8
                                                                      *t5*t1P*t4*t7*t3P*k*t4P*(t2*t2)*t33P-8*t7*t7*t32kP*t1*t2*k*t4P-8*t7*t32kP*t1*t2*k*t4P
                                                                      *t6-6*t7*t32kP*(t1*t1)*k*(t3*t3)*t4P*t6-8*t4P*t5*t7*t32kP*k*(t1*t1)*t4*t3-12*t4P*t5*t7*t32kP
                                                                      *k*t1*t4*(t3*t3)+6*t7*t7*t32kP*(t1*t1)*t33P*t4P*t2-2*t6*t2P*t3P*k*k*t4P*(t3*t3)+6*t7*t32kP
                                                                      *(t1*t1)*t33P*t4P*t6*t2-16*t5*t1P*t4*t7*t3P*k*t4P*t2*t33P-6*t7*t32kP*(t1*t1)*t33P*t6
                                                                      *t2P*t4*t2+6*t7*t32kP*(t1*t1)*t33P*t4P*t5*t2-3*t7*t32kP*t1*(t2*t2)*(t3*t3)*t5*t1P-6*t7*t32kP
                                                                      *t1*t2*(t3*t3)*t5*t1P-12*t7*t32kP*t1*t2*(t3*t3)*t5*t1P*t4-6*t7*t32kP*t4*k*(t3*t3)*t4P*t6-2
                                                                      *t6*t6*t2P*t4*t3P*k*t4P-2*t6*t2P*t4*t3P*k*t4P*t5+12*t5*t1P*(t2*t2)*t3P*k*t3*t4P*t4
                                                                      +6*t6*t2P*t7*t32kP*k*(t1*t1)*(t4*t4)*(t3*t3)-4*t4P*t4*t3P*(t3*t3)*t5*t1P*t1-4*t4P*t4*t3P
                                                                      *(t3*t3)*t6*t2P*(t1*t1)+12*t6*t2P*t7*t32kP*k*t1*(t4*t4)*(t3*t3)+6*t4P*t7*t7*t32kP*t4*(t3*t3)
                                                                      *t1*(t2*t2)-4*t5*t1P*t34P*t4*t3P*t4P-4*t4P*t5*t1*t3P*k*t6*t2P*t2+2*t5*t1P*t1*(t2*t2)
                                                                      *t3P*k*t4P*t4-4*t5*t5*t1P*t1*t2*t3P*k*t4P*t4+3*t7*t32kP*(t1*t1)*t33P*t4P*t5*(t2*t2)*t4
                                                                      +6*t4P*t6*t7*t32kP*t1*t4*(t3*t3)+3*t4P*t6*t7*t32kP*(t1*t1)*t4*(t3*t3)+2*t5*t1P*t3P*k*t4P
                                                                      *(t2*t2)-4*t6*t2P*(t1*t1)*t3P*k*k*t3*t4P*t4-12*t6*t6*t2P*t4*t3P*k*t3*t4P*(t1*t1)-12*t6*t2P
                                                                      *t4*t3P*k*t3*t4P*t5*(t1*t1)+4*t4P*t6*t6*t3P*k*k*t2P*t1*t4*t2+8*t4P*t6*t6*t3P*k*k*t2P
                                                                      *t1*t3*t4*t2+8*t4P*t6*t6*t3P*k*k*t2P*t1*t3*t2-6*t4P*t5*t7*t32kP*k*(t2*t2)*t4*(t3*t3)-12*t4P
                                                                      *t5*t7*t32kP*k*(t2*t2)*t4*(t3*t3)*t1-4*t4P*t3P*k*k*t6*t2P*t1*t4*t2-4*t4P*t3P*k*k*t6*t2P
                                                                      *t1*t2-4*t7*t32kP*(t1*t1)*t2*k*t4P*t5-8*t4P*t6*t7*t32kP*k*(t1*t1)*(t2*t2)*t4*t3-12*t4P*t6*t7
                                                                      *t32kP*k*(t1*t1)*t2*t4*(t3*t3)-6*t4P*t6*t7*t32kP*k*(t1*t1)*(t2*t2)*t4*(t3*t3)+12*t4P*t6*t7*t32kP
                                                                      *t1*t2*(t3*t3)+8*t33P*t4*t6*t6*t2P*t3P*t4P+4*(t3*t3)*t6*t2P*t3P*t4P*t7+4*(t3*t3)*t6*t2P
                                                                      *t3P*t4P*t5*(t1*t1)+4*(t3*t3)*t6*t6*t2P*t3P*t4P+4*(t3*t3)*t6*t2P*t3P*t4P*t5-4*(t3*t3)
                                                                      *t6*t2P*t3P*t5*t1P*t2-4*(t3*t3)*t6*t2P*t3P*t5*t1P+4*(t3*t3)*t6*t6*t2P*t3P*t4P*t2-6
                                                                      *t7*t32kP*t1*t33P*t4P*t4+3*t7*t32kP*(t1*t1)*t33P*t4P*t5*t4-6*t7*t32kP*(t1*t1)*t33P*t4P
                                                                      *t2*t4+6*t7*t32kP*t1*t33P*t4P*t6*(t2*t2)*t4-3*t7*t32kP*(t1*t1)*t33P*t4P*(t2*t2)*t4+12*t7
                                                                      *t32kP*t1*t33P*t4P*t6*t2*t4-4*t7*t7*t32kP*(t1*t1)*t2*k*t4P-4*t7*t7*t32kP*t1*(t2*t2)*k*t4P-4
                                                                      *t7*t32kP*(t1*t1)*t2*k*t4P*t6-4*t7*t32kP*t1*(t2*t2)*k*t4P*t5+8*t33P*t4*t6*t2P*t3P*t4P
                                                                      *t7-16*t6*t2P*t2*t33P*t3P*t4P*t1+3*t7*t32kP*(t1*t1)*t33P*t4P*t6*t4+16*t4P*t2*t3P*t33P
                                                                      *t5*t6*t2P*t1+8*t33P*t4*t6*t2P*t3P*t4P*t5-16*t5*t5*t1P*t2*t3P*k*t33P*t4P-18*t6*t2P
                                                                      *t2*t4*t7*t3P*k*(t3*t3)*t4P*(t1*t1)+12*t7*t32kP*t1*t33P*t4P*t5*t2*t4+3*t4P*t6*t7*t32kP
                                                                      *t4*t33P+16*t6*t6*t2P*t2*t33P*t3P*t4P*t1+4*t6*t6*t2P*t2*t34P*t3P*t4P-3*t4P*t7*t32kP
                                                                      *(t1*t1)*(t3*t3)-16*t4P*t6*t7*t32kP*k*t2*t4*t3+4*t5*t1P*t1*t2*t3P*k*t6*t2P*t4-8*t5*t1P*t4
                                                                      *t3P*k*t4P*t6*(t2*t2)*t33P-12*t6*t6*t2P*t2*t4*t3P*k*t3*t4P*(t1*t1)-12*t6*t2P*t2*t4*t3P
                                                                      *k*t3*t4P*t5*(t1*t1)+8*t6*t2P*t2*t4*t3P*k*t33P*t4P*(t1*t1)-4*t7*t7*t33kP*t4*(t3*t3)*t2-8
                                                                      *t7*t7*t33kP*t4*(t3*t3)*t1*t2+18*t4P*t3P*k*t6*t2P*(t3*t3)*t2+18*t4P*(t1*t1)*t3P*k*(t3*t3)
                                                                      *t6*t2P*t2+16*t4P*t1*t3P*k*t33P*t6*t2P*t2-4*t4P*t2*t4*t3P*k*k*(t3*t3)*t6*t2P*t1-2*t7
                                                                      *t7*t33kP*(t4*t4)*(t3*t3)*t2-4*t7*t7*t33kP*(t4*t4)*(t3*t3)*t1*t2+4*t6*t2P*t1*t3P*k*k*t4P*t5
                                                                      +12*t6*t2P*t2*t4*t3P*k*t3*t4P-12*t6*t6*t2P*(t1*t1)*t3P*k*t3*t4P-24*t6*t2P*t1*t3P*k*t3
                                                                      *t4P*t5*t2-36*t6*t2P*t1*t3P*k*(t3*t3)*t4P*t5-12*t6*t2P*(t1*t1)*t3P*k*t3*t4P*t5-3*t7*t32kP
                                                                      *t1*t33P*t5*t1P*(t2*t2)*(t4*t4)+2*t4P*t5*t5*t3P*k*k*t1P*(t2*t2)*(t3*t3)+4*t4P*t5*t5*t3P
                                                                      *k*k*t1P*(t2*t2)*t3+8*t4P*t5*t5*t3P*k*k*t1P*t2*t3+4*t4P*t5*t5*t3P*k*k*t1P*t3*t4+2*t6*t6
                                                                      *t2P*t2*t4*t3P*k*k*t4P*(t3*t3)+8*t4P*t2*t3P*t34P*t5*t6*t2P*t1-6*t7*t32kP*t1*t33P*t5
                                                                      *t1P*t2*(t4*t4)+3*t7*t7*t32kP*(t1*t1)*t33P*t4P*t4-12*t4P*t5*t3P*k*t6*t2P*t3-4*t4P*t5
                                                                      *t5*t3P*k*t1P*t2-2*t4P*t5*t5*t3P*k*t1P-8*(t3*t3)*t6*t2P*t3P*t5*t1P*t4-8*(t3*t3)*t6*t2P
                                                                      *t3P*t4P*t1+4*(t3*t3)*t6*t6*t2P*t3P*t4P*(t1*t1)-4*(t3*t3)*t6*t2P*t3P*t5*t1P*t1+8*(t3
                                                                                                                                                        *t3)*t6*t6*t2P*t3P*t4P*t1-4*t4P*t6*t6*t3P*k*t2P*t1*t2+2*t6*t2P*t2*t4*t3P*k*k*t4P*t5
                                                                      *(t3*t3)-2*t6*t2P*(t4*t4)*t3P*k*k*(t3*t3)*t5*t1P+4*t7*t7*t33kP*k*t2*t3-3*t7*t32kP*(t1*t1)*t33P
                                                                      *t6*t2P*(t4*t4)-6*t7*t32kP*t1*t33P*t6*t2P*(t4*t4)*t2+4*t5*t5*t1P*(t2*t2)*t34P*t4*t3P*t4P-8
                                                                      *t33P*t3P*t4P*t5*t1P-2*t4P*t5*t3P*k*t6*t2P-18*t4P*t5*t3P*k*t6*t2P*(t3*t3)-4*t6*t2P
                                                                      *t2*t3P*k*k*t3*t5*t1P+4*t4P*t6*t3P*k*k*t5*t1P*t2*t4-12*t4P*t6*t7*t32kP*k*t2*t4*(t3*t3)-4
                                                                      *t34P*t3P*t4P*t5*t1P+3*t4P*t5*t7*t32kP*(t3*t3)+6*t4P*t5*t7*t32kP*(t3*t3)*t1-3*t7*t32kP
                                                                      *(t1*t1)*t33P*t6*t2P*(t4*t4)*t2+3*t4P*t5*t7*t32kP*(t1*t1)*(t3*t3)+8*t7*t32kP*(t4*t4)*k*t3*t6
                                                                      *t2P*t2+12*t7*t32kP*t4*k*(t3*t3)*t6*t2P*t2-16*t33P*t4*t6*t2P*t3P*t5*t1P+8*t7*t32kP*t1
                                                                      *t2*k*t4P+2*t5*t1P*t1*t2*t3P*k*t6*t2P-2*t6*t6*t2P*t4*t3P*k*t4P*(t1*t1)*t2-2*t6*t2P*t4
                                                                      *t3P*k*t4P*t5*(t1*t1)*t2+2*t6*t2P*(t1*t1)*t7*t3P*k*k*(t3*t3)*t4P*t2+6*t7*t32kP*t2*(t3*t3)
                                                                      *t4P*t6+6*t7*t32kP*t2*(t3*t3)*t4P*t5-3*t7*t32kP*t2*t33P*t6*t2P-6*t7*t32kP*t2*(t3*t3)*t6
                                                                      *t2P*t4-3*t7*t32kP*(t2*t2)*(t3*t3)*t5*t1P-6*t7*t32kP*t2*(t3*t3)*t5*t1P-3*t7*t32kP*t2*(t3
                                                                                                                                                            *t3)*t6*t2P+3*t7*t32kP*(t2*t2)*(t3*t3)*t4P*t6-2*t6*t2P*t2*t3P*k*k*(t3*t3)*t5*t1P+2*t5*t1P
                                                                      *t1*t3P*k*t4P*t4+4*t6*t2P*t1*t7*t3P*k*k*(t3*t3)*t4P*t2-12*t7*t7*t32kP*k*t4P*(t1*t1)*t2
                                                                      *(t3*t3)+4*t5*t5*t3P*(t3*t3)*t4P*t1P-4*t4P*t6*t3P*k*t5*t1P*t2*t4+8*t33P*t4*t6*t2P*t3P
                                                                      *t4P*t5*(t1*t1)*t2+4*t7*t32kP*k*t6*t2P*(t1*t1)*t4-3*t7*t32kP*t33P*t5*t1P-6*t5*t1P*t7*t32kP
                                                                      *t1*(t2*t2)*t4*(t3*t3)-3*t7*t32kP*(t3*t3)*t5*t1P-4*(t3*t3)*t6*t2P*t3P*t5*t1P*t2*(t4*t4)+6*t7
                                                                      *t7*t32kP*t2*t33P*t4*t4P-6*t4P*t7*t32kP*t1*(t2*t2)*(t3*t3)+8*t5*t5*t3P*t33P*t4P*t1P-4
                                                                      *t7*t7*t32kP*(t1*t1)*t2*k*t4P*t4+2*t7*t32kP*t1*(t2*t2)*k*t5*t1P*(t4*t4)-2*t4P*(t2*t2)*t3P
                                                                      *k*k*t5*t1P-4*t4P*t2*t3P*k*k*t5*t1P-2*t4P*t2*t3P*k*k*t6*t2P-2*t4P*t2*t3P*k*k*t6*t2P
                                                                      *(t3*t3)-8*t4P*t2*t3P*k*k*t5*t1P*t3+4*t5*t1P*t34P*t4*t3P*t4P*t7-8*t5*t1P*t33P*t4*t3P
                                                                      *t4P+8*t2*(t3*t3)*t7*t3P*t4P*t5*t1P*t1-12*t4P*t6*(t2*t2)*t3P*k*t3*t5*t1P-3*t4P*t7*t32kP
                                                                      *(t2*t2)*t4*t33P-12*t6*t2P*t7*t32kP*t1*(t3*t3)*t4+4*(t3*t3)*t6*t2P*t3P*t4P*t5*t4+4*(t3*t3)
                                                                      *t6*t2P*t3P*t4P*t7*t4-4*(t3*t3)*t6*t2P*t3P*t5*t1P*(t4*t4)-16*t4P*t7*t7*t32kP*k*t2*t3
                                                                      +4*t34P*t4*t6*t2P*t3P*t4P*t7*(t1*t1)-4*t7*t32kP*k*t4P*t5*t2*t4-4*t7*t32kP*k*t4P*t6*t1
                                                                      *t4-4*t7*t7*t32kP*k*t4P*t2*t4-4*t7*t7*t32kP*k*t4P*t1*t4+4*t34P*t4*t6*t2P*t3P*t4P*t5*(t1
                                                                                                                                                           *t1)-8*t4P*t7*t3P*k*t6*t2P*t33P*t4+4*t5*t5*t3P*t34P*t4P*t1P-3*t4P*t7*t32kP*(t2*t2)
                                                                      *t4*(t3*t3)-24*t4P*t6*t2*t3P*k*t3*t5*t1P+4*t34P*t4*t6*t6*t2P*t3P*t4P*(t1*t1)+16*t42kP
                                                                      *t6*t2*t3P*k*t33P*t5*(t1*t1)+2*t5*t5*t12kP*t2*(t4*t4)*t3P*k+8*t2*t34P*t7*t3P*t42kP*(t1
                                                                                                                                                          *t1)+72*t42kP*t6*t2*t3P*k*(t3*t3)*t5*t1+32*t2*t33P*t7*t3P*t42kP*t1-t42kP*t7*t7*t3P*k*k
                                                                      *(t2*t2)*(t3*t3)+2*t7*t3P*t1P*k*k*t1*t4P*t5-12*t4P*t5*t1P*k*t7*t3P*t3-16*t2*t33P*t7*t3P
                                                                      *t42kP*t6+4*t7*t3P*t1P*k*k*t4P*t5*t3+2*t7*t7*t33kP*(t1*t1)*(t2*t2)*k*t4-8*t42kP*(t2*t2)*t3P
                                                                      *t33P*t5*t6*(t1*t1)-4*t34P*t6*t6*t22kP*t3P*t1+8*t42kP*t5*t5*t3P*k*t2*t33P+4*t42kP*t6
                                                                      *t6*(t2*t2)*t3P*k*t33P*(t1*t1)-8*t42kP*t1*(t2*t2)*t7*t3P*k*k*t3*t5-16*t2*(t3*t3)*t7*t3P*t42kP
                                                                      *t5*t1+4*t4P*t3*t4*t6*t2P*k*k*t7*t3P*(t1*t1)+8*t4P*t3*t4*t6*t2P*k*k*t7*t3P*t1+8*t4P*t1
                                                                      *t6*t2P*k*k*t7*t3P*t3-2*t7*t3P*t4*t2P*k*t4P*t6-2*t4P*t6*t2P*k*t2*t7*t3P*t4-12*t7*t3P
                                                                      *t6*t2P*k*t2*t4P*(t1*t1)*t3-2*t7*t3P*t6*t2P*k*t2*t4P*(t1*t1)+8*t2*(t3*t3)*t7*t3P*t42kP
                                                                      *(t1*t1)+2*t7*t3P*t4*t2P*k*k*t4P*t6+4*t7*t3P*t6*t2P*k*k*t2*t4P*t3*t4-12*t7*t3P*t3*t4*t6
                                                                      *t2P*k*t4P*(t1*t1)*t2+4*t7*t3P*t6*t2P*k*k*t2*t4P*t1*t4+4*t7*t3P*t6*t2P*k*k*t2*t4P*(t1
                                                                                                                                                         *t1)*t3*t4+8*t7*t3P*t6*t2P*k*k*t2*t4P*t1*t3*t4-2*t7*t3P*t2P*k*t4P*t6-12*t7*t3P*(t1*t1)
                                                                      *t4*t2P*k*t4P*t6*t3+4*t7*t3P*t6*t2P*k*k*t2*t4P*t3-12*t7*t3P*t3*t2P*k*t4P*t6-2*t5*t5*t3P
                                                                      *(t3*t3)*t42kP*(t1*t1)-8*t5*t1P*(t2*t2)*t33P*t4*t3P*t4P*t1+4*t7*t7*t33kP*k*t1*(t2*t2)*t3
                                                                      +8*t5*t1P*(t2*t2)*t33P*t4*t3P*t4P*t6+8*t4P*t1*t33P*t4*t7*t3P*t5*t1P-12*t4P*t6*t4*t3P
                                                                      *k*t3*t5*t1P+8*t2*t34P*t7*t3P*t4P*t5*t1P-24*t4P*t6*t4*t3P*k*t3*t5*t1P*t2+16*t5*t1P
                                                                      *t2*t33P*t4*t3P*t4P*t6*t1-8*t4P*t6*(t2*t2)*t3P*k*t33P*t5*t1P+12*t7*t32kP*t1*k*(t3*t3)
                                                                      *t6*t2P-18*t4P*t6*(t2*t2)*t3P*k*(t3*t3)*t5*t1P-16*t5*t1P*t2*t33P*t4*t3P*t6*t2P*t1-8*t5
                                                                      *t1P*t2*t34P*t4*t3P*t4P*t1+4*t6*t6*t2P*t2*t34P*t3P*t4P*(t1*t1)+4*t4P*t5*t5*t2*t4*t3P
                                                                      *k*k*t1P-6*t4P*t7*t32kP*t33P*t2-8*t6*t2P*t2*t33P*t3P*t4P-2*t7*t7*t32kP*k*t4P+2*t7
                                                                      *t32kP*k*t4P-t5*t5*t12kP*t3P*k*k*(t3*t3)*(t4*t4)+4*t4P*t5*t3P*k*k*t6*t2P*t3+2*t4P*t5
                                                                      *t3P*k*k*t6*t2P*t4+2*t4P*t5*t5*t3P*k*k*t1P+2*t4P*t5*t3P*k*k*t6*t2P+18*t5*t1P*t3P
                                                                      *k*(t3*t3)*t4P+3*t4P*t6*t7*t32kP*(t2*t2)*t4*(t3*t3)-6*t4P*t7*t32kP*(t3*t3)*t2-16*t5*t1P*t2
                                                                      *t33P*t4*t3P*t4P*t1-4*t7*t7*t33kP*t4*(t3*t3)*(t1*t1)*t2+3*t4P*t5*t7*t32kP*t33P-18*t4P
                                                                      *t1*t7*t3P*k*(t3*t3)*t5*t1P*(t2*t2)-36*t4P*t1*t7*t3P*k*(t3*t3)*t6*t2P*t2+4*t7*t32kP*(t1*t1)
                                                                      *t2*k*t6*t2P*t4-4*t6*t2P*t2*t34P*t3P*t5*t1P*t1+8*t5*t1P*(t2*t2)*t33P*t4*t3P*t4P*t7-8
                                                                      *t4P*t6*t6*t3P*k*t2P*t33P-2*t7*t7*t33kP*(t4*t4)*(t3*t3)*(t1*t1)*t2+16*t7*t32kP*t4*k*t3*t6
                                                                      *t2P*t2-3*t6*t2P*t7*t32kP*t2*(t4*t4)*(t3*t3)-2*t7*t7*t33kP*t4*(t3*t3)*(t1*t1)*(t2*t2)-8*t6*t2P
                                                                      *t2*t4*t7*t3P*k*t33P*t4P-4*t6*t2P*t2*t34P*t3P*t4P*(t1*t1)-8*t6*t2P*t2*t33P*t3P*t5
                                                                      *t1P*t1-4*t7*t7*t33kP*t4*(t3*t3)*t1*(t2*t2)+8*t5*t1P*t2*t34P*t4*t3P*t4P*t6+8*t5*t1P*t33P
                                                                      *t4*t3P*t4P*t7+8*t5*t1P*t33P*t4*t3P*t4P*t6+8*t5*t5*t1P*t33P*t4*t3P*t4P+4*t7*t32kP
                                                                      *k*t4P*t1*t4+8*t7*t32kP*k*t5*t1P*t2*t4+2*t7*t32kP*k*t4P*(t2*t2)+2*t7*t32kP*k*t4P*(t1*t1)
                                                                      +2*t7*t32kP*k*t4P*(t2*t2)*t4+4*t7*t32kP*k*t4P*t2*t4+4*t7*t32kP*k*t5*t1P*t4*t1+8*t7*t32kP
                                                                      *k*t6*t2P*t1*t4+8*t2*(t3*t3)*t7*t3P*t4P*t6*t2P*t1+4*t2*(t3*t3)*t7*t3P*t4P*t6*t2P*t4-2*t7
                                                                      *t7*t33kP*(t4*t4)*(t3*t3)*t1*(t2*t2)+16*t7*t32kP*t1*k*t3*t6*t2P+4*t6*t2P*t1*t7*t3P*k*k*(t3
                                                                                                                                                              *t3)*t4P+2*t6*t2P*(t1*t1)*t7*t3P*k*k*(t3*t3)*t4P+8*t2*t33P*t7*t3P*t4P*t6*t2P-12*t4P
                                                                      *t5*t5*t1*t3P*k*t3*t1P-8*t4P*t7*t3P*k*t5*t1P*t33P+8*t6*t6*t2P*t2*t33P*t3P*t4P*(t1
                                                                                                                                                     *t1)+12*t5*t1P*t3P*k*t3*t4P+2*t4P*t5*t3P*k*k*t6*t2P*(t3*t3)+4*t4P*t5*t5*t3P*k*k*t1P
                                                                      *t3+2*t4P*t5*t5*t3P*k*k*t1P*t4-6*t6*t2P*t7*t32kP*t2*(t4*t4)*(t3*t3)*t1+8*t5*t1P*t2*t34P
                                                                      *t4*t3P*t4P*t7+16*t5*t5*t1P*t2*t33P*t4*t3P*t4P*t1-t7*t7*t33kP*(t4*t4)*(t3*t3)*(t1*t1)*(t2
                                                                                                                                                             *t2)-2*t5*t1P*t1*(t2*t2)*t3P*k*t4P*t6+8*t2*(t3*t3)*t7*t3P*t4P*t5*t1P+4*t2*(t3*t3)*t7*t3P
                                                                      *t4P*t6*t2P+3*t7*t7*t32kP*(t2*t2)*t33P*t4*t4P*(t1*t1)+4*(t2*t2)*(t3*t3)*t7*t3P*t4P*t5*t1P
                                                                      +8*t4P*t6*t6*t2*t4*t3P*(t3*t3)*t2P*t1+4*t4P*t6*(t2*t2)*t4*t3P*(t3*t3)*t5*t1P+2*t4P*(t1
                                                                                                                                                          *t1)*t3P*k*t6*t2P+4*t4P*t1*t3P*k*t6*t2P+3*t4P*t5*t7*t32kP*t4*(t3*t3)+6*t4P*t5*t7*t32kP
                                                                      *t4*(t3*t3)*t1+6*t4P*t5*t7*t32kP*t4*(t3*t3)*t2+3*t4P*t5*t7*t32kP*t4*t33P+6*t4P*t5*t7*t32kP
                                                                      *t4*t33P*t2-18*t4P*t5*t5*t1*t3P*k*(t3*t3)*t1P+2*t4P*t5*t5*(t2*t2)*t4*t3P*k*k*t1P-8*t5*t1P
                                                                      *t2*t34P*t4*t3P*t6*t2P*t1-8*t5*t1P*t2*t33P*(t4*t4)*t3P*t6*t2P*t1+2*t4P*t2*t4*t7*t3P
                                                                      *k*k*(t3*t3)*t6*t2P*(t1*t1)+2*t4P*(t2*t2)*t4*t7*t3P*k*k*(t3*t3)*t5*t1P*t1+4*t4P*t1*(t2*t2)
                                                                      *t34P*t4*t7*t3P*t5*t1P+8*t5*t1P*t2*t34P*t4*t3P*t4P*t6*t1-16*t6*t2P*t2*t4*t7*t3P*k*t33P
                                                                      *t4P*t1+4*t5*t1P*(t2*t2)*t34P*t4*t3P*t4P*t6*t1-4*t5*t1P*t2*t34P*(t4*t4)*t3P*t6*t2P
                                                                      *t1+8*t4P*t5*t5*t2*t4*t3P*k*k*t1P*t3+12*t4P*t5*t7*t32kP*t1*t2*(t3*t3)+4*t7*t32kP*t1*t2*k
                                                                      *t6*t2P*(t4*t4)-8*t7*t32kP*t1*t2*k*t4P*t5*t4-8*t7*t32kP*t1*t2*k*t4P*t6*t4-8*t7*t7*t32kP*t1
                                                                      *t2*k*t4P*t4+8*t5*t1P*(t2*t2)*t33P*t4*t3P*t4P*t6*t1+4*t2*t34P*t7*t3P*t4P*t6*t2P+16
                                                                      *t2*t33P*t7*t3P*t4P*t5*t1P-16*t4P*t5*t7*t32kP*k*t1*t4*t3-18*t4P*t7*t3P*k*t6*t2P*(t3
                                                                                                                                                       *t3)-18*t4P*t7*t3P*k*t5*t1P*(t3*t3)+3*t4P*t5*t7*t32kP*(t1*t1)*t4*(t3*t3)+8*t4P*t2*t3P*(t3
                                                                                                                                                                                                                                              *t3)*t5*t6*t2P*t1+8*t4P*t2*t3P*t33P*t5*t6*t2P+4*t4P*t2*t3P*(t3*t3)*t5*t6*t2P*t4+4*t4P
                                                                      *(t2*t2)*t3P*(t3*t3)*t5*t5*t1P+8*t2*(t3*t3)*t7*t3P*t4P*t5*t1P*t4+6*t7*t32kP*(t1*t1)*k*(t3
                                                                                                                                                             *t3)*t4P*t4-6*t7*t7*t32kP*k*t4P*(t1*t1)*(t2*t2)*(t3*t3)+6*t7*t32kP*(t1*t1)*t33P*t4P*t6*t2
                                                                      *t4+6*t7*t32kP*(t1*t1)*t33P*t4P*t5*t2*t4-8*t7*t7*t32kP*(t1*t1)*k*t3*t4P*t4+4*t4P*(t1*t1)
                                                                      *t2*t34P*t4*t7*t3P*t6*t2P-3*t6*t2P*t7*t32kP*t2*(t4*t4)*t33P-4*t34P*t4*t6*t2P*t3P*t4P
                                                                      +8*t33P*t4*t6*t6*t2P*t3P*t4P*t2-12*t7*t32kP*t1*k*(t3*t3)*t4P*t6*t4+6*t4P*t5*t7*t32kP
                                                                      *(t1*t1)*t2*(t3*t3)+6*t4P*t5*t7*t32kP*t1*(t2*t2)*(t3*t3)+3*t4P*t5*t7*t32kP*(t1*t1)*(t2*t2)*(t3
                                                                                                                                                                  *t3)+8*t6*t6*t2P*t1*t2*t3P*(t3*t3)*t4P-4*t34P*t4*t6*t2P*t3P*t4P*t2-8*t34P*t4*t6*t2P
                                                                      *t3P*t4P*t1-16*t33P*t4*t6*t2P*t3P*t4P*t1*t2-8*t33P*(t4*t4)*t6*t2P*t3P*t5*t1P+6*t7
                                                                      *t32kP*(t1*t1)*t2*(t3*t3)*t4P*t5*t4-8*t34P*t4*t6*t2P*t3P*t5*t1P+3*t4P*t7*t7*t32kP*(t1
                                                                                                                                                         *t1)*(t3*t3)-18*t5*t1P*t1*t3P*k*(t3*t3)*t4P*t6+4*(t2*t2)*t34P*t4P*t6*t3P*t5*t1P+8*t7*t7
                                                                      *t33kP*k*t1*t4*t3+4*t4P*t5*t5*t3P*k*k*t1P*t2*(t3*t3)+2*t4P*t5*t5*t3P*k*k*t1P*(t3*t3)*t4
                                                                      +4*t4P*t5*t3P*k*k*t6*t2P*t3*t4+2*t4P*t5*t3P*k*k*t6*t2P*(t3*t3)*t4+16*t33P*t4*t6*t2P*t3P
                                                                      *t4P*t7*t1-12*t7*t32kP*t1*k*(t3*t3)*t4P*t6-8*t33P*t4*t6*t2P*t3P*t4P*t2-16*t33P*t4*t6
                                                                      *t2P*t3P*t4P*t1-8*t7*t32kP*(t1*t1)*k*t3*t4P*t6+2*t4P*t7*t3P*k*k*t6*t2P*(t3*t3)+16*t33P
                                                                      *t4*t6*t2P*t3P*t4P*t5*t1+4*t34P*t4*t6*t2P*t3P*t4P*t5+8*t33P*t4*t6*t2P*t3P*t4P*t5
                                                                      *t2+4*t34P*t4*t6*t6*t2P*t3P*t4P+16*t33P*t4*t6*t6*t2P*t3P*t4P*t1+12*t7*t7*t32kP*t2*t33P
                                                                      *t4*t4P*t1+8*t33P*t4*t6*t2P*t3P*t4P*t7*t2+6*t7*t32kP*t2*t33P*t4P*t6+3*t7*t32kP*(t2
                                                                                                                                                      *t2)*(t3*t3)*t4P*t5+6*t7*t32kP*t2*t33P*t4P*t5+6*t7*t7*t32kP*t2*t33P*t4P+3*t7*t32kP*(t2
                                                                                                                                                                                                                                          *t2)*(t3*t3)*t4P*t5*t4+6*t7*t32kP*t2*t33P*t4P*t6*t4+3*t7*t7*t32kP*(t2*t2)*(t3*t3)*t4P*t4
                                                                      +4*t34P*t4*t6*t6*t2P*t3P*t4P*(t1*t1)*t2+4*t34P*t4*t6*t2P*t3P*t4P*t7-6*t7*t32kP*t1*t33P
                                                                      *t4P*(t2*t2)*t4+4*t34P*t4*t6*t2P*t3P*t4P*t5*(t1*t1)*t2+16*t5*t1P*t7*t32kP*k*t3*(t4*t4)
                                                                      *t2+2*t5*t1P*t1*(t2*t2)*t3P*k*t4P-8*t7*t32kP*t4*k*t3*t4P*t6-8*t7*t32kP*t4*k*t3*t4P*t5+16
                                                                      *t5*t1P*t1*t2*t33P*t3P*t4P*t6-4*(t3*t3)*t3P*t4P*t5*t1P*t1+16*t33P*t3P*t42kP*t5*t1-t4P
                                                                      *(t2*t2)*t32kP*k*k*t7*(t1*t1)*t3-18*t5*t1P*t4*t7*t3P*k*t4P*(t2*t2)*(t3*t3)+8*t4P*t2*t3P*(t3
                                                                                                                                                               *t3)*t5*t5*t1P*t4+4*t4P*t2*t3P*t34P*t5*t6*t2P+16*t4P*t2*t3P*t33P*t5*t5*t1P+4*t4P
                                                                      *t5*t5*t2*t4*t3P*k*k*t1P*(t3*t3)+2*t4P*t7*t3P*k*k*t5*t1P*(t3*t3)-12*t4P*t6*t6*t4*t3P*k
                                                                      *t3*t2P+8*t4P*t2*t3P*(t3*t3)*t5*t5*t1P+4*t4P*t2*t3P*(t3*t3)*t5*t6*t2P+4*t4P*t1*t34P
                                                                      *t4*t7*t3P*t5*t1P+6*t4P*t6*t7*t32kP*(t1*t1)*t2*(t3*t3)+6*t4P*t6*t7*t32kP*t1*(t2*t2)*(t3*t3)
                                                                      +3*t4P*t6*t7*t32kP*(t1*t1)*(t2*t2)*(t3*t3)+4*t7*t7*t33kP*k*(t1*t1)*t4*t3+4*t7*t7*t33kP*k*t1*(t4
                                                                                                                                                                   *t4)*t3+2*t7*t7*t33kP*k*(t1*t1)*(t4*t4)*t3-2*t6*t2P*t3P*k*k*t4P+8*t4P*(t1*t1)*t2*t33P*t4
                                                                      *t7*t3P*t6*t2P+3*t4P*t7*t7*t32kP*t4*(t3*t3)+8*t5*t1P*t1*t3P*k*t33P*t4P-t6*t6*t22kP
                                                                      *(t1*t1)*t3P*k*k*(t4*t4)-2*t42kP*t6*t6*t3P*k*k*t2-8*t42kP*t5*t5*t3P*k*k*t1*t2*t3+2*t4P*t6
                                                                      *t32kP*k*k*t3*t7*t2+4*t7*t3P*t4*t5*t1P*k*k*t1*t4P*(t2*t2)*t3+2*t7*t3P*t4*t5*t1P*k*k*t1*t4P
                                                                      *(t2*t2)+t42kP*t5*t5*(t1*t1)*t3P*k*(t2*t2)-24*t4P*t4*t5*t1P*k*t1*t7*t3P*t2*t3+4*t7*t3P*t1P
                                                                      *k*k*t1*t4P*t5*t3-12*t4P*t4*t5*t1P*k*t1*t7*t3P*(t2*t2)*t3-12*t4P*t4*t5*t1P*k*t1*t7*t3P
                                                                      *t3-2*t4P*t4*t5*t1P*k*t7*t3P-2*t4P*t4*t5*t1P*k*t7*t3P*(t2*t2)+12*t42kP*(t1*t1)*t2*t3P
                                                                      *k*t3-12*t4P*t4*t5*t1P*k*t7*t3P*t3-4*t4P*t4*t5*t1P*k*t7*t3P*t2+4*t7*t3P*t1P*k*k*t1*t4P
                                                                      *t5*t3*t4+2*t7*t3P*t1P*k*k*t1*t4P*t5*t4+18*t42kP*(t1*t1)*t7*t3P*k*(t3*t3)*t5+4*t4P*t2*t5
                                                                      *t1P*k*k*t7*t3P*t1+2*t4P*(t2*t2)*t5*t1P*k*k*t7*t3P+4*t4P*t2*t5*t1P*k*k*t7*t3P*t4-12*t4P
                                                                      *t3*t5*t1P*k*t1*t7*t3P-4*t42kP*t2*t3P*(t3*t3)*t5*t5*(t1*t1)-4*t42kP*(t2*t2)*t3P*(t3*t3)*t5
                                                                      *t5*t1+12*t42kP*t5*t5*(t1*t1)*t3P*k*t3*t2+6*t42kP*(t1*t1)*t7*t7*t3P*k*t3+8*t42kP*t2*t3P*t34P
                                                                      *t5*(t1*t1)+18*t42kP*t7*t3P*k*t5*(t2*t2)*(t3*t3)-36*t42kP*(t1*t1)*t2*t3P*k*(t3*t3)*t6-8*t42kP
                                                                      *t6*t3P*k*t1*t2-t42kP*t7*t7*t3P*k*k*(t2*t2)-2*t42kP*t7*t7*t3P*k*k*t2+4*t5*t5*t12kP*t3P
                                                                      *k*t33P-t7*t7*t33kP*(t3*t3)-t42kP*t7*t7*t3P*k*k-2*(t3*t3)*t42kP*t6*t6*t3P+2*t42kP*t6*t3P
                                                                      *k*k-2*t5*t5*t12kP*t3P*k*k*t3*(t4*t4)-t5*t1P*t32kP*k*k*t7+4*(t2*t2)*(t3*t3)*t7*t3P*t42kP
                                                                      +8*t42kP*t6*(t2*t2)*t3P*k*t33P*t5*(t1*t1)-8*t42kP*(t1*t1)*(t2*t2)*t3P*k*t33P*t5+4*(t3*t3)
                                                                      *(t1*t1)*t3P*t42kP*t6+18*t5*t5*t12kP*t2*t3P*k*(t3*t3)-2*(t3*t3)*(t1*t1)*t7*t7*t3P*t42kP+t42kP
                                                                      *(t1*t1)*t7*t7*t3P*k*(t2*t2)-2*t6*t2P*t1*t7*t32kP*k*k*t3*(t4*t4)+4*t7*t7*t33kP*k*t1*t4+4*t4P
                                                                      *t2*t4*t7*t7*t32kP*k*k*t3*t1-t42kP*t7*t7*t3P*k*k*(t1*t1)*(t2*t2)+t4P*t5*(t1*t1)*t4*t32kP*k
                                                                      *k*t7*t3+12*t42kP*t6*t3P*k*t5*t3+32*t42kP*t6*t2*t3P*k*t33P*t5*t1+4*t42kP*(t1*t1)*t7*t7*t3P
                                                                      *k*t33P*(t2*t2)-16*t2*t33P*t3P*t42kP*t1-8*t33P*t3P*t42kP*t1+4*t42kP*t6*t6*t3P*k*t1
                                                                      *t2-4*t42kP*t1*t2*t7*t7*t3P*k*k*(t3*t3)+8*(t2*t2)*t33P*t7*t3P*t42kP*(t1*t1)+4*t42kP*t5*t5
                                                                      *(t1*t1)*t3P*k*t33P*(t2*t2)-8*t42kP*t6*(t1*t1)*t3P*k*k*t5*t2*t3-4*t34P*(t1*t1)*t7*t3P*t42kP
                                                                      *t5+4*t4P*t5*t32kP*k*k*t7*t1*t2-4*t42kP*t7*t3P*k*k*t6*t1*(t3*t3)+2*t7*t7*t33kP*(t1*t1)*t2*k
                                                                      *(t4*t4)-8*t6*t6*t22kP*t1*t3P*k*k*t3*t4+8*t42kP*t2*t3P*(t3*t3)*t5*(t1*t1)+12*t42kP*t7*t7*t3P
                                                                      *k*t2*t3-2*t42kP*t7*t7*t3P*k*k*t1+t4P*t5*t32kP*k*k*t7*(t2*t2)-4*t42kP*t5*t3P*k*k*t6*t2+2
                                                                      *t42kP*t6*t3P*k*k*(t3*t3)*(t2*t2)-2*t4P*t2*t32kP*k*k*t7*t3+4*t7*t7*t33kP*k*t2*t4+4*t42kP
                                                                      *t5*t5*t1*t3P*k*t2+24*t42kP*t7*t3P*k*t5*t2*t3-4*(t2*t2)*t34P*t7*t3P*t42kP*t6*(t1*t1)-2*t42kP
                                                                      *t6*(t1*t1)*t3P*k*k*t5+t4P*t5*(t2*t2)*t4*t32kP*k*k*t7*t3+t4P*t5*t32kP*k*k*t7*t4*t3-2*t42kP
                                                                      *t5*t5*t3P*k*k*(t1*t1)*t3-t5*t1P*t1*(t4*t4)*t7*t32kP*k*k-36*t42kP*t2*t3P*k*(t3*t3)*t5+t4P
                                                                      *t5*(t2*t2)*t4*t32kP*k*k*t7+36*t42kP*(t1*t1)*t7*t3P*k*(t3*t3)*t5*t2+2*t4P*t5*t1*t4*t32kP*k
                                                                      *k*t7*(t2*t2)*t3+24*t42kP*t1*t7*t3P*k*t5*t3+6*t5*t5*t12kP*t3P*k*t3+4*t42kP*(t1*t1)*t2*t7*t3P
                                                                      *k*k*(t3*t3)+8*t4P*t2*t5*t1P*k*k*t7*t3P*t1*t3+4*t4P*(t2*t2)*t5*t1P*k*k*t7*t3P*t3+8*t4P
                                                                      *t2*t5*t1P*k*k*t7*t3P*t4*t3-2*t4P*t4*t5*t1P*k*t1*t7*t3P*(t2*t2)-2*t4P*t5*t1P*k*t7*t3P-2
                                                                      *t4P*t5*t1P*k*t7*t3P*t1-4*t4P*t5*t1P*k*t7*t3P*t2-12*t4P*t3*t5*t1P*k*t1*t7*t3P*(t2*t2)-12
                                                                      *t4P*(t2*t2)*t3*t5*t1P*k*t7*t3P*t4+8*t4P*t2*t5*t1P*k*k*t7*t3P*t3-2*(t2*t2)*t34P*t7*t7*t3P
                                                                      *t42kP*(t1*t1)-12*t4P*(t2*t2)*t3*t5*t1P*k*t7*t3P-24*t4P*t2*t3*t5*t1P*k*t7*t3P*t4+t4P
                                                                      *(t2*t2)*t4*t7*t7*t32kP*k*k*t3*(t1*t1)+9*t6*t6*t22kP*t3P*k*(t3*t3)+2*t4P*t6*(t1*t1)*t32kP*k
                                                                      *k*t7*t2*t3+2*t42kP*t5*t3P*k*k*(t2*t2)*(t3*t3)+6*t42kP*t7*t7*t3P*k*(t2*t2)*t3-16*t2*t33P*t7
                                                                      *t3P*t42kP*t5*(t1*t1)-t4P*t32kP*k*k*t7*(t1*t1)*t3+24*t42kP*t1*t7*t3P*k*t6*t3+9*t42kP*t5
                                                                      *t5*(t1*t1)*t3P*k*(t3*t3)*(t2*t2)-8*t5*t5*t3P*t33P*t42kP*t1-2*t42kP*t2*t3P*k*k*(t3*t3)-4
                                                                      *t6*t6*t22kP*t4*t3P*k*k*t3-4*t5*t5*t12kP*t34P*t4*t3P-2*(t2*t2)*t34P*t3P*t42kP+2*t6*t6
                                                                      *t22kP*(t4*t4)*t3P*k*t1-8*t42kP*t7*t3P*k*k*t5*t2*t3+2*t4P*t6*t1*t32kP*k*k*t7*t4*t3-2*t5*t5
                                                                      *t12kP*t3P*(t3*t3)*(t4*t4)-t6*t2P*(t1*t1)*t7*t32kP*k*k*t3+18*t42kP*t6*t6*t2*t3P*k*(t3*t3)
                                                                      *(t1*t1)-4*t34P*(t4*t4)*t6*t6*t22kP*t3P*t1-2*t42kP*t7*t7*t3P*k*k*(t2*t2)*t3-2*t6*t2P*t1*t7
                                                                      *t32kP*k*k*t2-t5*t5*t12kP*t3P*k*k+8*t42kP*t6*(t1*t1)*t3P*k*k*t2*t3-4*t5*t1P*t2*t7*t32kP
                                                                      *k*k*t1*t4-32*t2*t33P*t7*t3P*t42kP*t5*t1-16*t42kP*t1*(t2*t2)*t3P*k*t33P*t5+t6*t6*t22kP
                                                                      *t3P*k*(t1*t1)-t42kP*t5*t5*t3P*k*k*(t1*t1)-4*t42kP*(t2*t2)*t3P*(t3*t3)*t5*t6*(t1*t1)+2*t7*t7
                                                                      *t33kP*k*(t2*t2)*t4-48*t42kP*t1*t2*t3P*k*t3*t5+2*t42kP*t5*t3P*k*k*(t1*t1)*(t2*t2)*(t3*t3)+6
                                                                      *t42kP*t6*t6*(t2*t2)*t3P*k*t3+4*t4P*t7*t7*t32kP*k*k*t1*t2-4*(t3*t3)*(t1*t1)*t3P*t42kP*t6
                                                                      *t5+t4P*t6*t32kP*k*k*t3*t7*t4+16*t42kP*t6*t1*t3P*k*k*t2*t3+12*t42kP*t1*t7*t7*t3P*k*(t2*t2)
                                                                      *t3-4*t5*t5*t3P*t34P*t42kP*t1-4*t42kP*t6*t3P*k*k*t3*t5*(t2*t2)+4*t42kP*t5*t5*t3P*k*t33P-16
                                                                      *t5*t5*t12kP*t2*t33P*t4*t3P-48*t42kP*t1*t2*t3P*k*t3*t6+2*t4P*t5*t32kP*k*k*t7*t1*t3+2*t42kP
                                                                      *t3P*k*t2-4*t42kP*t2*t3P*t34P*t5*t5+18*t42kP*t6*t6*t2*t3P*k*(t3*t3)+18*t42kP*t5*t5*t1*t3P
                                                                      *k*(t3*t3)*(t2*t2)-32*t2*t33P*t7*t3P*t42kP*t6*t1+4*t4P*t6*t1*t32kP*k*k*t7*t2*t3+2*t6*t6*t22kP
                                                                      *t3P*k*t1-2*t42kP*t6*t3P*k-2*t42kP*t5*t5*t3P*k*k*t1+4*t42kP*t5*t3P*k*k*(t1*t1)*t2*(t3*t3)-4
                                                                      *t5*t1P*t2*t32kP*k*k*t7*t4+t42kP*t6*t6*t3P*k*(t2*t2)+2*t4P*(t1*t1)*t2*t7*t7*t32kP*k*k*t3-8
                                                                      *(t3*t3)*t1*t7*t3P*t42kP*t5-2*t4P*t4*t32kP*k*k*t7*t2+2*t7*t7*t33kP*t1*(t2*t2)*k*(t4*t4)+18
                                                                      *t42kP*t1*t3P*k*(t3*t3)+2*t4P*t7*t7*t32kP*k*k*t2-16*t2*(t3*t3)*t7*t3P*t42kP*t6*t1-16*t42kP
                                                                      *t6*t2*t3P*k*t33P-2*t42kP*t5*t5*t3P*k*k*t1*(t2*t2)*(t3*t3)-4*t42kP*t5*t5*t3P*k*k*t1*(t2*t2)
                                                                      *t3-8*t33P*t6*t6*t22kP*t3P*t1-4*(t2*t2)*(t3*t3)*t3P*t42kP*t1-4*t5*t5*t12kP*(t2*t2)*t3P
                                                                      *k*k*t3*t4-16*t2*t33P*t7*t3P*t42kP*t6*(t1*t1)-18*t42kP*t7*t3P*k*(t3*t3)-2*t7*t3P*(t1*t1)
                                                                      *t4*t2P*k*t4P*t6-24*t7*t3P*t1*t4*t2P*k*t4P*t6*t3-4*t5*t5*t12kP*t2*(t4*t4)*t3P*(t3*t3)-4
                                                                      *(t3*t3)*t6*t6*t22kP*t3P*t1*(t4*t4)-24*t42kP*t2*t3P*k*t3*t5-2*t6*t6*t22kP*t1*t3P*k*k*(t4
                                                                                                                                                            *t4)-2*t42kP*(t1*t1)*(t2*t2)*t7*t3P*k*k*(t3*t3)*t6-18*t42kP*(t1*t1)*(t2*t2)*t3P*k*(t3*t3)*t6-2
                                                                      *t42kP*t7*t7*t3P*k*k*(t1*t1)*t2+2*t7*t3P*t6*t2P*k*k*t2*t4P*t4-12*t7*t3P*t3*t2P*k*t4P
                                                                      *t6*(t1*t1)+4*t4P*(t1*t1)*t6*t2P*k*k*t7*t3P*t3-24*t7*t3P*t3*t2P*k*t4P*t6*t1+4*t4P*t3*t4
                                                                      *t6*t2P*k*k*t7*t3P-t4P*t4*t32kP*k*k*t7*t3+2*t4P*(t1*t1)*t6*t2P*k*k*t7*t3P+4*t4P*t1*t6
                                                                      *t2P*k*k*t7*t3P*t4-4*t7*t3P*t6*t2P*k*t2*t4P*t1*t4+36*t42kP*t7*t3P*k*t5*t2*(t3*t3)-4*t42kP
                                                                      *(t1*t1)*t2*t7*t3P*k*k*(t3*t3)*t5+2*t42kP*t7*t3P*k*k*(t1*t1)*(t2*t2)-4*t42kP*t1*t7*t3P*k*(t2
                                                                                                                                                                *t2)+36*t42kP*t1*t7*t3P*k*(t3*t3)*t5*(t2*t2)+8*t5*t5*t12kP*t4*t3P*k*t33P+9*t6*t6*t22kP*(t4
                                                                                                                                                                                                                                                        *t4)*t3P*k*(t3*t3)*(t1*t1)-t42kP*t5*t5*t3P*k*k*(t1*t1)*(t2*t2)-2*(t2*t2)*t34P*t7*t7*t3P*t42kP-4
                                                                      *t5*t5*t12kP*t3P*(t3*t3)*t4-4*t5*t3P*t34P*t42kP*t6+18*t42kP*t7*t7*t3P*k*t2*(t3*t3)+2*t42kP
                                                                      *t6*(t1*t1)*t3P*k*k-2*t6*t6*t22kP*t1*t3P*k*k+72*t42kP*t1*t7*t3P*k*(t3*t3)*t5*t2-4*t42kP*(t1
                                                                                                                                                               *t1)*(t2*t2)*t7*t3P*k*k*t3*t6+6*t42kP*t7*t7*t3P*k*t3+2*t42kP*t6*t6*t3P*k*t2+2*t4P*(t2*t2)
                                                                      *t4*t7*t7*t32kP*k*k*t3*t1-4*t5*t5*t3P*t33P*t42kP*(t1*t1)-4*t34P*t7*t3P*t42kP*t6+2*t4P
                                                                      *t6*t32kP*k*k*t3*t7*t2*t4+t4P*t6*(t1*t1)*t32kP*k*k*t7*(t2*t2)*t4+t4P*t6*(t1*t1)*t32kP*k*k*t7
                                                                      *t4*t3+8*t33P*t3P*t42kP*t6*(t1*t1)+4*t42kP*t5*t3P*k*k*(t1*t1)*(t2*t2)*t3+18*t42kP*t6*t6*(t2
                                                                                                                                                               *t2)*t3P*k*(t3*t3)*t1+4*t34P*t3P*t42kP*t6*(t1*t1)+8*t42kP*t1*(t2*t2)*t3P*k*t33P+8*t42kP
                                                                      *t6*t1*t3P*k*k*(t2*t2)*t3-2*t6*t6*t22kP*(t1*t1)*t3P*k*k*(t3*t3)*t4+4*t42kP*t7*t3P*k*k*t3-16
                                                                      *t42kP*t2*t3P*t33P*t5*t5*t1-16*t33P*t1*t7*t3P*t42kP*t5+t4P*(t2*t2)*t4*t7*t7*t32kP*k*k
                                                                      *t3+24*t42kP*t6*t2*t3P*k*t3*t5*(t1*t1)-2*t5*t1P*(t2*t2)*t7*t32kP*k*k*t1*t4*t3-t5*t5*t12kP*t3P
                                                                      *k*k*(t4*t4)-t42kP*t5*t5*t3P*k*k*(t2*t2)-2*t6*t2P*t1*t7*t32kP*k*k-4*t42kP*(t2*t2)*t3P*t34P
                                                                      *t5*t5*t1+8*t33P*t3P*t42kP*t5+8*t42kP*t6*t1*t3P*k*k*t2-72*t42kP*t1*t7*t3P*k*(t3*t3)*t2-2
                                                                      *t5*t1P*t2*t32kP*k*k*t7*t3-4*t42kP*t6*(t1*t1)*t3P*k*k*t5*t2*(t3*t3)+18*t5*t5*t12kP*t4*t3P
                                                                      *k*(t2*t2)*(t3*t3)+36*t42kP*(t1*t1)*t7*t3P*k*(t3*t3)*t6*t2+2*t7*t7*t33kP*k*t1*(t4*t4)+8*t5*t5*t12kP
                                                                      *t2*t3P*k*t33P+t4P*t7*t7*t32kP*k*k*(t2*t2)*t4-4*t42kP*t6*t3P*k*k*(t3*t3)*t5*t2+2*t4P*t7
                                                                      *t7*t32kP*k*k*t1*t4*t3+2*t42kP*(t2*t2)*t3P*k*k*t6-8*t2*t33P*t42kP*t6*t6*t3P*(t1*t1)-4*t5
                                                                      *t5*t12kP*t33P*t3P+8*t5*t5*t12kP*t4*t3P*k*(t2*t2)*t33P+4*t42kP*t5*t3P*k*k*t1-t4P*t4
                                                                      *t32kP*k*k*t7*(t1*t1)*(t2*t2)+16*t42kP*t5*t3P*k*k*t1*t2*t3+4*t42kP*t6*(t1*t1)*t3P*k*k*t2+12
                                                                      *t42kP*t7*t3P*k*t5*(t2*t2)*t3+8*t42kP*(t2*t2)*t3P*t33P*t5+12*t42kP*t5*t5*t3P*k*t2*t3+24
                                                                      *t42kP*(t1*t1)*t7*t3P*k*t5*t2*t3+2*t42kP*t7*t7*t3P*k*t2+t4P*t7*t7*t32kP*k*k*(t2*t2)*t3-4
                                                                      *t42kP*t7*t3P*k*k*t5*t2+9*t42kP*(t2*t2)*t3P*k*(t3*t3)-t5*t1P*t32kP*k*k*t7*t3-2*t6*t6*t22kP
                                                                      *t3P*k*k*t4+2*t42kP*t6*(t1*t1)*t3P*k*k*(t2*t2)*(t3*t3)-8*t33P*t1*t7*t7*t3P*t42kP-16*t42kP
                                                                      *t1*t2*t7*t3P*k*k*t3*t6-4*(t2*t2)*t33P*t42kP*t6*t6*t3P+t6*t6*t22kP*(t4*t4)*t3P*k*(t1*t1)-8
                                                                      *t33P*t4*t6*t6*t22kP*t3P+12*t42kP*t1*(t2*t2)*t3P*k*t3+8*t5*t5*t12kP*(t4*t4)*t3P*k*t2*t33P-2
                                                                      *t5*t5*t12kP*t34P*(t4*t4)*t3P-8*(t2*t2)*t33P*t7*t3P*t42kP*t5*(t1*t1)-8*t42kP*(t1*t1)*t2
                                                                      *t7*t3P*k*k*t3*t5-2*t42kP*t5*t3P*k*(t2*t2)+2*t7*t7*t33kP*k*(t1*t1)*t4-2*t42kP*t3P*k*k*t1-2
                                                                      *t42kP*t7*t3P*k*k*t5*(t1*t1)*(t2*t2)-8*t42kP*t2*t3P*t34P*t5*t5*t1-2*t4P*t4*t32kP*k*k*t7
                                                                      *t1*(t2*t2)-8*t42kP*(t1*t1)*t2*t7*t3P*k*k*t3*t6+9*t42kP*t3P*k*(t3*t3)+12*t42kP*t6*t6*t3P
                                                                      *k*t1*t3+2*t4P*t6*t1*t32kP*k*k*t7*(t2*t2)*t4-4*t2*t34P*t7*t7*t3P*t42kP-4*t6*t6*t22kP*t1*t3P
                                                                      *k*k*t3+4*t42kP*t3P*k*t33P-8*t34P*t1*t7*t3P*t42kP*t5+6*t5*t5*t12kP*(t2*t2)*t3P*k*t3*(t4
                                                                                                                                                           *t4)-2*t5*t1P*t1*t4*t7*t32kP*k*k*t3-8*t2*(t3*t3)*t7*t3P*t42kP*t5-4*t42kP*t6*t3P*k*t2+4*t42kP
                                                                      *t7*t3P*k*k*t2-2*t42kP*t6*t3P*k*(t2*t2)+8*t42kP*t7*t3P*k*k*t2*t3-t5*t1P*t1*(t4*t4)*t7*t32kP
                                                                      *k*k*t3-8*t42kP*t2*t3P*t33P*t5*t5-8*t42kP*t1*(t2*t2)*t7*t3P*k*k*t3*t6-4*t42kP*t7*t3P*k
                                                                      *k*t5*t1*(t2*t2)-8*(t2*t2)*t33P*t7*t3P*t42kP*t5+18*t42kP*t7*t3P*k*t6*(t2*t2)*(t3*t3)+2*t4P
                                                                      *t6*(t1*t1)*t32kP*k*k*t7*t2+9*t42kP*t6*t6*(t2*t2)*t3P*k*(t3*t3)*(t1*t1)-t42kP*(t2*t2)*t3P*k
                                                                      *k*(t3*t3)+8*t42kP*t5*t3P*k*k*t1*t3+2*t4P*t5*t1*t4*t32kP*k*k*t7*(t2*t2)+8*t42kP*t1*t7*t7*t3P
                                                                      *k*t33P+36*t42kP*t5*t1*t3P*k*(t3*t3)*t6+8*t6*t6*t22kP*t4*t3P*k*t33P+8*t42kP*t6*t6*(t2*t2)
                                                                      *t3P*k*t33P*t1+2*t42kP*(t1*t1)*t7*t3P*k*t5*(t2*t2)-2*t4P*t4*t32kP*k*k*t7*t1*(t2*t2)*t3-2
                                                                      *t4P*t2*t32kP*k*k*t7*(t1*t1)-4*t42kP*t7*t3P*k*k*t6*(t1*t1)*t3+t4P*t6*t32kP*k*k*t7*t4-4*t42kP
                                                                      *t5*t5*t3P*k*k*t1*t3-4*t42kP*t3P*k*k*t1*t3-t42kP*t3P*k*k*(t1*t1)*(t3*t3)+t7*t7*t33kP*k*(t2
                                                                                                                                                              *t2)*(t4*t4)-24*t42kP*t1*(t2*t2)*t3P*k*t3*t5-16*t2*t34P*t7*t3P*t42kP*t5*t1+4*t42kP*(t2*t2)
                                                                      *t3P*(t3*t3)*t5*(t1*t1)-t6*t2P*(t1*t1)*t7*t32kP*k*k*t2-16*t33P*t1*t7*t3P*t42kP*t6-2*t42kP
                                                                      *t2*t3P*k*k*(t1*t1)*(t3*t3)-2*t42kP*t7*t3P*k*k*t5*(t2*t2)*(t3*t3)-16*t2*t34P*t7*t3P*t42kP
                                                                      *t6*t1+16*t2*(t3*t3)*t3P*t42kP*t6*t1-4*t42kP*t5*t5*t3P*k*k*t2*t3-4*(t2*t2)*t34P*t42kP*t6
                                                                      *t6*t3P*t1-2*t42kP*t5*t5*t3P*k*k*(t1*t1)*t2*(t3*t3)+t5*t5*t12kP*t3P*k*(t2*t2)+16*t42kP*t1
                                                                      *t7*t7*t3P*k*t33P*t2-8*t33P*t4*t6*t6*t22kP*t3P*(t1*t1)-2*t34P*(t1*t1)*t3P*t42kP*t6*t6-16
                                                                      *(t2*t2)*t33P*t7*t3P*t42kP*t5*t1-4*t42kP*t7*t3P*k*k*t5*t1*(t3*t3)+12*t5*t5*t12kP*t2*t3P
                                                                      *k*t3+4*t42kP*t6*(t1*t1)*t3P*k*k*t3-t5*t1P*t32kP*k*k*t7*(t4*t4)-24*t42kP*t1*t3P*k*t3*t6-4
                                                                      *t2*(t3*t3)*t7*t7*t3P*t42kP*(t1*t1)-4*(t2*t2)*(t3*t3)*t7*t3P*t42kP*t6+4*t42kP*t1*t7*t3P*k
                                                                      *t5+t42kP*t6*t6*t3P*k*(t1*t1)+t4P*t7*t7*t32kP*k*k*(t1*t1)*t4-4*t42kP*t6*t1*t3P*k*k*t5*(t2
                                                                                                                                                             *t2)*(t3*t3)+9*t42kP*t5*t5*(t1*t1)*t3P*k*(t3*t3)+9*t42kP*t7*t7*t3P*k*(t2*t2)*(t3*t3)+12*t6*t6
                                                                      *t22kP*t4*t3P*k*t3*(t1*t1)-8*t5*t5*t12kP*t2*t3P*k*k*t3*t4-16*t42kP*t1*t3P*k*t33P*t6+4*t42kP
                                                                      *t1*t7*t7*t3P*k*t2-2*t42kP*t5*t5*t3P*k*k*(t1*t1)*(t2*t2)*t3+4*t42kP*t7*t3P*k*k*(t2*t2)*t3+4
                                                                      *t4P*t6*t1*t32kP*k*k*t7*t2*t4-8*t33P*t7*t3P*t42kP*t5+2*t42kP*t1*t7*t7*t3P*k+4*t42kP*t7
                                                                      *t7*t3P*k*(t2*t2)*t33P+24*t42kP*t5*t1*t3P*k*t3*t6+36*t5*t5*t12kP*t4*t3P*k*t2*(t3*t3)-t42kP
                                                                      *t6*t6*t3P*k*k*(t3*t3)*(t2*t2)-2*t42kP*t6*(t1*t1)*t3P*k*k*t5*(t2*t2)-t4P*t32kP*k*k*t7*t3+4
                                                                      *t4P*t5*t1*t4*t32kP*k*k*t7*t2-2*t42kP*t7*t7*t3P*k*k*t3-4*t5*t5*t12kP*(t2*t2)*t34P*t4*t3P-4
                                                                      *t6*t6*t22kP*(t1*t1)*t3P*k*k*t3*t4-8*t33P*(t1*t1)*t7*t3P*t42kP*t6-2*t42kP*t5*t3P*k*k*t6-2
                                                                      *t42kP*t5*t5*t3P*k*k*(t1*t1)*t2-t5*t1P*(t2*t2)*t7*t32kP*k*k*t1-8*t2*t34P*t42kP*t6*t6*t3P
                                                                      *t1-t7*t7*t33kP*(t4*t4)*(t3*t3)-t7*t7*t33kP*(t2*t2)*(t3*t3)-2*t7*t7*t33kP*t1*(t3*t3)-t7*t7*t33kP
                                                                      *(t1*t1)*(t3*t3)-2*t7*t7*t33kP*t4*(t3*t3)+2*t7*t7*t33kP*k*t3+3*t7*t7*t32kP*(t3*t3)*t4P-2*t7*t7
                                                                      *t33kP*t2*(t3*t3)+3*t7*t7*t32kP*t33P*t4P-3*t4P*t7*t32kP*(t3*t3)-3*t4P*t7*t32kP*t33P
                                                                      +12*t6*t6*t22kP*(t4*t4)*t3P*k*t3*t1+4*(t2*t2)*(t3*t3)*t7*t3P*t42kP*(t1*t1)-16*t33P*t1*t3P
                                                                      *t42kP*t6*t5+t42kP*t5*t5*(t1*t1)*t3P*k+4*t42kP*t6*t3P*k*k*(t3*t3)*t2+4*t6*t6*t22kP*t3P
                                                                      *k*t33P-16*t42kP*(t2*t2)*t3P*t33P*t5*t6*t1-4*t42kP*t5*t3P*k*t2+2*t42kP*t6*(t1*t1)*t3P
                                                                      *k*k*(t3*t3)+4*t42kP*t5*t3P*k*k*t2*(t3*t3)+2*t42kP*t7*t3P*k*k*(t1*t1)-18*t42kP*(t1*t1)*t7*t3P
                                                                      *k*(t3*t3)-2*t5*t5*t12kP*(t2*t2)*t34P*t3P-2*(t3*t3)*t6*t6*t22kP*t3P*(t4*t4)+t4P*t6*(t1*t1)
                                                                      *t32kP*k*k*t7*t4-4*t5*t5*t12kP*t33P*(t4*t4)*t3P-8*t42kP*t7*t3P*k*t33P-2*t42kP*t6*t6*(t1
                                                                                                                                                           *t1)*t3P*k*k*t3-4*t42kP*t6*(t1*t1)*t3P*k*k*t5*(t2*t2)*t3+2*t4P*t7*t7*t32kP*k*k*t1+36*t42kP
                                                                      *t1*t7*t3P*k*(t3*t3)*t5+18*t42kP*(t1*t1)*t7*t7*t3P*k*(t3*t3)*t2-t5*t1P*(t2*t2)*t32kP*k*k*t7-2
                                                                      *t6*t2P*t4*t32kP*k*k*t3*t7-8*t42kP*t1*t2*t7*t7*t3P*k*k*t3+4*t5*t5*t12kP*(t2*t2)*t3P*k*t33P-12
                                                                      *t4P*t3*t4*t6*t2P*k*t7*t3P-2*t7*t3P*(t1*t1)*t2P*k*t4P*t6-2*t5*t5*t3P*(t3*t3)*t42kP+9
                                                                      *t42kP*t6*t6*t3P*k*(t1*t1)*(t3*t3)+2*t42kP*t1*t3P*k+t6*t6*t22kP*t3P*k-8*t5*t5*t12kP*t2
                                                                      *t33P*(t4*t4)*t3P+2*t4P*t7*t7*t32kP*k*k*t1*(t2*t2)*t4-t5*t5*t12kP*(t2*t2)*t3P*k*k*(t3*t3)-t6
                                                                      *t2P*(t1*t1)*t7*t32kP*k*k*t3*(t4*t4)+8*t42kP*(t2*t2)*t3P*(t3*t3)*t5*t1-16*t33P*t4*t6*t6*t22kP
                                                                      *t3P*t1+2*t4P*t6*(t1*t1)*t32kP*k*k*t7*t2*t4*t3+4*t42kP*t6*t3P*k*k*t3-8*t33P*(t1*t1)*t7*t3P
                                                                      *t42kP*t5+24*t6*t6*t22kP*t4*t3P*k*t3*t1+2*t42kP*t5*t5*t1*t3P*k+2*t4P*t6*t1*t32kP*k*k*t7
                                                                      *t4+2*t42kP*t7*t3P*k*k*(t1*t1)*(t3*t3)-t5*t5*t12kP*(t2*t2)*t3P*k*k*(t3*t3)*(t4*t4)+2*t5*t5*t12kP
                                                                      *(t2*t2)*t4*t3P*k-8*t33P*t7*t3P*t42kP*t6-4*t5*t5*t12kP*t3P*(t3*t3)*t2+4*t42kP*t5*t3P
                                                                      *k*k*(t2*t2)*t3-18*t42kP*t7*t3P*k*(t2*t2)*(t3*t3)-2*t4P*t4*t5*t1P*k*t1*t7*t3P-2*t34P*(t4
                                                                                                                                                            *t4)*t6*t6*t22kP*t3P*(t1*t1)-2*t4P*t5*t1P*k*t7*t3P*(t2*t2)+4*t4P*t2*t5*t1P*k*k*t7*t3P-4
                                                                      *t42kP*t1*(t2*t2)*t7*t3P*k*k*(t3*t3)*t6-24*t4P*t2*t3*t5*t1P*k*t7*t3P-8*t2*t33P*t3P*t42kP-4
                                                                      *t4P*t4*t5*t1P*k*t1*t7*t3P*t2-24*t4P*t3*t5*t1P*k*t1*t7*t3P*t2-2*t4P*(t2*t2)*t5*t1P*k
                                                                      *t1*t7*t3P+t4P*t5*t32kP*k*k*t7*(t1*t1)*t3-36*t42kP*t1*t7*t3P*k*(t3*t3)*(t2*t2)+8*t7*t3P*t4
                                                                      *t5*t1P*k*k*t1*t4P*t2*t3+4*t7*t3P*t4*t5*t1P*k*k*t1*t4P*t2+4*t4P*(t2*t2)*t5*t1P*k*k*t7*t3P
                                                                      *t1*t3+4*t4P*(t2*t2)*t5*t1P*k*k*t7*t3P*t4*t3-16*t42kP*(t1*t1)*t2*t3P*k*t33P*t5+8*t42kP
                                                                      *t1*(t2*t2)*t7*t3P*k*k*t3-4*t6*t2P*t1*t7*t32kP*k*k*t4-4*t42kP*t7*t3P*k*k*t5*(t2*t2)*t3-8*t42kP
                                                                      *t7*t3P*k*k*t5*t1*t3-18*t42kP*(t1*t1)*t7*t3P*k*(t3*t3)*(t2*t2)-4*(t2*t2)*(t3*t3)*t7*t3P*t42kP
                                                                      *t5*(t1*t1)-2*t5*t1P*t2*t32kP*k*k*t7*(t4*t4)*t3+4*t4P*t6*t1*t32kP*k*k*t7*t2-8*t42kP*t7*t3P
                                                                      *k*k*t6*t1*t2+2*t42kP*t1*t3P*k*(t2*t2)-2*t42kP*t3P*k*k*(t1*t1)*t3+12*t42kP*t1*t3P*k*t3+2
                                                                      *t42kP*t7*t3P*k*k*(t3*t3)+8*(t3*t3)*t1*t3P*t42kP*t6+t6*t6*t22kP*(t4*t4)*t3P*k+18*t42kP
                                                                      *t6*(t2*t2)*t3P*k*(t3*t3)*t5+8*t42kP*t5*t3P*k*k*t1*t2*(t3*t3)-4*(t3*t3)*t6*t6*t22kP*t3P*t1
                                                                      +4*t42kP*t5*t3P*k*k*t1*(t2*t2)+4*t42kP*(t1*t1)*(t2*t2)*t3P*k*t33P-16*t42kP*t7*t3P*k*t2
                                                                      *t33P+12*t5*t5*t12kP*t2*t3P*k*t3*(t4*t4)-8*t42kP*(t2*t2)*t3P*t33P*t5*t5*t1-2*(t2*t2)*t34P
                                                                      *t42kP*t6*t6*t3P-2*t6*t2P*t1*t7*t32kP*k*k*t3*t2*(t4*t4)-2*t42kP*t7*t3P*k*k*t5*(t1*t1)*(t3
                                                                                                                                                             *t3)-12*t42kP*t6*(t2*t2)*t3P*k*t3-2*t42kP*t5*t5*t3P*k*k*(t2*t2)*t3-4*t42kP*t6*t3P*k*(t1*t1)
                                                                      *t2-2*(t2*t2)*(t3*t3)*t7*t7*t3P*t42kP*(t1*t1)-4*t42kP*t7*t3P*k*k*t5*(t1*t1)*t2-2*t5*t5*t12kP
                                                                      *(t2*t2)*(t4*t4)*t3P*(t3*t3)-4*t42kP*t7*t3P*k*k*t6*t2*(t3*t3)-4*t33P*t3P*t42kP+48*t42kP
                                                                      *t6*t1*t2*t7*t3P*k*t3-4*t34P*t4*t6*t6*t22kP*t3P*(t1*t1)+8*t42kP*t1*t7*t3P*k*t5*t2+9*t6*t6
                                                                      *t22kP*(t1*t1)*t3P*k*(t3*t3)-4*t34P*t1*t3P*t42kP*t6*t6+4*t42kP*t1*t7*t3P*k*t5*(t2*t2)+t4P
                                                                      *t5*(t1*t1)*t4*t32kP*k*k*t7*(t2*t2)*t3-24*t42kP*t1*t7*t3P*k*t3+2*t4P*t2*t4*t7*t7*t32kP*k*k
                                                                      *t3*(t1*t1)-8*(t2*t2)*t33P*t42kP*t6*t6*t3P*t1+24*t42kP*t5*t5*t1*t3P*k*t3*t2+8*t42kP*t7*t7
                                                                      *t3P*k*t2*t33P+9*t5*t5*t12kP*(t4*t4)*t3P*k*(t2*t2)*(t3*t3)+18*t42kP*t5*t5*(t1*t1)*t3P*k*(t3
                                                                                                                                                               *t3)*t2+4*t42kP*t5*t3P*k*k*t1*(t3*t3)-4*t42kP*t7*t3P*k*k*t5*(t1*t1)*t3-t4P*t4*t32kP*k*k*t7
                                                                      *(t1*t1)*t3-2*t5*t1P*t32kP*k*k*t7*t4*t3-2*t42kP*t6*t3P*k*(t1*t1)-4*t42kP*t7*t3P*k*k*t5*t1-t6
                                                                      *t6*t22kP*(t4*t4)*t3P*k*k*(t3*t3)-4*t5*t5*t12kP*t2*t34P*(t4*t4)*t3P+4*(t3*t3)*(t1*t1)*t7*t3P
                                                                      *t42kP-4*t42kP*(t2*t2)*t3P*t34P*t5*t6+8*t42kP*t6*t6*t2*t3P*k*t33P+18*t42kP*(t1*t1)*t2
                                                                      *t3P*k*(t3*t3)-4*t6*t2P*t1*t7*t32kP*k*k*t3*t4-8*t34P*t1*t3P*t42kP*t6*t5+8*t42kP*t5*(t1
                                                                                                                                                          *t1)*t3P*k*t33P*t6-4*t42kP*t6*(t1*t1)*t3P*k*k*t5*t3-4*t42kP*t5*t5*t3P*k*k*(t1*t1)*t2*t3-4
                                                                      *(t2*t2)*(t3*t3)*t7*t7*t3P*t42kP*t1-4*t5*t5*t12kP*(t2*t2)*t33P*(t4*t4)*t3P+4*(t2*t2)*(t3*t3)
                                                                      *t3P*t42kP*t6*(t1*t1)-8*(t2*t2)*t34P*t7*t3P*t42kP*t6*t1+2*t4P*t5*(t1*t1)*t4*t32kP*k*k*t7
                                                                      *t2+18*t42kP*(t1*t1)*t7*t3P*k*(t3*t3)*t6*(t2*t2)-4*t4P*t2*t32kP*k*k*t7*t1*t3+2*t42kP*t5*t5
                                                                      *(t1*t1)*t3P*k*t2+4*t4P*t5*t1*t4*t32kP*k*k*t7*t2*t3-12*t42kP*t6*t3P*k*t3-2*t42kP*(t1*t1)
                                                                      *t7*t3P*k+2*t42kP*t5*t3P*k*k*(t1*t1)*(t3*t3)-36*t42kP*t1*(t2*t2)*t3P*k*(t3*t3)*t5+8*t2*(t3
                                                                                                                                                              *t3)*t7*t3P*t42kP-16*t42kP*t6*t1*t3P*k*k*t5*t2*t3-18*t42kP*t5*t3P*k*(t3*t3)-4*t42kP*t6
                                                                      *t3P*k*t1-4*(t3*t3)*(t1*t1)*t7*t3P*t42kP*t5+4*t7*t7*t33kP*(t1*t1)*t2*k*t4+24*t42kP*t6*(t2*t2)
                                                                      *t3P*k*t3*t5*t1+8*t42kP*t7*t3P*k*t5*t33P-16*t42kP*t2*t3P*(t3*t3)*t5*t6*t1-8*(t2*t2)*(t3*t3)
                                                                      *t7*t3P*t42kP*t6*t1-2*t6*t2P*t1*t7*t32kP*k*k*(t4*t4)-2*t42kP*(t2*t2)*t3P*(t3*t3)*t5*t5*(t1
                                                                                                                                                              *t1)+2*t7*t7*t33kP*(t1*t1)*t2*k-8*t42kP*t6*t1*t3P*k*k*t5*t2*(t3*t3)-16*t42kP*(t1*t1)*t7*t3P
                                                                      *k*t33P*t2-t6*t6*t22kP*t3P*k*k*(t3*t3)-4*t42kP*t6*t1*t3P*k*k*t5*(t2*t2)-12*t42kP*(t1*t1)
                                                                      *(t2*t2)*t3P*k*t3*t6-2*t42kP*t7*t3P*k+16*t42kP*(t1*t1)*t7*t3P*k*t33P*t5*t2-t42kP*t5*t5
                                                                      *t3P*k*k*(t1*t1)*(t3*t3)-4*t6*t2P*t1*t7*t32kP*k*k*t3*t2*t4+16*t42kP*t7*t3P*k*t5*t2*t33P+24
                                                                      *t42kP*t7*t3P*k*t6*t2*t3+4*t42kP*t1*t7*t3P*k*t6-8*t42kP*(t2*t2)*t3P*t33P*t5*t6-8*t42kP
                                                                      *t7*t3P*k*k*t6*t1*t3+8*t42kP*(t1*t1)*t7*t3P*k*t33P*t6*(t2*t2)+18*t42kP*t6*t3P*k*t5*(t3*t3)
                                                                      +2*t42kP*(t1*t1)*t3P*k*t2+8*t42kP*t5*t1*t3P*k*t6*t2+4*t5*t5*t12kP*(t4*t4)*t3P*k*(t2*t2)*t33P
                                                                      +8*t2*t34P*t42kP*t6*t3P*(t1*t1)+2*t42kP*t6*t3P*k*k*(t3*t3)+4*t7*t3P*t1P*k*k*t4P*t5*t3
                                                                      *t4+2*t7*t3P*t1P*k*k*t4P*t5*t4-4*t4P*t2*t5*t1P*k*t1*t7*t3P+2*t4P*(t2*t2)*t5*t1P*k*k*t7
                                                                      *t3P*t1+2*t4P*(t2*t2)*t5*t1P*k*k*t7*t3P*t4-8*t42kP*t7*t3P*k*k*t5*t1*t2-4*t2*t34P*t42kP
                                                                      *t6*t6*t3P-2*t5*t1P*(t2*t2)*t32kP*k*k*t7*t4-2*(t3*t3)*t6*t6*t22kP*t3P+8*t33P*t3P*t42kP
                                                                      *t7-2*t6*t6*t22kP*(t1*t1)*t3P*k*k*t4-2*t42kP*t6*t6*t1*t3P*k*k*(t2*t2)+9*t42kP*t7*t7*t3P*k
                                                                      *(t3*t3)-8*(t2*t2)*(t3*t3)*t7*t3P*t42kP*t5*t1-2*t42kP*t7*t3P*k*k*t6*(t2*t2)+8*t42kP*t7*t3P
                                                                      *k*t6*(t2*t2)*t33P-8*t5*t5*t12kP*t2*t4*t3P*(t3*t3)+2*t4P*t1*(t2*t2)*t7*t7*t32kP*k*k*t3-t6*t2P
                                                                      *t32kP*k*k*t7*t2-t42kP*t6*t6*t3P*k*k*(t2*t2)-8*t42kP*t5*t3P*k*t33P+24*t5*t5*t12kP*t2*t3P
                                                                      *k*t3*t4+24*t42kP*t1*t7*t3P*k*t5*(t2*t2)*t3+8*(t2*t2)*t34P*t7*t3P*t42kP*t1+6*t6*t6*t22kP
                                                                      *(t4*t4)*t3P*k*t3*(t1*t1)-4*t42kP*(t1*t1)*t2*t7*t7*t3P*k*k*t3-t5*t1P*(t2*t2)*t7*t32kP*k*k*t1
                                                                      *t3-4*t42kP*t6*t3P*k*k*t3*t5-8*t42kP*(t2*t2)*t3P*t34P*t5*t6*t1-2*t34P*(t4*t4)*t6*t6*t22kP
                                                                      *t3P-16*t5*t5*t1P*t3P*k*t33P*t4P*t1*t2+4*t5*t1P*t1*t2*t3P*k*t4P*t4-16*t4P*t5*t7*t32kP
                                                                      *k*t3*t1-16*t4P*t5*t7*t32kP*k*t3*t2-8*t6*t2P*t1*t3P*k*k*t3*t4P*t4+4*t6*t2P*(t1*t1)*t3P
                                                                      *k*k*t3*t4P*t5*t4-2*t6*t2P*(t1*t1)*t3P*k*k*(t3*t3)*t4P*t4+4*t7*t7*t33kP*k*t2*t3*(t1*t1)*(t4
                                                                                                                                                               *t4)+4*t7*t7*t33kP*k*(t2*t2)*t3*(t1*t1)*t4+2*t7*t7*t33kP*k*(t2*t2)*t3*(t1*t1)*(t4*t4)+6*t7*t7*t32kP
                                                                      *t2*(t3*t3)*t4P+4*t4P*t6*(t2*t2)*t4*t3P*(t3*t3)*t5*t1P*t1+2*t4P*t6*t3P*k*k*t5*t1P*(t3*t3)
                                                                      *t1+8*t4P*t6*t3P*k*k*t5*t1P*t2*t3*t1+4*t4P*t6*t3P*k*k*t5*t1P*t3*t4*t1+8*t4P*t6*t3P*k
                                                                      *k*t5*t1P*t2*t3*t4*t1+4*t4P*t6*t6*t3P*k*k*t2P*(t1*t1)*t3*t4*t2+4*t4P*t6*t6*t3P*k*k*t2P
                                                                      *(t1*t1)*t3*t2+4*t4P*t6*t3P*k*k*t5*t1P*t2*t4*t1+4*t4P*t6*t3P*k*k*t5*t1P*t2*(t3*t3)*t1+2*t4P
                                                                      *t6*t3P*k*k*t5*t1P*(t3*t3)*t4*t1+2*t4P*t6*t6*t3P*k*k*t2P*(t1*t1)*t4+4*t4P*t6*t6*t3P*k*k
                                                                      *t2P*(t1*t1)*t3+4*t4P*t6*t3P*k*k*(t3*t3)*t5*t1P*t2*t4+36*t5*t1P*t4*t3P*k*t4P*t2*(t3*t3)-12
                                                                      *t7*t32kP*k*t4P*t5*t2*(t3*t3)*t4+12*t7*t32kP*k*t5*t1P*(t2*t2)*(t3*t3)*t4-32*t7*t32kP*k*t4P
                                                                      *t6*t1*t2*t3*t4-32*t7*t32kP*k*t4P*t5*t1*t2*t3*t4-16*t7*t32kP*k*t4P*t5*(t1*t1)*t2*t3*t4-2*t5*t1P
                                                                      *(t2*t2)*t3P*k*k*t4P*t1*t4-12*t5*t5*t1P*t4*t3P*k*t4P*t1*(t2*t2)*t3-2*t5*t1P*t1*(t2*t2)*t3P
                                                                      *k*t4P*t6*t4-6*t7*t32kP*(t3*t3)*t5*t1P*t4-6*t4P*t5*t7*t32kP*k*(t3*t3)+4*t6*t2P*t1*t3P*k
                                                                      *k*(t3*t3)*t4P*t5*t2*t4+2*t6*t2P*(t1*t1)*t3P*k*k*(t3*t3)*t4P*t5*t4-8*t6*t2P*t1*t3P*k*k*t3
                                                                      *t4P+16*t4P*t1*t3P*k*t33P*t5*t1P*t2+8*t4P*t1*t3P*k*t33P*t5*t1P*t4+8*t4P*(t1*t1)*t3P
                                                                      *k*t33P*t6*t2P+12*t5*t1P*t3P*k*t3*t6*t2P*t2-4*(t2*t2)*(t3*t3)*t3P*t4P*t5*t1P*t4-6*t4P
                                                                      *t7*t32kP*t1*t4*(t3*t3)*(t2*t2)-3*t4P*t7*t32kP*(t1*t1)*t4*(t3*t3)*(t2*t2)+8*t7*t32kP*k*t5*t1P
                                                                      *(t2*t2)*t3*(t4*t4)*t1+8*t7*t32kP*k*t6*t2P*(t1*t1)*t3*(t4*t4)*t2+6*t7*t32kP*k*t4P*(t3*t3)-8*t4P
                                                                      *t6*t1*(t2*t2)*t3P*k*t33P*t5*t1P*t4+12*t4P*t1*t3P*k*t3*t5*t1P+12*t4P*t1*t3P*k*t3*t5*t1P
                                                                      *t4-2*t5*t5*t1P*t1*(t2*t2)*t3P*k*t4P*t4-12*t4P*t5*t7*t32kP*k*(t3*t3)*t1-12*t4P*t5*t7*t32kP
                                                                      *k*(t3*t3)*t2+2*t4P*t7*t3P*k*k*t5*t1P*(t3*t3)*t4-18*t4P*(t1*t1)*t7*t3P*k*(t3*t3)*t6*t2P-16
                                                                      *t4P*t1*t7*t3P*k*t33P*t6*t2P-36*t4P*t1*t7*t3P*k*(t3*t3)*t6*t2P*t4-36*t4P*t1*t7*t3P
                                                                      *k*(t3*t3)*t5*t1P*t2-18*t4P*t1*t7*t3P*k*(t3*t3)*t5*t1P-36*t4P*t1*t7*t3P*k*(t3*t3)*t6*t2P-18
                                                                      *t5*t1P*t4*t3P*k*t4P*t6*(t3*t3)-18*t5*t5*t1P*t4*t3P*k*t4P*(t3*t3)+2*t6*t2P*(t1*t1)*t3P
                                                                      *k*k*t4P*t5*t4+4*t6*t2P*t1*t3P*k*k*t4P*t5*t4-8*t6*t2P*(t1*t1)*t3P*k*t33P*t4P*t5*t2-36
                                                                      *t6*t6*t2P*t2*t4*t3P*k*(t3*t3)*t4P*t1-36*t6*t2P*t2*t4*t3P*k*(t3*t3)*t4P*t5*t1-8*t4P*t5
                                                                      *t7*t32kP*k*(t2*t2)*t4*t3-16*t4P*t5*t7*t32kP*k*(t2*t2)*t4*t3*t1-4*t7*t7*t33kP*t4*(t3*t3)*t1+24
                                                                      *t7*t32kP*k*t5*t1P*t2*(t3*t3)*t4*t1-12*t7*t32kP*k*t4P*t6*(t1*t1)*t2*(t3*t3)-12*t7*t32kP*k*t4P
                                                                      *t5*(t1*t1)*t2*(t3*t3)+6*t7*t32kP*k*t4P*(t1*t1)*(t2*t2)*(t3*t3)+24*t4P*t1*t3P*k*t6*t2P*t3-12
                                                                      *t4P*t6*t1*(t2*t2)*t3P*k*t3*t5*t1P*t4-8*t4P*t6*t1*(t2*t2)*t3P*k*t33P*t5*t1P-16*t4P*t6
                                                                      *t1*t2*t3P*k*t33P*t5*t1P*t4-8*t4P*t6*t6*(t1*t1)*t2*t3P*k*t33P*t2P-2*t5*t1P*(t2*t2)*t3P
                                                                      *k*k*t4P*t1-8*t5*t1P*t2*t3P*k*k*t4P*t1*t3+12*t6*t2P*t2*t4*t3P*k*t3*t4P*(t1*t1)+12*t6*t2P
                                                                      *t2*(t4*t4)*t3P*k*t3*t5*t1P*t1-8*t4P*t5*t3P*k*t6*t2P*t33P-8*t5*t5*t1P*(t2*t2)*t3P*k*t33P
                                                                      *t4P-18*t4P*t6*t6*(t1*t1)*t3P*k*(t3*t3)*t2P+8*t6*t2P*t1*t3P*k*k*t3*t4P*t5*t4-4*t6*t2P
                                                                      *t1*t3P*k*k*(t3*t3)*t4P*t4+2*t6*t2P*(t1*t1)*t3P*k*k*(t3*t3)*t4P*t5*t2+4*t6*t2P*(t1*t1)*t3P
                                                                      *k*k*t3*t4P*t5*t2+4*t6*t2P*t1*t3P*k*k*(t3*t3)*t4P*t5*t2+2*t6*t2P*(t1*t1)*t3P*k*k*(t3*t3)
                                                                      *t4P*t5+8*t7*t32kP*k*t5*t1P*(t2*t2)*t3+16*t7*t32kP*k*t4P*t1*(t2*t2)*t3+24*t7*t32kP*k*t6*t2P
                                                                      *t1*(t3*t3)*t4*t2-12*t7*t32kP*k*t4P*t6*t1*(t2*t2)*(t3*t3)-12*t7*t32kP*k*t4P*t5*t1*(t2*t2)*(t3
                                                                                                                                                                 *t3)+12*t7*t32kP*k*t6*t2P*t1*(t3*t3)*t2+16*t7*t32kP*k*t5*t1P*(t2*t2)*t3*t4+32*t7*t32kP*k*t6
                                                                      *t2P*t1*t3*t4*t2-16*t7*t32kP*k*t4P*t6*t1*(t2*t2)*t3-16*t6*t2P*t1*t3P*k*t33P*t4P*t5*t2+12
                                                                      *t6*t2P*t1*t3P*k*t3*t5*t1P*t2+12*t6*t2P*t1*t3P*k*t3*t5*t1P+18*t6*t2P*t1*t3P*k*(t3*t3)
                                                                      *t5*t1P+24*t6*t2P*t2*t4*t3P*k*t3*t5*t1P+8*t5*t1P*t7*t32kP*k*t3*(t4*t4)-32*t7*t32kP*k*t4P
                                                                      *t6*t1*t2*t3-32*t7*t32kP*k*t4P*t5*t1*t2*t3+12*t7*t32kP*k*t4P*t1*(t3*t3)+12*t7*t32kP*k*t4P
                                                                      *t2*(t3*t3)-12*t7*t32kP*k*t4P*t6*t1*(t2*t2)*(t3*t3)*t4+4*t5*t5*t1P*t2*t3P*k*k*t4P*t1*t4+18
                                                                      *t4P*(t1*t1)*t3P*k*(t3*t3)*t6*t2P*t4+16*t4P*t1*t3P*k*t33P*t6*t2P*t4+16*t4P*t1*t3P*k
                                                                      *t33P*t5*t1P*t2*t4-2*t7*t7*t32kP*(t1*t1)*(t2*t2)*k*t4P*t4+32*t4P*t7*t32kP*k*t2*t4*t3*t1+18
                                                                      *t4P*t1*t3P*k*(t3*t3)*t5*t1P*t4+2*t4P*t3P*k*t6*t2P+3*t7*t32kP*(t3*t3)*t4P*t6*(t1*t1)
                                                                      +6*t5*t1P*t7*t32kP*k*(t3*t3)*(t4*t4)-2*t4P*t6*t3P*k*t5*t1P*(t2*t2)-18*t4P*t6*t3P*k*t5*t1P
                                                                      *(t3*t3)-8*t4P*t7*t3P*k*t5*t1P*(t2*t2)*t33P-8*t4P*t7*t3P*k*t6*t2P*t33P*t2-2*t5*t1P
                                                                      *t1*(t4*t4)*t3P*k*k*t6*t2P+16*t7*t32kP*k*t4P*(t1*t1)*t2*t3+16*t7*t32kP*k*t5*t1P*t2*t3*t1
                                                                      +32*t7*t32kP*k*t5*t1P*t2*t3*t4*t1+12*t4P*(t1*t1)*t3P*k*t6*t2P*t3+24*t4P*t1*t3P*k*t6*t2P
                                                                      *t3*t4+8*t4P*t1*t3P*k*t33P*t5*t1P*(t2*t2)*t4+8*t4P*(t1*t1)*t3P*k*t33P*t6*t2P*t2-18*t5
                                                                      *t1P*t4*t3P*k*t4P*t6*(t2*t2)*(t3*t3)-2*t4P*t5*t5*t1*t3P*k*t1P*t4-6*t7*t32kP*t2*t33P*t5
                                                                      *t1P-12*t7*t32kP*t2*(t3*t3)*t5*t1P*t4+16*t42kP*t2*t3P*t33P*t5*(t1*t1)-4*t6*t2P*t2*(t4*t4)
                                                                      *t3P*k*k*t5*t1P*t3+8*t5*t1P*t4*t3P*k*t4P*t33P-8*t5*t5*t1P*t4*t3P*k*t4P*t1*(t2*t2)*t33P
                                                                      +8*t5*t1P*t4*t3P*k*t4P*(t2*t2)*t33P+16*t5*t1P*t4*t3P*k*t4P*t2*t33P-8*t5*t1P*t4*t3P
                                                                      *k*t4P*t6*t33P-8*t5*t5*t1P*t4*t3P*k*t4P*t33P-12*t6*t6*t2P*t2*t4*t3P*k*t3*t4P-12*t6
                                                                      *t2P*t2*t4*t3P*k*t3*t4P*t5+6*t4P*t6*t7*t32kP*t1*(t2*t2)*t4*(t3*t3)+3*t4P*t6*t7*t32kP*(t1
                                                                                                                                                            *t1)*(t2*t2)*t4*(t3*t3)-2*t4P*t3P*k*k*t6*t2P*(t1*t1)+2*t4P*t5*t5*t3P*k*k*(t3*t3)*t1P*t1+4
                                                                      *t4P*t5*t5*t3P*k*k*t3*t1P*t4*t1-18*t4P*t6*t1*(t2*t2)*t3P*k*(t3*t3)*t5*t1P-36*t4P*t6*t1
                                                                      *t2*t3P*k*(t3*t3)*t5*t1P*t4+6*t4P*t6*t7*t32kP*(t1*t1)*t2*t4*(t3*t3)-18*t4P*t6*t6*(t1*t1)*t2
                                                                      *t3P*k*(t3*t3)*t2P-4*t4P*t2*t4*t3P*k*k*t3*t6*t2P*(t1*t1)+8*t6*t2P*t1*t3P*k*t33P*t5*t1P
                                                                      *t2-8*t6*t2P*(t1*t1)*t3P*k*t33P*t4P*t5+8*t4P*t3P*k*t6*t2P*t33P*t2-2*t4P*t3P*k*k*t5
                                                                      *t1P*t1-4*t4P*t3P*k*k*t5*t1P*t3*t1+16*t7*t7*t33kP*k*t2*t3*t1*t4+8*t7*t7*t33kP*k*(t2*t2)*t3
                                                                      *t1*t4-8*t6*t2P*t2*t4*t3P*k*t33P*t4P*t5*(t1*t1)+12*t7*t32kP*k*t5*t1P*(t2*t2)*(t3*t3)*t4*t1
                                                                      +6*t7*t32kP*k*t5*t1P*(t2*t2)*(t3*t3)*t1+8*t7*t32kP*k*t5*t1P*(t2*t2)*t3*t1+8*t7*t32kP*k*t4P
                                                                      *(t1*t1)*(t2*t2)*t3-2*t6*t2P*t2*(t4*t4)*t3P*k*k*t5*t1P*(t3*t3)-2*t4P*t6*t3P*k*t5*t1P*t4*t1-12
                                                                      *t4P*t6*t3P*k*t5*t1P*t3*t1+4*t7*t32kP*k*t5*t1P*t2*(t4*t4)-4*t7*t32kP*k*t4P*t5*t1*t4+4*t7
                                                                      *t32kP*k*t6*t2P*t1*(t4*t4)-2*t6*t2P*t1*t3P*k*k*(t3*t3)*t5*t1P*(t4*t4)+6*t7*t32kP*t1*t33P
                                                                      *t4P*t6+24*t4P*t1*t3P*k*t6*t2P*t3*t2+8*t7*t7*t33kP*k*t2*(t4*t4)*t3*t1+4*t7*t7*t33kP*k*(t2
                                                                                                                                                             *t2)*(t4*t4)*t3*t1+6*t7*t7*t32kP*t1*t33P*t4P*(t2*t2)+6*t7*t7*t32kP*t1*t33P*t4P-18*t4P*t6
                                                                      *t6*t2*t3P*k*t2P*(t3*t3)-24*t7*t32kP*k*t4P*t6*t1*t2*(t3*t3)-24*t7*t32kP*k*t4P*t5*t1*t2*(t3
                                                                                                                                                              *t3)-16*t7*t32kP*k*t4P*t5*t2*t3*t4-18*t6*t2P*t4*t3P*k*(t3*t3)*t4P*t5*(t1*t1)+24*t6*t2P*t2
                                                                      *t4*t3P*k*t3*t5*t1P*t1+18*t6*t2P*t2*t4*t3P*k*(t3*t3)*t4P*(t1*t1)-8*t2*(t3*t3)*t3P*t4P*t5
                                                                      *t1P*t4*t1-4*(t2*t2)*(t3*t3)*t3P*t4P*t5*t1P*t1-16*t5*t5*t1P*t4*t3P*k*t4P*t1*t2*t33P-16
                                                                      *t5*t5*t1P*t4*t3P*k*t4P*t2*t33P-8*t5*t5*t1P*t4*t3P*k*t4P*t1*t33P+12*t5*t1P*(t4*t4)
                                                                      *t3P*k*t6*t2P*t1*t3+18*t5*t1P*t4*t3P*k*t4P*(t3*t3)-24*t5*t5*t1P*t4*t3P*k*t4P*t1*t2*t3
                                                                      +36*t5*t1P*t4*t3P*k*t6*t2P*(t3*t3)-16*t4P*t6*t7*t32kP*k*(t1*t1)*t2*t4*t3+18*t6*t2P*t1*t3P
                                                                      *k*(t3*t3)*t5*t1P*t2-2*t4P*t6*t3P*k*t5*t1P*(t2*t2)*t4-2*t5*t1P*t2*t3P*k*k*t6*t2P*t1-2*t6
                                                                      *t2P*t1*t3P*k*k*t5*t1P-2*t4P*t3P*k*k*t6*t2P*(t1*t1)*t4*t2-16*t4P*t6*t6*t1*t3P*k*t33P
                                                                      *t2P-36*t4P*t6*t6*t1*t3P*k*(t3*t3)*t2P*t4-36*t4P*t6*t6*t1*t3P*k*(t3*t3)*t2P-4*t5*t1P
                                                                      *t1*t4*t3P*k*k*t6*t2P-4*t5*t1P*t1*t4*t3P*k*k*t4P*t3-8*t4P*t7*t7*t32kP*k*(t2*t2)*t4*t3*(t1
                                                                                                                                                             *t1)-6*t4P*t7*t7*t32kP*k*(t2*t2)*t4*(t3*t3)*(t1*t1)+3*t7*t32kP*(t1*t1)*t33P*t4P*t6*(t2*t2)
                                                                      +4*t7*t7*t33kP*k*t1*t3+6*t7*t32kP*t1*t33P*t4P*t5+6*t7*t32kP*t1*t33P*t4P*t5*(t2*t2)-3*t7
                                                                      *t32kP*(t1*t1)*t33P*t6*t2P-3*t7*t32kP*t1*t33P*t5*t1P+2*t4P*t7*t3P*k*k*t6*t2P*(t3*t3)
                                                                      *t4-4*t6*t2P*t4*t3P*k*t4P*t5*t1*t2-2*t4P*t5*(t1*t1)*t3P*k*t6*t2P*t2-12*t7*t32kP*t1*t33P
                                                                      *t6*t2P*t4-6*t7*t32kP*t1*t33P*t5*t1P*t2+8*t6*t6*t2P*t2*t33P*t3P*t4P-8*t6*t2P*t2*t33P
                                                                      *t3P*t5*t1P-4*t6*t2P*t2*t34P*t3P*t4P-3*t7*t32kP*(t3*t3)*t5*t1P*(t4*t4)-6*t7*t32kP*(t1
                                                                                                                                                         *t1)*t33P*t4P*t2-6*t7*t32kP*t1*t33P*t5*t1P*t4-3*t7*t32kP*(t3*t3)*t6*t2P*(t4*t4)-6*t7*t32kP
                                                                      *t1*t33P*t6*t2P+12*t7*t32kP*t1*t33P*t4P*t6*t2-18*t5*t5*t1P*(t2*t2)*t3P*k*(t3*t3)*t4P
                                                                      +6*t7*t32kP*t1*t33P*t4P*t6*(t2*t2)-6*t7*t32kP*t1*t33P*t6*t2P*t2-12*t5*t5*t1P*(t2*t2)*t3P
                                                                      *k*t3*t4P-36*t5*t5*t1P*t2*t3P*k*(t3*t3)*t4P+24*t5*t1P*t2*t3P*k*t3*t4P-3*t7*t32kP*(t1
                                                                                                                                                        *t1)*t33P*t4P*(t2*t2)-12*t7*t32kP*t1*t33P*t4P*t2+3*t7*t32kP*(t1*t1)*t33P*t4P*t5*(t2*t2)-3
                                                                      *t7*t32kP*(t1*t1)*t33P*t4P-6*t7*t32kP*t33P*t5*t1P*t4+2*t7*t7*t33kP*k*(t2*t2)*t3*(t4*t4)-3
                                                                      *t7*t32kP*t1*t33P*t5*t1P*(t2*t2)+3*t7*t7*t32kP*(t1*t1)*t33P*t4P+12*t7*t7*t32kP*t1*t33P
                                                                      *t4P*t2-12*t7*t32kP*t1*t33P*t4P*t2*t4-3*t7*t32kP*(t1*t1)*t33P*t4P*t4-8*t5*t5*t1P*t4*t3P
                                                                      *k*t4P*(t2*t2)*t33P-2*t4P*t6*t6*t3P*k*t2P*(t1*t1)*t2-2*t4P*t6*t3P*k*t5*t1P*t1-2*t4P
                                                                      *t6*t6*t3P*k*t2P*(t1*t1)+4*t4P*t6*t3P*k*k*t5*t1P*(t2*t2)*t3*t1+2*t4P*t6*t6*t3P*k*k*t2P
                                                                      *(t1*t1)*(t3*t3)+2*t4P*t6*t6*t3P*k*k*t2P*(t1*t1)*(t3*t3)*t4*t2+2*t4P*t6*t6*t3P*k*k*t2P*(t1
                                                                                                                                                              *t1)*(t3*t3)*t2+2*t4P*t6*t6*t3P*k*k*t2P*(t1*t1)*t4*t2+4*t4P*t6*t3P*k*k*t5*t1P*(t2*t2)*t3
                                                                      *t4*t1+4*(t3*t3)*(t1*t1)*t7*t3P*t4P*t6*t2P+8*(t3*t3)*t1*t7*t3P*t4P*t6*t2P*t4-2*t5*t1P*t1
                                                                      *t4*t3P*k*k*t4P+8*t6*t2P*t1*t3P*k*k*t3*t4P*t5+18*t4P*t3P*k*t6*t2P*(t3*t3)*t4-12*t4P
                                                                      *t6*t6*t2*t3P*k*t2P*t3+8*t5*t1P*t7*t32kP*k*(t2*t2)*(t4*t4)*t3+8*t4P*t7*t32kP*k*(t1*t1)*t3
                                                                      +4*t4P*(t2*t2)*t3P*(t3*t3)*t5*t5*t1P*t4-2*t6*t2P*t3P*k*k*t5*t1P*(t3*t3)-t42kP*(t2*t2)*t3P
                                                                      *k*k-4*t42kP*t7*t3P*k*k*t6*(t1*t1)*t2-16*t42kP*t1*t2*t7*t3P*k*k*t3*t5+9*t42kP*(t1*t1)*t7*t7
                                                                      *t3P*k*(t3*t3)*(t2*t2)-8*t42kP*t6*t3P*k*t33P-12*t42kP*t7*t3P*k*t3-4*t42kP*t6*t6*t1*t3P
                                                                      *k*k*t2*(t3*t3)+2*t4P*t7*t7*t32kP*k*k*(t1*t1)*t2+16*t42kP*t6*t2*t3P*k*t33P*t5+12*t6*t6*t22kP
                                                                      *t1*t3P*k*t3+8*t42kP*(t2*t2)*t3P*t34P*t5*t1+48*t42kP*t1*t7*t3P*k*t5*t2*t3-t4P*t4*t32kP
                                                                      *k*k*t7*(t1*t1)*(t2*t2)*t3-2*(t3*t3)*t6*t6*t22kP*t3P*(t1*t1)-18*t42kP*t5*(t1*t1)*t3P*k*(t3*t3)-4
                                                                      *t5*t3P*(t3*t3)*t42kP*t6-2*t34P*t42kP*t6*t6*t3P-8*t2*t33P*t7*t7*t3P*t42kP*(t1*t1)+12
                                                                      *t42kP*t6*(t2*t2)*t3P*k*t3*t5-2*t5*t1P*t32kP*k*k*t7*t4-t5*t1P*(t2*t2)*t32kP*k*k*t7*(t4*t4)
                                                                      *t3-2*(t3*t3)*(t1*t1)*t3P*t42kP*t6*t6*(t2*t2)-t42kP*t5*t5*t3P*k*k*(t3*t3)-4*t42kP*t5*(t1*t1)
                                                                      *t3P*k*t2-4*t34P*t4*t6*t6*t22kP*t3P+24*t42kP*t6*(t1*t1)*t2*t7*t3P*k*t3+18*t6*t6*t22kP*t4
                                                                      *t3P*k*(t3*t3)-8*(t3*t3)*t6*t6*t22kP*t3P*t1*t4+4*t42kP*t6*t3P*k*k*t3*(t2*t2)+12*t5*t5*t12kP
                                                                      *(t2*t2)*t3P*k*t3*t4-36*t42kP*t1*t3P*k*(t3*t3)*t6-4*(t2*t2)*t33P*t3P*t42kP+16*(t2*t2)*t33P
                                                                      *t7*t3P*t42kP*t1-2*t5*t1P*t2*t32kP*k*k*t7-8*t2*t33P*t42kP*t6*t6*t3P+18*t42kP*(t1*t1)
                                                                      *t7*t3P*k*(t3*t3)*t6-2*t34P*t3P*t42kP-4*t5*t5*t12kP*t2*t3P*k*k*t3-24*t42kP*t7*t3P*k*t2
                                                                      *t3+4*t7*t7*t33kP*t1*t2*k*(t4*t4)-8*t42kP*t6*(t2*t2)*t3P*k*t33P-2*t42kP*t2*t3P*k*k*(t1*t1)
                                                                      +4*t42kP*t6*(t1*t1)*t3P*k*k*(t2*t2)*t3+2*t4P*t5*(t1*t1)*t4*t32kP*k*k*t7*t2*t3+2*t5*t5*t12kP
                                                                      *t3P*k*t4-2*t42kP*t6*t6*t3P*k*k*t3-2*t5*t5*t3P*t34P*t42kP+4*t42kP*t6*t6*t3P*k*(t1*t1)
                                                                      *t33P+2*t4P*t5*t32kP*k*k*t7*t1*(t2*t2)+t4P*t7*t7*t32kP*k*k*t4+t4P*t7*t7*t32kP*k*k*t3+t4P
                                                                      *t6*(t1*t1)*t32kP*k*k*t7*t3+4*t4P*t5*t32kP*k*k*t7*t1*t2*t3-2*t5*t5*t12kP*t3P*k*k*(t3*t3)*t4
                                                                      +2*t42kP*t5*t3P*k*k*(t1*t1)-12*t42kP*(t1*t1)*t7*t3P*k*(t2*t2)*t3-8*t2*(t3*t3)*t7*t3P*t42kP
                                                                      *t6*(t1*t1)-2*t4P*t32kP*k*k*t7*t1+4*t42kP*t5*t3P*k*k*(t1*t1)*t3-2*t42kP*t5*t3P*k-2*(t3*t3)
                                                                      *t3P*t42kP*(t1*t1)-4*(t3*t3)*t3P*t42kP*t1-2*t5*t5*t12kP*t3P*(t3*t3)+8*t42kP*t5*t3P*k
                                                                      *k*t1*t2-2*t4P*t4*t32kP*k*k*t7*t1*t3-t6*t2P*t2*(t4*t4)*t32kP*k*k*t7+2*t4P*t6*t1*t32kP*k*k
                                                                      *t7*(t2*t2)*t4*t3+32*t42kP*t1*t7*t3P*k*t33P*t5*t2-4*(t2*t2)*t33P*t3P*t42kP*(t1*t1)+2*t42kP
                                                                      *t5*(t1*t1)*t3P*k*t6-4*t33P*(t4*t4)*t6*t6*t22kP*t3P+8*t34P*t3P*t42kP*t5*t1+36*t42kP*t1
                                                                      *t2*t3P*k*(t3*t3)+12*t42kP*t5*t5*t1*t3P*k*t3*(t2*t2)+t4P*t5*t32kP*k*k*t7*(t2*t2)*t3+t4P*t5
                                                                      *t32kP*k*k*t7-2*t34P*(t1*t1)*t7*t7*t3P*t42kP-8*(t3*t3)*t1*t3P*t42kP*t6*t5-16*t2*t33P*t7
                                                                      *t3P*t42kP*t5+4*t42kP*t7*t7*t3P*k*t33P-t5*t5*t12kP*t3P*k*k*(t3*t3)-4*t42kP*t6*t3P*k
                                                                      *t1*(t2*t2)-8*t2*t34P*t7*t3P*t42kP*t5*(t1*t1)+9*t42kP*t6*t6*(t2*t2)*t3P*k*(t3*t3)-t42kP*t7
                                                                      *t7*t3P*k*k*(t1*t1)+2*t4P*t6*t1*t32kP*k*k*t7*(t2*t2)*t3-4*t42kP*t2*t3P*(t3*t3)*t5*t5+2*t4P
                                                                      *t5*t2*t4*t32kP*k*k*t7+t4P*t5*t32kP*k*k*t7*(t1*t1)*(t2*t2)-t4P*(t2*t2)*t32kP*k*k*t7*(t1*t1)-8
                                                                      *t2*t34P*t3P*t42kP*t1-2*t4P*t4*t32kP*k*k*t7*(t1*t1)*t2+18*t6*t6*t22kP*t4*t3P*k*(t3*t3)
                                                                      *(t1*t1)+t7*t7*t33kP*k*(t1*t1)-4*t2*(t3*t3)*t3P*t42kP-8*t5*t5*t12kP*t2*t33P*t3P-t42kP*t7
                                                                      *t7*t3P*k*k*(t3*t3)+t4P*t6*t32kP*k*k*t3*t7-8*t5*t5*t12kP*(t2*t2)*t33P*t4*t3P+8*t42kP*t6
                                                                      *t1*t3P*k*k*t2*(t3*t3)-2*t34P*t6*t6*t22kP*t3P*(t1*t1)-4*t42kP*t1*t7*t3P*k+16*t42kP*t1*t7
                                                                      *t3P*k*t33P*t6*(t2*t2)-4*t2*t34P*t42kP*t6*t6*t3P*(t1*t1)+4*t34P*t3P*t42kP*t7+12*t42kP
                                                                      *t7*t3P*k*t5*t3-2*t42kP*(t1*t1)*(t2*t2)*t7*t7*t3P*k*k*t3-2*t6*t2P*(t1*t1)*t7*t32kP*k*k*t3*t2
                                                                      *t4-8*t2*(t3*t3)*t7*t7*t3P*t42kP*t1+4*t42kP*(t2*t2)*t3P*t34P*t5+72*t42kP*t1*t7*t3P*k*(t3
                                                                                                                                                            *t3)*t6*t2+4*t42kP*(t1*t1)*(t2*t2)*t7*t3P*k*k*t3-t6*t2P*t32kP*k*k*t7*t3+4*t34P*t3P*t42kP
                                                                      *t5-t6*t6*t22kP*t3P*k*k+t42kP*t3P*k*(t2*t2)+12*t42kP*t6*(t1*t1)*(t2*t2)*t7*t3P*k*t3-4*t5
                                                                      *t5*t3P*(t3*t3)*t42kP*t1-t6*t2P*t32kP*k*k*t7*(t4*t4)-2*t4P*t2*t32kP*k*k*t7-36*t42kP*(t1
                                                                                                                                                           *t1)*t2*t3P*k*(t3*t3)*t5-72*t42kP*t1*t2*t3P*k*(t3*t3)*t6-8*t42kP*t7*t3P*k*k*t6*t2*t3+4*t42kP
                                                                      *t6*t1*t3P*k*k*(t2*t2)*(t3*t3)+18*t42kP*t2*t3P*k*(t3*t3)-4*t5*t5*t12kP*(t2*t2)*t4*t3P*(t3*t3)
                                                                      +32*t42kP*t2*t3P*t33P*t5*t1+8*t42kP*t5*t5*(t1*t1)*t3P*k*t33P*t2+8*t2*t34P*t42kP*t6*t3P-2
                                                                      *t42kP*t7*t3P*k*(t2*t2)+t5*t5*t12kP*(t2*t2)*(t4*t4)*t3P*k+2*t7*t3P*t1P*k*k*t4P*t5-2*t42kP
                                                                      *(t2*t2)*t3P*k*k*(t1*t1)*t3-8*t42kP*t2*t3P*t34P*t5*t6*(t1*t1)-2*t5*t1P*t2*t7*t32kP*k*k*t1
                                                                      *t3-t5*t1P*(t2*t2)*t7*t32kP*k*k*t1*(t4*t4)+8*t42kP*t1*t2*t7*t3P*k*k*(t3*t3)-8*t34P*t1*t7*t3P
                                                                      *t42kP*t6+2*t42kP*t7*t3P*k*k*(t2*t2)-4*t34P*(t1*t1)*t3P*t42kP*t6*t5+4*t42kP*t5*t5*t3P
                                                                      *k*(t2*t2)*t33P+t42kP*(t1*t1)*t7*t7*t3P*k-4*t34P*t1*t7*t7*t3P*t42kP+8*t33P*(t1*t1)*t7*t3P
                                                                      *t42kP-8*t33P*(t1*t1)*t3P*t42kP*t6*t5+t4P*t7*t7*t32kP*k*k*(t1*t1)*t4*t3-8*t42kP*(t1*t1)
                                                                      *t7*t3P*k*t33P+t4P*t5*(t1*t1)*t4*t32kP*k*k*t7*(t2*t2)+6*t42kP*t6*t6*(t2*t2)*t3P*k*t3*(t1
                                                                                                                                                            *t1)-4*t42kP*t5*t1*t3P*k+8*t42kP*t1*t7*t3P*k*t6*t2+4*t42kP*t7*t3P*k*t5*t2+4*t42kP*t7*t3P
                                                                      *k*k*(t1*t1)*t3+t42kP*t5*t5*t3P*k-4*t42kP*t7*t3P*k*k*t6*t2-2*t5*t1P*(t2*t2)*t32kP*k*k*t7
                                                                      *t4*t3-8*(t2*t2)*t33P*t3P*t42kP*t1-2*t42kP*(t1*t1)*(t2*t2)*t7*t3P*k*k*(t3*t3)*t5-12*t42kP
                                                                      *(t1*t1)*(t2*t2)*t3P*k*t3*t5-2*t5*t5*t12kP*t2*t3P*k*k+6*t42kP*t5*t5*(t1*t1)*t3P*k*t3*(t2*t2)-2
                                                                      *t6*t6*t22kP*t3P*k*k*t3-2*t42kP*t6*t6*(t1*t1)*t3P*k*k*(t2*t2)*t3-4*t2*t34P*t7*t7*t3P*t42kP
                                                                      *(t1*t1)-8*t2*t34P*t7*t3P*t42kP*t6*(t1*t1)-12*t42kP*t5*(t1*t1)*t3P*k*t3+12*t42kP*(t1*t1)
                                                                      *t7*t7*t3P*k*t2*t3-2*(t3*t3)*t6*t6*t22kP*t3P*(t1*t1)*(t4*t4)-2*(t3*t3)*(t1*t1)*t3P*t42kP*t6
                                                                      *t6+24*t42kP*t6*t1*(t2*t2)*t7*t3P*k*t3-t4P*t32kP*k*k*t7*(t1*t1)+t4P*t7*t7*t32kP*k*k*(t2*t2)
                                                                      +16*t2*t33P*t7*t3P*t42kP+2*t42kP*t7*t3P*k*t5-4*t42kP*t6*t6*t1*t3P*k*k*(t2*t2)*t3+36*t42kP
                                                                      *t6*t2*t3P*k*(t3*t3)*t5-2*t5*t1P*t2*t32kP*k*k*t7*(t4*t4)+8*t42kP*t7*t3P*k*k*t1*t2+2*t42kP
                                                                      *t6*t6*t3P*k*t1-4*t42kP*t7*t3P*k*k*t5*t2*(t3*t3)+8*t42kP*t6*t3P*k*k*t3*t2-4*(t3*t3)*t7*t3P
                                                                      *t42kP*t6-2*(t2*t2)*(t3*t3)*t42kP*t6*t6*t3P-18*t42kP*(t2*t2)*t3P*k*(t3*t3)*t5-2*t6*t2P*t1
                                                                      *t7*t32kP*k*k*t3+4*t42kP*(t2*t2)*t3P*(t3*t3)*t5-16*t42kP*t2*t3P*t33P*t5*t6*(t1*t1)+16*t2
                                                                      *t33P*t7*t3P*t42kP*(t1*t1)+36*t42kP*t1*t7*t7*t3P*k*(t3*t3)*t2-t42kP*t3P*k*k*(t1*t1)+4*(t3
                                                                                                                                                             *t3)*t3P*t42kP*t6+t42kP*t6*t6*t3P*k*(t1*t1)*(t2*t2)+2*t7*t7*t33kP*k*t4+t4P*t6*(t1*t1)*t32kP
                                                                      *k*k*t7*(t2*t2)*t3+18*t42kP*t1*t7*t7*t3P*k*(t3*t3)-4*(t3*t3)*(t1*t1)*t3P*t42kP*t6*t6*t2-2*t6
                                                                      *t6*t22kP*(t1*t1)*t3P*k*k*t3+2*t4P*t7*t7*t32kP*k*k*t1*t4-t5*t1P*(t2*t2)*t32kP*k*k*t7*(t4
                                                                                                                                                            *t4)+2*t4P*t2*t4*t7*t7*t32kP*k*k*t3+8*t42kP*(t1*t1)*t2*t3P*k*t33P-4*(t3*t3)*t1*t3P*t42kP
                                                                      *t6*t6*(t2*t2)+18*t42kP*t6*t6*t3P*k*t1*(t3*t3)+36*t42kP*t5*t5*t1*t3P*k*(t3*t3)*t2+4*t42kP*t6
                                                                      *t6*t3P*k*t33P+16*t42kP*t2*t3P*t33P*t5+6*t42kP*t6*t6*t3P*k*(t1*t1)*t3-2*t5*t1P*t2*t7
                                                                      *t32kP*k*k*t1*(t4*t4)*t3-4*(t3*t3)*t1*t7*t7*t3P*t42kP-24*t42kP*t5*t1*t3P*k*t3+32*t42kP*t1
                                                                      *t7*t3P*k*t33P*t6*t2+8*t42kP*t7*t3P*k*t5*(t2*t2)*t33P+t4P*t6*t32kP*k*k*t3*t7*(t2*t2)*t4-8
                                                                      *t2*(t3*t3)*t7*t3P*t42kP*t6-2*t42kP*t6*(t1*t1)*t3P*k*k*t5*(t2*t2)*(t3*t3)+t7*t7*t33kP*(t1*t1)
                                                                      *(t2*t2)*k-2*t42kP*(t1*t1)*t7*t3P*k*(t2*t2)+4*t42kP*t5*t3P*k*k*t2-18*t42kP*(t1*t1)*(t2*t2)
                                                                      *t3P*k*(t3*t3)*t5+8*t42kP*t1*t3P*k*t33P-t5*t5*t12kP*(t2*t2)*t3P*k*k-2*t6*t6*t22kP*t4*t3P
                                                                      *k*k*(t3*t3)-2*t42kP*(t1*t1)*t2*t7*t7*t3P*k*k*(t3*t3)+12*t42kP*t7*t3P*k*t6*(t2*t2)*t3-t42kP
                                                                      *t5*t5*t3P*k*k*(t1*t1)*(t2*t2)*(t3*t3)+4*t4P*t1*t2*t7*t7*t32kP*k*k*t3+16*t42kP*t2*t3P*t34P
                                                                      *t5*t1+24*t42kP*t6*t6*t2*t3P*k*t3*t1-4*t2*(t3*t3)*t3P*t42kP*(t1*t1)-2*t42kP*t7*t7*t3P*k*k
                                                                      *t2*(t3*t3)-2*t6*t2P*t2*t4*t32kP*k*k*t7*t3+8*t42kP*(t1*t1)*t7*t7*t3P*k*t33P*t2-2*t42kP*t6
                                                                      *t3P*k*(t1*t1)*(t2*t2)+4*t42kP*t5*t3P*k*k*t3-2*t42kP*t7*t3P*k*k*t5*(t2*t2)-2*t6*t2P*t32kP
                                                                      *k*k*t7*t4-t4P*t4*t32kP*k*k*t7*(t2*t2)+t7*t7*t33kP*k-8*t42kP*t7*t3P*k*(t2*t2)*t33P-2*t4P
                                                                      *(t2*t2)*t32kP*k*k*t7*t1+8*t6*t6*t22kP*(t4*t4)*t3P*k*t33P*t1+4*t42kP*t1*(t2*t2)*t7*t3P*k
                                                                      *k*(t3*t3)-t6*t6*t22kP*(t1*t1)*t3P*k*k-t5*t1P*t7*t32kP*k*k*t1-2*t5*t5*t12kP*t3P*(t3*t3)*(t2
                                                                                                                                                               *t2)-8*t2*t34P*t7*t3P*t42kP*t5-4*(t3*t3)*t1*t3P*t42kP*t6*t6-4*(t2*t2)*t34P*t3P*t42kP
                                                                      *t1-4*(t2*t2)*(t3*t3)*t7*t3P*t42kP*t5-2*t6*t6*t22kP*t1*t3P*k*k*(t3*t3)+24*t42kP*t1*t7*t7*t3P
                                                                      *k*t2*t3-2*t42kP*t7*t3P*k*k*t5-16*t2*t33P*t42kP*t6*t6*t3P*t1+8*t7*t7*t33kP*t1*t2*k*t4-16
                                                                      *t42kP*t2*t3P*t34P*t5*t6*t1-4*(t3*t3)*t7*t3P*t42kP*t5-2*t42kP*t7*t3P*k*k*t5*(t1*t1)-8*t42kP
                                                                      *(t1*t1)*t3P*k*t33P*t6-t42kP*t6*t6*(t1*t1)*t3P*k*k*(t2*t2)+6*t6*t6*t22kP*(t4*t4)*t3P*k*t3-t42kP
                                                                      *(t2*t2)*t3P*k*k*(t1*t1)*(t3*t3)+4*t42kP*(t1*t1)*t3P*k*t33P+12*t42kP*t6*t6*t2*t3P*k*t3-4
                                                                      *t42kP*t7*t7*t3P*k*k*t2*t3-2*t6*t2P*t2*t4*t32kP*k*k*t7-4*(t2*t2)*t34P*t7*t3P*t42kP*t5-4
                                                                      *t42kP*(t1*t1)*(t2*t2)*t7*t3P*k*k*t3*t5+2*t4P*t7*t7*t32kP*k*k*t2*t3-8*t42kP*t6*t6*t1*t3P
                                                                      *k*k*t2*t3-24*t42kP*t1*t7*t3P*k*(t2*t2)*t3+2*t42kP*t7*t3P*k*t6+36*t42kP*t6*t6*t2*t3P*k*(t3
                                                                                                                                                              *t3)*t1-8*t5*t3P*t33P*t42kP*t6+36*t42kP*t1*t7*t3P*k*(t3*t3)*t6*(t2*t2)+2*t5*t5*t12kP*t3P
                                                                      *k*t2+8*t42kP*(t1*t1)*t7*t3P*k*t33P*t5-4*t34P*t3P*t42kP*t1+8*t34P*t3P*t42kP*t6*t1-2
                                                                      *(t3*t3)*t3P*t42kP-t6*t2P*t2*(t4*t4)*t32kP*k*k*t7*t3+4*t42kP*t6*t1*t3P*k*k-4*t42kP*t7*t7
                                                                      *t3P*k*k*t1*t3+8*t42kP*t5*t3P*k*k*t2*t3-4*t42kP*t7*t3P*k*k*t5*t3-4*(t2*t2)*t33P*t7*t7*t3P
                                                                      *t42kP+2*t4P*t6*t32kP*k*k*t7*t2*t4+9*t42kP*(t1*t1)*t3P*k*(t3*t3)+6*t42kP*(t1*t1)*t3P*k
                                                                      *t3+4*t7*t7*t33kP*t1*(t2*t2)*k*t4+18*t42kP*t6*(t2*t2)*t3P*k*(t3*t3)*t5*(t1*t1)-8*t42kP*t2*t3P
                                                                      *t34P*t5*t6-2*t42kP*(t2*t2)*t3P*k*k*t1*(t3*t3)-2*t42kP*t6*(t1*t1)*t3P*k*k*t5*(t3*t3)+t4P
                                                                      *t6*(t1*t1)*t32kP*k*k*t7*(t2*t2)+2*t42kP*t6*t6*t3P*k*(t1*t1)*t2-t5*t5*t12kP*(t2*t2)*t3P*k*k
                                                                      *(t4*t4)-2*t5*t5*t12kP*(t2*t2)*t3P*k*k*(t3*t3)*t4+4*t34P*t3P*t42kP*t6-4*t33P*t42kP*t6*t6
                                                                      *t3P-t42kP*t6*t6*t3P*k*k+16*t42kP*t5*t5*t1*t3P*k*t33P*t2+2*t7*t7*t33kP*k*t2*(t4*t4)-4*t2
                                                                      *(t3*t3)*t42kP*t6*t6*t3P-2*t42kP*t6*t6*t3P*k*k*(t3*t3)*t2-2*t42kP*t7*t3P*k*k*t6*(t1*t1)*(t3
                                                                                                                                                               *t3)+12*t42kP*t5*t5*t1*t3P*k*t3+8*(t2*t2)*(t3*t3)*t3P*t42kP*t6*t1-4*t42kP*(t2*t2)*t3P*(t3
                                                                                                                                                                                                                                                      *t3)*t5*t6-8*t42kP*(t1*t1)*(t2*t2)*t3P*k*t33P*t6-24*t42kP*(t1*t1)*t2*t3P*k*t3*t5+16*t42kP
                                                                      *t6*(t2*t2)*t3P*k*t33P*t5*t1+18*t5*t5*t12kP*(t4*t4)*t3P*k*t2*(t3*t3)-t42kP*t3P*k*k-8*t34P
                                                                      *t4*t6*t6*t22kP*t3P*t1-4*(t3*t3)*(t1*t1)*t7*t3P*t42kP*t6+8*t2*t34P*t7*t3P*t42kP-t6*t2P
                                                                      *t32kP*k*k*t7+9*t42kP*t6*t6*t3P*k*(t3*t3)+8*(t3*t3)*t1*t7*t3P*t42kP+16*t42kP*t1*t7*t3P
                                                                      *k*t33P*t6+4*t42kP*(t1*t1)*t7*t3P*k*t6*t2-2*t5*t5*t12kP*(t2*t2)*t3P*k*k*t4+2*t4P*t5*t32kP
                                                                      *k*k*t7*t2*t3-4*t42kP*(t2*t2)*t3P*t33P*t5*t5-8*t42kP*t1*t7*t3P*k*t2+4*t42kP*t5*t3P*k*k
                                                                      *(t1*t1)*t2-2*t42kP*t7*t7*t3P*k*k*t1*(t2*t2)-2*t42kP*(t2*t2)*t3P*k*k*t3-t42kP*t5*t5*t3P*k
                                                                      *k*(t2*t2)*(t3*t3)-2*t6*t2P*(t1*t1)*t7*t32kP*k*k*t4+16*(t2*t2)*t33P*t42kP*t6*t3P*t1-2*t6*t2P
                                                                      *(t1*t1)*t7*t32kP*k*k*t3*t4-t5*t1P*t1*t7*t32kP*k*k*t3-2*t5*t1P*t1*t4*t7*t32kP*k*k+16*t42kP
                                                                      *t5*t1*t3P*k*t33P*t6+2*t42kP*(t1*t1)*t7*t7*t3P*k*t2-4*t42kP*(t2*t2)*t3P*t34P*t5*t6*(t1
                                                                                                                                                          *t1)+8*t42kP*(t1*t1)*t7*t3P*k*t33P*t6+2*t4P*t5*t1*t4*t32kP*k*k*t7*t3+18*t42kP*t7*t3P*k
                                                                      *t5*(t3*t3)-2*t6*t2P*t1*t7*t32kP*k*k*t3*t2-2*t42kP*(t2*t2)*t3P*(t3*t3)*t5*t5+9*t6*t6*t22kP
                                                                      *(t4*t4)*t3P*k*(t3*t3)-4*t42kP*t1*(t2*t2)*t7*t7*t3P*k*k*t3+2*t42kP*t7*t3P*k*t6*(t2*t2)-4*t42kP
                                                                      *(t2*t2)*t3P*t33P*t5*t5*(t1*t1)-2*t42kP*t6*t6*t3P*k*k*t3*(t2*t2)+4*t42kP*t6*t6*(t2*t2)*t3P
                                                                      *k*t33P+8*(t2*t2)*t33P*t7*t3P*t42kP-8*t42kP*t6*t1*t3P*k*k*t5*t3-16*t42kP*t2*t3P*k*t33P
                                                                      *t5+16*t42kP*t1*t7*t3P*k*t33P*t5*(t2*t2)+9*t42kP*(t1*t1)*t7*t7*t3P*k*(t3*t3)+24*t42kP*t6
                                                                      *t2*t3P*k*t3*t5-2*t6*t6*t22kP*t1*t3P*k*k*(t3*t3)*(t4*t4)-t5*t1P*(t2*t2)*t32kP*k*k*t7*t3+2*t6
                                                                      *t6*t22kP*t4*t3P*k*(t1*t1)-2*t5*t5*t12kP*t2*t3P*k*k*(t3*t3)-4*t42kP*t2*t3P*k*k*t1*(t3*t3)-4
                                                                      *t5*t5*t12kP*(t2*t2)*t33P*t3P-8*t42kP*t5*t1*t3P*k*t2+9*t5*t5*t12kP*t3P*k*(t3*t3)+4*t42kP
                                                                      *t7*t3P*k*t6*t2+6*t5*t5*t12kP*t3P*k*t3*(t4*t4)-18*t42kP*(t1*t1)*t3P*k*(t3*t3)*t6+2*t42kP
                                                                      *t6*(t1*t1)*t3P*k*k*(t2*t2)-32*t42kP*t1*t7*t3P*k*t33P*t2-t6*t6*t22kP*(t1*t1)*t3P*k*k*(t3
                                                                                                                                                            *t3)+t4P*t7*t7*t32kP*k*k*t4*t3+t5*t5*t12kP*t3P*k+8*t42kP*t2*t3P*t34P*t5-t6*t6*t22kP*(t1
                                                                                                                                                                                                                                                 *t1)*t3P*k*k*(t3*t3)*(t4*t4)+4*t42kP*t5*t5*(t1*t1)*t3P*k*t33P+18*t42kP*t5*t5*t3P*k*t2*(t3
                                                                                                                                                                                                                                                                                                                                        *t3)-8*(t2*t2)*t34P*t7*t3P*t42kP*t5*t1-12*t42kP*(t1*t1)*t7*t3P*k*t3+2*t4P*t6*t32kP*k*k
                                                                      *t7*t2+16*t42kP*t7*t3P*k*t6*t2*t33P-32*t42kP*t1*t2*t3P*k*t33P*t5+4*t42kP*t2*t3P*k*k*t6
                                                                      +t4P*t6*(t1*t1)*t32kP*k*k*t7*(t2*t2)*t4*t3-t6*t2P*(t1*t1)*t7*t32kP*k*k*t3*t2*(t4*t4)+16*t42kP
                                                                      *t1*t2*t7*t3P*k*k*t3+2*t42kP*(t1*t1)*(t2*t2)*t7*t3P*k*k*(t3*t3)+16*t33P*t3P*t42kP*t6*t1-4
                                                                      *t5*t1P*t2*t32kP*k*k*t7*t4*t3+8*t42kP*t5*t3P*k*k*(t1*t1)*t2*t3+9*t42kP*(t1*t1)*(t2*t2)*t3P
                                                                      *k*(t3*t3)+t5*t5*t12kP*t3P*k*(t4*t4)-4*t42kP*t7*t3P*k*k*t6*t1*(t2*t2)-4*t42kP*t6*t6*t1*t3P
                                                                      *k*k*t3-12*t42kP*(t2*t2)*t3P*k*t3*t5-2*t5*t5*t12kP*t3P*k*k*t3-4*(t2*t2)*t33P*t42kP*t6*t6
                                                                      *t3P*(t1*t1)+2*t42kP*t7*t3P*k*t5*(t2*t2)-8*(t3*t3)*t1*t7*t3P*t42kP*t6-4*t34P*(t1*t1)*t7*t3P
                                                                      *t42kP*t6-2*t42kP*t5*t5*t3P*k*k*t3+8*t42kP*t6*t3P*k*t5*t33P+8*(t3*t3)*t3P*t42kP*t5*t1-8
                                                                      *t2*(t3*t3)*t3P*t42kP*t1-t42kP*(t2*t2)*t3P*k*k*(t1*t1)+18*t42kP*t7*t3P*k*t6*(t3*t3)-36*t42kP
                                                                      *t1*t7*t3P*k*(t3*t3)+2*t42kP*t6*t3P*k*t5+18*t6*t6*t22kP*(t4*t4)*t3P*k*(t3*t3)*t1-4*t33P*(t1
                                                                                                                                                               *t1)*t7*t7*t3P*t42kP+2*t42kP*t5*t3P*k*k*(t1*t1)*(t2*t2)+8*t42kP*t5*t5*t1*t3P*k*t33P-2*t42kP
                                                                      *t7*t3P*k*k*t6*(t1*t1)-4*(t3*t3)*t6*t6*t22kP*t3P*(t1*t1)*t4-4*t2*t34P*t3P*t42kP*(t1*t1)+2
                                                                      *t7*t7*t33kP*k*t1+t4P*t6*t32kP*k*k*t7*(t2*t2)-2*t5*t1P*t2*t7*t32kP*k*k*t1*(t4*t4)-36*t42kP
                                                                      *t5*t1*t3P*k*(t3*t3)-8*t42kP*t2*t3P*(t3*t3)*t5*t6*(t1*t1)-2*t4P*t4*t32kP*k*k*t7*t2*t3+16*t6
                                                                      *t6*t22kP*t4*t3P*k*t33P*t1-2*t42kP*t2*t3P*k*k-2*t42kP*t5*t5*t3P*k*k*t2*(t3*t3)+4*t4P
                                                                      *t6*t1*t32kP*k*k*t7*t2*t4*t3+2*t42kP*(t1*t1)*t7*t3P*k*t6+6*t42kP*t5*t5*(t1*t1)*t3P*k*t3-8*(t2
                                                                                                                                                                 *t2)*t33P*t7*t3P*t42kP*t6*(t1*t1)-8*t33P*t1*t3P*t42kP*t6*t6-2*t6*t2P*(t1*t1)*t7*t32kP
                                                                      *k*k*t2*t4-8*t42kP*t6*t1*t3P*k*k*t5*(t2*t2)*t3-4*t33P*t6*t6*t22kP*t3P*(t1*t1))
    
      if (k > 0) test <- abs(A33/a[3,3])
    a[3,3] <- a[3,3] + A33
    k <- k+1
    
  } 
  
  
   if (k == maximumIteration) {
     return(list("flag"=1))
     break
   }
  
  ##A34
  test <- 100.0
  k <- 0
  while (test > Criteria & k < maxIter)
  {
     t1P <- pow((t1/(1+t1)),k)
     t2P <- pow((t2/(1+t2)),k)
     t3P <- pow((t3/(1+t3)),k)
     t4P <- pow((t4/(1+t4)),k)
    
     A34 <- -1/(1+t3)/(1+t4)/(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)/t3/t4*(1+t1)*(1+t2)*t7*t3P*t4P*(-k*k+t5*k*k+k*k*t6+k*k*t7+k*t4-t5*k
                                                                                              *t4-k*t6*t4-k*t7*t4+k*t3-t5*k*t3-k*t6*t3-t7*k*t3-(t3*t4)+t5*t3*t4+t6*t3*t4+t7*t3*t4)
    
     if (k > 0) test <- abs(A34/a[3,4])
     a[3,4] <- a[3,4] + A34
     k <- k+1
    
  }
  
  
  if (k == maximumIteration) {
    return(list("flag"=1))
    break
  }
  
  ##A35
  test <- 100.0
  k <- 0
  while (test > Criteria & k < maxIter)
  {
     t1P <- pow((t1/(1+t1)),k)
     t2P <- pow((t2/(1+t2)),k)
     t3P <- pow((t3/(1+t3)),k)
     t4P <- pow((t4/(1+t4)),k)
    
     A35 <- (1+t2)*t7*t3P*(k*t1P+k*t1P*t4-t4P*k-k*t4P*t1-t1P*t3-t1P*t3*t4+t4P*t3+t4P*t1*t3)/(1
                                                                                                  +t3)/t3/(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)
    
     if (k > 0) test <- abs(A35/a[3,5])
     a[3,5] <- a[3,5] + A35
     k <- k+1
    
  } 
  
  if (k == maximumIteration) {
    return(list("flag"=1))
    break
  }
  
  ##A36
  test <- 100.0
  k <- 0
  while (test > Criteria & k < maxIter)
  {
     t1P <- pow((t1/(1+t1)),k)
     t2P <- pow((t2/(1+t2)),k)
     t3P <- pow((t3/(1+t3)),k)
     t4P <- pow((t4/(1+t4)),k)
    
     A36 <- -(1+t1)*t7*t3P*(-k*t2P-k*t2P*t4+t4P*k+t4P*k*t2+t2P*t3+t2P*t3*t4-t4P*t3-t4P*t2*t3)/(1
                                                                                                    +t3)/t3/(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)
    
     if (k > 0) test <- abs(A36/a[3,6])
     a[3,6] <- a[3,6] + A36
     k <- k+1
    
  } 
  
  
  if (k == maximumIteration) {
    return(list("flag"=1))
    break
  }
  
  ##A37
  test <- 100.0
  k <- 0
  while (test > Criteria & k < maxIter)
  {
     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))
    
     A37 <- -1/(1+t3)*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)/t3*(t4P*t6*t32kP*t3*t7*(t1*t1)*(t2*t2)-t6*t6*t22kP*(t1*t1)*t3P
                                                                      *t3+2*t42kP*t5*t5*t3P*k*t2+t4P*t5*(t1*t1)*t32kP*t3*t7*(t2*t2)+t42kP*(t1*t1)*t7*t3P*k*t5*(t2
                                                                                                                                                               *t2)*t3+2*t42kP*t6*t3P*t3*(t2*t2)-t5*t5*t12kP*t3P*t3*(t2*t2)+4*t42kP*t2*t3P*(t3*t3)*t5+2
                                                                      *t4P*t6*t4*t32kP*t3*t7*t1+2*t42kP*t5*(t1*t1)*t3P*k*t6*(t2*t2)+2*t6*t6*t22kP*t4*t3P*k*t3+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)+2*t42kP
                                                                      *t6*t3P*t3+2*t42kP*t6*t6*t2*t3P*k*t3*(t1*t1)+t42kP*t3P*k-(t2*t2)*(t3*t3)*t3P*t42kP+t42kP
                                                                      *(t1*t1)*t3P*k-2*t42kP*t7*t3P*k*t2-4*t42kP*t2*t3P*(t3*t3)*t5*t5*t1+8*t42kP*t6*t3P*t3*t1
                                                                      *t2-4*t42kP*(t2*t2)*t3P*(t3*t3)*t5*t6*t1+2*t42kP*t2*t3P*k*t3-t42kP*t3P*t3*(t1*t1)-2*t42kP
                                                                      *t6*t3P*t3*t5*(t1*t1)+2*t6*t2P*(t1*t1)*t3P*t3*t4P*t5*t2-4*t5*t1P*t3P*t3*t4*t4P*t2+2*t5
                                                                      *t5*t12kP*t3P*k*t3*t4-2*t6*t6*t22kP*(t4*t4)*t3P*t3*t1-(t2*t2)*(t3*t3)*t7*t3P*t42kP*t6*(t1
                                                                                                                                                             *t1)+4*t42kP*t6*t3P*t3*t2+4*t2*(t3*t3)*t3P*t42kP*t6*(t1*t1)-4*t5*t5*t12kP*t3P*t3*t2*t4+(t3
                                                                                                                                                                                                                                                     *t3)*t7*t3P*t42kP+t42kP*t3P*k*t3+4*t2*(t3*t3)*t7*t3P*t42kP*t1+t42kP*(t1*t1)*t7*t3P*k
                                                                      *t6*(t2*t2)-2*t5*t1P*t3P*t3*t4P+4*t4P*t6*t4*t3P*t3*t5*t1P*t2-2*t2*(t3*t3)*t7*t3P*t42kP
                                                                      *t5*(t1*t1)-2*(t3*t3)*t6*t6*t22kP*t3P*t4-4*t6*t2P*t4*t3P*t3*t5*t1P*t2-t4P*t3*t4*t6*t2P
                                                                      *k*t2*t7*t3P-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+2*t5*t5*t1P*t3P*t3*t4*t4P*t1*(t2*t2)+t5
                                                                      *t1P*t3P*t3*t4P*t7+t42kP*(t1*t1)*t7*t3P*k*t5*t3-2*t42kP*t6*t2*t7*t3P*t3+2*t6*t2P*t4*t3P
                                                                      *t3*t4P*t5*t2+2*t6*t2P*t4*t3P*t3*t4P*t7*t1+4*t6*t6*t2P*t4*t3P*t3*t4P*t1-4*t6*t2P*t4*t3P
                                                                      *t3*t5*t1P*t2*t1-2*t42kP*t5*t5*t3P*t3*t2-t6*t2P*(t4*t4)*t32kP*t3*t7*t2-2*t5*t1P*t32kP*t3
                                                                      *t7*t2-2*t5*t1P*t32kP*t3*t7*t1*t2+4*t4P*t6*t32kP*t3*t7*t1*t2-4*t6*t2P*t1*t3P*t3*t4P*t2-t42kP
                                                                      *t6*(t2*t2)*t7*t3P*t3-t4P*t32kP*t3*t7+2*t6*t6*t22kP*t4*t3P*k+2*t42kP*t5*(t1*t1)*t3P*k*t3
                                                                      *t6+2*t42kP*(t1*t1)*t7*t3P*k*t5*t2-2*t5*t1P*t32kP*t3*t7*t1*(t2*t2)*t4+t42kP*(t1*t1)*t3P*k
                                                                      *(t2*t2)+t42kP*(t1*t1)*t7*t3P*k*t5+2*(t3*t3)*t3P*t42kP*t5*(t1*t1)-2*t5*t1P*t32kP*t3*t7*t4
                                                                      +4*t6*t6*t22kP*t4*t3P*k*t1-t5*t1P*t32kP*t3*t7*t1+t42kP*t6*t6*t3P*k+2*t4P*t6*t4*t32kP
                                                                      *t3*t7*t1*(t2*t2)-(t2*t2)*(t3*t3)*t3P*t42kP*(t1*t1)+4*t42kP*t5*t1*t3P*k*t6-2*t42kP*t5*(t1*t1)
                                                                      *t3P*k+8*t42kP*t2*t3P*(t3*t3)*t5*t1+4*t4P*t6*t4*t32kP*t3*t7*t1*t2+4*t5*t5*t12kP*t2*t4*t3P
                                                                      *k+2*t4P*t5*(t1*t1)*t4*t32kP*t3*t7*t2+2*t4P*t5*t1*t4*t32kP*t3*t7+2*t6*t2P*t4*t3P*t3*t4P
                                                                      *t5*(t1*t1)*t2-2*t5*t5*t12kP*t3P*t3*t4+4*t42kP*t1*t3P*k*t2+2*t4P*t5*t32kP*t3*t7*t2-2*t42kP
                                                                      *t3P*t3*t2-t42kP*t5*t5*t3P*t3*(t2*t2)+8*t42kP*t6*t2*t3P*k*t3*t5*t1+2*t4P*t6*t32kP*t3*t7
                                                                      *t1+2*(t3*t3)*t3P*t42kP*t5-2*t42kP*t3P*t3*t1*(t2*t2)-4*t42kP*t1*(t2*t2)*t3P*k*t3*t6-t4P
                                                                      *t32kP*t3*t7*(t1*t1)-2*t42kP*(t1*t1)*t3P*k*t3*t6+2*t42kP*t6*t3P*k*t5*(t2*t2)-t42kP*t7*t3P
                                                                      *k*(t2*t2)*t3-t42kP*t5*(t2*t2)*t7*t3P*t3-2*t42kP*t5*(t2*t2)*t7*t3P*t3*t1+2*t4P*t6*t6*t3P
                                                                      *t3*t2P*(t1*t1)+2*t4P*t5*t2*t3*t1P*t1*t7*t3P+t6*t6*t22kP*(t1*t1)*t3P*k*t3-t5*t5*t12kP*t3P
                                                                      *t3*(t4*t4)-4*t4P*t1*t2*t4*t32kP*t3*t7+4*t42kP*t5*(t1*t1)*t3P*k*t6*t2+t42kP*t5*t5*t3P*k*(t2
                                                                                                                                                               *t2)-4*t42kP*t6*t3P*t3*t5*t1+4*t4P*t5*t1*t4*t32kP*t3*t7*t2-2*t5*t1P*t3P*t3*t4*t4P*t1*(t2
                                                                                                                                                                                                                                                     *t2)+t5*t1P*t3P*t3*t4*t4P*t7*(t2*t2)+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)-t42kP*t5*t5*(t1*t1)*t3P*t3*(t2*t2)+t7
                                                                      *t3P*t4*t2P*t2*t4P*t6*(t1*t1)*t3+t5*t5*t12kP*(t2*t2)*t3P*k*t3+2*t42kP*t6*t6*(t2*t2)*t3P
                                                                      *k*t3*t1-4*t5*t1P*t3P*t3*t4*t4P*t1*t2+4*t5*t5*t1P*t3P*t3*t4*t4P*t1*t2+2*(t2*t2)*(t3*t3)*t3P
                                                                      *t42kP*t6+t6*t6*t22kP*t3P*k*t3+t42kP*(t2*t2)*t3P*k*t3+2*t42kP*t5*t5*t1*t3P*k*(t2*t2)+2
                                                                      *t7*t3P*t4*t2P*t2*t4P*t6*t1*t3+4*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*t4)*t3P*t3*t5*t1P-4*t6*t2P*t4*t3P*t3*t4P*t1
                                                                      *t2+2*t6*t2P*t2*t3P*t3*t4P*t5+2*t6*t6*t2P*t4*t3P*t3*t4P*t2-2*t6*t2P*t4*t3P*t3*t4P*(t1
                                                                                                                                                         *t1)*t2+2*t4P*t6*t3P*t3*t5*t1P*(t2*t2)*t1+2*t7*t3P*t2*t3*t4*t1P*t1*t4P*t5+2*t4P*t6*t4*t32kP
                                                                      *t3*t7*t2-4*t42kP*t1*t7*t3P*k*t2*t3+4*t42kP*t6*t3P*k*t5*t2+t42kP*t7*t3P*k*t6*t3+4*t42kP
                                                                      *t5*t1*t3P*k*t6*(t2*t2)-2*t42kP*t5*(t1*t1)*t3P*k*(t2*t2)-4*(t3*t3)*t1*t3P*t42kP*t6*t6*t2+2
                                                                      *t4P*t6*t4*t32kP*t3*t7*(t1*t1)*t2+t7*t3P*t1P*t1*t4P*t5*t3-4*t5*t1P*t32kP*t3*t7*t2*t4-4
                                                                      *t6*t2P*t4*t32kP*t3*t7*t1+2*t5*t1P*t3P*(t3*t3)*t4P*t6-2*t4P*t6*t4*t3P*k*t3*t5*t1P*t1-4
                                                                      *t4P*t6*t6*t3P*k*t2P*t1-2*t4P*t6*t6*t3P*k*t2P*t3-4*t4P*t6*t3P*k*t5*t1P*t2+4*t6*t2P
                                                                      *t4*t3P*k*t5*t1P*t2+4*t6*t2P*t4*t3P*k*t5*t1P+2*t2*(t3*t3)*t7*t3P*t4P*t5*t1P*t4*t1+2*t5
                                                                      *t1P*t3P*k*t6*t2P+2*t6*t2P*(t4*t4)*t3P*k*t5*t1P*t2+(t3*t3)*t7*t3P*t4P*t5*t1P*t4+4*t7
                                                                      *t32kP*t1*t2*k*t5*t1P*t4-2*t7*t32kP*k*t4P*t6*t2*t4+t7*t32kP*k*t5*t1P*(t2*t2)*(t4*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)+2*t6*t2P*(t4*t4)*t3P*k*t5*t1P*t1-4*t2*(t3*t3)*t3P*t4P*t5*t1P
                                                                      *t4-2*t6*t2P*t2*t3P*k*t3*t4P*t5+t7*t32kP*k*t6*t2P*(t4*t4)*t2+2*t5*t1P*t4*t3P*k*t4P*t1
                                                                      *(t2*t2)*t3+2*t4P*(t1*t1)*t3P*k*t6*t2P*t3*t4-4*t2*(t3*t3)*t3P*t4P*t5*t1P*t1-2*t2*(t3*t3)
                                                                      *t3P*t4P*t6*t2P*(t1*t1)-2*t4P*t5*(t1*t1)*t3P*k*t6*t2P-2*t4P*t5*t5*t4*t3P*k*t3*t1P+2
                                                                      *t5*t1P*(t2*t2)*t3P*k*t3*t4P+2*t6*t2P*t4*t3P*k*t4P*(t1*t1)+2*t6*t2P*(t4*t4)*t3P*k*t5
                                                                      *t1P*t3-2*t4P*t6*t6*(t1*t1)*t2*t3P*k*t3*t2P-2*t4P*t6*t1*(t2*t2)*t3P*k*t3*t5*t1P-4*t4P
                                                                      *t6*t1*t2*t3P*k*t3*t5*t1P-4*t4P*t6*t6*t1*t2*t3P*k*t3*t2P-2*t6*t2P*(t1*t1)*t3P*k*t3*t4P
                                                                      *t5*t2-2*t5*t5*t1P*t4*t3P*k*t4P*(t2*t2)*t3-2*t4P*t5*t5*t1*t3P*k*t1P-4*t4P*t5*t1*t3P*k
                                                                      *t6*t2P-2*t4P*t6*t3P*k*t5*t1P-2*t4P*t6*t6*t3P*k*t2P+4*t4P*t2*t3P*(t3*t3)*t5*t5*t1P
                                                                      *t1-2*t4P*t6*t3P*k*t5*t1P*t3-2*t4P*t6*t3P*k*t5*t1P*t4+2*t4P*t6*t4*t3P*(t3*t3)*t5*t1P
                                                                      *t1+2*t4P*t6*t6*t4*t3P*(t3*t3)*t2P*(t1*t1)-2*t5*t5*t1P*t3P*k*t3*t4P*t1*(t2*t2)-4*t6*t6*t2P
                                                                      *t4*t3P*k*t4P*t1*t2-2*(t3*t3)*t6*t2P*t3P*t5*t1P*(t4*t4)*t1-2*t4P*t6*t6*t3P*k*t2P*t2-4
                                                                      *t4P*t6*t1*t2*t3P*k*t3*t5*t1P*t4-4*t6*t6*t2P*t1*t3P*k*t3*t4P-4*t6*t2P*t1*t3P*k*t3*t4P
                                                                      *t5+2*t4P*t2*t3P*(t3*t3)*t5*t6*t2P*(t1*t1)+2*t4P*t6*t3P*t3*t5*t1P*(t2*t2)+t42kP*t5*t5*t3P
                                                                      *k*(t2*t2)*t3-4*t42kP*t6*t2*t3P*k*t3+t42kP*(t1*t1)*(t2*t2)*t3P*k*t3-4*t42kP*t6*t2*t7*t3P
                                                                      *t3*t1+t42kP*t6*t6*t3P*k*t3+2*t42kP*(t1*t1)*t7*t3P*t3*t2+2*t42kP*t1*t7*t3P*t3+4*t42kP*t1
                                                                      *t7*t3P*t3*t2+2*t42kP*t6*(t2*t2)*t3P*k*t3*t5*(t1*t1)-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-t4P*t6*t2P*k*t2*t7*t3P*t3+4*t4P
                                                                      *t6*t3P*t3*t5*t1P*t2*t1+(t3*t3)*t7*t3P*t4P*t5*t1P-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-4*t2*(t3*t3)*t3P*t4P*t6*t2P
                                                                      *t1-2*t2*(t3*t3)*t3P*t4P*t6*t2P*t4-2*(t2*t2)*(t3*t3)*t3P*t4P*t5*t1P-4*t2*(t3*t3)*t3P*t4P
                                                                      *t5*t1P-2*t2*(t3*t3)*t3P*t4P*t6*t2P+2*t4P*(t2*t2)*t4*t3P*k*t5*t1P+4*t4P*t2*t4*t3P*k
                                                                      *t5*t1P+2*t4P*(t2*t2)*t3P*(t3*t3)*t5*t5*t1P*t1+t7*t32kP*(t1*t1)*t2*k*t6*t2P+4*t7*t32kP
                                                                      *t1*t2*k*t6*t2P*t4+t7*t32kP*t1*(t2*t2)*k*t5*t1P+4*t4P*t6*t2*t4*t3P*(t3*t3)*t5*t1P*t1+2*t4P
                                                                      *t6*t6*t2*t4*t3P*(t3*t3)*t2P*(t1*t1)-t7*t32kP*k*t4P*t5*(t1*t1)-t7*t32kP*k*t4P*t6-t7*t32kP
                                                                      *k*t4P*t5-t7*t32kP*k*t4P*t5*(t2*t2)-2*t6*t6*t2P*t4*t3P*k*t4P*t2+2*t6*t2P*t4*t3P*k*t4P
                                                                      *t3+4*t6*t2P*t4*t3P*k*t5*t1P*t3+2*t6*t2P*(t4*t4)*t3P*k*t5*t1P-t7*t32kP*(t1*t1)*(t2*t2)
                                                                      *k*t4P*t5-4*t5*t5*t1P*t3P*k*t3*t4P*t1*t2-t7*t32kP*k*t4P*t5*(t2*t2)*t4+2*t7*t32kP*k*t6*t2P
                                                                      *t1+2*t7*t32kP*k*t6*t2P*t4+2*t7*t32kP*k*t5*t1P*t2+t7*t32kP*k*t5*t1P+t7*t32kP*k*t6*t2P
                                                                      +2*t7*t32kP*k*t5*t1P*(t2*t2)*t4-2*t7*t32kP*k*t4P*t6*t2+2*t7*t32kP*k*t5*t1P*t4+2*t6*t2P
                                                                      *t2*t3P*k*t4P-2*t4P*t6*t4*t3P*k*t3*t5*t1P*(t2*t2)-t42kP*t6*t6*t3P*t3*(t1*t1)+4*t42kP
                                                                      *t5*(t1*t1)*t3P*t3*t2-t5*t1P*t32kP*t3*t7*t1*(t2*t2)*(t4*t4)+t5*t1P*t4*t7*t3P*t4P*t3-2*t4P
                                                                      *t32kP*t3*t7*t1+2*(t2*t2)*(t3*t3)*t7*t3P*t42kP*t1-2*t5*t1P*t3P*t3*t6*t2P-2*t5*t5*t12kP
                                                                      *t3P*t3*(t2*t2)*t4-2*t6*t2P*t4*t3P*t3*t4P*(t1*t1)-t42kP*t6*t7*t3P*t3+t4P*t6*t32kP*t3
                                                                      *t7*(t2*t2)-4*t42kP*t5*t1*t3P*k*(t2*t2)-4*t5*t1P*t1*t2*t3P*(t3*t3)*t6*t2P*t4-2*t5*t1P*t1
                                                                      *t2*t3P*(t3*t3)*t6*t2P+2*t5*t1P*t1*(t2*t2)*t3P*(t3*t3)*t4P*t6+2*t4P*t2*t3P*(t3*t3)*t5*t6
                                                                      *t2P*(t1*t1)*t4+2*t6*t6*t2P*(t1*t1)*t2*t3P*(t3*t3)*t4P-4*t5*t5*t1P*t2*t3P*k*t3*t4P+2*t6
                                                                      *t2P*t4*t3P*k*t4P*(t1*t1)*t2+4*t6*t2P*t4*t3P*k*t5*t1P*t1+4*t5*t1P*t3P*k*t4P*t2+2*t5
                                                                      *t1P*t3P*k*t4P+2*t7*t32kP*t1*(t2*t2)*k*t5*t1P*t4-2*t5*t1P*t1*t2*t3P*(t3*t3)*t6*t2P*(t4
                                                                                                                                                          *t4)+2*t7*t32kP*k*t6*t2P*t4*t2+4*t6*t2P*t4*t3P*k*t4P*t1*t2+2*(t3*t3)*t1*t3P*t4P*t6*t5*t1P-4
                                                                      *(t3*t3)*t6*t2P*t3P*t5*t1P*t2*t4-2*(t3*t3)*t6*t2P*t3P*t4P*(t1*t1)-4*(t3*t3)*t6*t2P*t3P
                                                                      *t5*t1P*t4*t1+(t2*t2)*(t3*t3)*t7*t3P*t4P*t5*t1P*t4+4*t6*t2P*t4*t3P*k*t4P*t1+2*t6*t2P
                                                                      *t4*t3P*k*t4P*t2-4*t6*t6*t2P*t4*t3P*k*t4P*t1-2*t6*t2P*t4*t3P*k*t4P*t5*t2-2*t6*t2P*t4
                                                                      *t3P*k*t4P*t5*t3-4*t6*t2P*t4*t3P*k*t4P*t5*t1+2*t6*t2P*t4*t3P*k*t4P-2*t6*t2P*t4*t3P
                                                                      *k*t4P*t5*(t1*t1)-2*t6*t6*t2P*t4*t3P*k*t4P*(t1*t1)+t7*t32kP*k*t6*t2P*(t1*t1)*(t4*t4)-t7*t32kP
                                                                      *k*t4P*t5*(t1*t1)*t4-t7*t32kP*k*t4P*t6*(t1*t1)*t4+t7*t32kP*k*t5*t1P*(t4*t4)*t1+2*t6*t2P*t3P
                                                                      *k*t3*t4P+2*t2*(t3*t3)*t7*t3P*t4P*t6*t2P*t1*t4+2*t4P*t5*(t1*t1)*t4*t3P*(t3*t3)*t6*t2P+2
                                                                      *t4P*t5*t5*t1*t4*t3P*(t3*t3)*t1P+4*t4P*t5*t1*t4*t3P*(t3*t3)*t6*t2P-2*t2*(t3*t3)*t3P*t4P
                                                                      *t6*t2P*(t1*t1)*t4-4*t4P*t4*t3P*(t3*t3)*t6*t2P*t1-2*t4P*t4*t3P*(t3*t3)*t5*t1P-2*t4P*t4
                                                                      *t3P*(t3*t3)*t6*t2P+4*t6*t2P*t2*t3P*k*t4P*t1-4*t42kP*t2*t3P*(t3*t3)*t5*t6-2*t42kP*(t1
                                                                                                                                                         *t1)*t7*t3P*k*t2+2*t42kP*t5*(t1*t1)*t3P*t3+2*t6*t2P*t2*t3P*k*t5*t1P+2*t5*t1P*t3P*k*t4P
                                                                      *t4+4*t4P*t1*t3P*k*t5*t1P*t2*t3+2*(t2*t2)*(t3*t3)*t4P*t6*t3P*t5*t1P+4*t2*(t3*t3)*t4P*t6
                                                                      *t3P*t5*t1P+2*t5*t1P*t3P*k*t3*t6*t2P+2*t6*t2P*t2*(t4*t4)*t3P*k*t3*t5*t1P+2*t4P*(t1
                                                                                                                                                      *t1)*t3P*k*t6*t2P*t3*t2+t7*t32kP*(t1*t1)*t2*k*t6*t2P*(t4*t4)+4*t5*t1P*t4*t3P*k*t6*t2P*t1
                                                                      *t3+4*t5*t1P*t4*t3P*k*t4P*t1*t2*t3+t7*t32kP*k*t4P*t4+(t3*t3)*(t1*t1)*t7*t3P*t4P*t6*t2P
                                                                      *t4-2*(t3*t3)*t3P*t4P*t5*t1P+(t2*t2)*(t3*t3)*t7*t3P*t4P*t5*t1P*t1-2*t4P*t5*t3P*k*t6*t2P
                                                                      *t2-2*t4P*t5*t5*t3P*k*t1P*(t2*t2)-2*t5*t5*t1P*t1*(t2*t2)*t3P*k*t4P+4*(t3*t3)*t6*t2P*t3P
                                                                      *t4P*t5*t1-2*(t3*t3)*t6*t2P*t3P*t4P+(t3*t3)*t1*t7*t3P*t4P*t5*t1P*t4+4*t4P*t2*t3P*(t3
                                                                                                                                                        *t3)*t5*t6*t2P*t1*t4-t7*t32kP*(t1*t1)*(t2*t2)*k*t4P*t5*t4+2*t4P*t3P*k*t6*t2P*t3*t2-4*t5*t5
                                                                      *t1P*t4*t3P*k*t4P*t2*t3-2*t5*t5*t1P*t4*t3P*k*t4P*t1*t3-4*t4P*t5*t5*t3P*k*t1P*t2*t4-2
                                                                      *t4P*t5*t5*t3P*k*t1P*(t2*t2)*t4+t7*t32kP*k*t6*t2P*(t4*t4)-t7*t32kP*k*t4P*t5*t4-t7*t32kP
                                                                      *k*t4P*t6*t4+t7*t32kP*k*t5*t1P*(t4*t4)-t7*t32kP*(t1*t1)*(t2*t2)*k*t4P*t6*t4-4*t6*t6*t2P*t4
                                                                      *t3P*k*t3*t4P*t1-4*t6*t2P*t4*t3P*k*t3*t4P*t5*t1+4*t6*t2P*t2*t4*t3P*k*t3*t4P*t1-4*t6*t6
                                                                      *t2P*t2*t4*t3P*k*t3*t4P*t1-4*t6*t2P*t2*t4*t3P*k*t3*t4P*t5*t1+2*t4P*t1*t3P*k*t5*t1P
                                                                      *(t2*t2)*t3+2*t5*t5*t1P*t1*t3P*(t3*t3)*t4P-t7*t32kP*k*t4P*t6*(t2*t2)+t7*t32kP*k*t6*t2P
                                                                      *t2+t7*t32kP*k*t5*t1P*(t2*t2)+t7*t32kP*k*t5*t1P*t1+t7*t32kP*k*t6*t2P*(t1*t1)-2*t7*t32kP
                                                                      *k*t4P*t6*t1-2*t7*t32kP*k*t4P*t5*t2-2*t7*t32kP*k*t4P*t5*t1+(t2*t2)*(t3*t3)*t7*t3P*t4P*t5
                                                                      *t1P*t4*t1+2*t5*t5*t3P*(t3*t3)*t4P*t1P*t4+4*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+4*t4P*t6*t2*t4*t3P*(t3*t3)*t5*t1P+2*t4P
                                                                      *t6*t6*t2*t4*t3P*(t3*t3)*t2P+t2*(t3*t3)*t7*t3P*t4P*t6*t2P*(t1*t1)*t4+4*t4P*t2*t3P*(t3*t3)
                                                                      *t5*t5*t1P*t4*t1+2*t5*t1P*t1*t3P*k*t6*t2P+2*t4P*(t2*t2)*t3P*(t3*t3)*t5*t5*t1P*t4*t1+2*t7
                                                                      *t32kP*t1*t2*k*t5*t1P+2*t7*t32kP*t1*t2*k*t6*t2P-2*t7*t32kP*t1*(t2*t2)*k*t4P*t6+t7*t32kP
                                                                      *(t1*t1)*(t2*t2)*k*t4P+t2*(t3*t3)*t7*t3P*t4P*t6*t2P*(t1*t1)+4*t4P*t6*t6*t4*t3P*(t3*t3)*t2P
                                                                      *t1+2*t4P*t6*t4*t3P*(t3*t3)*t5*t1P+2*t4P*t6*t6*t4*t3P*(t3*t3)*t2P+2*t5*t1P*t1*t2*t3P
                                                                      *k*t6*t2P*(t4*t4)-4*t5*t1P*t1*t2*t3P*k*t4P*t6*t4+4*t5*t1P*t2*t3P*k*t3*t4P*t4-2*t4P*t5
                                                                      *t5*t3P*k*t1P*t3-2*t4P*t5*t5*t3P*k*t1P*t4-t4P*t32kP*t3*t7*(t2*t2)+4*t2*(t3*t3)*t3P*t42kP
                                                                      *t6+4*t42kP*t6*t3P*t3*(t1*t1)*t2+2*t7*t32kP*(t1*t1)*t2*k*t4P+2*t7*t32kP*t1*(t2*t2)*k*t4P
                                                                      +2*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
                                                                      *t7*t32kP*t1*t2*k*t5*t1P*(t4*t4)-2*(t2*t2)*(t3*t3)*t3P*t4P*t5*t1P*t4*t1+4*t5*t1P*t1*t2*t3P
                                                                      *(t3*t3)*t4P*t6+(t3*t3)*t1*t7*t3P*t4P*t5*t1P-4*t5*t1P*t1*t2*t3P*k*t4P*t6-4*t5*t5*t1P
                                                                      *t1*t2*t3P*k*t4P-4*t2*(t3*t3)*t3P*t4P*t6*t2P*t1*t4+2*t5*t1P*t3P*k*t3*t4P*t4+2*(t3*t3)
                                                                      *t1*t7*t3P*t4P*t6*t2P+2*t6*t2P*t2*t3P*k*t4P*(t1*t1)-4*t7*t32kP*t1*t2*k*t4P*t6-2*t6*t6
                                                                      *t2P*t4*t3P*k*t4P-2*t6*t2P*t4*t3P*k*t4P*t5+2*t5*t1P*(t2*t2)*t3P*k*t3*t4P*t4-2*t4P
                                                                      *t4*t3P*(t3*t3)*t5*t1P*t1-2*t4P*t4*t3P*(t3*t3)*t6*t2P*(t1*t1)-4*t4P*t5*t1*t3P*k*t6*t2P
                                                                      *t2+2*t5*t1P*t1*(t2*t2)*t3P*k*t4P*t4-4*t5*t5*t1P*t1*t2*t3P*k*t4P*t4+2*t5*t1P*t3P*k*t4P
                                                                      *(t2*t2)-2*t6*t6*t2P*t4*t3P*k*t3*t4P*(t1*t1)-2*t6*t2P*t4*t3P*k*t3*t4P*t5*(t1*t1)-2*t7*t32kP
                                                                      *(t1*t1)*t2*k*t4P*t5+(t3*t3)*t6*t2P*t3P*t4P*t7+2*(t3*t3)*t6*t2P*t3P*t4P*t5*(t1*t1)+2*(t3
                                                                                                                                                            *t3)*t6*t6*t2P*t3P*t4P+2*(t3*t3)*t6*t2P*t3P*t4P*t5-2*(t3*t3)*t6*t2P*t3P*t5*t1P*t2-2
                                                                      *(t3*t3)*t6*t2P*t3P*t5*t1P+2*(t3*t3)*t6*t6*t2P*t3P*t4P*t2-2*t7*t32kP*(t1*t1)*t2*k*t4P
                                                                      *t6-2*t7*t32kP*t1*(t2*t2)*k*t4P*t5+4*t5*t1P*t1*t2*t3P*k*t6*t2P*t4-2*t6*t6*t2P*t2*t4*t3P
                                                                      *k*t3*t4P*(t1*t1)-2*t6*t2P*t2*t4*t3P*k*t3*t4P*t5*(t1*t1)+2*t6*t2P*t2*t4*t3P*k*t3*t4P-2
                                                                      *t6*t6*t2P*(t1*t1)*t3P*k*t3*t4P-4*t6*t2P*t1*t3P*k*t3*t4P*t5*t2-2*t6*t2P*(t1*t1)*t3P*k
                                                                      *t3*t4P*t5-2*t4P*t5*t3P*k*t6*t2P*t3-4*t4P*t5*t5*t3P*k*t1P*t2-2*t4P*t5*t5*t3P*k*t1P-4
                                                                      *(t3*t3)*t6*t2P*t3P*t5*t1P*t4-4*(t3*t3)*t6*t2P*t3P*t4P*t1+2*(t3*t3)*t6*t6*t2P*t3P*t4P
                                                                      *(t1*t1)-2*(t3*t3)*t6*t2P*t3P*t5*t1P*t1+4*(t3*t3)*t6*t6*t2P*t3P*t4P*t1-4*t4P*t6*t6*t3P
                                                                      *k*t2P*t1*t2-2*t4P*t5*t3P*k*t6*t2P+4*t7*t32kP*t1*t2*k*t4P+2*t5*t1P*t1*t2*t3P*k*t6*t2P-2
                                                                      *t6*t6*t2P*t4*t3P*k*t4P*(t1*t1)*t2-2*t6*t2P*t4*t3P*k*t4P*t5*(t1*t1)*t2+2*t5*t1P*t1*t3P
                                                                      *k*t4P*t4+2*t5*t5*t3P*(t3*t3)*t4P*t1P-4*t4P*t6*t3P*k*t5*t1P*t2*t4+2*t7*t32kP*k*t6*t2P
                                                                      *(t1*t1)*t4-2*(t3*t3)*t6*t2P*t3P*t5*t1P*t2*(t4*t4)+t7*t32kP*t1*(t2*t2)*k*t5*t1P*(t4*t4)+2*t2
                                                                      *(t3*t3)*t7*t3P*t4P*t5*t1P*t1-2*t4P*t6*(t2*t2)*t3P*k*t3*t5*t1P+2*(t3*t3)*t6*t2P*t3P*t4P
                                                                      *t5*t4+(t3*t3)*t6*t2P*t3P*t4P*t7*t4-2*(t3*t3)*t6*t2P*t3P*t5*t1P*(t4*t4)-2*t7*t32kP*k*t4P
                                                                      *t5*t2*t4-2*t7*t32kP*k*t4P*t6*t1*t4-4*t4P*t6*t2*t3P*k*t3*t5*t1P+2*t5*t5*t12kP*t2*(t4*t4)
                                                                      *t3P*k-t4P*t5*t1P*k*t7*t3P*t3-4*t2*(t3*t3)*t7*t3P*t42kP*t5*t1-t7*t3P*t4*t2P*k*t4P*t6-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)
                                                                      +2*t2*(t3*t3)*t7*t3P*t42kP*(t1*t1)-t7*t3P*t3*t4*t6*t2P*k*t4P*(t1*t1)*t2-t7*t3P*t2P*k*t4P
                                                                      *t6-t7*t3P*(t1*t1)*t4*t2P*k*t4P*t6*t3-t7*t3P*t3*t2P*k*t4P*t6-t5*t5*t3P*(t3*t3)*t42kP
                                                                      *(t1*t1)-2*t4P*t6*t4*t3P*k*t3*t5*t1P-4*t4P*t6*t4*t3P*k*t3*t5*t1P*t2+t7*t32kP*k*t4P+2
                                                                      *t7*t32kP*(t1*t1)*t2*k*t6*t2P*t4+2*t7*t32kP*k*t4P*t1*t4+4*t7*t32kP*k*t5*t1P*t2*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
                                                                      +2*t7*t32kP*k*t5*t1P*t4*t1+4*t7*t32kP*k*t6*t2P*t1*t4+2*t2*(t3*t3)*t7*t3P*t4P*t6*t2P*t1
                                                                      +t2*(t3*t3)*t7*t3P*t4P*t6*t2P*t4-2*t4P*t5*t5*t1*t3P*k*t3*t1P+2*t5*t1P*t3P*k*t3*t4P-2
                                                                      *t5*t1P*t1*(t2*t2)*t3P*k*t4P*t6+2*t2*(t3*t3)*t7*t3P*t4P*t5*t1P+t2*(t3*t3)*t7*t3P*t4P
                                                                      *t6*t2P+(t2*t2)*(t3*t3)*t7*t3P*t4P*t5*t1P+4*t4P*t6*t6*t2*t4*t3P*(t3*t3)*t2P*t1+2*t4P
                                                                      *t6*(t2*t2)*t4*t3P*(t3*t3)*t5*t1P+2*t4P*(t1*t1)*t3P*k*t6*t2P+4*t4P*t1*t3P*k*t6*t2P+2
                                                                      *t7*t32kP*t1*t2*k*t6*t2P*(t4*t4)-4*t7*t32kP*t1*t2*k*t4P*t5*t4-4*t7*t32kP*t1*t2*k*t4P*t6*t4
                                                                      +4*t4P*t2*t3P*(t3*t3)*t5*t6*t2P*t1+2*t4P*t2*t3P*(t3*t3)*t5*t6*t2P*t4+2*t4P*(t2*t2)*t3P
                                                                      *(t3*t3)*t5*t5*t1P+2*t2*(t3*t3)*t7*t3P*t4P*t5*t1P*t4+4*t6*t6*t2P*t1*t2*t3P*(t3*t3)*t4P
                                                                      +2*t5*t1P*t1*(t2*t2)*t3P*k*t4P-2*(t3*t3)*t3P*t4P*t5*t1P*t1-2*t5*t1P*t32kP*t3*t7*t1*t4
                                                                      +4*t4P*t2*t3P*(t3*t3)*t5*t5*t1P*t4-2*t4P*t6*t6*t4*t3P*k*t3*t2P+4*t4P*t2*t3P*(t3*t3)*t5
                                                                      *t5*t1P+2*t4P*t2*t3P*(t3*t3)*t5*t6*t2P+2*t5*t1P*t3P*t3*t4P*t7*t2+4*t5*t5*t1P*t3P*t3
                                                                      *t4P*t2+2*t5*t5*t1P*t3P*t3*t4P*t1-2*t5*t5*t12kP*t3P*t3*t2*(t4*t4)+t42kP*t5*t5*(t1*t1)*t3P
                                                                      *k*(t2*t2)-2*t4P*t4*t5*t1P*k*t1*t7*t3P*t2*t3-t4P*t4*t5*t1P*k*t1*t7*t3P*(t2*t2)*t3-t4P*t4
                                                                      *t5*t1P*k*t1*t7*t3P*t3-t4P*t4*t5*t1P*k*t7*t3P-t4P*t4*t5*t1P*k*t7*t3P*(t2*t2)+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-t4P*t3*t5
                                                                      *t1P*k*t1*t7*t3P-2*t42kP*t2*t3P*(t3*t3)*t5*t5*(t1*t1)-2*t42kP*(t2*t2)*t3P*(t3*t3)*t5*t5*t1
                                                                      +2*t42kP*t5*t5*(t1*t1)*t3P*k*t3*t2+2*t4P*t6*t4*t3P*t3*t5*t1P+2*t42kP*t2*t7*t3P*t3+t42kP
                                                                      *(t2*t2)*t7*t3P*t3+2*t42kP*(t2*t2)*t7*t3P*t3*t1-t42kP*t5*(t1*t1)*(t2*t2)*t7*t3P*t3+t4P*t5
                                                                      *t32kP*t3*t7*(t2*t2)-2*t5*t1P*t3P*t3*t6*t2P*t2+4*t5*t5*t1P*t3P*t3*t4P*t1*t2-2*t6*t6*t22kP
                                                                      *t4*t3P*t3-8*t42kP*t6*t3P*k*t1*t2-(t3*t3)*t42kP*t6*t6*t3P+(t2*t2)*(t3*t3)*t7*t3P*t42kP
                                                                      +2*(t3*t3)*(t1*t1)*t3P*t42kP*t6-4*t4P*t32kP*t3*t7*t1*t2+2*t42kP*t6*t3P*k*t5*t3+4*t42kP
                                                                      *t6*t6*t3P*k*t1*t2-4*t5*t1P*t3P*t3*t4P*t1*t2+4*t42kP*t2*t3P*(t3*t3)*t5*(t1*t1)-2*t6*t2P
                                                                      *(t4*t4)*t3P*t3*t5*t1P*t2*t1+4*t6*t2P*t4*t3P*t3*t4P*t5*t1*t2-2*t5*t1P*t32kP*t3*t7*(t2*t2)
                                                                      *t4+4*t42kP*t5*t5*t1*t3P*k*t2+2*t42kP*t7*t3P*k*t5*t2*t3-4*t42kP*t3P*t3*t1*t2-t6*t6*t22kP
                                                                      *(t4*t4)*t3P*t3*(t1*t1)-2*t6*t2P*t4*t32kP*t3*t7*(t1*t1)*t2+2*t42kP*t1*t7*t3P*k*t5*t3+t5*t5
                                                                      *t12kP*t3P*k*t3-t4P*t4*t5*t1P*k*t1*t7*t3P*(t2*t2)-t4P*t5*t1P*k*t7*t3P-t4P*t5*t1P
                                                                      *k*t7*t3P*t1-2*t4P*t5*t1P*k*t7*t3P*t2-t4P*t3*t5*t1P*k*t1*t7*t3P*(t2*t2)-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*t4P
                                                                      *t5*t32kP*t3*t7*t2*t4+t4P*t6*t3*t2P*t2*t7*t3P*(t1*t1)+2*t4P*t5*t1*t4*t32kP*t3*t7*(t2*t2)
                                                                      +4*t42kP*t6*t3P*t3*t1+2*t42kP*t1*t7*t3P*k*t6*t3-t42kP*t5*t5*t3P*t3+t42kP*(t1*t1)*(t2*t2)
                                                                      *t7*t3P*t3-2*t6*t2P*t4*t3P*t3*t4P*t2-t42kP*t3P*t3-t42kP*t6*t6*t3P*t3*(t1*t1)*(t2*t2)
                                                                      +2*t6*t6*t22kP*(t4*t4)*t3P*k*t1-t5*t5*t12kP*t3P*(t3*t3)*(t4*t4)+t6*t6*t22kP*t3P*k*(t1*t1)-2
                                                                      *t42kP*(t2*t2)*t3P*(t3*t3)*t5*t6*(t1*t1)-8*t42kP*t1*t2*t3P*k*t3*t5+t42kP*t6*t6*(t2*t2)*t3P
                                                                      *k*t3-2*t6*t2P*t1*t32kP*t3*t7*t2-2*(t3*t3)*(t1*t1)*t3P*t42kP*t6*t5+t42kP*t7*t3P*t3-4*t6*t6
                                                                      *t22kP*t4*t3P*t3*t1-8*t42kP*t1*t2*t3P*k*t3*t6+2*t42kP*t3P*k*t2+2*t6*t6*t22kP*t3P*k*t1-2
                                                                      *t42kP*t6*t3P*k+t42kP*t6*t6*t3P*k*(t2*t2)-2*(t3*t3)*t1*t7*t3P*t42kP*t5-4*t2*(t3*t3)*t7*t3P
                                                                      *t42kP*t6*t1-2*(t2*t2)*(t3*t3)*t3P*t42kP*t1-t7*t3P*(t1*t1)*t4*t2P*k*t4P*t6-2*t7*t3P*t1
                                                                      *t4*t2P*k*t4P*t6*t3-2*t5*t5*t12kP*t2*(t4*t4)*t3P*(t3*t3)-2*(t3*t3)*t6*t6*t22kP*t3P*t1*(t4
                                                                                                                                                             *t4)-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-t42kP
                                                                      *t5*t5*(t1*t1)*t3P*t3-2*t7*t3P*t6*t2P*k*t2*t4P*t1*t4-2*t42kP*t1*t7*t3P*k*(t2*t2)-2*t5*t5
                                                                      *t12kP*t3P*(t3*t3)*t4+2*t4P*t6*t6*t3P*t3*t2P*(t1*t1)*t2+2*t42kP*t6*t6*t3P*k*t2-t5*t5*t12kP
                                                                      *t3P*t3*(t2*t2)*(t4*t4)+t7*t3P*t4P*t3*t6*t2P-2*t5*t5*t12kP*t3P*t3*t2-2*t5*t1P*t3P*t3
                                                                      *t4P*t1*(t2*t2)-2*t42kP*t6*(t1*t1)*t7*t3P*t3*t2+4*t42kP*t6*t2*t3P*k*t3*t5*(t1*t1)+4*t4P*t6
                                                                      *t4*t3P*t3*t5*t1P*t2*t1-t42kP*t6*(t1*t1)*t7*t3P*t3*(t2*t2)+2*t5*t1P*t4*t7*t3P*t4P*t3*t2-t42kP
                                                                      *t5*t7*t3P*t3-2*t5*t1P*t3P*t3*t4P*t1-4*t5*t1P*t3P*t3*t4P*t2-2*t42kP*t3P*t3*(t1*t1)
                                                                      *t2-t5*t1P*t32kP*t3*t7*t1*(t2*t2)+2*t4P*t6*t4*t3P*t3*t5*t1P*(t2*t2)*t1+t42kP*t7*t3P*k*t5
                                                                      *(t2*t2)*t3+2*t42kP*t5*t5*t3P*k*t2*t3+2*t4P*t6*t4*t3P*t3*t5*t1P*(t2*t2)+2*t42kP*(t1*t1)*t7
                                                                      *t3P*k*t5*t2*t3+t4P*t6*t4*t32kP*t3*t7*(t1*t1)*(t2*t2)+t6*t6*t22kP*(t4*t4)*t3P*k*(t1*t1)+2*t42kP
                                                                      *t1*(t2*t2)*t3P*k*t3-2*t42kP*t5*t3P*k*(t2*t2)-2*t42kP*t6*t3P*t3*t5*(t1*t1)*(t2*t2)+2*t42kP
                                                                      *t6*t6*t3P*k*t1*t3-2*t4P*t32kP*t3*t7*(t1*t1)*t2+2*t6*t6*t2P*t4*t3P*t3*t4P*(t1*t1)*t2+2*t6
                                                                      *t2P*t3P*t3*t4P*t5-t42kP*t5*t7*t3P*t3*(t1*t1)-2*t4P*t3P*t3*t6*t2P-2*t42kP*t6*t6*t3P
                                                                      *t3*(t1*t1)*t2-2*t6*t2P*t4*t3P*t3*t4P-2*t5*t1P*t32kP*t3*t7*t2*(t4*t4)-2*t6*t2P*(t1*t1)*t3P
                                                                      *t3*t4P+t5*t5*t12kP*(t2*t2)*t3P*k*t3*(t4*t4)+t4P*t6*t4*t32kP*t3*t7*(t2*t2)-2*t2*(t3*t3)*t7
                                                                      *t3P*t42kP*t5-4*t42kP*t6*t3P*k*t2-2*t42kP*t6*t3P*k*(t2*t2)-4*t5*t1P*t32kP*t3*t7*t1*t2
                                                                      *t4+2*t5*t5*t1P*t3P*t3*t4*t4P*t1+4*t5*t5*t1P*t3P*t3*t4*t4P*t2+t6*t2P*t4*t3P*t3*t4P
                                                                      *t7+t42kP*(t1*t1)*t7*t3P*k*t5*(t2*t2)-4*t42kP*t1*(t2*t2)*t3P*k*t3*t5+2*t42kP*(t2*t2)*t3P
                                                                      *(t3*t3)*t5*(t1*t1)+8*t2*(t3*t3)*t3P*t42kP*t6*t1+2*t4P*t5*(t1*t1)*t32kP*t3*t7*t2+t5*t5*t12kP
                                                                      *t3P*k*(t2*t2)+2*t5*t5*t12kP*t2*t3P*k*t3-4*t42kP*t1*t3P*k*t3*t6-(t2*t2)*(t3*t3)*t7*t3P*t42kP
                                                                      *t6+2*t42kP*t1*t7*t3P*k*t5+t42kP*t6*t6*t3P*k*(t1*t1)-t4P*t4*t32kP*t3*t7*(t1*t1)-2*t42kP
                                                                      *t6*t3P*t3*t5*(t2*t2)+2*t6*t6*t22kP*t4*t3P*k*t3*(t1*t1)-t42kP*t3P*t3*(t2*t2)-t5*t1P*t32kP
                                                                      *t3*t7*(t4*t4)+4*t42kP*t5*t1*t3P*k*t3*t6+2*t42kP*t3P*t3*t5-t5*t1P*t32kP*t3*t7*(t2*t2)*(t4
                                                                                                                                                             *t4)+2*t5*t5*t1P*t3P*t3*t4P+2*t6*t6*t22kP*(t4*t4)*t3P*k*t3*t1+(t2*t2)*(t3*t3)*t7*t3P*t42kP
                                                                      *(t1*t1)-2*t6*t2P*t1*t3P*t3*t5*t1P*t2-2*t6*t2P*t1*t3P*t3*t5*t1P-t6*t6*t22kP*t3P*t3-t6
                                                                      *t2P*(t4*t4)*t32kP*t3*t7*(t1*t1)*t2-t6*t2P*(t4*t4)*t32kP*t3*t7+t42kP*t5*t5*(t1*t1)*t3P*k-2
                                                                      *t6*t2P*t4*t32kP*t3*t7*t2-4*t42kP*t5*t3P*k*t2+2*t6*t2P*t4*t3P*t3*t4P*t5-t6*t6*t22kP*(t4
                                                                                                                                                           *t4)*t3P*t3-(t3*t3)*t6*t6*t22kP*t3P*(t4*t4)-2*t6*t2P*t4*t32kP*t3*t7*(t1*t1)-t4P*t3*t4*t6
                                                                      *t2P*k*t7*t3P-t7*t3P*(t1*t1)*t2P*k*t4P*t6-t5*t5*t3P*(t3*t3)*t42kP+2*t42kP*t1*t3P*k
                                                                      +t6*t6*t22kP*t3P*k-2*t42kP*t6*t6*t3P*t3*t1*(t2*t2)+4*t42kP*(t2*t2)*t3P*(t3*t3)*t5*t1-t42kP
                                                                      *t3P*t3*(t1*t1)*(t2*t2)-2*t4P*(t1*t1)*t2*t4*t32kP*t3*t7+4*t6*t6*t22kP*t4*t3P*k*t3*t1+2*t42kP
                                                                      *t5*t5*t1*t3P*k-2*t6*t6*t22kP*t1*t3P*t3-t4P*(t1*t1)*(t2*t2)*t4*t32kP*t3*t7-t42kP*t6*t6*t3P
                                                                      *t3*(t2*t2)+2*t5*t5*t12kP*(t2*t2)*t4*t3P*k-2*t5*t5*t12kP*t3P*(t3*t3)*t2-t6*t2P*(t1*t1)*t32kP
                                                                      *t3*t7-t4P*t4*t5*t1P*k*t1*t7*t3P-t4P*t5*t1P*k*t7*t3P*(t2*t2)-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-t4P*(t2*t2)*t5*t1P
                                                                      *k*t1*t7*t3P-t4P*t32kP*t3*t7*(t1*t1)*(t2*t2)-(t2*t2)*(t3*t3)*t7*t3P*t42kP*t5*(t1*t1)+2*t4P
                                                                      *t6*t32kP*t3*t7*t1*(t2*t2)+2*t42kP*t1*t3P*k*(t2*t2)+2*t42kP*t1*t3P*k*t3+4*(t3*t3)*t1*t3P
                                                                      *t42kP*t6+t6*t6*t22kP*(t4*t4)*t3P*k-2*(t3*t3)*t6*t6*t22kP*t3P*t1-2*t6*t2P*(t1*t1)*t3P*t3
                                                                      *t4P*t2+2*t5*t5*t12kP*t2*t3P*k*t3*(t4*t4)-4*t42kP*t5*t5*t1*t3P*t3*t2-2*t42kP*t6*(t2*t2)*t3P
                                                                      *k*t3-4*t42kP*t6*t3P*k*(t1*t1)*t2-2*t4P*t4*t32kP*t3*t7*t2-t5*t5*t12kP*(t2*t2)*(t4*t4)*t3P
                                                                      *(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)-2*t42kP*t1*t7*t3P*k*t3+4*t42kP*t5*t5*t1*t3P*k*t3*t2-2*t42kP*t6*t3P*k*(t1*t1)-2*t4P
                                                                      *t4*t32kP*t3*t7*t1+(t3*t3)*(t1*t1)*t7*t3P*t42kP-2*t6*t2P*(t4*t4)*t32kP*t3*t7*t1+2*(t2*t2)*(t3
                                                                                                                                                                 *t3)*t3P*t42kP*t6*(t1*t1)+2*t42kP*t5*t5*(t1*t1)*t3P*k*t2-2*t42kP*t6*t3P*k*t3-t42kP*(t1
                                                                                                                                                                                                                                                     *t1)*t7*t3P*k+2*t2*(t3*t3)*t7*t3P*t42kP-4*t42kP*t6*t3P*k*t1-(t3*t3)*(t1*t1)*t7*t3P*t42kP
                                                                      *t5-2*t42kP*t6*t6*t3P*t3*t1+4*t4P*t6*t3P*t3*t5*t1P*t2+2*t4P*t6*t3P*t3*t5*t1P+4*t4P
                                                                      *t6*t6*t3P*t3*t2P*t1+4*t42kP*t6*(t2*t2)*t3P*k*t3*t5*t1-8*t42kP*t2*t3P*(t3*t3)*t5*t6*t1+2
                                                                      *t6*t2P*t1*t3P*t3*t4P*t7-2*(t2*t2)*(t3*t3)*t7*t3P*t42kP*t6*t1-4*t6*t2P*t1*t3P*t3*t4P-2
                                                                      *t5*t1P*t3P*t3*t4*t4P+2*t5*t5*t1P*t3P*t3*t4P*(t2*t2)+t5*t1P*t3P*t3*t4P*t7*(t2*t2)-2
                                                                      *t5*t1P*t3P*t3*t4*t4P*(t2*t2)+t4P*t5*t32kP*t3*t7-t42kP*(t2*t2)*t3P*(t3*t3)*t5*t5*(t1*t1)-t6
                                                                      *t2P*t32kP*t3*t7-2*t42kP*(t1*t1)*(t2*t2)*t3P*k*t3*t6-t42kP*t7*t3P*k+4*t42kP*t6*t3P*t3
                                                                      *t1*(t2*t2)-8*t42kP*t6*t3P*t3*t5*t1*t2+2*t42kP*t7*t3P*k*t6*t2*t3+2*t42kP*t1*t7*t3P*k*t6-4
                                                                      *t6*t2P*t4*t3P*t3*t5*t1P*t1+2*t42kP*(t1*t1)*t3P*k*t2+8*t42kP*t5*t1*t3P*k*t6*t2+2*t4P
                                                                      *t6*t3*t2P*t2*t7*t3P*t1-2*t4P*t2*t5*t1P*k*t1*t7*t3P-(t3*t3)*t6*t6*t22kP*t3P-2*t42kP*t6
                                                                      *t3P*t3*t5+t7*t3P*(t2*t2)*t3*t4*t1P*t1*t4P*t5-2*(t2*t2)*(t3*t3)*t7*t3P*t42kP*t5*t1-4*t5*t5
                                                                      *t12kP*t2*t4*t3P*(t3*t3)+4*t5*t5*t12kP*t2*t3P*k*t3*t4+2*t42kP*t1*t7*t3P*k*t5*(t2*t2)*t3+t6
                                                                      *t6*t22kP*(t4*t4)*t3P*k*t3*(t1*t1)+4*t5*t1P*t1*t2*t3P*k*t4P*t4+2*t4P*t6*(t2*t2)*t4*t3P
                                                                      *(t3*t3)*t5*t1P*t1-2*t5*t5*t1P*t4*t3P*k*t4P*t1*(t2*t2)*t3-2*t5*t1P*t1*(t2*t2)*t3P*k*t4P
                                                                      *t6*t4+2*t5*t1P*t3P*k*t3*t6*t2P*t2-2*(t2*t2)*(t3*t3)*t3P*t4P*t5*t1P*t4+2*t4P*t1*t3P*k
                                                                      *t3*t5*t1P+2*t4P*t1*t3P*k*t3*t5*t1P*t4-2*t5*t5*t1P*t1*(t2*t2)*t3P*k*t4P*t4+4*t4P*t1*t3P
                                                                      *k*t6*t2P*t3-2*t4P*t6*t1*(t2*t2)*t3P*k*t3*t5*t1P*t4+2*t6*t2P*t2*t4*t3P*k*t3*t4P*(t1*t1)
                                                                      +2*t6*t2P*t2*(t4*t4)*t3P*k*t3*t5*t1P*t1+2*t6*t2P*t1*t3P*k*t3*t5*t1P*t2+2*t6*t2P*t1*t3P
                                                                      *k*t3*t5*t1P+4*t6*t2P*t2*t4*t3P*k*t3*t5*t1P+2*t4P*t3P*k*t6*t2P-2*t4P*t6*t3P*k*t5*t1P
                                                                      *(t2*t2)+2*t4P*(t1*t1)*t3P*k*t6*t2P*t3+4*t4P*t1*t3P*k*t6*t2P*t3*t4-2*t4P*t5*t5*t1*t3P
                                                                      *k*t1P*t4-2*t6*t6*t2P*t2*t4*t3P*k*t3*t4P-2*t6*t2P*t2*t4*t3P*k*t3*t4P*t5-2*t4P*t6*t3P
                                                                      *k*t5*t1P*t4*t1-2*t4P*t6*t3P*k*t5*t1P*t3*t1+2*t7*t32kP*k*t5*t1P*t2*(t4*t4)-2*t7*t32kP*k
                                                                      *t4P*t5*t1*t4+2*t7*t32kP*k*t6*t2P*t1*(t4*t4)+4*t4P*t1*t3P*k*t6*t2P*t3*t2+4*t6*t2P*t2*t4
                                                                      *t3P*k*t3*t5*t1P*t1-4*t2*(t3*t3)*t3P*t4P*t5*t1P*t4*t1-2*(t2*t2)*(t3*t3)*t3P*t4P*t5*t1P
                                                                      *t1+2*t5*t1P*(t4*t4)*t3P*k*t6*t2P*t1*t3-4*t5*t5*t1P*t4*t3P*k*t4P*t1*t2*t3-2*t4P*t6*t3P
                                                                      *k*t5*t1P*(t2*t2)*t4-4*t6*t2P*t4*t3P*k*t4P*t5*t1*t2-2*t4P*t5*(t1*t1)*t3P*k*t6*t2P*t2-2
                                                                      *t5*t5*t1P*(t2*t2)*t3P*k*t3*t4P+4*t5*t1P*t2*t3P*k*t3*t4P-2*t4P*t6*t6*t3P*k*t2P*(t1
                                                                                                                                                      *t1)*t2-2*t4P*t6*t3P*k*t5*t1P*t1-2*t4P*t6*t6*t3P*k*t2P*(t1*t1)+(t3*t3)*(t1*t1)*t7*t3P*t4P
                                                                      *t6*t2P+2*(t3*t3)*t1*t7*t3P*t4P*t6*t2P*t4-2*t4P*t6*t6*t2*t3P*k*t2P*t3+2*t4P*(t2*t2)*t3P
                                                                      *(t3*t3)*t5*t5*t1P*t4-4*t6*t2P*t4*t3P*t3*t4P*t1+4*t4P*t6*t6*t3P*t3*t2P*t1*t2+4*t6*t2P
                                                                      *t4*t3P*t3*t4P*t5*t1-t42kP*t7*t3P*k*t3+2*t6*t6*t22kP*t1*t3P*k*t3+4*t42kP*t1*t7*t3P*k
                                                                      *t5*t2*t3-(t3*t3)*t6*t6*t22kP*t3P*(t1*t1)-t5*t5*t12kP*t3P*t3-2*t5*t3P*(t3*t3)*t42kP*t6+2
                                                                      *t42kP*t6*(t2*t2)*t3P*k*t3*t5-(t3*t3)*(t1*t1)*t3P*t42kP*t6*t6*(t2*t2)-4*t42kP*t5*(t1*t1)*t3P
                                                                      *k*t2+2*t42kP*t6*(t1*t1)*t2*t7*t3P*k*t3-4*(t3*t3)*t6*t6*t22kP*t3P*t1*t4+2*t5*t5*t12kP*(t2*t2)
                                                                      *t3P*k*t3*t4-2*t42kP*t7*t3P*k*t2*t3+2*t5*t5*t12kP*t3P*k*t4+4*t6*t2P*t1*t3P*t3*t4P*t5
                                                                      +2*t6*t6*t2P*t4*t3P*t3*t4P+t42kP*(t1*t1)*t7*t3P*t3+t4P*t5*(t1*t1)*t4*t32kP*t3*t7-t42kP
                                                                      *(t1*t1)*t7*t3P*k*(t2*t2)*t3-2*t2*(t3*t3)*t7*t3P*t42kP*t6*(t1*t1)+2*t6*t2P*(t1*t1)*t3P*t3*t4P
                                                                      *t5-2*t6*t2P*t2*t3P*t3*t4P+2*t6*t2P*t4*t3P*t3*t4P*t5*(t1*t1)-2*t42kP*t5*t3P*k-(t3*t3)
                                                                      *t3P*t42kP*(t1*t1)-2*(t3*t3)*t3P*t42kP*t1-t5*t5*t12kP*t3P*(t3*t3)+2*t42kP*t5*(t1*t1)*t3P
                                                                      *k*t6+2*t42kP*t5*t5*t1*t3P*k*t3*(t2*t2)-4*(t3*t3)*t1*t3P*t42kP*t6*t5+2*t42kP*t6*t3P*t3*(t1
                                                                                                                                                              *t1)-4*t42kP*t6*t3P*k*t1*(t2*t2)+t4P*t5*t32kP*t3*t7*t4-2*t4P*t32kP*t3*t7*t2-2*t42kP*t2
                                                                      *t3P*(t3*t3)*t5*t5-2*t2*(t3*t3)*t3P*t42kP-2*t42kP*t1*t7*t3P*k+t42kP*t7*t3P*k*t5*t3+t42kP
                                                                      *t3P*k*(t2*t2)+t42kP*t6*(t1*t1)*(t2*t2)*t7*t3P*k*t3-2*t5*t5*t3P*(t3*t3)*t42kP*t1-t5*t1P*t32kP
                                                                      *t3*t7*t1*(t4*t4)-2*t5*t5*t12kP*(t2*t2)*t4*t3P*(t3*t3)-t42kP*t7*t3P*k*(t2*t2)+t5*t5*t12kP*(t2
                                                                                                                                                                 *t2)*(t4*t4)*t3P*k-t42kP*t6*t6*t3P*t3+t42kP*t6*t6*(t2*t2)*t3P*k*t3*(t1*t1)-4*t42kP*t5*t1
                                                                      *t3P*k+4*t42kP*t1*t7*t3P*k*t6*t2+2*t42kP*t7*t3P*k*t5*t2-2*t4P*t1*(t2*t2)*t4*t32kP*t3*t7-4
                                                                      *t42kP*t6*t3P*t3*t5*t1*(t2*t2)+t42kP*t5*t5*t3P*k-2*t42kP*(t1*t1)*(t2*t2)*t3P*k*t3*t5+t42kP
                                                                      *t5*t5*(t1*t1)*t3P*k*t3*(t2*t2)-2*t42kP*t6*t6*t3P*t3*t2+8*t42kP*t5*t1*t3P*t3*t2-2*t42kP*t3P
                                                                      *t3*t1-4*t42kP*t6*t3P*t3*t5*(t1*t1)*t2-2*t6*t2P*(t4*t4)*t32kP*t3*t7*t1*t2-2*t42kP*t5*(t1*t1)
                                                                      *t3P*k*t3-(t3*t3)*t6*t6*t22kP*t3P*(t1*t1)*(t4*t4)-(t3*t3)*(t1*t1)*t3P*t42kP*t6*t6+2*t42kP
                                                                      *t6*t1*(t2*t2)*t7*t3P*k*t3+t42kP*t7*t3P*k*t5+2*t5*t5*t1P*t3P*t3*t4P*t1*(t2*t2)+2*t5*t5*t1P
                                                                      *t3P*t3*t4*t4P*(t2*t2)+t4P*t5*t32kP*t3*t7*(t2*t2)*t4+2*t42kP*t6*t6*t3P*k*t1-(t3*t3)*t7*t3P
                                                                      *t42kP*t6-(t2*t2)*(t3*t3)*t42kP*t6*t6*t3P+2*t42kP*(t2*t2)*t3P*(t3*t3)*t5+2*(t3*t3)*t3P*t42kP
                                                                      *t6+t42kP*t6*t6*t3P*k*(t1*t1)*(t2*t2)-2*(t3*t3)*(t1*t1)*t3P*t42kP*t6*t6*t2-2*t6*t6*t22kP*t4
                                                                      *t3P*t3*(t1*t1)-2*(t3*t3)*t1*t3P*t42kP*t6*t6*(t2*t2)+t4P*t6*t3*t2P*t2*t7*t3P-2*t5*t1P*t3P
                                                                      *t3*t4*t4P*t1-2*t42kP*t6*t1*t7*t3P*t3-2*t42kP*t6*(t2*t2)*t7*t3P*t3*t1+t6*t2P*(t1*t1)*t3P
                                                                      *t3*t4P*t7+4*t6*t2P*t1*t3P*t3*t4P*t5*t2+t4P*t6*t32kP*t3*t7+t42kP*t6*t6*t3P*k*(t1*t1)
                                                                      *t3-4*t42kP*t5*t1*t3P*k*t3+4*t4P*t5*t1*t32kP*t3*t7*t2-2*t2*(t3*t3)*t7*t3P*t42kP*t6-2*t42kP
                                                                      *t5*t7*t3P*t3*(t1*t1)*t2-4*t6*t2P*t4*t3P*t3*t5*t1P-t42kP*(t1*t1)*t7*t3P*k*(t2*t2)+2*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*t2*(t3
                                                                                                                                                              *t3)*t3P*t42kP*(t1*t1)+2*t42kP*t5*(t1*t1)*t3P*t3*(t2*t2)-2*t42kP*t6*t3P*k*(t1*t1)*(t2*t2)-2
                                                                      *t42kP*t5*t5*t1*t3P*t3*(t2*t2)-t5*t5*t12kP*t3P*(t3*t3)*(t2*t2)-2*(t3*t3)*t1*t3P*t42kP*t6
                                                                      *t6-(t2*t2)*(t3*t3)*t7*t3P*t42kP*t5-t4P*t4*t32kP*t3*t7-(t3*t3)*t7*t3P*t42kP*t5-4*t42kP
                                                                      *t6*t3P*t3*t5*t2+t6*t6*t22kP*(t4*t4)*t3P*k*t3+2*t4P*t5*t1*t32kP*t3*t7+2*t42kP*t3P*t3*t5
                                                                      *(t2*t2)+2*t42kP*t6*t6*t2*t3P*k*t3-2*t42kP*t1*t7*t3P*k*(t2*t2)*t3-t5*t1P*t32kP*t3*t7+t42kP
                                                                      *t7*t3P*k*t6-2*t42kP*t5*t7*t3P*t3*t2-2*t42kP*t5*t7*t3P*t3*t1-4*t42kP*t5*t7*t3P*t3*t1*t2
                                                                      +2*t5*t5*t12kP*t3P*k*t2-2*t4P*t32kP*t3*t7*t1*(t2*t2)+2*t42kP*t6*t3P*t3*(t1*t1)*(t2*t2)-(t3
                                                                                                                                                              *t3)*t3P*t42kP+t42kP*(t1*t1)*t3P*k*t3+2*t6*t6*t2P*t4*t3P*t3*t4P*(t1*t1)+t6*t2P*t4*t3P
                                                                      *t3*t4P*t7*(t1*t1)-2*t6*t2P*(t4*t4)*t3P*t3*t5*t1P*t2+t4P*t5*(t2*t2)*t3*t1P*t1*t7*t3P+2
                                                                      *t42kP*t6*t6*t3P*k*(t1*t1)*t2-2*t6*t2P*t1*t32kP*t3*t7+t4P*t6*t32kP*t3*t7*(t1*t1)-2*t2*(t3
                                                                                                                                                             *t3)*t42kP*t6*t6*t3P+2*t42kP*t5*t5*t1*t3P*k*t3+4*(t2*t2)*(t3*t3)*t3P*t42kP*t6*t1-2*t42kP
                                                                      *(t2*t2)*t3P*(t3*t3)*t5*t6-4*t42kP*(t1*t1)*t2*t3P*k*t3*t5+2*t4P*t6*t32kP*t3*t7*t2-(t3*t3)*(t1
                                                                                                                                                                 *t1)*t7*t3P*t42kP*t6+2*(t3*t3)*t1*t7*t3P*t42kP+2*t42kP*(t1*t1)*t7*t3P*k*t6*t2-4*t42kP*t1
                                                                      *t7*t3P*k*t2-2*t6*t2P*t4*t32kP*t3*t7+t4P*t6*t4*t32kP*t3*t7*(t1*t1)-2*t42kP*t5*t5*t1*t3P
                                                                      *t3-t42kP*(t2*t2)*t3P*(t3*t3)*t5*t5+t42kP*t7*t3P*k*t6*(t2*t2)+4*t42kP*t5*t1*t3P*t3-t6*t2P
                                                                      *(t1*t1)*t32kP*t3*t7*t2+2*t4P*t6*t32kP*t3*t7*(t1*t1)*t2-4*t6*t2P*t4*t32kP*t3*t7*t1*t2+2*t4P
                                                                      *t5*t1*t32kP*t3*t7*(t2*t2)+t4P*t6*t4*t32kP*t3*t7+4*t42kP*t6*t2*t3P*k*t3*t5+t4P*t5*(t1*t1)
                                                                      *t32kP*t3*t7+2*t6*t6*t22kP*t4*t3P*k*(t1*t1)-t5*t1P*t32kP*t3*t7*(t2*t2)-8*t42kP*t5*t1*t3P
                                                                      *k*t2+2*t42kP*t7*t3P*k*t6*t2+t5*t5*t12kP*t3P*k*t3*(t4*t4)-2*t42kP*t5*t5*(t1*t1)*t3P*t3*t2
                                                                      +2*t4P*t6*t6*t3P*t3*t2P+2*t4P*t6*t6*t3P*t3*t2P*t2-t4P*t4*t32kP*t3*t7*(t2*t2)+t5*t5*t12kP
                                                                      *t3P*k-4*t42kP*t6*t6*t3P*t3*t1*t2+4*t42kP*t3P*t3*t5*t2-t6*t2P*t2*t32kP*t3*t7-t42kP*(t1
                                                                                                                                                          *t1)*t7*t3P*k*t3-2*t5*t1P*t3P*t3*t4P*(t2*t2)-2*t5*t1P*t32kP*t3*t7*t1*t2*(t4*t4)+4*t42kP
                                                                      *t5*t1*t3P*t3*(t2*t2)+t5*t5*t12kP*t3P*k*(t4*t4)-2*t42kP*(t2*t2)*t3P*k*t3*t5+t4P*t5*(t1*t1)
                                                                      *t4*t32kP*t3*t7*(t2*t2)+t42kP*t7*t3P*k*t5*(t2*t2)-2*(t3*t3)*t1*t7*t3P*t42kP*t6+4*(t3*t3)*t3P
                                                                      *t42kP*t5*t1-4*t2*(t3*t3)*t3P*t42kP*t1+2*t5*t5*t1P*t3P*t3*t4*t4P+2*t4P*t6*t3P*t3*t5*t1P
                                                                      *t1+2*t42kP*t6*t3P*k*t5+t7*t3P*t4*t2P*t2*t4P*t6*t3-t6*t2P*(t4*t4)*t32kP*t3*t7*(t1*t1)-2
                                                                      *(t3*t3)*t6*t6*t22kP*t3P*(t1*t1)*t4-4*t42kP*t2*t3P*(t3*t3)*t5*t6*(t1*t1)+t42kP*(t1*t1)*t7*t3P
                                                                      *k*t6+t42kP*t5*t5*(t1*t1)*t3P*k*t3-2*t6*t2P*(t4*t4)*t3P*t3*t5*t1P*t1-t42kP*t6*(t1*t1)*t7
                                                                      *t3P*t3)
    
     if (k > 0) test <- abs(A37/a[3,7])
     a[3,7] <- a[3,7] + A37
     k <- k+1
    
  } 
  
  
  if (k == maximumIteration) {
    return(list("flag"=1))
    break
  }
  a
}
adw96/CatchAll documentation built on May 28, 2019, 3:55 p.m.