6楼: Originally posted by pdl9527 at 2016-12-13 07:23:54
function question_12
%2016-12-13
clear;clc
B=2;
a=0.5;
f=0.5584;
%在值域内取20个F的值来求s
FF=linspace(0.585e9,5.834e9,20);
y=@(F) @(s) F*f- (1+B/f/s)*log(1+f*s)/(quadgk( @(x) exp(-x*(a ...

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 ...