作者wi4214 (严惩)
看板Fortran
标题[问题] 麦克罗林级数＆cos
时间Sun Apr 8 13:58:55 2012
各位大大好
小弟的问题如下图
http://ppt.cc/jYqO
程式码如下
program abc
integer n
double precision x , sigma , cal
write(*,*) '请输入径度量(radius) x 及 整数n'
read(*,*) x , n
sigma = 1
m = 2 * n
sigma = (((-1)**n)*(x**(2*n)))
do 10 I = 1 , m
sigma = sigma/I
10 continue
write(*,*) sigma
write(*,*) cos(x)
write(*,*) sigma - cos(x)
end
结果的差值好大
不知道这样写有没有错
麻烦各位大大解答
感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 115.165.224.154
※ 编辑: wi4214 来自: 115.165.224.154 (04/08 14:00)
1F：→ awer89:sigma = sigma/I 怪怪的 04/08 14:03
2F：→ awer89:然後n是从0~无穷大 不是固定的 04/08 14:04
3F：→ wi4214:不会改... 04/08 14:18
4F：→ gilocustom:那你会什麽？ 04/08 14:48
5F：→ wi4214:sum = sum + sigma加在回圈里 好像也不行 04/08 14:50
6F：→ awer89:因为你的I不是阶(!) 当然不会对 04/08 17:45