amp4ClassForUse.txt

-((Cosh[dot[a[4], p[1]]]*Cosh[dot[a[4], p[2]]]*dot[a[4], F[1], p[4]]*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]])/(dot[a[4], p[1]]*dot[a[4], p[2]])) + (Cosh[dot[a[4], p[1]]]*Cosh[dot[a[4], p[2]]]*dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], F[2], F[1], p[4]])/(2*dot[a[4], p[1]]*dot[a[4], p[2]]) - (Cosh[dot[a[4], p[1]]]*Cosh[dot[a[4], p[2]]]*dot[a[4], a[4]]*dot[a[4], F[1], F[2], a[4]]*dot[p[4], F[1], F[2], p[4]])/(2*dot[a[4], p[1]]*dot[a[4], p[2]]) - (I*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[1], H[2], a[4]]*e[2])/(dot[a[4], p[1]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])) + (I*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[1], H[2], a[4]]*e[2])/(dot[a[4], p[2]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])) + (I*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[2], H[1], a[4]]*e[2])/(dot[a[4], p[1]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])) - (I*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[2], H[1], a[4]]*e[2])/(dot[a[4], p[2]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])) + (I*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[a[4], a[4]]*dot[a[4], F[2], F[1], p[4]]*dot[a[4], H[1], F[2], p[4]]*e[3])/(dot[a[4], p[1]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])) - (I*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[a[4], a[4]]*dot[a[4], F[2], F[1], p[4]]*dot[a[4], H[1], F[2], p[4]]*e[3])/(dot[a[4], p[2]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])) - (I*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], H[2], F[1], p[4]]*e[3])/(dot[a[4], p[1]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])) + (I*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], H[2], F[1], p[4]]*e[3])/(dot[a[4], p[2]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])) - (Cosh[dot[a[4], p[2]]]*dot[a[4], F[1], p[4]]*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*Sinh[dot[a[4], p[1]]])/(dot[a[4], p[1]]*dot[a[4], p[2]]^2) + (Cosh[dot[a[4], p[2]]]*dot[a[4], F[1], p[4]]*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*Sinh[dot[a[4], p[1]]])/(dot[a[4], p[1]]^2*dot[a[4], p[2]]) + (Cosh[dot[a[4], p[2]]]*dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[1]]])/(2*dot[a[4], p[1]]*dot[a[4], p[2]]^2) - (Cosh[dot[a[4], p[2]]]*dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[1]]])/(2*dot[a[4], p[1]]^2*dot[a[4], p[2]]) - (Cosh[dot[a[4], p[2]]]*dot[a[4], a[4]]*dot[a[4], F[1], F[2], a[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]])/(2*dot[a[4], p[1]]*dot[a[4], p[2]]^2) + (Cosh[dot[a[4], p[2]]]*dot[a[4], a[4]]*dot[a[4], F[1], F[2], a[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]])/(2*dot[a[4], p[1]]^2*dot[a[4], p[2]]) + (dot[p[4], p[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], F[2], F[1], a[4]]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(4*dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[2], p[4]]) - (dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(4*dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[1], p[4]]) - (dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(4*dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[1], p[4]]) + (dot[a[4], a[4]]*dot[a[4], F[2], F[1], p[4]]*dot[p[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(4*dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[2], p[4]]) + ((I/2)*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[1], H[2], a[4]]*e[2]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[1]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) + (I*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[1], H[2], a[4]]*e[2]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[1]]*(dot[a[4], p[1]] + dot[a[4], p[2]])) + ((I/2)*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[1], H[2], a[4]]*e[2]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[2]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) + (I*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[1], H[2], a[4]]*e[2]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[2]]*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/2)*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[2], H[1], a[4]]*e[2]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[1]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) - (I*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[2], H[1], a[4]]*e[2]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[1]]*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/2)*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[2], H[1], a[4]]*e[2]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[2]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) - (I*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[2], H[1], a[4]]*e[2]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[2]]*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/2)*dot[a[4], a[4]]*dot[a[4], F[2], F[1], p[4]]*dot[a[4], H[1], F[2], p[4]]*e[3]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[1]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) - (I*dot[a[4], a[4]]*dot[a[4], F[2], F[1], p[4]]*dot[a[4], H[1], F[2], p[4]]*e[3]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[1]]*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/2)*dot[a[4], a[4]]*dot[a[4], F[2], F[1], p[4]]*dot[a[4], H[1], F[2], p[4]]*e[3]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[2]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) - (I*dot[a[4], a[4]]*dot[a[4], F[2], F[1], p[4]]*dot[a[4], H[1], F[2], p[4]]*e[3]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[2]]*(dot[a[4], p[1]] + dot[a[4], p[2]])) + ((I/2)*dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], H[2], F[1], p[4]]*e[3]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[1]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) + (I*dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], H[2], F[1], p[4]]*e[3]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[1]]*(dot[a[4], p[1]] + dot[a[4], p[2]])) + ((I/2)*dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], H[2], F[1], p[4]]*e[3]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[2]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) + (I*dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], H[2], F[1], p[4]]*e[3]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]])/(dot[a[4], p[2]]*(dot[a[4], p[1]] + dot[a[4], p[2]])) + (Cosh[dot[a[4], p[1]]]*dot[a[4], F[1], p[4]]*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*Sinh[dot[a[4], p[2]]])/(dot[a[4], p[1]]*dot[a[4], p[2]]^2) - (Cosh[dot[a[4], p[1]]]*dot[a[4], F[1], p[4]]*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*Sinh[dot[a[4], p[2]]])/(dot[a[4], p[1]]^2*dot[a[4], p[2]]) - (Cosh[dot[a[4], p[1]]]*dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[2]]])/(2*dot[a[4], p[1]]*dot[a[4], p[2]]^2) + (Cosh[dot[a[4], p[1]]]*dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[2]]])/(2*dot[a[4], p[1]]^2*dot[a[4], p[2]]) + (Cosh[dot[a[4], p[1]]]*dot[a[4], a[4]]*dot[a[4], F[1], F[2], a[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[2]]])/(2*dot[a[4], p[1]]*dot[a[4], p[2]]^2) - (Cosh[dot[a[4], p[1]]]*dot[a[4], a[4]]*dot[a[4], F[1], F[2], a[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[2]]])/(2*dot[a[4], p[1]]^2*dot[a[4], p[2]]) + (dot[a[4], F[1], p[4]]*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(dot[a[4], p[1]]*dot[a[4], p[2]]^3) - (dot[a[4], F[1], p[4]]*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(dot[a[4], p[1]]^2*dot[a[4], p[2]]^2) + (dot[a[4], F[1], p[4]]*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(dot[a[4], p[1]]^3*dot[a[4], p[2]]) + (dot[a[4], F[1], p[4]]*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(dot[a[4], p[1]]*dot[a[4], p[2]]) - (dot[p[4], p[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], F[2], F[1], a[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(4*dot[a[4], p[1]]*dot[a[4], p[2]]^2*dot[p[2], p[4]]) + (dot[p[4], p[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], F[2], F[1], a[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(4*dot[a[4], p[1]]^2*dot[a[4], p[2]]*dot[p[2], p[4]]) + (dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(4*dot[a[4], p[1]]*dot[a[4], p[2]]^2*dot[p[1], p[4]]) - (dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(4*dot[a[4], p[1]]^2*dot[a[4], p[2]]*dot[p[1], p[4]]) - (dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(2*dot[a[4], p[1]]*dot[a[4], p[2]]^3) + (dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(2*dot[a[4], p[1]]^2*dot[a[4], p[2]]^2) - (dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(2*dot[a[4], p[1]]^3*dot[a[4], p[2]]) - (dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(2*dot[a[4], p[1]]*dot[a[4], p[2]]) - (dot[a[4], F[1], p[4]]*dot[a[4], F[2], p[1]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(4*dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[1], p[2]]*dot[p[1], p[4]]) + (dot[a[4], F[1], p[4]]*dot[a[4], F[2], p[1]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(4*dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[1], p[2]]*dot[p[2], p[4]]) + (dot[a[4], F[1], p[2]]*dot[a[4], F[2], p[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(4*dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[1], p[2]]*dot[p[1], p[4]]) - (dot[a[4], F[1], p[2]]*dot[a[4], F[2], p[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(4*dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[1], p[2]]*dot[p[2], p[4]]) + (dot[a[4], a[4]]*dot[a[4], F[1], F[2], a[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(2*dot[a[4], p[1]]*dot[a[4], p[2]]^3) - (dot[a[4], a[4]]*dot[a[4], F[1], F[2], a[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(2*dot[a[4], p[1]]^2*dot[a[4], p[2]]^2) + (dot[a[4], a[4]]*dot[a[4], F[1], F[2], a[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(2*dot[a[4], p[1]]^3*dot[a[4], p[2]]) + (dot[a[4], a[4]]*dot[a[4], F[1], F[2], a[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(2*dot[a[4], p[1]]*dot[a[4], p[2]]) - (dot[a[4], F[1], F[2], a[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(4*dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[1], p[2]]) + (dot[p[1], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(8*dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[1], p[2]]*dot[p[2], p[4]]) + (dot[p[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(8*dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[1], p[2]]*dot[p[1], p[4]]) + (dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(4*dot[a[4], p[1]]*dot[a[4], p[2]]^2*dot[p[1], p[4]]) - (dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(4*dot[a[4], p[1]]^2*dot[a[4], p[2]]*dot[p[1], p[4]]) - (dot[a[4], a[4]]*dot[a[4], F[2], F[1], p[4]]*dot[p[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(4*dot[a[4], p[1]]*dot[a[4], p[2]]^2*dot[p[2], p[4]]) + (dot[a[4], a[4]]*dot[a[4], F[2], F[1], p[4]]*dot[p[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[1]]]*Sinh[dot[a[4], p[2]]])/(4*dot[a[4], p[1]]^2*dot[a[4], p[2]]*dot[p[2], p[4]]) - (dot[p[4], F[1], F[2], p[4]]*(Cosh[dot[a[4], p[1]]]*(Cosh[dot[a[4], p[2]]]*dot[p[4], F[1], F[2], p[4]] + (I*dot[p[4], F[1], F[2], S[4], p[2]]*Sinh[dot[a[4], p[2]]])/dot[a[4], p[2]]) - (I*Sinh[dot[a[4], p[1]]]*(Cosh[dot[a[4], p[2]]]*dot[p[1], S[4], F[1], F[2], p[4]] + (I*dot[p[1], S[4], F[1], F[2], S[4], p[2]]*Sinh[dot[a[4], p[2]]])/dot[a[4], p[2]]))/dot[a[4], p[1]]))/(2*dot[p[1], p[2]]*dot[p[1], p[4]]*dot[p[2], p[4]]) + ((I/2)*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[1], H[2], a[4]]*e[2]*Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]])/(dot[a[4], p[1]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/2)*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[1], H[2], a[4]]*e[2]*Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]])/(dot[a[4], p[2]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/2)*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[2], H[1], a[4]]*e[2]*Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]])/(dot[a[4], p[1]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) + ((I/2)*dot[p[4], p[4]]*dot[a[4], F[1], F[2], a[4]]*dot[a[4], F[2], H[1], a[4]]*e[2]*Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]])/(dot[a[4], p[2]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/2)*dot[a[4], a[4]]*dot[a[4], F[2], F[1], p[4]]*dot[a[4], H[1], F[2], p[4]]*e[3]*Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]])/(dot[a[4], p[1]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) + ((I/2)*dot[a[4], a[4]]*dot[a[4], F[2], F[1], p[4]]*dot[a[4], H[1], F[2], p[4]]*e[3]*Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]])/(dot[a[4], p[2]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) + ((I/2)*dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], H[2], F[1], p[4]]*e[3]*Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]])/(dot[a[4], p[1]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/2)*dot[a[4], a[4]]*dot[a[4], F[1], F[2], p[4]]*dot[a[4], H[2], F[1], p[4]]*e[3]*Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]])/(dot[a[4], p[2]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/4)*dot[p[4], F[1], F[2], p[4]]*dot[a[4], F[1], F[2], S[4], p[2]]*(-((Cosh[dot[a[4], p[2]]]*Sinh[dot[a[4], p[1]]])/dot[a[4], p[1]]) + Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]]/(dot[a[4], p[1]] + dot[a[4], p[2]])))/(dot[a[4], p[2]]*dot[p[1], p[2]]*dot[p[1], p[4]]) + ((I/4)*dot[p[4], F[1], F[2], p[4]]*dot[a[4], F[1], F[2], S[4], p[2]]*(-((Cosh[dot[a[4], p[2]]]*Sinh[dot[a[4], p[1]]])/dot[a[4], p[1]]) + Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]]/(dot[a[4], p[1]] + dot[a[4], p[2]])))/(dot[a[4], p[2]]*dot[p[1], p[2]]*dot[p[2], p[4]]) - ((I/4)*dot[p[4], F[1], F[2], p[4]]*dot[a[4], F[2], F[1], S[4], p[1]]*(-((Cosh[dot[a[4], p[2]]]*Sinh[dot[a[4], p[1]]])/dot[a[4], p[1]]) + Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]]/(dot[a[4], p[1]] + dot[a[4], p[2]])))/(dot[a[4], p[2]]*dot[p[1], p[2]]*dot[p[1], p[4]]) + ((I/4)*dot[p[4], F[1], F[2], p[4]]*dot[a[4], F[2], F[1], S[4], p[1]]*(-((Cosh[dot[a[4], p[2]]]*Sinh[dot[a[4], p[1]]])/dot[a[4], p[1]]) + Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]]/(dot[a[4], p[1]] + dot[a[4], p[2]])))/(dot[a[4], p[2]]*dot[p[1], p[2]]*dot[p[2], p[4]]) - ((I/8)*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], p[4]]*tr[F[1], S[4]])/(dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[2], p[4]]) + ((I/8)*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[a[4], F[2], p[4]]*dot[a[4], F[2], F[1], p[4]]*tr[F[1], S[4]])/(dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[1], p[4]]) - ((I/2)*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*tr[F[1], S[4]])/(dot[a[4], p[1]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])) + ((I/2)*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*tr[F[1], S[4]])/(dot[a[4], p[2]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])) + ((I/8)*Cosh[dot[a[4], p[2]]]*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*tr[F[1], S[4]])/(dot[a[4], p[1]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])*dot[p[2], p[4]]) - ((I/8)*Cosh[dot[a[4], p[2]]]*dot[a[4], F[2], p[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[1]]]*tr[F[1], S[4]])/(dot[a[4], p[1]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])*dot[p[1], p[4]]) + ((I/4)*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]]*tr[F[1], S[4]])/(dot[a[4], p[1]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) + ((I/2)*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]]*tr[F[1], S[4]])/(dot[a[4], p[1]]*(dot[a[4], p[1]] + dot[a[4], p[2]])) + ((I/4)*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]]*tr[F[1], S[4]])/(dot[a[4], p[2]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) + ((I/2)*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]]*tr[F[1], S[4]])/(dot[a[4], p[2]]*(dot[a[4], p[1]] + dot[a[4], p[2]])) + ((I/8)*Cosh[dot[a[4], p[1]]]*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[2]]]*tr[F[1], S[4]])/(dot[a[4], p[2]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])*dot[p[2], p[4]]) - ((I/8)*Cosh[dot[a[4], p[1]]]*dot[a[4], F[2], p[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[2]]]*tr[F[1], S[4]])/(dot[a[4], p[2]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])*dot[p[1], p[4]]) + ((I/4)*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]]*tr[F[1], S[4]])/(dot[a[4], p[1]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/4)*dot[a[4], F[2], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]]*tr[F[1], S[4]])/(dot[a[4], p[2]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) + ((I/8)*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[a[4], F[1], p[4]]*dot[a[4], F[1], F[2], p[4]]*tr[F[2], S[4]])/(dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[2], p[4]]) - ((I/8)*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[a[4], F[1], p[4]]*dot[a[4], F[2], F[1], p[4]]*tr[F[2], S[4]])/(dot[a[4], p[1]]*dot[a[4], p[2]]*dot[p[1], p[4]]) + ((I/2)*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[a[4], F[1], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*tr[F[2], S[4]])/(dot[a[4], p[1]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/2)*Cosh[dot[a[4], p[1]] - dot[a[4], p[2]]]*dot[a[4], F[1], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*tr[F[2], S[4]])/(dot[a[4], p[2]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/8)*Cosh[dot[a[4], p[2]]]*dot[a[4], F[1], p[4]]*dot[a[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]]]*tr[F[2], S[4]])/(dot[a[4], p[1]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])*dot[p[2], p[4]]) + ((I/8)*Cosh[dot[a[4], p[2]]]*dot[a[4], F[1], p[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[1]]]*tr[F[2], S[4]])/(dot[a[4], p[1]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])*dot[p[1], p[4]]) - ((I/4)*dot[a[4], F[1], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]]*tr[F[2], S[4]])/(dot[a[4], p[1]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/2)*dot[a[4], F[1], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]]*tr[F[2], S[4]])/(dot[a[4], p[1]]*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/4)*dot[a[4], F[1], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]]*tr[F[2], S[4]])/(dot[a[4], p[2]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/2)*dot[a[4], F[1], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*Sinh[dot[a[4], p[1]] - dot[a[4], p[2]]]*tr[F[2], S[4]])/(dot[a[4], p[2]]*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/8)*Cosh[dot[a[4], p[1]]]*dot[a[4], F[1], p[4]]*dot[a[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[2]]]*tr[F[2], S[4]])/(dot[a[4], p[2]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])*dot[p[2], p[4]]) + ((I/8)*Cosh[dot[a[4], p[1]]]*dot[a[4], F[1], p[4]]*dot[a[4], F[2], F[1], p[4]]*Sinh[dot[a[4], p[2]]]*tr[F[2], S[4]])/(dot[a[4], p[2]]^2*(dot[a[4], p[1]] + dot[a[4], p[2]])*dot[p[1], p[4]]) - ((I/4)*dot[a[4], F[1], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]]*tr[F[2], S[4]])/(dot[a[4], p[1]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) + ((I/4)*dot[a[4], F[1], p[4]]*dot[a[4], F[1], F[2], a[4]]*e[1]*Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]]*tr[F[2], S[4]])/(dot[a[4], p[2]]^3*(dot[a[4], p[1]] + dot[a[4], p[2]])) - ((I/4)*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]]*tr[F[1], S[4], F[2]])/((dot[a[4], p[1]] + dot[a[4], p[2]])*dot[p[1], p[2]]*dot[p[1], p[4]]) + ((I/4)*dot[p[4], F[1], F[2], p[4]]*Sinh[dot[a[4], p[1]] + dot[a[4], p[2]]]*tr[F[1], S[4], F[2]])/((dot[a[4], p[1]] + dot[a[4], p[2]])*dot[p[1], p[2]]*dot[p[2], p[4]])