Rings

cdf0358c-6839-4283-963a-f42076cd1e86 18 15 12 decimal

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

Monte Carlo 'Pi'

CWD C:\SmathFile CurrentDirectory :

N 10000 :

X 2 N 1 Random (* 1 - : Y 2 N 1 Random (* 1 - : 21 line

Rings

Fill the circle exclusive of the square ring_1 i 1 N range U i el X i el X i el (2^Y i el (2^+ 1 < (X i el (2^Y i el (2^+ 0.625 > (& 0 cases : V i el Y i el X i el (2^Y i el (2^+ 1 < (X i el (2^Y i el (2^+ 0.625 > (& 0 cases : 21 line for U V augment 21 line :

Fill the circle exclusive of the square ring_2 i 1 N range U i el X i el X i el (2^Y i el (2^+ 0.625 < (X i el (2^Y i el (2^+ 0.25 > (& 0 cases : V i el Y i el X i el (2^Y i el (2^+ 0.625 < (X i el (2^Y i el (2^+ 0.25 > (& 0 cases : 21 line for U V augment 21 line :

Fill the circle exclusive of the square ring_3 i 1 N range U i el X i el X i el (2^Y i el (2^+ 0.0625 < (X i el (2^Y i el (2^+ 0 > (& 0 cases : V i el Y i el X i el (2^Y i el (2^+ 0.0625 < (X i el (2^Y i el (2^+ 0 > (& 0 cases : 21 line for U V augment 21 line :

ring_1 CWD ring_1 wfile ring_2 CWD ring_2 wfile ring_3 CWD ring_3 wfile 31 sys 11131 sys

ring_1 CWD ring_1 rfile : ring_2 CWD ring_2 rfile : ring_3 CWD ring_3 rfile : 31 sys

Square NOT used

Fill the square exclusive of circle Square i 1 N range X i el 0 X i el (2^Y i el (2^+ 1 < X i el cases : Y i el 0 X i el (2^Y i el (2^+ 1 < Y i el cases : 21 line for X Y augment 21 line :

t0 1 time :

shift_1 ring_1 1 col 2 sqrt + ring_1 2 col 2 sqrt + augment : shift_2 ring_2 1 col 2 sqrt + ring_2 2 col 2 sqrt + augment : shift_3 ring_3 1 col 2 sqrt + ring_3 2 col 2 sqrt + augment : 31 sys

1 time t0 - min 5.5

shift_1 CWD shift_1 wfile shift_2 CWD shift_2 wfile shift_3 CWD shift_3 wfile 31 sys 11131 sys

shift_1 CWD shift_1 rfile : shift_2 CWD shift_2 rfile : shift_3 CWD shift_3 rfile : 31 sys

data char size clr plot k 1 data rows range r3 k el char : r4 k el size : r5 k el clr : 13 mat for data r3 r4 r5 augment 21 line :

t0 1 time :

ring_2 ring_2 . 6 #808080 plot : shift_3 shift_3 . 6 green plot : 21 sys

1 time t0 - min 1

Plot ring_1 shift_1 ring_2 shift_2 ring_3 shift_3 61 sys :

Monte Carlo 'Pi'

Plot

1 time t0 - min 3