Author: JNT

α

A = Point(a_2)
C = Point(a_2)
b_2 = OrthogonalLine(C, a_2)
α_1 = 0.4537856055185257 rad (slider from 0 to 1.3962634015954636, step 0.017453292519943295)
B' = Rotate(C, α_1, 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 \, " + α + "= \frac{a}{c} = \, " + (a / c)