γ1=-(-1+α1+γ^2)*(5+α1+5γ^2)^(1/2)/(4*(2α2)^(1/2));
γ2=-3*(γ^4*(5+α1+5γ^2)/α2)^(1/2)/(2*2^(1/2)*γ);
γ3=(-1+α1+γ^2)/((2α2)^(1/2));
γ4=γ*(5+α1+5γ^2)/(2(2α2)^(1/2));
γ5=3*(2^(1/2)γ^2)/α2;
γ6=((γ^2(5+α1+5γ^2))/(1+α1+34γ^2-α1*γ^2+γ^4))^(1/2)*(-2-2α1+17γ^2-3α1*γ^2+3γ^4)/(4*(3+2γ^2+3γ^4));
γ7=-((γ^2*(5+α1+5γ^2))/(1+α1+34γ^2-α1*γ^2+γ^4))^(1/2)*(1+α1-γ^2+6γ^4)/(4γ*(3+2γ^2+3γ^4));
γ8=-3*((γ^2(5+α1+5γ^2))/(1+α1+34γ^2-α1*γ^2+γ^4))^(1/2)*(5-α1+5γ^2)/(4*(3+2γ^2+3γ^4);
γ9=(1+α1-γ^2)/(4γ*(34-α1+((1+α1)/γ^2)+γ^2)^(1/2));
γ10=3/(2*(34-α1+((1+α1)/γ^2))+γ^2)^(1/2));α1=(1+34γ^2+γ^4)^(1/2);α2=2-2α1+71γ^2+17α1*γ^2+104γ^4+3α1*γ^4+3γ^6;
k1=(2*(3*γ10*γ4+3γ1*γ7+γ2*γ8+γ3*γ9)*(γ10*γ5+γ1*γ6+3*γ2*γ7+3*γ4*γ9)+γ*(γ10^2*(9γ4^2+γ5^2)+9γ2^2*γ7^2+γ1^2*(γ6^2+9γ7^2)+γ2^2*γ8^2+18γ2*γ4*γ7*γ9+2γ2*γ3*γ8*γ9+γ3^2*γ9^2+9γ4^2*γ9^2+6*γ1*(γ2*γ7(γ6+γ8)+(γ4*γ6+γ3*γ7)*γ9)+2*γ10*(γ1*(γ5*γ6+9γ4*γ7)+3*(γ2*(γ5*γ7+γ4*γ8)+γ4*(γ3+γ5)γ9))))/(γ10^2*(9γ4^2+6γ*γ4*γ5+γ5^2)+9*γ2^2*γ7^2+γ1^2*(γ6^2+6γ*γ6*γ7+9γ7^2)+6γ*γ2^2*γ7*γ8+γ2^2*γ8^2+6γ*γ2*γ3*γ7*γ9+18*γ2*γ4*γ7*γ9+2γ2*γ3*γ8*γ9+6γ*γ2*γ4*γ8*γ9+γ3^2*γ9^2+6γ*γ3*γ4*γ9^2+9*γ4^2*γ9^2+2*γ1*(γ2*(3*γ7*(3*γ*γ7+γ8)+γ6*(3*γ7+γ*γ8))+(γ*γ3*γ6+3*γ4*γ6+3*γ3*γ7+9γ*γ4*γ7)*γ9)+2γ10*(γ1*(γ5*γ6+9*γ4*γ7)+γ*(9*γ2*γ4*γ7+3*γ1*(γ4*γ6+γ5*γ7)+γ2*γ5*γ8+9*γ4^2*γ9+γ3*γ5*γ9)+3*(γ2*(γ5*γ7+γ4*γ8)+γ4*(γ3+γ5)*γ9)));
k2=k1/.γ->k1
A12=2Abs[3*γ1*γ4+γ2*γ5]+2Abs[γ1*γ3+3*γ2*γ4]A23=2Abs[2*γ1*γ2+γ3*γ4+γ4*γ5]+2Abs[γ1^2+γ2^2+2γ4^2]
Plot[A12,{γ,-10,10}]
Plot[A23,{γ,-30,30}]
B12=A12/.γ->k1
B23=A23/.γ->k1
b12=Table[B12,{γ,-10,10}]
b23=Table[B23,{γ,-30,30}]
ListPlot[b12]ListPlot[b23]
C12=A12/.γ->k2
C23=A23/.γ->k2
c12=Table[C12,{γ,-10,10}]
c23=Table[C23,{γ,-30,30}]
ListPlot[c12]
ListPlot[c23]


γ2=-3*(γ^4*(5+α1+5γ^2)/α2)^(1/2)/(2*2^(1/2)*γ);
γ3=(-1+α1+γ^2)/((2α2)^(1/2));
γ4=γ*(5+α1+5γ^2)/(2(2α2)^(1/2));
γ5=3*(2^(1/2)γ^2)/α2;
γ6=((γ^2(5+α1+5γ^2))/(1+α1+34γ^2-α1*γ^2+γ^4))^(1/2)*(-2-2α1+17γ^2-3α1*γ^2+3γ^4)/(4*(3+2γ^2+3γ^4));
γ7=-((γ^2*(5+α1+5γ^2))/(1+α1+34γ^2-α1*γ^2+γ^4))^(1/2)*(1+α1-γ^2+6γ^4)/(4γ*(3+2γ^2+3γ^4));
γ8=-3*((γ^2(5+α1+5γ^2))/(1+α1+34γ^2-α1*γ^2+γ^4))^(1/2)*(5-α1+5γ^2)/(4*(3+2γ^2+3γ^4);
γ9=(1+α1-γ^2)/(4γ*(34-α1+((1+α1)/γ^2)+γ^2)^(1/2));
γ10=3/(2*(34-α1+((1+α1)/γ^2))+γ^2)^(1/2));α1=(1+34γ^2+γ^4)^(1/2);α2=2-2α1+71γ^2+17α1*γ^2+104γ^4+3α1*γ^4+3γ^6;
k1=(2*(3*γ10*γ4+3γ1*γ7+γ2*γ8+γ3*γ9)*(γ10*γ5+γ1*γ6+3*γ2*γ7+3*γ4*γ9)+γ*(γ10^2*(9γ4^2+γ5^2)+9γ2^2*γ7^2+γ1^2*(γ6^2+9γ7^2)+γ2^2*γ8^2+18γ2*γ4*γ7*γ9+2γ2*γ3*γ8*γ9+γ3^2*γ9^2+9γ4^2*γ9^2+6*γ1*(γ2*γ7(γ6+γ8)+(γ4*γ6+γ3*γ7)*γ9)+2*γ10*(γ1*(γ5*γ6+9γ4*γ7)+3*(γ2*(γ5*γ7+γ4*γ8)+γ4*(γ3+γ5)γ9))))/(γ10^2*(9γ4^2+6γ*γ4*γ5+γ5^2)+9*γ2^2*γ7^2+γ1^2*(γ6^2+6γ*γ6*γ7+9γ7^2)+6γ*γ2^2*γ7*γ8+γ2^2*γ8^2+6γ*γ2*γ3*γ7*γ9+18*γ2*γ4*γ7*γ9+2γ2*γ3*γ8*γ9+6γ*γ2*γ4*γ8*γ9+γ3^2*γ9^2+6γ*γ3*γ4*γ9^2+9*γ4^2*γ9^2+2*γ1*(γ2*(3*γ7*(3*γ*γ7+γ8)+γ6*(3*γ7+γ*γ8))+(γ*γ3*γ6+3*γ4*γ6+3*γ3*γ7+9γ*γ4*γ7)*γ9)+2γ10*(γ1*(γ5*γ6+9*γ4*γ7)+γ*(9*γ2*γ4*γ7+3*γ1*(γ4*γ6+γ5*γ7)+γ2*γ5*γ8+9*γ4^2*γ9+γ3*γ5*γ9)+3*(γ2*(γ5*γ7+γ4*γ8)+γ4*(γ3+γ5)*γ9)));
k2=k1/.γ->k1
A12=2Abs[3*γ1*γ4+γ2*γ5]+2Abs[γ1*γ3+3*γ2*γ4]A23=2Abs[2*γ1*γ2+γ3*γ4+γ4*γ5]+2Abs[γ1^2+γ2^2+2γ4^2]
Plot[A12,{γ,-10,10}]
Plot[A23,{γ,-30,30}]
B12=A12/.γ->k1
B23=A23/.γ->k1
b12=Table[B12,{γ,-10,10}]
b23=Table[B23,{γ,-30,30}]
ListPlot[b12]ListPlot[b23]
C12=A12/.γ->k2
C23=A23/.γ->k2
c12=Table[C12,{γ,-10,10}]
c23=Table[C23,{γ,-30,30}]
ListPlot[c12]
ListPlot[c23]

