Amplitud Angular β

Tangente β

O = Point(xAxis)
k = Ray(O, Vector[(-1, 0)])
C = Point(k)
t = Ray(C, Vector[(0, 1)])
f = OrthogonalLine(C, xAxis)
D = Point(t)
g = OrthogonalLine(D, f)
A = Point(k)
h = OrthogonalLine(A, xAxis)
B = Intersect(g, h)
i = Segment(O, D)
j = Segment(O, B)
Distancia = Segment(O, C)
l = Segment(O, A)
m = Segment(A, B)
n = Segment(D, C)
α = Angle(B, O, A)
β = Angle(D, O, C)
AmplitudAngularβ: β / rad
Tangenteβ: tan(β)
c = Circle(A, 1)
d = Circle(C, 1)
E = Intersect(c, k, 2)
F = Intersect(d, k, 2)
p = Segment(O, F)
q = Segment(O, E)
G: (Distancia, AmplitudAngularβ)
H: (Distancia, Tangenteβ)
Amplitud(x) = If[0 ≤ x ≤ 30, atand(n / x)]
Tangente(x) = If[0 ≤ x ≤ 30, n / x]