Peaucellier Inversor
Author: Prof. Dr. Dörte Haftendorn
Date: Mai 05

Berichtitigt Dez. 07

a = 4.000000000000001
O = (0, 0)
e = Circle(O, 6)
R = 2
M: (R, 0)
c = Circle(M, R)
Q = Point(c)
f = Circle(Q, a)
A, B = Intersect(e, f)
k = Segment(B, A)
d = Line(O, Q)
H = Intersect(k, d)
b = 6
g = Circle(A, Q)
h_1 = Segment(O, A)
P = Mirror(Q, H)
i = Segment(A, P)
j = Segment(P, B)
l = Segment(A, Q)
m = Segment(Q, P)
n = Segment(B, O)
p = Segment(Q, B)
h = Segment(A, H)
q = Segment(Q, M)
r = Segment(P, O)
s = Segment(Q, O)