> with(student);

>

> with(plots);

> with(plottools);

> p2 := plot([t+.4*sin(5*t), 1+cos(5*t), t=0..37], color=green,

> scaling=constrained):

> p3 := plot([37+t+.4*sin(.8*t), .4+.4*cos(.4*t), t=0..40], color=navy):

> p4 := plot([5, t, t=0..4], color=coral):

> p5 := plot([28, t, t=0..3], color=coral):

> p6 := plot([20, t, t=0..5], color=coral):

> p7 := ellipse([10,15], 7, 2,filled=true, color=yellow,

> scaling=constrained):

> p8 := plot([(10+cos(t)*cos(t)),(-15*sin(t)*sin(t))], t=0..2*Pi,

> color=orange, scaling=constrained):

> p9 := ellipticArc([45,0],5,1,0..Pi, filled=true, color=grey):

> p10 := ellipse([45,1.8], 2, .7, filled=true, color=green):

> p11 := ellipse([42.5, 1.3], 1, .3, filled=true, color=green):

> p12 := ellipse([47.5, 1.3], 1, .3, filled=true, color=green):

> p13 := ellipse([46, 2.6], 1, .5):

> p14 := ellipse([44, 2.6], 1, .5):

> p15 := ellipse([46, 2.4], .5, .1, filled=true, color=black):

> p16 := ellipse([44, 2.4], .5, .1, filled=true, color=black):

> p17 := ellipticArc([45, 1.8], 1, .15, Pi..2*Pi, color=black):

> p18 := ellipse([-12,-20], 2,1,filled=true,color=plum):

> p19 := rotate (p18, 5*Pi/6):

> p22 := plot(.2, x=75..100, color=tan):

> p21 := plot(.1, x=0..100, color=tan):

> p23 := ellipticArc([85, 10], 8, .8, -Pi/3..4*Pi/3, color=gold):

> p24 := ellipticArc([85, 10.8], 2, .4, 0..Pi, color=gold):

> p25 := ellipse([85, 9.2], 3.4, 1.2):

> p26 := ellipse([84, 9.4], .3, .2, filled=true, color=gold):

> p27 := ellipse([86, 9.4], .3, .2, filled=true, color=gold):

> p52 := ellipse([84, 9.5], .5, .3, color=black):

> p20 := ellipse([86, 9.5], .5, .3, color=black):

> p28 := ellipticArc([85, 9], 2.7, .3, Pi..2*Pi, color=red):

> p29 := ellipticArc([85, 6.5], 9, 1.5, -Pi/4..5*Pi/4, color=blue):

> p50 := plot([5+cos(theta)+2*cos(5*theta)*cos(theta),

> 4+sin(theta)+2*sin(theta)*cos(5*theta), theta=0..2*Pi], color=magenta,

> scaling=constrained):

> p49 := plot([20+1.5*cos(theta)+1.5*sin(9*theta)*cos(theta),

> 5+1.5*sin(theta)+1.5*sin(theta)*sin(9*theta), theta=0..2*Pi],

> color=aquamarine,scaling=constrained):

> p48 := plot([28+cos(theta)+1.5*sin(15*theta)*cos(theta),

> 3+sin(theta)+1.5*sin(theta)*sin(15*theta), theta=0..2*Pi],

> color=turquoise, scaling=constrained):

> p47 :=plot([75+cos(t)+2*cos(8*t), 2+sin(t)+.4*sin(8*t), t = 0 ..

> 2*Pi],color=grey, scaling = constrained):

> p46 :=plot([80+cos(t)+2*cos(8*t), 2+sin(t)+.4*sin(8*t), t = 0 ..

> 2*Pi],color=grey, scaling = constrained):

> p45 :=plot([85+cos(t)+2*cos(8*t), 2+sin(t)+.4*sin(8*t), t = 0 ..

> 2*Pi],color=grey, scaling = constrained):

> p44 :=plot([90+cos(t)+2*cos(8*t), 2+sin(t)+.4*sin(8*t), t = 0 ..

> 2*Pi],color=grey, scaling = constrained):

> p43 := plot([93+cos(t)+.4*cos(t), 3+sin(t)+.4*sin(8*t), t=0..2*Pi],

> color=grey, scaling=constrained):

> p31 := plot([(88, t), t=4.5..8], color=sienna):

> p41 := plot([(82, t), t=4.5..8], color=sienna):

> p38 := ellipse([74, 3.8], 2, .5, filled=true, color=white):

> p37 := ellipse([76.5, 4],2,.8,filled = true,color = black):

> p36 := ellipse([70, 4],6,.75,filled = true,color = black):

> p35 := ellipse([24.9, 11],2.7,.6,filled = true,color = aquamarine):

> p34 := ellipse([15.9, 10.8],2.8,.6,filled = true,color = aquamarine):

> p33 := ellipse([23.4, 12],2.4,.4,filled = true,color = maroon):

> p32 := ellipse([16, 11.75], 2.4, .4, filled = true, color = maroon):

> p39:=ellipse([78, .5], 2, .4, filled=true, color=black):

> p40:=ellipse([90, .5], 2, .4, filled=true, color=black):

> p42:=ellipse([80, 5], 2, .6, filled=true, color=tan):

> p1:=ellipse([90, 5], 2, .6, filled=true, color=tan):

> p8 :=ellipticArc([21,12.5],5, .3, Pi/3..5*Pi/6,color=black):

> p30:=ellipticArc([19,12.5],5, .3, Pi/3..5*Pi/6,color=black):

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

> polarplot([2+2*cos(theta)+4*cos(5*theta)*cos(theta),

> 2+2*cos(theta)+4*cos(5*theta)*sin(theta)],theta = 0 .. 2*Pi,color =

> magenta,scaling = constrained);

> polarplot(2+4*cos(5*theta),theta = 0 .. 2*Pi);

> plot([cos(t)+.4*cos(8*t), sin(t)+.4*sin(8*t), t = 0 .. 2*Pi],scaling =

> constrained);

>