|
|
|
_ответ
Берём кусок кода:^var[i;1]^for[i;1;9999;^var[j;^random[26]]
^var[j]
^var[i;+;1]] и запускаем. Полученную страницу читаем SPSS'ом (который с www.spss.com), и делаем по ней Frequencies:GET DATA /TYPE = TXT
/FILE = 'C:\temp\fromparser.txt'
/FIXCASE = 1
/ARRANGEMENT = FIXED
/FIRSTCASE = 1
/IMPORTCASE = ALL
/VARIABLES =
/1 V1 0-1 F2.1 .
FREQUENCIES
VARIABLES=v1
/NTILES = 4
/NTILES = 10
/STATISTICS=STDDEV VARIANCE RANGE MINIMUM MAXIMUM SEMEAN
MEAN MEDIAN MODE SUM SKEWNESS SESKEW KURTOSIS SEKURT
/BARCHART FREQ
/ORDER = ANALYSIS .
EXECUTE.Вот что у нас выходит: Frequency Percent
0 387 3,9
1 355 3,6
2 363 3,6
3 391 3,9
4 361 3,6
5 415 4,2
6 385 3,9
7 373 3,7
8 399 4,0
9 362 3,6
10 401 4,0
11 418 4,2
12 391 3,9
13 377 3,8
14 399 4,0
15 367 3,7
16 376 3,8
17 402 4,0
18 360 3,6
19 362 3,6
20 438 4,4
21 352 3,5
22 420 4,2
23 382 3,8
24 400 4,0
25 363 3,6
Total 9999 100,0 А вот таблица с базовыми статистиками по этому распределению:Mean 12,551
Std. Error of Mean 7,469 * E-02
Median 12,000
Mode 20,0
Std. Deviation 7,468
Variance 55,777
Skewness -,005
Std. Error of Skewness ,024
Kurtosis -1,197
Std. Error of Kurtosis 0,049
Range 25,0
Minimum 0,0
Maximum 25,0
Sum 125497,0 Картинка очень приличная, вполне равномерное распределение (жаль, bar chart сюда тиснуть не могу) - оператор честно почти равномерно выдаёт случайные числа из заданного диапазона. Вопрос, конечно, в том, что он использует как источник энтропии...
Для качественной проверки неплохо бы было запустить этот цикл раз сорок, но мне лень.
P.S. Всё это можно было проделать самостоятельно в Excel... Но это я так, брюзжу..
|
faq