直行座標 (x,  y)で表された方程式 を極方程式 r(t) 、媒介変数表示  (x(t),   y(t)) で表す（安直な）方法
 1.  x=r Cos[t],  y=r Sin[t] とおく。
 2.  r について解く。解 r(t) が極方程式
 3. x(t)=r(t) Cos[t],  y(t)=r(t) Sin[t] が極方程式

polar[f_]:=Module[{f1,sol,sol1},
f1=f/.{x->r Cos[t],y->r Sin[t]};
sol=Solve[f1==0,r];
sol[[1]][[1]][[2]]
](*極方程式　sol[[2]][[1]][[2]]でもOK*)

parametric[f_]:=Module[{polar1},
polar1=polar[f];
{polar1 Cos[t],polar1 Sin[t]}
](*媒介変数表示　(x(t),  y(t)) *)

f=64 (x^2)-200 x y+64 (y^2)+292 x-364 y-59

polar[f]

PolarPlot[%,{t,0,2 Pi}]

parametric[f]

ParametricPlot[%,{t,0,2 Pi}]

g=9(x^2)+16 (y^2)-2 x y+60 x-80 y-5

polar[g]

PolarPlot[%,{t,0,2 Pi}]

parametric[g]

ParametricPlot[%,{t,0,2 Pi}]