α

TANGENT CURVE
Use slider or arrow keys to change the value of α.
Use COMMAND-Z to erase the trace.

α = 0.5235987755982988 rad (slider from 0 to 360°, step °)
A = Point(xAxis)
c = Circle(A, 1)
M, D = Intersect(c, xAxis)
B = Rotate(D, α, A)
β = Angle(D, A, B)
a = Ray(A, B)
b = OrthogonalLine(B, xAxis)
d = OrthogonalLine(D, xAxis)
e = OrthogonalLine(D, xAxis)
C = Intersect(e, a)
f = OrthogonalLine(M, xAxis)
E = Intersect(f, a)
n_1: y(B) / (x(B) + 3)
S: (α, n_1)
F = Intersect(f, a)
g = Segment(F, M)
G = Point(g)
h = Segment(C, D)
i = OrthogonalLine(C, d)
F': (x(F), (-y(F)))
j = OrthogonalLine(F', f)
k = Segment(M, F')