| 查看: 894 | 回复: 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 |
回复此楼» 猜你喜欢
上海工程技术大学【激光智能制造】课题组招收硕士
已经有6人回复
-
带资进组求博导收留
已经有11人回复
-
自荐读博
已经有5人回复
-
求个博导看看
已经有16人回复
-
上海工程技术大学张培磊教授团队招收博士生
已经有4人回复
-
求助院士们，这个如何合成呀
已经有4人回复
-
临港实验室与上科大联培博士招生1名
已经有9人回复
-
写了一篇“相变储能技术在冷库中应用”的论文，论文内容以实验为主，投什么期刊合适？
已经有6人回复
-
最近几年招的学生写论文不引自己组发的文章
已经有11人回复
-
中科院杭州医学所招收博士生一名（生物分析化学、药物递送）
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请高手指点一下怎么确定一个符号矩阵中的等值元素
已经有6人回复
- 陌生的fortran语言，哪位可以指点一二？悬赏100金币
已经有5人回复
- 求助计算机高人，编写个Fortran程序
已经有13人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- 写了一个fortran90的小程序，编译通不过，请大侠帮忙
已经有59人回复
- 【求助】求高手关于Fortran数据读写的问题。【已完结】
已经有12人回复
- 【求助】求指点，在Fortran里面，怎样实现“数组维度可调”的数组?
已经有5人回复
- 【求助】求助个Fortran计算，应该不难，半天搞不定，请高手帮忙
已经有11人回复
» 抢金币啦！回帖就可以得到:
-
武汉纺织大学电子与电气工程学院------院长团队招聘光电、材料类博士，博士后
+1/525
-
限广州，征女友
+2/134
-
华中科技大学龚江研究员课题组诚招博士研究生、科研助理和博士后
+2/108
-
香港理工大学-应用生物与化学科技学系 招收2025年博士研究生
+2/94
-
坐标北京不异地
+1/74
-
期待科研合作，共同发表论文
+5/70
-
最新看到一个观点：说高校教师的斩杀线是青基和面上
+1/68
-
衡水学院招收食品与营养方向联合培养研究生
+1/36
-
大叔征婚
+1/22
-
复旦大学聂志鸿团队招聘聚电解质方向博士后和科研助理
+1/14
-
山东大学集成电路学院博士招生1名
+1/12
-
哈尔滨工业大学招收硕士研究生（欢迎环境、市政、生物、化学、农业等专业，长期有效）
+1/11
-
2026年中科院化学所优青 程靓团队招收有机化学、生物化学背景的博士研究生
+1/10
-
深容SCI智能体四大模块：Method, Introduction, Discussion, Abstract
+1/9
-
天津大学化学系吴立朋课题组申请考核制博士招生/博后招聘-有机化学，金属有机
+1/8
-
长春工业大学机电工程学院韩玲教授招收审核制2026年秋季入学博士生
+1/3
-
有多余纯化系统，20-200mm高压制备分离系统，配套齐全可对外代工、委托加工、项目合作
+1/3
-
测试
+1/1
-
所以当初说在欧美生活𣎴用讲人情世故的人怎么生活的
+1/1
-
经济学博士（金融方向）招生，211重点大学，2026年9月入学，申请-考核制。
+1/1
★ ★ ★ ★
田山东(金币+1):谢谢参与
lpszk(金币+3): 2011-03-13 22:32:33
田山东(金币+15): 多谢您了，我太粗心了。 2011-03-14 08:47:42
田山东(金币+1):谢谢参与
lpszk(金币+3): 2011-03-13 22:32:33
田山东(金币+15): 多谢您了，我太粗心了。 2011-03-14 08:47:42
|
你把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
4楼2011-03-13 20:21:22
5楼2011-04-04 23:08:32
简单回复
2011-03-13 19:03
回复
田山东(金币+1):谢谢参与
田山东(金币+1): 这样可不好啊！帮我看下是怎么回事吧 2011-03-13 19:09:15
小木虫:)(金币-1): 禁止灌水 2011-04-05 07:20:00
田山东(金币+1): 这样可不好啊！帮我看下是怎么回事吧 2011-03-13 19:09:15
小木虫:)(金币-1): 禁止灌水 2011-04-05 07:20:00
