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

4楼: Originally posted by tuburfransth at 2016-12-12 22:25:36
你好，看到了你的回答我想问一下你怎么知道s_all的取值范围是在4.001498e6,4.0015e6之间？s_all=linspace(4.001498e6,4.0015e6,f_number);
...

3楼: Originally posted by YunPengWang at 2016-12-12 21:43:23
如果F是一个范围呢？就是已知F范围(0.585e9~5.834e9)，然后画出F与S关系图，穷举法是否可行？谢谢大神！
...

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^2+1))./(1+f*s*exp(-a^2*x)),0,Inf));
[s,fval,exitflag]=arrayfun(@(F) fsolve(y(F),1e8),FF);
%F和s的关系图像
plot(FF,s,'bo--');
xlabel('F');
ylabel('s')
%最大误差
max(abs(fval))

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

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

8楼: Originally posted by YunPengWang at 2016-12-14 20:07:19
你好，我还想问一下，为什么求完S的值，回带的时候结果会不一样呢？
...

yy=@(s) (1+B/f/s)*log(1+f*s)/(f*quadgk( @(x) exp(-x*(a^2+1))./(1+f*s*exp(-a^2*x)),0,Inf));
feval(yy,s(1))

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)带入，求得的结果和最后一 ...