f'

P

f'

f'

f(x) = (1 / 20 * x^(5)) - (1 / 3 * x^(3)) + 0.5
f1(x) = f'(x)
Q = Point(f1)
Pr: (x(Q), f(x(Q)))
c = Circle(Pr, 0.5)
g = Tangent(Pr, f)
gl1: x = -2
gl2: x = 0
gl3: x = 2
h0(x) = If[x < -2, f1(x)]
h1(x) = If[-2 < x < 0, f1(x)]
h2(x) = If[0 < x < 2, f1(x)]
h3(x) = If[2 < x, f1(x)]
A, B = Intersect(c, g)
hb = Segment(A, B)
hr = Segment(A, B)
hs = Segment(A, B)