Data commit

Task/Monte-Carlo-methods/True-BASIC/monte-carlo-methods.basic

@@ -0,0 +1,22 @@
+FUNCTION getpi(throws)
+    LET incircle = 0
+    FOR i = 1 to throws
+        !a square with a side of length 2 centered at 0 has
+        !x and y range of -1 to 1
+        LET randx = (rnd*2)-1     !range -1 to 1
+        LET randy = (rnd*2)-1     !range -1 to 1
+        !distance from (0,0) = sqrt((x-0)^2+(y-0)^2)
+        LET dist = sqr(randx^2+randy^2)
+        IF dist < 1 then          !circle with diameter of 2 has radius of 1
+           LET incircle = incircle+1
+        END IF
+    NEXT i
+    LET getpi = 4*incircle/throws
+END FUNCTION
+
+CLEAR
+PRINT getpi(10000)
+PRINT getpi(100000)
+PRINT getpi(1000000)
+PRINT getpi(10000000)
+END