Question: How to extract the coefficients ?

## looking for the coefficients of "A and B"

restart;

t1:=[(-(0.3536776512e-1*(2.999999999*exp(-.1111111111*omega*(2.*cos(theta)+9.))+2.999999999*exp(-.1111111111*omega*(2.*cos(theta)-9.))-2.999999999*exp(-(1/9)*omega*(2*cos(theta)-27))-2.999999999*exp(-.1111111111*omega*(2.*cos(theta)+27.))-2.999999999*exp((1/9)*omega*(2*cos(theta)+27))+2.999999999*exp(.1111111111*omega*(2.*cos(theta)+9.))-2.999999999*exp(.1111111111*omega*(2.*cos(theta)-27.))+2.999999999*exp(.1111111111*omega*(2.*cos(theta)-9.))+2.999999999*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega-2.999999999*exp((1/9)*omega*(2*cos(theta)+27))*omega-9.*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega+9.*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega+12.*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^2+12.*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^2-2.999999999*exp(-(1/9)*omega*(2*cos(theta)-27))*omega+9.*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega-9.*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega+12.*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^2+12.*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^2+2.999999999*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega+.6666666665*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega*cos(theta)+.6666666665*exp((1/9)*omega*(2*cos(theta)+27))*omega*cos(theta)+2.666666667*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^2*cos(theta)-2.666666667*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^2*cos(theta)-.6666666665*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega*cos(theta)-.6666666665*exp(-(1/9)*omega*(2*cos(theta)-27))*omega*cos(theta)+.6666666665*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega*cos(theta)+.6666666665*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega*cos(theta)-.6666666665*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega*cos(theta)-2.666666667*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^2*cos(theta)+2.666666667*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^2*cos(theta)-.6666666665*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega*cos(theta)))*cos((2/9)*omega*sin(theta))/(-16.*omega^2+exp(4*omega)-2.+exp(-4.*omega)))*A-(0.3536776512e-1*(1.570796327*exp(.2222222222*omega*(cos(theta)-9.))-1.570796327*exp(.2222222222*omega*(cos(theta)-18.))-1.570796327*exp(-.2222222222*omega*(cos(theta)-9.))+1.570796327*exp(-(2/9)*omega*cos(theta))+1.570796327*exp((2/9)*omega*cos(theta))-1.570796327*exp(.2222222222*omega*(cos(theta)+9.))+1.570796327*exp(-.2222222222*omega*(cos(theta)+9.))-1.570796327*exp(-.2222222222*omega*(cos(theta)+18.))+4.712388980*exp(-(2/9)*omega*cos(theta))*omega-6.283185307*exp(-(2/9)*omega*cos(theta))*omega^3+4.712388980*exp(-(2/9)*omega*cos(theta))*omega^2+4.712388980*exp((2/9)*omega*cos(theta))*omega-6.283185307*exp((2/9)*omega*cos(theta))*omega^3+4.712388980*exp((2/9)*omega*cos(theta))*omega^2+1.570796327*exp(.2222222222*omega*(cos(theta)-18.))*omega^2+4.712388980*exp(.2222222222*omega*(cos(theta)-9.))*omega^2+1.570796327*exp(.1111111111*omega*(2.*cos(theta)+9.))*sinh(omega)+1.570796327*exp(.1111111111*omega*(2.*cos(theta)-9.))*sinh(omega)-1.570796327*exp(.1111111111*omega*(2.*cos(theta)-27.))*sinh(omega)-1.570796327*exp((1/9)*omega*(2*cos(theta)+27))*sinh(omega)+1.570796327*exp(.2222222222*omega*(cos(theta)-18.))*omega+1.570796327*exp(.2222222222*omega*(cos(theta)+9.))*omega^2+6.283185307*exp(.2222222222*omega*(cos(theta)-9.))*omega^3-1.570796327*exp(.2222222222*omega*(cos(theta)+9.))*omega-4.712388980*exp(.2222222222*omega*(cos(theta)-9.))*omega-1.570796327*exp(-.2222222222*omega*(cos(theta)-9.))*omega-4.712388980*exp(-.2222222222*omega*(cos(theta)+9.))*omega+4.712388980*exp(-.2222222222*omega*(cos(theta)+9.))*omega^2-1.570796327*exp(-(1/9)*omega*(2*cos(theta)-27))*sinh(omega)+1.570796327*exp(-.2222222222*omega*(cos(theta)+18.))*omega+1.570796327*exp(-.1111111111*omega*(2.*cos(theta)-9.))*sinh(omega)+1.570796327*exp(-.2222222222*omega*(cos(theta)-9.))*omega^2+6.283185307*exp(-.2222222222*omega*(cos(theta)+9.))*omega^3-1.570796327*exp(-.1111111111*omega*(2.*cos(theta)+27.))*sinh(omega)+1.570796327*exp(-.1111111111*omega*(2.*cos(theta)+9.))*sinh(omega)+1.570796327*exp(-.2222222222*omega*(cos(theta)+18.))*omega^2+.3490658504*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^2*cos(theta)*csgn(omega)*sinh(omega)-1.396263401*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^3*cos(theta)*csgn(omega)*sinh(omega)+1.396263401*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^3*cos(theta)*csgn(omega)*sinh(omega)-.3490658504*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^2*cos(theta)*csgn(omega)*sinh(omega)-.3490658504*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^2*cos(theta)*csgn(omega)*sinh(omega)+1.396263401*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^2*cos(theta)*csgn(omega)*cosh(omega)-1.396263401*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^2*cos(theta)*csgn(omega)*cosh(omega)+.3490658504*exp((1/9)*omega*(2*cos(theta)+27))*omega^2*cos(theta)*csgn(omega)*sinh(omega)-.3490658504*exp((1/9)*omega*(2*cos(theta)+27))*omega*cos(theta)*csgn(omega)*cosh(omega)-.3490658504*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega*cos(theta)*csgn(omega)*cosh(omega)+.3490658504*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega*cos(theta)*csgn(omega)*cosh(omega)+.3490658504*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega*cos(theta)*csgn(omega)*cosh(omega)-1.396263401*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^2*cos(theta)*csgn(omega)*cosh(omega)+1.396263401*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^2*cos(theta)*csgn(omega)*cosh(omega)-.3490658504*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^2*cos(theta)*csgn(omega)*sinh(omega)+1.396263401*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^3*cos(theta)*csgn(omega)*sinh(omega)-1.396263401*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^3*cos(theta)*csgn(omega)*sinh(omega)+.3490658504*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^2*cos(theta)*csgn(omega)*sinh(omega)+.3490658504*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^2*cos(theta)*csgn(omega)*sinh(omega)-.3490658504*exp(-(1/9)*omega*(2*cos(theta)-27))*omega^2*cos(theta)*csgn(omega)*sinh(omega)+.3490658504*exp(-(1/9)*omega*(2*cos(theta)-27))*omega*cos(theta)*csgn(omega)*cosh(omega)+.3490658504*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega*cos(theta)*csgn(omega)*cosh(omega)-.3490658504*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega*cos(theta)*csgn(omega)*cosh(omega)-.3490658504*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega*cos(theta)*csgn(omega)*cosh(omega)+.3490658504*exp((1/9)*omega*(2*cos(theta)+27))*omega*cos(theta)*sinh(omega)-.3490658504*exp((1/9)*omega*(2*cos(theta)+27))*omega^2*cos(theta)*cosh(omega)+1.396263401*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^3*cos(theta)*cosh(omega)-1.396263401*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^3*cos(theta)*cosh(omega)-.3490658504*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^2*cos(theta)*cosh(omega)-1.396263401*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^2*cos(theta)*sinh(omega)+1.396263401*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^2*cos(theta)*sinh(omega)+.3490658504*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^2*cos(theta)*cosh(omega)+.3490658504*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^2*cos(theta)*cosh(omega)+1.570796327*exp((1/9)*omega*(2*cos(theta)+27))*csgn(omega)*cosh(omega)*omega-1.570796327*exp(-.1111111111*omega*(2.*cos(theta)+27.))*csgn(omega)*sinh(omega)*omega+4.712388980*exp(-.1111111111*omega*(2.*cos(theta)-9.))*csgn(omega)*sinh(omega)*omega^2-4.712388980*exp(-.1111111111*omega*(2.*cos(theta)+9.))*csgn(omega)*sinh(omega)*omega^2+1.570796327*exp(-.1111111111*omega*(2.*cos(theta)-9.))*csgn(omega)*sinh(omega)*omega+1.570796327*exp(-.1111111111*omega*(2.*cos(theta)+9.))*csgn(omega)*sinh(omega)*omega-4.712388980*exp(-.1111111111*omega*(2.*cos(theta)-9.))*csgn(omega)*cosh(omega)*omega+4.712388980*exp(-.1111111111*omega*(2.*cos(theta)+9.))*csgn(omega)*cosh(omega)*omega-1.570796327*exp(-(1/9)*omega*(2*cos(theta)-27))*csgn(omega)*sinh(omega)*omega-.3490658504*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega*cos(theta)*sinh(omega)+.3490658504*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega*cos(theta)*sinh(omega)+.3490658504*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega*cos(theta)*sinh(omega)-.3490658504*exp(-(1/9)*omega*(2*cos(theta)-27))*omega*cos(theta)*sinh(omega)+6.283185307*exp(-.1111111111*omega*(2.*cos(theta)+9.))*csgn(omega)*sinh(omega)*omega^3-1.570796327*exp(.1111111111*omega*(2.*cos(theta)-27.))*csgn(omega)*cosh(omega)*omega+1.570796327*exp(.1111111111*omega*(2.*cos(theta)-27.))*csgn(omega)*sinh(omega)*omega^2+6.283185307*exp(.1111111111*omega*(2.*cos(theta)+9.))*csgn(omega)*sinh(omega)*omega^3+6.283185307*exp(.1111111111*omega*(2.*cos(theta)-9.))*csgn(omega)*sinh(omega)*omega^3-6.283185307*exp(.1111111111*omega*(2.*cos(theta)+9.))*csgn(omega)*cosh(omega)*omega^2-6.283185307*exp(.1111111111*omega*(2.*cos(theta)-9.))*csgn(omega)*cosh(omega)*omega^2-1.570796327*exp((1/9)*omega*(2*cos(theta)+27))*csgn(omega)*sinh(omega)*omega^2-.3490658504*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega*cos(theta)*sinh(omega)-.3490658504*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega*cos(theta)*sinh(omega)-1.570796327*exp((1/9)*omega*(2*cos(theta)+27))*csgn(omega)*sinh(omega)*omega+.3490658504*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega*cos(theta)*sinh(omega)-6.283185307*exp(-.1111111111*omega*(2.*cos(theta)-9.))*csgn(omega)*cosh(omega)*omega^2-6.283185307*exp(-.1111111111*omega*(2.*cos(theta)+9.))*csgn(omega)*cosh(omega)*omega^2-1.570796327*exp(-(1/9)*omega*(2*cos(theta)-27))*csgn(omega)*sinh(omega)*omega^2+1.570796327*exp(-(1/9)*omega*(2*cos(theta)-27))*csgn(omega)*cosh(omega)*omega-1.570796327*exp(.1111111111*omega*(2.*cos(theta)-27.))*csgn(omega)*sinh(omega)*omega+4.712388980*exp(.1111111111*omega*(2.*cos(theta)+9.))*csgn(omega)*sinh(omega)*omega^2-4.712388980*exp(.1111111111*omega*(2.*cos(theta)-9.))*csgn(omega)*sinh(omega)*omega^2+1.570796327*exp(.1111111111*omega*(2.*cos(theta)+9.))*csgn(omega)*sinh(omega)*omega+1.570796327*exp(.1111111111*omega*(2.*cos(theta)-9.))*csgn(omega)*sinh(omega)*omega-4.712388980*exp(.1111111111*omega*(2.*cos(theta)+9.))*csgn(omega)*cosh(omega)*omega+4.712388980*exp(.1111111111*omega*(2.*cos(theta)-9.))*csgn(omega)*cosh(omega)*omega+.3490658504*exp(-(1/9)*omega*(2*cos(theta)-27))*omega^2*cos(theta)*cosh(omega)+.3490658504*exp(-(2/9)*omega*cos(theta))*omega*cos(theta)+1.745329252*exp(-(2/9)*omega*cos(theta))*omega^2*cos(theta)-1.396263401*exp(-(2/9)*omega*cos(theta))*omega^3*cos(theta)-.3490658504*exp((2/9)*omega*cos(theta))*omega*cos(theta)-1.745329252*exp((2/9)*omega*cos(theta))*omega^2*cos(theta)+1.396263401*exp((2/9)*omega*cos(theta))*omega^3*cos(theta)-6.283185307*exp(.1111111111*omega*(2.*cos(theta)-9.))*cosh(omega)*omega^3-.3490658504*exp(.2222222222*omega*(cos(theta)+9.))*omega^2*cos(theta)+1.745329252*exp(.2222222222*omega*(cos(theta)-9.))*omega^2*cos(theta)-.3490658504*exp(-.2222222222*omega*(cos(theta)+18.))*omega*cos(theta)+1.570796327*exp(-(1/9)*omega*(2*cos(theta)-27))*csgn(omega)*cosh(omega)-6.283185307*exp(.1111111111*omega*(2.*cos(theta)+9.))*cosh(omega)*omega^3+6.283185307*exp(.1111111111*omega*(2.*cos(theta)-9.))*sinh(omega)*omega^2-1.570796327*exp((1/9)*omega*(2*cos(theta)+27))*sinh(omega)*omega-1.570796327*exp(.1111111111*omega*(2.*cos(theta)-27.))*cosh(omega)*omega^2+1.570796327*exp((1/9)*omega*(2*cos(theta)+27))*cosh(omega)*omega^2+1.570796327*exp(.1111111111*omega*(2.*cos(theta)-27.))*sinh(omega)*omega+6.283185307*exp(.1111111111*omega*(2.*cos(theta)+9.))*sinh(omega)*omega^2-1.570796327*exp(-.1111111111*omega*(2.*cos(theta)-9.))*cosh(omega)*omega-1.570796327*exp(-.1111111111*omega*(2.*cos(theta)+9.))*cosh(omega)*omega+.3490658504*exp(.2222222222*omega*(cos(theta)-18.))*omega^2*cos(theta)+1.396263401*exp(.2222222222*omega*(cos(theta)-9.))*omega^3*cos(theta)+.3490658504*exp(.2222222222*omega*(cos(theta)+9.))*omega*cos(theta)-.3490658504*exp(.2222222222*omega*(cos(theta)-9.))*omega*cos(theta)+1.570796327*exp(-(1/9)*omega*(2*cos(theta)-27))*cosh(omega)*omega-4.712388980*exp(-.1111111111*omega*(2.*cos(theta)-9.))*cosh(omega)*omega^2+4.712388980*exp(-.1111111111*omega*(2.*cos(theta)+9.))*cosh(omega)*omega^2+1.570796327*exp(-.1111111111*omega*(2.*cos(theta)+27.))*csgn(omega)*cosh(omega)+1.570796327*exp(-.1111111111*omega*(2.*cos(theta)+27.))*cosh(omega)*omega-1.570796327*exp(-.1111111111*omega*(2.*cos(theta)-9.))*csgn(omega)*cosh(omega)-1.570796327*exp(-.1111111111*omega*(2.*cos(theta)+9.))*csgn(omega)*cosh(omega)+4.712388980*exp(-.1111111111*omega*(2.*cos(theta)-9.))*sinh(omega)*omega-4.712388980*exp(-.1111111111*omega*(2.*cos(theta)+9.))*sinh(omega)*omega+1.570796327*exp((1/9)*omega*(2*cos(theta)+27))*cosh(omega)*omega-4.712388980*exp(.1111111111*omega*(2.*cos(theta)+9.))*cosh(omega)*omega^2+4.712388980*exp(.1111111111*omega*(2.*cos(theta)-9.))*cosh(omega)*omega^2+1.570796327*exp(.1111111111*omega*(2.*cos(theta)-27.))*csgn(omega)*cosh(omega)+1.570796327*exp(.1111111111*omega*(2.*cos(theta)-27.))*cosh(omega)*omega-1.570796327*exp(.1111111111*omega*(2.*cos(theta)+9.))*csgn(omega)*cosh(omega)-1.570796327*exp(.1111111111*omega*(2.*cos(theta)-9.))*csgn(omega)*cosh(omega)+4.712388980*exp(.1111111111*omega*(2.*cos(theta)+9.))*sinh(omega)*omega-4.712388980*exp(.1111111111*omega*(2.*cos(theta)-9.))*sinh(omega)*omega-1.570796327*exp(.1111111111*omega*(2.*cos(theta)+9.))*cosh(omega)*omega-1.570796327*exp(.1111111111*omega*(2.*cos(theta)-9.))*cosh(omega)*omega+1.570796327*exp(-.1111111111*omega*(2.*cos(theta)+27.))*sinh(omega)*omega-1.570796327*exp(-.1111111111*omega*(2.*cos(theta)+27.))*cosh(omega)*omega^2+1.570796327*exp(-(1/9)*omega*(2*cos(theta)-27))*cosh(omega)*omega^2-6.283185307*exp(-.1111111111*omega*(2.*cos(theta)-9.))*cosh(omega)*omega^3-6.283185307*exp(-.1111111111*omega*(2.*cos(theta)+9.))*cosh(omega)*omega^3+.3490658504*exp(-.2222222222*omega*(cos(theta)-9.))*omega^2*cos(theta)-1.745329252*exp(-.2222222222*omega*(cos(theta)+9.))*omega^2*cos(theta)-.3490658504*exp(-.2222222222*omega*(cos(theta)-9.))*omega*cos(theta)+.3490658504*exp(-.2222222222*omega*(cos(theta)+9.))*omega*cos(theta)+6.283185307*exp(-.1111111111*omega*(2.*cos(theta)-9.))*sinh(omega)*omega^2+6.283185307*exp(-.1111111111*omega*(2.*cos(theta)+9.))*sinh(omega)*omega^2-1.570796327*exp(-(1/9)*omega*(2*cos(theta)-27))*sinh(omega)*omega+.3490658504*exp(.2222222222*omega*(cos(theta)-18.))*omega*cos(theta)+1.570796327*exp((1/9)*omega*(2*cos(theta)+27))*csgn(omega)*cosh(omega)-.3490658504*exp(-.2222222222*omega*(cos(theta)+18.))*omega^2*cos(theta)-1.396263401*exp(-.2222222222*omega*(cos(theta)+9.))*omega^3*cos(theta)-1.396263401*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^3*cos(theta)*cosh(omega)+1.396263401*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^3*cos(theta)*cosh(omega)+.3490658504*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^2*cos(theta)*cosh(omega)+1.396263401*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^2*cos(theta)*sinh(omega)-1.396263401*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^2*cos(theta)*sinh(omega)-.3490658504*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^2*cos(theta)*cosh(omega)-.3490658504*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^2*cos(theta)*cosh(omega)-1.570796327*exp(-.1111111111*omega*(2.*cos(theta)+27.))*csgn(omega)*cosh(omega)*omega+1.570796327*exp(-.1111111111*omega*(2.*cos(theta)+27.))*csgn(omega)*sinh(omega)*omega^2+6.283185307*exp(-.1111111111*omega*(2.*cos(theta)-9.))*csgn(omega)*sinh(omega)*omega^3))*cos((2/9)*omega*sin(theta))*B/(-16.*omega^2+exp(4*omega)-2.+exp(-4.*omega))-(0.3536776512e-1*(-.5235987758*exp(.2222222222*omega*(cos(theta)-9.))-.5235987758*exp(.2222222222*omega*(cos(theta)-18.))-.5235987758*exp(-.2222222222*omega*(cos(theta)-9.))-.5235987758*exp(-(2/9)*omega*cos(theta))+.5235987758*exp((2/9)*omega*cos(theta))+.5235987758*exp(.2222222222*omega*(cos(theta)+9.))+.5235987758*exp(-.2222222222*omega*(cos(theta)+9.))+.5235987758*exp(-.2222222222*omega*(cos(theta)+18.))-2.094395103*exp(-(2/9)*omega*cos(theta))*omega-2.617993879*exp(-(2/9)*omega*cos(theta))*omega^3-3.665191430*exp(-(2/9)*omega*cos(theta))*omega^2+2.094395103*exp((2/9)*omega*cos(theta))*omega+2.617993879*exp((2/9)*omega*cos(theta))*omega^3+3.665191430*exp((2/9)*omega*cos(theta))*omega^2+.5235987758*exp(.2222222222*omega*(cos(theta)-18.))*omega^2-.5235987758*exp(.2222222222*omega*(cos(theta)-9.))*omega^2+.5235987758*exp(.2222222222*omega*(cos(theta)+9.))*omega^2-2.617993879*exp(.2222222222*omega*(cos(theta)-9.))*omega^3+1.047197552*exp(.2222222222*omega*(cos(theta)+9.))*omega+1.047197552*exp(.2222222222*omega*(cos(theta)-9.))*omega-1.047197552*exp(-.2222222222*omega*(cos(theta)-9.))*omega-1.047197552*exp(-.2222222222*omega*(cos(theta)+9.))*omega+.5235987758*exp(-.2222222222*omega*(cos(theta)+9.))*omega^2-.5235987758*exp(-.2222222222*omega*(cos(theta)-9.))*omega^2+2.617993879*exp(-.2222222222*omega*(cos(theta)+9.))*omega^3-.5235987758*exp(-.2222222222*omega*(cos(theta)+18.))*omega^2-.5235987758*exp(.2222222222*omega*(cos(theta)-18.))*omega^3+.5235987758*exp(.2222222222*omega*(cos(theta)+9.))*omega^3+2.094395103*exp(.2222222222*omega*(cos(theta)-9.))*omega^4+.5235987758*exp(-.2222222222*omega*(cos(theta)+18.))*omega^3-2.094395103*exp(-.2222222222*omega*(cos(theta)+9.))*omega^4-.5235987758*exp(-.2222222222*omega*(cos(theta)-9.))*omega^3-2.094395103*exp(-(2/9)*omega*cos(theta))*omega^4+2.094395103*exp((2/9)*omega*cos(theta))*omega^4-.1163552835*exp(-(2/9)*omega*cos(theta))*omega*cos(theta)-.5817764175*exp(-(2/9)*omega*cos(theta))*omega^2*cos(theta)-.3490658505*exp(-(2/9)*omega*cos(theta))*omega^3*cos(theta)-.1163552835*exp((2/9)*omega*cos(theta))*omega*cos(theta)-.5817764175*exp((2/9)*omega*cos(theta))*omega^2*cos(theta)-.3490658505*exp((2/9)*omega*cos(theta))*omega^3*cos(theta)-.1163552835*exp(.2222222222*omega*(cos(theta)+9.))*omega^2*cos(theta)-.3490658505*exp(.2222222222*omega*(cos(theta)-9.))*omega^2*cos(theta)+.1163552835*exp(-.2222222222*omega*(cos(theta)+18.))*omega*cos(theta)+.1163552835*exp(.2222222222*omega*(cos(theta)-18.))*omega^2*cos(theta)-.3490658505*exp(.2222222222*omega*(cos(theta)-9.))*omega^3*cos(theta)-.1163552835*exp(.2222222222*omega*(cos(theta)+9.))*omega*cos(theta)+.1163552835*exp(.2222222222*omega*(cos(theta)-9.))*omega*cos(theta)-.1163552835*exp(-.2222222222*omega*(cos(theta)-9.))*omega^2*cos(theta)-.3490658505*exp(-.2222222222*omega*(cos(theta)+9.))*omega^2*cos(theta)-.1163552835*exp(-.2222222222*omega*(cos(theta)-9.))*omega*cos(theta)+.1163552835*exp(-.2222222222*omega*(cos(theta)+9.))*omega*cos(theta)+.1163552835*exp(.2222222222*omega*(cos(theta)-18.))*omega*cos(theta)+.1163552835*exp(-.2222222222*omega*(cos(theta)+18.))*omega^2*cos(theta)-.3490658505*exp(-.2222222222*omega*(cos(theta)+9.))*omega^3*cos(theta)-.4654211340*exp(-(2/9)*omega*cos(theta))*omega^4*cos(theta)-.4654211340*exp((2/9)*omega*cos(theta))*omega^4*cos(theta)+.4654211340*exp(-.2222222222*omega*(cos(theta)+9.))*omega^4*cos(theta)-.1163552835*exp(.2222222222*omega*(cos(theta)-18.))*omega^3*cos(theta)-.1163552835*exp(.2222222222*omega*(cos(theta)+9.))*omega^3*cos(theta)+.4654211340*exp(.2222222222*omega*(cos(theta)-9.))*omega^4*cos(theta)-.1163552835*exp(-.2222222222*omega*(cos(theta)+18.))*omega^3*cos(theta)-.1163552835*exp(-.2222222222*omega*(cos(theta)-9.))*omega^3*cos(theta)))*cos((2/9)*omega*sin(theta))*E/(-16.*omega^2+exp(4*omega)-2.+exp(-4.*omega))-(0.3536776512e-1*(-3.141592654*exp(.1111111111*omega*(2.*cos(theta)-9.))*F[2]-.5235987758*exp(.1111111111*omega*(2.*cos(theta)-9.))*G[2]-1.570796327*exp(.2222222222*omega*(cos(theta)-9.))*H[3]-.2617993879*exp(.2222222222*omega*(cos(theta)-9.))*J[3]+1.570796327*exp(.2222222222*omega*(cos(theta)-18.))*H[3]+.2617993879*exp(.2222222222*omega*(cos(theta)-18.))*J[3]+1.570796327*exp(.2222222222*omega*(cos(theta)-27.))*H[3]+.2617993879*exp(.2222222222*omega*(cos(theta)-27.))*J[3]+.2617993879*exp(-(2/9)*omega*cos(theta))*J[3]-.2617993879*exp((2/9)*omega*cos(theta))*J[3]+1.570796327*exp(-(2/9)*omega*cos(theta))*H[3]-1.570796327*exp((2/9)*omega*cos(theta))*H[3]+3.141592654*exp(-.1111111111*omega*(2.*cos(theta)-9.))*F[2]+.5235987758*exp(-.1111111111*omega*(2.*cos(theta)-9.))*G[2]+3.141592654*exp(-.1111111111*omega*(2.*cos(theta)+45.))*F[2]+.5235987758*exp(-.1111111111*omega*(2.*cos(theta)+45.))*G[2]-3.141592654*exp(-.1111111111*omega*(2.*cos(theta)+9.))*F[2]+.5235987758*exp(.1111111111*omega*(2.*cos(theta)+9.))*G[2]+3.141592654*exp(.1111111111*omega*(2.*cos(theta)-45.))*F[2]+.5235987758*exp(.1111111111*omega*(2.*cos(theta)-45.))*G[2]+3.141592654*exp(.1111111111*omega*(2.*cos(theta)+9.))*F[2]+4.000000000*10^(-10)*exp(-.1111111111*omega*(2.*cos(theta)+45.))*omega^2*cos(theta)*F[2]+12.56637062*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^3*F[2]+12.56637062*exp(.1111111111*omega*(2.*cos(theta)-45.))*omega^3*F[2]+28.27433390*exp(.2222222222*omega*(cos(theta)-27.))*omega^4*H[3]+2.356194492*exp(.2222222222*omega*(cos(theta)-27.))*omega^5*J[3]+5.585053608*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^5*G[2]+50.26548247*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^4*F[2]-12.56637062*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^2*F[2]-9.424777961*exp(.2222222222*omega*(cos(theta)-9.))*omega*H[3]-3.141592654*exp(.1111111111*omega*(2.*cos(theta)-27.))*F[2]-.5235987758*exp(.1111111111*omega*(2.*cos(theta)-27.))*G[2]-.5235987758*exp(-.1111111111*omega*(2.*cos(theta)+9.))*G[2]+1.570796327*exp(-.2222222222*omega*(cos(theta)+9.))*H[3]+.2617993879*exp(-.2222222222*omega*(cos(theta)+9.))*J[3]-1.570796327*exp(-.2222222222*omega*(cos(theta)+18.))*H[3]-.2617993879*exp(-.2222222222*omega*(cos(theta)+18.))*J[3]-1.570796327*exp(-.2222222222*omega*(cos(theta)+27.))*H[3]-.2617993879*exp(-.2222222222*omega*(cos(theta)+27.))*J[3]-3.141592654*exp(-.1111111111*omega*(2.*cos(theta)+27.))*F[2]-.5235987758*exp(-.1111111111*omega*(2.*cos(theta)+27.))*G[2]-1.396263402*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^4*G[2]-5.497787146*exp(.2222222222*omega*(cos(theta)-9.))*omega^3*J[3]-14.13716694*exp(.2222222222*omega*(cos(theta)-27.))*omega^2*H[3]-4.712388982*exp(.2222222222*omega*(cos(theta)-27.))*omega^3*H[3]-4.188790206*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^3*G[2]+23.56194490*exp(.2222222222*omega*(cos(theta)-9.))*omega^3*H[3]+47.12388982*exp(.2222222222*omega*(cos(theta)-18.))*omega^4*H[3]+3.141592654*exp(.2222222222*omega*(cos(theta)-18.))*omega^4*J[3]+37.69911184*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^3*F[2]+65.97344574*exp(.2222222222*omega*(cos(theta)-9.))*omega^4*H[3]-3.141592654*exp(.2222222222*omega*(cos(theta)-9.))*omega^4*J[3]-2.356194492*exp(.2222222222*omega*(cos(theta)-9.))*omega^5*J[3]+2.356194492*exp(.2222222222*omega*(cos(theta)-18.))*omega^5*J[3]-1.396263402*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^4*G[2]-25.13274122*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^2*F[2]+1.047197552*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^2*G[2]+15.70796327*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega*F[2]+.5235987758*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega*G[2]-2.617993879*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega*G[2]+3.141592654*exp(.2222222222*omega*(cos(theta)-27.))*omega*H[3]+.5235987758*exp(.2222222222*omega*(cos(theta)-27.))*omega*J[3]-3.141592654*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega*F[2]-12.56637062*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^3*F[2]-4.188790206*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^3*G[2]-1.570796327*exp(.2222222222*omega*(cos(theta)-9.))*omega*J[3]+32.98672287*exp(.2222222222*omega*(cos(theta)-18.))*omega^3*H[3]+.7853981636*exp(.2222222222*omega*(cos(theta)-18.))*omega^3*J[3]-.5235987758*exp(.2222222222*omega*(cos(theta)-18.))*omega^2*J[3]-4.188790206*exp(.2222222222*omega*(cos(theta)-9.))*omega^2*J[3]-17.27875960*exp(.2222222222*omega*(cos(theta)-18.))*omega^2*H[3]-5.235987758*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^2*G[2]-10.99557429*exp(.2222222222*omega*(cos(theta)-9.))*omega^2*H[3]+.5235987758*exp(.1111111111*omega*(2.*cos(theta)-45.))*omega*G[2]+12.56637062*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^2*F[2]-1.800000000*10^(-9)*exp(-.1111111111*omega*(2.*cos(theta)+45.))*omega^2*F[2]-1.800000000*10^(-9)*exp(.1111111111*omega*(2.*cos(theta)-45.))*omega^2*F[2]-4.000000000*10^(-10)*exp(.1111111111*omega*(2.*cos(theta)-45.))*omega^2*cos(theta)*F[2]-50.26548247*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^4*F[2]+1.047197552*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^2*G[2]-1.047197552*exp(.1111111111*omega*(2.*cos(theta)-45.))*omega^2*G[2]-113.0973355*exp(.2222222222*omega*(cos(theta)-9.))*omega^5*H[3]-113.0973355*exp(.2222222222*omega*(cos(theta)-18.))*omega^5*H[3]+1.570796327*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega*G[2]-9.424777961*exp(.1111111111*omega*(2.*cos(theta)-45.))*omega*F[2]-3.141592654*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega*F[2]-.7853981636*exp(.2222222222*omega*(cos(theta)-27.))*omega^3*J[3]+1.396263402*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^4*G[2]+1.396263402*exp(.1111111111*omega*(2.*cos(theta)-45.))*omega^4*G[2]-9.424777964*exp(.2222222222*omega*(cos(theta)-9.))*omega^6*J[3]-9.424777964*exp(.2222222222*omega*(cos(theta)-18.))*omega^6*J[3]-5.585053608*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^5*G[2]+50.26548247*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^4*F[2]+5.585053608*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^5*G[2]-28.27433390*exp(-.2222222222*omega*(cos(theta)+27.))*omega^4*H[3]-2.356194492*exp(-.2222222222*omega*(cos(theta)+27.))*omega^5*J[3]+.7853981636*exp(-.2222222222*omega*(cos(theta)+27.))*omega^3*J[3]+1.396263402*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^4*G[2]+1.396263402*exp(-.1111111111*omega*(2.*cos(theta)+45.))*omega^4*G[2]-12.56637062*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^2*F[2]+9.424777961*exp(-.2222222222*omega*(cos(theta)+9.))*omega*H[3]+1.570796327*exp(-.2222222222*omega*(cos(theta)+9.))*omega*J[3]-32.98672287*exp(-.2222222222*omega*(cos(theta)+18.))*omega^3*H[3]-.7853981636*exp(-.2222222222*omega*(cos(theta)+18.))*omega^3*J[3]+.5235987758*exp(-.2222222222*omega*(cos(theta)+18.))*omega^2*J[3]+4.188790206*exp(-.2222222222*omega*(cos(theta)+9.))*omega^2*J[3]+17.27875960*exp(-.2222222222*omega*(cos(theta)+18.))*omega^2*H[3]-5.235987758*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^2*G[2]+10.99557429*exp(-.2222222222*omega*(cos(theta)+9.))*omega^2*H[3]+.5235987758*exp(-.1111111111*omega*(2.*cos(theta)+45.))*omega*G[2]+12.56637062*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^2*F[2]+113.0973355*exp(-.2222222222*omega*(cos(theta)+9.))*omega^5*H[3]+113.0973355*exp(-.2222222222*omega*(cos(theta)+18.))*omega^5*H[3]+1.047197552*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^2*G[2]-1.047197552*exp(-.1111111111*omega*(2.*cos(theta)+45.))*omega^2*G[2]-5.585053608*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^5*G[2]-50.26548247*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^4*F[2]+9.424777964*exp(-.2222222222*omega*(cos(theta)+9.))*omega^6*J[3]+9.424777964*exp(-.2222222222*omega*(cos(theta)+18.))*omega^6*J[3]-3.141592654*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega*F[2]+1.570796327*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega*G[2]-9.424777961*exp(-.1111111111*omega*(2.*cos(theta)+45.))*omega*F[2]+2.356194492*exp(-.2222222222*omega*(cos(theta)+9.))*omega^5*J[3]-2.356194492*exp(-.2222222222*omega*(cos(theta)+18.))*omega^5*J[3]-1.396263402*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^4*G[2]-65.97344574*exp(-.2222222222*omega*(cos(theta)+9.))*omega^4*H[3]+3.141592654*exp(-.2222222222*omega*(cos(theta)+9.))*omega^4*J[3]-47.12388982*exp(-.2222222222*omega*(cos(theta)+18.))*omega^4*H[3]-3.141592654*exp(-.2222222222*omega*(cos(theta)+18.))*omega^4*J[3]+37.69911184*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^3*F[2]-4.188790206*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^3*G[2]-23.56194490*exp(-.2222222222*omega*(cos(theta)+9.))*omega^3*H[3]+5.497787146*exp(-.2222222222*omega*(cos(theta)+9.))*omega^3*J[3]+14.13716694*exp(-.2222222222*omega*(cos(theta)+27.))*omega^2*H[3]+4.712388982*exp(-.2222222222*omega*(cos(theta)+27.))*omega^3*H[3]-1.396263402*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^4*G[2]-12.56637062*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^3*F[2]-4.188790206*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^3*G[2]-3.141592654*exp(-.2222222222*omega*(cos(theta)+27.))*omega*H[3]-.5235987758*exp(-.2222222222*omega*(cos(theta)+27.))*omega*J[3]-3.141592654*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega*F[2]-2.617993879*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega*G[2]+15.70796327*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega*F[2]+.5235987758*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega*G[2]-25.13274122*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^2*F[2]+1.047197552*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^2*G[2]+12.56637062*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^3*F[2]+12.56637062*exp(-.1111111111*omega*(2.*cos(theta)+45.))*omega^3*F[2]+1.047197551*exp(-(2/9)*omega*cos(theta))*omega^2*cos(theta)*H[3]+.1745329253*exp(-(2/9)*omega*cos(theta))*omega^2*cos(theta)*J[3]-5.235987755*exp(-(2/9)*omega*cos(theta))*omega^3*cos(theta)*H[3]+.1745329253*exp(-(2/9)*omega*cos(theta))*omega^3*cos(theta)*J[3]+.5235987760*exp(-(2/9)*omega*cos(theta))*omega^5*cos(theta)*J[3]+6.283185310*exp(-(2/9)*omega*cos(theta))*omega^4*cos(theta)*H[3]+.3490658504*exp(-(2/9)*omega*cos(theta))*omega*cos(theta)*H[3]+0.5817764175e-1*exp(-(2/9)*omega*cos(theta))*omega*cos(theta)*J[3]+1.047197551*exp((2/9)*omega*cos(theta))*omega^2*cos(theta)*H[3]+.1745329253*exp((2/9)*omega*cos(theta))*omega^2*cos(theta)*J[3]-5.235987755*exp((2/9)*omega*cos(theta))*omega^3*cos(theta)*H[3]+.1745329253*exp((2/9)*omega*cos(theta))*omega^3*cos(theta)*J[3]+.5235987760*exp((2/9)*omega*cos(theta))*omega^5*cos(theta)*J[3]+6.283185310*exp((2/9)*omega*cos(theta))*omega^4*cos(theta)*H[3]+.3490658504*exp((2/9)*omega*cos(theta))*omega*cos(theta)*H[3]+0.5817764175e-1*exp((2/9)*omega*cos(theta))*omega*cos(theta)*J[3]+6.283185307*exp(-(2/9)*omega*cos(theta))*omega*H[3]+1.047197552*exp(-(2/9)*omega*cos(theta))*omega*J[3]+.7853981636*exp(-(2/9)*omega*cos(theta))*omega^3*J[3]-4.712388980*exp(-(2/9)*omega*cos(theta))*omega^2*H[3]+1.570796327*exp(-(2/9)*omega*cos(theta))*omega^2*J[3]-23.56194490*exp(-(2/9)*omega*cos(theta))*omega^3*H[3]+2.356194492*exp(-(2/9)*omega*cos(theta))*omega^5*J[3]+28.27433390*exp(-(2/9)*omega*cos(theta))*omega^4*H[3]-6.283185307*exp((2/9)*omega*cos(theta))*omega*H[3]-1.047197552*exp((2/9)*omega*cos(theta))*omega*J[3]-.7853981636*exp((2/9)*omega*cos(theta))*omega^3*J[3]+4.712388980*exp((2/9)*omega*cos(theta))*omega^2*H[3]-1.570796327*exp((2/9)*omega*cos(theta))*omega^2*J[3]+23.56194490*exp((2/9)*omega*cos(theta))*omega^3*H[3]-2.356194492*exp((2/9)*omega*cos(theta))*omega^5*J[3]-28.27433390*exp((2/9)*omega*cos(theta))*omega^4*H[3]+2.792526803*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^2*cos(theta)*F[2]-.2327105670*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^2*cos(theta)*G[2]+.3490658504*exp(.2222222222*omega*(cos(theta)-18.))*omega^2*cos(theta)*H[3]+2.792526804*exp(.1111111111*omega*(2.*cos(theta)-45.))*omega^3*cos(theta)*F[2]-25.13274123*exp(-.2222222222*omega*(cos(theta)+18.))*omega^5*cos(theta)*H[3]-.5235987760*exp(-.2222222222*omega*(cos(theta)+18.))*omega^5*cos(theta)*J[3]-11.17010721*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^4*cos(theta)*F[2]+.3102807560*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^4*cos(theta)*G[2]-27.22713633*exp(-.2222222222*omega*(cos(theta)+9.))*omega^4*cos(theta)*H[3]+.6981317013*exp(-.2222222222*omega*(cos(theta)+9.))*omega^4*cos(theta)*J[3]+.5235987760*exp(-.2222222222*omega*(cos(theta)+27.))*omega^5*cos(theta)*J[3]-1.047197551*exp(-.2222222222*omega*(cos(theta)+27.))*omega^3*cos(theta)*H[3]-.1745329253*exp(-.2222222222*omega*(cos(theta)+27.))*omega^3*cos(theta)*J[3]+6.283185310*exp(-.2222222222*omega*(cos(theta)+27.))*omega^4*cos(theta)*H[3]-1.241123024*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^5*cos(theta)*G[2]-11.17010721*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^4*cos(theta)*F[2]-.3102807560*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^4*cos(theta)*G[2]-1.047197551*exp(-.2222222222*omega*(cos(theta)+27.))*omega^2*cos(theta)*H[3]-.1745329253*exp(-.2222222222*omega*(cos(theta)+27.))*omega^2*cos(theta)*J[3]-2.792526803*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^2*cos(theta)*F[2]-.6981317013*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^2*cos(theta)*G[2]+5.585053605*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^2*cos(theta)*F[2]+.3490658504*exp(-.2222222222*omega*(cos(theta)+18.))*omega^2*cos(theta)*H[3]+0.5817764175e-1*exp(-.2222222222*omega*(cos(theta)+18.))*omega^2*cos(theta)*J[3]+2.094395103*exp(-.2222222222*omega*(cos(theta)+9.))*omega^6*cos(theta)*J[3]-2.094395103*exp(-.2222222222*omega*(cos(theta)+18.))*omega^6*cos(theta)*J[3]-1.241123024*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^5*cos(theta)*G[2]+25.13274123*exp(-.2222222222*omega*(cos(theta)+9.))*omega^5*cos(theta)*H[3]-.5235987760*exp(-.2222222222*omega*(cos(theta)+9.))*omega^5*cos(theta)*J[3]-.6981317013*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega*cos(theta)*F[2]-.1163552835*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega*cos(theta)*G[2]-2.792526803*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^2*cos(theta)*F[2]+.2327105670*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^2*cos(theta)*G[2]-.3490658504*exp(-.2222222222*omega*(cos(theta)+18.))*omega*cos(theta)*H[3]-0.5817764175e-1*exp(-.2222222222*omega*(cos(theta)+18.))*omega*cos(theta)*J[3]-.3490658504*exp(-.2222222222*omega*(cos(theta)+27.))*omega*cos(theta)*H[3]-0.5817764175e-1*exp(-.2222222222*omega*(cos(theta)+27.))*omega*cos(theta)*J[3]-.6981317013*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega*cos(theta)*F[2]-.1163552835*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega*cos(theta)*G[2]+.3490658504*exp(-.2222222222*omega*(cos(theta)+9.))*omega*cos(theta)*H[3]+0.5817764175e-1*exp(-.2222222222*omega*(cos(theta)+9.))*omega*cos(theta)*J[3]-.1163552835*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega*cos(theta)*G[2]-.6981317013*exp(.1111111111*omega*(2.*cos(theta)-45.))*omega*cos(theta)*F[2]+2.792526804*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^3*cos(theta)*F[2]+9.424777960*exp(.2222222222*omega*(cos(theta)-18.))*omega^3*cos(theta)*H[3]-2.094395101*exp(.2222222222*omega*(cos(theta)-18.))*omega^4*cos(theta)*H[3]+.6981317013*exp(.2222222222*omega*(cos(theta)-18.))*omega^4*cos(theta)*J[3]+2.443460953*exp(.2222222222*omega*(cos(theta)-9.))*omega^2*cos(theta)*H[3]+.4072434923*exp(.2222222222*omega*(cos(theta)-9.))*omega^2*cos(theta)*J[3]-2.792526804*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^3*cos(theta)*F[2]-.6981317013*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega*cos(theta)*F[2]-.1745329253*exp(.2222222222*omega*(cos(theta)-27.))*omega^2*cos(theta)*J[3]+2.792526803*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^2*cos(theta)*F[2]+.6981317013*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^2*cos(theta)*G[2]-5.585053605*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^2*cos(theta)*F[2]-.2327105670*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^2*cos(theta)*G[2]+2.792526803*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^3*cos(theta)*F[2]-.9308422680*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^3*cos(theta)*G[2]+.3102807560*exp(.1111111111*omega*(2.*cos(theta)-45.))*omega^4*cos(theta)*G[2]-.3102807560*exp(.1111111111*omega*(2.*cos(theta)+9.))*omega^4*cos(theta)*G[2]-.2327105670*exp(.1111111111*omega*(2.*cos(theta)-45.))*omega^2*cos(theta)*G[2]-13.96263402*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^3*cos(theta)*F[2]+.9308422680*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^3*cos(theta)*G[2]+5.235987755*exp(.2222222222*omega*(cos(theta)-9.))*omega^3*cos(theta)*H[3]+.5235987760*exp(.2222222222*omega*(cos(theta)-18.))*omega^3*cos(theta)*J[3]+.8726646260*exp(.2222222222*omega*(cos(theta)-9.))*omega^3*cos(theta)*J[3]+2.094395103*exp(.2222222222*omega*(cos(theta)-9.))*omega^6*cos(theta)*J[3]-2.094395103*exp(.2222222222*omega*(cos(theta)-18.))*omega^6*cos(theta)*J[3]+1.241123024*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^5*cos(theta)*G[2]+25.13274123*exp(.2222222222*omega*(cos(theta)-9.))*omega^5*cos(theta)*H[3]-.5235987760*exp(.2222222222*omega*(cos(theta)-9.))*omega^5*cos(theta)*J[3]-25.13274123*exp(.2222222222*omega*(cos(theta)-18.))*omega^5*cos(theta)*H[3]-.5235987760*exp(.2222222222*omega*(cos(theta)-18.))*omega^5*cos(theta)*J[3]+11.17010721*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^4*cos(theta)*F[2]-.3102807560*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega^4*cos(theta)*G[2]-27.22713633*exp(.2222222222*omega*(cos(theta)-9.))*omega^4*cos(theta)*H[3]+.6981317013*exp(.2222222222*omega*(cos(theta)-9.))*omega^4*cos(theta)*J[3]+.5235987760*exp(.2222222222*omega*(cos(theta)-27.))*omega^5*cos(theta)*J[3]-1.047197551*exp(.2222222222*omega*(cos(theta)-27.))*omega^3*cos(theta)*H[3]-.1745329253*exp(.2222222222*omega*(cos(theta)-27.))*omega^3*cos(theta)*J[3]+6.283185310*exp(.2222222222*omega*(cos(theta)-27.))*omega^4*cos(theta)*H[3]+1.241123024*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^5*cos(theta)*G[2]+11.17010721*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^4*cos(theta)*F[2]+.3102807560*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega^4*cos(theta)*G[2]-1.047197551*exp(.2222222222*omega*(cos(theta)-27.))*omega^2*cos(theta)*H[3]-2.792526804*exp(-.1111111111*omega*(2.*cos(theta)+45.))*omega^3*cos(theta)*F[2]+.8726646260*exp(-.2222222222*omega*(cos(theta)+9.))*omega^3*cos(theta)*J[3]+.6981317013*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega*cos(theta)*F[2]+.1163552835*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega*cos(theta)*G[2]+.6981317013*exp(-.1111111111*omega*(2.*cos(theta)+45.))*omega*cos(theta)*F[2]+.1163552835*exp(-.1111111111*omega*(2.*cos(theta)+45.))*omega*cos(theta)*G[2]-.1163552835*exp(.1111111111*omega*(2.*cos(theta)-45.))*omega*cos(theta)*G[2]+.2327105670*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^2*cos(theta)*G[2]-2.792526803*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^3*cos(theta)*F[2]+.9308422680*exp(-.1111111111*omega*(2.*cos(theta)+27.))*omega^3*cos(theta)*G[2]-.3102807560*exp(-.1111111111*omega*(2.*cos(theta)+45.))*omega^4*cos(theta)*G[2]+.3102807560*exp(-.1111111111*omega*(2.*cos(theta)-9.))*omega^4*cos(theta)*G[2]+.2327105670*exp(-.1111111111*omega*(2.*cos(theta)+45.))*omega^2*cos(theta)*G[2]+13.96263402*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^3*cos(theta)*F[2]-.9308422680*exp(-.1111111111*omega*(2.*cos(theta)+9.))*omega^3*cos(theta)*G[2]+5.235987755*exp(-.2222222222*omega*(cos(theta)+9.))*omega^3*cos(theta)*H[3]+.5235987760*exp(-.2222222222*omega*(cos(theta)+18.))*omega^3*cos(theta)*J[3]+.6981317013*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega*cos(theta)*F[2]+.1163552835*exp(.1111111111*omega*(2.*cos(theta)-27.))*omega*cos(theta)*G[2]+9.424777960*exp(-.2222222222*omega*(cos(theta)+18.))*omega^3*cos(theta)*H[3]-2.094395101*exp(-.2222222222*omega*(cos(theta)+18.))*omega^4*cos(theta)*H[3]+.6981317013*exp(-.2222222222*omega*(cos(theta)+18.))*omega^4*cos(theta)*J[3]+2.443460953*exp(-.2222222222*omega*(cos(theta)+9.))*omega^2*cos(theta)*H[3]+.4072434923*exp(-.2222222222*omega*(cos(theta)+9.))*omega^2*cos(theta)*J[3]+0.5817764175e-1*exp(.2222222222*omega*(cos(theta)-18.))*omega^2*cos(theta)*J[3]+.6981317013*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega*cos(theta)*F[2]+.1163552835*exp(.1111111111*omega*(2.*cos(theta)-9.))*omega*cos(theta)*G[2]+.3490658504*exp(.2222222222*omega*(cos(theta)-9.))*omega*cos(theta)*H[3]+0.5817764175e-1*exp(.2222222222*omega*(cos(theta)-9.))*omega*cos(theta)*J[3]-.3490658504*exp(.2222222222*omega*(cos(theta)-18.))*omega*cos(theta)*H[3]-0.5817764175e-1*exp(.2222222222*omega*(cos(theta)-18.))*omega*cos(theta)*J[3]-.3490658504*exp(.2222222222*omega*(cos(theta)-27.))*omega*cos(theta)*H[3]-0.5817764175e-1*exp(.2222222222*omega*(cos(theta)-27.))*omega*cos(theta)*J[3]))*cos((2/9)*omega*sin(theta))/(-16.*omega^2+exp(4*omega)-2.+exp(-4.*omega))]:
t:=coeff(t1,A);
 

## but i'm getting the error "Error, unable to compute coeff". Please help me!