# How can I show the contour lines between the following two concentric spheres?

1 view (last 30 days)
Shreen El-Sapa on 17 Dec 2023
Edited: Torsten on 17 Dec 2023
b1=0.1;b2=0.1;s=1;sb=0.2;s1=sb./s;j=0.1;EZ=1;zeta0=-1;beta=1;i=(-1).^(1./2);
sigma=0.4; ur=1;
alpha=.628;k=10;c=0.1;
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));
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)))));
b =a/L;
Unrecognized function or variable 'L'.
m =a*100; % NUMBER OF INTERVALS
[x,y]=meshgrid([c:(b-c)/m:b],[c:(b-c)/m:b]');
[I J]=find(sqrt(x.^2+y.^2)<(a-.05));
if ~isempty(I);
x(I,J) = 0;
y(I,J) = 0;
end
r=sqrt(x.^2+y.^2);
t=atan2(y,x);
for i1=1:length(x);
for k1=1:length(x);
if sqrt(x(i1,k1).^2+y(i1,k1).^2)>1./L;
r(i1,k1)=0;
end
end
end
warning off
psiH= ( 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)).*cos(t) ;
[DK,h4]=contour(x,y,real(psiH),20,'-k');
hold on
[x,y]=meshgrid([-1:0.002:1]);
r=sqrt(x.^2+y.^2);
t=atan2(y,x);
for i1=1:length(x);
for k1=1:length(x);
if sqrt(x(i1,k1).^2+y(i1,k1).^2)>a;
r(i1,k1)=0;
end
end
end
hold on
m1=100;
r1=ones(1,m1+1)*a;r2=ones(1,m1+1)./L;
th=[0:2*pi/m1:2*pi];
set(polar(th,r1,'-k'),'LineWidth',1.2);set(polar(th,r2,'-k'),'LineWidth',1.2);
%title('$H_\beta=0$','Interpreter','latex','FontSize',9,'FontName','Times New Roman','FontWeight','Normal')
%ylabel({'$H_\alpha=1$';'$\sigma=0.4$';'$\epsilon=0.7$';'$\eta=0.4$';'$\xi=0.1\quad\;$'},'Interpreter','latex','FontSize',9,'rot',360,'FontName','Times New Roman','FontWeight','Normal');
%title('Happel$^\prime$s model','Interpreter','latex','FontSize',10,'FontName','Times New Roman','FontWeight','Normal')
%axis square
axis off
%%%%%%%%%%%%%%