Hay valores atípicos

SI

NO

Izquierda

Derecha

¿Hay datos atípicos?

Comprobar diagrama

Comprobar cálculos

O2 = 30
N2 = 30
M2 = 28
L2 = 25
K2 = 25
J2 = 25
I2 = 24
H2 = 21
G2 = 20
F2 = 19
E2 = 19
D2 = 16
C2 = 10
B2 = 3
A2 = 1
ndatos = 1 (slider from 1 to 4, step 1)
P2 = 32
R2 = 37
Q2 = 34
T2 = 40
S2 = 39
listadatos = If(ndatos ≟ 1, A2:O2, If[ndatos ≟ 2, A2:P2, If[ndatos ≟ 3, A2:R2, A2:T2]])
min = Min(listadatos)
max = Max(listadatos)
vq3 = 17.8 (slider from 1 to 40, step 0.1)
vq1 = 6 (slider from 1 to 40, step 0.1)
A1 = 1
amp: 15 / max
B1 = 2
q3 = Q3(listadatos)
q1 = Q1(listadatos)
med = Mean(listadatos)
medi = Median(listadatos)
dtip = SD(listadatos)
moda = Mode(listadatos)
diagcaja, a, b, c, d = Polygon(((amp * vq1), 3.5), ((amp * vq3), 3.5), ((amp * vq3), 4.5), ((amp * vq1), 4.5))
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))
extreder1: vq3 + (1.5 * (vq3 - vq1))
extreiz1: vq1 - (1.5 * (vq3 - vq1))
diagcaja0, e, f, g, h = Polygon(((amp * q1), 1), ((amp * q3), 1), ((amp * q3), 2), ((amp * q1), 2))
marcasx = Sequence(Segment[((amp * k), -0.1), ((amp * k), 0.1)], k, min, max)
bigote0i = If(atipic ≟ 1 ∧ (extreiz > min), Segment[((amp * extreiz), 1.5), ((amp * q1), 1.5)], Segment[((amp * min), 1.5), ((amp * q1), 1.5)])
i = Segment(((amp * medi), 1), ((amp * medi), 2))
bigote0d = If(atipic ≟ 1 ∧ (extreder < max), Segment[((amp * q3), 1.5), ((amp * extreder), 1.5)], Segment[((amp * q3), 1.5), ((amp * max), 1.5)])
finbigote0d = If(atipic ≟ 1 ∧ (extreder < max), Segment[((amp * extreder), 1), ((amp * extreder), 2)], Segment[((amp * max), 1), ((amp * max), 2)])
finbigote0i = If(atipic ≟ 1 ∧ (extreiz > min), Segment[((amp * extreiz), 1), ((amp * extreiz), 2)], Segment[((amp * min), 1), ((amp * min), 2)])
listaatipicos = Sequence(If[(Element[listadatos, k] < extreiz) ∨ (Element[listadatos, k] > extreder), ((amp * Element[listadatos, k]), 1.5)], k, 1, 25)
C1: (2 * B1) - A1
D1: (2 * C1) - B1
E1: (2 * D1) - C1
F1: (2 * E1) - D1
G1: (2 * F1) - E1
H1: (2 * G1) - F1
I1: (2 * H1) - G1
J1: (2 * I1) - H1
K1: (2 * J1) - I1
L1: (2 * K1) - J1
M1: (2 * L1) - K1
N1: (2 * M1) - L1
O1: (2 * N1) - M1
P1: (2 * O1) - N1
Q1: (2 * P1) - O1
R1: (2 * Q1) - P1
S1 = 19
T1 = 20
vmed = 10.8 (slider from 1 to 40, step 0.1)
vmin = 4 (slider from 1 to 40, step 1)
vmax = 20 (slider from 1 to 40, step 1)
listaatipicos1a = Sequence(If[Element[listadatos, k] < extreiz1, ((amp * Element[listadatos, k]), 4)], k, 1, 25)
listaatipicos1b = Sequence(If[Element[listadatos, k] > extreder1, ((amp * Element[listadatos, k]), 4)], k, 1, 25)
cajamed = Segment(((amp * vmed), 3.5), ((amp * vmed), 4.5))
si = false
no = false
izq = false
dcha = false
ndat = If(ndatos ≟ 1, 15, If[ndatos ≟ 2, 16, If[ndatos ≟ 3, 18, 20]])
texto1: "Nº de datos: " + ndat
bigote1d = If(si ≟ true ∧ dcha ≟ true, Segment[((amp * vq3), 4), ((amp * extreder1), 4)], Segment[((amp * vq3), 4), ((amp * vmax), 4)])
finbigote1d = If(si ≟ true ∧ dcha ≟ true, Segment[((amp * extreder1), 3.5), ((amp * extreder1), 4.5)], Segment[((amp * vmax), 3.5), ((amp * vmax), 4.5)])
finbigote1i = If(si ≟ true ∧ izq ≟ true, Segment[((amp * extreiz1), 3.5), ((amp * extreiz1), 4.5)], Segment[((amp * vmin), 3.5), ((amp * vmin), 4.5)])
bigote1i = If(si ≟ true ∧ izq ≟ true, Segment[((amp * extreiz1), 4), ((amp * vq1), 4)], Segment[((amp * vmin), 4), ((amp * vq1), 4)])
texto3: "Media aritmética: " + med
tapete, j, k, l, m = Polygon((-0.2, -1), (16.2, -1), (16.2, 6), (-0.2, 6))
texto4: "Moda: " + moda
rotulosx = Sequence(Text[k, If[k < 10, ((amp * k) - 0.075, -0.4), ((amp * k) - 0.15, -0.4)]], k, min, max)
histo = false
calcu = false
texto9: "Valor máximo: " + vmax
texto8: "Tercer cuartil: " + vq3
texto7: "Mediana: " + vmed
texto6: "Primer cuartil: " + vq1
texto5: "Valor mínimo: " + vmin
rayadox = Sequence(Segment[((amp * k), -0.1), ((amp * k), 5.5)], k, min, max)
texto10: "DATOS: " + (Sort[listadatos])
ejex = Segment(((amp * min) - 0.5, 0), ((amp * max) + 0.5, 0))