%fig1

%s1=sbeta./sgamma; sg= with gamma; sb= with beta; c=etar./eta;

%sigma=a./b;ur=uhat;

r=0.4:0.000001:1;

b1=0.0;b2=0.0;s=10000;sb=0;s1=sb./s;j=0;EZ=1;zeta0=-1;beta=1;i=(-1).^(1./2);

alpha=0.628; sigma=0.4; ur=0;

k=10;c=0.0000001;

%k1=k.^2.*zeta0./(1+c);

k1=k.^2.*zeta0./(1+c);

T1=(1+c)./(2.*s.*(i.*alpha.^2.*j-4.*c));

T2=(4.*s.*c-i.*alpha.^2)./(1+c);

r11=(4.*s.*c+i.*alpha.^2.*(c-j.*s.*(1+c)))./(c.*(1+c));r22=alpha.^2.*s.*(4.*i.*c+alpha.^2.*j)./(c.*(1+c));

alpha11=((1./2).*(r11+(r11.^2-4.*r22).^(1./2))).^(1./2);alpha12=-((1./2).*(r11+(r11.^2-4.*r22).^(1./2))).^(1./2);

alpha22=((1./2).*(r11-(r11.^2-4.*r22).^(1./2))).^(1./2);alpha21=-((1./2).*(r11-(r11.^2-4.*r22).^(1./2))).^(1./2);

KK=-(k1.*(k.^2-s.*(4-i.*alpha.^2.*j.*c.^(-1))))./(k.^4-(r11).*k.^2+r22);

A1=(beta*besselk(0, k)-besselk(0, k.* sigma))./(besseli(0, k.* sigma).*besselk(0, k )-besselk(0, k.* sigma).*besseli(0, k));

B1=(besseli(0, k.* sigma)-beta.*besseli(0, k))./(besseli(0, k.* sigma).*besselk(0, k )-besselk(0, k.* sigma).*besseli(0, k));

c1 = (((T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((-T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ) .* ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))))) ./ (((-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) - (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) .* (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) - (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)));

c2 = (((-T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ) .* ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))))) ./ (((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) - (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)));

c3 = (((T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((-T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) - ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ)) ./ (((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) - (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) .* ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) - ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)));

c4 = (((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ) .* ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))))) ./ (((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) .* ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))));

u1 = c1 .* besselk(0, alpha11 .* r) + c2 .* besseli(0, alpha12 .* r) + c3 .* besselk(0, alpha22 .* r) + c4 .* besseli(0, alpha21 .* r) + KK .* EZ .* A1 .* besseli(0, k .* r) + KK .* EZ .* B1 .* besselk(0, k .* r) + ur ./ (i*alpha .^ 2);

%nu1 = -T1 .* alpha11 .* besselk(1, alpha11 .* r) .* (alpha11 .^ 2 + T2) .* c1 + T1 .* alpha12 .* besseli(1, alpha12 .* r) .* (alpha12 .^ 2 + T2) .* c2 - T1 .* alpha22 .* besselk(1, alpha22 .* r) .* (alpha22 .^ 2 + T2) .* c3 + T1 .* alpha21 .* besseli(1, alpha21 .* r) .* (alpha21 .^ 2 + T2) .* c4 + T1 .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(1, k .* r) - B1 .* besselk(1, k .* r));

%tr1 = -besselk(1, alpha11 .* r) .* alpha11 .* (2 .* T1 .* c .* alpha11 .^ 2 + 2 .* T1 .* T2 .* c + c + 1) .* c1 + besseli(1, alpha12 .* r) .* alpha12 .* (2 .* T1 .* c .* alpha12 .^ 2 + 2 .* T1 .* T2 .* c + c + 1) .* c2 - besselk(1, alpha22 .* r) .* alpha22 .* (2 .* T1 .* c .* alpha22 .^ 2 + 2 .* T1 .* T2 .* c + c + 1) .* c3 + besseli(1, alpha21 .* r) .* alpha21 .* (2 .* T1 .* c .* alpha21 .^ 2 + 2 .* T1 .* T2 .* c + c + 1) .* c4 + EZ .* k .* (2 .* KK .* T1 .* c .* k .^ 2 + 2 .* KK .* T1 .* T2 .* c + 2 .* T1 .* c .* k1 + KK .* c + KK) .* (A1 .* besseli(1, k .* r) - B1 .* besselk(1, k .* r));

%m1 = T1 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* r) .* alpha11 .* r + s1 .* besselk(1, alpha11 .* r) + besselk(1, alpha11 .* r)) ./ r .* c1 - T1 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* r) .* alpha12 .* r + s1 .* besseli(1, alpha12 .* r) + besseli(1, alpha12 .* r)) ./ r .* c2 + T1 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* r) .* alpha22 .* r + s1 .* besselk(1, alpha22 .* r) + besselk(1, alpha22 .* r)) ./ r .* c3 - T1 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* r) .* alpha21 .* r + s1 .* besseli(1, alpha21 .* r) + besseli(1, alpha21 .* r)) ./ r .* c4 - T1 .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* r) .* k .* r - B1 .* besselk(0, k .* r) .* k .* r + A1 .* besseli(1, k .* r) .* s1 - B1 .* besselk(1, k .* r) .* s1 + A1 .* besseli(1, k .* r) - B1 .* besselk(1, k .* r)) ./ r;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

k=40;c=0.0000001;

k1=k.^2.*zeta0./(1+c);

T1=(1+c)./(2.*s.*(i.*alpha.^2.*j-4.*c));

T2=(4.*s.*c-i.*alpha.^2)./(1+c);

r11=(4.*s.*c+i.*alpha.^2.*(c-j.*s.*(1+c)))./(c.*(1+c));r22=alpha.^2.*s.*(4.*i.*c+alpha.^2.*j)./(c.*(1+c));

alpha11=((1./2).*(r11+(r11.^2-4.*r22).^(1./2))).^(1./2);alpha12=-((1./2).*(r11+(r11.^2-4.*r22).^(1./2))).^(1./2);

alpha22=((1./2).*(r11-(r11.^2-4.*r22).^(1./2))).^(1./2);alpha21=-((1./2).*(r11-(r11.^2-4.*r22).^(1./2))).^(1./2);

KK=-(k1.*(k.^2-s.*(4-i.*alpha.^2.*j.*c.^(-1))))./(k.^4-(r11).*k.^2+r22);

A1=(beta*besselk(0, k)-besselk(0, k.* sigma))./(besseli(0, k.* sigma).*besselk(0, k )-besselk(0, k.* sigma).*besseli(0, k));

B1=(besseli(0, k.* sigma)-beta.*besseli(0, k))./(besseli(0, k.* sigma).*besselk(0, k )-besselk(0, k.* sigma).*besseli(0, k));

c1 = (((T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((-T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ) .* ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))))) ./ (((-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) - (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) .* (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) - (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)));

c2 = (((-T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ) .* ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))))) ./ (((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) - (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)));

c3 = (((T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((-T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) - ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ)) ./ (((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) - (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) .* ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) - ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)));

c4 = (((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ) .* ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))))) ./ (((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) .* ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))));

u2 = c1 .* besselk(0, alpha11 .* r) + c2 .* besseli(0, alpha12 .* r) + c3 .* besselk(0, alpha22 .* r) + c4 .* besseli(0, alpha21 .* r) + KK .* EZ .* A1 .* besseli(0, k .* r) + KK .* EZ .* B1 .* besselk(0, k .* r) + ur ./ (i.*alpha .^ 2);

%nu1 = -T1 .* alpha11 .* besselk(1, alpha11 .* r) .* (alpha11 .^ 2 + T2) .* c1 + T1 .* alpha12 .* besseli(1, alpha12 .* r) .* (alpha12 .^ 2 + T2) .* c2 - T1 .* alpha22 .* besselk(1, alpha22 .* r) .* (alpha22 .^ 2 + T2) .* c3 + T1 .* alpha21 .* besseli(1, alpha21 .* r) .* (alpha21 .^ 2 + T2) .* c4 + T1 .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(1, k .* r) - B1 .* besselk(1, k .* r));

%tr1 = -besselk(1, alpha11 .* r) .* alpha11 .* (2 .* T1 .* c .* alpha11 .^ 2 + 2 .* T1 .* T2 .* c + c + 1) .* c1 + besseli(1, alpha12 .* r) .* alpha12 .* (2 .* T1 .* c .* alpha12 .^ 2 + 2 .* T1 .* T2 .* c + c + 1) .* c2 - besselk(1, alpha22 .* r) .* alpha22 .* (2 .* T1 .* c .* alpha22 .^ 2 + 2 .* T1 .* T2 .* c + c + 1) .* c3 + besseli(1, alpha21 .* r) .* alpha21 .* (2 .* T1 .* c .* alpha21 .^ 2 + 2 .* T1 .* T2 .* c + c + 1) .* c4 + EZ .* k .* (2 .* KK .* T1 .* c .* k .^ 2 + 2 .* KK .* T1 .* T2 .* c + 2 .* T1 .* c .* k1 + KK .* c + KK) .* (A1 .* besseli(1, k .* r) - B1 .* besselk(1, k .* r));

%m1 = T1 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* r) .* alpha11 .* r + s1 .* besselk(1, alpha11 .* r) + besselk(1, alpha11 .* r)) ./ r .* c1 - T1 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* r) .* alpha12 .* r + s1 .* besseli(1, alpha12 .* r) + besseli(1, alpha12 .* r)) ./ r .* c2 + T1 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* r) .* alpha22 .* r + s1 .* besselk(1, alpha22 .* r) + besselk(1, alpha22 .* r)) ./ r .* c3 - T1 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* r) .* alpha21 .* r + s1 .* besseli(1, alpha21 .* r) + besseli(1, alpha21 .* r)) ./ r .* c4 - T1 .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* r) .* k .* r - B1 .* besselk(0, k .* r) .* k .* r + A1 .* besseli(1, k .* r) .* s1 - B1 .* besselk(1, k .* r) .* s1 + A1 .* besseli(1, k .* r) - B1 .* besselk(1, k .* r)) ./ r;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

k=70;c=.0000001;

k1=k.^2.*zeta0./(1+c);

T1=(1+c)./(2.*s.*(i.*alpha.^2.*j-4.*c));

T2=(4.*s.*c-i.*alpha.^2)./(1+c);

r11=(4.*s.*c+i.*alpha.^2.*(c-j.*s.*(1+c)))./(c.*(1+c));r22=alpha.^2.*s.*(4.*i.*c+alpha.^2.*j)./(c.*(1+c));

alpha11=((1./2).*(r11+(r11.^2-4.*r22).^(1./2))).^(1./2);alpha12=-((1./2).*(r11+(r11.^2-4.*r22).^(1./2))).^(1./2);

alpha22=((1./2).*(r11-(r11.^2-4.*r22).^(1./2))).^(1./2);alpha21=-((1./2).*(r11-(r11.^2-4.*r22).^(1./2))).^(1./2);

KK=-(k1.*(k.^2-s.*(4-i.*alpha.^2.*j.*c.^(-1))))./(k.^4-(r11).*k.^2+r22);

A1=(beta*besselk(0, k)-besselk(0, k.* sigma))./(besseli(0, k.* sigma).*besselk(0, k )-besselk(0, k.* sigma).*besseli(0, k));

B1=(besseli(0, k.* sigma)-beta.*besseli(0, k))./(besseli(0, k.* sigma).*besselk(0, k )-besselk(0, k.* sigma).*besseli(0, k));

c1 = (((T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((-T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ) .* ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))))) ./ (((-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) - (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) .* (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) - (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)));

c2 = (((-T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ) .* ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))))) ./ (((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) - (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)));

c3 = (((T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((-T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) - ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ)) ./ (((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) - (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) .* ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) - ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)));

c4 = (((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ) .* ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))))) ./ (((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) .* ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))));

u3 = c1 .* besselk(0, alpha11 .* r) + c2 .* besseli(0, alpha12 .* r) + c3 .* besselk(0, alpha22 .* r) + c4 .* besseli(0, alpha21 .* r) + KK .* EZ .* A1 .* besseli(0, k .* r) + KK .* EZ .* B1 .* besselk(0, k .* r) + ur ./ (i.*alpha .^ 2);

%nu1 = -T1 .* alpha11 .* besselk(1, alpha11 .* r) .* (alpha11 .^ 2 + T2) .* c1 + T1 .* alpha12 .* besseli(1, alpha12 .* r) .* (alpha12 .^ 2 + T2) .* c2 - T1 .* alpha22 .* besselk(1, alpha22 .* r) .* (alpha22 .^ 2 + T2) .* c3 + T1 .* alpha21 .* besseli(1, alpha21 .* r) .* (alpha21 .^ 2 + T2) .* c4 + T1 .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(1, k .* r) - B1 .* besselk(1, k .* r));

%tr1 = -besselk(1, alpha11 .* r) .* alpha11 .* (2 .* T1 .* c .* alpha11 .^ 2 + 2 .* T1 .* T2 .* c + c + 1) .* c1 + besseli(1, alpha12 .* r) .* alpha12 .* (2 .* T1 .* c .* alpha12 .^ 2 + 2 .* T1 .* T2 .* c + c + 1) .* c2 - besselk(1, alpha22 .* r) .* alpha22 .* (2 .* T1 .* c .* alpha22 .^ 2 + 2 .* T1 .* T2 .* c + c + 1) .* c3 + besseli(1, alpha21 .* r) .* alpha21 .* (2 .* T1 .* c .* alpha21 .^ 2 + 2 .* T1 .* T2 .* c + c + 1) .* c4 + EZ .* k .* (2 .* KK .* T1 .* c .* k .^ 2 + 2 .* KK .* T1 .* T2 .* c + 2 .* T1 .* c .* k1 + KK .* c + KK) .* (A1 .* besseli(1, k .* r) - B1 .* besselk(1, k .* r));

%m1 = T1 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* r) .* alpha11 .* r + s1 .* besselk(1, alpha11 .* r) + besselk(1, alpha11 .* r)) ./ r .* c1 - T1 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* r) .* alpha12 .* r + s1 .* besseli(1, alpha12 .* r) + besseli(1, alpha12 .* r)) ./ r .* c2 + T1 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* r) .* alpha22 .* r + s1 .* besselk(1, alpha22 .* r) + besselk(1, alpha22 .* r)) ./ r .* c3 - T1 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* r) .* alpha21 .* r + s1 .* besseli(1, alpha21 .* r) + besseli(1, alpha21 .* r)) ./ r .* c4 - T1 .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* r) .* k .* r - B1 .* besselk(0, k .* r) .* k .* r + A1 .* besseli(1, k .* r) .* s1 - B1 .* besselk(1, k .* r) .* s1 + A1 .* besseli(1, k .* r) - B1 .* besselk(1, k .* r)) ./ r;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

k=100;c=.0000001;

k1=k.^2.*zeta0./(1+c);

T1=(1+c)./(2.*s.*(i.*alpha.^2.*j-4.*c));

T2=(4.*s.*c-i.*alpha.^2)./(1+c);

r11=(4.*s.*c+i.*alpha.^2.*(c-j.*s.*(1+c)))./(c.*(1+c));r22=alpha.^2.*s.*(4.*i.*c+alpha.^2.*j)./(c.*(1+c));

alpha11=((1./2).*(r11+(r11.^2-4.*r22).^(1./2))).^(1./2);alpha12=-((1./2).*(r11+(r11.^2-4.*r22).^(1./2))).^(1./2);

alpha22=((1./2).*(r11-(r11.^2-4.*r22).^(1./2))).^(1./2);alpha21=-((1./2).*(r11-(r11.^2-4.*r22).^(1./2))).^(1./2);

KK=-(k1.*(k.^2-s.*(4-i.*alpha.^2.*j.*c.^(-1))))./(k.^4-(r11).*k.^2+r22);

A1=(beta*besselk(0, k)-besselk(0, k.* sigma))./(besseli(0, k.* sigma).*besselk(0, k )-besselk(0, k.* sigma).*besseli(0, k));

B1=(besseli(0, k.* sigma)-beta.*besseli(0, k))./(besseli(0, k.* sigma).*besselk(0, k )-besselk(0, k.* sigma).*besseli(0, k));

c1 = (((T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((-T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ) .* ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))))) ./ (((-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) - (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) .* (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) - (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)));

c2 = (((-T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ) .* ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))))) ./ (((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) - (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)));

c3 = (((T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((-T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) - ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ)) ./ (((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) - (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) .* ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) - ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)));

c4 = (((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) + T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (A1 .* besseli(0, k) .* b2 .* k - A1 .* besseli(1, k) .* b2 .* s1 + B1 .* besselk(0, k) .* b2 .* k + B1 .* besselk(1, k) .* b2 .* s1 - A1 .* besseli(1, k) .* b2 + B1 .* besselk(1, k) .* b2 + A1 .* besseli(1, k) - B1 .* besselk(1, k)) - T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)) .* EZ .* k .* (KK .* k .^ 2 + KK .* T2 + k1) .* (-A1 .* besseli(0, k .* sigma) .* b2 .* k .* sigma - B1 .* besselk(0, k .* sigma) .* b2 .* k .* sigma + A1 .* besseli(1, k .* sigma) .* b2 .* s1 - B1 .* besselk(1, k .* sigma) .* b2 .* s1 + A1 .* besseli(1, k .* sigma) .* b2 + A1 .* besseli(1, k .* sigma) .* sigma - B1 .* besselk(1, k .* sigma) .* b2 - B1 .* besselk(1, k .* sigma) .* sigma) ./ sigma) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-ur ./ i ./ alpha .^ 2 - (2 .* A1 .* KK .* besseli(1, k) .* T1 .* b1 .* c .* k .^ 3 - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* b1 .* c .* k .^ 3 + 2 .* A1 .* KK .* besseli(1, k) .* T1 .* T2 .* b1 .* c .* k - 2 .* B1 .* KK .* besselk(1, k) .* T1 .* T2 .* b1 .* c .* k + 2 .* A1 .* besseli(1, k) .* T1 .* b1 .* c .* k .* k1 - 2 .* B1 .* besselk(1, k) .* T1 .* b1 .* c .* k .* k1 + A1 .* KK .* besseli(1, k) .* b1 .* c .* k - B1 .* KK .* besselk(1, k) .* b1 .* c .* k + A1 .* KK .* besseli(1, k) .* b1 .* k - B1 .* KK .* besselk(1, k) .* b1 .* k + A1 .* KK .* besseli(0, k) + B1 .* KK .* besselk(0, k)) .* EZ) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + (-ur ./ i ./ alpha .^ 2 - (-2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .^ 3 - 2 .* A1 .* KK .* besseli(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k + 2 .* B1 .* KK .* besselk(1, k .* sigma) .* T1 .* T2 .* b1 .* c .* k - 2 .* A1 .* besseli(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 + 2 .* B1 .* besselk(1, k .* sigma) .* T1 .* b1 .* c .* k .* k1 - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* c .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* c .* k - A1 .* KK .* besseli(1, k .* sigma) .* b1 .* k + B1 .* KK .* besselk(1, k .* sigma) .* b1 .* k + A1 .* KK .* besseli(0, k .* sigma) + B1 .* KK .* besselk(0, k .* sigma)) .* EZ) .* ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))))) ./ (((-T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)))) .* (2 .* besselk(1, alpha11 .* sigma) .* T1 .* alpha11 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha11 .* sigma) .* T1 .* T2 .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 .* c + besselk(1, alpha11 .* sigma) .* alpha11 .* b1 + besselk(0, alpha11 .* sigma)) + ((T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) - (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (-2 .* besseli(1, alpha12 .* sigma) .* T1 .* alpha12 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha12 .* sigma) .* T1 .* T2 .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 .* c - besseli(1, alpha12 .* sigma) .* alpha12 .* b1 + besseli(0, alpha12 .* sigma)) + ((T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) - T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha21 .* (alpha21 .^ 2 + T2) .* (besseli(0, alpha21) .* alpha21 .* b2 - besseli(1, alpha21) .* b2 .* s1 - besseli(1, alpha21) .* b2 + besseli(1, alpha21)) + T1 .^ 2 .* alpha21 .* (alpha21 .^ 2 + T2) .* (-besseli(0, alpha21 .* sigma) .* alpha21 .* b2 .* sigma + besseli(1, alpha21 .* sigma) .* b2 .* s1 + besseli(1, alpha21 .* sigma) .* b2 + besseli(1, alpha21 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) + (2 .* besseli(1, alpha21) .* T1 .* alpha21 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha21) .* T1 .* T2 .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 .* c + besseli(1, alpha21) .* alpha21 .* b1 + besseli(0, alpha21)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))) .* (2 .* besselk(1, alpha22 .* sigma) .* T1 .* alpha22 .^ 3 .* b1 .* c + 2 .* besselk(1, alpha22 .* sigma) .* T1 .* T2 .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 .* c + besselk(1, alpha22 .* sigma) .* alpha22 .* b1 + besselk(0, alpha22 .* sigma)) + (-2 .* besseli(1, alpha21 .* sigma) .* T1 .* alpha21 .^ 3 .* b1 .* c - 2 .* besseli(1, alpha21 .* sigma) .* T1 .* T2 .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 .* c - besseli(1, alpha21 .* sigma) .* alpha21 .* b1 + besseli(0, alpha21 .* sigma)) .* ((-T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) - T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12))) .* (-2 .* besselk(1, alpha11) .* T1 .* alpha11 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha11) .* T1 .* T2 .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 .* c - besselk(1, alpha11) .* alpha11 .* b1 + besselk(0, alpha11)) + (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22) .* alpha22 .* b2 + besselk(1, alpha22) .* b2 .* s1 + besselk(1, alpha22) .* b2 - besselk(1, alpha22)) + T1 .^ 2 .* alpha22 .* (alpha22 .^ 2 + T2) .* (besselk(0, alpha22 .* sigma) .* alpha22 .* b2 .* sigma + besselk(1, alpha22 .* sigma) .* b2 .* s1 + besselk(1, alpha22 .* sigma) .* b2 + besselk(1, alpha22 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11))) .* (2 .* besseli(1, alpha12) .* T1 .* alpha12 .^ 3 .* b1 .* c + 2 .* besseli(1, alpha12) .* T1 .* T2 .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 .* c + besseli(1, alpha12) .* alpha12 .* b1 + besseli(0, alpha12)) - (-2 .* besselk(1, alpha22) .* T1 .* alpha22 .^ 3 .* b1 .* c - 2 .* besselk(1, alpha22) .* T1 .* T2 .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 .* c - besselk(1, alpha22) .* alpha22 .* b1 + besselk(0, alpha22)) .* (-T1 .^ 2 .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11 .* sigma) .* alpha11 .* b2 .* sigma + besselk(1, alpha11 .* sigma) .* b2 .* s1 + besselk(1, alpha11 .* sigma) .* b2 + besselk(1, alpha11 .* sigma) .* sigma) ./ sigma .* alpha12 .* (alpha12 .^ 2 + T2) .* (besseli(0, alpha12) .* alpha12 .* b2 - besseli(1, alpha12) .* b2 .* s1 - besseli(1, alpha12) .* b2 + besseli(1, alpha12)) - T1 .^ 2 .* alpha12 .* (alpha12 .^ 2 + T2) .* (-besseli(0, alpha12 .* sigma) .* alpha12 .* b2 .* sigma + besseli(1, alpha12 .* sigma) .* b2 .* s1 + besseli(1, alpha12 .* sigma) .* b2 + besseli(1, alpha12 .* sigma) .* sigma) ./ sigma .* alpha11 .* (alpha11 .^ 2 + T2) .* (besselk(0, alpha11) .* alpha11 .* b2 + besselk(1, alpha11) .* b2 .* s1 + besselk(1, alpha11) .* b2 - besselk(1, alpha11)))));

u4 = c1 .* besselk(0, alpha11 .* r) + c2 .* besseli(0, alpha12 .* r) + c3 .* besselk(0, alpha22 .* r) + c4 .* besseli(0, alpha21 .* r) + KK .* EZ .* A1 .* besseli(0, k .* r) + KK .* EZ .* B1 .* besselk(0, k .* r) + ur ./ (i.*alpha .^ 2);

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

T = table2array(u1);

How can I draw Steiner trees of hypercubes in graph theory? 

With the following steps

S1: Open Help pressing F1

S2: enter `if in the search field

S3: click a topic in the result list

S4: search within the topic with find/replace (Crtl f) the term `if 

I get plenty of results where I cannot find the search term in the help topic. Why is that?

Is help ignoring the left single quotes ` ?

I don't think so: I get usefull results for `` and `i, which in the later case also lists the topic "ifelse" that contains `if in the textbody.

So, why does advanced searching with the exact phrase "`if" not list the "ifelse" topic?

Realted question:

Why does the search term "(* " not list the relevant help topic help(comment)?

Somehow related in the context of getting more specific results:

https://www.mapleprimes.com/questions/234462-Searching-The-Help-System-Why-Are-There-No-Hits-For-Solve

Are there any restrictions regarding path and filename length in Maple?

I am experiencing problems working with a file on a server, path and file length is 207 characters.

Maple 2022.2

> restart
> expr = x^{^4}-10*x^{^2}+1
> plot(expr)

produces an error message:
com.maplesoft.maplets.ComponentAccessException: not a valid plot structure

plot(expr, x) works Ok.

Tom Dean

How I can solve a PDE on two regions with matching conditions at the common boundary?  

T1.mw

Can MapleSim simulate a situation where a cable passes through a hole in an object, where the cable is constrained by the hole and the object also experiences forces from the cable because of the hole?

How would I solve for the product of two terms ( s*V or s^2*V). This is a simple example but I would be applying this on much higher order equations.

     V = Vx/(a*s^2 + b*s + c)

Hello, 

What would be the procedure to find the eigenvalues for a coupled harmonic oscillators characterized by eigenvalue E1 and E2? Are they treated as parameters in the numerical solution of the system of ode?

thanks in advance 

How to plot this equation

 y(x):=

where,

A := Matrix([[1, -1, 1, -1], [1, 1, -1, -1], [-1, 1, 1, -1], [1, 1, 1, 1]]);
B := Matrix([[1], [0], [1], [0]])

As a part of my learning curve, I am trying to play with extending Maple's BernsteinBasis, which has only a limited support right now (BernsteinBasis - Maple Help (maplesoft.com)).

My goal is to implement basis operation on polynomials in Bernstein basis, so that derivatives, integrals and products of polynomials in  BernsteinBasis would be again expressed in BernsteinBasis.

While it looks like it is relatively easy to extend diff procedure, by using `diff/BernsteinBasis`, I didn't find anything similar for the int. Is there something like `int/BernsteinBasis`?

The problem is that when I am trying to implement my own int procedure in a module that  would extend standard int, it seems I need to manually implement logic for (at very least) linearity, so that int(p(x) + q(x), x) would decay into int(p(x), x) + int(q(x), x ) (I probably don't need more complex rewriting rules). So before trying this approach, is there any easy way such as with diff?
 

BernsteinPolynomials := module()
    description "Basic operations in Bernstein basis";
	option package;
	global BernsteinBasis, `diff/BernsteinBasis`;
	export int;

	BernsteinBasis := proc(k, n, a, b, x)
		description "Bernstein basis polynomial";
		if k::numeric then
			if k < 0 then 
				return 0;
			end if
		end if;
		if n::numeric then
			if n < 0 then 
				return 0; 
			end if;
			if k::numeric then
				if k > n then
					return 0;
				end if;
			end if;
		end if;
		'procname'(_passed)
	end proc;

	`diff/BernsteinBasis` := proc()
		description "Derivative of the Bernstein basis polynomial in the Bernstein basis";
		if _npassed = 6 then
			if _passed[-1] = _passed[-2] then
				_passed[2] * BernsteinBasis(_passed[1] - 1, _passed[2] - 1, _passed[3], _passed[4], _passed[5]) / (_passed[4] - _passed[3]) -
				_passed[2] * BernsteinBasis(_passed[1], _passed[2] - 1, _passed[3], _passed[4], _passed[5]) / (_passed[4] - _passed[3]);
			end if;
		end if;
	end proc;
	
	int := proc()
		description "Integral of the Bernstein basis polynomial in the Bernstein basis";
		if type(_passed[1], 'specfunc'(anything, BernsteinBasis)) then
		    print("Will be implemented here...");
		end if;
		:-int(_passed)
	end proc;

end module;

Download bernstein.mw

In my code, without knowing what the expression is, other than it has RootOf, the code called allvalues and got internal error 

Error, (in SolveTools:-Basis) invalid input: igcd received 5/7, which is not valid for its 2nd argument

Is this to be expected depending on the input, or is this some internal problem I need to report?

restart;
expr:=RootOf(R^4*b+R^2*a*_Z+2*_Z^2-exp(RootOf(tanh(1/2*(a^2-8*b)^(1/2)*(4*S-_Z)/a)^2*R^4*a^2-8*tanh(1/2*(a^2-8*b)^(1/2)*(4*S-_Z)/a)^2*R^4*b-R^4*a^2+8*R^4*b-8*exp(_Z))))

allvalues(expr)

Error, (in SolveTools:-Basis) invalid input: igcd received 5/7, which is not valid for its 2nd argument

Maple 2023.2 on windows 10

ps.  Reported to Maplesoft

Download ex.mw

Can anyone help me factor this thing out, so I ll get an irreductible result?

x2 := 2*u - 2/3*(a - 1)*(a + 1)*u^3 + (26/45*a^4 - 4/9*a^2 + 26/45)*u^5 + O(u^6)

In an old question, @mbras asked for a "partial" `convert/elsymfun`. However, SymPy's sympy.polys.rings.PolyElement.symmetrize seems to provide more examples that cannot be handled by the program that appeared in that question.
For instance, 

>>> from sympy import var
>>> var('x:z,p:r')
(x, y, z, p, q, r)
>>> from sympy.polys.polyfuncs import symmetrize
>>> symmetrize(x**2-(y**2+2**z),[y,x],formal=True,symbols=[p+p,q*q])[0]
-2**z - 4*p**2 + 2*q**2
>>> symmetrize(x*x*y+y*y*z+z*z*x,[y,x,z],formal=True,symbols=[p,q,r])
(0, x**2*y + x*z**2 + y**2*z, [(p, x + y + z), (q, x*y + x*z + y*z), (r, x*y*z)])

Though I can , can't the built-in  be generalized to such expressions (in other words, write the polynomial part of input as a symmetric part and a remainder with (named, if need be) elementary symmetric polynomials)?

Besides, since any symmetric polynomial can also be expressed in terms of the complete symmetric polynomials, is there a similar  command in Maple?