 |
 |
 |
| 24小時(shí)熱門(mén)版塊排行榜 |
- >論壇更新日志 (2048)
- >考研 (122)
- >蟲(chóng)友互識(shí) (96)
- >考博 (75)
- >導(dǎo)師招生 (65)
- >基金申請(qǐng) (24)
- >碩博家園 (19)
- >論文投稿 (17)
- >教師之家 (16)
- >公派出國(guó) (11)
- >文獻(xiàn)求助 (10)
- >休閑灌水 (8)
- >論文道賀祈福 (7)
- >無(wú)機(jī)/物化 (7)
- >找工作 (6)
- >博后之家 (5)
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1288 | 回復(fù): 14 | |||
| 當(dāng)前只顯示滿(mǎn)足指定條件的回帖，點(diǎn)擊這里查看本話(huà)題的所有回帖 | |||
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ù)此樓» 猜你喜歡
310求調(diào)劑
已經(jīng)有3人回復(fù)
-
材料與化工328分調(diào)劑
已經(jīng)有8人回復(fù)
-
318一志愿吉林大學(xué)生物與醫(yī)藥 求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿南開(kāi)大學(xué)0710生物學(xué)359求調(diào)劑
已經(jīng)有4人回復(fù)
-
求調(diào)劑
已經(jīng)有6人回復(fù)
-
085600材料與化工調(diào)劑
已經(jīng)有4人回復(fù)
-
327求調(diào)劑
已經(jīng)有4人回復(fù)
-
309求調(diào)劑
已經(jīng)有8人回復(fù)
-
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研經(jīng)歷
已經(jīng)有8人回復(fù)
-
求化學(xué)調(diào)劑
已經(jīng)有5人回復(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ù)
bohdshen
銀蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 275.7
- 帖子: 14
- 在線(xiàn): 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
snoopyzhao
至尊木蟲(chóng) (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線(xiàn): 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
snoopyzhao
至尊木蟲(chóng) (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線(xiàn): 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è)子程中，修改一下下面兩句話(huà)： 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
銀蟲(chóng) (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 275.7
- 帖子: 14
- 在線(xiàn): 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
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 一志愿南開(kāi)大學(xué)0710生物學(xué)359求調(diào)劑 +4 | 兔兔兔111223314 2026-03-29 | 4/200 |
|
|---|---|---|---|---|
|
|
[考研] 085601材料工程找調(diào)劑 +14 | oatmealR 2026-03-29 | 15/750 |
|
|
[考研] 化學(xué)0703 調(diào)劑 306分 一志愿211 +7 | 26要上岸 2026-03-28 | 7/350 |
|
|
|
[考研] 299求調(diào)劑 +10 | 15188958825 2026-03-25 | 10/500 |
|
|
|
[考研] 289求調(diào)劑 +5 | BrightLL 2026-03-29 | 5/250 |
|
|
|
[考研] 332求調(diào)劑 +8 | 蕉蕉123 2026-03-28 | 8/400 |
|
|
|
[考研] 2026年華南師范大學(xué)歡迎化學(xué)，化工，生物，生醫(yī)工等專(zhuān)業(yè)優(yōu)秀學(xué)子加入！ +3 | llss0711 2026-03-28 | 6/300 |
|
|
|
[考研] 352分-085602-一志愿985 +5 | 海納百川Ly 2026-03-29 | 5/250 |
|
|
|
[考研] 085701求調(diào)劑初試286分 +4 | secret0328 2026-03-28 | 4/200 |
|
|
|
[考研] 332求調(diào)劑 +4 | @MZB382400 2026-03-28 | 4/200 |
|
|
|
[考研] 本科新能源科學(xué)與工程，一志愿華理能動(dòng)285求調(diào)劑 +7 | AZMK 2026-03-28 | 11/550 |
|
|
|
[考研] 071000生物學(xué)求調(diào)劑，初試成績(jī)343 +7 | 小小甜面團(tuán) 2026-03-25 | 7/350 |
|
|
|
[材料工程] 一志愿C9材料與化工專(zhuān)業(yè)總分300求調(diào)劑 +8 | 曼111 2026-03-24 | 9/450 |
|
|
|
[考研] 287求調(diào)劑 +10 | land xuxu 2026-03-26 | 10/500 |
|
|
|
[考研] 機(jī)械學(xué)碩310分，數(shù)一英一，一志愿211本科雙非找調(diào)劑信息 +3 | @357 2026-03-25 | 3/150 |
|
|
|
[考研] 303求調(diào)劑 +6 | 藍(lán)山月 2026-03-25 | 6/300 |
|
|
|
[考研] 334分 一志愿武理-080500 材料求調(diào)劑 +4 | 李李不服輸 2026-03-25 | 4/200 |
|
|
|
[考研] 296求調(diào)劑 +4 | 汪��？！ 2026-03-25 | 7/350 |
|
|
|
[考研] 335求調(diào)劑 +4 | yuyu宇 2026-03-23 | 5/250 |
|
|
|
[考研] 求老師收我 +3 | zzh16938784 2026-03-23 | 3/150 |
|