> with(plots):

> p1:= plot([-2, y, y=-2..16], color = blue):

> p2:= plot([2, y, y = -2..16], color = blue):

> p3:= plot(-2,x=-2..2, blue):

> p4:= plot(t, t=-3..-2, blue):

> p5:= plot(-t, t=2..3, blue):

> p6:= plot([t, -(t^2-19),t=-1..1], color = blue):

> p7:= plot([t, t^2-6,t=-2..2]):

> p8:= plot(2*t+20, t=-2..-1, color = blue):

> p9:= plot(-2*t+20, t=1..2, scaling = constrained,color = blue):

> p10:= plot(-t/2+5, t=2..6, color = blue):

> p11:= plot(t/2+5, t=-6..-2, color= blue):

> p12:= plot(2, t=-6..6,color = blue):

> p13:= plot([-6, y, y=0..2], color = blue):

> p14:= plot([6,y,y=0..2], color = blue):

> p15:= plot([-4, y, y=2..5], color = violet):

> p16:= plot([4, y, y=2..5], color = violet):

> p17:= plot(-1/2*t-3, t=-6..-2, color = blue):

> p18:= plot(1/2*t-3, t=2..6, color = blue):

> p19:= plot(1, t=-4..-2, color = brown):

> p20:= plot(1, t=2..4, color = brown):

> p21:= plot([-4, y,y =-1..1], color = orange):

> p22:= plot([4, y, y=-1..1], color = orange):

> p23:= plot(-1,t=-4..4, color = orange):

> p24:= plot(16, t=-2..2, color = blue):

> p25:= plot(11, t= -10..2, color = gold):

> p26:= plot(13, t= -12..2, color = gold):

> p27:= plot(1, t= 10.99..11):

> p28:= textplot([8, 10,`You have to love this rocket`], color = gold, align={ABOVE,RIGHT}):

> p29:= plot([-10,y,y=0..13], color = gold):

> p30:= plot([-12,y,y=0..13], color = gold):

> p31:= plot(-t-10, t= -12..-10, color = gold):

> p32:= plot(t+12, t= -12..-10, color = gold):

> p33:= plot(-t-8, t= -12..-10, color = gold):

> p34:= plot(t+14, t= -12..-10, color = gold):

> p35:= plot(-t-6, t= -12..-10, color = gold):

> p36:= plot(t+16, t= -12..-10, color = gold):

> p37:= plot(t+18, t= -12..-10, color = gold):

> p38:= plot(-(t+4), t= -12..-10, color = gold):

> p39:= plot(-(t+2), t= -12..-10, color = gold):

> p40:= plot(t+20, t= -12..-10, color = gold):

> p41:= plot(-t, t=-12..-10, color = gold):

> p42:=plot(t+22, t=-12..-10, color = gold):

> p43:= plot(12, t= -12..-10, color = gold):

> p44:= plot(-3, t= -3..3, color = blue):

> p45:= plot([-3,y,y=-3..-1.5], color = blue):

> p46:= plot([3,y,y=-3..-1.5], color = blue):

> p47:= plot([-3,y, y= 2..5], color = black):

> p48:= plot([3, y, y= 2..5], color = black):

> p49:= plot([t, (t+3.5)^2+4.75, t=-4..-3], color = black):

> p50:= plot([t, (t-3.5)^2+4.75, t=3..4], color = black):

> p51:= plot([t, -(t+3.5)^2+5.25, t=-4..-3], color = black):

>

> p52:= plot( [t, -(t-3.5)^2+5.25, t=3..4], color = black):

> p53:= textplot([8, 8,`Reminds me of Apollo 13`], color = gold, align={ABOVE,RIGHT}):

> p54:= textplot([8, 6,`and People loved Apollo 13`], color = gold, align={ABOVE,RIGHT}):

> p55:= textplot([8, 4,`So you have to Love It`], color = gold, align={ABOVE,RIGHT}):

>

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

>