求问：用fortran语言求积分sin(x)
答案:2 悬赏:30 手机版
解决时间 2021-01-03 11:02
- 提问者网友：感性作祟
- 2021-01-02 17:19
求问：用fortran语言求积分sin(x)
最佳答案
- 五星知识达人网友：独钓一江月
- 2021-01-02 17:54
最简单的梯形公式求积分：
（计算0～π亦即0°～180°范围内的积分，精确结果为2）
s=0
pai=3.1415926
step=pai/180
a=sin(0.0)
do 10 i=0,179
b=sin(step*(i+1))
s=s+0.5*(a+b)*step
a=b
10 continue
write(*,*)s
stop
end
（计算0～π亦即0°～180°范围内的积分，精确结果为2）
s=0
pai=3.1415926
step=pai/180
a=sin(0.0)
do 10 i=0,179
b=sin(step*(i+1))
s=s+0.5*(a+b)*step
a=b
10 continue
write(*,*)s
stop
end
全部回答
- 1楼网友：七十二街
- 2021-01-02 19:32
implicit none
real xx,xmin,xmax,dx,phi,val
xmin=0.0
phi=acos(-1.)
xmax=phi
dx=0.001
val=0.0
do xx=xmin,xmax,dx
val=val+sin(xx)
end do
print *,'val=',val
stop
end
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯