推 charlesdc:還要注意重覆跟加權比重問題 04/20 22:49
→ awer89:如果純粹要取random應該不用? 04/20 22:53
→ charlesdc:可是你看看他上面原文他是要亂數選60筆資料 04/20 23:01
→ charlesdc:也許也不用吧@@ 不過看他發問方式感覺他不太懂亂數因子 04/20 23:03
→ charlesdc:提醒一下~~當然原PO回文熱心是值得肯定的 04/20 23:04
※ 引述《stanlin1118 (小鐵)》之銘言：
: 恩~
: 簡單來說就是隨機抽取1~60這些整數的方法~
: 可不可以請大大教我?
: 感謝~
program No
implicit none
integer::key
real:: r
call random_seed()
call random_number(r)
key=INT(r*60.0)+1
write(*,*)key
end program
random_number(r) 出來範圍>=0 <1
只要*60在+1就可以讓他在1~60的範圍了
--
http://www.wretch.cc/blog/Dolphin0112
裡面只是隨手亂寫~~~XD
http://0rz.tw/4d4bQ
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.42.221.212