O: (0, 0)
C = Root((8 * x^(3)) + (32 * x^(2)) + (49 * x) - 83)
c = Circle((0, 0), 1)
OP: acos(x(C))
P: (1; OP)
A = Point(c)
APO = Angle(A, P, O)
eq1: x = cos(Angle[P]) - 1
d = Parabola((0, 0), eq1)
θ: Angle[P] - (2 * atand((cos(Angle[P] - APO) - cos(APO)) / sin(APO)))
B: ((-1 + cos(Angle[P])) / (-1 + cos(θ)); θ)
M: (A + B) / 2
loc1 = Locus(M, A)