Diagrama de caja

Comprobar diagrama

Barras

Cajas

Hay valores atípicos

¿Hay valores atípicos?

SÍ

NO

izquierda

derecha

Comprobar cálculos

tipo = 0 (slider from 0 to 1, step 1)
listadatos = Sort(If[tipo ≟ 1.0, Sequence[15.0 * random() + k - k, k, 1.0, 25.0], Sequence[Random[1.0, 15.0] + k - k, k, 1.0, 25.0]])
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.0, 15.0)
marcasy = Sequence(Segment[(-(0.1), k), (0.1, k)], k, 1.0, 7.0)
ejey = Segment((0.0, -0.5), (0.0, 7.2))
ejex = Segment((-0.5, 0.0), (15.8, 0.0))
rotulosx = Sequence(Text[k, If[k < 10.0, (k - 0.075, -(0.4)), (k - 0.15, -(0.4))]], k, 1.0, 15.0)
rayadox = Sequence(Segment[(-(0.2), k), (15.8, k)], k, 1.0, 7.0)
vmin = 3 (slider from 1 to 15, step 1)
vq1 = 4.9 (slider from 1 to 15, step 0.1)
vmed = 7 (slider from 1 to 15, step 0.1)
vq3 = 9.7 (slider from 1 to 15, step 0.1)
vmax = 12 (slider from 1 to 15, step 1)
comprobar = false
rotulosy = Sequence(Text[k, (-(0.3), k - 0.1)], k, 1.0, 7.0)
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.0))
prolcuartil1 = Segment((vq1, 3.5), (vq1, 0.0))
prolcajamed = Segment((vmed, 3.5), (vmed, 0.0))
prolcuartil2 = Segment((vq3, 3.5), (vq3, 0.0))
prolfinbigote2 = Segment((vmax, 3.5), (vmax, 0.0))
listabarritas = Sequence(Segment[(k, 0.0), (k, 10.0)], k, 1.0, 15.0)
p1 = Point(Element[listabarritas, 1.0])
p2 = Point(Element[listabarritas, 2.0])
p3 = Point(Element[listabarritas, 3.0])
p4 = Point(Element[listabarritas, 4.0])
p5 = Point(Element[listabarritas, 5.0])
p6 = Point(Element[listabarritas, 6.0])
p7 = Point(Element[listabarritas, 7.0])
p8 = Point(Element[listabarritas, 8.0])
p9 = Point(Element[listabarritas, 9.0])
p10 = Point(Element[listabarritas, 10.0])
p11 = Point(Element[listabarritas, 11.0])
p12 = Point(Element[listabarritas, 12.0])
p13 = Point(Element[listabarritas, 13.0])
p14 = Point(Element[listabarritas, 14.0])
p15 = Point(Element[listabarritas, 15.0])
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.0), (x(Element[listapuntos, k]) + 0.25, 0.0), Element[listapuntos, k] + (0.25, 0.0), Element[listapuntos, k] - (0.25, 0.0)], k, 1.0, 15.0)
atipic = If(min < q1 - 1.5 * (q3 - q1) ∨ max > q3 + 1.5 * (q3 - q1), 1.0, 0.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.0, 25.0)
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.0), (vq1, 4.0)], Segment[(vmin, 4.0), (vq1, 4.0)])
listaatipicos1a = Sequence(If[Element[listadatos, k] < extreiz1, (Element[listadatos, k], 4.0)], k, 1.0, 25.0)
listaatipicos1b = Sequence(If[Element[listadatos, k] > extreder1, (Element[listadatos, k], 4.0)], k, 1.0, 25.0)
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.0), (extreder1, 4.0)], Segment[(vq3, 4.0), (vmax, 4.0)])
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.0), (q3, 1.0), (q3, 2.0), (q1, 2.0))
bigote0d = If(atipic ≟ 1.0 ∧ extreder < max, Segment[(q3, 1.5), (extreder, 1.5)], Segment[(q3, 1.5), (max, 1.5)])
bigote0i = If(atipic ≟ 1.0 ∧ extreiz > min, Segment[(extreiz, 1.5), (q1, 1.5)], Segment[(min, 1.5), (q1, 1.5)])
finbigote0i = If(atipic ≟ 1.0 ∧ extreiz > min, Segment[(extreiz, 1.0), (extreiz, 2.0)], Segment[(min, 1.0), (min, 2.0)])
finbigote0d = If(atipic ≟ 1.0 ∧ extreder < max, Segment[(extreder, 1.0), (extreder, 2.0)], Segment[(max, 1.0), (max, 2.0)])
i = Segment((medi, 1.0), (medi, 2.0))
comprobarcalculos = false
texto2: "Media aritmética: " + med
texto3: "Desviación típica: " + dtip
texto4: "Moda: " + moda