Sarah_Steward.mw

> with(student):

> with(plots):

> p1:= plot([cos(t)-5, sin(t)+18, t=0..2*Pi], thickness=50, color=yellow):

> p2:= plot([6*cos(t), 13*sin(t), t=0..Pi], thickness=5, color=navy):

> p3:= plot([5*cos(t), 10*sin(t), t=.03..Pi], thickness=5, color=navy):

> p4:= plot(-10, x=-6..6, thickness= 2, color=black):

> p5:= plot(-8, x=-4..4, thickness= 2, color=black):

> p6:= plot([-1.8, y, y=0..12.5], thickness=2, color=blue):

> p7:= plot([-1, y, y=3.5..12.8], thickness= 2, color=blue):

> p8:= plot(0, t=-2*Pi..-3.2, thickness=5, color=navy):

> p9:= plot([-4, y, y=0..9.8], thickness= 2, color=blue):

> p10:= plot([-3.8, y, y=0..10], thickness= 2, color=blue):

> p11:= plot(-t-4, t=6..4, thickness= 2, color=black):

> p12:= plot(t-4, t=-6..-4, thickness=2, color=black):

> p13:= plot(-t-4, t=-5.9..-5, thickness= 2, color=blue):

> p14:= plot(-t-2, t=-5.7..-4.8, thickness= 2, color=blue):

> p15:= plot(-t, t=-5.4..-4.5, thickness= 2, color=blue):

> p16:= plot(-t+2, t=-5.05..-4, thickness= 2, color=blue):

> p17:= plot(-t+4, t=-4.5..-3.4, thickness= 2, color=blue):

> p18:= plot(-t+6, t=-3.9..-2.5, thickness= 2, color=blue):

> p19:= plot(-t+8, t=-3.1..-1.6, thickness= 2, color=blue):

> p20:= plot(-t+10, t=-2..-.1, thickness= 2, color=blue):

> p21:= plot(-2*t+12, t=-.5..1.2, thickness= 2, color=blue):

> p22:= plot(2*t+12, t=.5..-1.2, thickness= 2, color=blue):

> p23:= plot(t+10, t=.1...2, thickness= 2, color=blue):

> p24:= plot(t+8, t=1.6..3.1, thickness= 2, color=blue):

> p25:= plot(t+6, t=2.5..3.9, thickness= 2, color=blue):

> p26:= plot(t+4, t=3.4..4.5, thickness= 2, color=blue):

> p27:= plot(t+2, t=4..5, thickness= 2, color=blue):

> p28:= plot(t, t=4.5..5.4, thickness= 2, color=blue):

> p29:= plot(t-2, t=4.8..5.7, thickness= 2, color=blue):

> p30:= plot(t-4, t=5..5.9, thickness= 2, color=blue):

> p31:= plot([-3, y, y=.5..11.2], thickness= 2, color=blue):

> p32:= plot([-2.8, y, y=.3..11.6], thickness= 2, color=blue):

> p33:= plot([-2, y, y=0..12.3], thickness= 2, color=blue):

> p34:= plot([-.8, y, y=3.2..12.9], thickness= 2, color=blue):

> p35:= plot([-4.8, y, y=0..7.8], thickness= 2, color=blue):

> p36:= plot([-4.6, y, y=0..8.3], thickness= 2, color=blue):

> p37:= plot([.8, y, y=.3..12.8], thickness= 2, color=blue):

> p38:= plot([1, y, y=0..12.9], thickness= 2, color=blue):

> p39:= plot([1.8, y, y=1.1..12.5], thickness= 2, color=blue):

> p40:= plot([2, y, y=1.3..12.3], thickness= 2, color=blue):

> p41:= plot([2.8, y, y=1.7..11.6], thickness= 2, color=blue):

> p42:= plot([3, y, y=1.8..11.4] ,thickness= 2, color=blue):

> p43:= plot([3.8, y, y=0..10.2], thickness= 2, color=blue):

> p44:= plot([4, y, y=0..9.8], thickness= 2, color=blue):

> p45:= plot([4.6, y, y=0..8.3], thickness= 2, color=blue):

> p46:= plot([4.8, y, y=0..7.8], thickness= 2, color=blue):

> p47:= plot([.5*cos(t)-4.4, 11.5*sin(t), t=-Pi/4..(-.055)], thickness=4, color=maroon):

> p48:= plot([6*cos(t)-8, 10*sin(t)-8, t=0..(.82)], thickness= 4, color=maroon):

> p49:= plot([6*cos(t)-8, 10*sin(t)-6, t=-.1..(.75)], thickness=4, color=maroon):

> p50:= plot([5*cos(t)-5, 9.2*sin(t)-8, t=0..(1.3)], thickness=4, color=maroon):

> p51:= plot([.1, y, y=2..13], thickness= 2, color=blue):

> p52:= plot([-.1, y, y=2.3..13], thickness= 2, color=blue):

> p53:= plot([9*cos(t)-6.7, 15*sin(t)-8, t=0..(1)], thickness=4, color=maroon):

> p54:= plot([7*cos(t)-7.5, 15*sin(t)-4, t=0..(.62)], thickness=4, color=maroon):

> p55:= plot([9.3*cos(t)+7, 12*sin(t)-9, t=-4.31..(-4)], thickness=4, color=maroon):

> p56:= plot([9*cos(t)+11, 11*sin(t)-8, t=-3.35..(-5)], thickness=4, color=maroon):

> p57:= plot([7*cos(t)+10, 13*sin(t)-2, t=-3.07..(-3.45)], thickness=4, color=maroon):

> p58:= plot([11*cos(t)+15, 12*sin(t)-6, t=-4..-2.955], thickness=4, color=maroon):

> p59:= textplot([0,16,"SYDNEY"],font=[TIMES,BOLD,40],color=coral):

> p60:= plot([-1, y, y=0..(1.5)], thickness= 2, color=blue):

> p61:= plot(0, t=-2.5..-.8, thickness=5, color=navy):

> p62:= plot(0, t=3.1..4.8, thickness=5, color=navy):

> p63:= plot(0, t=5.5..2*Pi, thickness=5, color=navy):

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

[Plot]

>