g=(o*(1-o)*p+lam)/((1-o)*p+lam);
a=sqrt(p*g);
b=a*red;
X=besseli(1,a)*besselk(1,b)-besseli(1,b)*besselk(1,a);
Y=besseli(0,a)*besselk(1,b)+besseli(1,b)*besselk(0,a);
f1=(besseli(0,a)*besselk(1,b)+besseli(1,b)*besselk(0,a)...
+(S*a*(besseli(1,b)*besselk(1,a)-besseli(1,a)*besselk(1,b))))...
/((Cd*p^(2)*(Y-S*a*X))-p*a*X);
f=f1*p;
0 Comments
Sign in to comment.