Estimació mitjana i mediana
Author: Pep Bujosa, a partir d'idees i construccions d'Antoni Gomà

Mitjana real

Mediana real

Distribució nova

Estimació de la mitjana

Estimació de la mediana

Comprova l'estimació (compta com un intent)

Comprova l'estimació (compta com un intent)

I = (7, -2)
H = (1, -2)
a = Segment(H, I)
J = Point(a)
A: (1, Random[0, 15])
LA = Sequence(1, i, y(A), 1, -1)
B: (2, Random[0, 15])
LB = Sequence(2, i, y(B), 1, -1)
C: (3, Random[0, 15])
LC = Sequence(3, i, y(C), 1, -1)
D: (4, Random[0, 15])
LD = Sequence(4, i, y(D), 1, -1)
E: (5, Random[0, 15])
LE = Sequence(5, i, y(E), 1, -1)
F: (6, Random[0, 15])
LF = Sequence(6, i, y(F), 1, -1)
G: (7, Random[0, 15])
LG = Sequence(7, i, y(G), 1, -1)
dad = Join({LA, LB, LC, LD, LE, LF, LG})
xx = Mean(dad)
me = Median(dad)
PM: (me, 0)
o = BarChart(dad, 0.5)
PX: (xx, 0)
text1: "" + (y(A)) + ""
text2: "" + (y(B)) + ""
text3: "" + (y(C)) + ""
text4: "" + (y(D)) + ""
text5: "" + (y(E)) + ""
text6: "" + (y(F)) + ""
text7: "" + (y(G)) + ""
d = false
e = false
b = OrthogonalLine(J, a)
K = Intersect(b, xAxis)
u = Vector(J, K)
T8: "Mitjana real = " + xx + ""
text8: "Mediana real = " + me + ""
text10: "Mitjana estimada = " + (x(J)) + ""
L = Point(a)
c = OrthogonalLine(L, a)
M = Intersect(c, xAxis)
v = Vector(L, M)
text9: "Mediana estimada = " + (x(L)) + ""
JJ = (0, 0)
f = false
g = false
difxx: xx - x(J)
nxx = 0
nme = 0
text11: "Nombre d'intents per a la mitjana = " + nxx + ""
difme: me - x(L)
TRme = If(difme  <  (-0.05), "Més a l'esquerra", If[difme > 0.05, "Més a la dreta", "Bona vista!"])
LL = (0, 0)
hh: x(J)
TRxx = If(difxx  <  (-0.1), "Més a l'esquerra", If[difxx > 0.1, "Més a la dreta", "Bona vista!"])
text12: "Nombre d'intents per a la mediana = " + nme + ""