Question

我正在尝试使用quadgk评估数值积分，因为我不是matlab的专家，我很难让下面的代码工作。我有矩阵g（i，j），我正在评估g的每个元素的参数phi的积分。这部分代码工作正常，但是当我想改变矩阵g的大小时，问题就开始了，在这种情况下，只有第一个值是正确的，并且对于更高大小（k），g的所有元素都返回零。

clear;
alpha=2.0;
h=1.0;
lmax=12;
for k=2:2:4
  fun = @(phi,t,s) (exp(-i.*(t-s).*phi).*(exp(-i.*phi)-1)./sqrt((1-h.*exp(i.*phi)).*(1-h.*exp(-i.* phi))))./(2.*pi);
     for i=1:k
       for j=1:k  
        F=@(phi) fun(phi,i,j);
        g(i,j)=real(quadgk(F,0,2.*pi));
       end
     end 
  Y1=mtimes(transpose(g),g)
  Y2=mpower(Y1,1./2.);
  Z1 = 0.5.*(eye(k) - Y2);
  Z2 = 0.5.*(eye(k) + Y2);
  C1 = mpower(Z1, alpha) + mpower(Z2, alpha);
  M1=diag(log(eig(C1)));
  s(k/2)=k;
  ent(k/2)=real(trace(M1))./(1-alpha);
end

这里是k = 2和4的输出，

  k =

     2


g =

  -0.636619772367581   0.636619772367581
  -0.212206590789194  -0.636619772367581


Y1 =

   0.450316371743723  -0.270189823046234
  -0.270189823046234   0.810569469138702


k =

     4


g =

     0     0     0     0
     0     0     0     0
     0     0     0     0
     0     0     0     0


Y1 =

     0     0     0     0
     0     0     0     0
     0     0     0     0
     0     0     0     0

我试图寻找函数句柄数组，以及几个不同的东西，但到目前为止似乎没有解决问题。

Answer 1

您的代码中的错误是您在i循环中使用for作为虚构单元和迭代变量。有两种方法可以解决这个问题：

将迭代变量i更改为ii。
将i中的fun更改为1i，以便您明确使用虚构单位。

顺便提一下，您应该在代码中更改和改进一些其他内容：

由于fun不依赖于for，您可以将k移出fun循环k。
mtimes和mpower很少使用。请改用*和^。

使用多个参数迭代quadgk

1 个答案: