 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 3291 | 回復(fù): 14 | ||
| 當(dāng)前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | ||
[求助]
fortran 隨機數(shù) 每次運行都是一樣的！
|
||
|
如題 fortran 隨機數(shù) 每次運行都是一樣的！ call random_seed () call random_number (rd); 由于計算的時間很短，運行起來每次還是一樣的！ 大家怎么忙解決？ |
回復(fù)此樓» 猜你喜歡
284求調(diào)劑
已經(jīng)有13人回復(fù)
-
材料科學(xué)與工程調(diào)劑
已經(jīng)有5人回復(fù)
-
346求調(diào)劑 一志愿070303有機化學(xué)
已經(jīng)有4人回復(fù)
-
329求調(diào)劑
已經(jīng)有8人回復(fù)
-
一志愿南航 335分 | 0856材料化工 | GPA 4.07 | 有科研經(jīng)歷
已經(jīng)有7人回復(fù)
-
322求調(diào)劑
已經(jīng)有8人回復(fù)
-
考研調(diào)劑
已經(jīng)有5人回復(fù)
-
307求調(diào)劑
已經(jīng)有11人回復(fù)
-
292求調(diào)劑
已經(jīng)有9人回復(fù)
-
本科211生物醫(yī)學(xué)工程085409求調(diào)劑339分
已經(jīng)有3人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 我們都是大作家
已經(jīng)有12人回復(fù)
- 測試POSCAR的腳本不運行
已經(jīng)有10人回復(fù)
- fortran程序運行黑框閃下就消失
已經(jīng)有5人回復(fù)
- 【求助】Fortran程序，如何讓exe文件可以單獨運行？
已經(jīng)有6人回復(fù)
- 【討論】大家進來說下為什么學(xué)matlab
已經(jīng)有44人回復(fù)
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
4樓2011-09-04 15:29:13
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
2樓2011-09-04 14:56:30
3樓2011-09-04 15:07:58
|
你的意思是，你在程序中取了很多隨機數(shù)，然后，隨機數(shù)是一樣的嗎？ 不是一樣的的，是我想運行兩次希望得到不同的結(jié)果 兩次分別運行的到結(jié)果是一樣的 另外，種子與時間有啥關(guān)系？你以時間作種嗎？ 本來想以時間做種，這樣的話 運行兩次得到的結(jié)果就是不一樣的 但是時間太短了，得到的還是一樣的， 給段代碼看看吧…… 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ā)表 | |
|---|---|---|---|---|
|
[考研] 284求調(diào)劑 +12 | junqihahaha 2026-03-26 | 13/650 |
|
|---|---|---|---|---|
|
|
[考研] 材料與化工328分調(diào)劑 +9 | 。，。，。，。i 2026-03-23 | 9/450 |
|
|
[考博] 26申博自薦 +6 | whh869393 2026-03-24 | 6/300 |
|
|
|
[考研] 【求調(diào)劑】085601材料工程專碩 | 總分272 | +7 | 腳滑的守法公民 2026-03-27 | 7/350 |
|
|
|
[考研] 總分293求調(diào)劑 +8 | 加一一九 2026-03-25 | 11/550 |
|
|
|
[考研] 343求調(diào)劑 +6 | 愛羈絆 2026-03-29 | 6/300 |
|
|
|
[考研] 085600，專業(yè)課化工原理，321分求調(diào)劑 +5 | 大饞小子 2026-03-28 | 5/250 |
|
|
|
[考研] 322求調(diào)劑 +5 | 舊吢 2026-03-24 | 5/250 |
|
|
|
[考研] 0856，材料與化工321分求調(diào)劑 +12 | 大饞小子 2026-03-27 | 13/650 |
|
|
|
[考研] 085405 考的11408求各位老師帶走 +3 | Qiu學(xué)ing 2026-03-28 | 3/150 |
|
|
|
[考研] 化學(xué)調(diào)劑 +4 | 愛吃番茄的旭 2026-03-24 | 5/250 |
|
|
|
[考研] 085600材料與化工調(diào)劑 +10 | A-哆啦Z夢 2026-03-23 | 16/800 |
|
|
|
[考研] 308求調(diào)劑 +7 | 墨墨漠 2026-03-25 | 7/350 |
|
|
|
[考研] 324求調(diào)劑 +5 | hanamiko 2026-03-26 | 5/250 |
|
|
|
[考研]
 304材料求調(diào)劑
+4
|
鐘llll 2026-03-26 | 4/200 |
|
|
|
[考研] 321求調(diào)劑 +6 | wasdssaa 2026-03-26 | 6/300 |
|
|
|
[考研] 中國科學(xué)院深圳先進技術(shù)研究院-光纖傳感課題組招生-中國科學(xué)院大學(xué)、深圳理工大學(xué)聯(lián)培 +5 | YangTyu1 2026-03-26 | 5/250 |
|
|
|
[考研] 309求調(diào)劑 +4 | gajsj 2026-03-25 | 5/250 |
|
|
|
[考研] 一志愿吉林大學(xué)材料與化工303分求調(diào)劑 +4 | 為學(xué)666 2026-03-24 | 4/200 |
|
|
|
[考研] 277分求調(diào)劑，跨調(diào)材料 +3 | 考研調(diào)劑lxh 2026-03-24 | 3/150 |
|