y'

f: y = ((3 / 16 * x^(2)) * (6 - x))
b: f(2)
r = 3
f'(x) = f'(x)
c: f'(2)
q = 2 (slider from -5 to 5, step 0.1)
Q: (q, f(q))
a: (x - q)^(2) + (y - f(q))^(2) = r^(2)
gl1: (f'(q) * (x - q)) = y - f(q)
g = OrthogonalLine(Q, gl1)
A, B = Intersect(a, g)
C, D = Intersect(a, gl1)
s = -5 (slider from -5 to 5, step 0.1)
f_1(x) = f'(x) + s
E = Intersect(f_1, yAxis)
h = OrthogonalLine(E, yAxis)
y' = Point(yAxis)
u = Vector(E, y')
S: (2, s)
i = OrthogonalLine(S, h)
d = CircleSector(Q, C, A)
e = CircleSector(Q, D, B)
k = CircleSector(Q, A, D)
p = CircleSector(Q, B, C)
j = Segment(A, B)
Ma: (4, 6)
Mi: (0, 0)
l = Line(Mi, Ma)
m = OrthogonalLine(Q, l)
n: 4 / 9
Q': (q, f_1(q))
t = Segment(Q, Q')
M: (0, n)
M_2: (4, 6 - n)
d_1 = Circle(M, n)
e_1 = Circle(M_2, n)