作者jubilee2 (3321)
看板Fortran
标题Re: [问题] 麦克罗林级数＆cos
时间Sun Apr 8 19:24:12 2012
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
1F：推 wi4214:谢谢J大 我研究一下 04/08 19:30