eq1: (x + 2)^(2) + y^(2) = 1
A = Point(eq1)
B: (-2, 0)
D: (-1, 0)
f = Segment(A, B)
g = Segment(B, D)
α = Angle(D, B, A)
h = OrthogonalLine(A, g)
A_x = Intersect(h, g)
i = Segment(A, A_x)
c = CircleArc(B, D, A)
B' = Rotate(B, 90°, A)
k = Line(A, B')
C = Intersect(k, xAxis)
KaugusAC = Distance(A, C)
Tan: (α, If[0° < α < 90° ∨ 180° < α < 270°, KaugusAC, (-KaugusAC)])
j = Segment(B, A_x)
tekst1: "Nurk \; α \; =" + (LaTeX[α]) + ""
a: tan(α)
tekst2: "Tan \; α \; =" + (LaTeX[a]) + ""