F=52x^2-72x*y+73y^2-280x+290y+325

ContourPlot[F==0, {x, -4,4}, {y, -4, 4}]

G=F/.{x->(a*X-b*Y+p), y->b*X+a*Y+q}

G=Expand[G]