a

Das parallele Strahlenbündel wird am Parabolspiegel reflektiert.

μ = 0 (slider from -0.5 to 0.5, step 0.01)
x_0 = 0 (slider from -1 to 1, step 0.1)
aa = 0.03 (slider from -0.05 to 0.2, step 0.01)
gl2: (μ * y) + x = -8
gl3: (μ * y) + x = -7
gl4: (μ * y) + x = -6
gl5: (μ * y) + x = -5
gl6: (μ * y) + x = -4
gl7: (μ * y) + x = -3
gl8: (μ * y) + x = -2
gl9: (μ * y) + x = -1
gl10: (μ * y) + x = 0
gl11: (μ * y) + x = 1
gl12: (μ * y) + x = 2
gl13: (μ * y) + x = 3
gl14: (μ * y) + x = 4
gl15: (μ * y) + x = 5
gl16: (μ * y) + x = 6
gl17: (μ * y) + x = 7
gl18: (μ * y) + x = 8
gl19: (μ * y) + x = 9
g: y = 17
gl1: (μ * y) + x = -9
A = Intersect(gl1, g)
B = Intersect(g, gl2)
C = Intersect(gl3, g)
D = Intersect(gl4, g)
E = Intersect(gl5, g)
F_{2} = Intersect(gl6, g)
G = Intersect(gl7, g)
H = Intersect(gl8, g)
I = Intersect(gl9, g)
J = Intersect(gl10, g)
K = Intersect(gl11, g)
L = Intersect(gl12, g)
M = Intersect(gl13, g)
N = Intersect(gl14, g)
O = Intersect(gl15, g)
P = Intersect(gl16, g)
Q = Intersect(gl17, g)
R = Intersect(g, gl18)
S = Intersect(gl19, g)
f(x) = If[-10 ≤ x - x_0 ≤ 10, (aa * (x - x_0)^(2))]
T = Intersect(f, gl1, (-9, 2.4299999999999997))
U = Intersect(f, gl2, (-8, 1.92))
V = Intersect(f, gl3, (-7, 1.47))
W = Intersect(f, gl4, (-6, 1.08))
Z = Intersect(f, gl5, (-5, 0.75))
A_1 = Intersect(f, gl6, (-4, 0.48))
B_1 = Intersect(f, gl7, (-3, 0.27))
C_1 = Intersect(f, gl8, (-2, 0.12))
D_1 = Intersect(f, gl9, (-1, 0.03))
E_1 = Intersect(f, gl10, (0, 0))
F_1 = Intersect(f, gl11, (1, 0.03))
G_1 = Intersect(f, gl12, (2, 0.12))
H_1 = Intersect(f, gl13, (3, 0.27))
I_1 = Intersect(f, gl14, (4, 0.48))
J_1 = Intersect(f, gl15, (5, 0.75))
K_1 = Intersect(f, gl16, (6, 1.08))
L_1 = Intersect(f, gl17, (7, 1.47))
M_1 = Intersect(f, gl18, (8, 1.92))
N_1 = Intersect(f, gl19, (9, 2.4299999999999997))
h = Segment(A, T)
i = Segment(B, U)
j = Segment(C, V)
k = Segment(D, W)
l = Segment(E, Z)
m = Segment(F_{2}, A_1)
n = Segment(G, B_1)
p = Segment(H, C_1)
q = Segment(I, D_1)
r = Segment(J, E_1)
s = Segment(K, F_1)
t = Segment(L, G_1)
a = Segment(M, H_1)
b = Segment(N, I_1)
c = Segment(O, J_1)
d = Segment(P, K_1)
e = Segment(Q, L_1)
f_1 = Segment(R, M_1)
g_1 = Segment(S, N_1)
h_1 = Tangent(T, f)
i_1 = Tangent(U, f)
j_1 = Tangent(V, f)
k_1 = Tangent(W, f)
l_1 = Tangent(Z, f)
m_1 = Tangent(A_1, f)
n_1 = Tangent(B_1, f)
p_1 = Tangent(C_1, f)
q_1 = Tangent(D_1, f)
r_1 = Tangent(E_1, f)
s_1 = Tangent(F_1, f)
t_1 = Tangent(G_1, f)
a_1 = Tangent(H_1, f)
b_1 = Tangent(I_1, f)
c_1 = Tangent(J_1, f)
d_1 = Tangent(K_1, f)
e_1 = Tangent(H_1, f)
g_2 = Tangent(L_1, f)
h_2 = Tangent(M_1, f)
i_2 = Tangent(N_1, f)
f_2 = OrthogonalLine(T, h_1)
j_2 = OrthogonalLine(U, i_1)
k_2 = OrthogonalLine(V, j_1)
l_2 = OrthogonalLine(W, k_1)
m_2 = OrthogonalLine(Z, l_1)
n_2 = OrthogonalLine(A_1, m_1)
p_2 = OrthogonalLine(B_1, n_1)
q_2 = OrthogonalLine(C_1, p_1)
r_2 = OrthogonalLine(D_1, q_1)
s_2 = OrthogonalLine(E_1, r_1)
t_2 = OrthogonalLine(F_1, s_1)
a_2 = OrthogonalLine(G_1, t_1)
b_2 = OrthogonalLine(H_1, e_1)
e_2 = OrthogonalLine(J_1, c_1)
c_2 = OrthogonalLine(N_1, i_2)
d_2 = OrthogonalLine(M_1, h_2)
f_3 = OrthogonalLine(K_1, d_1)
g_3 = OrthogonalLine(L_1, g_2)
h_3 = OrthogonalLine(I_1, b_1)
A' = Mirror(A, f_2)
T' = Mirror(T, f_2)
h' = Segment(A', T')
B' = Mirror(B, j_2)
U' = Mirror(U, j_2)
i' = Segment(B', U')
C' = Mirror(C, k_2)
V' = Mirror(V, k_2)
j' = Segment(C', V')
D' = Mirror(D, l_2)
W' = Mirror(W, l_2)
k' = Segment(D', W')
E' = Mirror(E, m_2)
Z' = Mirror(Z, m_2)
l' = Segment(E', Z')
F' = Mirror(F_{2}, n_2)
O_1 = Mirror(A_1, n_2)
m' = Segment(F', O_1)
G' = Mirror(G, p_2)
P_1 = Mirror(B_1, p_2)
n' = Segment(G', P_1)
H' = Mirror(H, q_2)
Q_1 = Mirror(C_1, q_2)
p' = Segment(H', Q_1)
I' = Mirror(I, r_2)
R_1 = Mirror(D_1, r_2)
q' = Segment(I', R_1)
K' = Mirror(K, t_2)
S_1 = Mirror(F_1, t_2)
s' = Segment(K', S_1)
L' = Mirror(L, a_2)
T_1 = Mirror(G_1, a_2)
t' = Segment(L', T_1)
M' = Mirror(M, b_2)
U_1 = Mirror(H_1, b_2)
a' = Segment(M', U_1)
N' = Mirror(N, h_3)
V_1 = Mirror(I_1, h_3)
b' = Segment(N', V_1)
O' = Mirror(O, e_2)
W_1 = Mirror(J_1, e_2)
c' = Segment(O', W_1)
P' = Mirror(P, f_3)
Z_1 = Mirror(K_1, f_3)
d' = Segment(P', Z_1)
Q' = Mirror(Q, g_3)
A_2 = Mirror(L_1, g_3)
e' = Segment(Q', A_2)
R' = Mirror(R, d_2)
B_2 = Mirror(M_1, d_2)
i_3 = Segment(R', B_2)
S' = Mirror(S, c_2)
C_2 = Mirror(N_1, c_2)
j_3 = Segment(S', C_2)
J' = Mirror(J, s_2)
D_2 = Mirror(E_1, s_2)
r' = Segment(J', D_2)
F = Intersect(q', s')