74b34e5f-fe3c-4e61-88cf-2af5f217b262 6 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

r 1 :

n 100 :

t0 1 time :

Here is π demo

X 2 n Random * r - :

Returns a vector containing 'n' random values between 0 and 1 with uniform distribution.

Y 2 n Random * r - :

Random square outside circle U i 1 n range X i el (2^Y i el (2^+ r < 0 U i el X i el : if for 11 line U 21 line :

Random within circle V i 1 n range X i el (2^Y i el (2^+ r < V i el X i el : 0 if for 11 line V 21 line :

X rows 100

V rows 100

N V j el X j el ≡ (j 1 n sum eval :

optimiz Symbolic ? ≡

pi 4 N n / * :

1 time t0 - 10 sec *

pi 3.28

Mathcad 11 spits 10000 pts in < 3 sec ... sum((el(V,j)≡el(X,j)),j,1,n) checks and sums the coinciding V<=>X Most of the runs will fail from V & X of not equal length ... puzzling ! n > 100 , V & X not consistant length.