> with(student):

> with(plots):

Warning, the name changecoords has been redefined

> p1:=plot([t,-40,t=-100..80],color=brown,scaling=constrained,axes=none,thickness=3):

Fork Mount

> p2:=plot([35.4*(1-t)-.7*t,-40*(1-t)-3.8*t,t=0..1],color=blue,thickness=2):

> p3:=plot([45*(1-t)+3.8*t,-40*(1-t)+.5*t,t=0..1],color=blue,thickness=2):

> p4:=plot([-.5*(1-t)-25*t,-3.8*(1-t)-40*t,t=0..1],color=blue,thickness=2):

> p5:=plot([(17*cos(4*theta))*cos(theta),(17*cos(4*theta))*sin(theta),theta=Pi/6..Pi/3],color=blue,thickness=2):

> p6:=plot([(17*cos(4*theta))*cos(theta),(17*cos(4*theta))*sin(theta),theta=2*Pi/1.5..2*Pi/1.71],color=blue,thickness=2):

> p7:=plot([-8*(1-t)+4.8*t,-4.8*(1-t)+8*t,t=0..1],color=blue,thickness=2):

> p8:=plot([-4.5*(1-t)+7.5*t,-7.8*(1-t)+4.2*t,t=0..1.05],color=blue,thickness=2):

> p9:=plot([t^2-35,8*cos(t)-8.85,t=2.63..5],color=blue,thickness=2):

> p10:=plot([t^2-35,8*cos(t)+2,t=2.63..5],color=blue,thickness=2):

> p11:=plot([-8*cos(t)+8.85,-t^2+35,t=2.63..5],color=blue,thickness=2):

> p12:=plot([-8*cos(t)-2,-t^2+34.5,t=2.6..5],color=blue,thickness=2):

> p13:=plot([(30*cos(4*theta))*cos(theta)-29.6,(30*cos(4*theta))*sin(theta)-8,theta=1.68*Pi..4*Pi/2.2],color=blue,thickness=2):

> p14:=plot([(30*cos(4*theta))*cos(theta)+10,(30*cos(4*theta))*sin(theta)+29,theta=1.68*Pi..4*Pi/2.2],color=blue,thickness=2):

> p15:=plot([15.9*(1-t)-.3*t,28*(1-t)+45.2*t,t=0..1],color=blue,thickness=2):

> p16:=plot([4.8*(1-t)-6.7*t,27.8*(1-t)+39.8*t,t=0..1],color=blue,thickness=2):

> p17:=plot([-46.3*(1-t)-28*t,2.8*(1-t)-15.9*t,t=0..1],color=blue,thickness=2):

> p18:=plot([-40*(1-t)-28*t,8.2*(1-t)-5*t,t=0..1],color=blue,thickness=2):

> p19:=plot([-10.3*(1-t)-3.8*t,4*(1-t)+10*t,t=0..1],color=blue,thickness=2):

Telescope

> p20:=plot([-25.5*(1-t)+3*t,-2.8*(1-t)+25*t,t=0..1],color=black):

> p21:=plot([-45*(1-t)-16.8*t,17.4*(1-t)+45*t,t=0..1],color=black):

> p22:=plot([-47*(1-t)-25.5*t,19.4*(1-t)-2.8*t,t=0..1],color=black):

> p23:=plot([-18.8*(1-t)+3*t,47*(1-t)+25*t,t=0..1],color=black):

> p24:=plot([-36.5*(1-t)-8.5*t,9*(1-t)+36.5*t,t=0..1],color=black):

> p25:=plot([-47*(1-t)-18.8*t,19.4*(1-t)+47*t,t=0..1],color=black):

> p26:=plot([-4.5*sin(t)-39.2,4*(t^(sin(t)))+7,t=0..3.15],color=black):

> p27:=plot([4.8*sin(t)-14.5,-4.3*(t^(sin(t)))+47.5,t=0..3.15],color=black):

> p28:=plot([4*cos(t)-20.5,4*sin(t)+33,t=0..2*Pi],color=black):

> p29:=plot([4*cos(t)-33,4*sin(t)+20.5,t=0..2*Pi],color=black):

> p30:=plot([-44.2*(1-t)-96.2*t,22.2*(1-t)+76.2*t,t=0..1],color=black,thickness=1):

> p31:=plot([-43.2*(1-t)-95.2*t,23.2*(1-t)+77.2*t,t=0..1],color=black,thickness=1):

> p32:=plot([-21.5*(1-t)-73*t,44.5*(1-t)+98*t,t=0..1],color=black,thickness=1):

> p33:=plot([-22.5*(1-t)-74*t,43.5*(1-t)+97*t,t=0..1],color=black,thickness=1):

> p34:=plot([-95.5*(1-t)-74*t,77*(1-t)+97*t,t=0..1],color=black,thickness=1):

> p35:=plot([-95.7*(1-t)-74.5*t,78.4*(1-t)+97.95*t,t=0..1],color=black,thickness=1):

> p36:=plot([sin(t)-74,2*cos(t)+97.3,t=0..2*Pi],color=black,thickness=2):

> p37:=plot([cos(t)-96,2*sin(t)+77,t=0..2*Pi],color=black,thickness=2):

> p38:=plot([11*sin(4*t)*cos(t)-88.5,11*sin(6*t)*sin(t)+77.5,t=2.4..2.74],color=black,thickness=2):

> p39:=plot([11*sin(6*t)*cos(t)-73.5,11*sin(4*t)*sin(t)+90,t=0.78..1.1],color=black,thickness=2):

> p40:=plot([5*sin(t)-77,5*cos(t)+79.5,t=1.3..3.5],color=black,thickness=2):

> p41:=plot([5*sin(t)-73.8,5*cos(t)+76,t=4.5..6.7],color=black):

>

Constellation

> p42:=plot([1.8*cos(t)-137,1.8*sin(t)+216, t=0..2*Pi], color=orange,thickness=1):

> p43:=plot([1.4*cos(t)-137,1.4*sin(t)+216, t=0..2*Pi], color=orange):

> p44:=plot([1*cos(t)-137,1*sin(t)+216, t=0..2*Pi], color=orange):

> p45:=plot([.6*cos(t)-137,.6*sin(t)+216, t=0..2*Pi], color=orange):

> p46:=plot([.2*cos(t)-137,.2*sin(t)+216, t=0..2*Pi], color=orange):

>

> p47:=plot([1.4*cos(t)-101,1.4*sin(t)+211,t=0..2*Pi],color=blue):

> p48:=plot([1*cos(t)-101,1*sin(t)+211,t=0..2*Pi],color=blue):

> p49:=plot([.6*cos(t)-101,.6*sin(t)+211,t=0..2*Pi],color=blue):

> p50:=plot([.2*cos(t)-101,.2*sin(t)+211,t=0..2*Pi],color=blue):

>

> p51:=plot([1.1*cos(t)-125,1.1*sin(t)+178.5,t=0..2*Pi],color=blue):

> p52:=plot([.7*cos(t)-125,.7*sin(t)+178.5,t=0..2*Pi],color=blue):

> p53:=plot([.3*cos(t)-125,.3*sin(t)+178.5,t=0..2*Pi],color=blue):

> p54:=plot([1.1*cos(t)-120,1.1*sin(t)+180,t=0..2*Pi],color=blue):

> p55:=plot([.7*cos(t)-120,.7*sin(t)+180,t=0..2*Pi],color=blue):

> p56:=plot([.3*cos(t)-120,.3*sin(t)+180,t=0..2*Pi],color=blue):

> p57:=plot([1.1*cos(t)-115,1.1*sin(t)+181.5,t=0..2*Pi],color=blue):

> p58:=plot([.7*cos(t)-115,.7*sin(t)+181.5,t=0..2*Pi],color=blue):

> p59:=plot([.3*cos(t)-115,.3*sin(t)+181.5,t=0..2*Pi],color=blue):

>

> p60:=plot([1.2*cos(t)-137,1.2*sin(t)+149,t=0..2*Pi],color=blue):

> p61:=plot([.8*cos(t)-137,.8*sin(t)+149,t=0..2*Pi],color=blue):

> p62:=plot([.4*cos(t)-137,.4*sin(t)+149,t=0..2*Pi],color=blue):

>

> p63:=plot([1.7*cos(t)-101,1.7*sin(t)+149,t=0..2*Pi],color=blue):

> p64:=plot([1.3*cos(t)-101,1.3*sin(t)+149,t=0..2*Pi],color=blue):

> p65:=plot([.9*cos(t)-101,.9*sin(t)+149,t=0..2*Pi],color=blue):

> p66:=plot([.5*cos(t)-101,.5*sin(t)+149,t=0..2*Pi],color=blue):

>

> p67:=plot([.7*cos(t)-120.8,.9*sin(t)+170.2,t=0..2*Pi],color=blue):

> p68:=plot([.5*cos(t)-120.8,.5*sin(t)+170.2,t=0..2*Pi],color=blue):

> p69:=plot([.2*cos(t)-120.8,.2*sin(t)+170.2,t=0..2*Pi],color=blue):

>

> p70:=plot([.7*cos(t)-122,.9*sin(t)+168,t=0..2*Pi],color=blue):

> p71:=plot([.5*cos(t)-122,.5*sin(t)+168,t=0..2*Pi],color=blue):

> p72:=plot([.3*cos(t)-122,.3*sin(t)+168,t=0..2*Pi],color=red,thickness=2):

>

> p73:=plot([.7*cos(t)-123.2,1*sin(t)+165.8,t=0..2*Pi],color=blue):

> p74:=plot([.5*cos(t)-123.2,.6*sin(t)+165.8,t=0..2*Pi],color=blue):

> p75:=plot([.2*cos(t)-123.2,.2*sin(t)+165.8,t=0..2*Pi],color=blue):

Galaxy

> p76:=plot([6.5*cos(t)-235.8,6.5*sin(t)+165,t=0..2*Pi],color=black,thickness=2,scaling=constrained):

> p77:=plot([5.5*cos(t)-235.8,5.5*sin(t)+165,t=0..2*Pi],color=black,thickness=2):

> p78:=plot([4.5*cos(t)-235.8,4.5*sin(t)+165,t=0..2*Pi],color=black,thickness=2):

> p79:=plot([3.5*cos(t)-235.8,3.5*sin(t)+165,t=0..2*Pi],color=black,thickness=2):

> p80:=plot([2.5*cos(t)-235.8,2.5*sin(t)+165,t=0..2*Pi],color=black,thickness=2):

> p81:=plot([1.5*cos(t)-235.8,1.5*sin(t)+165,t=0..2*Pi],color=black,thickness=2):

> p82:=plot([.5*cos(t)-235.8,.5*sin(t)+165,t=0..2*Pi],color=black,thickness=2):

> p83:=plot([(40*sin(.5*theta)*cos(theta))-230,(60*sin(.5*theta)*sin(theta))+175,theta=2..2.13*Pi], color=black,thickness=1):

> p84:=plot([(40*sin(.5*theta)*cos(theta))-241,(60*sin(.5*theta)*sin(theta))+155,theta=2.65*Pi..4.13*Pi], color=black,thickness=1):

> p85:=plot([(40*sin(.5*theta)*cos(theta))-244,(60*sin(.5*theta)*sin(theta))+155,theta=2.65*Pi..4.13*Pi], color=tan,thickness=1):

> p86:=plot([(40*sin(.5*theta)*cos(theta))-233,(60*sin(.5*theta)*sin(theta))+175,theta=2..2.15*Pi], color=tan,thickness=1):

> p87:=plot([(40*sin(.5*theta)*cos(theta))-227,(60*sin(.5*theta)*sin(theta))+175,theta=2..2.13*Pi], color=tan,thickness=1):

> p88:=plot([(40*sin(.5*theta)*cos(theta))-239,(60*sin(.5*theta)*sin(theta))+155,theta=2.65*Pi..4.15*Pi], color=tan,thickness=1):

Raft & Water

> p89:=plot([11.5*sin(t)-58,12.5*cos(t)-54,t=4.4..8.65],thickness=3,color=brown):

> p90:=plot([15*sin(t),15*cos(t)-56,t=4..8],thickness=3,color=brown):

> p91:=plot([12*sin(t)-85,12*cos(t)-53,t=4.2..8.2],thickness=3,color=brown):

> for i from 63 to 90 do water[i]:=plot([t,6*sin(.06*t)-i,t=-90*Pi..50*Pi],color=blue,thickness=1):

> od:

> p92:=plot([12*sin(t)+29.5,12*cos(t)-53,t=4.4..8.4],thickness=3,color=brown):

> p93:=plot([15*sin(t)+59,15*cos(t)-56.5,t=4.5..8.7],thickness=3,color=brown):

> p94:=plot([13*sin(t)-30.5,15*cos(t)-56,t=3.9..8.8],thickness=3,color=brown):

> 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,p69,p70,p71,p72,p73,p74,p75,p76,p77,p78,p79,p80,p81,p82,p83,p84,p85,p86,p87,p88,p89,p90,p91,p92,p93,p94,water[j] $j=63..90);

Drifting Towards Clear Skies

Jonathan Burkle

>