Maple 17 Questions and Posts

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

Dear All,

I am facing some problems. This kind of error has been shown "Error, (in Engine:-Dispatch) badly formed input to solve: not fully algebraic"

eqn1 := {((1+1/beta).(diff(f(eta), eta, eta, eta))-(1+F[s]).((diff(f(eta), eta))^2)+(diff(f(eta), eta, eta)).f(eta)+M.(A-(diff(f(eta), eta)))-1/(R.D[a]).(diff(f(eta), eta)) = 0, diff(theta(eta), eta, eta)+4/3.N.(diff((1+(K-1).theta(eta))^3.(diff(theta(eta), eta)), eta)))+Pr.f(eta).(diff(theta(eta), eta))+(1+1/beta).Pr.Ec.((diff(f(eta), eta, eta))^2)+M.Ec.((diff(f(eta), eta)-A)^2) = 0, f(0) = 0, theta(0) = 1+alpha.(D(theta))(0), theta(10) = 0, (D(f))(0) = 1+(1+1/beta).lambda.(D(D(f)))(0), (D(f))(10) = 0};
;
sys1 := eval(eqn1, {A = 1, Ec = .2, K = 2.5, M = .5, N = .5, Pr = 6.5, R = 1, alpha = .5, beta = 2, lambda = .5, D[a] = .3, F[s] = 1});
sol1 := dsolve(sys1, numeric);
Error, (in Engine:-Dispatch) badly formed input to solve: not fully algebraic
with(plots);
t1 := odeplot(sol1, [eta, diff(f(eta), eta)], eta = 0 .. 10, numpoints = 65, thickness = 0, color = green, linestyle = solid);
plots[plots:-display]({t1})

MAXR.mw

Dear All,

I am facing some problems. I want to draw some plots: I have considered the 4th order momentum equation and the 2nd order energy equation; it requires 6 boundary conditions, which I have provided, but till asking for errors (in dsolve/numeric/bvp/convertsys) too few boundary conditions: expected 7, got 6.

eqn1 := {((kappa[1].phi[1]+kappa[2].phi[2]+kappa[3].phi[3])/(phi[1]+phi[2]+phi[3])+(p-1).kappa[f]+(p-1).(kappa[1].phi[1]+kappa[2].phi[2]+kappa[3].phi[3])-(p-1).(phi[1]+phi[2]+phi[3]).kappa[f])/((kappa[1].phi[1]+kappa[2].phi[2]+kappa[3].phi[3])/(phi[1]+phi[2]+phi[3])+(p-1).kappa[f]-(p-1).(kappa[1].phi[1]+kappa[2].phi[2]+kappa[3].phi[3])+(phi[1]+phi[2]+phi[3]).kappa[f]).(diff(theta(eta), eta, eta)+4/3.N.(diff((1+(K-1).theta(eta))^3.(diff(theta(eta), eta)), eta)))+Pr.(((1-phi[3]).((1-phi[2])*(1-phi[1]+phi[1].(`ρc__s1`/`ρc__f`))+phi[2].(`ρc__s2`/`ρc__f`))+phi[3].(`ρc__s3`/`ρc__f`)).(R.f(eta)+alpha.eta).(diff(theta(eta), eta))+Q.theta(eta)+R.Ec.((diff(f(eta), eta, eta))^2)) = 0, diff(f(eta), eta, eta, eta, eta)-(1-phi[1])^2.5.((1-phi[2])^2.5).((1-phi[3])^2.5).((1-phi[3]).((1-phi[2]).(1-phi[1]+phi[1].(`ρ__s1`/`ρ__f`))+phi[2].(`ρ__s2`/`ρ__f`))+phi[3].(`ρ__s3`/`ρ__f`)).(alpha.(eta.(diff(f(eta), eta, eta, eta))+3.*(diff(f(eta), eta, eta)))+(diff(f(eta), eta, eta, eta)).f(eta)-(diff(f(eta), eta)).(diff(f(eta), eta, eta))).R-(1-phi[1])^2.5.((1-phi[2])^2.5).((1-phi[3])^2.5).A.B.e^(-B.eta) = 0, f(-1) = S, f(1) = 1, theta(-1) = 1, theta(1) = 0, (D(f))(-1) = 0, (D(f))(1) = 0}

sys1 := eval(eqn1, {A = 1, B = .5, Ec = .1, K = 1.5, N = .5, Pr = 2, Q = .4, R = 1, S = -.1, p = 3, alpha = .2, `ρ__f` = 997.1, `ρ__s1` = 0, `ρ__s2` = 0, `ρ__s3` = 5180, `ρc__f` = 997.1.4179, `ρc__s1` = 0, `ρc__s2` = 0, `ρc__s3` = 5180.670, phi[1] = 0., phi[2] = 0., phi[3] = 0.3e-1, kappa[1] = 0, kappa[2] = 0, kappa[3] = 9.7, kappa[f] = .613})

sol1 := dsolve(sys1, numeric);
Error, (in dsolve/numeric/bvp/convertsys) too few boundary conditions: expected 7, got 6
with(plots);
t1 := odeplot(sol1, [eta, diff(f(eta), eta)], eta = -1 .. 1, numpoints = 65, thickness = 0, color = green, linestyle = solid);
plots[plots:-display]({t1})

Download A1.mw

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

Dear all 

I have an ideal, and code its definition  and I compute the height  but no result return. There is an error. 

height_ideal.mw

Thank you for you help

Dear all

I possess an integral function that is multiplied by an accompanying coefficient. How can I automatically isolate and extract the coefficient that appears outside the integral function?

extract_coef_before_integral.mw

Thank you

Hello everyone,

I've encountered a problem with a piece of code involving an integral that should theoretically yield an exact solution. However, when running the code in Maple, I'm not getting the expected output

compute_integral.mw

Your assistance in resolving this matter would be greatly appreciated.

Thank you for your help.

Dear all

I would like to plot a rectangular cylinder,, but the code does not generates a cylinder 

rectangular_cylinder.mw

Thank you in advance for your help 

Dear all

I have a system of differential equation with initial condition. 
I try to get the exact solution bur unfortunattely dsolve does not return the exact solution of my system 

SSDE.mw

Thank you 

%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 .*