 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1284 | 回復(fù): 14 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | |||
bohdshen銀蟲(chóng) (初入文壇)
|
[交流]
【求助】求助 程序我問(wèn)題 解決送80金幣 已有3人參與
|
||
|
這個(gè)非常簡(jiǎn)單是我太笨 請(qǐng)幫忙看下 如我寫(xiě)有問(wèn)題 請(qǐng)大俠幫我改寫(xiě) 輸入DEN AC已知。 計(jì)算POR，初值PORI=0.029 公式如下：  問(wèn)題：只能計(jì)算一小段的POR 再往下就不能算 函數(shù)關(guān)系表達(dá)式無(wú)誤 提示錯(cuò)誤： run-time error M6201: MATH - **: DOMAIN error 未加粗體是該程序的頭尾 固定部分，不用改寫(xiě)。粗體部分為我加的程序。 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ù)此樓» 猜你喜歡
309求調(diào)劑
已經(jīng)有3人回復(fù)
-
070300化學(xué)354求調(diào)劑
已經(jīng)有4人回復(fù)
-
330分求調(diào)劑
已經(jīng)有3人回復(fù)
-
299求調(diào)劑
已經(jīng)有8人回復(fù)
-
一志愿北京理工大學(xué)本科211材料工程294求調(diào)劑
已經(jīng)有6人回復(fù)
-
300求調(diào)劑，材料科學(xué)英一數(shù)二
已經(jīng)有8人回復(fù)
-
招收生物學(xué)/細(xì)胞生物學(xué)調(diào)劑
已經(jīng)有5人回復(fù)
-
070305高分子化學(xué)與物理 304分求調(diào)劑
已經(jīng)有7人回復(fù)
-
289求調(diào)劑
已經(jīng)有13人回復(fù)
-
一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分
已經(jīng)有9人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 【求助】畢業(yè)論文的問(wèn)題（有關(guān)酰胺合成）-能解決愿傾家蕩產(chǎn)發(fā)金幣
已經(jīng)有31人回復(fù)
- 【求助】求代碼對(duì)應(yīng)的物質(zhì)結(jié)構(gòu)，解決問(wèn)題金幣全送
已經(jīng)有6人回復(fù)
- 【求助】關(guān)于win7睡眠設(shè)置的問(wèn)題，謝謝。有金幣送哦~~
已經(jīng)有10人回復(fù)
snoopyzhao
至尊木蟲(chóng) (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲(chóng)號(hào): 183750
- 注冊(cè): 2006-02-13
- 專(zhuān)業(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
|
我猜問(wèn)題可能出在 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
snoopyzhao
至尊木蟲(chóng) (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲(chóng)號(hào): 183750
- 注冊(cè): 2006-02-13
- 專(zhuān)業(yè): 污染生態(tài)化學(xué)
2樓2010-05-10 12:46:25
bohdshen
銀蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 275.7
- 帖子: 14
- 在線: 4.7小時(shí)
- 蟲(chóng)號(hào): 918750
- 注冊(cè): 2009-12-02
- 專(zhuān)業(yè): 應(yīng)用地球物理學(xué)
nono2009:建議通過(guò)“引用回復(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之間 我開(kāi)是沒(méi)用wasat直接寫(xiě) 問(wèn)題也一樣是做了1米就不做了 無(wú)加深處是FoRWARD測(cè)井軟件的固定部分 它是順序結(jié)構(gòu) 逐點(diǎn)深度計(jì)算 后來(lái)別人說(shuō)我直接寫(xiě)怕有沖突 就讓我用wasat 我現(xiàn)在因?yàn)橄挛缫ラ_(kāi)會(huì) 所以晚上來(lái)探討您的回復(fù) 謝謝 |
4樓2010-05-10 14:53:23
bohdshen
銀蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 275.7
- 帖子: 14
- 在線: 4.7小時(shí)
- 蟲(chóng)號(hào): 918750
- 注冊(cè): 2009-12-02
- 專(zhuān)業(yè): 應(yīng)用地球物理學(xué)
resonant:nano區(qū)長(zhǎng)已經(jīng)提示過(guò)，不過(guò)朋友沒(méi)有完全理解，必須引用你想要通知的人的言論，才是有效的。引用自己的發(fā)言對(duì)方還是不會(huì)知道... 2010-05-10 21:06:39
|
首先感謝你 我試驗(yàn)了你的方法 加了stop 確實(shí)運(yùn)行了 但是結(jié)果除了開(kāi)始的1米沒(méi)有問(wèn)題 下面的結(jié)果都是0 這說(shuō)明是真的PORI超出了1了吧。。 可是這段范圍在結(jié)論上應(yīng)該在0.03到0.3之間才對(duì) 這我該怎么修改呢 敬請(qǐng)指教 非常之感謝 |
5樓2010-05-10 19:46:36
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 調(diào)劑求院校招收 +5 | 鶴鯨鴿 2026-03-28 | 5/250 |
|
|---|---|---|---|---|
|
|
[考研] 一志愿北京化工大學(xué)材料與化工（085600）296求調(diào)劑 +12 | 稻妻小編 2026-03-26 | 12/600 |
|
|
[考研] 本科新能源科學(xué)與工程，一志愿華理能動(dòng)285求調(diào)劑 +7 | AZMK 2026-03-28 | 11/550 |
|
|
|
[考研] 藥學(xué)105500求調(diào)劑 +3 | Ssun。。 2026-03-28 | 3/150 |
|
|
|
[考研] 0856，材料與化工321分求調(diào)劑 +12 | 大饞小子 2026-03-27 | 13/650 |
|
|
|
[考研] 311求調(diào)劑 +3 | 希望上岸阿小楊 2026-03-23 | 3/150 |
|
|
|
[考研] 求調(diào)劑 +8 | 張zz111 2026-03-27 | 9/450 |
|
|
|
[考研] 266分求材料化工冶金礦業(yè)等專(zhuān)業(yè)的調(diào)劑 +4 | 哇呼哼呼哼 2026-03-26 | 4/200 |
|
|
|
[考研] 279 分 求調(diào)劑 +4 | 睡個(gè)好覺(jué)_16 2026-03-24 | 4/200 |
|
|
|
[考研] 化學(xué)308分求調(diào)劑 +8 | 你好明天你好 2026-03-23 | 9/450 |
|
|
|
[考研] 一志愿華東理工大學(xué)081700，初試分?jǐn)?shù)271 +6 | kotoko_ik 2026-03-23 | 7/350 |
|
|
|
[考研] 一志愿211，335分，0856，求調(diào)劑院校和導(dǎo)師 +4 | 傾____蕭 2026-03-27 | 5/250 |
|
|
|
[考研] 284求調(diào)劑 +11 | junqihahaha 2026-03-26 | 12/600 |
|
|
|
[考研]
 304材料求調(diào)劑
+4
|
鐘llll 2026-03-26 | 4/200 |
|
|
|
[考研] 【雙一流院校新能源、環(huán)境材料，材料加工與模擬招收大量調(diào)劑】 +4 | Higraduate 2026-03-22 | 8/400 |
|
|
|
[考研] 297求調(diào)劑 +6 | 田洪有 2026-03-26 | 6/300 |
|
|
|
[考研] 309求調(diào)劑 +4 | gajsj 2026-03-25 | 5/250 |
|
|
|
[考研] 332求調(diào)劑 +6 | 032500 2026-03-25 | 6/300 |
|
|
|
[考研] 材料專(zhuān)碩 335 分求調(diào)劑 +4 | 拒絕冷暴力 2026-03-25 | 4/200 |
|
|
|
[考研]
材料考研調(diào)劑生
+3
|
黃粱一夢(mèng)千年 2026-03-24 | 3/150 |
|