r = 2

Sekante

Tangente

Passante

Zentrale

A = (7.7, 1.28)
B = (4.22, -2.2800000000000002)
a = Line(A, B)
C = Point(a)
Schieberegler = 6 (slider from 0.1 to 6, step 0.1)
D = Point(Circle[C, Schieberegler])
c = Segment(C, D)
d = OrthogonalLine(C, a)
g = Line(D, a)
E = Intersect(d, c)
F = Intersect(d, c)
G = Intersect(d, c)
I = Intersect(d, c)
J = Intersect(d, c)
K = Intersect(d, c)
H = Point(a)
f = Circle(H, 3.0)
h = OrthogonalLine(H, a)
M = Intersect(f, h, 1.0)
k = Circle(M, 2.0)
g_1 = OrthogonalLine(M, g)
L, N = Intersect(k, g_1)
r = Segment(M, L)
abstandMe = Distance(M, g)
TextMe: "\overline{" + (Name[M]) + (Name[g]) + "} \, = \, " + abstandMe
α = Angle(g, g_1)
Text6: "Abstand (M/g) = " + abstandMe