Inversionsllonstruktion mit Gerade y=1
Author: Haftendorn
Date: Mrz 06

Ha 06

Ziehe A

Inversion am verschieblichen Einheitskreis

k = 1.0000000000000004 (slider from -5 to 5, step 0.1)
f(x) = 0.25 x² + k
A = Point(f)
e = OrthogonalLine(A, xAxis)
F = Intersect(e, xAxis)
O = (0, 0)
d = Circle(F, 1)
c = Circle(F, A)
B, C = Intersect(c, a)
b = Line(B, F)
D, F_1 = Intersect(d, b)
g = OrthogonalLine(D, e)
A' = Intersect(e, g)
h = Segment(B, F)
i = Segment(D, A')
j = Segment(A, D)
p = CircleArc(F, B, A)
loc1 = Locus(A', A)
f_1(x) = 1 / f(x)