分からない問題はここに書いてね457at MATH分からない問題はここに書いてね457 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト1027:１３２人目の素数さん 20/02/09 14:05:48.45 +DmUozks.net >>981 確率 1.00 0.95 0.90 0.85 0.80 0.75 0.70 0.65 0.60 0.55 にしていた。 p=c(1,0.9,0.9,0.85,0.85,0.85,0.85,0.75,0.65,0.55) にしてやり直すと > # p=rev(seq(0.55,1,by=0.05)) # 1歩進確率の配列 > p=c(1,0.9,0.9,0.85,0.85,0.85,0.85,0.75,0.65,0.55) > f=function(x) x+sample(c(1,-1),1,prob=c(p[x],1-p[x])) # p[x]の確率でxから移動 > sim <- function(){ + i=0 # カウンタ + x=1 # 最初の位置 + while(x<10){ # 10に達するまで + x=f(x) # 双六を繰り返す + i=i+1 # カウンターを増やす + } + i # 何回かを返す + } > mean(replicate(1e6,sim())) [1] 13.46091 というシミュレーション結果が返ってきた。 1028:１３２人目の素数さん 20/02/09 14:15:14.10 IgFLOTZq.net >>982 ありがとうございますｍ（＿ ＿）ｍ こんなのもコンピューターで計算できるんですね驚き はじめアルゴリズムというものを思い出しました おもしろい漫画だったのになぁ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch