Re: [問題] 麥克羅林級數＆cos
program abc
integer n
double precision x , sigma ,temp, x2,n2
write(*,*) '請輸入徑度量(radius) x 及 整數n'
read(*,*) x , n
temp = 1.0 !暫存值 用為計算第N項使用
x2=x*x !x2為X平方
sigma=1.0 !為累加之第一項1.0 1+....
do 10 I = 1 , n
n2=i+i !2N
temp = -temp*x2/n2/(n2-1.0) !最前面加一個負號.每一輪都會正負轉換
!分子和前一項相比需要多乘上X平方
!分母和前一項相比需要多/(2n*(2n-1))
sigma = sigma+temp !累計加總!!
10 continue
write(*,*) sigma !答案
write(*,*) cos(x) !內建函式之值
write(*,*) sigma - cos(x) !差值
end
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 1.173.124.50
推
04/08 19:30, , 1F
04/08 19:30, 1F
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
0
6
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
