restart; with(plots):innen2:=plot({seq([t/100,phi,phi=0..2*Pi],t=1..50)},coords=polar,color=yellow):au\337en2:=plot({seq([1+0.5*sin(13*phi)-t/100*(sin(13*phi)+1),phi,phi=0..2*Pi],t=1..50)},coords=polar,color=red):stengel:=plot([x,x+0.2*(x+2)^2-4*0.2,x=-2..0],coords=cartesian,color=green,thickness=3):display(stengel,innen2,au\337en2,axes=none,scaling=constrained);