h = 1 (slider from 0 to 10, step 1)
F = (0, 0)
p = 1.56 (slider from 0 to 1.8, step 0.01)
A1: (0.0, p)
a = Line(A1, F)
B1 = OrthogonalLine(A1, a)
M: (-(15.0), p)
E1 = AngularBisector(A1, M, F)
F1 = OrthogonalLine(M, E1)
A2: A1 + (0.0, p)
B2 = OrthogonalLine(A2, a)
C2 = Intersect(F1, B2)
D2 = Ray(C2, F)
G1 = OrthogonalLine(F, F1)
H1 = Intersect(B1, G1)
D1 = Ray(M, F)
E2 = AngularBisector(A2, C2, F)
F2 = OrthogonalLine(C2, E2)
A3: A2 + (0.0, p)
B3 = OrthogonalLine(A3, a)
C3 = Intersect(F2, B3)
D3 = Ray(C3, F)
E3 = AngularBisector(A3, C3, F)
F3 = OrthogonalLine(C3, E3)
A4: A3 + (0.0, p)
B4 = OrthogonalLine(A4, a)
C4 = Intersect(F3, B4)
D4 = Ray(C4, F)
E4 = AngularBisector(A4, C4, F)
F4 = OrthogonalLine(C4, E4)
A5: A4 + (0.0, p)
B5 = OrthogonalLine(A5, a)
C5 = Intersect(F4, B5)
D5 = Ray(C5, F)
E5 = AngularBisector(A5, C5, F)
F5 = OrthogonalLine(C5, E5)
A6: A5 + (0.0, p)
B6 = OrthogonalLine(A6, a)
C6 = Intersect(F5, B6)
D6 = Ray(C6, F)
E6 = AngularBisector(A6, C6, F)
F6 = OrthogonalLine(C6, E6)
A7: A6 + (0.0, p)
B7 = OrthogonalLine(A7, a)
C7 = Intersect(F6, B7)
D7 = Ray(C7, F)
E7 = AngularBisector(A7, C7, F)
F7 = OrthogonalLine(C7, E7)
A8: A7 + (0.0, p)
B8 = OrthogonalLine(A8, a)
C8 = Intersect(F7, B8)
D8 = Ray(C8, F)
E8 = AngularBisector(A8, C8, F)
F8 = OrthogonalLine(C8, E8)
A9: A8 + (0.0, p)
B9 = OrthogonalLine(A9, a)
C9 = Intersect(F8, B9)
D9 = Ray(C9, F)
E9 = AngularBisector(A9, C9, F)
F9 = OrthogonalLine(C9, E9)
A10: A9 + (0.0, p)
B10 = OrthogonalLine(A10, a)
C10 = Intersect(F9, B10)
D10 = Ray(C10, F)
E10 = AngularBisector(A10, C10, F)
F10 = OrthogonalLine(C10, E10)
A11: A10 + (0.0, p)
B11 = OrthogonalLine(A11, a)
C11 = Intersect(F10, B11)
D11 = Ray(C11, F)
E11 = AngularBisector(A11, C11, F)
F11 = OrthogonalLine(C11, E11)
A12: A11 + (0.0, p)
B12 = OrthogonalLine(A12, a)
C12 = Intersect(F11, B12)
D12 = Ray(C12, F)
E12 = AngularBisector(A12, C12, F)
F12 = OrthogonalLine(C12, E12)
A13: A12 + (0.0, p)
B13 = OrthogonalLine(A13, a)
C13 = Intersect(F12, B13)
D13 = Ray(C13, F)
E13 = AngularBisector(A13, C13, F)
F13 = OrthogonalLine(C13, E13)
A14: A13 + (0.0, p)
B14 = OrthogonalLine(A14, a)
C14 = Intersect(F13, B14)
D14 = Ray(C14, F)
E14 = AngularBisector(A14, C14, F)
F14 = OrthogonalLine(C14, E14)
A15: A14 + (0.0, p)
B15 = OrthogonalLine(A15, a)
C15 = Intersect(F14, B15)
D15 = Ray(C15, F)
E15 = AngularBisector(A15, C15, F)
F15 = OrthogonalLine(C15, E15)
A16: A15 + (0.0, p)
B16 = OrthogonalLine(A16, a)
C16 = Intersect(F15, B16)
D16 = Ray(C16, F)
E16 = AngularBisector(A16, C16, F)
F16 = OrthogonalLine(C16, E16)
A17: A16 + (0.0, p)
B17 = OrthogonalLine(A17, a)
C17 = Intersect(F16, B17)
D17 = Ray(C17, F)
E17 = AngularBisector(A17, C17, F)
F17 = OrthogonalLine(C17, E17)
G2 = OrthogonalLine(F, F2)
G3 = OrthogonalLine(F, F3)
G4 = OrthogonalLine(F, F4)
G5 = OrthogonalLine(F, F5)
G6 = OrthogonalLine(F, F6)
G7 = OrthogonalLine(F, F7)
G8 = OrthogonalLine(F, F8)
G9 = OrthogonalLine(F, F9)
G10 = OrthogonalLine(F, F10)
G11 = OrthogonalLine(F, F11)
G12 = OrthogonalLine(F, F12)
G13 = OrthogonalLine(F, F13)
G14 = OrthogonalLine(F, F14)
G15 = OrthogonalLine(F, F15)
G16 = OrthogonalLine(F, F16)
G17 = OrthogonalLine(F, F17)
H2 = Intersect(B2, G2)
H3 = Intersect(B3, G3)
H4 = Intersect(B4, G4)
H5 = Intersect(B5, G5)
H6 = Intersect(B6, G6)
H7 = Intersect(B7, G7)
H8 = Intersect(B8, G8)
H9 = Intersect(B9, G9)
H10 = Intersect(B10, G10)
H11 = Intersect(B11, G11)
H12 = Intersect(B12, G12)
H13 = Intersect(B13, G13)
H14 = Intersect(B14, G14)
H15 = Intersect(B15, G15)
H16 = Intersect(B16, G16)
H17 = Intersect(B17, G17)
I2 = Ray(C2, A2)
I3 = Ray(C3, A3)
I4 = Ray(C4, A4)
I5 = Ray(C5, A5)
I6 = Ray(C6, A6)
I7 = Ray(C7, A7)
I8 = Ray(C8, A8)
I9 = Ray(C9, A9)
I10 = Ray(C10, A10)
I11 = Ray(C11, A11)
I12 = Ray(C12, A12)
I13 = Ray(C13, A13)
I14 = Ray(C14, A14)
I15 = Ray(C15, A15)
I16 = Ray(C16, A16)
I17 = Ray(C17, A17)
I1 = Line(M, A1)
b = OrthogonalLine(H1, I1)
c = Parabola(F, b)
d = Line(H2, H1)
e = Parabola(F, d)