Evolute der Ellipse
Author: Prof.  Dr. Dörte Haftendorn

Die Evolute ist keine symmetrische Astroide. Vermitlich ist diese in dem selben Verhältnis gestaucht wie die Ellipse.

Passe mit as und bas die verzerrten Astroide an die
Einhüllende der Normalen an.

T_e = (6.283185307179586, 4)
O_t = (0, 4)
d = Segment(O_t, T_e)
T = Point(d)
t = Segment(O_t, T)
as = 1.8
bas = 2.4
Q = Point(c)
a = Tangent(Q, c)
b = OrthogonalLine(Q, a)
yp: bas * sin(t)^(3.0)
xp: as * cos(t)^(3.0)
P: (xp, yp)
Ortslinie1 = Locus(P, T)
B = Intersect(yAxis, b)
e = Segment(Q, B)
O = Intersect(xAxis, yAxis)
C = Intersect(e, xAxis)
E = Intersect(e, yAxis)
g = Segment(E, C)
Text2: g + " = Länge BC"