修改后程序约4分钟跑完.
修改部分:
数据:原rho(251)=-0.0307,改为rho(251)=0.0307
因为p=-0.0307,f1 = -0.0025,f2 = -9.7692e-005
f1*f2>0,会造成程序中止
程序:改用dblquad,及-Inf改为-50,a & b维持原来.
2*1-p^2 --> 2*(1-p^2)
%%%%%in command window
datarho=xlsread('allrho.xls');
rho=datarho(:,1);
T = length(rho);
for i=1:T
i
p=rho(i);
yy(i)=HalfInterval(-3.3,-1.6,p,0.00001);
end
%%%%
HalfInterval.m, FindRoots.m (need pw)