〓Mathematica〓

924 名前：１３２人目の素数さん mailto:sage [04/01/21 19:00] >>922 実験のフレームワークと1番目の解答まで書いてみよう。 (* GetBall : get a ball from the vase given as the args. *) GetBall[Vase[nTotal_Integer, nRed_Integer]] :=   If[Random[Integer, {1, nTotal}] <= nRed, Red, Black] (* Onestep : {n, n-th vase} -> {n+1, (n+1)-th vase} *) OneStep[{nth_Integer, v : Vase[nTotal_, nRed_]}] := {nth +       1, (#[v] &) /@ Table[GetBall, {i, nTotal}] //       Vase[nTotal, Count[#, Red]] &} (* Trial returns {iFix, fixColor} *) Trial[nTotal_, nRed0_] :=   NestWhile[OneStep, {1, Vase[nTotal, nRed0]},       #[[2, 2]] != 0 && #[[2, 2]] != nTotal &] /. {Vase[nTotal, 0] -> Black,       Vase[nTotal, nTotal] -> Red} (* pRed *) pRed[trys_][nTotal_, nRed0_] :=   Count[Table[Trial[nTotal, nRed0], {trys}], {_, Red}] / trys // N

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef