Correlación

Regresión lineal

Centro de gravedad

Comprobar

Punto

x

y

A

B

C

D

x-\bar{x}

y-\bar{y}

(x-\bar{x})(y-\bar{y})

F

Media:

Suma de cuadrados:

Suma:

r

DT

E

Covarianza

Covarianza

Centro de gravedad

Regresión lineal

Correlación

cor = false
reg = false
cov = false
P = (6, 5)
cdg = false
D = (4, 7)
C5: y(D)
B5: x(D)
C = (5, 5)
C4: y(C)
B4: x(C)
A = PointIn((x + 0 * y ≥ 0) ∧ (0 * x + y ≥ 0))
C2: y(A)
B2: x(A)
B = PointIn((x + 0 * y ≥ 0) ∧ (0 * x + y ≥ 0))
C3: y(B)
B3: x(B)
E = (6, 8)
C6: y(E)
B6: x(E)
F = PointIn((x + 0 * y ≥ 0) ∧ (0 * x + y ≥ 0))
C7: y(F)
C10 = SD(C2:C7)
B7: x(F)
B10 = SD(B2:B7)
ver = false
C9 = If(cdg ≟ false ∨ ver, Mean[C2:C7], y(P))
E2: C2 - $C$9
E5: C5 - $C$9
E4: C4 - $C$9
E3: C3 - $C$9
E6: C6 - $C$9
E7: C7 - $C$9
B9 = If(cdg ≟ false ∨ ver, Mean[B2:B7], x(P))
D2: B2 - $B$9
F2: D2 * E2
D5: B5 - $B$9
F5: D5 * E5
D4: B4 - $B$9
F4: D4 * E4
D3: B3 - $B$9
F3: D3 * E3
D6: B6 - $B$9
F6: D6 * E6
D7: B7 - $B$9
F7: D7 * E7
F9 = Mean(F2:F7)
m = 1 (slider from -5 to 5, step 0.01)
M: (Mean[B2:B7], Mean[C2:C7])
f(x) = m * (x - x(M)) + y(M)
s6 = Segment(F, (x(F), f(x(F))))
s5 = Segment(E, (x(E), f(x(E))))
s4 = Segment(D, (x(D), f(x(D))))
s3 = Segment(C, (x(C), f(x(C))))
s2 = Segment(B, (x(B), f(x(B))))
s1 = Segment(A, (x(A), f(x(A))))
poliA, a, b, c, d = Polygon(A, (x(M), y(A)), M, (x(A), y(M)))
poliC, c_1, g, m_1, h = Polygon(C, (x(M), y(C)), M, (x(C), y(M)))
poliD, d_1, i, m_2, j = Polygon(D, (x(M), y(D)), M, (x(D), y(M)))
k = FitLineY({A, B, C, D, E, F})
n: y = m * (x - x(M)) + y(M)
sum: s1^(2) + s2^(2) + s3^(2) + s4^(2) + s5^(2) + s6^(2)
poliB, b_1, e, m_3, l = Polygon(B, (x(M), y(B)), M, (x(B), y(M)))
texto11 = If(F2 < 0, "-" + poliA, "asas")
texto4: "m = " + m + ""
texto6: "" + F2 + (If[F3 > 0, " + ", " "]) + F3 + (If[F4 > 0, " + ", " "]) + F4 + (If[F5 > 0, " + ", " "]) + F5 + " = " + F7
barraver, p, q, r, s = Polygon((-0.7, y(M)), (-0.4, y(M)), (-0.4, y(P)), (-0.7, y(P)))
barrahor, t, a_1, e_1, f_1 = Polygon((x(M), -0.7), (x(M), -0.4), (x(P), -0.4), (x(P), -0.7))
B8 = Sum(B2:B7)
C8 = Sum(C2:C7)
D8 = Sum(D2:D7)
E8 = Sum(E2:E7)
poliE, e_2, g_1, m_4, h_1 = Polygon(E, (x(M), y(E)), M, (x(E), y(M)))
poliF, f_2, i_1, m_5, j_1 = Polygon(F, (x(M), y(F)), M, (x(F), y(M)))
F8 = Sum(F2:F7)
texto12: "$ \sigma_{xy}=\frac{\sum{(x-\bar{x})(y-\bar{y}) }}{n}=\frac{" + (LaTeX[F8]) + "}{4}=" + (LaTeX[F9]) + " $"
texto9: "$ \sigma_{xy}=\frac{\sum{(x-\bar{x})(y-\bar{y}) }}{n}=\frac{" + (LaTeX[F8]) + "}{4}=" + (LaTeX[F9]) + " $"
texto13: "" + F2 + "" + (If[F3 > 0, " + ", " "]) + "" + F3 + "" + (If[F4 > 0, " + ", " "]) + "" + F4 + "" + (If[F5 > 0, " + ", " "]) + "" + F5 + "" + (If[F6 > 0, " + ", " "]) + "" + F6 + "" + (If[F7 > 0, " + ", " "]) + "" + F7 + " = " + (4 * F9) + ""
texto14: "" + F2 + "" + (If[F3 > 0, " + ", " "]) + "" + F3 + "" + (If[F4 > 0, " + ", " "]) + "" + F4 + "" + (If[F5 > 0, " + ", " "]) + "" + F5 + " = " + (4 * F9) + ""
texto2: "" + F2 + "" + (If[F3 > 0, " + ", " "]) + "" + F3 + "" + (If[F4 > 0, " + ", " "]) + "" + F4 + "" + (If[F5 > 0, " + ", " "]) + "" + F5 + " " + (If[F6 > 0, " + ", ""]) + "" + F6 + "" + (If[F7 > 0, " + ", ""]) + "" + F7 + "=" + (6 * F9) + ""
texto1: "" + (s1^(2)) + " + " + (s2^(2)) + " + " + (s3^(2)) + " + " + (s4^(2)) + " +" + (s5^(2)) + "+" + (s6^(2)) + "= " + sum + ""
texto7: "$ \sum{ (x-x(P))}= " + (LaTeX[D8]) + "$"
texto8: "$ \sum{(y-y(P)) }=" + (LaTeX[E8]) + " $"
texto15: "M " + M + ""
Q: P
texto10: "" + k + ""
smi: s * m
fondocontroles, k_1, l_1, n_1, p_1 = Polygon((-5, 0.4), (6, 0.4), (6, 3), (-5, 3))
texto16: "y = " + m + " x " + (If[-m * x(M) + y(M) > 0, "+", ""]) + "" + (If[-m * x(M) ≠ y(M), -m * x(M) + y(M), ""])
B11 = If(reg ≟ true ∨ cov ≟ true ∨ cor ≟ true, F9 / (B10 * C10))
texto3: "" + n + ""
FondoComprobar, q_1, r_1, s_1, t_1 = Polygon((-1, -2.4), (1.8, -2.4), (1.8, -1.8), (-1, -1.8))
texto21: "$ r \; = \; \frac{\sigma_{xy}}{\sigma_x·\sigma_y} \; = \; \frac{" + (LaTeX[F9]) + "}{" + (LaTeX[B10]) + " \; " + (LaTeX[C10]) + "}  \; = \; " + (LaTeX[B11]) + "$"
texto22: "σ_x = " + B10 + ""
texto23: "σ_y = " + C10 + ""
texto24: "σ_{xy} = " + F9 + ""