> with(plots);

> p1:=plot((-t/10)+1,t=1..10,color=blue):

> p2:=plot((t/10)+1,t=-1..-10,color=blue):

> p3:=plot((t/10)-1,t=1..10,color=blue):

> p4:=plot((-t/10)-1,t=-1..-10,color=blue):

> p5:=plot((10*t)-10,t=0..(.91),color=blue):

> p6:=plot((-10*t)-10,t=-.91..0,color=blue):

> p7:=plot((10*t)+10,t=-.91..0,color=blue):

> p8:=plot((-10*t)+10,t=0..(.91),color=blue):

> p9:=polarplot(3+.125*sin(theta),theta=.2..1.38,color=red,scaling=constrained):

> p10:=plot((.75*t+1,t=1.9..4),color=blue):

> p11:=plot(((t-1)/.75,t=2.4..4),color=blue):

> p12:=plot((-(t-1)/.75,t=2.3..4),color=blue):

> p13:=plot((-.75*t-1,t=1.8..4),color=blue):

> p14:=plot((t+1,t=-4.3..-2.5),color=blue):

> p15:=plot((.56*t-1,t=-4.3..-2),color=blue):

> p16:=plot((-.7*t+1,t=-4.3..-2),color=blue):

> p17:=plot((-t-0.4,t=-4.3..-2.3),color=blue):

> p18:=plot((.1*t^2+1,t=-2.5..-.9),color=red):

> p19:=polarplot(3+.125*sin(theta),theta=-.2..-1.3,color=red,scaling=constrained):

> p20:=plot((.1*t^2+1,t=.9..2.6),color=red):

> p21:=plot((-.1*t^2-1,t=.9..2.6),color=red):

> p22:=plot((-.1*t^2-1,t=-2.5..-.9),color=red):

> p23:=polarplot((17*sin(theta)),theta=.89..1.57,color=blue):

> p24:=polarplot((17*sin(theta)),theta=1.57..2.95,color=blue):

> p25:=plot(10.3,t=5.2..8.4,color=blue):

> p26:=polarplot((13*sin(theta)),theta=1.1..1.57,color=blue):

> p27:=polarplot((13*sin(theta)),theta=1.57..2.9,color=blue):

> p28:=polarplot((-17*sin(theta)),theta=.89..1.57,color=blue):

> p29:=polarplot((-17*sin(theta)),theta=1.57..2.95,color=blue):

> p30:=polarplot((-13*sin(theta)),theta=1.1..1.57,color=blue):

> p31:=polarplot((-13*sin(theta)),theta=1.57..2.9,color=blue):

> p32:=plot(-10.3,t=-5.2..-8.4,color=blue):

> p33:=plot(0,t=-10..10,color=blue):

> p34:=plot(t,t=-1..1,color=blue):

> p35:=plot(-t,t=-1..1,color=blue):

> p36:=polarplot(3+.125*sin(theta),theta=1.8..2.9,color=red,scaling=constrained):

> p37:=polarplot(3+.125*sin(theta),theta=-1.8..-2.9,color=red,scaling=constrained):

> p38:=plot(t,t=2.2..4,color=blue):

> p39:=plot(-.96*t,t=-4..-2.2,color=blue):

> p40:=plot(-t,t=2.2..4,color=blue):

> p41:=plot(.8*t,t=-4..-2.2,color=blue):

> p42:=plot(2*t+6,t=-2.4..-2,color=red):

> p43:=plot(2*t+4.3,t=-1.65..-1.3,color=red):

> p44:=plot(-2*t+4.6,t=1.45..1.8,color=red):

> p45:=plot(-2*t+5.8,t=2..2.4,color=red):

> p46:=plot(-2*t-4,t=-1.54..-1.2,color=red):

> p47:=plot(-2*t-5.89,t=-2.4..-2,color=red):

> p48:=plot(2*t-5.5,t=1.9..2.2,color=red):

> p49:=plot(2*t-4,t=1.26..1.6,color=red):

> p50:=implicitplot(x=0,x=-1..1,y=-10..10,color=blue):

> p51:=plot(-2*t+3.6,t=1..1.35,color=red):

> p52:=plot(-2*t-5,t=-2..-1.6,color=red):

> p53:=plot(2*t-4.7,t=1.5..1.9,color=red):

> p54:=plot(2*t+5.3,t=-2.1..-1.7,color=red):

> 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);

>