24小时热门版块排行榜    

查看: 1121  |  回复: 1

wangshitong

银虫 (小有名气)

[求助] hankel逆变换

哪位用过Hankel逆变换,我从网上搜到一些matlab的代码,但还是搞不定。希望交流一下,谢谢啦!
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wangshitong

银虫 (小有名气)

说的再具体一下。
下面是我搜到的一个程序,这里面的参数应该怎么设置呢?有用过这个程序的大侠吗?请求指导,谢谢!

%[h,I]=ihat(H,k,r,n;I)
%---------------------
%
%Inverse Hankel transform of order n.
%
%Input:
% H      Spectrum K(k)
% k      Spatial frequencies [rad/m]   {pi/numel(H)*(0:numel(H)-1)}
% r      Radial positions [m]          {0:numel(H)-1}
% n      Transform order               {0}
%   or
% I      Integration kernel �         {default}
%
%Output:
% h      Signal h(r)
% I      Integration kernel
%
%
% �  If the integration kernel is missing, it is
%     recomputed from the Bessel functions (slow).
%

%     Marcel Leutenegger �June 2006
%
function [h,I]=ihat(H,k,r,n)
if sum(size(H) > 1) > 1
   error('Spectrum must be a vector.');
end
if nargin < 2 | isempty(k)
   k=pi/numel(H)*(0:numel(H)-1).';
else
   [k,w]=sort(k();
   H=H(w);
end
if nargin < 3 | isempty(r)
   r=0:numel(H)-1;
end
if nargin < 4 | isempty(n)
   n=0;
end
if numel(n) > 1
   if exist('w','var')
      I=n(w,;
   else
      I=n;
   end
else
   I=besselj(n,k*r(.');
end
h=reshape(frdr(H,k).'*I/(2*pi)^2,size(r));
2楼2013-10-10 11:44:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 wangshitong 的主题更新
信息提示
请填处理意见