观察　我们可通过的函数值来观察其变化趋势。

【重复实验】

　　实验代码：

load(draw)$
wxdraw2d(yrange=[0,5],grid=true,xlabel="x",ylabel="y",
    explicit((1+1/x)^x,x,-1000,1000)
);

 

N:1000$
n:50$
fpprintprec:7$
a:makelist(k,k,2,N,n),numer$
xx:makelist((1+1/k)^k,k,2,N,n),numer;
yy:makelist((1-1/k)^(-k),k,2,N,n),numer;
wxdraw2d(grid=true,yrange=[2.6,2.8],xlabel="x",ylabel="y",
    points(a,xx),
    color=red,
    points(a,yy)
);

　　执行结果：