 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1286 | 回復: 14 | |||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | |||
[交流]
【求助】求助 程序我問題 解決送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 |
回復此樓» 猜你喜歡
求收留
已經(jīng)有5人回復
-
375求調(diào)劑
已經(jīng)有4人回復
-
340求調(diào)劑
已經(jīng)有6人回復
-
298求調(diào)劑
已經(jīng)有3人回復
-
085601材料工程找調(diào)劑
已經(jīng)有9人回復
-
考研調(diào)劑
已經(jīng)有4人回復
-
面上5B能上會嗎？
已經(jīng)有3人回復
-
求調(diào)劑，一志愿 南京航空航天大學 ，080500材料科學與工程學碩，總分289分
已經(jīng)有7人回復
-
086000生物與醫(yī)藥調(diào)劑
已經(jīng)有9人回復
-
343求調(diào)劑
已經(jīng)有6人回復
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 【求助】畢業(yè)論文的問題（有關(guān)酰胺合成）-能解決愿傾家蕩產(chǎn)發(fā)金幣
已經(jīng)有31人回復
- 【求助】求代碼對應的物質(zhì)結(jié)構(gòu)，解決問題金幣全送
已經(jīng)有6人回復
- 【求助】關(guān)于win7睡眠設(shè)置的問題，謝謝。有金幣送哦~~
已經(jīng)有10人回復
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學
9樓2010-05-11 07:48:04
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學
2樓2010-05-10 12:46:25
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學
3樓2010-05-10 14:00:07
4樓2010-05-10 14:53:23
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 求收留 +5 | 1943443204 2026-03-28 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 085600，專業(yè)課化工原理，321分求調(diào)劑 +5 | 大饞小子 2026-03-28 | 5/250 |
|
|
|
[考研] 調(diào)劑求院校招收 +6 | 鶴鯨鴿 2026-03-28 | 6/300 |
|
|
|
[考研] 291求調(diào)劑 +4 | Y-cap 2026-03-29 | 5/250 |
|
|
|
[考研] 299求調(diào)劑 +7 | 嗯嗯嗯嗯2 2026-03-27 | 7/350 |
|
|
|
[考研] 一志愿南京航空航天大學材料學碩求調(diào)劑 +3 | @taotao 2026-03-28 | 3/150 |
|
|
|
[考研] 292求調(diào)劑 +14 | 鵝鵝鵝額額額額?/a> 2026-03-25 | 15/750 |
|
|
|
[考研] 086502化學工程342求調(diào)劑 +6 | 阿姨復古不過 2026-03-27 | 6/300 |
|
|
|
[考研] 化學調(diào)劑 +4 | 愛吃番茄的旭 2026-03-24 | 5/250 |
|
|
|
[考研] 287求調(diào)劑 +10 | land xuxu 2026-03-26 | 10/500 |
|
|
|
[考研] 安徽大學專碩生物與醫(yī)藥專業(yè)(086000)324分，英語已過四六級，六級521，求調(diào)劑 +4 | 美味可樂雞翅 2026-03-26 | 4/200 |
|
|
|
[考研] 一志愿211，335分，0856，求調(diào)劑院校和導師 +4 | 傾____蕭 2026-03-27 | 5/250 |
|
|
|
[考研] 333求調(diào)劑 +3 | question挽風 2026-03-23 | 3/150 |
|
|
|
[考研] 286求調(diào)劑 +4 | lim0922 2026-03-26 | 4/200 |
|
|
|
[考研] 341求調(diào)劑 +7 | 青檸檬1 2026-03-26 | 7/350 |
|
|
|
[考研]
 085602化學工程求調(diào)劑。
+4
|
平樂樂樂 2026-03-26 | 4/200 |
|
|
|
[考研] 081700 調(diào)劑 267分 +11 | 迷人的哈哈 2026-03-23 | 11/550 |
|
|
|
[考研] 求b區(qū)院校調(diào)劑 +4 | 周56 2026-03-24 | 5/250 |
|
|
|
[考研] 各位老師您好：本人初試372分 +5 | jj涌77 2026-03-25 | 6/300 |
|
|
|
[考研] 材料專碩找調(diào)劑 +5 | 哈哈哈吼吼吼哈 2026-03-23 | 5/250 |
|