Diagrama de caja

Comprobar diagrama

Barras

Cajas

Hay valores atípicos

¿Hay valores atípicos?

SÍ

NO

izquierda

derecha

Comprobar cálculos

Barras

Caja

-

+

-

+

-

+

-

+

-

+

tipo = 0 (slider from 0 to 1, step 1)
listadatos = Sort(If[tipo ≟ 1, Sequence[(15 * random()) + k - k, k, 1, 25], Sequence[Random[1, 15] + k - k, k, 1, 25]])
q1 = Q1(listadatos)
q3 = Q3(listadatos)
med = Mean(listadatos)
medi = Median(listadatos)
dtip = SD(listadatos)
moda = Mode(listadatos)
caja = true
diagbarras = BarChart(listadatos, 0.5)
min = Min(listadatos)
max = Max(listadatos)
marcasx = Sequence(Segment[(k, (-0.1)), (k, 0.1)], k, 1, 15)
marcasy = Sequence(Segment[((-0.1), k), (0.1, k)], k, 1, 7)
ejey = Segment((0, -0.5), (0, 7.2))
ejex = Segment((-0.5, 0), (15.8, 0))
rotulosx = Sequence(Text[k, If[k  <  10, (k - 0.075, (-0.4)), (k - 0.15, (-0.4))]], k, 1, 15)
rayadox = Sequence(Segment[((-0.2), k), (15.8, k)], k, 1, 7)
vmin = 2 (slider from 1 to 15, step 1)
vq1 = 4.0000000000000036 (slider from 1 to 15, step 0.1)
vmed = 6.9 (slider from 1 to 15, step 0.1)
vq3 = 10.499999999999996 (slider from 1 to 15, step 0.1)
vmax = 13 (slider from 1 to 15, step 1)
comprobar = false
rotulosy = Sequence(Text[k, ((-0.3), k - 0.1)], k, 1, 7)
diagcaja, a, b, c, d = Polygon((vq1, 3.5), (vq3, 3.5), (vq3, 4.5), (vq1, 4.5))
texto9: "Valor máximo: " + vmax
texto7: "Tercer cuartil: " + vq3
texto6: "Mediana: " + vmed
texto5: "Primer cuartil: " + vq1
texto8: "Valor mínimo: " + vmin
texto11: "DATOS: " + listadatos + ""
menu = 2 (slider from 1 to 2, step 1)
cajamed = Segment((vmed, 3.5), (vmed, 4.5))
prolfinbigote1 = Segment((vmin, 3.5), (vmin, 0))
prolcuartil1 = Segment((vq1, 3.5), (vq1, 0))
prolcajamed = Segment((vmed, 3.5), (vmed, 0))
prolcuartil2 = Segment((vq3, 3.5), (vq3, 0))
prolfinbigote2 = Segment((vmax, 3.5), (vmax, 0))
listabarritas = Sequence(Segment[(k, 0), (k, 10)], k, 1, 15)
p1 = Point(Element[listabarritas, 1])
p2 = Point(Element[listabarritas, 2])
p3 = Point(Element[listabarritas, 3])
p4 = Point(Element[listabarritas, 4])
p5 = Point(Element[listabarritas, 5])
p6 = Point(Element[listabarritas, 6])
p7 = Point(Element[listabarritas, 7])
p8 = Point(Element[listabarritas, 8])
p9 = Point(Element[listabarritas, 9])
p10 = Point(Element[listabarritas, 10])
p11 = Point(Element[listabarritas, 11])
p12 = Point(Element[listabarritas, 12])
p13 = Point(Element[listabarritas, 13])
p14 = Point(Element[listabarritas, 14])
p15 = Point(Element[listabarritas, 15])
listapuntos: {p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15}
listabarras = Sequence(Polygon[(x(Element[listapuntos, k]) - 0.25, 0), (x(Element[listapuntos, k]) + 0.25, 0), Element[listapuntos, k] + (0.25, 0), Element[listapuntos, k] - (0.25, 0)], k, 1, 15)
atipic = If((min  <  q1 - (1.5 * (q3 - q1))) ∨ (max > q3 + (1.5 * (q3 - q1))), 1, 0)
extreiz: q1 - (1.5 * (q3 - q1))
extreder: q3 + (1.5 * (q3 - q1))
listaatipicos = Sequence(If[(Element[listadatos, k]  <  extreiz) ∨ (Element[listadatos, k] > extreder), (Element[listadatos, k], 1.5)], k, 1, 25)
si = false
no = false
extreder1: vq3 + (1.5 * (vq3 - vq1))
extreiz1: vq1 - (1.5 * (vq3 - vq1))
izq = false
der = false
bigote1 = If(si ≟ true ∧ izq ≟ true, Segment[(extreiz1, 4), (vq1, 4)], Segment[(vmin, 4), (vq1, 4)])
listaatipicos1a = Sequence(If[Element[listadatos, k]  <  extreiz1, (Element[listadatos, k], 4)], k, 1, 25)
listaatipicos1b = Sequence(If[Element[listadatos, k] > extreder1, (Element[listadatos, k], 4)], k, 1, 25)
finbigote1 = If(si ≟ true ∧ izq ≟ true, Segment[(extreiz1, 3.5), (extreiz1, 4.5)], Segment[(vmin, 3.5), (vmin, 4.5)])
bigote2 = If(si ≟ true ∧ der ≟ true, Segment[(vq3, 4), (extreder1, 4)], Segment[(vq3, 4), (vmax, 4)])
finbigote2 = If(si ≟ true ∧ der ≟ true, Segment[(extreder1, 3.5), (extreder1, 4.5)], Segment[(vmax, 3.5), (vmax, 4.5)])
diagcaja0, e, f, g, h = Polygon((q1, 1), (q3, 1), (q3, 2), (q1, 2))
bigote0d = If(atipic ≟ 1 ∧ (extreder  <  max), Segment[(q3, 1.5), (extreder, 1.5)], Segment[(q3, 1.5), (max, 1.5)])
bigote0i = If(atipic ≟ 1 ∧ (extreiz > min), Segment[(extreiz, 1.5), (q1, 1.5)], Segment[(min, 1.5), (q1, 1.5)])
finbigote0i = If(atipic ≟ 1 ∧ (extreiz > min), Segment[(extreiz, 1), (extreiz, 2)], Segment[(min, 1), (min, 2)])
finbigote0d = If(atipic ≟ 1 ∧ (extreder  <  max), Segment[(extreder, 1), (extreder, 2)], Segment[(max, 1), (max, 2)])
i = Segment((medi, 1), (medi, 2))
comprobarcalculos = false
texto2: "Media aritmética: " + med
texto3: "Desviación típica: " + dtip
texto4: "Moda: " + moda