Kreis und Gerade
Author: Mag. G. Wengler

Eine Gerade kann an einem Kreis vorbei gehen (Passante), genau berühren (Tangente) oder ihn in zwei Punkten schneiden (Sekante). Die Lage einer Tangente ist dabei der Grenzfall zwischen Passante und Sekante. Versuche diese genau zu erwischen!

Nimm die blaue Gerade und bewege sie!

Kreismitte = (1.72, 0.3)
B = (-0.22, 2.28)
c = Circle(Kreismitte, B)
C = (4.8, -2)
D = (5.1, 5.44)
a = Line(C, D)
E, F = Intersect(c, a)
b = OrthogonalLine(Kreismitte, a)
A = Intersect(a, b)
d = Distance(A, Kreismitte)
e = Segment(Kreismitte, B)
G = (-2.68, 4.98)
Text3 = If(abs(e - d) ≤ 0.01, Text["Tangente (Berührende)", G], If[Defined[E], Text["Sekante (Schneidende)", G], Text["Passante (Vorbeigehende)", G]])
h = Segment(Kreismitte, A)
α = Angle(D, A, Kreismitte)