41 lines
708 B
Plaintext
41 lines
708 B
Plaintext
SUB sample (n)
|
|
DIM samp(n)
|
|
FOR i = 1 TO n
|
|
samp(i) = RND(1)
|
|
NEXT i
|
|
REM calculate mean, standard deviation
|
|
sum = 0
|
|
sumsq = 0
|
|
FOR i = 1 TO n
|
|
sum = sum + samp(i)
|
|
sumsq = sumsq + samp(i) ^ 2
|
|
NEXT i
|
|
PRINT "Sample size "; n
|
|
mean = sum / n
|
|
PRINT
|
|
PRINT " Mean = "; mean
|
|
PRINT " Std Dev = "; (sumsq / n - mean ^ 2) ^ .5
|
|
PRINT
|
|
REM------- Show histogram
|
|
scal = 10
|
|
DIM bins(scal)
|
|
FOR i = 1 TO n
|
|
z = INT(scal * samp(i))
|
|
bins(z) = bins(z) + 1
|
|
NEXT i
|
|
FOR b = 0 TO scal - 1
|
|
PRINT " "; b; " : ";
|
|
FOR j = 1 TO INT(scal * bins(b)) / n * 70
|
|
PRINT "*";
|
|
NEXT j
|
|
PRINT
|
|
NEXT b
|
|
PRINT
|
|
END SUB
|
|
|
|
CLS
|
|
sample (100)
|
|
sample (1000)
|
|
sample (10000)
|
|
END
|