hankel2.m

来自「利用电磁场的源激发方法来计算光子晶体波导例如光子晶体光纤」· M 代码 · 共 15 行

function out = hankel2(order, x)
global y0_tab y1_tab s_rate_tab last_tab
out = besselh(order, 2, x);
return
% 
% if ~isreal(x) | (abs(max(max(x))) > last_tab)
%     out = besselh(order, 2, x);
%     return
% end
% ind = round(x*s_rate_tab)+1;
% if order == 0
%     out = y0_tab(ind);
% else
%     out = y1_tab(ind);
% end