> with(plots):

> p1 := plot([sin(t), 1.40*cos(t)+5, t = 0 .. 2*Pi],color =

> yellow,scaling = constrained):

> p2 := plot([cos(t)/2, 6.67+3*sin(t), t = 5*Pi/4 .. 7*Pi/4],color =

> red):

> p3 := plot([t, 4.54, t = -.36 .. .36],color = red):

> p4 := plot([-.5+sin(t)/8, 5.75+cos(t)/8, t = 0 .. 2*Pi],color =

> violet):

> p5 := plot([.5+sin(t)/8, 5.75+cos(t)/8, t = 0 .. 2*Pi],color = black):

> p6 := plot([sin(t)/3, cos(t)/4+5, t = 0 .. 2*Pi],color = green):

> p7 := plot([.5+sin(t)/16, 5.75+cos(t)/16, t = 0 .. 2*Pi],color =

> pink):

> p8 := plot([.5+sin(t)/32, 5.75+cos(t)/32, t = 0 .. 2*Pi],color =

> pink):

> p9 := plot([-.5+sin(t)/16, 5.75+cos(t)/16, t = 0 .. 2*Pi],color =

> pink):

> p10 := plot([-.5+sin(t)/32, 5.75+cos(t)/32, t = 0 .. 2*Pi],color =

> pink):

> p11 := plot([1+sin(t)/5, 5+cos(t)/3, t = 0 .. Pi],color = brown):

> p12 := plot([-1-sin(t)/5, 5+cos(t)/3, t = 0 .. Pi],color = brown):

> p13 := plot([t, 6, t = -.6 .. -.4],color = brown):

> p14 := plot([t, 6, t = .4 .. .6],color = brown):

> p15 := plot([-.25, t, t = 3 .. 3.64],color = brown):

> p16 := plot([.25, t, t = 3 .. 3.64],color = brown):

> p17 := plot([3*sin(t), 6-3*cos(t), t = -1.8 .. -.11],color = green):

> p18 := plot([3.7*sin(t), 5.5-3*cos(t), t = -1.9 .. -.2],color =

> green):

> p19 := plot([-.5+4.5*sin(t), .2+3*cos(t), t = .175 .. 1.75],color =

> green):

> p20 := plot([3.7*sin(t), -.5+3*cos(t), t = .2 .. 1.55],color = green):

> p21 := plot([.95, t, t = 0 .. 2.4],color = green):

> p22 := plot([-.90, t, t = 0 .. 2.55],color = green):

> p23 := plot([t, 2.2*t+1.25, t = 0 .. .85],color = green):

> p24 := plot([t, (-2.2)*t+1.25, t = -.85 .. 0],color = green):

> p25 := plot([sin(t)/16, 1+cos(t)/16, t = 0 .. 2*Pi],color = blue):

> p26 := plot([sin(t)/16, .75+cos(t)/16, t = 0 .. 2*Pi],color = blue):

> p27 := plot([sin(t)/16, .5+cos(t)/16, t = 0 .. 2*Pi],color = blue):

> p28 := plot([sin(t)/16, .25+cos(t)/16, t = 0 .. 2*Pi],color = blue):

> p29 := plot([t, 0, t = -.93 .. .93],color = red):

> p30 := plot([-.92, t, t = -.5 .. 0],color = red):

> p31 := plot([.92, t, t = -.5 .. 0],color = red):

> p32 := plot([t, -.5, t = -.93 .. .93],color = red):

> p33 := plot([-.7, t, t = -.5 .. 0],color = orange):

> p34 := plot([-.6, t, t = -.5 .. 0],color = orange):

> p35 := plot([.7, t, t = -.5 .. 0],color = orange):

> p36 := plot([.6, t, t = -.5 .. 0],color = orange):

> p37 := plot([sin(t)/4, -.25+cos(t)/4, t = 0 .. 2*Pi],color = cyan):

> p38 := plot([.92, t, t = -4 .. -.5],color = blue):

> p39 := plot([-.92, t, t = -4 .. -.5],color = blue):

> p40 := plot([-.2, t, t = -4 .. -1.6],color = blue):

> p41 := plot([.2, t, t = -4 .. -1.6],color = blue):

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

> blue):

> p43 := plot([t, 6.4, t = -.95 .. .95],color = brown):

> p44 := plot([t, 6.45, t = -.94 .. .94],color = brown):

> p45 := plot([t, 6.5, t = -.93 .. .93],color = brown):

> p46 := plot([t, 6.53, t = -.92 .. .92],color = brown):

> p47 := plot([t, 6.57, t = -.9 .. .9],color = brown):

> p48 := plot([t, 6.6, t = -.86 .. .86],color = brown):

> p49 := plot([t, 6.35, t = -.95 .. -.2],color = brown):

> p50 := plot([t, 6.37, t = -.95 .. -.35],color = brown):

> p51 := plot([t, 6.33, t = -.95 .. -.4],color = brown):

> p52 := plot([t, 6.3, t = -.95 .. -.45],color = brown):

> p53 := plot([t, 6.25, t = -.95 .. -.5],color = brown):

> p54 := plot([t, 6.21, t = -.95 .. -.55],color = brown):

> p55 := plot([t, 6.17, t = -.95 .. -.59],color = brown):

> p56 := plot([t, 6.13, t = -.95 .. -.63],color = brown):

> p57 := plot([t, 6.09, t = -.95 .. -.67],color = brown):

> p58 := plot([t, 6.35, t = .2 .. .95],color = brown):

> p59 := plot([t, 6.37, t = .35 .. .95],color = brown):

> p60 := plot([t, 6.33, t = .4 .. .95],color = brown):

> p61 := plot([t, 6.3, t = .45 .. .95],color = brown):

> p62 := plot([t, 6.25, t = .5 .. .95],color = brown):

> p63 := plot([t, 6.21, t = .55 .. .95],color = brown):

> p64 := plot([t, 6.17, t = .59 .. .95],color = brown):

> p65 := plot([t, 6.13, t = .63 .. .95],color = brown):

> p66 := plot([t, 6.09, t = .67 .. .95],color = brown):

> p67 := plot([t^2/5+.15, -t/4+5.1, t = 0 .. 1],color = violet):

> p68 := plot([-t^2/5-.15, t/4+5.1, t = -1 .. 0],color = violet):

> p69 := plot([t-.55, cos(t)^1.75/2+4.5, t = .8 .. Pi/5],color =

> violet):

> p70 := plot([t+.55, cos(-t)^1.75/2+4.5, t = -Pi/5 .. -.8],color =

> violet):

> display(p1,p2,p3,p4,p5,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p1

> 9,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,p5

> 4,p55,p56,p57,p58,p59,p60,p61,p62,p63,p64,p65,p66,p67,p68,p69,p70);

> p71 := plot([-abs(sin(5*t))*cos(t)+3.75, -abs(sin(5*t))*sin(t)-.25, t

> = 0 .. Pi],color = brown):

> p72 := plot([abs(sin(5*t))*cos(t)-3.25, abs(sin(5*t))*sin(t)+6.55, t =

> 0 .. Pi],color = brown):

> %?;

> p73 := plot([-sin(t)/2+1.45, t-5.25, t = 0 .. Pi/2],color = blue):

> p74 := plot([-sin(t)/2+.3, t-5.25, t = 0 .. Pi/2],color = blue):

> p75 := plot([sin(t)/2-1.4, t-5.25, t = 0 .. Pi/2],color = blue):

> p76 := plot([sin(t)/2-.33, t-5.25, t = Pi/4 .. Pi/2],color = blue):

> p77 := plot([t, -5.23, t = -1.42 .. 1.42],color = blue):

> p78 := plot([-1, t, t = -5.23 .. -5.7],color = brown):

> p79 := plot([-.2, t, t = -5.23 .. -7],color = brown):

> p80 := plot([-t-.2, sin(t)-6.4, t = Pi/4 .. 3*Pi/4],color = brown):

> p81 := plot([t+.2, sin(t)-6.4, t = Pi/4 .. 3*Pi/4],color = brown):

> p82 := plot([.2, t, t = -5.23 .. -7],color = brown):

> p83 := plot([1, t, t = -5.23 .. -5.7],color = brown):

> p84 := plot([t, -7, t = .2 .. 2.56],color = brown):

> p85 := plot([t, -7, t = -.2 .. -2.56],color = brown):

> p86 := plot([-2.56, t, t = -5.68 .. -7],color = brown):

> p87 := plot([2.56, t, t = -5.68 .. -7],color = brown):

> p88 := plot([2*sin(t)+5, 2*cos(t)+6, t = 0 .. 2*Pi],color = grey):

> p89 := plot([5, t, t = 8.5 .. 8],color = grey):

> display(p1,p2,p3,p4,p5,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p1

> 9,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,p5

> 4,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,p8

> 9);

>