r=c\,e^{a\, x}

Ha 2016

k = 1 (slider from -5 to 5, step 1)
a = 0.168 (slider from -5 to 5, step 0.01)
e = 14.5
A = Intersect(xAxis, yAxis)
d_1 = Circle(A, k)
c = -0.27 (slider from -5 to 5, step 0.01)
r(x) = (c * ℯ^((a * x)))
b = CurveCartesian((r(t) * cos(t)), (r(t) * sin(t)), t, 0, (6 * π))
b' = Mirror(b, d_1)
Text1: "r=" + (LaTeX[r]) + ""