 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1283 | 回復(fù): 14 | |||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | |||
bohdshen銀蟲 (初入文壇)
|
[交流]
【求助】求助 程序我問題 解決送80金幣 已有3人參與
|
||
|
這個非常簡單是我太笨 請幫忙看下 如我寫有問題 請大俠幫我改寫 輸入DEN AC已知。 計算POR，初值PORI=0.029 公式如下：  問題：只能計算一小段的POR 再往下就不能算 函數(shù)關(guān)系表達式無誤 提示錯誤： 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ù)此樓» 猜你喜歡
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é)/細胞生物學(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ù)
-
081200-11408-276學(xué)碩求調(diào)劑
已經(jīng)有6人回復(fù)
-
調(diào)劑求院校招收
已經(jīng)有5人回復(fù)
-
調(diào)劑310
已經(jīng)有8人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 【求助】畢業(yè)論文的問題（有關(guān)酰胺合成）-能解決愿傾家蕩產(chǎn)發(fā)金幣
已經(jīng)有31人回復(fù)
- 【求助】求代碼對應(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小時
- 蟲號: 918750
- 注冊: 2009-12-02
- 專業(yè): 應(yīng)用地球物理學(xué)
7樓2010-05-10 21:26:49
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
2樓2010-05-10 12:46:25
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
3樓2010-05-10 14:00:07
bohdshen
銀蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 275.7
- 帖子: 14
- 在線: 4.7小時
- 蟲號: 918750
- 注冊: 2009-12-02
- 專業(yè): 應(yīng)用地球物理學(xué)
4樓2010-05-10 14:53:23
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 332求調(diào)劑 +6 | 蕉蕉123 2026-03-28 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 085600，專業(yè)課化工原理，321分求調(diào)劑 +4 | 大饞小子 2026-03-28 | 4/200 |
|
|
|
[考研] 0856求調(diào)劑 +6 | 楒桉 2026-03-28 | 6/300 |
|
|
|
[考研] 070300化學(xué)354求調(diào)劑 +3 | 101次希望 2026-03-28 | 3/150 |
|
|
|
[考研] 本科新能源科學(xué)與工程，一志愿華理能動285求調(diào)劑 +3 | AZMK 2026-03-27 | 5/250 |
|
|
|
[考研] 一志愿中南大學(xué)化學(xué)0703總分337求調(diào)劑 +5 | niko- 2026-03-27 | 5/250 |
|
|
|
[考研] 299求調(diào)劑 +7 | 嗯嗯嗯嗯2 2026-03-27 | 7/350 |
|
|
|
[考研] 【求調(diào)劑】085601材料工程專碩 | 總分272 | +6 | 腳滑的守法公民 2026-03-27 | 6/300 |
|
|
|
[考研] 一志愿南昌大學(xué)324求調(diào)劑 +7 | hanamiko 2026-03-27 | 7/350 |
|
|
|
[考研] 070300化學(xué)求調(diào)劑 +4 | 起個名咋這么難 2026-03-27 | 4/200 |
|
|
|
[考研] 07化學(xué)280分求調(diào)劑 +10 | 722865 2026-03-23 | 10/500 |
|
|
|
[考研] 一志愿陜師大生物學(xué)071000，298分，求調(diào)劑 +5 | SYA！ 2026-03-23 | 5/250 |
|
|
|
[考研] 【雙一流院校新能源、環(huán)境材料，材料加工與模擬招收大量調(diào)劑】 +4 | Higraduate 2026-03-22 | 8/400 |
|
|
|
[考研] 環(huán)境專碩324分求調(diào)劑推薦 +5 | 軒小寧—— 2026-03-26 | 5/250 |
|
|
|
[考研] 【2026考研調(diào)劑】制藥工程 284分 求相關(guān)專業(yè)調(diào)劑名額 +4 | 袁奐奐 2026-03-25 | 8/400 |
|
|
|
[考研] 一志愿武理085500機械專業(yè)總分300求調(diào)劑 +3 | an10101 2026-03-24 | 7/350 |
|
|
|
[考研] 材料專碩找調(diào)劑 +5 | 哈哈哈吼吼吼哈 2026-03-23 | 5/250 |
|
|
|
[考研] 一志愿河北工業(yè)大學(xué)0817化工278分求調(diào)劑 +7 | jhybd 2026-03-23 | 12/600 |
|
|
|
[考研] 材料/農(nóng)業(yè)專業(yè)，07/08開頭均可，過線就行 +3 | 呵唔哦豁 2026-03-23 | 4/200 |
|
|
|
[考研] 求老師收我 +3 | zzh16938784 2026-03-23 | 3/150 |
|