9楼: Originally posted by pdl9527 at 2016-12-14 20:26:10
不知道你指哪里不一样，你将下列代码加到程序的最末，可以看到将s(1)带到原方程中求得的F的值是5.8500e+08，和条件中给的F范围(0.585e9~5.834e9)中的第一个值完全吻合，同样你可以将s(20)带入，求得的结果和最后一 ...

function YunPengWang
clear;clc
format long
f_number=1e4;
B=2;
a=0.5;
f=0.5584;
F=0.0585E9;
s_all=linspace(4.001498e6,4.0015e6,f_number);
n=length(s_all);
for i=1:n
    s=s_all(i);

y(i)=F*f- (1+B/f/s)*log(1+f*s)/(  quadgk( @(x) exp(-x*(a^2+1))./(1+f*s*exp(-a^2*x))        ,0,Inf    ))  ;
end
plot(s_all,y,'b-',[min(s_all) max(s_all)],[0 0],'r-');

[y_min index]=min(abs(y));
residual_errory=y_min
s_ans=s_all(index)

2楼: Originally posted by 月只蓝 at 2016-12-12 20:38:18
m文件如下：
简便起见，我用的穷举法（肯定还有其他效率更高的方法）
参数f_number表示在区间内计算的次数，取整数，数值越大，计算精度越高，以下代码中取为10 000。

function YunPengWang
clear;clc
forma ...

2楼: Originally posted by 月只蓝 at 2016-12-12 20:38:18
m文件如下：
简便起见，我用的穷举法（肯定还有其他效率更高的方法）
参数f_number表示在区间内计算的次数，取整数，数值越大，计算精度越高，以下代码中取为10 000。

function YunPengWang
clear;clc
forma ...