看板 [ Fortran ]
討論串[問題] 20個人中隨機抽取10個人
共 4 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#1
[問題] 20個人中隨機抽取10個人
推噓0(0推 0噓 3→)留言3則，0人參與, 最新作者janewinnie (逃離)時間14年前 (2010/04/10 21:27), 編輯資訊
1
0
0
內容預覽:
我的問題是 如果我想在20個人中隨機抽取10人. 要怎麼寫程式呢?. 我有想到. do i=1,20,1. call random_number(ran). if (ran <= 10/20 .and. count<20) then. item(i)=1 !表示被抽取. count=count+1.
(還有32個字)
#2
Re: [問題] 20個人中隨機抽取10個人
推噓0(0推 0噓 2→)留言2則，0人參與, 最新作者laa7352 (Laa)時間14年前 (2010/04/11 20:45), 編輯資訊
0
0
0
內容預覽:
試試看~. program test102. integer (m=350,nt=10) ! m是總人數，nt是隨機抽取次數. integer m1(m),m2(m),i,j,nn,am,nt. real ran. nn=m !用nn暫代總人數. do i=1,m. m1(i)=i !先把m1陣列，
(還有365個字)
#3
Re: [問題] 20個人中隨機抽取10個人
推噓1(1推 0噓 0→)留言1則，0人參與, 最新作者janewinnie (逃離)時間14年前 (2010/04/16 19:10), 編輯資訊
1
0
0
內容預覽:
忘了回來板上看@@. 我已經寫出一個方法了. 先給每個人一個亂數. 如果100人要取20人，就取亂數最大的20人. main program. implicit none. integer,parameter::k=20,n=100 !k是要選出的人數,n為總人數. integer::who(n)
(還有312個字)
#4
Re: [問題] 20個人中隨機抽取10個人
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者mantour (朱子)時間14年前 (2010/04/17 00:25), 編輯資訊
0
0
0
內容預覽:
之前好像在別的地方回過一個洗牌的問題. 這邊可能可以用類似的方法解決. 希望效率會比較不驚人一點XD. Program sampling. implicit none. integer,parameter:: M=20,N=10. integer::people(1:M),i,p. real::ra
(還有510個字)
首頁
上一頁
1
下一頁
尾頁