| 10 | 1/1 | 返回列表 |
| 查看: 4138 | 回復(fù): 9 | |||
fish8900金蟲 (小有名氣)
|
[求助]
fortran中運(yùn)行中出現(xiàn)無窮大的數(shù)怎么處理
|
|
在計(jì)算的過程中出現(xiàn)了無窮大的數(shù)(然后程序終止),我想進(jìn)行以下幾種嘗試,不知如何進(jìn)行 1、當(dāng)A變得無窮大后,我想對(duì)它進(jìn)行賦值,令A(yù)=1.0E+10 2、當(dāng)A變得無窮大后,想用一個(gè)判據(jù)來進(jìn)行后來的其他計(jì)算,這個(gè)判據(jù)該怎么設(shè)置 3、如何判斷A變得無窮大了 |
北大科研分享 |
木蟲 (小有名氣)
金蟲 (小有名氣)
|
您好,這是根據(jù)要求寫的一點(diǎn)代碼,希望對(duì)您有幫助。 LOGICAL ISLARGE !邏輯變量,是否是大數(shù) REAL LARGENUM, A PARAMETER(LARGENUM=1.0E10) !也可按需求設(shè)為其他大數(shù) ISLARGE=.FALSE. !判斷A是否是大數(shù),只考慮了正數(shù)情況, IF(A.GE.LARGENUM) !如果還要考慮負(fù)數(shù)情況則改為IF(ABS(A).GE.LARGENUM) A=1.0E10 !是大數(shù)則設(shè)定值為1.0E10 ISLARGE=.TRUE. ENDIF IF(ISLARGE) PRINT 'A is very large' !輸出信息,判斷A為大數(shù)之后的后續(xù)操作 ENDIF |
金蟲 (小有名氣)
金蟲 (小有名氣)
金蟲 (小有名氣)
送紅花一朵 |
1、您說的誤差隨步長增加而增長了是什么意思呢?我在寫程序過程中是規(guī)定了當(dāng)前后的計(jì)算值(T-T1)/T<=1.0e-03時(shí),認(rèn)定計(jì)算結(jié)果達(dá)到收斂。而且我在調(diào)試過程中是將某些數(shù)值調(diào)大一點(diǎn)后才出現(xiàn)無窮大的情況。 2、當(dāng)A的相關(guān)變量變得不合理時(shí),我試著將它變成一個(gè)可以接受的值,但是發(fā)現(xiàn)還是會(huì)出現(xiàn)計(jì)算停止的現(xiàn)象(結(jié)果顯示也還是出現(xiàn)sqrt的問題),想問一下您猜測(cè)原因可能是什么? (可能有點(diǎn)憑空說了,不好意思哈,沒具體程序給你看) |
金蟲 (小有名氣)
金蟲 (小有名氣)
銀蟲 (正式寫手)
| 10 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 一志愿廈門大學(xué)材料工程專碩354找調(diào)劑。! +5 | 貝唄鋇鋇 2026-03-30 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 材料化工340求調(diào)劑 +3 | jhx777 2026-03-30 | 3/150 |
|
|
[考研] 求調(diào)劑323材料與化工 +10 | 1124361 2026-03-24 | 10/500 |
|
|
[考研] 262求調(diào)劑 +4 | ZZ..000 2026-03-30 | 4/200 |
|
|
[考研] 求調(diào)劑 +7 | 研研,接電話 2026-03-24 | 8/400 |
|
|
[考研] 材料與化工272求調(diào)劑 +21 | 阿斯蒂芬2004 2026-03-28 | 21/1050 |
|
|
[考研] 330分求調(diào)劑 +5 | qzenlc 2026-03-29 | 5/250 |
|
|
[考研] 求調(diào)劑 +7 | 爭取九點(diǎn)睡 2026-03-28 | 8/400 |
|
|
[考研] 311(085601)求調(diào)劑 +4 | liziyeyeye 2026-03-28 | 4/200 |
|
|
[考研] 材料與化工(0856)304求B區(qū)調(diào)劑 +8 | 邱gl 2026-03-27 | 8/400 |
|
|
[考研] 0856,材料與化工321分求調(diào)劑 +12 | 大饞小子 2026-03-27 | 13/650 |
|
|
[考研] 081200-314 +3 | LILIQQ 2026-03-27 | 4/200 |
|
|
[考研] 330一志愿中國海洋大學(xué) 化學(xué)工程 085602 有讀博意愿 求調(diào)劑 +3 | wywy.. 2026-03-27 | 4/200 |
|
|
[考研] 0856調(diào)劑 +5 | 求求讓我有書讀?/a> 2026-03-26 | 6/300 |
|
|
[考研] 考研調(diào)劑 +10 | 呼呼?~+123456 2026-03-24 | 10/500 |
|
|
[考研] 調(diào)劑求收留 +7 | 果然有我 2026-03-26 | 7/350 |
|
|
[考研]
材料調(diào)劑
5+4
|
想要一壺桃花水 2026-03-25 | 10/500 |
|
|
[考研]
|
平樂樂樂 2026-03-26 | 4/200 |
|
|
[考研] 材料與化工304求B區(qū)調(diào)劑 +3 | 邱gl 2026-03-25 | 3/150 |
|
|
[考研] 285求調(diào)劑 +3 | AZMK 2026-03-24 | 3/150 |
|