tan(α) = \frac{     }{~~~~~~~~}

R = 1 unité

sin(α)

cos(α)

D = (1, 0)
verticale = OrthogonalLine(D, xAxis)
O = (0, 0)
f = Circle(O, D)
P = Point(f)
oblique = Line(O, P)
C: (x(P), 0)
e = OrthogonalLine(C, xAxis)
R = Segment(O, P)
cos_{ } = Segment(O, C)
sin_{ } = Segment(P, C)
d = Length(sin_{ })
opp = Length(sin_{ })
P1 = Intersect(verticale, oblique)
tangente = Segment(D, P1)
E2: (0, 1)
horizontale = Line(E2, xAxis)
P2 = Intersect(oblique, horizontale)
cotangente = Segment(E2, P2)
D_{1} = (1, 0)
A_{1} = (0, 0)
f_{1} = Circle(A_{1}, D_{1})
B_{1} = Point(f_{1})
h_{1} = Line(A_{1}, B_{1})
C_{1}: (x(B_{1}), 0)
hypoténuse_{1} = Segment(A_{1}, B_{1})
adjacent_{1} = Segment(A_{1}, C_{1})
opposé_{1} = Segment(B_{1}, C_{1})
α_{1} = Angle(C_{1}, A_{1}, B_{1})
d_{1} = Length(opposé_{1})
opp_{1} = Length(opposé_{1})
texte1_{1}: "sinus(α) = " + (y(P) / Length[hypoténuse_{1}]) + ""
E1 = (1, 0)
A_{2} = (0, 0)
f_{2} = Circle(A_{2}, E1)
B_{2} = Point(f_{2})
h_{2} = Line(A_{2}, B_{2})
C_{2}: (x(B_{2}), 0)
hypoténuse_{2} = Segment(A_{2}, B_{2})
adjacent_{2} = Segment(A_{2}, C_{2})
opposé_{2} = Segment(B_{2}, C_{2})
α_{2} = Angle(C_{2}, A_{2}, B_{2})
texte2_{1}: "cosinus(α) = " + (x(P) / Length[hypoténuse_{2}]) + ""
α = Angle(E1, O, P)
c = Circle(O, P)
P' = Mirror(P, xAxis)
sin_{nég} = Segment(C, P')
R_2 = Segment(O, P')
P'_{1} = Mirror(P, yAxis)
C' = Mirror(C, yAxis)
g = Segment(C', P'_{1})
h = Segment(P'_{1}, O)
i = Segment(C', O)
P'_{2} = Mirror(P, O)
j = Segment(P'_{2}, C')
k = Segment(P'_{2}, O)
l = OrthogonalLine(O, R)
P_{+} = Intersect(c, l, 2)
P_{-} = Intersect(c, l, 1)
m = OrthogonalLine(P_{+}, i)
n = OrthogonalLine(P_{-}, xAxis)
A = Intersect(m, xAxis)
B = Intersect(n, xAxis)
p = Segment(P_{-}, B)
q = Segment(A, P_{+})
r = Segment(O, P_{+})
s = Segment(O, P_{-})
t = Segment(O, C')
B' = Intersect(i, q)
c_1 = CircleArc(O, E1, P)