> with(student);

> with(plots);

Warning, the name changecoords has been redefined

> p1:=plot(39,t=-0.03..0.03,color=grey):

> p2:=plot(39.5,t=-0.03..0.03,color=grey):

> p3:=plot([.3*cos(t)/1.2,10*sin(t),t=0..Pi],color=grey):

> p4:=plot([.3*cos(t)/1.2,12*sin(t),t=0..Pi],color=grey):

> p5:=plot(((12*t+6.5)^2),t=-0.208..-0.116,color=grey):

> p6:=plot(((12*t-6.5)^2),t=0.116..0.208,color=grey):

> p7:=plot(8,t=0.3..1.2,color=black):

> p8:=plot([t,6,t=-0.33..-1.7],color=black):

> p9:=plot(8,t=-0.3..-1.7,color=black):

> p10:=plot(6,t=.33..1.2,color=black):

> p11:=plot(((11*t-5.5)^2)-2,t=0.045..0.115,color=grey):

> p12:=plot(((11*t-5.5)^2)-2,t=0.02..0.04,color=grey):

> p13:=plot(((11*t+5.5)^2)-2,t=-0.04..-0.02,color=grey):

> p14:=plot(((11*t+5.5)^2)-2,t=-0.115..-0.045,color=grey):

> p15:=plot(13.75,t=-0.23..0.23,color=grey):

> p16:=plot(1,t=-0.45..-.245,color=grey):

> p17:=plot(1,t=.25..0.45,color=grey):

> p18:=plot(26,t=-.17..0.17,color=grey):

> p19:=plot(((13*t+6.5)^2),t=-.104..-.02,color=grey):

> p20:=plot(((13*t-6.5)^2),t=0.02..0.104,color=grey):

> p21:=plot(12,t=-.25..0.25,color=grey):

> p22:=plot(26.5,t=-0.17..0.17,color=grey):

> p23:=plot(23,t=-0.14..0.14,color=grey):

> p24:=plot(23.5,t=-.135..0.135,color=grey):

> p25:=plot(14.5,t=-.25..0.25,color=grey):

> p26:=plot(16,t=-.25..0.25,color=grey):

> p27:=plot(.12,t=-.5..-0.245,color=grey):

> p28:=plot(.12,t=0.24..0.49,color=grey):

> p29:=plot(((11*t+5.5)^2)-2,t=-.0155..0,color=grey):

> p30:=plot(((11*t-5.5)^2)-2,t=0..0.0155,color=grey):

> p31:=plot([(cos(10*t)/18)+.49,(sin(10*t))+45,t=0..Pi/13]):

> p32:=plot(((11*t-5.5)^2)-2,t=0.13..0.37,color=grey):

> p33:=plot(((11*t+5.5)^2)-2,t=-0.37..-0.13,color=grey):

> p34:=plot(((13*t-6.7)^2),t=0.223..0.475,color=grey):

> p35:=plot(((13*t+6.7)^2),t=-0.475..-0.223,color=grey):

> p36:=plot([-.06*cos(theta)+0.81,-sin(theta)+45, theta=0..2*Pi]):

> p37:=plot(((11*t+10)^2)-2,t=-.78..-0.65,color=black):

> p38:=plot(((11*t+12)^2)-2,t=-.96..-0.835,color=black):

> p39:=plot(((13*t-10)^2)-2,t=0.55..0.66,color=black):

> p40:=plot([(0.7*cos(t)/1.2)+.95,-3*sin(t)+31,t=Pi/2..Pi],color=gold):

> p41:=plot([(0.5*cos(t)/1.2)+.4,5*sin(t)+27,t=Pi/2..Pi/5],color=blue):

> p42:=plot([(0.5*cos(t)/1.2)+.5,-5*sin(t)+30,t=Pi/2..Pi],color=blue):

> p43:=plot([(0.5*cos(t)/1.2)+.55,5*sin(t)+35,t=Pi/2..Pi],color=blue):

> p44:=plot([(0.5*cos(t)/1.2),5*sin(t)+27,t=Pi/3..Pi/6],color=blue):

> p45:=plot([(0.5*cos(t)/1.2),-5*sin(t)+40,t=Pi/3..Pi/8],color=gold):

> p46:=plot([(0.5*cos(t)/1.2)+.18,-5*sin(t)+38,t=Pi/2..Pi/10],color=blue):

> p47:=plot([(0.5*cos(t)/1.2)-.3,5*sin(t)+35,t=0..Pi/5],color=gold):

> p48:=plot([(0.2*cos(t)/1.2)+.28,2*sin(t)+33,t=Pi/2..Pi],color=gold):

> p49:=plot([(0.2*cos(t)/1.2)+.31,2*sin(t)+30.5,t=Pi..3*Pi/2],color=gold):

> p50:=plot([-0.06*cos(theta)+.71,-sin(theta)+45, theta=0..2*Pi]):

> p51:=plot([-0.06*cos(theta)+.61,-sin(theta)+45,theta=0..2*Pi]):

> p52:=plot([(0.5*cos(t)/1.2)-.1,-5*sin(t)+35.5,t=Pi/3..Pi/3.5],color=blue):

> p53:=plot([(0.5*cos(t)/1.2)+.1,-5*sin(t)+37.5,t=Pi/2..Pi/2.2],color=gold):

> p54:=plot([(0.5*cos(t)/1.2)-.3,5*sin(t)+35,t=Pi/2..Pi/3.7],color=gold):

> p55:=plot([(0.5*cos(t)/1.2)+.18,-5*sin(t)+38,t=Pi..3*Pi/4.35],color=blue):

> p56:=plot([(0.5*cos(t)/1.2),5*sin(t)+27,t=Pi/1.8..Pi],color=blue):

> p57:=plot([cos(t)-.24,-5*sin(t)+39.5,t=2*Pi/3..Pi],color=green):

> p58:=plot([cos(t)-.12,-5*sin(t)+41,t=Pi..3*Pi/4],color=magenta):

> p59:=plot([cos(t)-.2,5*sin(t)+44,t=Pi..2*Pi/3],color=green):

> p60:=plot([cos(t)-2.3,5*sin(t)+45,t=0..Pi/4],color=magenta):

> p61:=plot([cos(2*t)-2.4,sin(2*t)+42, t=0..Pi/6],color=magenta):

> p62:=plot([cos(t)-1.6,sin(2*t)+42, t=Pi/3..Pi/6],color=magenta):

> p63:=plot([cos(t)-2.5,sin(t)+43.5, t=0..Pi/5],color=green):

> p64:=plot([(0.5*cos(t)/1.2)-1.2,5*sin(t)+37,t=Pi/2..Pi/3.7],color=green):

> p65:=plot([.5*cos(2*t)-1.8,2*sin(2*t)+43, t=0..Pi/2],color=green):

> p66:=plot([.5*cos(2*t)-1.8,sin(2*t)+40, t=3*Pi/2..4*Pi/2],color=green):

> p67:=plot([cos(5*t)-2.3,-2*sin(t)+41,t=0..Pi/20],color=magenta):

> p68:=plot([(0.2*cos(t)/1.2)-1,2*sin(t)+43,t=Pi/2..Pi],color=magenta):

> p69:=plot([(0.2*cos(2*t)/1.2)-1.2,2*sin(t)+43,t=Pi..3*Pi/2],color=gold):

> p70:=plot([(0.7*cos(t)/1.2)-1.75,-3*sin(2*t)+45,t=Pi/4..Pi/5],color=magenta):

> p71:=plot(44,t=.46..0.55),thickness=2:

> p72:=plot([-0.06*cos(theta)+.48,-sin(theta)+45.1,theta=Pi..Pi/2],thickness=2):

> p73:=plot(((13*t-12)^2)-2,t=0.705..0.81,color=black):

> p74:=plot([(0.5*cos(t)/1.2)+1.2,-5*sin(t)+43,t=Pi..3*Pi/3.5]):

> p75:=plot([(0.5*cos(t)/1.2)+.8,-5*sin(t)+51,t=Pi..3*Pi/4.35]):

> p76:=plot([(0.5*cos(t)/1.2)+1.25,-5*sin(t)+47,t=Pi..3*Pi/2]):

> p77:=plot([(0.5*cos(t)/1.2)+1.3,-5*sin(t)+44,t=3*Pi/3..3*Pi/4.35]):

> p78:=plot([(0.5*cos(t)/1.2)+1,5*sin(t)+42,t=Pi/1.8..Pi/2.2]):

> p79:=plot([(0.5*cos(t)/1.2)+.15,5*sin(t)+41,t=Pi/2..Pi/4]):

> p80:=plot([(0.2*cos(t)/1.2)+.5,2*sin(t)+41,t=Pi/2..Pi]):

> p81:=plot([cos(2*t)+.45,sin(2*t)+44, t=0..Pi/6]):

> p82:=plot([(0.5*cos(t)/1.2)+.3,5*sin(t)+47,t=0..Pi/5]):

> p83:=plot([-0.17,t,t=26..26.5],color=grey):

> p84:=plot([0.17,t,t=26..26.5],color=grey):

> p85:=plot([-.245,t,t=14.5..16],color=grey):

> p86:=plot([0.245,t,t=14.5..16],color=grey):

> p87:=plot([-.03,t,t=39..39.5],color=grey):

> p88:=plot([.03,t,t=39..39.5],color=grey):

> p89:=plot([0,t,t=28.3..32.4],color=grey):

> p90:=plot([0,t,t=39.5..41],color=grey):

> p91:=plot([t,0.05,t=-0.5..-1.7],color=green,thickness=3):

> p92:=plot([t,0.05,t=-0.24..0.24],color=green,thickness=3):

> p93:=plot([t,0.05,t=0.5..1.2],color=green,thickness=3):

> 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,p58,p59,p60,p61,p62,p63,p64,p65,p66,p67,p68,p70,p71,p72,p73,p74,p75,p76,p77,p78,p79,p80,p81,p82,p83,p84,p85,p86,p87,p88,p89,p90,p91,p92,p93);

> 

>