drawing.m

related to 3d human body

JPs(4,1) = real(JPs(18,1)-e(2)*cos(fai+pi/6));   
JPs(4,2) = real(JPs(18,2)-e(2)*sin(fai+pi/6));   
if (JPs(6,1) > JPs(4,1))&(S==1)
    elseif (JPs(6,1) < JPs(4,1))&(S==1)
        S=2;
    elseif (JPs(6,1) > JPs(4,1))&(S==2)
    elseif (JPs(6,1) < JPs(4,1))&(S==2)
        S=1;    
end
Temp = real([ 1/2*(1/(-8*JPs(6,1)*JPs(4,1)-8*JPs(4,2)*JPs(6,2)+4*JPs(4,2)^2+4*JPs(6,2)^2+4*JPs(4,1)^2+4*JPs(6,1)^2)*(-4*JPs(6,2)*L(1)^2-4*JPs(4,2)^2*JPs(6,2)+4*JPs(4,2)^3+4*JPs(6,1)^2*JPs(6,2)-4*JPs(4,2)*L(2)^2+4*JPs(4,2)*L(1)^2+4*JPs(4,2)*JPs(6,1)^2+4*L(2)^2*JPs(6,2)-4*JPs(4,2)*JPs(6,2)^2+4*JPs(4,1)^2*JPs(4,2)-8*JPs(6,1)*JPs(4,1)*JPs(6,2)+4*JPs(4,1)^2*JPs(6,2)-8*JPs(6,1)*JPs(4,1)*JPs(4,2)+4*JPs(6,2)^3+4*(-2*JPs(4,1)^4*JPs(6,2)^2+2*JPs(6,1)*JPs(4,1)*L(2)^4+2*JPs(4,1)^4*L(2)^2+12*JPs(6,1)^2*JPs(4,1)^2*L(1)^2+2*JPs(4,1)^4*L(1)^2-15*JPs(4,1)^4*JPs(6,1)^2-2*JPs(4,1)^4*JPs(4,2)^2+12*JPs(6,1)^2*JPs(4,1)^2*L(2)^2-8*JPs(6,1)*JPs(4,1)^3*L(2)^2+2*JPs(6,1)*JPs(4,1)*L(1)^4+2*JPs(4,1)^2*L(2)^2*L(1)^2+2*JPs(6,1)^2*L(2)^2*L(1)^2-16*JPs(4,1)^3*JPs(4,2)*JPs(6,1)*JPs(6,2)-4*JPs(6,1)*JPs(4,1)*L(2)^2*L(1)^2+8*JPs(6,2)*L(1)^2*JPs(6,1)*JPs(4,1)*JPs(4,2)-4*JPs(4,2)*L(2)^2*JPs(4,1)^2*JPs(6,2)+8*JPs(4,2)*L(2)^2*JPs(6,1)*JPs(4,1)*JPs(6,2)-4*JPs(4,2)^2*L(2)^2*JPs(6,1)*JPs(4,1)-4*JPs(4,2)^2*L(1)^2*JPs(6,1)*JPs(4,1)-4*L(2)^2*JPs(6,2)^2*JPs(6,1)*JPs(4,1)-8*JPs(4,2)*JPs(6,2)^3*JPs(6,1)*JPs(4,1)+8*JPs(4,2)^2*JPs(6,1)^3*JPs(4,1)-JPs(4,1)^6-JPs(6,1)^6-4*JPs(6,2)*L(1)^2*JPs(4,2)*JPs(6,1)^2-4*JPs(6,2)*L(1)^2*JPs(4,1)^2*JPs(4,2)-4*JPs(6,2)^2*L(1)^2*JPs(6,1)*JPs(4,1)+12*JPs(4,2)^2*JPs(6,2)^2*JPs(6,1)*JPs(4,1)-8*JPs(4,2)^3*JPs(6,2)*JPs(6,1)*JPs(4,1)-4*JPs(6,1)^2*JPs(6,2)*JPs(4,2)*L(2)^2+24*JPs(6,1)^2*JPs(6,2)*JPs(4,1)^2*JPs(4,2)-16*JPs(6,1)^3*JPs(6,2)*JPs(4,1)*JPs(4,2)-JPs(4,2)^4*JPs(6,1)^2-JPs(4,2)^4*JPs(4,1)^2-2*JPs(6,1)^4*JPs(6,2)^2-JPs(6,1)^2*JPs(6,2)^4-2*JPs(4,2)^2*JPs(6,1)^4-JPs(4,1)^2*JPs(6,2)^4+6*JPs(6,1)*JPs(4,1)^5+6*JPs(6,1)^5*JPs(4,1)+20*JPs(6,1)^3*JPs(4,1)^3-15*JPs(6,1)^4*JPs(4,1)^2-JPs(4,1)^2*L(2)^4-JPs(4,1)^2*L(1)^4-JPs(6,1)^2*L(2)^4-JPs(6,1)^2*L(1)^4+2*JPs(6,1)^4*L(2)^2+2*JPs(6,1)^4*L(1)^2+2*JPs(6,2)^2*L(1)^2*JPs(6,1)^2+2*JPs(6,2)^2*L(1)^2*JPs(4,1)^2-6*JPs(4,2)^2*JPs(6,2)^2*JPs(6,1)^2+4*JPs(4,2)^3*JPs(6,2)*JPs(6,1)^2+4*JPs(4,2)^3*JPs(6,2)*JPs(4,1)^2-6*JPs(4,2)^2*JPs(6,2)^2*JPs(4,1)^2+2*JPs(4,2)^4*JPs(6,1)*JPs(4,1)+4*JPs(6,1)^4*JPs(6,2)*JPs(4,2)+2*JPs(6,1)^2*JPs(6,2)^2*L(2)^2+4*JPs(6,1)^2*JPs(6,2)^3*JPs(4,2)+8*JPs(6,1)^3*JPs(6,2)^2*JPs(4,1)-12*JPs(6,1)^2*JPs(6,2)^2*JPs(4,1)^2+2*JPs(4,2)^2*L(2)^2*JPs(6,1)^2+2*JPs(4,2)^2*L(2)^2*JPs(4,1)^2+2*JPs(4,2)^2*L(1)^2*JPs(6,1)^2+2*JPs(4,2)^2*L(1)^2*JPs(4,1)^2-12*JPs(4,2)^2*JPs(6,1)^2*JPs(4,1)^2+2*L(2)^2*JPs(6,2)^2*JPs(4,1)^2+4*JPs(4,2)*JPs(6,2)^3*JPs(4,1)^2+4*JPs(4,1)^4*JPs(4,2)*JPs(6,2)+8*JPs(4,1)^3*JPs(4,2)^2*JPs(6,1)+8*JPs(6,1)*JPs(4,1)^3*JPs(6,2)^2+2*JPs(6,1)*JPs(4,1)*JPs(6,2)^4-8*JPs(6,1)*JPs(4,1)^3*L(1)^2-8*JPs(6,1)^3*JPs(4,1)*L(2)^2-8*JPs(6,1)^3*JPs(4,1)*L(1)^2)^(1/2))*JPs(6,2)-1/(-8*JPs(6,1)*JPs(4,1)-8*JPs(4,2)*JPs(6,2)+4*JPs(4,2)^2+4*JPs(6,2)^2+4*JPs(4,1)^2+4*JPs(6,1)^2)*(-4*JPs(6,2)*L(1)^2-4*JPs(4,2)^2*JPs(6,2)+4*JPs(4,2)^3+4*JPs(6,1)^2*JPs(6,2)-4*JPs(4,2)*L(2)^2+4*JPs(4,2)*L(1)^2+4*JPs(4,2)*JPs(6,1)^2+4*L(2)^2*JPs(6,2)-4*JPs(4,2)*JPs(6,2)^2+4*JPs(4,1)^2*JPs(4,2)-8*JPs(6,1)*JPs(4,1)*JPs(6,2)+4*JPs(4,1)^2*JPs(6,2)-8*JPs(6,1)*JPs(4,1)*JPs(4,2)+4*JPs(6,2)^3+4*(-2*JPs(4,1)^4*JPs(6,2)^2+2*JPs(6,1)*JPs(4,1)*L(2)^4+2*JPs(4,1)^4*L(2)^2+12*JPs(6,1)^2*JPs(4,1)^2*L(1)^2+2*JPs(4,1)^4*L(1)^2-15*JPs(4,1)^4*JPs(6,1)^2-2*JPs(4,1)^4*JPs(4,2)^2+12*JPs(6,1)^2*JPs(4,1)^2*L(2)^2-8*JPs(6,1)*JPs(4,1)^3*L(2)^2+2*JPs(6,1)*JPs(4,1)*L(1)^4+2*JPs(4,1)^2*L(2)^2*L(1)^2+2*JPs(6,1)^2*L(2)^2*L(1)^2-16*JPs(4,1)^3*JPs(4,2)*JPs(6,1)*JPs(6,2)-4*JPs(6,1)*JPs(4,1)*L(2)^2*L(1)^2+8*JPs(6,2)*L(1)^2*JPs(6,1)*JPs(4,1)*JPs(4,2)-4*JPs(4,2)*L(2)^2*JPs(4,1)^2*JPs(6,2)+8*JPs(4,2)*L(2)^2*JPs(6,1)*JPs(4,1)*JPs(6,2)-4*JPs(4,2)^2*L(2)^2*JPs(6,1)*JPs(4,1)-4*JPs(4,2)^2*L(1)^2*JPs(6,1)*JPs(4,1)-4*L(2)^2*JPs(6,2)^2*JPs(6,1)*JPs(4,1)-8*JPs(4,2)*JPs(6,2)^3*JPs(6,1)*JPs(4,1)+8*JPs(4,2)^2*JPs(6,1)^3*JPs(4,1)-JPs(4,1)^6-JPs(6,1)^6-4*JPs(6,2)*L(1)^2*JPs(4,2)*JPs(6,1)^2-4*JPs(6,2)*L(1)^2*JPs(4,1)^2*JPs(4,2)-4*JPs(6,2)^2*L(1)^2*JPs(6,1)*JPs(4,1)+12*JPs(4,2)^2*JPs(6,2)^2*JPs(6,1)*JPs(4,1)-8*JPs(4,2)^3*JPs(6,2)*JPs(6,1)*JPs(4,1)-4*JPs(6,1)^2*JPs(6,2)*JPs(4,2)*L(2)^2+24*JPs(6,1)^2*JPs(6,2)*JPs(4,1)^2*JPs(4,2)-16*JPs(6,1)^3*JPs(6,2)*JPs(4,1)*JPs(4,2)-JPs(4,2)^4*JPs(6,1)^2-JPs(4,2)^4*JPs(4,1)^2-2*JPs(6,1)^4*JPs(6,2)^2-JPs(6,1)^2*JPs(6,2)^4-2*JPs(4,2)^2*JPs(6,1)^4-JPs(4,1)^2*JPs(6,2)^4+6*JPs(6,1)*JPs(4,1)^5+6*JPs(6,1)^5*JPs(4,1)+20*JPs(6,1)^3*JPs(4,1)^3-15*JPs(6,1)^4*JPs(4,1)^2-JPs(4,1)^2*L(2)^4-JPs(4,1)^2*L(1)^4-JPs(6,1)^2*L(2)^4-JPs(6,1)^2*L(1)^4+2*JPs(6,1)^4*L(2)^2+2*JPs(6,1)^4*L(1)^2+2*JPs(6,2)^2*L(1)^2*JPs(6,1)^2+2*JPs(6,2)^2*L(1)^2*JPs(4,1)^2-6*JPs(4,2)^2*JPs(6,2)^2*JPs(6,1)^2+4*JPs(4,2)^3*JPs(6,2)*JPs(6,1)^2+4*JPs(4,2)^3*JPs(6,2)*JPs(4,1)^2-6*JPs(4,2)^2*JPs(6,2)^2*JPs(4,1)^2+2*JPs(4,2)^4*JPs(6,1)*JPs(4,1)+4*JPs(6,1)^4*JPs(6,2)*JPs(4,2)+2*JPs(6,1)^2*JPs(6,2)^2*L(2)^2+4*JPs(6,1)^2*JPs(6,2)^3*JPs(4,2)+8*JPs(6,1)^3*JPs(6,2)^2*JPs(4,1)-12*JPs(6,1)^2*JPs(6,2)^2*JPs(4,1)^2+2*JPs(4,2)^2*L(2)^2*JPs(6,1)^2+2*JPs(4,2)^2*L(2)^2*JPs(4,1)^2+2*JPs(4,2)^2*L(1)^2*JPs(6,1)^2+2*JPs(4,2)^2*L(1)^2*JPs(4,1)^2-12*JPs(4,2)^2*JPs(6,1)^2*JPs(4,1)^2+2*L(2)^2*JPs(6,2)^2*JPs(4,1)^2+4*JPs(4,2)*JPs(6,2)^3*JPs(4,1)^2+4*JPs(4,1)^4*JPs(4,2)*JPs(6,2)+8*JPs(4,1)^3*JPs(4,2)^2*JPs(6,1)+8*JPs(6,1)*JPs(4,1)^3*JPs(6,2)^2+2*JPs(6,1)*JPs(4,1)*JPs(6,2)^4-8*JPs(6,1)*JPs(4,1)^3*L(1)^2-8*JPs(6,1)^3*JPs(4,1)*L(2)^2-8*JPs(6,1)^3*JPs(4,1)*L(1)^2)^(1/2))*JPs(4,2)+JPs(4,1)^2+JPs(4,2)^2-L(2)^2-JPs(6,1)^2-JPs(6,2)^2+L(1)^2)/(JPs(4,1)-JPs(6,1));
            1/2*(1/(-8*JPs(6,1)*JPs(4,1)-8*JPs(4,2)*JPs(6,2)+4*JPs(4,2)^2+4*JPs(6,2)^2+4*JPs(4,1)^2+4*JPs(6,1)^2)*(-4*JPs(6,2)*L(1)^2-4*JPs(4,2)^2*JPs(6,2)+4*JPs(4,2)^3+4*JPs(6,1)^2*JPs(6,2)-4*JPs(4,2)*L(2)^2+4*JPs(4,2)*L(1)^2+4*JPs(4,2)*JPs(6,1)^2+4*L(2)^2*JPs(6,2)-4*JPs(4,2)*JPs(6,2)^2+4*JPs(4,1)^2*JPs(4,2)-8*JPs(6,1)*JPs(4,1)*JPs(6,2)+4*JPs(4,1)^2*JPs(6,2)-8*JPs(6,1)*JPs(4,1)*JPs(4,2)+4*JPs(6,2)^3-4*(-2*JPs(4,1)^4*JPs(6,2)^2+2*JPs(6,1)*JPs(4,1)*L(2)^4+2*JPs(4,1)^4*L(2)^2+12*JPs(6,1)^2*JPs(4,1)^2*L(1)^2+2*JPs(4,1)^4*L(1)^2-15*JPs(4,1)^4*JPs(6,1)^2-2*JPs(4,1)^4*JPs(4,2)^2+12*JPs(6,1)^2*JPs(4,1)^2*L(2)^2-8*JPs(6,1)*JPs(4,1)^3*L(2)^2+2*JPs(6,1)*JPs(4,1)*L(1)^4+2*JPs(4,1)^2*L(2)^2*L(1)^2+2*JPs(6,1)^2*L(2)^2*L(1)^2-16*JPs(4,1)^3*JPs(4,2)*JPs(6,1)*JPs(6,2)-4*JPs(6,1)*JPs(4,1)*L(2)^2*L(1)^2+8*JPs(6,2)*L(1)^2*JPs(6,1)*JPs(4,1)*JPs(4,2)-4*JPs(4,2)*L(2)^2*JPs(4,1)^2*JPs(6,2)+8*JPs(4,2)*L(2)^2*JPs(6,1)*JPs(4,1)*JPs(6,2)-4*JPs(4,2)^2*L(2)^2*JPs(6,1)*JPs(4,1)-4*JPs(4,2)^2*L(1)^2*JPs(6,1)*JPs(4,1)-4*L(2)^2*JPs(6,2)^2*JPs(6,1)*JPs(4,1)-8*JPs(4,2)*JPs(6,2)^3*JPs(6,1)*JPs(4,1)+8*JPs(4,2)^2*JPs(6,1)^3*JPs(4,1)-JPs(4,1)^6-JPs(6,1)^6-4*JPs(6,2)*L(1)^2*JPs(4,2)*JPs(6,1)^2-4*JPs(6,2)*L(1)^2*JPs(4,1)^2*JPs(4,2)-4*JPs(6,2)^2*L(1)^2*JPs(6,1)*JPs(4,1)+12*JPs(4,2)^2*JPs(6,2)^2*JPs(6,1)*JPs(4,1)-8*JPs(4,2)^3*JPs(6,2)*JPs(6,1)*JPs(4,1)-4*JPs(6,1)^2*JPs(6,2)*JPs(4,2)*L(2)^2+24*JPs(6,1)^2*JPs(6,2)*JPs(4,1)^2*JPs(4,2)-16*JPs(6,1)^3*JPs(6,2)*JPs(4,1)*JPs(4,2)-JPs(4,2)^4*JPs(6,1)^2-JPs(4,2)^4*JPs(4,1)^2-2*JPs(6,1)^4*JPs(6,2)^2-JPs(6,1)^2*JPs(6,2)^4-2*JPs(4,2)^2*JPs(6,1)^4-JPs(4,1)^2*JPs(6,2)^4+6*JPs(6,1)*JPs(4,1)^5+6*JPs(6,1)^5*JPs(4,1)+20*JPs(6,1)^3*JPs(4,1)^3-15*JPs(6,1)^4*JPs(4,1)^2-JPs(4,1)^2*L(2)^4-JPs(4,1)^2*L(1)^4-JPs(6,1)^2*L(2)^4-JPs(6,1)^2*L(1)^4+2*JPs(6,1)^4*L(2)^2+2*JPs(6,1)^4*L(1)^2+2*JPs(6,2)^2*L(1)^2*JPs(6,1)^2+2*JPs(6,2)^2*L(1)^2*JPs(4,1)^2-6*JPs(4,2)^2*JPs(6,2)^2*JPs(6,1)^2+4*JPs(4,2)^3*JPs(6,2)*JPs(6,1)^2+4*JPs(4,2)^3*JPs(6,2)*JPs(4,1)^2-6*JPs(4,2)^2*JPs(6,2)^2*JPs(4,1)^2+2*JPs(4,2)^4*JPs(6,1)*JPs(4,1)+4*JPs(6,1)^4*JPs(6,2)*JPs(4,2)+2*JPs(6,1)^2*JPs(6,2)^2*L(2)^2+4*JPs(6,1)^2*JPs(6,2)^3*JPs(4,2)+8*JPs(6,1)^3*JPs(6,2)^2*JPs(4,1)-12*JPs(6,1)^2*JPs(6,2)^2*JPs(4,1)^2+2*JPs(4,2)^2*L(2)^2*JPs(6,1)^2+2*JPs(4,2)^2*L(2)^2*JPs(4,1)^2+2*JPs(4,2)^2*L(1)^2*JPs(6,1)^2+2*JPs(4,2)^2*L(1)^2*JPs(4,1)^2-12*JPs(4,2)^2*JPs(6,1)^2*JPs(4,1)^2+2*L(2)^2*JPs(6,2)^2*JPs(4,1)^2+4*JPs(4,2)*JPs(6,2)^3*JPs(4,1)^2+4*JPs(4,1)^4*JPs(4,2)*JPs(6,2)+8*JPs(4,1)^3*JPs(4,2)^2*JPs(6,1)+8*JPs(6,1)*JPs(4,1)^3*JPs(6,2)^2+2*JPs(6,1)*JPs(4,1)*JPs(6,2)^4-8*JPs(6,1)*JPs(4,1)^3*L(1)^2-8*JPs(6,1)^3*JPs(4,1)*L(2)^2-8*JPs(6,1)^3*JPs(4,1)*L(1)^2)^(1/2))*JPs(6,2)-1/(-8*JPs(6,1)*JPs(4,1)-8*JPs(4,2)*JPs(6,2)+4*JPs(4,2)^2+4*JPs(6,2)^2+4*JPs(4,1)^2+4*JPs(6,1)^2)*(-4*JPs(6,2)*L(1)^2-4*JPs(4,2)^2*JPs(6,2)+4*JPs(4,2)^3+4*JPs(6,1)^2*JPs(6,2)-4*JPs(4,2)*L(2)^2+4*JPs(4,2)*L(1)^2+4*JPs(4,2)*JPs(6,1)^2+4*L(2)^2*JPs(6,2)-4*JPs(4,2)*JPs(6,2)^2+4*JPs(4,1)^2*JPs(4,2)-8*JPs(6,1)*JPs(4,1)*JPs(6,2)+4*JPs(4,1)^2*JPs(6,2)-8*JPs(6,1)*JPs(4,1)*JPs(4,2)+4*JPs(6,2)^3-4*(-2*JPs(4,1)^4*JPs(6,2)^2+2*JPs(6,1)*JPs(4,1)*L(2)^4+2*JPs(4,1)^4*L(2)^2+12*JPs(6,1)^2*JPs(4,1)^2*L(1)^2+2*JPs(4,1)^4*L(1)^2-15*JPs(4,1)^4*JPs(6,1)^2-2*JPs(4,1)^4*JPs(4,2)^2+12*JPs(6,1)^2*JPs(4,1)^2*L(2)^2-8*JPs(6,1)*JPs(4,1)^3*L(2)^2+2*JPs(6,1)*JPs(4,1)*L(1)^4+2*JPs(4,1)^2*L(2)^2*L(1)^2+2*JPs(6,1)^2*L(2)^2*L(1)^2-16*JPs(4,1)^3*JPs(4,2)*JPs(6,1)*JPs(6,2)-4*JPs(6,1)*JPs(4,1)*L(2)^2*L(1)^2+8*JPs(6,2)*L(1)^2*JPs(6,1)*JPs(4,1)*JPs(4,2)-4*JPs(4,2)*L(2)^2*JPs(4,1)^2*JPs(6,2)+8*JPs(4,2)*L(2)^2*JPs(6,1)*JPs(4,1)*JPs(6,2)-4*JPs(4,2)^2*L(2)^2*JPs(6,1)*JPs(4,1)-4*JPs(4,2)^2*L(1)^2*JPs(6,1)*JPs(4,1)-4*L(2)^2*JPs(6,2)^2*JPs(6,1)*JPs(4,1)-8*JPs(4,2)*JPs(6,2)^3*JPs(6,1)*JPs(4,1)+8*JPs(4,2)^2*JPs(6,1)^3*JPs(4,1)-JPs(4,1)^6-JPs(6,1)^6-4*JPs(6,2)*L(1)^2*JPs(4,2)*JPs(6,1)^2-4*JPs(6,2)*L(1)^2*JPs(4,1)^2*JPs(4,2)-4*JPs(6,2)^2*L(1)^2*JPs(6,1)*JPs(4,1)+12*JPs(4,2)^2*JPs(6,2)^2*JPs(6,1)*JPs(4,1)-8*JPs(4,2)^3*JPs(6,2)*JPs(6,1)*JPs(4,1)-4*JPs(6,1)^2*JPs(6,2)*JPs(4,2)*L(2)^2+24*JPs(6,1)^2*JPs(6,2)*JPs(4,1)^2*JPs(4,2)-16*JPs(6,1)^3*JPs(6,2)*JPs(4,1)*JPs(4,2)-JPs(4,2)^4*JPs(6,1)^2-JPs(4,2)^4*JPs(4,1)^2-2*JPs(6,1)^4*JPs(6,2)^2-JPs(6,1)^2*JPs(6,2)^4-2*JPs(4,2)^2*JPs(6,1)^4-JPs(4,1)^2*JPs(6,2)^4+6*JPs(6,1)*JPs(4,1)^5+6*JPs(6,1)^5*JPs(4,1)+20*JPs(6,1)^3*JPs(4,1)^3-15*JPs(6,1)^4*JPs(4,1)^2-JPs(4,1)^2*L(2)^4-JPs(4,1)^2*L(1)^4-JPs(6,1)^2*L(2)^4-JPs(6,1)^2*L(1)^4+2*JPs(6,1)^4*L(2)^2+2*JPs(6,1)^4*L(1)^2+2*JPs(6,2)^2*L(1)^2*JPs(6,1)^2+2*JPs(6,2)^2*L(1)^2*JPs(4,1)^2-6*JPs(4,2)^2*JPs(6,2)^2*JPs(6,1)^2+4*JPs(4,2)^3*JPs(6,2)*JPs(6,1)^2+4*JPs(4,2)^3*JPs(6,2)*JPs(4,1)^2-6*JPs(4,2)^2*JPs(6,2)^2*JPs(4,1)^2+2*JPs(4,2)^4*JPs(6,1)*JPs(4,1)+4*JPs(6,1)^4*JPs(6,2)*JPs(4,2)+2*JPs(6,1)^2*JPs(6,2)^2*L(2)^2+4*JPs(6,1)^2*JPs(6,2)^3*JPs(4,2)+8*JPs(6,1)^3*JPs(6,2)^2*JPs(4,1)-12*JPs(6,1)^2*JPs(6,2)^2*JPs(4,1)^2+2*JPs(4,2)^2*L(2)^2*JPs(6,1)^2+2*JPs(4,2)^2*L(2)^2*JPs(4,1)^2+2*JPs(4,2)^2*L(1)^2*JPs(6,1)^2+2*JPs(4,2)^2*L(1)^2*JPs(4,1)^2-12*JPs(4,2)^2*JPs(6,1)^2*JPs(4,1)^2+2*L(2)^2*JPs(6,2)^2*JPs(4,1)^2+4*JPs(4,2)*JPs(6,2)^3*JPs(4,1)^2+4*JPs(4,1)^4*JPs(4,2)*JPs(6,2)+8*JPs(4,1)^3*JPs(4,2)^2*JPs(6,1)+8*JPs(6,1)*JPs(4,1)^3*JPs(6,2)^2+2*JPs(6,1)*JPs(4,1)*JPs(6,2)^4-8*JPs(6,1)*JPs(4,1)^3*L(1)^2-8*JPs(6,1)^3*JPs(4,1)*L(2)^2-8*JPs(6,1)^3*JPs(4,1)*L(1)^2)^(1/2))*JPs(4,2)+JPs(4,1)^2+JPs(4,2)^2-L(2)^2-JPs(6,1)^2-JPs(6,2)^2+L(1)^2)/(JPs(4,1)-JPs(6,1))]);
JPs(5,1) = Temp(S);        
Temp = real([ 1/2/(-8*JPs(6,1)*JPs(4,1)-8*JPs(4,2)*JPs(6,2)+4*JPs(4,2)^2+4*JPs(6,2)^2+4*JPs(4,1)^2+4*JPs(6,1)^2)*(-4*JPs(6,2)*L(1)^2-4*JPs(4,2)^2*JPs(6,2)+4*JPs(4,2)^3+4*JPs(6,1)^2*JPs(6,2)-4*JPs(4,2)*L(2)^2+4*JPs(4,2)*L(1)^2+4*JPs(4,2)*JPs(6,1)^2+4*L(2)^2*JPs(6,2)-4*JPs(4,2)*JPs(6,2)^2+4*JPs(4,1)^2*JPs(4,2)-8*JPs(6,1)*JPs(4,1)*JPs(6,2)+4*JPs(4,1)^2*JPs(6,2)-8*JPs(6,1)*JPs(4,1)*JPs(4,2)+4*JPs(6,2)^3+4*(-2*JPs(4,1)^4*JPs(6,2)^2+2*JPs(6,1)*JPs(4,1)*L(2)^4+2*JPs(4,1)^4*L(2)^2+12*JPs(6,1)^2*JPs(4,1)^2*L(1)^2+2*JPs(4,1)^4*L(1)^2-15*JPs(4,1)^4*JPs(6,1)^2-2*JPs(4,1)^4*JPs(4,2)^2+12*JPs(6,1)^2*JPs(4,1)^2*L(2)^2-8*JPs(6,1)*JPs(4,1)^3*L(2)^2+2*JPs(6,1)*JPs(4,1)*L(1)^4+2*JPs(4,1)^2*L(2)^2*L(1)^2+2*JPs(6,1)^2*L(2)^2*L(1)^2-16*JPs(4,1)^3*JPs(4,2)*JPs(6,1)*JPs(6,2)-4*JPs(6,1)*JPs(4,1)*L(2)^2*L(1)^2+8*JPs(6,2)*L(1)^2*JPs(6,1)*JPs(4,1)*JPs(4,2)-4*JPs(4,2)*L(2)^2*JPs(4,1)^2*JPs(6,2)+8*JPs(4,2)*L(2)^2*JPs(6,1)*JPs(4,1)*JPs(6,2)-4*JPs(4,2)^2*L(2)^2*JPs(6,1)*JPs(4,1)-4*JPs(4,2)^2*L(1)^2*JPs(6,1)*JPs(4,1)-4*L(2)^2*JPs(6,2)^2*JPs(6,1)*JPs(4,1)-8*JPs(4,2)*JPs(6,2)^3*JPs(6,1)*JPs(4,1)+8*JPs(4,2)^2*JPs(6,1)^3*JPs(4,1)-JPs(4,1)^6-JPs(6,1)^6-4*JPs(6,2)*L(1)^2*JPs(4,2)*JPs(6,1)^2-4*JPs(6,2)*L(1)^2*JPs(4,1)^2*JPs(4,2)-4*JPs(6,2)^2*L(1)^2*JPs(6,1)*JPs(4,1)+12*JPs(4,2)^2*JPs(6,2)^2*JPs(6,1)*JPs(4,1)-8*JPs(4,2)^3*JPs(6,2)*JPs(6,1)*JPs(4,1)-4*JPs(6,1)^2*JPs(6,2)*JPs(4,2)*L(2)^2+24*JPs(6,1)^2*JPs(6,2)*JPs(4,1)^2*JPs(4,2)-16*JPs(6,1)^3*JPs(6,2)*JPs(4,1)*JPs(4,2)-JPs(4,2)^4*JPs(6,1)^2-JPs(4,2)^4*JPs(4,1)^2-2*JPs(6,1)^4*JPs(6,2)^2-JPs(6,1)^2*JPs(6,2)^4-2*JPs(4,2)^2*JPs(6,1)^4-JPs(4,1)^2*JPs(6,2)^4+6*JPs(6,1)*JPs(4,1)^5+6*JPs(6,1)^5*JPs(4,1)+20*JPs(6,1)^3*JPs(4,1)^3-15*JPs(6,1)^4*JPs(4,1)^2-JPs(4,1)^2*L(2)^4-JPs(4,1)^2*L(1)^4-JPs(6,1)^2*L(2)^4-JPs(6,1)^2*L(1)^4+2*JPs(6,1)^4*L(2)^2+2*JPs(6,1)^4*L(1)^2+2*JPs(6,2)^2*L(1)^2*JPs(6,1)^2+2*JPs(6,2)^2*L(1)^2*JPs(4,1)^2-6*JPs(4,2)^2*JPs(6,2)^2*JPs(6,1)^2+4*JPs(4,2)^3*JPs(6,2)*JPs(6,1)^2+4*JPs(4,2)^3*JPs(6,2)*JPs(4,1)^2-6*JPs(4,2)^2*JPs(6,2)^2*JPs(4,1)^2+2*JPs(4,2)^4*JPs(6,1)*JPs(4,1)+4*JPs(6,1)^4*JPs(6,2)*JPs(4,2)+2*JPs(6,1)^2*JPs(6,2)^2*L(2)^2+4*JPs(6,1)^2*JPs(6,2)^3*JPs(4,2)+8*JPs(6,1)^3*JPs(6,2)^2*JPs(4,1)-12*JPs(6,1)^2*JPs(6,2)^2*JPs(4,1)^2+2*JPs(4,2)^2*L(2)^2*JPs(6,1)^2+2*JPs(4,2)^2*L(2)^2*JPs(4,1)^2+2*JPs(4,2)^2*L(1)^2*JPs(6,1)^2+2*JPs(4,2)^2*L(1)^2*JPs(4,1)^2-12*JPs(4,2)^2*JPs(6,1)^2*JPs(4,1)^2+2*L(2)^2*JPs(6,2)^2*JPs(4,1)^2+4*JPs(4,2)*JPs(6,2)^3*JPs(4,1)^2+4*JPs(4,1)^4*JPs(4,2)*JPs(6,2)+8*JPs(4,1)^3*JPs(4,2)^2*JPs(6,1)+8*JPs(6,1)*JPs(4,1)^3*JPs(6,2)^2+2*JPs(6,1)*JPs(4,1)*JPs(6,2)^4-8*JPs(6,1)*JPs(4,1)^3*L(1)^2-8*JPs(6,1)^3*JPs(4,1)*L(2)^2-8*JPs(6,1)^3*JPs(4,1)*L(1)^2)^(1/2));
            1/2/(-8*JPs(6,1)*JPs(4,1)-8*JPs(4,2)*JPs(6,2)+4*JPs(4,2)^2+4*JPs(6,2)^2+4*JPs(4,1)^2+4*JPs(6,1)^2)*(-4*JPs(6,2)*L(1)^2-4*JPs(4,2)^2*JPs(6,2)+4*JPs(4,2)^3+4*JPs(6,1)^2*JPs(6,2)-4*JPs(4,2)*L(2)^2+4*JPs(4,2)*L(1)^2+4*JPs(4,2)*JPs(6,1)^2+4*L(2)^2*JPs(6,2)-4*JPs(4,2)*JPs(6,2)^2+4*JPs(4,1)^2*JPs(4,2)-8*JPs(6,1)*JPs(4,1)*JPs(6,2)+4*JPs(4,1)^2*JPs(6,2)-8*JPs(6,1)*JPs(4,1)*JPs(4,2)+4*JPs(6,2)^3-4*(-2*JPs(4,1)^4*JPs(6,2)^2+2*JPs(6,1)*JPs(4,1)*L(2)^4+2*JPs(4,1)^4*L(2)^2+12*JPs(6,1)^2*JPs(4,1)^2*L(1)^2+2*JPs(4,1)^4*L(1)^2-15*JPs(4,1)^4*JPs(6,1)^2-2*JPs(4,1)^4*JPs(4,2)^2+12*JPs(6,1)^2*JPs(4,1)^2*L(2)^2-8*JPs(6,1)*JPs(4,1)^3*L(2)^2+2*JPs(6,1)*JPs(4,1)*L(1)^4+2*JPs(4,1)^2*L(2)^2*L(1)^2+2*JPs(6,1)^2*L(2)^2*L(1)^2-16*JPs(4,1)^3*JPs(4,2)*JPs(6,1)*JPs(6,2)-4*JPs(6,1)*JPs(4,1)*L(2)^2*L(1)^2+8*JPs(6,2)*L(1)^2*JPs(6,1)*JPs(4,1)*JPs(4,2)-4*JPs(4,2)*L(2)^2*JPs(4,1)^2*JPs(6,2)+8*JPs(4,2)*L(2)^2*JPs(6,1)*JPs(4,1)*JPs(6,2)-4*JPs(4,2)^2*L(2)^2*JPs(6,1)*JPs(4,1)-4*JPs(4,2)^2*L(1)^2*JPs(6,1)*JPs(4,1)-4*L(2)^2*JPs(6,2)^2*JPs(6,1)*JPs(4,1)-8*JPs(4,2)*JPs(6,2)^3*JPs(6,1)*JPs(4,1)+8*JPs(4,2)^2*JPs(6,1)^3*JPs(4,1)-JPs(4,1)^6-JPs(6,1)^6-4*JPs(6,2)*L(1)^2*JPs(4,2)*JPs(6,1)^2-4*JPs(6,2)*L(1)^2*JPs(4,1)^2*JPs(4,2)-4*JPs(6,2)^2*L(1)^2*JPs(6,1)*JPs(4,1)+12*JPs(4,2)^2*JPs(6,2)^2*JPs(6,1)*JPs(4,1)-8*JPs(4,2)^3*JPs(6,2)*JPs(6,1)*JPs(4,1)-4*JPs(6,1)^2*JPs(6,2)*JPs(4,2)*L(2)^2+24*JPs(6,1)^2*JPs(6,2)*JPs(4,1)^2*JPs(4,2)-16*JPs(6,1)^3*JPs(6,2)*JPs(4,1)*JPs(4,2)-JPs(4,2)^4*JPs(6,1)^2-JPs(4,2)^4*JPs(4,1)^2-2*JPs(6,1)^4*JPs(6,2)^2-JPs(6,1)^2*JPs(6,2)^4-2*JPs(4,2)^2*JPs(6,1)^4-JPs(4,1)^2*JPs(6,2)^4+6*JPs(6,1)*JPs(4,1)^5+6*JPs(6,1)^5*JPs(4,1)+20*JPs(6,1)^3*JPs(4,1)^3-15*JPs(6,1)^4*JPs(4,1)^2-JPs(4,1)^2*L(2)^4-JPs(4,1)^2*L(1)^4-JPs(6,1)^2*L(2)^4-JPs(6,1)^2*L(1)^4+2*JPs(6,1)^4*L(2)^2+2*JPs(6,1)^4*L(1)^2+2*JPs(6,2)^2*L(1)^2*JPs(6,1)^2+2*JPs(6,2)^2*L(1)^2*JPs(4,1)^2-6*JPs(4,2)^2*JPs(6,2)^2*JPs(6,1)^2+4*JPs(4,2)^3*JPs(6,2)*JPs(6,1)^2+4*JPs(4,2)^3*JPs(6,2)*JPs(4,1)^2-6*JPs(4,2)^2*JPs(6,2)^2*JPs(4,1)^2+2*JPs(4,2)^4*JPs(6,1)*JPs(4,1)+4*JPs(6,1)^4*JPs(6,2)*JPs(4,2)+2*JPs(6,1)^2*JPs(6,2)^2*L(2)^2+4*JPs(6,1)^2*JPs(6,2)^3*JPs(4,2)+8*JPs(6,1)^3*JPs(6,2)^2*JPs(4,1)-12*JPs(6,1)^2*JPs(6,2)^2*JPs(4,1)^2+2*JPs(4,2)^2*L(2)^2*JPs(6,1)^2+2*JPs(4,2)^2*L(2)^2*JPs(4,1)^2+2*JPs(4,2)^2*L(1)^2*JPs(6,1)^2+2*JPs(4,2)^2*L(1)^2*JPs(4,1)^2-12*JPs(4,2)^2*JPs(6,1)^2*JPs(4,1)^2+2*L(2)^2*JPs(6,2)^2*JPs(4,1)^2+4*JPs(4,2)*JPs(6,2)^3*JPs(4,1)^2+4*JPs(4,1)^4*JPs(4,2)*JPs(6,2)+8*JPs(4,1)^3*JPs(4,2)^2*JPs(6,1)+8*JPs(6,1)*JPs(4,1)^3*JPs(6,2)^2+2*JPs(6,1)*JPs(4,1)*JPs(6,2)^4-8*JPs(6,1)*JPs(4,1)^3*L(1)^2-8*JPs(6,1)^3*JPs(4,1)*L(2)^2-8*JPs(6,1)^3*JPs(4,1)*L(1)^2)^(1/2))]);
JPs(5,2) = Temp(S);