Parallel-Kurve

variiere b und c so, 
dass der Rand 80 wird

Ha 2016

f(x) = 15 - (15 / 100 * x^(2))
A = Point(f)
g = Tangent(A, f)
h = OrthogonalLine(A, g)
r = 2.25 (slider from 0 to 5, step 0.01)
kr = Circle(A, r)
P, C = Intersect(kr, h)
Ortslinie1 = Locus(P, A)
a = false
b = 1 (slider from -5 to 5, step 0.1)
c = 5 (slider from 0 to 8, step 0.1)
B_1: (-10 + b, 0)
B_2: (10 - b, 0)
B_3: (0, 15 - c)
p = Polynomial({B_1, B_2, B_3})
d = Integral(f, -10, 10)
e = Integral(p, -10 + b, 10 - b)
i: d - e
Text1: "Rand=" + d + "-" + e + "=" + i + ""
j = Segment(P, A)