24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 956  |  回复: 4

田山东

捐助贵宾 (著名写手)


[交流] 【求助】一个求积分的fortran程序,请高手指点(还是在物理区问好些)

我算了一个很简单的求积分的程序,得到的结果为什么是0呢?用imsl下的数据库函数QDAGS (F, a, b, RES, ERRA,ERRREL, ERREST)求的。高手帮忙指点下吧。不论函数f(x)取什么形式,得到结果总是0.
program jifenQDAGS
     use imsl
         implicit none
         real a,b,erra,errest,f,res,errrel
         external f
     ERRA=1.0e-3
     ERRREL=1.0e-2
         a=0.0
         b=3.0
   CALL QDAGS (F, a, b, RES, ERRA,ERRREL, ERREST)
   WRITE (*,*) RES, ERREST
        END          
    REAL FUNCTION F (X)
        REAL X          
        F = x*x
        RETURN          
    END
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

» 抢金币啦!回帖就可以得到:

查看全部散金贴

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhuwei04

木虫 (正式写手)


★ ★ ★ ★
田山东(金币+1):谢谢参与
lpszk(金币+3): 2011-03-13 22:32:33
田山东(金币+15): 多谢您了,我太粗心了。 2011-03-14 08:47:42
引用回帖:
Originally posted by 田山东 at 2011-03-13 18:29:34:
我算了一个很简单的求积分的程序,得到的结果为什么是0呢?用imsl下的数据库函数QDAGS (F, a, b, RES, ERRA,ERRREL, ERREST)求的。高手帮忙指点下吧。不论函数f(x)取什么形式,得到结果总是0.
program jifenQDAG ...

你把RES的位置放错了,修改如下:
program jifenQDAGS
     use imsl
         implicit none
         real a,b,erra,errest,f,res,errrel
         external f
     ERRA=1.0e-3
     ERRREL=1.0e-2
         a=0.0
         b=3.0
   CALL QDAGS (F, a, b, ERRREL, ERRA,RES, ERREST)
   WRITE (*,*) RES, ERREST
        END         
    REAL FUNCTION F (X)
        REAL X         
        F = x*x
        RETURN         
    END
3楼2011-03-13 20:19:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhuwei04

木虫 (正式写手)


结果

★ ★ ★ ★ ★ ★ ★
田山东(金币+2): 再次感谢 2011-03-14 08:47:54
小木虫:)(金币+7): 3q 2011-04-05 07:20:30
引用回帖:
Originally posted by zhuwei04 at 2011-03-13 20:19:11:
你把RES的位置放错了,修改如下:
program jifenQDAGS
     use imsl
         implicit none
         real a,b,erra,errest,f,res,errrel
         external f
     ERRA=1.0e-3
     ERRREL=1.0e-2
...

附上结果图

4楼2011-03-13 20:21:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

newton3915

铁杆木虫 (正式写手)



小木虫(金币+0.5):给个红包,谢谢回帖交流
引用回帖:
Originally posted by 田山东 at 2011-03-13 18:29:34:
我算了一个很简单的求积分的程序,得到的结果为什么是0呢?用imsl下的数据库函数QDAGS (F, a, b, RES, ERRA,ERRREL, ERREST)求的。高手帮忙指点下吧。不论函数f(x)取什么形式,得到结果总是0.
program jifenQDAG ...

你好,你的IMSL是intel fortran自带的吗?
5楼2011-04-04 23:08:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
简单回复
2011-03-13 19:03   回复  
田山东(金币+1):谢谢参与
田山东(金币+1): 这样可不好啊!帮我看下是怎么回事吧 2011-03-13 19:09:15
小木虫:)(金币-1): 禁止灌水 2011-04-05 07:20:00
相关版块跳转 我要订阅楼主 田山东 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 一志愿上海海洋大学083200食品学硕,求调剂,接受其他专业083200 +4 what张 2026-04-04 5/250 2026-04-05 14:07 by chw1980_0
[考研] 材料化工306分找合适调剂 +14 沧海轻舟e 2026-04-04 14/700 2026-04-05 09:53 by 朱云虎202
[考研] 求调剂 +3 小沢 2026-04-03 3/150 2026-04-05 09:10 by sihailian3
[考研] 083200 333求调剂 +3 十二!! 2026-04-04 3/150 2026-04-05 08:28 by barlinike
[考研] 材料专硕322分 +11 哈哈哈吼吼吼哈 2026-04-02 11/550 2026-04-04 23:37 by 永字号
[考研] 286求调剂 +3 草木不言 2026-04-04 3/150 2026-04-04 22:40 by lbsjt
[考研] 291求调剂 +4 迷蒙木木 2026-04-01 5/250 2026-04-04 15:59 by sihailian3
[考研] 一志愿0817化学工程与技术,求调剂 +24 我不是只因 2026-04-02 28/1400 2026-04-04 15:15 by dongzh2009
[考研] 301求调剂 +14 A_JiXing 2026-04-01 14/700 2026-04-03 18:31 by ls刘帅
[考研] 266分,求材料相关专业调剂 +13 哇呼哼呼哼 2026-03-30 15/750 2026-04-03 15:24 by arrow8852
[考研] 334求调剂 +9 Trying] 2026-03-31 9/450 2026-04-03 15:18 by 琢珥丶
[考研] 312求调剂 +4 赊月色 2026-04-02 5/250 2026-04-03 08:21 by fangshan711
[考研] 考研调剂 +3 李木子0120 2026-04-02 5/250 2026-04-02 21:45 by dongzh2009
[考研] 环境工程297分求调剂一志愿杭高院 +15 GENJIOW 2026-03-31 16/800 2026-04-02 17:56 by cyh—315
[考研] 一志愿346上海大学生物学 +3 上海大学346调剂 2026-04-01 3/150 2026-04-02 08:36 by w虫虫123
[硕博家园] 博一被送出联培感觉不适应怎么办 +3 全村的狗 2026-03-31 3/150 2026-04-01 10:44 by 328838485
[考研] 求0861交通运输专硕or材料专硕调剂 +4 勒布朗@ 2026-03-31 4/200 2026-04-01 09:54 by 一只好果子?
[考研] 调剂申请 +8 张张张张zy 2026-03-31 9/450 2026-04-01 08:29 by zjbkx
[考研] 070300化学专业279调剂 +10 哈哈哈^_^ 2026-03-31 10/500 2026-03-31 23:13 by liu823948201
[考研] 083000环境科学与工程调剂,总分281 +4 橙子(胜意) 2026-03-30 4/200 2026-03-31 00:44 by Linzejun
信息提示
请填处理意见