QBasic ile Normal dağılımından sayı üretme

'Normal dagi￾l￾mdan say￾i u￾retme
CLS
RANDOMIZE TIMER
INPUT "deneme sayi￾si￾="; n
INPUT "ortalama="; mu
INPUT "standart sapma="; sigma
DIM z(n)
FOR i = 1 TO n
u1 = RND
u2 = RND
x = SQR(-2 * LOG(u1))
y = SIN(6.28 * u2)
z(i) = (x * y) * sigma + mu
NEXT
FOR i = 1 TO n
PRINT z(i)
NEXT
FOR i = 1 TO n
top = top + z(i)
NEXT
ort = top / n
PRINT "ornek ortalamas￾i="; ort
FOR i = 1 TO n
var = var + (z(i) - ort) ^ 2
NEXT i
var = var / (n - 1)
PRINT "ornek varyansi￾="; var
IF (-1) ^ n = -1 THEN
ortanca = z((n + 1) / 2)
ELSE
ortanca = (z(n / 2) + z((n + 2) / 2)) / 2
END IF
PRINT "Ortanca="; ortanca