Statisztika

n = 20 (slider from 1 to 20, step 1)
szövegn: "Staisztikai sokaság mérete:" + n
max = 10 (slider from 0 to 10, step 1)
szövegmax: "Maximális érték:" + max
l = Sequence(Random[0.0, max], i, 1.0, n)
beosztas = Sequence(i, i, 0.0, n)
graf = Histogram(beosztas, l)
grafsz = Sequence(Text[i, (0.1 + i - 1.0, -(0.5))], i, 1.0, n)
atlag = Mean(l)
fatlag(x) = atlag
s2 = Variance(l)
s = SD(l)
szövegs: "Szórás=" + s
fszoras, a, b, c, d = Polygon((0.0, atlag - s), (0.0, atlag + s), (50.0, atlag + s), (50.0, atlag - s))
Mo = Mode(l)
szövegmo: "Módusz=" + Mo