Start

Reset

Flüstergewölbe - Einfache Simulation

IMP10

a = 3.5 (slider from -5 to 5)
b = 2.6 (slider from -5 to 5)
elli: x^(2) / a^(2) + y^(2) / b^(2) = 1
A, B = Focus(elli)
P = Point(elli)
t = Tangent(P, elli)
n = OrthogonalLine(P, t)
s = Ray(P, B)
P' = Mirror(P, n)
B' = Mirror(B, n)
s' = Ray(P', B')
C, D = Intersect(elli, s)
E, F = Intersect(elli, s')
f = Segment(P, F)
g = Segment(P, D)
anim = false