Обновлён. Мелкие улучшения.

a := plot(`in`, x=0..2*Pi, coords=polar,
scaling=constrained, style=line, color=blue, axes=normal):

b := coordplot(polar,[0..3/2,0..2*Pi],labelling=false,
linestyle=[7,4], color=[gray,gray]):

display([a,b]);