Draw 20 concentric circles as thus:

> restart;

> x:=cos(t);

> y:=sin(t);

> m:=[r*cos(t),r*sin(t),t=0..2*Pi];

> r:=k*0.01;

> plot([m$k=1..20],color=red,scaling=constrained,axes=none);

>