Parabolspiegel
Author: Gerald Obermaier

Strahlen ein/aus

A_1 = (-1.912363155310938, 1.9401283494735893)
B = (4.08763684468907, 1.9401283494735893)
a = Line(A_1, B)
l = OrthogonalLine(A_1, a)
p = 3.5 (slider from 0.5 to 5, step 0.1)
F = Point(Circle[A_1, p])
c = Segment(A_1, F)
par = Parabola(F, l)
A = Intersect(par, a)
C = (3.26, 9.419999999999998)
D = (6.859999999999996, 9.419999999999998)
Quelle = Point(a)
e = OrthogonalLine(Quelle, a)
j = Line(C, D)
H = (-0.86, -7.8)
J = (0.2, -7.8)
b = Line(H, J)
I = Intersect(l, j)
K = Intersect(l, a)
L = Intersect(l, b)
f = Segment(I, K)
g = Segment(K, L)
S_1 = Point(f)
S_2 = Point(g)
h = Line(S_1, a)
i = Line(S_2, l)
k = Line(S_2, a)
P_1 = Intersect(par, h)
P_2 = Intersect(par, k)
Qu_1 = Intersect(e, h)
Qu_2 = Intersect(e, k)
Strahl_2 = Segment(Qu_2, P_2)
n = Segment(P_2, F)
q = Segment(F, P_1)
Strahl_1 = Segment(P_1, Qu_1)
s = Tangent(P_1, par)
t = Tangent(P_2, par)
O = Intersect(s, a)
P = Intersect(s, j)
R = Intersect(t, a)
S = Intersect(t, b)
α = Angle(S, P_2, Qu_2)
β = Angle(F, P_2, R)
γ = Angle(O, P_1, F)
δ = Angle(Qu_1, P_1, P)
d = Segment(F, Quelle)
m = false