Maple 17 Questions and Posts

These are Posts and Questions associated with the product, Maple 17

Dear all
I have an equation, I would like to dermine the exact solution, but maple return an error 

exact_solution.mw

Thank you

Dear all

I have a data, how can I study this data using N-soft set : Normalized the data, membership function, analyse the risk, ..... compute the risk, interpret the results

Cancer_patient.xlsx

N_soft_set.mw

Thank you for your help

%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 I can solve the error in maple which is ( (in PDEtools:-DeterminingPDE) expected the number of infinitesimals (4) to be equal to the sum of the number of independent (2) and dependent (1) variables; received: 4 <> 2 + 1)

Dear all 

I have a function defined on many sub-intervals, how can I simplify this the funciton obtained at each iteration. I hope obatin B_{i,1}, B_{i,2}, and B_{i,3} 

B_Spline.mw

Thank you 

Dear all

I would like to get the solution of a system : pde with boundary and initial condition. Everything well coded, but the code does not return the solution 

sol_heat.mw

Thanks for your help 

Dear all
I have a boundary value problem, 
How can I solve the problem using maple or maybe we can introduce serie expansion to solve it or something else.

BVP_frac.mw

Thank you for your help 

Dear all 

I have a system of  second order difference equation.

How, can I update the iterate solution and solve the system

System_of_equations.mw

Thank you

Dear all 
I have a PDE, with unknown u(t,x,t) ,  zero boundary condition and initial condition given

I converted the equaiton using finite difference to get a system of algebraic equation 

The system is solved at each time step 
I think i have a problem to update the solution inside the loop. 

I hope find the problem or why the numerical solution is different to exact solution at last time 

System_finite_difference.mw

Thank you for your help 

Dear all

I would like if we can solve a problem of a  field homomorphism between two fields. 

Please, if possible a code that help me to define the homomorphism between finite field. 

homomorphism_finite_field.mw

Thank you 

Dear all

I would like to compute Hardy−Littlewood maximal function : we use polar coordinate for a radial function  and then evalaute integral with respect the radius r 

Hardy_maximal_function.mw

Thank you for your help 

Dear all

I have an equation obtained from partial derivable of some functions, I would like to compute the limit when my variable named Pe goes to infinity. 

I hope to get a more appreciate presentation of my code to obtain the limit (  Pe -> + infty)

limit_infinity.mw

All derivative are well compute, but How can I add the limit as Pe goes to infinity

Thank you 

Dear all

I construct by hand the two matrices L and U so that A= LU ( LU-factorization) 
I would like to find the number of arithmetic operations required to obtain the matrices 𝐿 and 𝑈

Number_arithmetic_operation.mw

Thank you

How to integrate the below function from 0 to eta.

A := P(eta)+S(H-2*`cos&theta;`(eta+1)*F)+`cos&theta;`*(2*F(eta)-2*H*F) = S(eta+1)*`sin&theta;`*F(theta)-`sin&theta;`(F*H(theta)-H*F(theta)+F(theta, eta))

Thanks in advance

HI, I have numerically solved the given problem using the dsolve command But I want to solve the same problem using the Differential transformation method.
Can anyone help me to get the series solution for the given problem using DTM.

I want to compare the numerical results with DTM results when lambda =0.5.

eqn1 := diff(f(eta), `$`(eta, 3))+f(eta)*(diff(f(eta), `$`(eta, 2)))-(diff(f(eta), eta))^2-lambda*(diff(f(eta), eta)) = 0.

eqn2 := diff(theta(eta), `$`(eta, 2))+f(eta)*(diff(theta(eta), eta))*Pr = 0

Bcs := (D(f))(0) = 1, f(0) = 0, (D(f))(infinity) = 0, theta(0) = 1, theta(infinity) = 0;

[lambda = .5, Pr = 6.3]

1 2 3 4 5 6 7 Last Page 1 of 61