jill

> with(plots):

Warning, the name changecoords has been redefined

> p1:=plot([20*cos(t),20*sin(t),t=0..2*Pi],thickness=5):

> p2:=plot([15*cos(t)+22.36,15*sin(t),t=4*Pi/3..13*Pi/12],thickness=3):

> p3:=plot([15*cos(t)-22.66,15*sin(t),t=Pi/3..-Pi/3],thickness=3):

> p4:=plot([-7-9.98*t,-16-19*t,t=-.9..1]):

> p5:=plot([-14.56+t,12.59+2.5*t,t=-.75..0]):

> p6:=plot([-13.53+t,11.79+2.5*t,t=-.68..0]):

> p7:=plot([-12.8+t,11.22+2.5*t,t=-.70..0]):

> p8:=plot([-12.05+t,10.54+2.3*t,t=-.75..0]):

> p9:=plot([-11.15+t,9.49+2.4*t,t=-.70..0]):

> p10:=plot([-10.12+t,8.15+2.4*t,t=-.69..0]):

> p11:=plot([-9.55+t,7.35+2.2*t,t=-.70..0]):

> p12:=plot([1/2*sqrt(3)*(-17+2*cos(t))-35/2+1/4*sin(t)+15.66,17/2-cos(t)+1/2*sqrt(3)*(-35+1/2*sin(t))-13.7,t=0..2*Pi],scaling=constrained):

> p13:=plot([1/2*sqrt(3)*(3.09+4*cos(t))+1.225000000+.5/2*sin(t)+1,-1.545000000-2*cos(t)+1/2*sqrt(3)*(2.45+sin(t))+.5,t=0..2*Pi],color=navy,thickness=3):

> p14:=plot([1.690000000+11*cos(t)-1/2*sqrt(3)*(-.22+sin(t))-7,(1/2*sqrt(3)*(3.38+22*cos(t))-.1100000000+1/2*sin(t))-21.5,t=0..2.7488935718]):

> p15:=plot([1.690000000+11*cos(t)-1/2*sqrt(3)*(-.22+sin(t))-9,1/2*sqrt(3)*(3.38+22*cos(t))-.1100000000+1/2*sin(t)-19,t=3.4033920413889427..6.02138591]):

> p16:=plot([-16.36+20.67*t,-34.94+36.32*t,t=0..1]):

> p17:=plot([1/2*sqrt(3)*(4.77+10*cos(t))+.5900000000+3/2*sin(t)+.75,-2.385000000-5*cos(t)+1/2*sqrt(3)*(1.18+3*sin(t))+2,t=-23*Pi/48..4.572762640225143],color=navy,thickness=3):

> p18:=plot([2.35+.21*t,8.42+5.63*t,t=0..1],thickness=3):

> p19:=plot([11.37+5.6*t-.35,2.39+5.08*t,t=0..1],thickness=3):

> p20:=plot([-8.96+20*cos(t)+10,-6.23+20*sin(t)+.75,t=1.500983156715124..10.78*Pi/48],thickness=3):

> p21:=plot([.7933986e-3+3.939231012*cos(t)-.3472963554*sin(t)+2,5.696683190+.6945927108*cos(t)+1.969615506*sin(t)-.5,t=3*Pi/4..1.53588974175501],color=navy,thickness=3):

> p22:=plot([.9986295348*cos(1/12*Pi)*(11.86500000-4*cos(t)-sin(.7083333333*Pi)*(.9e-1+2*sin(t)))+.9986295348*sin(1/12*Pi)*(sin(.7083333333*Pi)*(11.87+4*cos(t))+cos(.7083333333*Pi)*(.9e-1+2*sin(t))-10.54)-.4670639204+.5233595624e-1*sin(1/12*Pi)*(11.86500000-4*cos(t)-sin(.7083333333*Pi)*(.9e-1+2*sin(t)))-.5233595624e-1*cos(1/12*Pi)*(sin(.7083333333*Pi)*(11.87+4*cos(t))+cos(.7083333333*Pi)*(.9e-1+2*sin(t))-10.54)-.5,.5233595624e-1*cos(1/12*Pi)*(11.86500000-4*cos(t)-sin(.7083333333*Pi)*(.9e-1+2*sin(t)))+.5233595624e-1*sin(1/12*Pi)*(sin(.7083333333*Pi)*(11.87+4*cos(t))+cos(.7083333333*Pi)*(.9e-1+2*sin(t))-10.54)+3.179913724-.9986295348*sin(1/12*Pi)*(11.86500000-4*cos(t)-sin(.7083333333*Pi)*(.9e-1+2*sin(t)))+.9986295348*cos(1/12*Pi)*(sin(.7083333333*Pi)*(11.87+4*cos(t))+cos(.7083333333*Pi)*(.9e-1+2*sin(t))-10.54),t= 3.665191429188092..5.235987755982989],color=navy,thickness=3):

> p23:=plot([1/2*sqrt(3)*(7*cos(t)+8)+2.865000000+2*sin(t)-2.5,-7/2*cos(t)-4+1/2*sqrt(3)*(5.73+4*sin(t))+4.5,t=21*Pi/24..9*Pi/48],thickness=3):

> p24:=plot([1/2*sqrt(3)*(7*cos(t)+8)+2.865000000+2*sin(t)-2.5-2,-7/2*cos(t)-4+1/2*sqrt(3)*(5.73+4*sin(t))+4.5-2.5,t=18.5*Pi/24..10.88*Pi/48],color=navy,thickness=3):

> p25:=plot([3.6+.34*t,10.32+4.07*t,t=0..1],thickness=8):

> p26:=plot([6.14+1.52*t,10.16+3.21*t,t=0..1],thickness=9):

> p27:=plot([9.18+1.36*t,9.14+2.88*t,t=0..1], thickness=9):

> p28:=plot([11.04+2.03*t,7.96+2.53*t,t=0..1],thickness=8):

> p29:=plot([12.74+2.19*t,6.09+2.71*t,t=0..1],thickness=7):

> p30:=plot([3.11+.86*t,8.33+1.29*t,t=0..1],color=black):

> p31:=plot([4.4-.43*t,8.41+1.21*t,t=0..1],color=black):

> p32:=plot([3.11+1.29*t,9.1-.69*t,t=0..1],color=black):

> p33:=plot([4.4-1.29*t,9.36-.26*t,t=0..1],color=black):

> p34:=plot([4.4-1.29*t,9.36-.26*t,t=0..1],color=black):

> p35:=plot([4.4-1.29*t,9.36-1.03*t,t=0..1],color=black):

> p36:=plot([5.17+1.38*t,8.24+.78*t,t=0..1],color=black):

> p37:=plot([6.55,7.64+1.38*t,t=0..1],color=black):

> p38:=plot([5.43+1.12*t,9.02-1.38*t,t=0..1],color=black):

> p39:=plot([6.9-1.47*t,8.5+.52*t,t=0..1],color=black):

> p40:=plot([6.9-1.73*t,8.5-.26*t,t=0..1],color=black):

> p41:=plot([7.61+1.9*t,7.17+.51*t,t=0..1],color=black):

> p42:=plot([9.07+.44*t,6.48+1.2*t,t=0..1],color=black):

> p43:=plot([8.04+1.03*t,7.77-1.29*t,t=0..1],color=black):

> p44:=plot([9.68-1.64*t,7.17+.6*t,t=0..1],color=black):

> p45:=plot([7.61+2.07*t,7.17,t=0..1],color=black):

> p46:=plot([10.37+1.64*t,5.35-.17*t,t=0..1],color=black):

> p47:=plot([11.32+.69*t,4.23+.95*t,t=0..1],color=black):

> p48:=plot([10.97+.35*t,5.79-1.74*t,t=0..1],color=black):

> p49:=plot([12.01-1.04*t,4.58+1.21*t,t=0..1],color=black):

> p50:=plot([10.37+1.64*t,5.35-.77*t,t=0..1],color=black):

> p51:=plot([-14.5+1.21*t,12.52+.78*t,t=0..1]):

> p52:=plot([-13.38+1.13*t,11.66+.43*t,t=0..1]):

> p53:=plot([-12.77+1.38*t,11.22+.7*t,t=0..1]):

> p54:=plot([-11.99+1.12*t,10.53+.61*t,t=0..1]):

> p55:=plot([-11.04+1.03*t,9.5+.6*t,t=0..1]):

> p56:=plot([-10.01+1.12*t,8.12+.17*t,t=0..1]):

> p57:=plot([-9.58+1.04*t,7.25+.09*t,t=0..1]):

> p58:=plot([-8.71-1.04*t,5.35-.77*t,t=0..1]):

> p59:=plot([-8.37-.95*t,4.32-.78*t,t=0..1]):

> p60:=plot([-8-1.05*t,2.69-.93*t,t=0..1]):

> p61:=plot([-7.87-.95*t,.98-1.09*t,t=0..1]):

> p62:=plot([-7.73-.96*t,-.52-.68*t,t=0..1]):

> p63:=plot([-7.87-1.36*t,-2.15-.41*t,t=0..1]):

> p64:=plot([-8.14-.96*t,-3.52-.13*t,t=0..1]):

> p65:=plot([-8.69-1.23*t,-5.15-.28*t,t=0..1]):

> p66:=plot([-9.51-1.22*t,-7.2+.14*t,t=0..1]):

> p67:=plot([-10.6-1.09*t,-8.97+.27*t,t=0..1]):

> p68:=plot([-12.1-1.36*t,-10.61+.14*t,t=0..1]):

> p69:=plot([-13.87-1.09*t,-11.97+.27*t,t=0..1]):

> p70:=plot([-8.69+.96*t,5.34,t=0..1]):

> p71:=plot([-8.28+.95*t,3.98-.14*t,t=0..1]):

> p72:=plot([-7.87+.82*t,2.62-.41*t,t=0..1]):

> p73:=plot([-7.73+.95*t,-.71-.55*t,t=0..1]):

> p74:=plot([-7.73+.68*t,-.79-.41*t,t=0..1]):

> p75:=plot([-7.87+.54*t,-2.29-.68*t,t=0..1]):

> p76:=plot([-8.14+.68*t,-3.65-.41*t,t=0..1]):

> p77:=plot([-8.55+.28*t,-5.29-.95*t,t=0..1]):

> p78:=plot([-9.51+.14*t,-7.2-1.09*t,t=0..1]):

> p79:=plot([-10.73,-9.11-1.63*t,t=0..1]):

> p80:=plot([-7.6+.68*t,.84-.4*t,t=0..1]):

> p81:=plot([-12.1+.28*t,-10.74-1.09*t,t=0..1]):

> p82:=plot([-13.73-.14*t,-12.24-1.09*t,t=0..1]):

> p83:=plot([14.17+.6*t,12.45-1.41*t,t=0..1]):

> p84:=plot([14.17-1.59*t,12.45+.53*t,t=0..1]):

> p85:=plot([8.49+1.63*t,-5.84-.13*t,t=0..1]):

> p86:=plot([8.49-1.09*t,-5.84-1.36*t,t=0..1]):

> p87:=plot([9.3-1.23*t,-7.33,t=0..1]):

> p88:=plot([9.3-1.09*t,-7.33-1.23*t,t=0..1]):

> p89:=plot([10.26-.96*t,-8.83-.82*t,t=0..1]):

> p90:=plot([10.26+.95*t,-8.83+.27*t,t=0..1]):

> p91:=plot([11.35-.82*t,-10.33-.82*t,t=0..1]):

> p92:=plot([11.35+.95*t,-10.33+.13*t,t=0..1]):

> p93:=plot([12.58-.41*t,-11.56-1.23*t,t=0..1]):

> p94:=plot([12.58+1.36*t,-11.56+.14*t,t=0..1]):

> p95:=plot([13.94-.27*t,-12.38-.82*t,t=0..1]):

> p96:=plot([13.94+.95*t,-12.38+.41*t,t=0..1]):

> p97:=plot([15*cos(t)+22.36,15*sin(t),t=17.5*Pi/24..2*Pi/3],thickness=3):

> p98:=(TEXT([0,-10],'Yankees',ALIGNABOVE,FONT(TIMES,BOLDITALIC,48),COLOR(RGB,0.0,0.2,4.0))):

>

>

>

>

>

>

>

>

> 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,p86,p87,p88,p89,p90,p91,p92,p93,p94,p95,p96,p97,p98);

[Maple Plot]

>