> with(plots);

> p1 := polarplot(6-cos(2*theta),theta = 0 .. 2*Pi,color = gold,scaling

> = constrained):

> %?:

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

> p3 := plot([2+.8*cos(t), 2+.7*sin(t), t = 0 .. 2*Pi],color = blue):

> p4 := plot([9*cos(t)+cos(10*t), 9*sin(t)+sin(10*t), t = -Pi/3 ..

> 4*Pi/3],color = green):

> p5 := plot([2.2+.8*cos(t), 3.2-1.5*sin(t), t = 8*Pi/7 ..

> 13*Pi/7],color = cyan):

> p6 := plot([-2.2+.8*cos(t), 3.2-1.5*sin(t), t = 8*Pi/7 ..

> 13*Pi/7],color = cyan):

> p7 := plot([1.2*cos(t), 1.2*sin(t), t = 0 .. 2*Pi],color = red):

> p8 := plot([3.3*cos(t), -.7+3.8*sin(t), t = 5*Pi/4 .. 7*Pi/4],color =

> magenta):

> p9 := polarplot(1.2*sin(50*theta),theta = 0 .. 2*Pi,scaling =

> constrained,color = red):

> p10 := plot([2+.4*cos(t), 2.35+.4*sin(t), t = 0 .. 2*Pi],color =

> black):

> p11 := plot([-2+.4*cos(t), 2.35+.4*sin(t), t = 0 .. 2*Pi],color =

> black):

> p12 := plot([2.2+.6*cos(t), -.75+.6*sin(t), t = 0 .. 2*Pi],color =

> coral):

> p13 := plot([-2.2+.6*cos(t), -.75+.6*sin(t), t = 0 .. 2*Pi],color =

> coral):

> p14 := plot([12*cos(t)+14.5, (-3)*sin(t)-6.25, t = 0 .. Pi],scaling =

> constrained):

> p15 := plot([12*cos(t)-14.5, (-3)*sin(t)-6.25, t = 0 .. Pi],scaling =

> constrained):

> p16 := plot([18*cos(t)+11, (-4)*sin(t)-11, t = 0 .. Pi/2],scaling =

> constrained):

> p17 := plot([-18*cos(t)-11, (-4)*sin(t)-11, t = 0 .. Pi/2],scaling =

> constrained):

> p18 := plot([26.63*(1-t)+29*t, -6.06*(1-t)+(-11)*t, t = 0 .. 1]):

> p19 := plot([(-26.52)*(1-t)-29*t, (-6.27)*(1-t)-11*t, t = 0 .. 1]):

> p20 := plot([2*cos(t)+11, 26*sin(t)-41, t = Pi/2 .. 3*Pi/2]):

> p21 := plot([-2*cos(t)-11, 26*sin(t)-41, t = Pi/2 .. 3*Pi/2]):

> p22 := plot([-1.5*cos(t), 26.5*sin(t)-66.5, t = 0 .. Pi/2]):

> p23 := plot([1.5*cos(t), 26.5*sin(t)-66.5, t = 0 .. Pi/2]):

> p24 := plot([10.75*(1-t)+1.5*t, -67*(1-t)-66.5*t, t = 0 .. 1]):

> p25 := plot([-10.75*(1-t)-1.5*t, -66.5*(1-t)-66*t, t = 0 .. 1]):

> p26 := plot([3*cos(t)+30, 3*sin(t), t = 0 .. 2*Pi],color = orange):

> p27 := plot([3*cos(t)-30, 3*sin(t), t = 0 .. 2*Pi],color = orange):

> p28 := plot([3*cos(t)-25.5, 3*sin(t)+12.5, t = 0 .. 2*Pi],color =

> orange):

> p29 := plot([3*cos(t)-17.5, 3*sin(t)+20, t = 0 .. 2*Pi],color =

> orange):

> p30 := plot([3*cos(t)-7, 3*sin(t)+24, t = 0 .. 2*Pi],color = orange):

> p31 := plot([3*cos(t)+25.5, 3*sin(t)+12.5, t = 0 .. 2*Pi],color =

> orange):

> p32 := plot([3*cos(t)+17.5, 3*sin(t)+20, t = 0 .. 2*Pi],color =

> orange):

> p33 := plot([3*cos(t)+7, 3*sin(t)+24, t = 0 .. 2*Pi],color = orange):

> p34 := plot([-4*sqrt(2)*cos(t)-.75*sqrt(2)*sin(t)+28,

> -4*sqrt(2)*cos(t)+.75*sqrt(2)*sin(t)-9, t = Pi/2 .. 3*Pi/2],color =

> gold):

> p35 := plot([4*sqrt(2)*cos(t)+.75*sqrt(2)*sin(t)-28,

> -4*sqrt(2)*cos(t)+.75*sqrt(2)*sin(t)-9, t = Pi/2 .. 3*Pi/2],color =

> gold):

> p36 := plot([2.5*cos(t), 2.5*sin(t)-15, t = 0 .. 2*Pi],color = navy):

> p37 := plot([2.5*cos(t), 2.5*sin(t)-22, t = 0 .. 2*Pi],color = navy):

> p38 := plot([2.5*cos(t), 2.5*sin(t)-29, t = 0 .. 2*Pi],color = navy):

> p39 := plot([2.5*cos(t), 2.5*sin(t)-36, t = 0 .. 2*Pi],color = navy):

> p40 := plot([1.8*cos(t), 1.8*sin(t)-9, t = 0 .. 2*Pi],color = navy):

> p41 := plot([-3*cos(t)+2.75, 1.8*sin(t)-9, t = Pi/4 .. 7*Pi/4],color =

> navy):

> p42 := plot([3*cos(t)-2.75, 1.8*sin(t)-9, t = Pi/4 .. 7*Pi/4],color =

> navy):

> p43 := plot([3.3*(1-t)+3.3*t, -66.5*(1-t)-68*t, t = 0 .. 1],color =

> green):

> p44 := plot([3.3*(1-t)+1.8*t, -68*(1-t)-68*t, t = 0 .. 1],color =

> green):

> p45 := plot([1.3*(1-t)+1.3*t, -68*(1-t)-71.5*t, t = 0 .. 1],color =

> green):

> p46 := plot([1.3*(1-t)+15*t, -71.5*(1-t)-71.5*t, t = 0 .. 1],color =

> green):

> p47 := plot([10.7*(1-t)+15*t, -67*(1-t)-67*t, t = 0 .. 1],color =

> green):

> p48 := plot([-2*cos(t)+15, 2.25*sin(t)-69.25, t = Pi/2 ..

> 3*Pi/2],color = green):

> p49 := plot([-4*(1-t)-4*t, -66.5*(1-t)-68*t, t = 0 .. 1],color =

> green):

> p50 := plot([-4*(1-t)-2*t, -68*(1-t)-68*t, t = 0 .. 1],color = green):

> p51 := plot([-2*(1-t)-2*t, -68*(1-t)-71.5*t, t = 0 .. 1],color =

> green):

> p52 := plot([-2*(1-t)-15.7*t, -71.5*(1-t)-71.5*t, t = 0 .. 1],color =

> green):

> p53 := plot([-10.7*(1-t)-15.7*t, -67*(1-t)-67*t, t = 0 .. 1],color =

> green):

> p54 := plot([2*cos(t)-15.7, 2.25*sin(t)-69.25, t = Pi/2 ..

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

>