Comprobar diagrama y tabla

Barras

Comprobar cálculos

DATO

FREC

Cambiar datos

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)
moda = Mode(listadatos)
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)
comprobar = false
rotulosy = Sequence(Text[k, ((-0.3), k - 0.1)], k, 1, 7)
texto11: "DATOS: " + listadatos + ""
menu = 2 (slider from 1 to 2, step 1)
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)
comprobarcalculos = false
texto2: "Media aritmética: " + med
texto4: "Moda: " + moda
texto3: "Mediana: " + medi + ""
A2 = 1
A3 = 2
A4: (2 * A3) - A2
A5: (2 * A4) - A3
A6: (2 * A5) - A4
A7: (2 * A6) - A5
A8: (2 * A7) - A6
A9: (2 * A8) - A7
A10: (2 * A9) - A8
A11: (2 * A10) - A9
A12: (2 * A11) - A10
A13: (2 * A12) - A11
A14: (2 * A13) - A12
A15: (2 * A14) - A13
A16: (2 * A15) - A14
listarecuento = Sequence(CountIf[x ≟ k, listadatos], k, 1, 15)
B2 = 0
B3 = 0
C2 = If(B2 ≟ Element[listarecuento, 1], "ok", "Revisa")
B4 = 0
B5 = 0
B6 = 0
B7 = 0
B8 = 0
B9 = 0
B10 = 0
B11 = 0
B12 = 0
B13 = 0
B14 = 0
B15 = 0
B16 = 0
texto1: "Mediana: " + medi + ""
C3 = If(B3 ≟ Element[listarecuento, 2], "ok", "Revisa")
C4 = If(B4 ≟ Element[listarecuento, 3], "ok", "Revisa")
C5 = If(B5 ≟ Element[listarecuento, 4], "ok", "Revisa")
C6 = If(B6 ≟ Element[listarecuento, 5], "ok", "Revisa")
C7 = If(B7 ≟ Element[listarecuento, 6], "ok", "Revisa")
C8 = If(B8 ≟ Element[listarecuento, 7], "ok", "Revisa")
C9 = If(B9 ≟ Element[listarecuento, 8], "ok", "Revisa")
C10 = If(B10 ≟ Element[listarecuento, 9], "ok", "Revisa")
C11 = If(B11 ≟ Element[listarecuento, 10], "ok", "Revisa")
C12 = If(B12 ≟ Element[listarecuento, 11], "ok", "Revisa")
C13 = If(B13 ≟ Element[listarecuento, 12], "ok", "Revisa")
C14 = If(B14 ≟ Element[listarecuento, 13], "ok", "Revisa")
C15 = If(B15 ≟ Element[listarecuento, 14], "ok", "Revisa")
C16 = If(B16 ≟ Element[listarecuento, 15], "ok", "Revisa")