Solve[D[9/x^2 + 1/(x-D)^2, x] == 0, x]