作者awer89 (Dolphin)
站内Fortran
标题Re: [问题] 如何用fortran去做bootstrap
时间Mon Apr 20 22:28:32 2009
※ 引述《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
1F：推 charlesdc:还要注意重覆跟加权比重问题 04/20 22:49
2F：→ awer89:如果纯粹要取random应该不用? 04/20 22:53
3F：→ charlesdc:可是你看看他上面原文他是要乱数选60笔资料 04/20 23:01
4F：→ charlesdc:也许也不用吧@@ 不过看他发问方式感觉他不太懂乱数因子 04/20 23:03
5F：→ charlesdc:提醒一下~~当然原PO回文热心是值得肯定的 04/20 23:04