Mapleblume

>	restart; with(plots):

Warning, the name changecoords has been redefined

>	innen2:=plot({seq([t/100,phi,phi=0..2*Pi],t=1..50)}, coords=polar,color=yellow):

>	aussen2:=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,aussen2,axes=none,scaling=constrained);