Átlag

Szórás

Adatsor

Adat

Gyakoriság

Összeg

Relatív gyak.

Módusz

Átlag

Szórás

max = 10 (slider from 0 to 10, step 1)
n = 20 (slider from 1 to 20, step 1)
l = Sequence(Random[0.0, max], i, 1.0, n)
C2 = 0
C3 = 1
szövegn: "Staisztikai sokaság mérete:" + n
szövegmax: "Maximális érték:" + max
beosztas = Sequence(i, i, 0.0, n)
graf = Histogram(beosztas, l)
Mo = Mode(l)
atlag = Mean(l)
fatlag(x) = atlag
s2 = Variance(l)
s = SD(l)
fszoras, a, b, c, d = Polygon((0.0, atlag - s), (0.0, atlag + s), (50.0, atlag + s), (50.0, atlag - s))
latlag = true
ls = true
grafsz = Sequence(Text[i, (0.1 + i - 1.0, -(0.5))], i, 1.0, n)
C4: 2.0 * C3 - C2
C5: 2.0 * C4 - C3
C6: 2.0 * C5 - C4
C7: 2.0 * C6 - C5
C8: 2.0 * C7 - C6
C9: 2.0 * C8 - C7
C10: 2.0 * C9 - C8
C11: 2.0 * C10 - C9
C12: 2.0 * C11 - C10
D2 = CountIf(x ≟ C2, l)
D3 = CountIf(x ≟ C3, l)
D4 = CountIf(x ≟ C4, l)
D5 = CountIf(x ≟ C5, l)
D6 = CountIf(x ≟ C6, l)
D7 = CountIf(x ≟ C7, l)
D8 = CountIf(x ≟ C8, l)
D9 = CountIf(x ≟ C9, l)
D10 = CountIf(x ≟ C10, l)
D11 = CountIf(x ≟ C11, l)
D12 = CountIf(x ≟ C12, l)
D15 = If(Length[Mo] > 1.0, "Nincs.", Text[Element[Mo, 1.0]])
E15 = If(Length[Mo] > 1.0, Text[Mo], "")
E2: D2 / n
E3: D3 / n
E4: D4 / n
E5: D5 / n
E6: D6 / n
E7: D7 / n
E8: D8 / n
E9: D9 / n
E10: D10 / n
E11: D11 / n
E12: D12 / n
D16: atlag
D13 = Sum(D2:D12)
E13 = Sum(E2:E12)
A2 = Element(l, 1.0)
A3 = Element(l, 2.0)
A4 = Element(l, 3.0)
A5 = Element(l, 4.0)
A6 = Element(l, 5.0)
A7 = Element(l, 6.0)
A8 = Element(l, 7.0)
A9 = Element(l, 8.0)
A10 = Element(l, 9.0)
A11 = Element(l, 10.0)
A12 = Element(l, 11.0)
A13 = Element(l, 12.0)
A14 = Element(l, 13.0)
A15 = Element(l, 14.0)
A16 = Element(l, 15.0)
A17 = Element(l, 16.0)
A18 = Element(l, 17.0)
A19 = Element(l, 18.0)
A20 = Element(l, 19.0)
A21 = Element(l, 20.0)
D17: s