Вычисление числа Пи методом монте-карло. В чем ошибка?

[goblin_l]

Требуется создать программку для вычисления числа Пи методом монте-карло.
Суть заключается в следующем: генерируются 2 случайных числа А и В, равномерно распределенных в интервале (-1,1). Если выполняется условие А^2+B^2 <= 1, то точка с координатами (А,В) попадает внутрь круга радиусом 1 с центром в начале координат, если нет, то не попадает. Если при N испытаниях получится n попаданий в круг, то приближенно число Пи можно вычислить по формуле Pi = 4*n/N.
Была сделана вот такая программка:
DIM n, m AS INTEGER, s, pi AS DOUBLE

Private SUB Command1_Click()
s = Text1.Text
pi = 0
DO UNTIL m = s
x = RND * 2 - 1
y = RND * 2 - 1
IF (x * x + y * y) <= 1 THEN
Picture1.PSET (x, y), vbRed
n = n + 1
ELSE
Picture1.PSET (x, y), vbBlue
m = m + 1
END IF
LOOP
pi = n/m
Text2.Text = pi

END SUB

Из формулу была убрана 4, с ней число Пи равно 15, ...
По идее если сделать N = 10000 (s = 10000), то число Пи будет равно 3,14...
В данном случае число Пи равно 3,664. В чем ошибка?

[RomiKon]

Мне кажется этот метод страным

[goblin_l]

Об этом методе написано
http://ru.wikipedia.org/wiki/%CC%EE%...EC%E5%F2%EE%E4

[evg_m]

выведи куда-нибудь (покажи себе) полученные в результате значения m и n до кучи добавь ним s. вот перед этим

pi = n/m

Сравни их. Остальное надеюсь поймешь сам.
Хотя нет . Вот
при подсчете общего числа испытаний ( это m) учитываются только НЕУСПЕШНЫЕ (m изменяется только в ветке ELSE).
здесь

DO UNTIL m = s

(m ОБЩЕЕ числр испытаний.)
а здесь

ELSE
Picture1.PSET (x, y), vbBlue
m = m + 1
END IF

получается что это число НЕУСПЕШНЫХ.

[goblin_l]

Спасибо за совет, буду проверять.