〓 Mathematica 四 〓
レス数が900を超えています。1000を超えると表示できなくなるよ。
0929Ｆらん受験生
2010/07/02(金) 21:25:40ss[x_, y_] = x^2 + y^2 - 1;
pp := (mx = Random[]; my = Random[]; ss[mx, my]);
tt[n_] := Table[pp, {n}]
Area[n_] := Count[Negative[tt[n]], True]/n // N
Truearea = Pi/4
ErrorDiff[n_] := Area[n] - Truearea
Table[ErrorDiff[n],{m,1000,10000,1000}]
で検討してみてください
レス数が900を超えています。1000を超えると表示できなくなるよ。