A = Point(a_2)
C = Point(a_2)
b_2 = OrthogonalLine(C, a_2)
α = 0.8063421144213803 rad (slider from 0 to 90*°, step 0.1*°)
B' = Rotate(C, α, A)
β = Angle(C, A, B')
c_2 = Line(A, B')
B = Intersect(b_2, c_2)
a = Segment(C, B)
c = Segment(A, B)
b = Segment(A, C)
polígono1, c_1, a_1, b_1 = Polygon(A, C, B)
d: a / c
texto1: "sin\alpha = sin\," + (LaTeX[α]) + "=\frac{a}{c} =\frac{" + (LaTeX[a]) + "}{" + (LaTeX[c]) + "} = " + (LaTeX[d]) + ""