> p1 := plot([2*cos(x)+.4*cos(8*x)+5, 2*sin(x)+.4*sin(8*x), x = 0 ..

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

> p2 := plot([cos(x)+.2*cos(8*x)+5, sin(x)+(-.2)*sin(8*x), x = 0 ..

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

> p3 := polarplot(.2*sin(2*x),x = 0 .. 2*Pi):

> p4 := polarplot(.4*sin(2*x),x = 0 .. 2*Pi,color = magenta):

> p5 := polarplot(.6*sin(2*x),x = 0 .. 2*Pi,color = blue):

> p6 := polarplot(1*sin(2*x),x = Pi/3 .. Pi/2,color = black):

> p7 := polarplot(1*sin(2*x),x = 3*Pi/2 .. 10*Pi/6,color = black):

> p8 := plot([cos(t)-5, sin(t), t = 0 .. 2*Pi],view = [-7 .. 5, -2 ..

> 2],color = yellow,scaling = constrained):

> p9 := plot(-x-5,x = -7 .. -5.7,color = yellow):

> p10 := plot(-x-5,x = -4.3 .. -3,color = yellow):

> p11 := plot([-5, t, t = 1 .. 3],color = yellow):

> p12 := plot([-5, t, t = -1 .. -3],color = yellow):

> p13 := plot(x+5,x = -4.3 .. -3,color = yellow):

> p14 := plot(x+5,x = -7 .. -5.66,color = yellow):

> p15 := plot(0,x = -8 .. -6,color = yellow):

> p16 := plot(0,x = -4 .. -2,color = yellow):

> p17 := plot([1.2*cos(t)+6.5, 5*sin(t)-5.4, t = 2*Pi/3 .. 3*Pi/2],view

> = [-2 .. 8, -12 .. 6],color = brown,scaling = constrained):

> p18 := plot([-1.2*cos(t)+3.39, 5*sin(t)-5.4, t = 2*Pi/3 ..

> 3*Pi/2],view = [-2 .. 8, -12 .. 6],color = brown,scaling =

> constrained):

> p19 := plot([cos(t)-1, 2*sin(t)-7, t = Pi/2 .. 3*Pi/2],view = [-8 ..

> 8, 6 .. -12],color = brown,scaling = constrained):

> p20 := plot([(-1)*cos(t)+1, 2*sin(t)-7, t = Pi/2 .. 3*Pi/2],view = [-8

> .. 8, 6 .. -12],color = brown,scaling = constrained):

> p21 := plot(-5,x = -1 .. 1,color = brown):

> p22 := plot(-9,x = -1 .. 1,color = brown):

> p23 := plot([cos(t)-.35, sin(t)-4, t = Pi/2 .. 3*Pi/2],view = [-8 ..

> 8, 6 .. -12],color = brown,scaling = constrained):

> p24 := plot([(-1)*cos(t)+.35, sin(t)-4, t = Pi/2 .. 3*Pi/2],view = [-8

> .. 8, 6 .. -12],color = brown,scaling = constrained):

> p25 := plot(-3,x = -.35 .. .35,color = brown):

> p26 := plot([.1*cos(t), .1*sin(t)-4, t = 0 .. 2*Pi],view = [-8 .. 8, 6

> .. -12],color = brown,scaling = constrained):

> p27 := plot([.75*cos(t), 2*sin(t)-2.65, t = 11*Pi/8 .. 13*Pi/8],view =

> [-8 .. 8, 6 .. -12],color = red):

> p28 := plot([.2*cos(t)-.5, .3*sin(t)-3.65, t = 0 .. 2*Pi],view = [-8

> .. 8, 6 .. -12],color = brown):

> p29 := plot([.2*cos(t)+.5, .3*sin(t)-3.65, t = 0 .. 2*Pi],view = [-8

> .. 8, 6 .. -12],color = brown):

> p30 := plot([.1*cos(t)-.5, .1*sin(t)-3.5, t = 0 .. 2*Pi],view = [-8 ..

> 8, 6 .. -12],color = blue):

> p31 := plot([.1*cos(t)+.5, .1*sin(t)-3.5, t = 0 .. 2*Pi],view = [-8 ..

> 8, 6 .. -12],color = blue):

> p32 := plot([.25*(.75+2*sin(t))*cos(t)-.5,

> .25*(.75+2*sin(t))*sin(t)-3, t = 0 .. 2*Pi],scaling = constrained,view

> = [-8 .. 8, 6 .. -12],color = brown):

> p33 := plot([.25*(.75+2*sin(t))*cos(t)+.5,

> .25*(.75+2*sin(t))*sin(t)-3, t = 0 .. 2*Pi],scaling = constrained,view

> = [-8 .. 8, 6 .. -12],color = brown):

> p34 := plot(-10.40,color = green):

> p35 := plot([1.5*cos(t)+1, 3*sin(t)-2, t = 3*Pi/2 .. 15*Pi/8],color =

> brown):

> p36 := plot([1.5*cos(t)+1.7, 3*sin(t)-2.5, t = 3*Pi/2 ..

> 15.4*Pi/8],color = brown):

> p37 := plot([(-1.5)*cos(t)-1, 3*sin(t)-2, t = 3*Pi/2 .. 15*Pi/8],color

> = brown):

> p38 := plot([-1.5*cos(t)-1.7, 3*sin(t)-2.5, t = 3*Pi/2 ..

> 15.4*Pi/8],color = brown):

> p39 := plot([-1, t, t = -9.5 .. -9],color = khaki):

> p40 := plot([-.15, t, t = -10.3 .. -9],color = khaki):

> p41 := plot([1, t, t = -9.5 .. -9],color = khaki):

> p42 := plot([.15, t, t = -10.3 .. -9],color = khaki):

> p43 := plot(-10.3,x = -1 .. -.15,color = khaki):

> p44 := plot(-10.3,x = .15 .. 1.13,color = khaki):

> p45 := plot([.4*cos(t)-1, .4*sin(t)-9.85, t = Pi/2 .. 3*Pi/2],color =

> khaki):

> p46 := plot([-.4*cos(t)+1, .4*sin(t)-9.85, t = Pi/2 .. 3*Pi/2],color =

> khaki):

> p47 := plot([.5*cos(t)-2.75, .5*sin(t)-3, t = 0 .. 2*Pi],color =

> khaki):

> p48 := plot([.5*cos(t)+2.75, .5*sin(t)-3, t = 0 .. 2*Pi],color =

> khaki):

> p49 := plot([.2*cos(t)-5, .75*sin(t)-10.3, t = 0 .. Pi/2],color =

> green):

> p50 := plot([.4*cos(t)-4.9, sin(t)-10.3, t = 0 .. Pi/2],color =

> green):

> p51 := plot([.2*cos(t)-4, .75*sin(t)-10.3, t = Pi/2 .. Pi],color =

> green):

> p52 := plot([.4*cos(t)-4.1, sin(t)-10.3, t = Pi/2 .. Pi],color =

> green):

> p53 := plot([.4*sin(2*t)*cos(t)-8, .4*sin(2*t)*sin(t)-8.5, t = 0 ..

> 2*Pi],color = sienna,view = [-10 .. 8, 6 .. -12],scaling =

> constrained):

> p54 := plot([.8*sin(2*t)*cos(t)-8, .8*sin(2*t)*sin(t)-8.5, t = 0 ..

> 2*Pi],color = navy,view = [-10 .. 8, 6 .. -12],scaling = constrained):

> p55 := plot([.5*cos(t)-8, 1.5*sin(t)-10, t = -Pi/10 .. Pi/2],color =

> violet):

> p56 := plot([.75*sin(6*t)*cos(t)+8, .75*sin(6*t)*sin(t)-8.5, t = 0 ..

> 2*Pi],color = plum,view = [-10 .. 8, 6 .. -12],scaling = constrained):

> p57 := plot([-.5*cos(t)+8, 1.5*sin(t)-10, t = -Pi/10 .. Pi/2],color =

> maroon):

> p58 := plot([.2*cos(t)+8, .75*sin(t)-10.3, t = 0 .. Pi/2],color =

> green):

> p59 := plot([.4*cos(t)+8.1, sin(t)-10.3, t = 0 .. Pi/2],color =

> green):

> p60 := plot([.2*cos(t)+8.9, .75*sin(t)-10.3, t = 0 .. Pi/2],color =

> green):

> p61 := plot([.4*cos(t)+9, sin(t)-10.3, t = 0 .. Pi/2],color = green):

> p62 := plot([.2*cos(t)-6.5, .75*sin(t)-10.3, t = 0 .. Pi/2],color =

> green):

> p63 := plot([.4*cos(t)-6.4, sin(t)-10.3, t = 0 .. Pi/2],color =

> green):

> p64 := plot([.75*sin(5*t)*cos(t)-3, .75*sin(5*t)*sin(t)-8.5, t = 0 ..

> 2*Pi],color = orange):

> p65 := plot([-.5*cos(t)-3, 1.5*sin(t)-10, t = -Pi/10 .. Pi/2],color =

> green):

> 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,p

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

>