X1 = Point(xAxis)
y1 = 4
a = OrthogonalLine(X1, xAxis)
X2 = Point(xAxis)
b = OrthogonalLine(X2, xAxis)
X3 = Point(xAxis)
s3 = OrthogonalLine(X3, xAxis)
X4 = Point(xAxis)
s4 = OrthogonalLine(X4, xAxis)
X5 = Point(xAxis)
s5 = OrthogonalLine(X5, xAxis)
P1 = Point(a)
P2 = Point(b)
P3 = Point(s3)
P4 = Point(s4)
P5 = Point(s5)
M1: (0.5 * (X1 + X2))
M2: (0.5 * (X3 + X2))
M3: (0.5 * (X3 + X4))
M4: (0.5 * (X5 + X4))
M0 = Mirror(M1, X1)
M5 = Mirror(M4, X5)
m5 = OrthogonalLine(M5, xAxis)
m0 = OrthogonalLine(M0, xAxis)
R0 = Point(m0)
m2 = OrthogonalLine(M2, xAxis)
m3 = OrthogonalLine(M3, xAxis)
m4 = OrthogonalLine(M4, xAxis)
int1 = Segment(P1, P2)
int2 = Segment(P2, P3)
int3 = Segment(P3, P4)
int4 = Segment(P4, P5)
p = OrthogonalLine(M5, xAxis)
L5 = Point(p)
m1 = OrthogonalLine(M1, xAxis)
r = Line(R0, P1)
L1 = Intersect(r, m1)
g5 = Line(L5, P5)
R4 = Intersect(m4, g5)
sr = Segment(R0, L1)
a_1 = Segment(R4, L5)
b_1, c_1 = AngularBisector(sr, int1)
d_1, e_1 = AngularBisector(int2, int1)
t3, g_1 = AngularBisector(int2, int3)
t4, i_1 = AngularBisector(int3, int4)
S1 = (11.00870255346569, 8.48342913279637)
S2 = (14.432608446239373, 8.405613089778786)
l_1 = Segment(S1, S2)
T = Point(l_1)
R1 = Intersect(d_1, m1)
L2 = Intersect(Line[R1, P2], m2)
c = Segment(R1, L2)
R2 = Intersect(t3, m2)
L3 = Intersect(t3, m3)
d = Segment(R2, L3)
L4 = Intersect(t4, m4)
R3 = Intersect(t4, m3)
e = Segment(R3, L4)
z1 = Segment(S1, T)
z2 = Segment(S1, S2)
f: z1 / z2
t: z1 / z2
K1: (P1 * (1 - t)^(3)) + (((L1 * 3) * (1 - t)^(2)) * t) + (((R1 * 3) * (1 - t)) * t^(2)) + (P2 * t^(3))
K3: (P3 * (1 - t)^(3)) + (((L3 * 3) * (1 - t)^(2)) * t) + (((R3 * 3) * (1 - t)) * t^(2)) + (P4 * t^(3))
K4: (P4 * (1 - t)^(3)) + (((L4 * 3) * (1 - t)^(2)) * t) + (((R4 * 3) * (1 - t)) * t^(2)) + (P5 * t^(3))
Ortslinie1 = Locus(K1, T)
K2: (P2 * (1 - t)^(3)) + (((L2 * 3) * (1 - t)^(2)) * t) + (((R2 * 3) * (1 - t)) * t^(2)) + (P3 * t^(3))
Ortslinie2 = Locus(K2, T)
Ortslinie3 = Locus(K3, T)
Ortslinie4 = Locus(K4, T)