 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 查看: 3281 | 回復(fù): 14 | ||
[求助]
fortran 隨機(jī)數(shù) 每次運(yùn)行都是一樣的！
|
||
|
如題 fortran 隨機(jī)數(shù) 每次運(yùn)行都是一樣的！ call random_seed () call random_number (rd); 由于計(jì)算的時(shí)間很短，運(yùn)行起來(lái)每次還是一樣的！ 大家怎么忙解決？ |
回復(fù)此樓» 猜你喜歡
考研調(diào)劑
已經(jīng)有7人回復(fù)
-
0856調(diào)劑
已經(jīng)有4人回復(fù)
-
材料277求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿北京化工大學(xué)材料與化工（085600）296求調(diào)劑
已經(jīng)有6人回復(fù)
-
資源與環(huán)境 調(diào)劑申請(qǐng)(333分)
已經(jīng)有8人回復(fù)
-
334分 一志愿武理 材料求調(diào)劑
已經(jīng)有3人回復(fù)
-
284求調(diào)劑
已經(jīng)有5人回復(fù)
-
0703化學(xué)/290求調(diào)劑/本科經(jīng)歷豐富/工科也可
已經(jīng)有6人回復(fù)
-
北科281學(xué)碩材料求調(diào)劑
已經(jīng)有18人回復(fù)
-
275求調(diào)劑
已經(jīng)有9人回復(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)來(lái)說(shuō)下為什么學(xué)matlab
已經(jīng)有44人回復(fù)
asaka
銀蟲 (初入文壇)
- 程序強(qiáng)帖: 1
- 應(yīng)助: 0 (幼兒園)
- 金幣: 392.2
- 紅花: 2
- 帖子: 36
- 在線: 35.5小時(shí)
- 蟲號(hào): 1369381
- 注冊(cè): 2011-08-16
- 專業(yè): 理論和計(jì)算化學(xué)
6樓2011-09-05 02:44:38
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
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é)
4樓2011-09-04 15:29:13
|
你的意思是，你在程序中取了很多隨機(jī)數(shù)，然后，隨機(jī)數(shù)是一樣的嗎？ 不是一樣的的，是我想運(yùn)行兩次希望得到不同的結(jié)果 兩次分別運(yùn)行的到結(jié)果是一樣的 另外，種子與時(shí)間有啥關(guān)系？你以時(shí)間作種嗎？ 本來(lái)想以時(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
7樓2011-09-05 09:24:07
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é)
8樓2011-09-05 11:01:47
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é)
9樓2011-09-05 21:42:29
小子wx
銅蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 938.6
- 帖子: 93
- 在線: 44.1小時(shí)
- 蟲號(hào): 1229838
- 注冊(cè): 2011-03-11
- 專業(yè): 電磁場(chǎng)與波
10樓2011-11-23 20:41:44
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 賀儀 的主題更新
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 考研調(diào)劑 +7 | 呼呼？~+123456 2026-03-24 | 7/350 |
|
|---|---|---|---|---|
|
[考研] 321求調(diào)劑 +3 | wasdssaa 2026-03-26 | 3/150 |
|
|
|
[考研] 274求調(diào)劑 +13 | 顧九笙要謙虛 2026-03-24 | 19/950 |
|
|
|
[考研] 求調(diào)劑 +3 | 蘆lty 2026-03-25 | 4/200 |
|
|
|
[考研] 290分調(diào)劑求助 +3 | 吉祥止止陳 2026-03-25 | 3/150 |
|
|
|
[考研] 招08考數(shù)學(xué) +8 | laoshidan 2026-03-20 | 17/850 |
|
|
|
[考研] 333求調(diào)劑 +6 | 87639 2026-03-21 | 11/550 |
|
|
|
[考研] 【2026考研調(diào)劑】制藥工程 284分 求相關(guān)專業(yè)調(diào)劑名額 +4 | 袁奐奐 2026-03-25 | 8/400 |
|
|
|
[考研] 303求調(diào)劑 +6 | 元夕元 2026-03-20 | 7/350 |
|
|
|
[考研] 求調(diào)劑323材料與化工 +4 | 1124361 2026-03-24 | 4/200 |
|
|
|
[考研] 085600材料與化工調(diào)劑 +9 | A-哆啦Z夢(mèng) 2026-03-23 | 15/750 |
|
|
|
[考研] 289求調(diào)劑 +9 | 懷瑾握瑜l 2026-03-20 | 9/450 |
|
|
|
[考研] 318求調(diào)劑 +3 | plum李子 2026-03-23 | 3/150 |
|
|
|
[考研] 求調(diào)劑 +6 | 研研，接電話 2026-03-24 | 7/350 |
|
|
|
[考研] 277分求調(diào)劑，跨調(diào)材料 +3 | 考研調(diào)劑lxh 2026-03-24 | 3/150 |
|
|
|
[考博] 26申博自薦 +3 | whh869393 2026-03-24 | 3/150 |
|
|
|
[考研] 361求調(diào)劑 +3 | Glack 2026-03-22 | 3/150 |
|
|
|
[考研] 315分，誠(chéng)求調(diào)劑，材料與化工085600 +3 | 13756423260 2026-03-22 | 3/150 |
|
|
|
[考研] 求調(diào)劑院校信息 +6 | CX 330 2026-03-21 | 6/300 |
|
|
|
[考研]
 320求調(diào)劑0856
+3
|
不想起名字112 2026-03-19 | 3/150 |
|