b = 2 (slider from 1 to 5, step 0.1)
a = 1 (slider from 1 to 5, step 0.1)
f(x) = a * cos(x)
g(x) = b * sin(x) + b
p = 0.01
c = CurveCartesian(f(t), g(t), t, 0, 6.283185307179586)
A: (0, b - sqrt(b^(2) - a^(2)))
f_x = Derivative(f, x)
g_x = Derivative(g, x)
t = 8.22920367 (slider from -1.57079633 to 12.56637061, step 0.1)
P: (f(t), g(t))
B: P + (f_x(t), g_x(t))
C: (x(P) + 1, y(P))
α = Angle(B, P, C)
list1 = Sequence(Distance[(f(s), g(s)), (f(s + p), g(s + p))], s, -1.5707963267948966, t, p)
D: (Sum[list1], 0)
u = Vector(P, D)
c' = Translate(c, u)
A' = Translate(A, u)
c'' = Rotate(c', α, D)
A'' = Rotate(A', α, D)