Doblar

Comprobar

Girar

A

B

C

C

Medida de 
los ángulos

Demostraciones
visuales

Ejercicios 
de aplicación

Trasladar

yC = 3.84 (slider from 0.2 to 4, step 0.1)
xC = 7.68 (slider from 6.5 to 9, step 0.1)
yB = -0.715988455988456 (slider from -4 to 0, step 0.1)
xB = 14.22813852813853 (slider from 12 to 15, step 0.1)
yA = -2.6676190476190476 (slider from -4 to 0, step 0.1)
xA = 2.048975468975469 (slider from 1.8 to 4, step 0.1)
A: (xA, yA)
C: (xC, yC)
B: (xB, yB)
triangulocompleto, c, a, b = Polygon(A, B, C)
dob = 0 (slider from 0 to 3, step 0.01)
d = OrthogonalLine(C, c)
D = Intersect(d, c)
C1 = If(dob < 1, C + (dob * (D - C)), D)
E = Midpoint(C1, C)
e = OrthogonalLine(E, d)
F = Intersect(e, b)
G = Intersect(e, a)
trianguloC1, f, c1, g = Polygon(C1, G, F)
A1 = If((dob > 1) ∧ (dob < 2), A + ((dob - 1) * (D - A)), If[dob ≤ 1, A, D])
H = Midpoint(A, A1)
h = OrthogonalLine(H, c)
I = Intersect(h, b)
trianguloA1, a1, h_1, i = Polygon(H, I, A1)
B1 = If(dob > 2, B + ((dob - 2) * (D - B)), B)
J = Midpoint(B1, B)
j = OrthogonalLine(J, c)
K = Intersect(j, a)
trianguloB1, k, b1, j_1 = Polygon(B1, J, K)
trianguloA2, a_1, h_2, i_2 = Polygon(H, I, A)
trianguloB2, b_1, j_2, k_1 = Polygon(J, K, B)
trianguloC2, c_1, f_1, g_1 = Polygon(F, G, C)
α2 = Angle(G, C1, F)
β2 = Angle(I, A1, H)
l = Segment(C1, D)
Trans1a = (5.878124098124098, -4.298095238095238)
Trans1b = Circle(Trans1a, 4)
Trans1c = Point(Trans1b)
Trans1d = Angle(Trans1a + (1, 0), Trans1a, Trans1c)
Trans1e = Rotate(Trans1a + ((-5.72), (-0.73)), Trans1d + 5°, Trans1a)
Trans1f = Rotate(Trans1a + (5.68, (-0.73)), Trans1d + 5°, Trans1a)
Trans1g = Rotate(Trans1a - (0.19, 0.19), Trans1d + 5°, Trans1a)
Trans1h = Rotate(Trans1a - ((-0.19), 0.19), Trans1d + 5°, Trans1a)
Trans1i = Rotate(Trans1a + (4, 0) - (0.21, 0.19), Trans1d, Trans1a)
Trans1j = Rotate(Trans1a + (4, 0) - ((-0.21), 0.19), Trans1d, Trans1a)
n = false
α1 = Angle(A, C, B)
β1 = Angle(B, A, C)
γ2 = Angle(J, B1, K)
γ1 = Angle(C, B, A)
M2 = Midpoint(b)
M1 = Midpoint(a)
rot = 0 (slider from 0 to 2, step 0.01)
CR1 = If(rot < 1, Rotate[C, ((rot * 180))°, M1], B)
BR1 = If(rot < 1, Rotate[B, ((rot * 180))°, M1], C)
AR1 = If(rot < 1, Rotate[A, ((rot * 180))°, M1], Rotate[A, 180°, M1])
polígono1, ar, cr, br = Polygon(CR1, BR1, AR1)
CR2 = If(rot < 1, C, Rotate[C, (((-(rot - 1)) * 180))°, M2])
AR2 = If(rot < 1, A, Rotate[A, (((-(rot - 1)) * 180))°, M2])
BR2 = If(rot < 1, B, Rotate[B, (((-(rot - 1)) * 180))°, M2])
polígono2, br2, ar2, cr2 = Polygon(AR2, CR2, BR2)
β3 = Angle(BR2, AR2, CR2)
γ3 = Angle(CR1, BR1, AR1)
z = 2 (slider from 0 to 2, step 1)
L = (9.42, 3.62)
m = Ray(A, L)
M = (6.86, 4.22)
p = Ray(B, M)
N = Intersect(m, p)
polígono3, n_1, a_2, b_2 = Polygon(A, B, N)
α01 = Angle(B, A, N)
β01 = Angle(A, N, B)
γ01 = Angle(N, B, A)
α02 = Angle(N, A, B)
γ02 = Angle(A, B, N)
β02 = Angle(B, N, A)
suma01: α01 + β01 + γ01
suma02: α02 + β02 + γ02
texto7: "A = " + α02
texto8: "B = " + β02
texto9: "C = " + γ02
texto3: "Suma = A + B + C = " + (Angle[B, A, C]) + " + " + (Angle[C, B, A]) + " + " + (Angle[A, C, B]) + " = " + (Angle[A, C, B] + Angle[C, B, A] + Angle[B, A, C])
tra = 0 (slider from 0 to 1, step 0.01)
CP1: C - (2 / Distance[A, C] * (A - C))
CP2: C - (2 / Distance[B, C] * (B - C))
CP3: C - (2 / Distance[A, B] * (A - B))
CP4: C + (2 / Distance[A, B] * (A - B))
CP21: C + (tra * (CP2 - C))
CP11: C + (tra * (CP1 - C))
CP41: C + (tra * (CP4 - C))
CP31: C + (tra * (CP3 - C))
s3 = Segment(C, CP31)
s1 = Segment(C, CP11)
s2 = Segment(C, CP21)
s4 = Segment(C, CP41)
AP1: A + (tra * (C - A))
BP1: B + (tra * (C - B))
β8 = Angle(BP1, AP1, C)
γ8 = Angle(C, BP1, AP1)
β9 = Angle(CP3, C, CP1)
γ9 = Angle(CP2, C, CP4)
α9 = Angle(CP1, C, CP2)
texto10: "A = " + α01 + "
B = " + β01 + "
C = " + γ01 + "
---------------
Suma = " + suma01