作者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