function solve_ne
clear;clc
format long

x0=-1;
[x fval]=fsolve(@(n)    log( 2^(-n)*3.57727/6.42029)-0.95093*log( (2^(n-1)-1)/(4^(n-1)-1)   ),     x0)

n=linspace(-10,10,1000);
y=log( 2.^(-n)*3.57727/6.42029)-0.95093*log( (2.^(n-1)-1)./(4.^(n-1)-1)   );
figure(1)
plot(n,y,'k',[min(n) max(n)],[0 0],'b-',[x x],[-2 0],'r-');
text(0,0.5,['解x=' num2str(x,'%.5f')]);

2楼: Originally posted by 月只蓝 at 2017-03-09 12:30:19
function solve_ne
clear;clc
format long

x0=-1;
=fsolve(@(n)    log( 2^(-n)*3.57727/6.42029)-0.95093*log( (2^(n-1)-1)/(4^(n-1)-1)   ),     x0)

n=linspace(-10,10,1000);
y=log( 2.^(-n)*3.577 ...