%M函数
function z=testfun(a,b,c)
z=(prod(1:b)/(prod(1:a)*prod(1:(b-a))))*(c^a)*((1-c)^(b-a));
end
程序代码
clc;clear;
syms x y
N=40;
M=10;
c=1;
L=0.3;
A=N*(y/c+(1-L/M)*1.5*y/c)*testfun(M-1,N-1,x);
g=1;
for i=0:M-1
g=g+((i/M)-1)*testfun(i,N,x);
end
fun=(A-sum(g));
ezplot(fun,[0,1,0,10]);
hold on
function z=testfun(a,b,c)
z=(factorial(b)/(factorial(a)*factorial(b-a)))*(c^a)*((1-c)^(b-a));
function zz=testfun2(x,N)
y=2;c=1;
M=10;L=0.3;
A=N*(y/c+(1-L/M)*1.5*y/c)*testfun(M-1,N-1,x);
g=1;
for i=0:M-1
g=g+(i/M-1)*testfun(i,N,x);
end
zz=A-g;
主程序
N=20:40;
x0=0.5;
options=optimset('MaxIter',500,'TolX',1e-8,'TolFun',1e-8,'TolCon',1e-8);
for i=1:length(N)
X(i)=fsolve(@(x)testfun2(x,N(i)),x0,options);
end
plot(X,N,'r*');
xlabel('x');ylabel('N');