18 lines
485 B
QBasic
18 lines
485 B
QBasic
|
10 REM Statistics: mean, variance, std dev
|
||
|
|
20 N% = 10
|
||
|
|
30 DIM X(9)
|
||
|
|
40 DATA 23,45,12,67,34,89,56,78,90,11
|
||
|
|
50 FOR I = 0 TO 9 : READ X(I) : NEXT I
|
||
|
|
60 REM Mean
|
||
|
|
70 S = 0
|
||
|
|
80 FOR I = 0 TO 9 : S = S + X(I) : NEXT I
|
||
|
|
90 MEAN = S / N%
|
||
|
|
100 PRINT USING "Mean: ###.##"; MEAN
|
||
|
|
110 REM Variance
|
||
|
|
120 V = 0
|
||
|
|
130 FOR I = 0 TO 9 : V = V + (X(I) - MEAN) * (X(I) - MEAN) : NEXT I
|
||
|
|
140 VR = V / N%
|
||
|
|
150 PRINT USING "Variance: ####.##"; VR
|
||
|
|
160 PRINT USING "Std Dev: ###.##"; SQR(VR)
|
||
|
|
170 PRINT "Stats calc OK"
|