 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 954 | 回復: 4 | |||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | |||
[交流]
【求助】一個求積分的fortran程序，請高手指點（還是在物理區(qū)問好些）
|
|||
|
我算了一個很簡單的求積分的程序，得到的結果為什么是0呢？用imsl下的數(shù)據(jù)庫函數(shù)QDAGS (F, a, b, RES, ERRA,ERRREL, ERREST)求的。高手幫忙指點下吧。不論函數(shù)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 |
回復此樓» 猜你喜歡
085600材料與化工調(diào)劑
已經(jīng)有14人回復
-
一志愿北化085600材料專碩275|有文章專利｜求調(diào)劑
已經(jīng)有10人回復
-
材料科學與工程求調(diào)劑
已經(jīng)有9人回復
-
一志愿 南京航空航天大學 ，080500材料科學與工程學碩
已經(jīng)有3人回復
-
材料科學與工程調(diào)劑
已經(jīng)有10人回復
-
274求調(diào)劑
已經(jīng)有4人回復
-
一志愿食品科學與工程083200求調(diào)劑
已經(jīng)有3人回復
-
311求調(diào)劑一志愿合肥工業(yè)大學
已經(jīng)有3人回復
-
266分，求材料相關專業(yè)調(diào)劑
已經(jīng)有8人回復
-
材料求調(diào)劑 一志愿哈工大總分298分，前三科223分
已經(jīng)有10人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- 請高手指點一下怎么確定一個符號矩陣中的等值元素
已經(jīng)有6人回復
- 陌生的fortran語言，哪位可以指點一二？懸賞100金幣
已經(jīng)有5人回復
- 求助計算機高人，編寫個Fortran程序
已經(jīng)有13人回復
- 請教一個fortran小程序編譯出錯的問題，謝謝
已經(jīng)有9人回復
- 寫了一個fortran90的小程序，編譯通不過，請大俠幫忙
已經(jīng)有59人回復
- 【求助】求高手關于Fortran數(shù)據(jù)讀寫的問題�！疽淹杲Y】
已經(jīng)有12人回復
- 【求助】求指點，在Fortran里面，怎樣實現(xiàn)“數(shù)組維度可調(diào)”的數(shù)組?
已經(jīng)有5人回復
- 【求助】求助個Fortran計算，應該不難，半天搞不定，請高手幫忙
已經(jīng)有11人回復
» 搶金幣啦！回帖就可以得到:
-
中國散裂中子源誠聘“AI材料計算”方向博士后/職工
+1/389
-
山東建筑大學材料類研究生招生調(diào)劑
+3/179
-
東北石油大學PCAFM實驗室研究生調(diào)劑招生（化學化工、材料等相關專業(yè)）
+1/87
-
2026年武漢紡織大學國家杰青課題組招收調(diào)劑化學 生物 醫(yī)學 食品 環(huán)境研究生
+1/85
-
太原科技大學材料科學與工程學院招收金屬材料類博士一名
+1/82
-
南方醫(yī)科大學中藥學院 調(diào)劑碩士生一名 中藥學專業(yè)
+1/81
-
下一站，欽州
+1/78
-
武漢工程大學化環(huán)學院程老師課題組招收化學類學碩、化學工程與環(huán)境工程專碩調(diào)劑
+2/48
-
天津理工大學功能晶體研究院（晶體材料全國重點實驗室）杰青團隊招收2026年碩士研究生
+1/45
-
球差相關知識
+1/37
-
華南理工大學周奕彤老師課題組招收2026級博士生-外骨骼機器人
+1/35
-
重慶大學李延軍課題組招聘有機方向科研助理
+1/34
-
西南科技大學楊文彬教授課題組接收材料、化工、化學類專業(yè)研究生調(diào)劑 。
+1/28
-
招聘科研助理——儲能方向（儲能、流體傳熱、CFD模擬）
+1/15
-
江西水利電力大學08工學接收調(diào)劑
+1/11
-
中國水產(chǎn)科學研究院黃海水產(chǎn)研究所漁業(yè)環(huán)境優(yōu)化與生物修復研究室招聘項目崗2名
+1/11
-
同濟大學環(huán)境學院 肖倩特聘研究員課題組 招聘碩士/博士（長期有效）
+1/4
-
華南師范大學招收2026年調(diào)劑碩士生！歡迎有化學，環(huán)境等背景的考生！
+1/3
-
長江師范學院化學工程方向接收大量調(diào)劑考生
+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
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 一志愿中海洋材料357 +3 | 麥恩莉. 2026-03-30 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 285求調(diào)劑 +4 | AZMK 2026-03-30 | 7/350 |
|
|
|
[考研] 一志愿華中師范化學332分求調(diào)劑 +3 | Lyy930824@ 2026-03-29 | 3/150 |
|
|
|
[考研] 085601材料工程找調(diào)劑 +17 | oatmealR 2026-03-29 | 18/900 |
|
|
|
[考研] 一志愿南開大學0710生物學359求調(diào)劑 +5 | 兔兔兔111223314 2026-03-29 | 7/350 |
|
|
|
[考研] 085701求調(diào)劑初試286分 +5 | secret0328 2026-03-28 | 5/250 |
|
|
|
[考研] 337求調(diào)劑 +6 | 《樹》 2026-03-29 | 6/300 |
|
|
|
[考研] 290求調(diào)劑 +3 | dfffsar 2026-03-29 | 3/150 |
|
|
|
[考研] 一志愿南昌大學324求調(diào)劑 +5 | hanamiko 2026-03-29 | 5/250 |
|
|
|
[考研] 壓國家一區(qū)線，求導師收留，有恩必謝！ +7 | 迷人的哈哈 2026-03-28 | 7/350 |
|
|
|
[考研] 312，生物學求調(diào)劑 +3 | 小譯同學abc 2026-03-28 | 3/150 |
|
|
|
[考研] 347求調(diào)劑 +3 | 山頂見α 2026-03-25 | 3/150 |
|
|
|
[考研] 材料277求調(diào)劑 +7 | min3 2026-03-24 | 7/350 |
|
|
|
[考研] 081200-314 +3 | LILIQQ 2026-03-27 | 4/200 |
|
|
|
[考研] 315分求調(diào)劑 +7 | 26考研上岸版26 2026-03-26 | 7/350 |
|
|
|
[考研] 341求調(diào)劑 +7 | 青檸檬1 2026-03-26 | 7/350 |
|
|
|
[考研] 一志愿 南京郵電大學 288分 材料考研 求調(diào)劑 +3 | jl0720 2026-03-26 | 3/150 |
|
|
|
[考研] 環(huán)境專碩324分求調(diào)劑推薦 +5 | 軒小寧—— 2026-03-26 | 5/250 |
|
|
|
[考研] 0854人工智能方向招收調(diào)劑 +4 | 章小魚567 2026-03-24 | 4/200 |
|
|
|
[考研] 293求調(diào)劑 +7 | 加一一九 2026-03-24 | 7/350 |
|