dato

frecuencia

Mostrar la media aritmética

Mostrar la tabla de frecuencias

E. inf.

E. sup.

M.c.

Frec

Mostrar la desviación típica

P0 = Point(a)
base1 = Segment(P0, P0 + (3.0, 0.0))
Ldatos = Sequence(160.0 + round(InverseNormal[Random[15.0, 20.0], Random[8.0, 15.0], k * Random[1.0, 5.0] / (10.0 * k)]), k, 1.0, 25.0)
n = 7 (slider from 1 to 10, step 1)
mi = 150 (slider from 140 to 195, step 1)
ma = 185 (slider from 140 to 195, step 1)
amp: (ma - mi) / n
texto1: "Atención: el valor mínimo es " + (Min[Ldatos])
texto2: "Atención: el valor máximo es " + (Max[Ldatos])
Lfrecuencias = Sequence(If[k < n - 1.0, CountIf[x ≥ mi + k * amp ∧ x < mi + (k + 1.0) * amp, Ldatos], CountIf[x ≥ mi + k * amp ∧ x ≤ mi + (k + 1.0) * amp, Ldatos]], k, 0.0, n - 1.0)
sumafrec = Sum(Lfrecuencias)
P1 = Point(base1)
A = (-2.6, 5.58)
base2 = Segment(P1 + (3.0, 0.0), P1 + (12.0, 0.0))
P2 = Point(base2)
amp0: (x(P2) - x(P1)) / n
texto7: ma + ""
texto8: mi + ""
z1 = false
z2 = false
Ltablafrec2 = Sequence(Text[mi + k * amp, (12.0, 3.0 - 0.8 * (k - 1.0))], k, 1.0, n)
rotulosx = Sequence(Text[Element[Ltablafrec2, k], P1 + (k * amp0 - 0.25, -(0.4))], k, 1.0, n - 1.0)
amp1: 5.0 / Max[Lfrecuencias]
Lpolígonos = Sequence(Polygon[P1 + (k * amp0, 0.0), P1 + ((k + 1.0) * amp0, 0.0), P1 + ((k + 1.0) * amp0, amp1 * Element[Lfrecuencias, k + 1.0]), P1 + (k * amp0, amp1 * Element[Lfrecuencias, k + 1.0])], k, 0.0, n - 1.0)
ejey = Segment(P0 - (0.0, 0.2), P0 + (0.0, 5.2))
marcasy = Sequence(Segment[P0 + (-(0.1), k * amp1), P0 + (0.1, k * amp1)], k, 1.0, Max[Lfrecuencias])
ejex = Segment(P0 - (0.2, 0.0), P2 + (0.4, 0.0))
marcasx = Sequence(Segment[P1 + (k * amp0, -(0.05)), P1 + (k * amp0, 0.05)], k, 1.0, n - 1.0)
rotulosy = Sequence(Text[k, P0 + (If[k < 10.0, -0.4, -0.55], k * amp1 - 0.1)], k, 1.0, Max[Lfrecuencias])
Ltablaver = Sequence(Segment[(10.8 + k, 4.3), (10.8 + k, 4.3 - (n + 1.0) * 0.8)], k, 0.0, 4.0)
Ltablahor = Sequence(Segment[(10.8, 4.3 - 0.8 * k), (14.8, 4.3 - 0.8 * k)], k, 0.0, n + 1.0)
Ltablafrec1 = Sequence(Text[mi + k * amp, (11.0, 3.0 - 0.8 * k)], k, 0.0, n - 1.0)
Ltablafrec4 = Sequence(Text[Element[Lfrecuencias, k], (If[Element[Lfrecuencias, k] < 10.0, 14.2, 14.1], 3.0 - 0.8 * (k - 1.0))], k, 1.0, n)
Ltablafrec3 = Sequence(Text[mi + k * amp + amp / 2.0, (12.9, 3.0 - 0.8 * k)], k, 0.0, n - 1.0)
Lrayado = Sequence(Segment[P0 + (0.0, k * amp1), P2 + (0.2, k * amp1)], k, 1.0, Max[Lfrecuencias])
med = Mean(Ldatos)
dtip = SD(Ldatos)
M = Point(ejex)
lineamed = Segment(M - (0.0, 1.0), M + (0.0, 6.0))
basedtip = Segment(M, P2)
D = Point(basedtip)
D' = Mirror(D, M)
polidtip1, b, c, d, e = Polygon(D', D, D + (0.0, 5.2), D' + (0.0, 5.2))
amp2: (x(P2) - x(P1)) / 35.0
M0: P1 + ((med - 150.0) * amp2, 0.0)
D1: M0 - (dtip * amp2, 0.0)
D2: M0 + (dtip * amp2, 0.0)
polidtip0, d1, d2, f, g = Polygon(D1, D2, D2 + (0.0, 5.2), D1 + (0.0, 5.2))
z0 = false
texto3: "" + ((x(M) - x(P1)) / amp2 + 150.0)
texto4: "" + med
texto5: "" + dtip
texto6: "" + med
vedtordtip1 = Vector(M - (0.0, 0.7), D - (0.0, 0.7))
vedtordtip2 = Vector(D - (0.0, 0.7), M - (0.0, 0.7))
texto9: "" + ((x(D) - x(M)) / amp2)
cotaderecha = Segment(D, D - (0.0, 1.0))
lineamed0 = Segment(M0 - (0.0, 1.5), M0 + (0.0, 6.0))