Mostrar la media aritmética

Mueve el deslizador para situar el valor aproximado de la media
A continuación comprueba tu solución activando la casilla.

MEDIA ARITMÉTICA Y GRÁFICA

Dato

Frec

Equilibrio 1

Estima la media

Equilibrio 2

z = 3 (slider from 1 to 3, step 1)
med = If(z ≟ 3, 6.2, 5.3)
P1 = (1, 0)
P2 = (10, 0)
base1 = Segment(P1, P2)
U = Point(base1)
T = Point(base1)
S = Point(base1)
R = Point(base1)
Q = Point(base1)
P = Point(base1)
O = Point(base1)
N = Point(base1)
M = Point(base1)
K = Point(base1)
J = Point(base1)
I = Point(base1)
H = Point(base1)
G = Point(base1)
F = Point(base1)
E = Point(base1)
D = Point(base1)
C = Point(base1)
B = Point(base1)
A = Point(base1)
media = Mean({x(A), x(B), x(C), x(D), x(E), x(F), x(G), x(H), x(I), x(J), x(K), x(M), x(N), x(O), x(P), x(Q), x(R), x(S), x(T), x(U)})
medT = If(z ≟ 1, media, med)
M1: (medT, (-0.25))
A3: x(B)
M2: M1 - (0, 0.85)
u = Vector(M2, M1)
A4: x(C)
A5: x(D)
A6: x(E)
A7: x(F)
A8: x(G)
A9: x(H)
A10: x(I)
A11: x(J)
A12: x(K)
A13: x(M)
A14: x(N)
A15: x(O)
A16: x(P)
A17: x(Q)
A18: x(R)
A19: x(S)
A20: x(T)
A2: x(A)
A21: x(U)
x1 = CountIf(x < 2, A2:A21)
x2 = CountIf(1 < x < 3, A2:A21)
x3 = CountIf(2 < x < 4, A2:A21)
x4 = CountIf(3 < x < 5, A2:A21)
x5 = CountIf(4 < x < 6, A2:A21)
x6 = CountIf(5 < x < 7, A2:A21)
x7 = CountIf(6 < x < 8, A2:A21)
x8 = CountIf(7 < x < 9, A2:A21)
x9 = CountIf(8 < x < 10, A2:A21)
x10 = CountIf(9 < x < 11, A2:A21)
Med = 1 (slider from 1 to 10, step 0.05)
M32: (Med, -1)
M31: (Med, (-0.25))
v = Vector(M32, M31)
c = false
p1 = If(x1 > 0, Polygon[(0.8, 0), (1.2, 0), (1.2, (x1 * 0.5)), (0.8, (x1 * 0.5))])
p10 = If(x10 > 0, Polygon[(9.8, 0), (10.2, 0), (10.2, (x10 * 0.5)), (9.8, (x10 * 0.5))])
p2 = If(x2 > 0, Polygon[(1.8, 0), (2.2, 0), (2.2, (x2 * 0.5)), (1.8, (x2 * 0.5))])
p3 = If(x3 > 0, Polygon[(2.8, 0), (3.2, 0), (3.2, (x3 * 0.5)), (2.8, (x3 * 0.5))])
p4 = If(x4 > 0, Polygon[(3.8, 0), (4.2, 0), (4.2, (x4 * 0.5)), (3.8, (x4 * 0.5))])
p5 = If(x5 > 0, Polygon[(4.8, 0), (5.2, 0), (5.2, (x5 * 0.5)), (4.8, (x5 * 0.5))])
p6 = If(x6 > 0, Polygon[(5.8, 0), (6.2, 0), (6.2, (x6 * 0.5)), (5.8, (x6 * 0.5))])
p7 = If(x7 > 0, Polygon[(6.8, 0), (7.2, 0), (7.2, (x7 * 0.5)), (6.8, (x7 * 0.5))])
p8 = If(x8 > 0, Polygon[(7.8, 0), (8.2, 0), (8.2, (x8 * 0.5)), (7.8, (x8 * 0.5))])
p9 = If(x9 > 0, Polygon[(8.8, 0), (9.2, 0), (9.2, (x9 * 0.5)), (8.8, (x9 * 0.5))])
g = SD({x(A), x(B), x(C), x(D), x(E), x(F), x(G), x(H), x(I), x(J), x(K), x(M), x(N), x(O), x(P), x(Q), x(R), x(S), x(T), x(U)})
listarotulosx: {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
listarotulosy: {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
Lfrec: {x1, x2, x3, x4, x5, x6, x7, x8, x9, x10}
Lineasytabla = Sequence(Segment[(t + 12.2, (-0.1)), (t + 12.2, 5.35)], t, 0, 2)
Lineasxtabla = Sequence(Segment[(12.2, (0.5 * (11.75 - t))), (14.2, (0.5 * (11.75 - t)))], t, 1, 12)
b = 5.6 (slider from 1 to 10, step 0.05)
texto5: b + ""
texto11: "Media = " + medT
texto12: "Media = " + Med
L = (8, -5)
ejex = Segment((-0.1, 0), (11, 0))
Lrotulosx = Sequence(Text[Element[listarotulosx, t], If[t > 9, (t - 0.2, (-0.5)), (t - 0.1, (-0.5))]], t, 1, 10)
Lmarcasx = Sequence(Segment[(t, (-0.15)), (t, 0.15)], t, 1, 10)
Lmarcasxsec = Sequence(Segment[(t + 0.5, (-0.05)), (t + 0.5, 0.05)], t, 1, 9)
a = Segment((0, -0.15), (0, 5.5))
Ltabla2 = Sequence(Text[Element[Lfrec, t], If[Element[Lfrec, t] < 10, (13.7, (0.5 * (10 - t))), (13.6, (0.5 * (10 - t)))]], t, 1, 10)
Ltabla1 = Sequence(Text[Element[listarotulosx, t], If[Element[listarotulosx, t] > 9, (12.45, (0.5 * (10 - t))), (12.6, (0.5 * (10 - t)))]], t, 1, 10)
Lrotulosy = Sequence(Text[Element[listarotulosy, t], If[Element[listarotulosy, t] < 10, ((-0.4), (0.5 * (t - 1.1))), ((-0.55), (0.5 * (t - 1.1)))]], t, 1, 11)
Lmarcasy = Sequence(Segment[((-0.1), t), (0.1, t)], t, 0, 5, 0.5)
Pmovil: (b, 0.25)