> with(plots):

Warning, the name changecoords has been redefined

> p1 := plot([3*cos(t), 5*sin(t), t=7*Pi/6..11*Pi/6], color=black,scaling=constrained):

> p2 := plot([.6*cos(t), 2*sin(t), t=-.4*Pi/6..Pi/5], color=black):

> p3 := plot([.5*cos(t), .9*sin(t)+1, t=2*Pi/2.5..7*Pi/3.4], color=black):

> p4 := plot([.9*cos(t)+1, 2*sin(t)+1.75, t=3.9*Pi/8..Pi/5.6], color=black):

> p5 := plot([-.5*(1-t)+.5*t, -.6*(1-t)-.6*t, t=0..1], color=black):

> p6 := plot([.9*cos(t)-.039, -2.8*sin(t)-1, t=3*Pi/3..11*Pi/8], color=black):

> p7 := plot([.9*cos(t)+3.5, -2*sin(t)-4.5, t=5.7*Pi/6..4.09*Pi/3], color=black):

> p8 := plot([t-4.75, sin(t), t=17*Pi/12..19*Pi/12], color=black):

> p9 := plot([-.2*(1-t)+.10*t, -4.051*(1-t)+(-3.75)*t, t=0..1], color=black):

> p10 := plot([-.2*(1-t)+.14*t, -4.051*(1-t)+(-4.051)*t, t=0..1], color=black):

> p11 := plot([1.1*cos(t)-4.1, -2.5*sin(t)-3, t=-.3*Pi/6..(1.3*Pi)/5], color=black):

> p12 := plot([.7*cos(t)-1.09, 2*sin(t)+1.68, t=1.3*Pi/2..5.5*Pi/6], color=black):

> p13 := plot([.3*(1-t)+.9*t, 2.75*(1-t)+2.5*t, t=0..1], color=black):

> p14 := plot([.3*(1-t)+.9*t, 2.75*(1-t)+2.55*t, t=0..1], color=black):

> p15 := plot([.3*(1-t)+.9*t, 2.75*(1-t)+2.525*t, t=0..1], color=black):

> p16 := plot([-.85*(1-t)+(-.45*t), 2.6*(1-t)+2.89*t, t=0..1], color=black):

> p17 := plot([-.45*(1-t)+(-.35*t), 2.89*(1-t)+2.85*t, t=0..1], color=black):

> p18 := plot([-.825*(1-t)+(-.45*t), 2.6*(1-t)+2.89*t, t=0..1], color=black):

> p19 := plot([-.45*(1-t)+(-.325*t), 2.89*(1-t)+2.85*t, t=0..1], color=black):

> p20 := plot([.18*(1-t)+(1.05*t), 3.48*(1-t)+3.67*t, t=0..1], color=black):

> p21 := plot([-1.37*(1-t)+(-.37*t), 3.54*(1-t)+3.44*t, t=0..1], color=black):

> p22 := plot([-.37*(1-t)+(-1.1)*t, 3.74*(1-t)+3.84*t, t=0..1], color=black):

> p23 := plot([.21*(1-t)+.92*t, 3.7*(1-t)+3.80*t, t=0..1], color=black):

> p24 := plot([-1.31*(1-t)+(-.59*t), 3.69*(1-t)+3.69*t, t=0..1], color=black):

> p25 := plot([-.59*(1-t)+(-.4)*t, 3.69*(1-t)+3.62*t, t=0..1], color=black):

> p26 := plot([.22*(1-t)+.77*t, 3.82*(1-t)+3.86*t, t=0..1], color=black):

> p27 := plot([-1.1*(1-t)+(-1.2)*t, 3.84*(1-t)+3.78*t, t=0..1], color=black):

> p28 := plot([.22*(1-t)+.77*t, 3.82*(1-t)+3.86*t, t=0..1], color=black):

> p29 := plot([-.27*(1-t)+(-.87)*t, 3.87*(1-t)+3.94*t, t=0..1], color=black):

> p30 := plot([.25*(1-t)+.79*t, 3.96*(1-t)+3.94*t, t=0..1], color=black):

> p31 := plot([.32*(1-t)+.59*t, 4.06*(1-t)+4.03*t, t=0..1], color=black):

> p32 := plot([-.15*(1-t)+(-.71)*t, 3.98*(1-t)+4.03*t, t=0..1], color=black):

> p33 := plot([.26*(1-t)+.63*t, 4.14*(1-t)+4.16*t, t=0..1], color=black):

> p34 := plot([.165*(1-t)+.40*t, 4.25*(1-t)+4.23*t, t=0..1], color=black):

> p35 := plot([-.08*(1-t)+(-.52)*t, 4.13*(1-t)+4.17*t, t=0..1], color=black):

> p36 := plot([.06*(1-t)+(-.38)*t, 4.23*(1-t)+4.25*t, t=0..1], color=black):

> p37 := plot([-.65*(1-t)+(-.35)*t, -1.5*(1-t)+(-1.7)*t, t=0..1], color=black):

> p38 := plot([2.2*cos(t)-.30, sin(t)-.7, t=2.983*Pi/2..3.2*Pi/2], color=black):

> p39 := plot([.37*(1-t)+.57*t, -1.64*(1-t)+(-1.41)*t, t=0..1], color=black):

> p40 := plot([2.5*sin(t), 1.25*cos(t)-.8, t=9.5*Pi/3..8.57*Pi/3], color=black):

> p41 := plot([-1.89*cos(t), -2.8*sin(t), t=5*Pi/6..3.2*Pi/3], color=black):

> p42 := plot([-1.53*(1-t)+(-1.17)*t, -1.64*(1-t)+(-1.91)*t, t=0..1], color=black):

> p43 := plot([cos(t)+.73, sin(t)-.97, t=73*Pi/45..37*Pi/20], color=black):

> p44 := plot([1.89*cos(t), 2.8*sin(t), t=7.212*Pi/6..5.9*Pi/6], color=black):

> p45 := plot([-1.88*(1-t)+(-1.92)*t, .10*(1-t)+.79*t, t=0..1], color=black):

> p46 := plot([1.77*(1-t)+1.84*t, 2.8*(1-t)+2.5*t, t=0..1], color=black):

> p47 := plot([.25*cos(t)+.45, .3*sin(t)+2.187, t=(7*Pi/6)+.25..(5*Pi/2)-1.25], color=black):

> p48 := plot([.2*(1-t)+.8*t, 2.5*(1-t)+2.2*t, t=0..1], color=black):

> p49 := plot([.80*(1-t)+.71*t, 2.2*(1-t)+2.43*t, t=0..1], color=black):

> p50 := plot([.2*(1-t)+.45*t, 2.5*(1-t)+2.54*t, t=0..1], color=black):

> p51 := plot([-.27*(1-t)+(-.83)*t, 2.55*(1-t)+2.36*t, t=0..1], color=black):

> p52 := plot([-.68*(1-t)+(-.64)*t, 2.43*(1-t)+2.6*t, t=0..1], color=black):

> p53 := plot([t-2. ,(t^3/19)-2.5, t=-3..(-.5)], color=black):

> p54 := plot([4.5*(cos(8*theta))*cos(theta)-2, (2.5*(cos(8*theta)))*sin(theta)+4.42, theta=(Pi/2)+.4..Pi-1.09], color=black):

> p55 := plot([.25*cos(t)-.42, .25*sin(t)+2.29, t=Pi-.5..(11*Pi/6)-.3], color=black):

> p56 := plot([.12*cos(t)-.465, .15*sin(t)+2.39, t=(2*Pi/3)+.5..2*Pi+1], color=black):

> p57 := plot([cos(t)-1.4, 3*sin(t)-2, t=Pi/2+.55..Pi-.071], color=black):

> p58 := plot([.2*t-2.55, (t^2)-2.5, t=-.03..(.8575)], color=black):

> p59 := plot([t*1.5+2.5, (-t^2)-2.5, t=0..1.375], color=black):

> p60 := plot([.4*t+1.8, (-t^2)+.6, t=.054..1.2], color=black):

> p61 := plot([(t*.1752)+2.5, (t^2)-2.52, t=0..-1.3], color=black):

> p62 := plot([((3*cos(3*cos(6*theta)))*cos(theta))+1.75, ((3*cos(3*cos(6*theta)))*sin(theta))+4.55, theta=(Pi/6)+.4357..(Pi/2)-.5], color=black):

> p63 := plot([.15*cos(t)+.45, .125*sin(t)+2.25, t=(5*Pi/6)-.65..13*Pi/6], color=black):

> p64 := plot([((.7*(2-2*sin(theta))/2)*cos(theta))-1.75,(((.9*(2-2*sin(theta)))/2)*sin(theta))+2.2, theta=Pi/2..Pi-.3], color=black):

> p65 := plot([.4*cos(t)-2, .7*sin(t)+1.79, t=2*Pi/3..(4*Pi/3)-.5], color=black):

> p66 := plot([t-1.85, 2*t^2+.95, t=-.2..-.5], color=black):

> p67 := plot([-1.9*(1-t)+(-2.07)*t, .83*(1-t)+1.04*t, t=0..1], color=black):

> p68 := plot([-1.8*(1-t)+(-1.8)*t, .59*(1-t)+(.76)*t, t=0..1], color=black):

> p69 := plot([.2*cos(t)-2, .2*sin(t)+.68, t=0..Pi/3], color=black):

> p70 := plot([.2*cos(t)+(-1.6), .15*sin(t)+.6, t=Pi..(3*Pi/2)-.25], color=black):

> p71 := plot([.15*cos(t)+(-1.65), .15*sin(t)+.6, t=3*Pi/2..(5*Pi/3)+.6], color=black):

> p72 := plot([1.5*cos(t)+1.8, sin(t)+1.5, t=(7*Pi/3)+.25..5*Pi/2], color=black):

> p73 := plot([.5*cos(t)+1.975, .5*sin(t)+2, t=(3*Pi/2)+.25..29*Pi/12], color=black):

> p74 := plot([.25*cos(t)+2.1, .25*sin(t)+1.27, t=Pi/2..Pi], color=black):

> p75 := plot([.2*cos(t)+2.052, .2*sin(t)+1.27, t=Pi..4*Pi/3], color=black):

> p76 := plot([.2*cos(t)+1.9, .23*sin(t)+0.8, t=13*Pi/6..7*Pi/6], color=black):

> p77 := plot([2.09*(1-t)+1.96*t, .86*(1-t)+1.08*t, t=0..1], color=black):

> p78 := plot([t^2+1.65, t+1.5, t=.085..-.5], color=black):

> p79 := plot([.5*cos(t)+2.14, .5*sin(t)+1.5, t=Pi..(Pi/2)+.82], color=black):

> p80 := plot([1.81*(1-t)+2.15*t, 1.88*(1-t)+2*t, t=0..1], color=black):

> p81 := plot([.25*cos(t)-2.05, .25*sin(t)+1.85, t=0..Pi/2], color=black):

> p82 := plot([.3*cos(t)-2, sin(t)+1.1, t=Pi/2..5*Pi/6-.3], color=black):

> p83 := plot([.2*cos(t)-2.01, .2*sin(t)+1.85, t=Pi..4*Pi/3-.2], color=black):

> p84 := plot([-2.14*(1-t)+(-1.83)*t, 1.69*(1-t)+1.24*t, t=0..1], color=black):

> p85 := plot([-1.83*(1-t)+(-1.73)*t, 1.24*(1-t)+1*t, t=0..1], 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, 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, p76, p77, p78, p79, p80, p81, p82, p83, p84, p85);