Date: 22 März 2013

Alle Angaben in m.

Größe = 1.53 (slider from 0 to 2.1, step 0.01)
A = (0, 0)
B = Point(Circle[A, Größe])
a = Segment(A, B)
C = (0.7816091954022988, 0.008488983082645176)
b = Line(C, a)
Entfernung = 2.7 (slider from 0.9 to 5, step 0.1)
D = Point(Circle[C, Entfernung])
c = Segment(C, D)
Spiegelachse = Line(D, b)
b' = Mirror(b, Spiegelachse)
Bild1' = Mirror(Bild1, Spiegelachse)
E = Point(Circle[C, Größe])
d = Segment(C, E)
Abstand = 0.15 (slider from 0 to 0.2, step 0.01)
F = Point(Circle[E, Abstand])
e = Segment(E, F)
E' = Mirror(E, Spiegelachse)
C' = Mirror(C, Spiegelachse)
f = Segment(F, E')
g = Segment(F, C')
C'_1 = Mirror(C, Spiegelachse)
E'_1 = Mirror(E, Spiegelachse)
d' = Segment(C'_1, E'_1)
G = Intersect(Spiegelachse, f)
H = Intersect(g, Spiegelachse)
abstandGH = Distance(G, H)
Spiegel = Segment(G, H)
TextGH: "Spiegellänge=  " + (LaTeX[abstandGH]) + ""
C'_2 = Mirror(C, Spiegelachse)
D' = Mirror(D, Spiegelachse)
c' = Segment(C'_2, D')
I = Intersect(f, g)
J = (6.103448275862072, 1.5704618702893576)