Question

我需要评估积分，我的代码是

r=0:25;
t=0:250;
Ti=exp(-r.^2);
T=zeros(length(r),length(t));
for n=1:length(t)
  w=1/2/t(n);
  for m=1:length(r)
    T(m,n)=w*trapz(r,Ti.*exp(-(r(m).^2+r.^2)*w/2).*r.*besseli(0,r(m)*r*w));
  end
end

目前评估相当快，但我想知道是否有办法对双循环进行矢量化并使其更快，尤其是在使用函数trapz时。

Answer 1

您可以通过将矩阵参数Y传递给trapz(A,Y)并使用dim = 2来优化它，即循环变为：

r  = 0:25;
t  = 0:250;
Ti = exp(-r.^2);

tic
T  = zeros(length(r),length(t));
for n = 1:length(t)
    w = 1/2/t(n);
    for m = 1:length(r)
        T(m,n) = w*trapz(r,Ti.*exp(-(r(m).^2+r.^2)*w/2).*r.*besseli(0,r(m)*r*w));
    end
end
toc

tic
T1  = zeros(length(r),length(t));
for n = 1:length(t)
    w = 1/2/t(n);
    Y = bsxfun(@times,Ti.*r, exp(-bsxfun(@plus,r'.^2,r.^2)*w/2).*besseli(0,bsxfun(@times,r',r*w)));
    T1(:,n) = w* trapz(r,Y,2);
end
toc

max(abs(T(:)-T1(:)))

你可以完全对它进行矢量化，稍后再看看。

Vectorize double for循环

1 个答案: