Konstruktion

Versiera 
und ihre Metamorphose 
zu ihrem erzeugenden Kreis

Bewege J 
mit dem Pfeiltasten
von D nach K 

=Ortskurve von P bgl. E

F = (-1.123602508152598, 1.64443999195621)
G = (3, 1)
D = (4, 2)
a: 2
K: (a, a)
p = PolyLine(D, G, F, K)
C: (a, (3 / 2 * a))
f: y = (2 * a)
A: (0, (2 * a))
B: ((2 / 3 * a), (2 * a))
M: (0, a)
Versiera = CurveCartesian((2 * (a * t)), (2 * a / (1 + t^(2))), t, -10, 10)
c = Circle(M, a)
E = Point(f)
F_{1} = Intersect(c, xAxis, 1)
g = Segment(F_{1}, E)
h = OrthogonalLine(E, xAxis)
O, H = Intersect(c, g)
i = OrthogonalLine(H, h)
j = Segment(A, B)
k = Segment(B, C)
l = Segment(C, D)
b0(t) = (1 - t)^(3)
b1(t) = ((3 * (1 - t)^(2)) * t)
b2(t) = ((3 * (1 - t)) * t^(2))
b3(t) = t^(3)
m = Segment(A, B)
n = Segment(C, K)
kreisPara = CurveCartesian((2 * ((a * t)) / (1 + t^(2))), (2 * a / (1 + t^(2))), t, -10, 10)
kreisV = CurveCartesian((x(A) * b0(t) / (1 + t^(2))) + (x(B) * b1(t) / (1 + t^(2))) + ((x(C) * 4 / 3) * b2(t) / (1 + t^(2))) + ((x(K) * 2) * b3(t) / (1 + t^(2))), (y(A) * b0(t) / (1 + t^(2))) + (y(B) * b1(t) / (1 + t^(2))) + ((y(C) * 4 / 3) * b2(t) / (1 + t^(2))) + ((y(K) * 2) * b3(t) / (1 + t^(2))), t, -13, 20)
J = Point(p)
meta = CurveCartesian((x(A) * b0(t) / (1 + t^(2))) + (x(B) * b1(t) / (1 + t^(2))) + ((x(C) * 4 / 3) * b2(t) / (1 + t^(2))) + ((x(J) * 2) * b3(t) / (1 + t^(2))), (y(A) * b0(t) / (1 + t^(2))) + (y(B) * b1(t) / (1 + t^(2))) + ((y(C) * 4 / 3) * b2(t) / (1 + t^(2))) + ((y(J) * 2) * b3(t) / (1 + t^(2))), t, -13, 20)
d = true
o = Segment(B, C)
I = (0.5387578990225442, -2.843531008591691)
N = (1.8583333902912518, -2.843531008591691)
P = Intersect(h, i)
d1, h_1, e, p_1 = Polygon(E, P, H)