Mostrar la media

Mediana

Valor mínimo

Valor máximo

Reparte

Suma

s1 = Segment((-1.0, -4.0), (-1.0, 6.0))
P1 = Point(s1)
s2 = Segment((0.0, -4.0), (0.0, 6.0))
P2 = Point(s2)
s3 = Segment((1.0, -4.0), (1.0, 6.0))
P3 = Point(s3)
s4 = Segment((2.0, -4.0), (2.0, 6.0))
P4 = Point(s4)
s5 = Segment((3.0, -4.0), (3.0, 6.0))
P5 = Point(s5)
listapuntos1: {P1, P2, P3, P4, P5}
media: Mean[{y(P1), y(P2), y(P3), y(P4), y(P5)}] + 4.0
c: y = media - 4.0
A = Intersect(c, s1)
B = Intersect(c, s2)
C = Intersect(c, s3)
D = Intersect(c, s4)
E = Intersect(c, s5)
k = 0 (slider from 0 to 1, step 0.1)
P11: P1 + k * (A - P1)
P21: P2 + k * (B - P2)
P31: P3 + k * (C - P3)
P41: P4 + k * (D - P4)
P51: P5 + k * (E - P5)
listapuntos2: {P11, P21, P31, P41, P51}
A1: y(P1) + 4.0
A2: y(P2) + 4.0
A3: y(P3) + 4.0
A4: y(P4) + 4.0
A5: y(P5) + 4.0
A7: media
e = false
listavaloresy: {1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0}
listavaloresx: {"A", "B", "C", "D", "E"}
listadiag0 = Sequence(Polygon[(-(1.7) + t, -(4.0)), (-(2.3) + t, -(4.0)), Element[listapuntos1, t] - (0.3, 0.0), Element[listapuntos1, t] + (0.3, 0.0)], t, 1.0, 5.0)
listadiagmed = Sequence(Polygon[(-(1.7) + t, -(4.0)), (-(2.3) + t, -(4.0)), Element[listapuntos2, t] - (0.3, 0.0), Element[listapuntos2, t] + (0.3, 0.0)], t, 1.0, 5.0)
listarotulosx = Sequence(Text[Element[listavaloresx, t], (t - 2.1, -(4.4))], t, 1.0, 5.0)
a = Segment((-2.1, -4.0), (3.7, -4.0))
d = Segment((-(2.1), media - 4.0), (3.8, media - 4.0))
b = Segment((-2.0, -4.1), (-2.0, 6.1))
lista2 = Sequence(Segment[(-(2.0), s), (3.7, s)], s, -4.0, 6.0)
lista1 = Sequence(Segment[(-(1.9), t), (-(2.1), t)], t, -4.0, 6.0)
listarotulosy = Sequence(Text[Element[listavaloresy, t], If[t > 9.0, (-(2.5), t - 4.1), (-(2.4), t - 4.1)]], t, 1.0, 10.0)
mediana = Median(A1:A5)
minimo = Min(A1:A5)
maximo = Max(A1:A5)
f = false
texto1: mediana + ""
g = false
texto2: minimo + ""
h = false
texto3: maximo + ""
texto4: "Media = " + media
texto6: "A = " + (y(P1) + 4.0)
texto7: "B = " + (y(P2) + 4.0)
texto8: "C = " + (y(P3) + 4.0)
texto9: "D = " + (y(P4) + 4.0)
recuadro2, n, p, q, r = Polygon((8.0, -4.2), (14.0, -4.2), (14.0, -0.5), (8.0, -0.5))
recuadro1, i, j, l, m = Polygon((10.0, 0.5), (13.0, 0.5), (13.0, 5.5), (10.0, 5.5))
texto10: "E = " + (y(P5) + 4.0)
o = false
texto11: "" + (media * 5.0)