 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 查看: 3278 | 回復(fù): 14 | ||
[求助]
fortran 隨機(jī)數(shù) 每次運(yùn)行都是一樣的！
|
||
|
如題 fortran 隨機(jī)數(shù) 每次運(yùn)行都是一樣的！ call random_seed () call random_number (rd); 由于計算的時間很短，運(yùn)行起來每次還是一樣的！ 大家怎么忙解決？ |
回復(fù)此樓» 猜你喜歡
食品專碩 一志愿雙一流 328
已經(jīng)有4人回復(fù)
-
材料調(diào)劑
已經(jīng)有6人回復(fù)
-
300分，材料，求調(diào)劑，英一數(shù)二
已經(jīng)有5人回復(fù)
-
求調(diào)劑，一志愿:南京航空航天大學(xué)大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分
已經(jīng)有5人回復(fù)
-
085600材料與化工調(diào)劑
已經(jīng)有13人回復(fù)
-
材料與化工考研調(diào)劑
已經(jīng)有7人回復(fù)
-
0856材料專碩353求調(diào)劑
已經(jīng)有6人回復(fù)
-
07化學(xué)280分求調(diào)劑
已經(jīng)有6人回復(fù)
-
086003食品工程求調(diào)劑
已經(jīng)有5人回復(fù)
-
08工學(xué)調(diào)劑
已經(jīng)有16人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 我們都是大作家
已經(jīng)有12人回復(fù)
- 測試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ù)
asaka
銀蟲 (初入文壇)
- 程序強(qiáng)帖: 1
- 應(yīng)助: 0 (幼兒園)
- 金幣: 392.2
- 紅花: 2
- 帖子: 36
- 在線: 35.5小時
- 蟲號: 1369381
- 注冊: 2011-08-16
- 專業(yè): 理論和計算化學(xué)
6樓2011-09-05 02:44:38
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 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
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 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
|
你的意思是，你在程序中取了很多隨機(jī)數(shù)，然后，隨機(jī)數(shù)是一樣的嗎？ 不是一樣的的，是我想運(yùn)行兩次希望得到不同的結(jié)果 兩次分別運(yùn)行的到結(jié)果是一樣的 另外，種子與時間有啥關(guān)系？你以時間作種嗎？ 本來想以時間做種，這樣的話 運(yù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
7樓2011-09-05 09:24:07
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
8樓2011-09-05 11:01:47
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
9樓2011-09-05 21:42:29
10樓2011-11-23 20:41:44
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 賀儀 的主題更新
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 求調(diào)劑，一志愿:南京航空航天大學(xué)大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分 +5 | @taotao 2026-03-19 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 307求調(diào)劑 +3 | 余意卿 2026-03-21 | 6/300 |
|
|
|
[考研] 284求調(diào)劑 +10 | Zhao anqi 2026-03-22 | 10/500 |
|
|
|
[考研] 327求調(diào)劑 +5 | prayer13 2026-03-23 | 5/250 |
|
|
|
[考研] 一志愿中南大學(xué)化學(xué)學(xué)碩0703總分337求調(diào)劑 +5 | niko- 2026-03-22 | 5/250 |
|
|
|
[考研] 一志愿陜師大生物學(xué)071000，298分，求調(diào)劑 +3 | SYA！ 2026-03-23 | 3/150 |
|
|
|
[考研] 北科281學(xué)碩材料求調(diào)劑 +8 | tcxiaoxx 2026-03-20 | 9/450 |
|
|
|
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +3 | 邱gl 2026-03-20 | 7/350 |
|
|
|
[考研] 一志愿南大，0703化學(xué)，分?jǐn)?shù)336，求調(diào)劑 +3 | 收到VS 2026-03-21 | 3/150 |
|
|
|
[考研] 307求調(diào)劑 +3 | 余意卿 2026-03-18 | 3/150 |
|
|
|
[考研] 336求調(diào)劑 +5 | rmc8866 2026-03-21 | 5/250 |
|
|
|
[考研] 材料與化工（0856）304求 B區(qū) 調(diào)劑 +3 | 邱gl 2026-03-21 | 3/150 |
|
|
|
[考研] 330求調(diào)劑0854 +3 | assdll 2026-03-21 | 3/150 |
|
|
|
[考研] 085601調(diào)劑 358分 +3 | zzzzggh 2026-03-20 | 4/200 |
|
|
|
[考研] 南昌大學(xué)材料專碩311分求調(diào)劑 +6 | 77chaselx 2026-03-20 | 6/300 |
|
|
|
[考研] 一志愿武理材料305分求調(diào)劑 +6 | 想上岸的鯉魚 2026-03-18 | 7/350 |
|
|
|
[考研] 290求調(diào)劑 +7 | ^O^乜 2026-03-19 | 7/350 |
|
|
|
[考研] 求調(diào)劑 +3 | @taotao 2026-03-20 | 3/150 |
|
|
|
[考研] 261求B區(qū)調(diào)劑，科研經(jīng)歷豐富 +3 | 牛奶很忙 2026-03-20 | 4/200 |
|
|
|
[考研] 288求調(diào)劑，一志愿華南理工大學(xué)071005 +5 | ioodiiij 2026-03-17 | 5/250 |
|