> with(plots):

> p1:=polarplot(7+4*sin(3*theta),theta=0..2*Pi/5,color=black,scaling=constrained):

> p2:=polarplot(7+4*sin(3*theta),theta=3*Pi/5..Pi,color=black,scaling=constrained):

> p3:=polarplot(-7+3*sin(7*theta),theta=0..Pi/3,color=black,scaling=constrained):

> p4:=polarplot(-7+3*sin(7*theta),theta=2*Pi/3..Pi,color=black,scaling=constrained):

> p5:=plot([-2.2*cos(t),5*sin(t),t=4*Pi/7..18*Pi/7],color=brown):

> p6:=plot([1.5*cos(t),1.5*sin(t)+6.5,t=0..2*Pi],color=gold):

> p7:=plot([.25*cos(t)+.75,.25*sin(t)+6.8,t=0..2*Pi],color=blue):

> p8:=plot([.25*cos(t)-.75,.25*sin(t)+6.8,t=0..2*Pi],color=blue):

> p9:=plot([.18*cos(t),.18*sin(t)+6.2,t=0..2*Pi],color=orange):

> p10:=plot([.1*t*cos(t)+1.5,.1*t*sin(t)+10,t=0..3*Pi],color=black):

> p11:=plot([0.68,t,t=8..10.1],color=black):

> p12:=plot([-.1*t*cos(t)-1.5,.1*t*sin(t)+10,t=0..3*Pi],color=black):

> p13:=plot([-0.68,t,t=8..10.1],color=black):

> p14:=plot([cos(t),sin(t)+6.45,t=7*Pi/6..11*Pi/6]):

> p15:=plot([4.5*cos(t),4.5*sin(t)-.5,t=4*Pi/10..6*Pi/10],color=gold):

> p16:=plot([4.5*cos(t),4.5*sin(t)-2,t=7*Pi/20..13*Pi/20],color=green):

> p17:=plot([4.5*cos(t),4.5*sin(t)-4,t=Pi/3..2*Pi/3],color=blue):

> p18:=plot([4.5*cos(t),4.5*sin(t)-6,t=7*Pi/20..13*Pi/20],color=red):

> p19:=plot([4.5*cos(t),4.5*sin(t)-8,t=4*Pi/10..6*Pi/10],color=yellow):

> p20:=plot([4*cos(t)-30,3*sin(t)+15,t=0..2*Pi],color=yellow,scaling=constrained):

> p21:=plot([-30,t,t=18..22],color=gold,scaling=constrained):

> p22:=plot([-30,t,t=8..12],color=gold,scaling=contrained):

> p23:=plot([t,15,t=-26..-22],color=gold,scaling=constrained):

> p24:=plot([t,15,t=-38..-34],color=gold,scaling=constrained):

> p25:=plot([t,-t-15,t=-27.5..-26],color=orange,scaling=constrained):

> p26:=plot([t,-t-15,t=-34..-32.5],color=orange,scaling=constrained):

> p27:=plot([t,t+45,t=-27.5..-26],color=orange,scaling=constrained):

> p28:=plot([t,t+45,t=-34..-32.5],color=orange,scaling=constrained):

> p29:=plot([4*sin(5*t)*cos(t)-22,4*sin(5*t)*sin(t)-8,t=Pi/30..5*Pi/30],color=pink):

> p30:=plot([4*sin(5*t)*cos(t)-22,4*sin(5*t)*sin(t)-8,t=13*Pi/30..17*Pi/30],color=pink):

> p31:=plot([4*sin(5*t)*cos(t)-22,4*sin(5*t)*sin(t)-8,t=25*Pi/30..29*Pi/30],color=pink):

> p32:=plot([4*sin(5*t)*cos(t)-22,4*sin(5*t)*sin(t)-8,t=37*Pi/30..41*Pi/30],color=pink):

> p33:=plot([4*sin(5*t)*cos(t)-22,4*sin(5*t)*sin(t)-8,t=49*Pi/30..53*Pi/30],color=pink):

> p34:=plot([-4*sin(5*t)*cos(t)-22,-4*sin(5*t)*sin(t)-8,t=7*Pi/30..11*Pi/30],color=blue):

> p35:=plot([-4*sin(5*t)*cos(t)-22,-4*sin(5*t)*sin(t)-8,t=19*Pi/30..23*Pi/30],color=blue):

> p36:=plot([-4*sin(5*t)*cos(t)-22,-4*sin(5*t)*sin(t)-8,t=31*Pi/30..35*Pi/30],color=blue):

> p37:=plot([-4*sin(5*t)*cos(t)-22,-4*sin(5*t)*sin(t)-8,t=43*Pi/30..47*Pi/30],color=blue):

> p38:=plot([-4*sin(5*t)*cos(t)-22,-4*sin(5*t)*sin(t)-8,t=55*Pi/30..59*Pi/30],color=blue):

> p39:=plot([2*cos(t)-22,2*sin(t)-8,t=0..2*Pi],color=black):

> p40:=plot([-22,t,t=-18..-12],color=green):

> p41:=plot([5*sin(2*t)*cos(t)-22,5*sin(2*t)*sin(t)-18,t=0..Pi/2],color=green):

> p42:=plot([5*sin(2*t)*cos(t)-22,5*sin(2*t)*sin(t)-18,t=3*Pi/2..2*Pi],color=green):

> p43:=plot([-2*sin(3*t)*cos(t)+6,2*sin(3*t)*sin(t)+4,t=0..2*Pi],color=pink):

> p44:=plot([-2*sin(3*t)*cos(t)-6,2*sin(3*t)*sin(t)+4,t=0..2*Pi],color=pink):

> p45:=plot([cos(t)+5,sin(t)-4,t=0..2*Pi],color=blue):

> p46:=plot([.5*cos(t)+5,.5*sin(t)-4,t=0..2*Pi],color=green):

> p47:=plot([cos(t)-5,sin(t)-4,t=0..2*Pi],color=blue):

> p48:=plot([.5*cos(t)-5,.5*sin(t)-4,t=0..2*Pi],color=green):

> p49:=plot([t+cos(t)+4,1-sin(t)+17,t=Pi/5..68*Pi/10],color=gray):

> p50:=plot([t+cos(t)+4,-(1-sin(t)-14),t=Pi/5..68*Pi/10],color=gray):

> p51:=plot([2.5*cos(t)+23,2.5*sin(t)+15.5,t=-Pi/3..Pi/3],color=gray):

> p52:=plot([2.5*cos(t)+7,2.5*sin(t)+15.5,t=2*Pi/3..4*Pi/3],color=gray):

> display(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20,p21,p22,p23,p24,p25,p26,p27,p28,p29,p30,p31,p32,p33,p34,p35,p36,p37,p38,p39,p40,p41,p42,p43,p44,p45,p46,p47,p48,p49,p50,p51,p52);

>

>