> with(student):

> with(plots):

> with(linalg):

Warning, new definition for norm

Warning, new definition for trace

> a:= plot([t+cos(2*t), 2 - sin(t),t= -6..6*Pi],color = blue): #ocean

> b:= plot([sin(t)+12,cos(t)+12, t = 0...2*Pi], color = yellow, thickness = 3, style = patch): #sun

> c:= plot([-(2*cos(t))+3,-sin(t)+4,t=0..Pi], view =[0..15,0..15]):#boat bottom

> d:= plot([t,4, t= 1..5]): #boat top

> e:= plot([3,t,t=4..8],color = black): #mast

> f:= plot([t,4.5,t= 1..3], color = black): #boom

> g:= plot([t+3,(3*t^2)+2,t= -.6..(.6)]):#keel

> h:= plot([t/8+1.2,(t^8/30)+2.5,t= -1.598..(1.5)],color = red): #tiller

> i:= plot([t+1,1.75*t+4.5,t=0..2],color = black): #mainsail

> j:= plot([.75*cos(t-(1/70))+4.75,1.5*sin(t-(t/30))+6.5, t= -10..55],color = violet): #spinnaker

> k:= plot([t+3, 8, t=0..1]): #spinnaker head line

> l:= plot([t+3.75,t^1.25+3,t=1..1.75]): #spinnaker foot line

> m:= plot([t,-15,t=-5..20],color = brown): #ocean floor

> n:= plot([t+4,((t^2)/2-7.5),t=-2.5..2.5],color = green): #monster mouth

> o:= plot([((t^1.5)/2)+1,t-15,t=-2.5..2.5],color = brown): #monster hole left side

> p:= plot([(-t^1.5)/2+7,t-15,t=-2.5..2.5], color = brown): #monster hole right side

> q:= plot([t,-12.5,t = 3..5], color = brown): #monster hole top

> r:= plot([3*(1-t)+1.5*t,-12.5*(1-t)+(-4.5*t),t=0..1],color = green): #monster body left side

> s:= plot([5*(1-t)+6.5*t,-12.5*(1-t)+(-4.5*t),t=0..1],color = green): #monster body right side

> u:= plot([sin(t)+2.25,cos(t)-8,t = 1.9*Pi..Pi],color = black): # monster eye

> v:= plot([.25*sin(t)+1.75,.25*cos(t)-8,t = 0..2*Pi],color = red, thickness = 3): # monster pupil

> w:= plot([(.1*(t+sin(t)))*cos(-4*Pi/13)-(.5*(1-cos(t)))*sin(-4*Pi/13)+1.65,(.1*(t+sin(t)))*sin(-4*Pi/13)+(.5*(1-cos(t)))*cos(-4*Pi/13)-5,t=.5..9.8*Pi]): #monster teeth left side

> x:= plot([(.1*(t+sin(t)))*cos(Pi/3.1)-(.5*(1-cos(t)))*sin(Pi/3.1)+4.75,(.1*(t+sin(t)))*sin(Pi/3.1)+(.5*(1-cos(t)))*cos(Pi/3.1)-7.5,t=.95..9.8*Pi]): #monster teeth right side

> y:= plot([.15*(t+cos(t))+2,.3*(1-sin(t))-8.5, t= .1..8*Pi], color = green):# monster scales one

> z:= plot([.15*(t+cos(t))+2,.3*(1-sin(t))-9, t= 2..7.75*Pi], color = green):# monster scales two

> alpha:= plot([.15*(t+cos(t))+2,.3*(1-sin(t))-9.5, t= 4..7.65*Pi], color = green):# monster scales three

> beta:= plot([.15*(t+cos(t))+2,.3*(1-sin(t))-10, t= 4..7.65*Pi], color = green):# monster scales four

> delta:= plot([.15*(t+cos(t))+2,.3*(1-sin(t))-10.5, t= 4..7.5*Pi], color = green):# monster scales five

> epsilon:= plot([.15*(t+cos(t))+2,.3*(1-sin(t))-11, t= 4..7.25*Pi], color = green):# monster scales six

> zeta:= plot([.15*(t+cos(t))+2,.3*(1-sin(t))-11.5, t= 5..7*Pi], color = green):# monster scales six

> eta:= plot([.15*(t+cos(t))+2,.3*(1-sin(t))-12, t= 5..6.75*Pi], color = green):# monster scales seven

> theta:= plot([.15*(t+cos(t))+2,.3*(1-sin(t))-12.5, t= 5..6.5*Pi], color = green):# monster scales eight

> iota:= plot([t+cos(2*t)-3.75, 2 - sin(t),t= -1..6*Pi],color = blue): #ocean two

> kappa:= plot([cos(t)+.5*cos(4*t),.75*sin(t)+.25*sin(4*t)+12,t= 0...2*Pi],color = black): # cloud one

> lambda:= plot([cos(t)+.75*cos(4*t)+4,.75*sin(t)+.35*sin(4*t)+12,t= 0...2*Pi],color = black): # cloud two

> mu:= plot([sin(t)+.75*sin(4*t)+9,.25*cos(t)+.25*cos(4*t)+12,t= 0...2*Pi],color = black): # cloud three

> nu:= plot([.5*t+9,.01*exp(t)-15,t=-5..5], color = brown): # vent left side

> xi:= plot([.5*t+14.5,.01*exp(-t)-15,t=-5..5], color = brown): # vent right side

> omicron:= plot([.15*sin(t)+11.75,.15*cos(t)-13,t = 0..2*Pi],color = black, thickness = 0): # vent bubbles one

> rho:= plot([.15*sin(t)+11.5,.15*cos(t)-11.5,t = 0..2*Pi],color = black, thickness = 0): # vent bubbles two

> sigma:= plot([.15*sin(t)+12,.15*cos(t)-10,t = 0..2*Pi],color = black, thickness = 0): # vent bubbles three

> tau:= plot([cos(t)+.5*cos(3*t)-2,.75*sin(t)+.25*sin(2*t)-10,t= 0...2*Pi],color = black): # bat ray

> upsilon:= plot([.1*sin(t)-1,.1*cos(t)-9.8,t = 0..2*Pi],color = orange, thickness = 2): # ray eye one

> phi:= plot([.1*sin(t)-1,.1*cos(t)-10.15,t = 0..2*Pi],color = orange, thickness = 2): # ray eye two

> chi:=plot([t,-9.998,t=-6..-3.52],color = black): # ray tail

> psi:=plot([(.75*cos(t)+.5*cos(4*t)+10.35),(.5*sin(t)+.25*sin(8*t)-5),t= 0...2.5*Pi],color = magenta):# kissing fish one

> omega:= plot([(.75*cos(t)+.5*cos(4*t)+10)*cos(Pi)-(.5*sin(t)+.25*sin(8*t)-5)*sin(Pi)+18,(.75*cos(t)+.5*cos(4*t)+10)*sin(Pi)+(.5*sin(t)+.25*sin(8*t)-5)*cos(Pi)-10,t= 0...2.5*Pi],color = cyan): # kissing fish two

> b2:= plot([sin(20*t)*cos(t)+12,sin(20*t)*sin(t)+12,t=0..2*Pi],color = red): # sun center

> nu2:= plot([.15*t+11.75,(.1*t^2)-13.85,t=-2..2]): # vent top

> alpha2:= plot([.25*t*cos(-Pi/5)-cos(t)*(.45*sin(2*t))*sin(-Pi/5)+10,(.25*t)*sin(-Pi/5)+(cos(t)*.45*sin(2*t))*cos(-Pi/5)+9,t=0..Pi],color = black,scaling=constrained): # bird one

> alpha3:= plot([.25*t*cos(-Pi/5)-cos(t)*(.45*sin(2*t))*sin(-Pi/5)+10.25,(.25*t)*sin(-Pi/5)+(cos(t)*.45*sin(2*t))*cos(-Pi/5)+8,t=0..Pi],color = black,scaling=constrained): # bird two

> alpha4:= plot([.25*t*cos(-Pi/5)-cos(t)*(.45*sin(2*t))*sin(-Pi/5)+9.75,(.25*t)*sin(-Pi/5)+(cos(t)*.45*sin(2*t))*cos(-Pi/5)+10,t=0..Pi],color = black,scaling=constrained): # bird three

> beta2:= plot([-5,t,t=-15..15],color = black): # left border

> beta3:= plot([15,t,t=-15..15],color = black): # right border

> beta4:= plot([t,15,t=-5..15],color = black): #top border

> display([a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,u,v,w,x,y,z,alpha,beta,delta,epsilon,zeta,eta,theta,iota,kappa,lambda,mu,nu,xi,omicron,rho,sigma,tau,upsilon,phi,chi,psi,omega,b2,nu2,alpha2,alpha3,alpha4,beta2,beta3,beta4],view=[-5..15,-15..15],scaling = constrained);