| 5 | 1/1 | 返回列表 |
| 查看: 4140 | 回復(fù): 9 | |||
| 當(dāng)前只顯示滿足指定條件的回帖,點(diǎn)擊這里查看本話題的所有回帖 | |||
fish8900金蟲 (小有名氣)
|
[求助]
fortran中運(yùn)行中出現(xiàn)無窮大的數(shù)怎么處理
|
||
|
在計算的過程中出現(xiàn)了無窮大的數(shù)(然后程序終止),我想進(jìn)行以下幾種嘗試,不知如何進(jìn)行 1、當(dāng)A變得無窮大后,我想對它進(jìn)行賦值,令A(yù)=1.0E+10 2、當(dāng)A變得無窮大后,想用一個判據(jù)來進(jìn)行后來的其他計算,這個判據(jù)該怎么設(shè)置 3、如何判斷A變得無窮大了 |
北大科研分享 |
金蟲 (小有名氣)
木蟲 (小有名氣)
金蟲 (小有名氣)
|
您好,這是根據(jù)要求寫的一點(diǎn)代碼,希望對您有幫助。 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 |
金蟲 (小有名氣)
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 352分-085602-一志愿985 +6 | 海納百川Ly 2026-03-29 | 6/300 |
|
|---|---|---|---|---|
|
[考研] 085600 一志愿9 總分351 求調(diào)劑學(xué)校 +7 | czhcz 2026-03-31 | 7/350 |
|
|
[考研] 機(jī)械學(xué)碩總分317求調(diào)劑。。! +6 | Acaciad 2026-03-25 | 6/300 |
|
|
[考研] 化學(xué)0703 調(diào)劑 306分 一志愿211 +10 | 26要上岸 2026-03-28 | 10/500 |
|
|
[考研] 化學(xué)工程085602 305分求調(diào)劑 +28 | RichLi_ 2026-03-25 | 36/1800 |
|
|
[考研] 347求調(diào)劑 +11 | 山頂見α 2026-03-25 | 11/550 |
|
|
[考研] 085600材料與化工調(diào)劑 +16 | kikiki7 2026-03-30 | 16/800 |
|
|
[考研] 083000學(xué)碩274求調(diào)劑 +12 | Li李魚 2026-03-26 | 12/600 |
|
|
[考研] 材料與化工調(diào)劑一志愿大連海事085600,349 +6 | 吃的不少 2026-03-30 | 6/300 |
|
|
[考研] 一志愿食品科學(xué)與工程083200求調(diào)劑 +4 | XQTJZ 2026-03-30 | 4/200 |
|
|
[考研]
|
鐘llll 2026-03-26 | 5/250 |
|
|
[考研] 327求調(diào)劑 +5 | 小卡不卡. 2026-03-29 | 5/250 |
|
|
[考研] 085601材料工程找調(diào)劑 +17 | oatmealR 2026-03-29 | 18/900 |
|
|
[考研] 材料化工340求調(diào)劑 +3 | jhx777 2026-03-30 | 3/150 |
|
|
[考研] 303求調(diào)劑 +7 | DLkz1314. 2026-03-30 | 7/350 |
|
|
[考研] 329求調(diào)劑 +10 | 鈕恩雪 2026-03-25 | 10/500 |
|
|
[考研] 11408軟件工程求調(diào)劑 +3 | Qiu學(xué)ing 2026-03-28 | 3/150 |
|
|
[考研] 壓國家一區(qū)線,求導(dǎo)師收留,有恩必謝! +7 | 迷人的哈哈 2026-03-28 | 7/350 |
|
|
[考研] 調(diào)劑求收留 +7 | 果然有我 2026-03-26 | 7/350 |
|
|
[考研] 303求調(diào)劑 +6 | 藍(lán)山月 2026-03-25 | 6/300 |
|