> restart:with(plots):

> n:=15:

> display([plot([0.5*cos,0.5*sin,0..Pi/2],color=blue),plot([cos(t)**3,sin(t)**3,t=0..Pi/2],color=red,linestyle=24),display([seq(plot([[[0,0],[0.5*abs(cos(k*Pi/2/n)),0.5*sin(k*Pi/2/n)],[abs(cos(k*Pi/2/n)),0]],[[0.5*abs(cos(k*Pi/2/n)),0.5*sin(k*Pi/2/n)],[0,sin(k*Pi/2/n)]]],color=[black,black],linestyle=[24,0]),k=0..2*n)],insequence=true,scaling=constrained,tickmarks=[0,0],view=[0..1,0..1])]);