| 查看: 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 |
回复此楼» 猜你喜欢
一志愿北交大材料工程总分358求调剂
已经有4人回复
-
材料专硕322
已经有3人回复
-
336材料与化工085600求调剂
已经有5人回复
-
化学调剂
已经有16人回复
-
320分人工智能调剂
已经有8人回复
-
（调剂）一志愿报考哈尔滨工业大学0857资源与环境专业378分考生
已经有7人回复
-
331求调剂
已经有6人回复
-
材料334求调剂
已经有16人回复
-
308求调剂
已经有9人回复
-
332求调剂
已经有15人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请高手指点一下怎么确定一个符号矩阵中的等值元素
已经有6人回复
- 陌生的fortran语言，哪位可以指点一二？悬赏100金币
已经有5人回复
- 求助计算机高人，编写个Fortran程序
已经有13人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- 写了一个fortran90的小程序，编译通不过，请大侠帮忙
已经有59人回复
- 【求助】求高手关于Fortran数据读写的问题。【已完结】
已经有12人回复
- 【求助】求指点，在Fortran里面，怎样实现“数组维度可调”的数组?
已经有5人回复
- 【求助】求助个Fortran计算，应该不难，半天搞不定，请高手帮忙
已经有11人回复
» 抢金币啦！回帖就可以得到:
-
齐齐哈尔大学材料科学与工程学院 诚招调剂生
+1/977
-
天津大学智能人机交互团队招收机械非全硕士带薪培养
+1/487
-
中国科学院过程工程研究所 能源环境课题组 博士后招聘启示
+1/183
-
河北大学招收生物与医药专业调剂考生
+3/110
-
西安石油大学新能源学院接收材料类、能源动力类、机械类、计算机类等专业专硕调剂生！
+1/89
-
2026年宁波工程学院杜俊毅副研究员招收化学材料机械类硕士研究生（含调剂）
+1/54
-
2026年宁波工程学院杜俊毅副研究员招收硕士研究生（含调剂）
+1/49
-
招收2026级公共卫生与预防医学专业（学硕）调剂生1名
+1/46
-
福建师范大学海峡柔性电子学院招收2026级调剂硕士研究生（化学/物理学/材料工程）
+1/38
-
华东师范大学物理化学专业2026级博士研究生招生（第二批）
+1/36
-
南京地区，有要戴森洗地机吗？仅限自取
+1/35
-
大连工业大学 高分子材料 接收考研调剂
+1/18
-
长沙理工大学热环境方向招收专硕调剂生
+1/9
-
【博士招生】天津理工大学国家杰青王铁课题组招收2026年博士研究生
+1/8
-
山西师范大学2026年化学硕士点招收调剂生
+1/7
-
济南大学2026年硕士研究生招生预调剂公告
+1/5
-
齐齐哈尔大学李莉课题组诚招2026级考研调剂生（学硕和专硕）
+1/4
-
武汉纺织大学全国重点实验室吕永钢教授课题组招收材料、化学、生物相关专业硕士研究生
+1/4
-
新疆大学 化学专业 硕士研究生调剂信息
+1/3
-
教育部重点实验招生硕士专业还有很多名额
+1/2
★ ★ ★ ★
田山东(金币+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
