 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 3290 | 回復(fù): 14 | ||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | ||
[求助]
fortran 隨機(jī)數(shù) 每次運(yùn)行都是一樣的！
|
||
|
如題 fortran 隨機(jī)數(shù) 每次運(yùn)行都是一樣的！ call random_seed () call random_number (rd); 由于計(jì)算的時(shí)間很短，運(yùn)行起來每次還是一樣的！ 大家怎么忙解決？ |
回復(fù)此樓» 猜你喜歡
294分080500材料科學(xué)與工程求調(diào)劑
已經(jīng)有6人回復(fù)
-
296求調(diào)劑
已經(jīng)有6人回復(fù)
-
275求調(diào)劑
已經(jīng)有19人回復(fù)
-
【求調(diào)劑】085601材料工程專碩 | 總分272 |
已經(jīng)有7人回復(fù)
-
材料與化工272求調(diào)劑
已經(jīng)有14人回復(fù)
-
283求調(diào)劑（080500）
已經(jīng)有6人回復(fù)
-
化學(xué)0703 調(diào)劑 306分 一志愿211
已經(jīng)有7人回復(fù)
-
南京大學(xué)化學(xué)調(diào)劑
已經(jīng)有10人回復(fù)
-
調(diào)劑310
已經(jīng)有13人回復(fù)
-
材料專碩調(diào)劑
已經(jīng)有4人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 我們都是大作家
已經(jīng)有12人回復(fù)
- 測(cè)試POSCAR的腳本不運(yùn)行
已經(jīng)有10人回復(fù)
- fortran程序運(yùn)行黑框閃下就消失
已經(jīng)有5人回復(fù)
- 【求助】Fortran程序，如何讓exe文件可以單獨(dú)運(yùn)行？
已經(jīng)有6人回復(fù)
- 【討論】大家進(jìn)來說下為什么學(xué)matlab
已經(jīng)有44人回復(fù)
3樓2011-09-04 15:07:58
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲號(hào): 183750
- 注冊(cè): 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
2樓2011-09-04 14:56:30
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲號(hào): 183750
- 注冊(cè): 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
4樓2011-09-04 15:29:13
|
你的意思是，你在程序中取了很多隨機(jī)數(shù)，然后，隨機(jī)數(shù)是一樣的嗎？ 不是一樣的的，是我想運(yùn)行兩次希望得到不同的結(jié)果 兩次分別運(yùn)行的到結(jié)果是一樣的 另外，種子與時(shí)間有啥關(guān)系？你以時(shí)間作種嗎？ 本來想以時(shí)間做種，這樣的話 運(yùn)行兩次得到的結(jié)果就是不一樣的 但是時(shí)間太短了，得到的還是一樣的， 給段代碼看看吧…… do jj=1,5000 do i=1,100000 call random_seed () call random_number (rd) if (rd<=p(1)) THEN ………………………… else if (rd<=p(2) .AND. rd>p(1)) THEN ………………………… else if (rd<=p(3) .AND. rd>p(2)) THEN ………………………… else if (rd<=p(4) .AND. rd>p(3)) THEN ………………………… else if (rd<=p(5) .AND. rd>p(4)) THEN ………………………… else ………………………… end if end do std=tdx*tdx+tdy*tdy; write(10,130) tt,std; end do |
5樓2011-09-04 15:58:02
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 275求調(diào)劑 +14 | Micky11223 2026-03-25 | 19/950 |
|
|---|---|---|---|---|
|
|
[考研] 349求調(diào)劑 +6 | 李木子啊哈哈 2026-03-25 | 6/300 |
|
|
|
[考研] 一志愿華理，數(shù)一英一285求A區(qū)調(diào)劑 +8 | AZMK 2026-03-25 | 12/600 |
|
|
[考研] 320分，材料與化工專業(yè)，求調(diào)劑 +9 | 一定上岸aaa 2026-03-27 | 13/650 |
|
|
|
[考研] 求化學(xué)調(diào)劑 +4 | wulanna 2026-03-28 | 4/200 |
|
|
|
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +8 | 邱gl 2026-03-27 | 8/400 |
|
|
|
[考研] 331環(huán)境科學(xué)與工程求調(diào)劑 +3 | 熠然好運(yùn)氣 2026-03-27 | 3/150 |
|
|
|
[考研] 352分 化工與材料 +5 | 海納百川Ly 2026-03-27 | 5/250 |
|
|
|
[考研] 266求調(diào)劑 +11 | 陽陽哇塞 2026-03-27 | 12/600 |
|
|
|
[考研] 308求調(diào)劑 +7 | 墨墨漠 2026-03-25 | 7/350 |
|
|
|
[考研] 化學(xué)308分求調(diào)劑 +8 | 你好明天你好 2026-03-23 | 9/450 |
|
|
|
[考研] 286求調(diào)劑 +4 | lim0922 2026-03-26 | 4/200 |
|
|
|
[考研] 327求調(diào)劑 +7 | prayer13 2026-03-23 | 7/350 |
|
|
|
[考研] 303求調(diào)劑 +6 | 藍(lán)山月 2026-03-25 | 6/300 |
|
|
|
[考研] 材料與化工328分調(diào)劑 +6 | 。，。，。，。i 2026-03-23 | 6/300 |
|
|
|
[考研] 347求調(diào)劑 +4 | L when 2026-03-25 | 4/200 |
|
|
|
[考研] 求調(diào)劑 +3 | 李李不服輸 2026-03-25 | 3/150 |
|
|
|
[考研] 材料調(diào)劑 +3 | iwinso 2026-03-23 | 3/150 |
|
|
|
[考研] 生物學(xué)學(xué)碩求調(diào)劑 +7 | 小羊睡著了? 2026-03-23 | 10/500 |
|
|
|
[考研] 材料/農(nóng)業(yè)專業(yè)，07/08開頭均可，過線就行 +3 | 呵唔哦豁 2026-03-23 | 4/200 |
|