Mathematica 高数一年级作业教学第一弹:点图显示极限状态

1.题目:

通过作图,观察重要极限:lim(1+1/n)^n (n趋于无穷) (就是那个最容易的e)

2.代码:

an = {(1 + (1/1))^1, (1 + (1/2))^2, (1 + (1/3))^3};
Do[
an = Append[an, (1 + (1/i))^i];
t = ListPlot[an, PlotRange -> {0, 3}, PlotStyle -> PointSize[0.015]];
Print[t],
{i, 4, 20}
]

3.运行结果:

4.友情提醒:

那个Do循环是不可以与[分开的;
就是:"Do["是正确的;
"Do
[
]"是不被允许的.