> with(plots);

> p1:=polarplot(cos(theta),theta=-2..2,color=black):

> p2:=polarplot(-cos(theta),theta=-2..2,color=black):

> p3:=plot([.3*sin(10000*theta)*cos(10000*theta)+.5,.3*sin(10000*theta)^2-.1,theta=0..2*Pi],color=black):

> p4:=plot([.3*sin(10000*theta)*cos(10000*theta)-.5,.3*sin(10000*theta)^2-.1,theta=0..2*Pi],color=black):

> p5:=polarplot(5*cos(.5*theta),theta=-3*Pi/2..-2*Pi/4,color=tan,scaling=constrained):

> p6:=plot([-7.95*sin(t)+6.98,-1.2*cos(t)-1.5,t=1.07..1.5],color=tan):

> p7:=plot([8*sin(t)-7,-1.2*cos(t)-1.5,t=1.07..1.5],color=tan):

> p8:=plot([-7.95*sin(t)+7.13,-3*cos(t)-1.54,t=1.161..1.5],color=magenta):

> p9:=plot([8*sin(t)-7.15,-3*cos(t)-1.54,t=1.161..1.5],color=magenta):

> p10:=plot([-.35*cos(theta)+.01,-.35*sin(theta)-2.43,theta=Pi/3..2*Pi/3],color=magenta):

> p11:=plot([-.35*cos(theta)+.01,-.35*sin(theta)-1.97,theta=0..Pi],color=magenta):

> p12:=plot([t,2*t-1.6,t=-2.35..-.71],color=red,scaling=constrained):

> p13:=plot([t,-3*t,t=.92..2.14],color=red,scaling=constrained):

> p14:=plot([t,.1*t^2-6.8,t=-2.35..2.15],color=red,scaling=constrained,thickness=2):

> p15:=plot([t,.1*t^2-7.2,t=-2.45..2.25],color=red,scaling=constrained,thickness=2):

> p16:=plot([.24*cos(t)-2.3, .24*sin(t)-6.4, t = Pi/2 .. 3*Pi/2],view=[-6..6,-10..5],color = red,scaling = constrained,thickness=2):

> p17:=plot([.24*cos(t)+2.1, .24*sin(t)-6.5, t = 3*Pi/2..5*Pi/2],view=[-3..3,-10..2],color = red,scaling = constrained,thickness=2):

> p18 := plot([cos(theta)-1.7*sin(30*theta)*cos(theta)-1.3,sin(theta)-1.7*sin(theta)*sin(30*theta)+.89, theta=Pi/4..5*Pi/4], color=red, scaling=constrained,thickness=1):

> p19 := plot([cos(theta)-1.7*sin(50*theta)*cos(theta)-1.3,sin(theta)-1.7*sin(theta)*sin(50*theta)+.89, theta=Pi/4..5*Pi/4], color=yellow, scaling=constrained,thickness=1):

> p20 := plot([cos(theta)-1.7*sin(20*theta)*cos(theta)-1.3,sin(theta)-1.7*sin(theta)*sin(20*theta)+.89, theta=Pi/4..5*Pi/4], color=magenta, scaling=constrained,thickness=1):

> p21 := plot([cos(theta)-1.7*sin(30*theta)*cos(theta)+1.3,sin(theta)-1.7*sin(theta)*sin(30*theta)+.89, theta=7*Pi/4..11*Pi/4], color=red, scaling=constrained):

> p22 := plot([cos(theta)-1.7*sin(50*theta)*cos(theta)+1.3,sin(theta)-1.7*sin(theta)*sin(50*theta)+.89, theta=7*Pi/4..11*Pi/4], color=yellow, scaling=constrained):

> p23 := plot([cos(theta)-1.7*sin(20*theta)*cos(theta)+1.3,sin(theta)-1.7*sin(theta)*sin(20*theta)+.89, theta=7*Pi/4..11*Pi/4], color=magenta, scaling=constrained):

> p24:=plot([t,1.8*t-5.3,t=-1.8..-1],color=tan,scaling=constrained):

> p25:=plot([t,4.5*t-.48,t=-2.4..-1.8],color=tan,scaling=constrained):

> p26:=plot([t,1.8*t-6.6,t=-1.2..-.3],color=tan,scaling=constrained):

> p27:=plot([t,7*t-.23,t=-1.6..-1.2],color=tan,scaling=constrained,view=[-6..6,-12..5]):

> p28:=plot([t,-1.8*t-5.3,t=1..1.8],color=tan,scaling=constrained):

> p29:=plot([t,-1.8*t-6.6,t=.3..1.2],color=tan,scaling=constrained):

> p30:=plot([t,-4.5*t-.45,t=1.8..2.4],color=tan,scaling=constrained):

> p31:=plot([t,-7*t-.23,t=1.2..1.6],color=tan,scaling=constrained,view=[-6..6,-12..5]):

> p32:=plot([.1*cos(t)-2.5, .15*sin(t)-11.2, t = 0 .. 2*Pi],view=[-6..6,-12..5],color = tan,scaling = constrained):

> p33:=plot([.2*cos(t)-2.2, .25*sin(t)-11.2, t = 0 .. 2*Pi],view=[-6..6,-12..5],color = tan,scaling = constrained):

> p34:=plot([.25*cos(t)-1.9, .3*sin(t)-11.2, t = 0 .. 2*Pi],view=[-6..6,-12..5],color = tan,scaling = constrained):

> p35:=plot([.3*cos(t)-1.5, .35*sin(t)-11.2, t = 0 .. 2*Pi],view=[-6..6,-12..5],color = tan,scaling = constrained):

> p36:=plot([.1*cos(t)+2.5, .15*sin(t)-11.2, t = 0 .. 2*Pi],view=[-6..6,-12..5],color = tan,scaling = constrained):

> p37:=plot([.2*cos(t)+2.2, .25*sin(t)-11.2, t = 0 .. 2*Pi],view=[-6..6,-12..5],color = tan,scaling = constrained):

> p38:=plot([.25*cos(t)+1.9, .3*sin(t)-11.2, t = 0 .. 2*Pi],view=[-6..6,-12..5],color = tan,scaling = constrained):

> p39:=plot([.3*cos(t)+1.5, .35*sin(t)-11.2, t = 0 .. 2*Pi],view=[-6..6,-12..5],color = tan,scaling = constrained):

> p40:=plot([t,-.5*t-4,t=-4..-.9],color=red,scaling=constrained):

> p41:=plot([t,-.5*t-4.7,t=-4..-1.2],color=red,scaling=constrained):

> p42:=plot([.4*cos(t)-4, .5*sin(t)-2.4, t = 7*Pi/6 .. 13*Pi/6],view=[-6..6,-10..5],color = red,scaling = constrained,thickness=2):

> p43:=plot([.7*cos(t)-4, .8*sin(t)-2.4, t = 7*Pi/6 .. 18*Pi/8],view=[-6..6,-10..5],color = red,scaling = constrained,thickness=2):

> p44:=plot([.4*cos(t)-4.35, .2*sin(t)-2.55, t = 0 .. 2*Pi],view=[-6..6,-10..5],color = tan,scaling = constrained):

> p45:=plot([.4*cos(t)-4.5, .25*sin(t)-2.2, t = 0 .. 2*Pi],view=[-6..6,-10..5],color = tan,scaling = constrained):

> p46:=plot([.4*cos(t)-4.5, .3*sin(t)-1.7, t = 0 .. 2*Pi],view=[-6..6,-10..5],color = tan,scaling = constrained):

> p47:=plot([.34*cos(t)-3.8, .59*sin(t)-1.5, t = 0 .. 2*Pi],view=[-6..6,-10..5],color = tan,scaling = constrained):

> p48:=plot([t,.4*t-4.3,t=1.2..2.6],color=red,scaling=constrained):

> p49:=plot([t,.4*t-4.9,t=1.5..3],color=red,scaling=constrained):

> p50:=plot([t,2*t-8.4,t=2.6..3.3],color=red,scaling=constrained):

> p51:=plot([t,2*t-9.7,t=3..4],color=red,scaling=constrained):

> p52:=plot([.5*cos(t)+3.5, .4*sin(t)-1.8, t = Pi..2*Pi],view=[-6..6,-10..5],color = red,scaling = constrained,thickness=2):

> p53:=plot([.8*cos(t)+3.5, .7*sin(t)-1.8, t = 8*Pi/9..2*Pi],view=[-6..6,-10..5],color = red,scaling = constrained,thickness=2):

> p54:=plot([.34*cos(t)+3, .59*sin(t)-1.2, t = 0 .. 2*Pi],view=[-6..6,-10..5],color = tan,scaling = constrained):

> p55:=plot([.3*cos(t)+3.5, .6*sin(t)-.98, t = 0 .. 2*Pi],view=[-6..6,-10..5],color = tan,scaling = constrained):

> p56:=plot([.3*cos(t)+4, .58*sin(t)-.93, t = 0 .. 2*Pi],view=[-6..6,-10..5],color = tan,scaling = constrained):

> p57:=plot([.2*cos(t)+4.4, .4*sin(t)-1.4, t = 0 .. 2*Pi],view=[-6..6,-10..5],color = tan,scaling = constrained):

> 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,p53,p54,p55,p56,p57);

>