Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

I'd like to use Maple to make measurements on a map (Dealey Plaza). I can load an image in Sketcher and draw lines on it, but can't figure out how to access the lengths of those lines.

restart``

estart; with(Physics); with(LinearAlgebra); with(VectorCalculus); with(Optimization); with(Statistics); with(ArrayTools); with(plottools); with(plots); with(Threads); with(MmaTranslator[Mma]), with(StringTools); with(CodeGeneration); VectorCalculus:-`*`(Setup(mathematicalnotation = true), Setup(coordinatesystems = cartesian))

estart

 

[annulus, arc, arrow, circle, cone, cuboid, curve, cutin, cutout, cylinder, disk, dodecahedron, ellipse, ellipticArc, exportplot, extrude, getdata, hemisphere, hexahedron, homothety, hyperbola, icosahedron, importplot, line, octahedron, parallelepiped, pieslice, point, polygon, prism, project, rectangle, reflect, rotate, scale, sector, semitorus, sphere, stellate, tetrahedron, torus, transform, translate]

 

`Default differentiation variables for d_, D_ and dAlembertian are:`*{X = (x, y, z, t)}

 

`Systems of spacetime Coordinates are:`*{X = (x, y, z, t)}

(1)

``

``

NULL

 

``

``

Download DealeyPlazaToo.mw

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 

Hi,
I have a function (see attached file).  How can I find by Maple 
those values of beta and f for which W will have 
three consecutive local extrema between the
phi=0 and phi_0 where W=dW/dphi=0 at phi=0 and W=0 at phi_0 and W<0 for 0<abs(phi)<phi_0?
Thanks,
plot.mw

I am an ophthalmologist and a novice in programing. I am having a problem obtaining the x-y coordinate equations for each of the fitted Splines.  I can send the raw data and MapleSoft work sheet for which I need the individual spline equations, in x-y coodinates not parametric format and also need to be able to plot the splines on the raw data. I will pay for the service. Can you please obtain the x-y Cartesian equations for each of the fitted Splines and give me a step-wise method for obtaining them?  I am unable to attach the raw data and the worksheet to this email.  Please send me your personal email so that I can send them.

Your assistance is most appreciated. 

With my best,
Ron
Ronald A Schachar MD , PhD
7241 Encelia Drive
La Jolla, CA 92037
Cell: (858) 784-1705
Email: ron@2ras.com

Is it possible to solve the following equation with Maple:

Find the smallest positive integers such that

a/(b+c)+b/(a+c)+c/(a+b)=4

The solutions are enormous.

See

https://www.agftutoring.com/x-yz-y-xz-z-xy-4/

WHen using _self in object, help says

"As of Maple 2021, if the method has a formal parameter named _self, references
to its object's local or exported variables may be written without prefixing them.
That is, _self:-variable may be written as just variable. Maple will
add the self:- prefix internally when the method is simplified."

And the above is true for all static methods inside an object module, except for ModuleCopy which is also static.

It seems ModuleCopy is special. But why?  I am thinking it is because at time this is called, the object itself does not yet exist, but for all other methods, the object by then is fully constructed. But wanted to be sure.

Here is an example

restart;

person := module()
option object;
local  m_name::string;
local  m_age::integer;
export ModuleCopy :: static := proc(_self :: person
                                   , proto :: person, name::string, age::integer,$
                                )
         m_age := age;
         m_name := name;
    end proc;

export name::static:= proc(_self, $);
    RETURN(m_name); #no need to write _self:-m_name;
    end proc;

export age::static:= proc(_self, $);
    RETURN(m_age); #no need to write _self:-m_age;
    end proc;

export set_name::static:= proc(_self, name, $);
    m_name := name;   #no need to write _self:-m_name := name
    NULL;
    end proc;

export process::static:=proc(_self,$)
   print("name is ",m_name," age is ",m_age);
end proc;

end module:

And now


o:=Object(person,"me",10);

Error, static procedure `ModuleCopy` refers to non-static local or export `m_age::integer` in surrounding scope

Changing ModuleCopy to

export ModuleCopy :: static := proc(_self :: person
                                   , proto :: person, name::string, age::integer,$
                                )
         _self:-m_age := age;
         _self:-m_name := name;
    end proc;

Now there is no error. But notice that in all other static methods, I can write  m_name directly without using _self:-m_name;

I looked at help page for ModuleCopy but see no mention of this.

Why ModuleCopy is different?

Maple 2023.2 on windows 10

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