• r:=phi->phi*cos(phi)

• archi:=plot::polar([r(phi),phi],phi=[0.01,20],
  LineWidth=20, Grid=[400]); 
  plot(archi, Scaling=Constrained);