用泰勒展开式计算E**x的值

楚香饭

分子分母都趋于无穷大，分母具有更高阶的无穷大，这种时候你可以用一个临时变量来取其商。例如下面代码的 t，同时还可以避免 x**i 和阶乘。

[Fortran] 纯文本查看 复制代码

Program main
  Implicit None
  real x,s,t
  integer n
  integer i
  read(*,*) n
  read(*,*) x  
  t = x
  s = x + 1
  Do i=2,n
    t = t*x/i
    s = s + t
  End Do  
  write(*,*) s
End Program main

楚香饭

爷且无辜 发表于 2014-11-26 16:42
楼主这个代码运行速度不如“楚香饭”（这个人貌似是坛主？？！！）这个代码，楼主这个代码对之前计算结果的 ...

幸会幸会，我就是坛主。咳，不好意思老用管理员账号....让人看了有点疏远的感觉，所以有个普通号