 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1285 | 回復(fù): 14 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | |||
bohdshen銀蟲 (初入文壇)
|
[交流]
【求助】求助 程序我問題 解決送80金幣 已有3人參與
|
||
|
這個(gè)非常簡單是我太笨 請(qǐng)幫忙看下 如我寫有問題 請(qǐng)大俠幫我改寫 輸入DEN AC已知。 計(jì)算POR，初值PORI=0.029 公式如下：  問題：只能計(jì)算一小段的POR 再往下就不能算 函數(shù)關(guān)系表達(dá)式無誤 提示錯(cuò)誤： run-time error M6201: MATH - **: DOMAIN error 未加粗體是該程序的頭尾 固定部分，不用改寫。粗體部分為我加的程序。 BLOCK DATA IMPLICIT INTEGER*4(I-N) INTEGER*2 NUMLOG,IZ, IDC, IZ2 Character*4 NameI,NameO,NameC COMMON /INPC/NOI,NAMEI(2) COMMON /OUTC/NOO,NAMEO(1) COMMON /CONC/NOC,NAMEC(1) COMMON /INP /AC ,DEN COMMON /OUTP/POR COMMON /CON /ZZ(1) COMMON /UNIT/IU,JU,KU,LU,MU COMMON /HD /DEP,DEPO,SDEP,EDEP,ECC,ICO(20),IWELL(20), & NUMLOG,IZ,LOG1(20),STDEP,ENDEP,RLEV,IDC,IZ2,FEET, & LOG2(20),IDUM1(118) DATA IU,JU,KU,LU,MU/1,2,4,3,0/ DATA NoI,NoO,NoC/2,1,1/ DATA NAMEI/'AC ','DEN '/ DATA NAMEO/'POR '/ DATA NAMEC/'PORI'/ DATA ZZ /0.029/ END Program MyProgram IMPLICIT INTEGER*4(I-N) INTEGER*2 NUMLOG,IZ, IDC, IZ2 Character*4 NameI,NameO,NameC COMMON /INPC/NOI,NAMEI(2) COMMON /OUTC/NOO,NAMEO(1) COMMON /CONC/NOC,NAMEC(1) COMMON /INP /AC ,DEN COMMON /OUTP/POR COMMON /CON /PORI COMMON /INPB/BUFI(25600) COMMON /OUTB/BUFO(25600) COMMON /UNIT/IU,JU,KU,LU,MU COMMON /HD /DEP,DEPO,SDEP,EDEP,ECC,ICO(20),IWELL(20), & NUMLOG,IZ,LOG1(20),STDEP,ENDEP,RLEV,IDC,IZ2,FEET, & LOG2(20),IDUM1(118) CALL PART CALL RDFLNM CALL CONST CALL IN CALL OUT 1 CALL IN AS=92414*DEN/(AC**2) CALL WASAT(AS,PORI,POR) CALL OUT GOTO 1 END SUBROUTINE WASAT(AS,PORI,POR) 9 AA=(1-PORI)**(3/(1-PORI)) AM=10.17*((1-AA)**2) AN=AS-47.317*AA AT=(AM/AN)-PORI IF(ABS(AT) .LE. 0.001) THEN POR=PORI*100 ELSE PORI=PORI+0.002 GOTO 9 ENDIF RETURN END |
回復(fù)此樓» 猜你喜歡
一志愿北化求調(diào)劑
已經(jīng)有4人回復(fù)
-
085601材料工程找調(diào)劑
已經(jīng)有6人回復(fù)
-
318一志愿吉林大學(xué)生物與醫(yī)藥 求調(diào)劑
已經(jīng)有3人回復(fù)
-
一志愿雙一流機(jī)械285分求調(diào)劑
已經(jīng)有4人回復(fù)
-
332求調(diào)劑
已經(jīng)有8人回復(fù)
-
一志愿鄭州大學(xué)，080500學(xué)碩，總分317分求調(diào)劑
已經(jīng)有7人回復(fù)
-
一志愿武漢理工，總分321，英一數(shù)二，求老師收留。
已經(jīng)有8人回復(fù)
-
375求調(diào)劑
已經(jīng)有3人回復(fù)
-
南京大學(xué)化學(xué)調(diào)劑
已經(jīng)有7人回復(fù)
-
070300化學(xué)354求調(diào)劑
已經(jīng)有5人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 【求助】畢業(yè)論文的問題（有關(guān)酰胺合成）-能解決愿傾家蕩產(chǎn)發(fā)金幣
已經(jīng)有31人回復(fù)
- 【求助】求代碼對(duì)應(yīng)的物質(zhì)結(jié)構(gòu)，解決問題金幣全送
已經(jīng)有6人回復(fù)
- 【求助】關(guān)于win7睡眠設(shè)置的問題，謝謝。有金幣送哦~~
已經(jīng)有10人回復(fù)
bohdshen
銀蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 275.7
- 帖子: 14
- 在線: 4.7小時(shí)
- 蟲號(hào): 918750
- 注冊(cè): 2009-12-02
- 專業(yè): 應(yīng)用地球物理學(xué)
nono2009:建議通過“引用回復(fù)該帖”，以便別人收到你的message. 2010-05-10 15:12:05
|
您好 這個(gè)PORI是初始孔隙度 最后POR應(yīng)該在0~1之間 我做的這段深度內(nèi)孔隙度POR實(shí)際值已經(jīng)知道在0.09到0.25之間 我開是沒用wasat直接寫 問題也一樣是做了1米就不做了 無加深處是FoRWARD測(cè)井軟件的固定部分 它是順序結(jié)構(gòu) 逐點(diǎn)深度計(jì)算 后來別人說我直接寫怕有沖突 就讓我用wasat 我現(xiàn)在因?yàn)橄挛缫ラ_會(huì) 所以晚上來探討您的回復(fù) 謝謝 |
4樓2010-05-10 14:53:23
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲號(hào): 183750
- 注冊(cè): 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
2樓2010-05-10 12:46:25
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲號(hào): 183750
- 注冊(cè): 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
★
resonant(金幣+1):感謝建設(shè)性指導(dǎo)：-） 2010-05-10 14:11:18
resonant(金幣+1):感謝建設(shè)性指導(dǎo)：-） 2010-05-10 14:11:18
|
我猜問題可能出在 WASAT 這個(gè)子程中，也就是 PORI = PORI + 0.002 這一步，如果 PORI 等于或大于 1 時(shí)， AA 這個(gè)表達(dá)式還有意義嗎？ 在這一句后面加個(gè)判斷好了，比如: IF (PORI .GE. 1.0) STOP 另外，你的 WASAT 這個(gè)子程中，修改一下下面兩句話： AA=(1.0-PORI)**(3.0/(1.0-PORI)) AM=10.17*((1.0-AA)**2.0) |
3樓2010-05-10 14:00:07
bohdshen
銀蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 275.7
- 帖子: 14
- 在線: 4.7小時(shí)
- 蟲號(hào): 918750
- 注冊(cè): 2009-12-02
- 專業(yè): 應(yīng)用地球物理學(xué)
5樓2010-05-10 19:46:36
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 343求調(diào)劑 +4 | 愛羈絆 2026-03-29 | 4/200 |
|
|---|---|---|---|---|
|
|
[考研] 291求調(diào)劑 +4 | Y-cap 2026-03-29 | 4/200 |
|
|
[考研] 求調(diào)劑，一志愿 南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分 +4 | @taotao 2026-03-29 | 4/200 |
|
|
|
[考研] 329求調(diào)劑 +7 | 星野? 2026-03-26 | 7/350 |
|
|
|
[考研] 11408軟件工程求調(diào)劑 +3 | Qiu學(xué)ing 2026-03-28 | 3/150 |
|
|
|
[考研] 275求調(diào)劑 +10 | Micky11223 2026-03-25 | 14/700 |
|
|
|
[考研] 一志愿中南大學(xué)化學(xué)0703總分337求調(diào)劑 +5 | niko- 2026-03-27 | 5/250 |
|
|
|
[考研] 085602 307分 求調(diào)劑 +7 | 不知道叫什么！ 2026-03-26 | 7/350 |
|
|
|
[考研] 085404求調(diào)劑，總分309，本科經(jīng)歷較為豐富 +4 | 來財(cái)aa 2026-03-25 | 4/200 |
|
|
|
[考研] 340求調(diào)劑 +5 | jhx777 2026-03-27 | 5/250 |
|
|
|
[考研] 一志愿北京化工大學(xué) 070300 學(xué)碩 336分 求調(diào)劑 +9 | vv迷 2026-03-22 | 9/450 |
|
|
|
[考研] 0703化學(xué)求調(diào)劑 +3 | 丹青奶蓋 2026-03-26 | 5/250 |
|
|
|
[考研] 材料科學(xué)與工程 317求調(diào)劑 +4 | JKSOIID 2026-03-26 | 4/200 |
|
|
|
[考研] 化學(xué)調(diào)劑一志愿上海交通大學(xué)336分-本科上海211 +4 | 小魚愛有機(jī) 2026-03-25 | 4/200 |
|
|
|
[考研] 一志愿上海交大生物與醫(yī)藥專碩324分，求調(diào)劑 +6 | jiajunX 2026-03-22 | 6/300 |
|
|
|
[考研] 332求調(diào)劑 +6 | 032500 2026-03-25 | 6/300 |
|
|
|
[考研] 一志愿南航 335分 | 0856材料化工 | GPA 4.07 | 有科研經(jīng)歷 +6 | cccchenso 2026-03-23 | 6/300 |
|
|
|
[考研] 【2026考研調(diào)劑】制藥工程 284分 求相關(guān)專業(yè)調(diào)劑名額 +4 | 袁奐奐 2026-03-25 | 8/400 |
|
|
|
[考研] 0854人工智能方向招收調(diào)劑 +4 | 章小魚567 2026-03-24 | 4/200 |
|
|
|
[考研] 328求調(diào)劑 +4 | LHHL66 2026-03-23 | 4/200 |
|