tanα

S = Intersect(xAxis, yAxis)
B = Point(yAxis)
c = Circle(S, B)
M = Point(c)
a = Segment(S, M)
A = Intersect(c, xAxis, 2)
α = Angle(A, S, M)
b = OrthogonalLine(M, xAxis)
d = OrthogonalLine(M, yAxis)
C = Intersect(xAxis, b)
D = Intersect(d, yAxis)
e = Segment(C, M)
f = Segment(M, D)
vzdalenostDM = Distance(D, M)
TextDM: "\overline{" + (Name[D]) + (Name[M]) + "} \, = \, " + vzdalenostDM
vzdalenostCM = Distance(C, M)
TextCM: "\overline{" + (Name[C]) + (Name[M]) + "} \, = \, " + vzdalenostCM
g = OrthogonalLine(A, xAxis)
mnohoúhelník2, m, s_1, c_1 = Polygon(S, C, M)
E = Intersect(c, xAxis, 1)
h = OrthogonalLine(E, xAxis)
i = Ray(S, M)
F = Intersect(g, i)
G = Intersect(h, i)
mnohoúhelník1, f_1, s, a_1 = Polygon(S, A, F)
vzdalenostAF = Distance(A, F)
TextAF: "tan" + (LaTeX[α]) + "=\overline{" + (Name[A]) + "" + (Name[F]) + "} \, = \, " + (LaTeX[vzdalenostAF]) + ""
vzdalenostEG = Distance(E, G)
TextEG: "\overline{" + (Name[E]) + (Name[G]) + "} \, = \, " + vzdalenostEG
k = false
j: sin(α)
l: cos(α)
text1: "$ sin" + (LaTeX[α]) + "=" + (LaTeX[j]) + "$
$ cos" + (LaTeX[α]) + "=" + (LaTeX[l]) + "$ "
H = Intersect(c, h, 1)
mnohoúhelník3, h_1, s_2, g_1 = Polygon(S, G, H)
z: sin(α)
q: cos(α)
p: z / q
text2: "$ tan" + (LaTeX[α]) + "=\frac{" + (LaTeX[j]) + "}{" + (LaTeX[l]) + "}=" + (LaTeX[p]) + " $"