| 查看: 1036 | 回复: 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 |
回复此楼» 猜你喜欢
生命口C13面上会评时间
已经有8人回复
-
你可曾有过这种感受？
已经有6人回复
-
小木虫没落了，除了祈祷帖子，几乎看不到有价值的帖子
已经有8人回复
-
农业机械学报投稿周期
已经有7人回复
-
国自然面上D口祈祷
已经有4人回复
-
跨出版社商投稿
已经有4人回复
-
内心匮乏
已经有12人回复
-
没收到消息，再次陪跑
已经有3人回复
-
E口会评
已经有10人回复
-
不要再数国自然申请书的 filecode 的分隔符个数了
已经有20人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请高手指点一下怎么确定一个符号矩阵中的等值元素
已经有6人回复
- 陌生的fortran语言，哪位可以指点一二？悬赏100金币
已经有5人回复
- 求助计算机高人，编写个Fortran程序
已经有13人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- 写了一个fortran90的小程序，编译通不过，请大侠帮忙
已经有59人回复
- 【求助】求高手关于Fortran数据读写的问题。【已完结】
已经有12人回复
- 【求助】求指点，在Fortran里面，怎样实现“数组维度可调”的数组?
已经有5人回复
- 【求助】求助个Fortran计算，应该不难，半天搞不定，请高手帮忙
已经有11人回复
» 抢金币啦！回帖就可以得到:
-
90年 河北 回族女生 在京 诚征男友
+1/611
-
北京工业大学材料科学与工程学院李建荣教授课题组诚聘电池相关领域应届毕业生和博士后
+1/584
-
重磅分享｜全链路AI材料研发闭环平台PULSE即将发布，重构新材料研发范式
+2/140
-
中南大学材料科学与工程学院招收2027年博士研究生（1-2名）
+1/124
-
BBC儿童英语科普《Do you know》高清英字，培养思考习惯，非常好的启蒙科普片！
+1/88
-
将研究内容相同或相近的项目以不同项目类型申请基金，还行不行？
+1/87
-
海南大学化学院，招聘2026科研助理，博士，博士后
+1/28
-
2027君科院博士研究生招生欢迎报考
+2/24
-
7月15日-21日暨南大学2027年研究生招生线上宣讲会直播重磅开启！
+1/10
-
干细胞毒理学研究组招收2027年硕博
+1/9
-
双一流高校招收博士（现代技术管理/环境技术经济管理）及硕士研究生（长期有效）
+1/8
-
为面上项目祈福，祈祷顺利获批！
+1/7
-
北理工集成电路杰青团队 | 诚招科助理
+1/7
-
多本 Scopus 收录国际英文 OA 期刊长期收稿~全免 APC！
+1/7
-
双一流高校招收博士（现代技术管理/环境技术经济管理）及硕士研究生（长期有效）
+1/6
-
北京理工大学-集成电路与电子学院杰青团队-招博士后
+1/6
-
东北大学理学院力学李健课题组招收2027级硕士推免研究生
+1/5
-
Urgent！知名外资仪器厂家急招Application Scientist（2名，售前，SH）
+1/3
-
【调研交流】氢燃料电池系统绿色设计评价标准——前期调研，想听真实需求
+1/2
-
从终点判断到机制解析：多因子检测技术重塑药物毒理研究格局
+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
