底辺私立医大を卒業し ..
990:卵の名無しさん
18/08/06 18:32:20.35 fuijuKdb.net
>>957
URLﾘﾝｸ(imagizer.imageshack.com)
の問題を改変してこんな問題にしてみた。
一秒後に
Ｐが反時計回りに移動する確率は１／３、移動しない確率は１／３、時計回りに移動する確率は１／３、
Ｑが反時計回りに移動する確率は１／３、移動しない確率は０、時計回りに移動する確率は２／３、
４秒後にＰ，Ｑが初めて出会う確率を求めよ。
解析解は俺の能力を超えるので、プログラミングして数値解を出してみる。
ｕｎｅｖｅｎ．ｍｏｖｅ ＜− ｆｕｎｃｔｉｏｎ（Ｎ＝４，ｐｒｏｂ．Ｐ＝ｃ（１，１，１），ｐｒｏｂ．Ｑ＝ｃ（１，０，２））｛
ｐｅｒｍ．Ｐ＝ｓａｍｐｌｅ（ｃ（１，０，５），Ｎ，ｐｒｏｂ＝ｐｒｏｂ．Ｐ，ｒｅｐｌａｃｅ＝ＴＲＵＥ）
ｍｏｖｅ．Ｐ＝ｃｕｍｓｕｍ（ｐｅｒｍ．Ｐ）
ｐ０＝０
Ｐ＝（ｐ０＋ｍｏｖｅ．Ｐ）％％６
ｐｅｒｍ．Ｑ＝ｓａｍｐｌｅ（ｃ（１，０，５），Ｎ，ｐｒｏｂ＝ｐｒｏｂ．Ｑ，ｒｅｐｌａｃｅ＝ＴＲＵＥ）
ｍｏｖｅ．Ｑ＝ｃｕｍｓｕｍ（ｐｅｒｍ．Ｑ）
ｑ０＝２
Ｑ＝（ｑ０＋ｍｏｖｅ．Ｑ）％％６
ａｌｌ（ｘ［−Ｎ］！＝ｙ［−Ｎ］） ＆ ｘ［Ｎ］＝＝ｙ［Ｎ］
｝
ｋ＝１ｅ５
ｒｅ＝ｎｕｍｅｒｉｃ（）
ｆｏｒ（ｉ ｉｎ １：１０）｛
ｒｅ［ｉ］＝ｍｅａｎ（ｒｅｐｌｉｃａｔｅ（ｋ，ｕｎｅｖｅｎ．ｍｏｖｅ（）））
次ページ続きを表示1を表示最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
2008日前に更新/493 KB
担当:undef