| 查看: 904 | 回复: 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 |
回复此楼» 猜你喜欢
磺酰氟产物，毕不了业了！
已经有8人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有10人回复
-
26申博（荧光探针方向，有机合成）
已经有4人回复
-
要不要辞职读博？
已经有3人回复
-
论文终于录用啦！满足毕业条件了
已经有26人回复
-
2026年机械制造与材料应用国际会议 （ICMMMA 2026）
已经有4人回复
-
Cas 72-43-5需要30g，定制合成，能接单的留言
已经有8人回复
-
北京211副教授，35岁，想重新出发，去国外做博后，怎么样？
已经有8人回复
-
自荐读博
已经有3人回复
-
不自信的我
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请高手指点一下怎么确定一个符号矩阵中的等值元素
已经有6人回复
- 陌生的fortran语言，哪位可以指点一二？悬赏100金币
已经有5人回复
- 求助计算机高人，编写个Fortran程序
已经有13人回复
- 请教一个fortran小程序编译出错的问题，谢谢
已经有9人回复
- 写了一个fortran90的小程序，编译通不过，请大侠帮忙
已经有59人回复
- 【求助】求高手关于Fortran数据读写的问题。【已完结】
已经有12人回复
- 【求助】求指点，在Fortran里面，怎样实现“数组维度可调”的数组?
已经有5人回复
- 【求助】求助个Fortran计算，应该不难，半天搞不定，请高手帮忙
已经有11人回复
» 抢金币啦！回帖就可以得到:
-
求一个访问学者邀请函，非常非常感谢
+1/679
-
坐标济南，来碰碰运气
+1/451
-
上海交通大学医学院王戈林课题组招聘博士后和助理研究员
+1/267
-
浙江师范大学国家杰青杨启华教授团队招收2026年博士研究生
+1/85
-
上海师范大学生物医用材料方向招收2026级博士研究生
+1/84
-
深圳大学材料学院黄妍斐教授课题组诚招2026年秋季入学博士生
+1/78
-
成都理工大学全国重点实验室公开诚聘绿色有机合成方向联培生及科研助理
+1/76
-
中科院长春光机所 招收计算材料学博士/硕士研究生（含机器学习辅助材料设计方向）
+1/74
-
昆明理工大学冶能院离子液体冶金课题组招收博士
+1/57
-
北京化工大学化学工程学院杨琪教授 邱介山教授，招收储能电池方向博士研究生
+1/47
-
福建师范大学柔性电子学院招收2026年博士（储能材料与柔性电子器件）
+2/18
-
中国科学院大学-杨晗课题组-诚聘-博士后、副研究员
+1/13
-
长江学者团队招聘药学/生物信息学等方向高校教师7名(地点杭州、有事业编)+博后5名
+1/8
-
中科院深圳理工大学网络课题组招聘博后/RA/实习生
+1/7
-
香港科技大学 Abhishek Kumar Srivastava 教授课题组 招收博士生
+2/6
-
上海理工顾敏院士/李蔚团队招收2026级博士研究生 （集成光学、量子信息方向）
+1/5
-
美国麻省大学电子工程系招收全奖博士生和博士后
+1/5
-
北京工业大学材料学院吴玉锋教授、王长龙研究员招收博士研究生
+1/4
-
浙江大学傅杰团队(杰青)高薪招聘博士后1
+1/3
-
求博导收留
+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
