mathematica程序运行不了，标识In[1]和Out[1]也没有出现

错误的处理:

出现这样的原因一般是临时目录的权限不够，至于为什么中途出现这种问题，我尚不清楚，解决的办法是给Windows目录下的临时文件夹Temp的安全选项卡中加入NetWork Service用户并赋予全权。

其原理是：( 1+1/n )^n = 1+ 1+ 1/2!+ 1/3！+1/4！+1/5！+1/6！+ … + 1/n！ Mathematica程序如下（默认取n=10，10!=360万，已经很大了）：n = 10

y1 = 1.0

y = 1.0

For[i = 1, i <= n, i++,

For[j = 1, j <= i, j++,

y1 = y1*j]

y = y + 1.0/y1

]

Print["近似值为： ", y, " 误差为： ", E - y]运行结果如下： 近似值为： 2.58683 误差为： 0.131447

---