dato

frecuencia

Extremo inferior

Extremo superior

Nº. de intervalos

Mostrar el histograma

Mostrar la tabla de frecuencias

E. inf.

E. sup.

M.c.

Frec

-

+

-

+

-

+

Datos

n1 = 10 (slider from 1 to 10, step 1)
P0 = Point(a)
n: round(n1)
base1 = Segment(P0, P0 + (3, 0))
mi = 150 (slider from 140 to 195, step 1)
ma = 185 (slider from 140 to 195, step 1)
Ldatos = Sequence(Random[150, 185], k, 1, 25)
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, CountIf[(x ≥ mi + (k * amp)) ∧ (x  <  mi + ((k + 1) * amp)), Ldatos], CountIf[(x ≥ mi + (k * amp)) ∧ (x ≤ mi + ((k + 1) * amp)), Ldatos]], k, 0, n - 1)
sumafrec = Sum(Lfrecuencias)
P1 = Point(base1)
A = (-2.6, 5.58)
base2 = Segment(P1 + (3, 0), P1 + (12, 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, 3 - (0.8 * (k - 1)))], k, 1, n)
rotulosx = Sequence(Text[Element[Ltablafrec2, k], P1 + ((k * amp0) - 0.25, -0.4)], k, 1, n - 1)
amp1: 5 / Max[Lfrecuencias]
Lpolígonos = Sequence(Polygon[P1 + ((k * amp0), 0), P1 + (((k + 1) * amp0), 0), P1 + (((k + 1) * amp0), (amp1 * Element[Lfrecuencias, k + 1])), P1 + ((k * amp0), (amp1 * Element[Lfrecuencias, k + 1]))], k, 0, n - 1)
ejey = Segment(P0 - (0, 0.2), P0 + (0, 5.2))
marcasy = Sequence(Segment[P0 + (-0.1, (k * amp1)), P0 + (0.1, (k * amp1))], k, 1, Max[Lfrecuencias])
ejex = Segment(P0 - (0.2, 0), P2 + (0.4, 0))
marcasx = Sequence(Segment[P1 + ((k * amp0), -0.05), P1 + ((k * amp0), 0.05)], k, 1, n - 1)
rotulosy = Sequence(Text[k, P0 + (If[k  <  10, -0.4, -0.55], (k * amp1) - 0.1)], k, 1, Max[Lfrecuencias])
Ltabladatos = Sequence(Text[Element[Ldatos, k] + If[k  <  25, ","], A + ((0.65 * k), 0)], k, 1, 25)
Ltablaver = Sequence(Segment[(10.8 + k, 4.3), (10.8 + k, 4.3 - ((n + 1) * 0.8))], k, 0, 4)
Ltablahor = Sequence(Segment[(10.8, 4.3 - (0.8 * k)), (14.8, 4.3 - (0.8 * k))], k, 0, n + 1)
Ltablafrec1 = Sequence(Text[mi + (k * amp), (11, 3 - (0.8 * k))], k, 0, n - 1)
Ltablafrec4 = Sequence(Text[Element[Lfrecuencias, k], (If[Element[Lfrecuencias, k]  <  10, 14.2, 14.1], 3 - (0.8 * (k - 1)))], k, 1, n)
texto3: "Amplitud de cada intervalo: " + amp
Ltablafrec3 = Sequence(Text[mi + (k * amp) + amp / 2, (12.9, 3 - (0.8 * k))], k, 0, n - 1)
Lrayado = Sequence(Segment[P0 + (0, (k * amp1)), P2 + (0.2, (k * amp1))], k, 1, Max[Lfrecuencias])