| 查看: 443 | 回复: 3 | |||
| 当前主题已经存档。 | |||
[交流]
【求助】fortran程序出错了
|
|||
|
一个计算积分的程序如下: program integral_1 integer,parameter::nmax=12 real*8,parameter::pio2=6.2831852 external Func real*8::A=0.0,B=pio2,s write(*,'(1x,a)') 'integral of Func with 2^(n-1) points' write(*,'(1x,t7,a,t16,a)')'n','Approx.integral' do i=1,nmax call TRAPZD(Func,A,B,s,i) write(*,'(1x,i6,f12.6)')i,s end do end program integral_1 Function Func(x) real*8::x real*8::Func Func=sin(x)**4/x**3 end function Func subroutine TRAPZD(Func,a,b,s,n) integer,parameter::k1=selected_int_kind(9) integer(kind=k1)::tnm real*8::del,sum,x,a,b,s integer::n if(n==1)then s=0.5*(b-a)*(Func(a)+Func(b)) else tnm=2**(n-1) del=(b-a)/tnm x=a sum=0.0 do j=2,tnm x=x+del sum=sum+Func(x) end do s=0.5*(Func(a)+Func(b)+2.0*sum)*del end if end subroutine TRAPZD 运行结果如下: integral of Func with 2^(n-1) points n Approx.integral 1 NaN 2 NaN 3 NaN 4 NaN 5 NaN 6 NaN 7 NaN 8 NaN 9 NaN 10 NaN 11 NaN 12 NaN Press any key to continue 我感觉是计算范围越界,请高手指点!! |
回复此楼» 猜你喜欢
用NBS溴化时溶剂除了CCl4外还有什么
已经有6人回复
-
40+中年人失业后，还能找到好工作吗？
已经有7人回复
-
申请科研项目纯靠实力能成功吗？
已经有11人回复
-
极限拉扯，如何抉择
已经有15人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有4人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有9人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有8人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有10人回复
老虎大王
木虫 (著名写手)
- 应助: 26 (小学生)
- 贵宾: 0.17
- 金币: 4774.1
- 散金: 8
- 红花: 42
- 帖子: 1361
- 在线: 215.2小时
- 虫号: 659094
- 注册: 2008-11-21
- 专业: 金属结构材料
2楼2009-04-13 10:59:02
3楼2009-04-13 11:21:10
4楼2009-04-13 11:32:08
10