23 lines
297 B
Text
23 lines
297 B
Text
|
# Monte Carlo Simulator
|
||
|
|
# Determine value of pi
|
||
|
|
# 21010513
|
||
|
|
|
||
|
|
|
||
|
|
tosses = 1000
|
||
|
|
in_c = 0
|
||
|
|
i = 0
|
||
|
|
|
||
|
|
for i = 1 to tosses
|
||
|
|
x = rand
|
||
|
|
y = rand
|
||
|
|
x2 = x * x
|
||
|
|
y2 = y * y
|
||
|
|
xy = x2 + y2
|
||
|
|
d_xy = sqr(xy)
|
||
|
|
if d_xy <= 1 then
|
||
|
|
in_c += 1
|
||
|
|
endif
|
||
|
|
next i
|
||
|
|
|
||
|
|
print float(4*in_c/tosses)
|