n_i

f_i

Mostrar la media aritmética

Mostrar la desviación típica

dtip

n_i f_i

Suma

P1 = (-2, -4)
base = Segment(P1 + (1, 0), P1 + (10, 0))
A01 = Point(base)
A02 = Point(base)
A03 = Point(base)
A04 = Point(base)
A05 = Point(base)
A06 = Point(base)
A07 = Point(base)
A08 = Point(base)
A09 = Point(base)
A10 = Point(base)
A11 = Point(base)
A12 = Point(base)
A13 = Point(base)
A14 = Point(base)
A15 = Point(base)
A16 = Point(base)
A17 = Point(base)
A18 = Point(base)
A19 = Point(base)
A20 = Point(base)
listabscisas: {x(A01) - x(P1), x(A02) - x(P1), x(A03) - x(P1), x(A04) - x(P1), x(A05) - x(P1), x(A06) - x(P1), x(A07) - x(P1), x(A08) - x(P1), x(A09) - x(P1), x(A10) - x(P1), x(A11) - x(P1), x(A12) - x(P1), x(A13) - x(P1), x(A14) - x(P1), x(A15) - x(P1), x(A16) - x(P1), x(A17) - x(P1), x(A18) - x(P1), x(A19) - x(P1), x(A20) - x(P1)}
listafrecuencias = Sequence(CountIf[x ≟ k, listabscisas], k, 1, 10)
med = Mean(listabscisas)
dtip = SD(listabscisas)
polidestip, a, b, c, d = Polygon(P1 + (med - dtip, 0), P1 + (med - dtip, 9.5), P1 + (med + dtip, 9.5), P1 + (med + dtip, 0))
texto3: "Media: " + med
texto4: "Des. típica: " + dtip
e = false
f = false
listapoligonos = Sequence(Polygon[(x(P1) + k - 0.5, y(P1)), (x(P1) + k - 0.5, y(P1) + (0.5 * Element[listafrecuencias, k])), (x(P1) + k + 0.5, y(P1) + (0.5 * Element[listafrecuencias, k])), (x(P1) + k + 0.5, y(P1))], k, 1, 10)
ejex = Segment(P1 + (0.1, 0), P1 + (10.8, 0))
listamarcasx = Sequence(Segment[P1 + (k + 1, (-0.1)), P1 + (k + 1, 0.1)], k, 0, 9)
ejey = Segment(P1 + (0.2, (-0.2)), P1 + (0.2, 9.6))
listamarcasy = Sequence(Segment[P1 + ((-0.72) + 1, (0.5 * k)), P1 + ((-0.85) + 1, (0.5 * k))], k, 0, 19)
listarotulosy = Sequence(Text[k, P1 + (If[k  <  10, -0.15, -0.3], (0.5 * k) - 0.1)], k, 0, 19)
segmentomed = Segment(P1 + (med, (-0.2)), P1 + (med, 9.6))
listarayado = Sequence(Segment[P1 + (0.2, (0.5 * k)), P1 + (10.8, (0.5 * k))], k, 1, 19)
listarotulosx = Sequence(Text[k, P1 + (If[k  <  10, k - 0.05, k - 0.15], (-0.5))], k, 1, 10)
u = Vector(P1 + (med, 9.8), P1 + (med + dtip, 9.8))
v = Vector(P1 + (med + dtip, 9.8), P1 + (med, 9.8))
texto5: dtip + ""
texto6: med + ""
w = Vector(P1 + (med, (-0.9)), P1 + (med, (-0.3)))
Ltabla1 = Sequence(Text[t, If[t > 9, (11.5, (0.5 * (10 - t))), (11.65, (0.5 * (10 - t)))]], t, 1, 10)
Ltabla2 = Sequence(Text[Element[listafrecuencias, t], If[Element[listafrecuencias, t]  <  10, (12.65, (0.5 * (10 - t))), (12.7, (0.5 * (10 - t)))]], t, 1, 10)
Ltabla3 = Sequence(Text[Element[(t * listafrecuencias), t], If[(t * Element[listafrecuencias, t])  <  10, (13.7, (0.5 * (10 - t))), (13.6, (0.5 * (10 - t)))]], t, 1, 10)
Lineasxtabla = Sequence(Segment[(11.2, (0.5 * (11.75 - t))), (14.2, (0.5 * (11.75 - t)))], t, 1, 13)
Lineasytabla = Sequence(Segment[(t + 11.2, (-0.6)), (t + 11.2, 5.35)], t, 0, 3)
texto8: "" + (Sum[listafrecuencias])
texto10: "" + (Sum[Sequence[(t * Element[listafrecuencias, t]), t, 1, 10]])