Ziehe r so, dass
der ganze Rand
80 ist, also
a=60

Parallel-Kurve

s=Näherungs-
Parabel

Ha 2016

al: 1
f(x) = (0.15 * ((-x^(2)) + 100))
Q = Point(f)
u: x(Q)
g = Tangent(Q, f)
A = Intersect(g, xAxis)
O = Intersect(xAxis, yAxis)
α = Angle(Q, A, O)
r = 2.35 (slider from 0 to 5, step 0.01)
xp: u - (r * sin(α))
yp: f(u) - (r * cos(α))
P: (xp, yp)
h = OrthogonalLine(Q, g)
i = OrthogonalLine(Q, xAxis)
j = OrthogonalLine(P, i)
c = Circle(Q, r)
Ortslinie1 = Locus(P, Q)
B = Point(Ortslinie1)
D = Point(Ortslinie1)
E = Point(Ortslinie1)
s = Polynomial({B, D, E})
F, G = Root(s)
a = Integral(s, 0, x(G))
s_1 = Mirror(s, yAxis)
C = Intersect(i, j)
Vieleck1, q, p, c_1 = Polygon(P, C, Q)