Mie matlab

function result = besselplot1（n m xmin dx nx）



% Computation and plot of Riccati-Bessel Functions of Order n

% for complex argument z=m*x used in Mie Theory. 

% input: order n refractive index m minimum x value xmin 

% x interval dx number of x values nx.

% C. M鋞zler August 2002



m1=real（m）; m2=imag（m）;

nn=（1:nx）;

x=xmin+dx*nn;

nu=n+0.5;

z=m.*x;

sqx= sqrt（0.5*pi*z）; 

psx = besselj（nu z）.*sqx;

chx = -bessely（nu z）.*sqx;

dpic=psx-i*chx;

r=[real（psx）;-imag（psx）;real（chx）;imag（chx）;real（dpic）;imag（dpic）];

if abs（m2）<0.1

    plot（xr（1:4:））

    legend（‘real（psi_n（mx））‘‘-imag（psi_n（mx））‘‘real（chi_n（mx））‘‘imag（chi_n（mx））‘）

    title（sprintf（‘Riccati-Bessel Functions of Order n=%g for m=%g+%gi‘nm1m2））

    xlabel（‘x‘）

else

    semilogy（xr（1:6:））

    legend（‘real（psi_n（mx））‘‘-imag（psi_n（mx））‘‘real（chi_n（mx））‘‘imag（chi_n（mx））‘‘real（dpic（mx））‘‘imag（dpic（mx））‘）

    title（sprintf（‘Riccati-Bessel Functions of Order n=%g for m=%g+%gi‘nm1m2））

    xlabel（‘x‘）

end;

result=[x;r];

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1064  2002-11-01 12:21  Mie散射esselplot1.m

     文件       1092  2002-11-01 12:21  Mie散射esselplot2.m

     文件        929  2002-11-01 12:21  Mie散射esselplot3.m

     文件       1319  2002-11-01 12:18  Mie散射Besselplot4.m

     文件        754  2002-11-01 12:21  Mie散射esselplot5.m

     文件        569  2002-11-01 12:21  Mie散射esselriccati.m

     文件       2697  2014-06-11 14:43  Mie散射Chaoqun.asv

     文件       2697  2014-06-11 14:48  Mie散射Chaoqun.m

     文件        512  2002-11-01 12:21  Mie散射epsice.M

     文件        591  2002-11-01 12:21  Mie散射epswater.m

     文件        430  2002-11-01 12:21  Mie散射epswater93.m

     文件    1259487  2014-05-27 21:27  Mie散射Mie-scattering-Matlab.pdf

     文件       1830  2014-05-27 23:54  Mie散射Mie.asv

     文件       1817  2014-06-10 09:12  Mie散射Mie.m

     文件       1763  2002-11-01 12:18  Mie散射Mie2.m

     文件       1098  2002-11-01 12:18  Mie散射Mie2_ab.m

     文件       1037  2002-11-01 12:18  Mie散射Mie2_abs.m

     文件       1187  2002-11-01 12:18  Mie散射Mie2_cd.m

     文件       1574  2002-11-01 12:18  Mie散射Mie2_esquare.m

     文件        659  2002-11-01 12:18  Mie散射Mie2_S12.m

     文件        911  2002-11-01 12:19  Mie散射Mie2_tetascan.m

     文件       1121  2002-11-01 12:19  Mie散射Mie2_xscan.m

     文件        437  2002-11-01 12:20  Mie散射Mieab_1.m

     文件        537  2002-11-01 12:20  Mie散射Mieab_2.m

     文件       2159  2002-11-01 12:20  Mie散射Miecoated.m

     文件       2166  2002-11-01 12:20  Mie散射Miecoated_ab1.m

     文件       1473  2002-11-01 12:22  Mie散射Miecoated_ab2.m

     文件       1474  2002-11-01 12:21  Mie散射Miecoated_ab3.m

     文件       1265  2002-11-01 12:21  Mie散射Miecoated_prscan.m

     文件       2240  2002-11-01 12:22  Mie散射Miecoated_rain3.m

............此处省略32个文件信息