> with(plots):

> p1 := plot([35*cos(t/2), 1*sin(t^2), t = -16*Pi .. 2*Pi],color =

> green,scaling = constrained):

> p2 := plot([4*cos(t^3)+cos(100*t^5)+20, 4*sin(t^3)+sin(100*t^5)+35, t

> = -8*Pi .. 8*Pi],color = yellow):

> p3 := plot([3*cos(t)+cos(8*t)-20, 3*sin(t)+sin(8*t)+10, t = -4*Pi ..

> 4*Pi],color = green):

> p4 := plot([3*cos(t)+cos(8*t)-14, 3*sin(t)+sin(8*t)+15, t = -4*Pi ..

> 4*Pi],color = orange):

> p5 := plot([3*cos(t)+cos(8*t)-25, 3*sin(t)+sin(8*t)+17, t = -4*Pi ..

> 4*Pi],color = red):

> p6 := plot([cos(t/5)-21.5, t, t = 0 .. 5*Pi/2],color = brown):

> p7 := plot([sin(t/5)-19.5, t, t = 0 .. 5*Pi/2],color = brown):

> p8 := plot([cos(t/5)-25, t, t = 0 .. 5*Pi],color = brown):

> p9 := plot([cos(t/5)-23, t, t = 0 .. 5*Pi],color = brown):

> p10 := plot([sin(t/5)-14, t, t = 0 .. 4*Pi],color = brown):

> p11 := plot([sin(t/5)-16, t, t = 0 .. 4*Pi],color = brown):

> p12 := plot([2, 7.5*cos(t)+7.5, t = 0 .. 4*Pi],color = black):

> p13 := plot([6*cos(t)+8, 6*cos(t)+21, t = 0 .. 4*Pi],color = black):

> p14 := plot([-6*cos(t)+20, 6*cos(t)+21, t = 0 .. 4*Pi],color = black):

> p15 := plot([26, 7.5*cos(t)+7.5, t = 0 .. 4*Pi],color = black):

> p16 := plot([12*cos(t)+14, 15, t = 0 .. 4*Pi],color = black):

> p17 := plot([12, 4.6*cos(t)+4.6, t = 0 .. 4*Pi],color = black):

> p18 := plot([16.5, 4.6*cos(t)+4.6, t = 0 .. 4*Pi],color = black):

> p19 := plot([2.3*cos(t)+14.3, 9.3, t = 0 .. 4*Pi],color = black):

> p20 := plot([23, 4.3*cos(t)+22, t = 0 .. 4*Pi],color = red):

> p21 := plot([20, 2.6*cos(t)+23.77, t = 0 .. 4*Pi],color = red):

> p22 := plot([1.4*cos(t)+21.7, 26.3, t = 0 .. 4*Pi],color = red):

> p23 := plot([cos(t)+20.2, t+25.5, t = 0 .. 4*Pi],color = gray):

> p24 := plot([cos(t)+20.8, t+25.5, t = 0 .. 4*Pi],color = gray):

> p25 := plot([cos(t)+21.4, t+25.5, t = 0 .. 4*Pi],color = gray):

> p26 := plot([cos(t)+22, t+25.5, t = 0 .. 4*Pi],color = gray):

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

> p28 := plot([9, 3*cos(t)+9.5, t = 0 .. 4*Pi],color = black):

> p29 := plot([2*cos(t)+7, 12.5, t = 0 .. 4*Pi],color = black):

> p30 := plot([5.1, 3*cos(t)+9.5, t = 0 .. 4*Pi],color = black):

> p31 := plot([2*cos(t)+7, 6.5, t = 0 .. 4*Pi],color = black):

> p32 := plot([7.15, 3*cos(t)+9.5, t = 0 .. 4*Pi],color = black):

> p33 := plot([2*cos(t)+7, 9.5, t = 0 .. 4*Pi],color = black):

> p34 := plot([19.2, 3*cos(t)+9.5, t = 0 .. 4*Pi],color = black):

> p35 := plot([23.3, 3*cos(t)+9.5, t = 0 .. 4*Pi],color = black):

> p36 := plot([2*cos(t)+21.3, 6.5, t = 0 .. 4*Pi],color = black):

> p37 := plot([2*cos(t)+21.3, 9.5, t = 0 .. 4*Pi],color = black):

> p38 := plot([2*cos(t)+21.3, 12.5, t = 0 .. 4*Pi],color = black):

> p39 := plot([21.35, 3*cos(t)+9.5, t = 0 .. 4*Pi],color = black):

> p40 := plot([2*cos(t)+sin(4*t)/2+55, 2*sin(t)+cos(4*t)/2+40, t = 0 ..

> 8*Pi],color = yellow):

> p41 := plot([9*cos(t)+sin(6*t)/5-2, 3*sin(t)+cos(6*t)/5+35, t = 0 ..

> 8*Pi],color = gray):

> p42 := plot([9*cos(t)+.33*sin(7*t)-25, 3*sin(t)+cos(8*t)/2+35, t = 0

> .. 8*Pi],color = gray):

> p43 := plot([35*cos(t/2)+75, 1*sin(t^2), t = -16*Pi .. 2*Pi],color =

> gray):

> p44 := plot([cos(t/5)+55.5, t, t = 0 .. 5*Pi/2],color = brown):

> p45 := plot([sin(t/5)+58, t, t = 0 .. 5*Pi/2],color = brown):

> p46 := plot([cos(t/5)+51, t, t = 0 .. 5*Pi],color = brown):

> p47 := plot([cos(t/5)+53, t, t = 0 .. 5*Pi],color = brown):

> p48 := plot([sin(t/5)+60, t, t = 0 .. 4*Pi],color = brown):

> p49 := plot([sin(t/5)+62, t, t = 0 .. 4*Pi],color = brown):

> p50 := plot([78, 3*cos(t)+9.5, t = 0 .. 4*Pi],color = black):

> p51 := plot([2*cos(t)+78, 12.5, t = 0 .. 4*Pi],color = black):

> p52 := plot([79.8, 3*cos(t)+9.5, t = 0 .. 4*Pi],color = black):

> p53 := plot([2*cos(t)+78, 6.5, t = 0 .. 4*Pi],color = black):

> p54 := plot([7.15+69, 3*cos(t)+9.5, t = 0 .. 4*Pi],color = black):

> p55 := plot([2*cos(t)+78, 9.5, t = 0 .. 4*Pi],color = black):

> p56 := plot([19.2+69, 3*cos(t)+9.5, t = 0 .. 4*Pi],color = black):

> p57 := plot([23.3+69, 3*cos(t)+9.5, t = 0 .. 4*Pi],color = black):

> p58 := plot([2*cos(t)+21.3+69, 6.5, t = 0 .. 4*Pi],color = black):

> p59 := plot([2*cos(t)+21.3+69, 9.5, t = 0 .. 4*Pi],color = black):

> p60 := plot([2*cos(t)+21.3+69, 12.5, t = 0 .. 4*Pi],color = black):

> p61 := plot([21.35+69, 3*cos(t)+9.5, t = 0 .. 4*Pi],color = black):

> %?:p62 := plot([71, 7.5*cos(t)+7.5, t = 0 .. 4*Pi],color = black):

> p63 := plot([6*cos(t)+8+69, 6*cos(t)+21, t = 0 .. 4*Pi],color =

> black):

> p64 := plot([-6*cos(t)+20+69, 6*cos(t)+21, t = 0 .. 4*Pi],color =

> black):

> p65 := plot([26+69, 7.5*cos(t)+7.5, t = 0 .. 4*Pi],color = black):

> p66 := plot([12*cos(t)+14+69, 15, t = 0 .. 4*Pi],color = black):

> p67 := plot([12+70, 4.6*cos(t)+4.6, t = 0 .. 4*Pi],color = black):

> p68 := plot([16.5+70, 4.6*cos(t)+4.6, t = 0 .. 4*Pi],color = black):

> p69 := plot([2.3*cos(t)+84.5, 9.3, t = 0 .. 4*Pi],color = black):

> p70 := plot([sin(t)/2+12.9+70.5, cos(t)/2+5, t = 0 .. 2*Pi],color =

> black):

> p71 := plot([23+69, 4.3*cos(t)+22, t = 0 .. 4*Pi],color = red):

> p72 := plot([20+69, 2.6*cos(t)+23.77, t = 0 .. 4*Pi],color = red):

> p73 := plot([1.4*cos(t)+21.7+69, 26.3, t = 0 .. 4*Pi],color = red):

> %?:p74 := plot([cos(t)+20.2+69, t+25.5, t = 0 .. 4*Pi],color = gray):

> p75 := plot([cos(t)+20.8+69, t+25.5, t = 0 .. 4*Pi],color = gray):

> p76 := plot([cos(t)+22+69, t+25.5, t = 0 .. 4*Pi],color = gray):

> p77 := plot([cos(t)+21.4+69, t+25.5, t = 0 .. 4*Pi],color = gray):

> p78 := plot([cos(t/1.5)+54.6, t+8, t = 0 .. 4*Pi],color = brown):

> p79 := plot([sin(t/1.5)+55-t, t+12, t = 0 .. 3*Pi],color = brown):

> p80 := plot([cos(t/1.5)+58, t+8, t = 0 .. 4*Pi],color = brown):

> p81 := plot([sin(t/1.5)+58+t, t+13, t = 0 .. 3*Pi],color = brown):

> p82 := plot([sin(t/1.5)+52, t+15, t = 0 .. 3*Pi],color = brown):

> p83 := plot([sin(t/1.5)+50, t+15, t = 0 .. 3*Pi],color = brown):

> p84 := plot([sin(t/1.5)+52+t, t+19, t = 0 .. 3*Pi],color = brown):

> p85 := plot([sin(t/1.5)+62.4, t+12.5, t = 0 .. 3*Pi],color = brown):

> p86 := plot([sin(t/1.5)+60.4, t+12.5, t = 0 .. 3*Pi],color = brown):

> p87 := plot([sin(t/1.5)+62.4+t, t+12.5, t = 0 .. 3*Pi],color = brown):

> p88 := plot([sin(t/1.5)+50-t, t+11, t = 0 .. 3*Pi],color = brown):

> p89 := plot([7*sin(t)-2*t+90, 7*cos(t)+37.6, t = 0 .. Pi*1.05],color =

> yellow):

> p90 := plot([9*sin(t)-2*t+90, 9*cos(t)+37+.5*t, t = 0 ..

> Pi*1.07],color = yellow):

> p91 := plot([sin(6*t)+cos(10*t)+cos(t)+65,

> cos(6*t)+sin(10*t)+sin(t)+35, t = 0 .. 2*Pi],color = yellow):

> p92 := plot([sin(6*t)+cos(10*t)+cos(t)+100,

> cos(6*t)+sin(10*t)+sin(t)+42, t = 0 .. 2*Pi],color = yellow):

> p93 := plot([sin(6*t)+cos(10*t)+cos(t)+85,

> cos(6*t)+sin(10*t)+sin(t)+40, t = 0 .. 2*Pi],color = yellow):

> p94 := plot([2*cos(t)+sin(4*t)/2+75, 2*sin(t)+cos(4*t)/2+42, t = 0 ..

> 8*Pi],color = yellow):

> p95 := plot([sin(6*t)+cos(10*t)+cos(t)+77,

> cos(6*t)+sin(10*t)+sin(t)+30, t = 0 .. 2*Pi],color = yellow):

> p96 := plot([2*cos(t)+sin(4*t)/2+105, 2*sin(t)+cos(4*t)/2+30, t = 0 ..

> 8*Pi],color = yellow):

> p97 := plot([37, 30*cos(t)+30, t = 0 .. 4],color = black):

> p98 := plot([-2*(sin(theta)+cos(2*theta))+5,

> 2*(cos(theta)+sin(2*theta)), theta = -Pi/6 .. Pi/2],color = green):

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

> 2*(cos(theta)+sin(2*theta)), theta = -Pi/6 .. Pi/2],color = green):

> p100 := plot([5, 2*t, t = 0 .. 2],color = green):

> p101 := plot([sin(3*theta)+cos(4*theta)+5,

> cos(3*theta)+sin(4*theta)+6, theta = 0 .. 10]):

> p102 := plot([-2*(sin(theta)+cos(2*theta))+22,

> 2*(cos(theta)+sin(2*theta)), theta = -Pi/6 .. Pi/2],color = green):

> p103 := plot([2*(sin(theta)+cos(2*theta))+22,

> 2*(cos(theta)+sin(2*theta)), theta = -Pi/6 .. Pi/2],color = green):

> p104 := plot([22, 2*t, t = 0 .. 2],color = green):

> p105 := plot([sin(3*theta)+cos(8*theta)+22,

> cos(3*theta)+sin(8*theta)+6, theta = 0 .. 10],color = magenta):

> %?:

> P1 :=

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

> 9,p20,p21,p22,p23,p24,p25):

> P2 := display(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,

> p2):

> P3 := display(p51, p52, p53, p54, p55, p56, p57, p58, p59, p60, p61,

> p62, p63, p64, p65, p66, p67, p68, p69, p70, p71, p72, p73, p74, p75):

> P4 :=

> display(p76,p77,p78,p79,p80,p81,p82,p83,p84,p85,p86,p87,p88,p89,p90,p9

> 1,p92,p93,p94,p95,p96,p97,p98,p99,p100,p101,p102,p103,p104,p105):

> display(P1,P2,P3,P4);

>