分からない問題はここに書いてね460at MATH
分からない問題はここに書いてね460
- 暇つぶし2ch993:ﾅ終了 + record=NULL # 記録された色 + color=0 # 記録された色の種類 + count=0 # 試行回数 + while(color!=m){ # m色記録されないなら + count=count+1 # １個取り出して + record=unique(append(record,sample(n,1))) # 記録に追加して重複抹消 + color=length(record) # 記録された色の種類 + } + return(count) # 試行回数を返す + } > > mean(replicate(1e6,sim())) # 百万回繰り返して平均を求める [1] 6.414439 >
次ページ続きを表示1を表示最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch