Punto

x

y

x-\bar{x}

y-\bar{y}

A

B

C

D

E

F

G

H

Suma

Media

DT

      Comprobar 

A = PointIn((x + (0 * y) ≥ 0) ∧ ((0 * x) + y ≥ 0) ∧ (x + (0 * y) ≤ 10) ∧ ((0 * x) + y ≤ 10))
B = PointIn((x + (0 * y) ≥ 0) ∧ ((0 * x) + y ≥ 0) ∧ (x + (0 * y) ≤ 10) ∧ ((0 * x) + y ≤ 10))
C = PointIn((x + (0 * y) ≥ 0) ∧ ((0 * x) + y ≥ 0) ∧ (x + (0 * y) ≤ 10) ∧ ((0 * x) + y ≤ 10))
D = PointIn((x + (0 * y) ≥ 0) ∧ ((0 * x) + y ≥ 0) ∧ (x + (0 * y) ≤ 10) ∧ ((0 * x) + y ≤ 10))
E = PointIn((x + (0 * y) ≥ 0) ∧ ((0 * x) + y ≥ 0) ∧ (x + (0 * y) ≤ 10) ∧ ((0 * x) + y ≤ 10))
F = PointIn((x + (0 * y) ≥ 0) ∧ ((0 * x) + y ≥ 0) ∧ (x + (0 * y) ≤ 10) ∧ ((0 * x) + y ≤ 10))
G = PointIn((x + (0 * y) ≥ 0) ∧ ((0 * x) + y ≥ 0) ∧ (x + (0 * y) ≤ 10) ∧ ((0 * x) + y ≤ 10))
H = PointIn((x + (0 * y) ≥ 0) ∧ ((0 * x) + y ≥ 0) ∧ (x + (0 * y) ≤ 10) ∧ ((0 * x) + y ≤ 10))
P = PointIn((x + (0 * y) ≥ 0) ∧ ((0 * x) + y ≥ 0) ∧ (x + (0 * y) ≤ 10) ∧ ((0 * x) + y ≤ 10))
B2: x(A)
B3: x(B)
B4: x(C)
B5: x(D)
B6: x(E)
B7: x(F)
B8: x(G)
B9: x(H)
C2: y(A)
C3: y(B)
C4: y(C)
C5: y(D)
C6: y(E)
C7: y(F)
C8: y(G)
C9: y(H)
B10 = Sum(B2:B9)
C10 = Sum(C2:C9)
B11 = Mean(B2:B9)
C11 = Mean(C2:C9)
B12 = SD(B2:B9)
C12 = SD(C2:C9)
D2: B2 - $B$11
D3: B3 - $B$11
D4: B4 - $B$11
D5: B5 - $B$11
D6: B6 - $B$11
D7: B7 - $B$11
D8: B8 - $B$11
D9: B9 - $B$11
E2: C2 - $C$11
E3: C3 - $C$11
E4: C4 - $C$11
E5: C5 - $C$11
E6: C6 - $C$11
E7: C7 - $C$11
E8: C8 - $C$11
E9: C9 - $C$11
M: (B11, C11)
barrahor, a, b, c, d = Polygon((x(M), (-0.7)), (x(M), (-0.4)), (x(P), (-0.4)), (x(P), (-0.7)))
barraver, e, f, g, h = Polygon(((-0.7), y(M)), ((-0.4), y(M)), ((-0.4), y(P)), ((-0.7), y(P)))
texto1: "\sum{ (x-x(P))}=  " + (LaTeX[B10 - (8 * x(P))]) + ""
texto2: "\sum{ (y-y(P))}=  " + (LaTeX[C10 - (8 * y(P))]) + ""
i = false
lista1 = Sequence(Segment[(0, k), (10, k)], k, 1, 10)
lista2 = Sequence(Segment[(k, 0), (k, 10)], k, 1, 10)