应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 专业学科区 » 物理 » 其他交流 » 【求助】一个求积分的fortran程序，请高手指点（还是在物理区问好些）
51/1返回列表
查看: 937  |  回复: 4
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

田山东

捐助贵宾 (著名写手)

[交流] 【求助】一个求积分的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
回复此楼

» 猜你喜欢

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

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

查看全部散金贴
1楼 2011-03-13 18:29:34
已阅   回复此楼   关注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
赞一下(2人) 回复此楼
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
...

附上结果图
赞一下(1人) 回复此楼
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自带的吗？
赞一下(1人) 回复此楼
5楼2011-04-04 23:08:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
简单回复
z550178854z2楼
2011-03-13 19:03   回复  
田山东(金币+1):谢谢参与
田山东(金币+1): 这样可不好啊！帮我看下是怎么回事吧 2011-03-13 19:09:15
小木虫:)(金币-1): 禁止灌水 2011-04-05 07:20:00
相关版块跳转 我要订阅楼主 田山东 的主题更新
51/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0703化学调剂 ，六级已过，有科研经历 +4 曦熙兮 2026-03-15 4/200 2026-03-15 18:01 by JourneyLucky
[考研] 267一志愿南京工业大学0817化工求调剂 +5 SUICHILD 2026-03-12 5/250 2026-03-14 14:53 by jean5056
[考研] 求调剂，药学 +3 归零lbm 2026-03-09 5/250 2026-03-14 02:21 by JourneyLucky
[考研] 一志愿北京化工大学材料与化工296分求调剂 +16 稻妻小编 2026-03-09 18/900 2026-03-14 02:00 by JourneyLucky
[考研] 265求调剂 +9 小木虫085600 2026-03-09 12/600 2026-03-14 01:11 by JourneyLucky
[考研] b区环境工程求调剂 +4 Maps1 2026-03-10 6/300 2026-03-14 00:23 by JourneyLucky
[考研] 2026考研调剂+本科延边大学+山东大学+生物化学与分子生物学+有项目经验 +3 ccdsscjy 2026-03-10 3/150 2026-03-14 00:12 by JourneyLucky
[考研] 材料与化工（0856）304求B区调剂 +6 邱gl 2026-03-12 7/350 2026-03-13 23:24 by 邱gl
[考研] 285 求调剂 资源与环境 一志愿北京化工大学 +3 未名考生 2026-03-10 3/150 2026-03-13 23:04 by JourneyLucky
[考研] 308求调剂 +5 是Lupa啊 2026-03-11 5/250 2026-03-13 22:13 by JourneyLucky
[考研] 0856材料与化工301求调剂 +5 奕束光 2026-03-13 5/250 2026-03-13 22:00 by 星空星月
[考研] 材料专硕350 求调剂 +4 王金科 2026-03-12 4/200 2026-03-13 16:02 by ruiyingmiao
[考研] 314求调剂 +7 无懈可击的巨人 2026-03-12 7/350 2026-03-13 15:40 by JourneyLucky
[考研] 328化工专硕求调剂 +4 。，。，。，。i 2026-03-12 4/200 2026-03-13 14:44 by JourneyLucky
[考研] 308求调剂 +3 是Lupa啊 2026-03-12 3/150 2026-03-13 14:30 by 求调剂zz
[考研] 0703一志愿211 285分求调剂 +4 ly3471z 2026-03-13 4/200 2026-03-13 13:00 by JourneyLucky
[考研] 070303一志愿西北大学学硕310找调剂 +3 d如愿上岸 2026-03-13 3/150 2026-03-13 10:43 by houyaoxu
[考研] 研究生招生 +3 徐海涛11 2026-03-10 7/350 2026-03-12 14:26 by 徐海涛11
[考研] 化工0817调剂 +8 灿若星晨 2026-03-10 8/400 2026-03-10 22:44 by 星空星月
[考研] 085602化工求调剂 +7 董boxing 2026-03-10 7/350 2026-03-10 17:07 by BruceLiu320
信息提示
关闭
请填处理意见
关闭