[問題] 麥克羅林級數＆cos
各位大大好
小弟的問題如下圖
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)
→
04/08 14:03, , 1F
04/08 14:03, 1F
→
04/08 14:04, , 2F
04/08 14:04, 2F
→
04/08 14:18, , 3F
04/08 14:18, 3F
→
04/08 14:48, , 4F
04/08 14:48, 4F
→
04/08 14:50, , 5F
04/08 14:50, 5F
→
04/08 17:45, , 6F
04/08 17:45, 6F
討論串 (同標題文章)
完整討論串 (本文為第 1 之 2 篇)：
0
6
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
