> with(plots):

Warning, the name changecoords has been redefined

> p1:=plot([t, .5*(t-25)^2+100, t=24.325..25.675],color=gold, scaling=constrained):

> p2:=plot([t, .3*(t-25)^2+100.1, t=24.325..25.675], color=gold):

> p3:=plot([24.23+.25*cos(t), 101+.25*sin(t), t=0..2*Pi], color=black):

> p4:=plot([25.77+.25*cos(t), 101+.25*sin(t), t=0..2*Pi], color=black):

> p5:=plot([24.23+.33*cos(t), 101.15+.53*sin(t), t=0..2*Pi], color=black):

> p6:=plot([25.77+.33*cos(t), 101.15+.53*sin(t), t=0..2*Pi], color=black):

> p7:=plot([t, 1.75*(t-24)+99.1, t=24.75..25], color=gold):

> p8:=plot([t, -1.75*(t-25)+100.82, t=25..25.25], color=gold):

> p9:=plot([t, -.1*(t-25)^2+100.4, t=24.755..25.2275], color=gold):

> p10:=plot([t, -1*(t-24.23)^2+101.8, t=24..24.45], color=gold):

> p11:=plot([t, -1*(t-25.77)^2+101.8, t=25.55..26], color=gold):

> p12:=plot([t, .25*(t-23.8)^2+102,t=23.8..26], color=green):

> p13:=plot([t, -1.25*(t-26.3)^2+103.301, t=26..26.92], color=green):

> p14:=plot([t, 2.77*(t-26)+100.2, t=26..26.9],color=green):

> p15:=plot([t,25*t-550,t=25.97..26.01], color=green):

> p16:=plot([.3*cos(t)+23.8,101.7+.3*sin(t), t=Pi/2..Pi], color=green):

> p17:=plot([t, -25*t+689.2, t=23.5..23.6],color=green):

> p18:=plot([.2*cos(t)+26.712, .2*sin(t)+102.8,t=-Pi/5..Pi/7],color=green):

> p19:=plot([.3*cos(t)+23.27, .3*sin(t)+99.26, t=-Pi/2..0], color=green):

> p20:=plot([ .3*cos(t)+26.28, .3*sin(t)+99.29, t=Pi..3/2*Pi], color=green):

> p21:=plot([1*cos(t)+26.29, 2.5*sin(t)+96.5, t=-Pi/3.5..Pi*.53], color=green):

> p22:=plot([.8*cos(t)+25.9, 2*sin(t)+96.4, t=-Pi/4..Pi/2], color=green):

> p23:=plot([.5*cos(t)+26.42, .5*sin(t)+94.59, t=1.65*Pi..2*Pi], color=green):

> p24:=plot([.5*cos(t)+26.42, .5*sin(t)+94.5, t=Pi/2..0.6*Pi], color=green):

> p25:=plot([t, 10*(t)-160.5, t=25.6795..25.891], color=green):

> p26:=plot([t, -2.4*(t)+158, t=25.71..26.8], color=green):

> p27:=plot([1*cos(t)+26.49, 2.5*sin(t)+91.35, t=Pi/12..Pi/2.5], color=green):

> p28:=plot([t,-2.2*(t)+152.5, t=27.45..28.2], color=green):

> p29:=plot([1.15*cos(t)+27.1, .5*sin(t)+90.35, t=1.1*Pi..2.1*Pi], color=green):

> p30:=plot([.55*cos(t)+26.45, 1*sin(t)+90.8, t=Pi..1.2*Pi], color=green):

> p31:=plot([1.5*cos(t)+24.4, 4*sin(t)+91.85, t=-Pi/12..Pi*.06], color=green):

> p32:=plot([t, -3.19*(t)+174.9, t=25..25.82], color=green):

> p33:=plot([t, 15*(t)-279.85, t=24.74..25], color=green):

> p34:=plot([1.2*cos(t)+23.75, 1.5*sin(t)+90.45, t=0..Pi/5], color=green):

> p35:=plot([1.15*cos(t)+23.8, .5*sin(t)+90.45, t=.89*Pi..2*Pi], color=green):

> p36:=plot([t, 3*(t)+22.29,t=22.78..23.2], color=green):

> p37:=plot([t, 4*(t)-.82, t=23.1..23.7], color=green):

> p38:=plot([t, 5.5*(t)-36.37, t=23.7..23.9], color=green):

> p39:=plot([t, 9*(t)-120.02, t=23.9..24.02], color=green):

> p40:=plot([t, .1*(t)+96.65, t=22.9..23.25], color=green):

> p41:=plot([t, .6*(t)+85.2, t=21.9..22.9], color=green):

> p42:=plot([.35*cos(t)+21.95 ,.5*sin(t)+97.79, t=Pi*.55..1.42*Pi], color=green):

> p43:=plot([t, -.9*(t)+117, t=21.75..22.7], color=green):

> p44:=plot([t, -.2*(t)+101.1, t=22.7..23.8], color=green):

> p45:=plot([t, -.2*(t)+101.9, t=23.1..23.8], color=green):

> p46:=plot([.5*cos(t)+24.05, .55*sin(t)+96.75, t=-.7*Pi..0.7*Pi], color=green):

> p47:=plot([t, -.9*(t)+118.1, t=22.6..23.1], color=green):

> p48:=plot([1.25*cos(t)+23.8, .6*sin(t)+97.7, t=Pi*.55..Pi], color=green):

> p49:=plot([t, -5.4*(t)+225.7, t=23.6..23.8], color=green):

> p50:=plot([t, -.01*(t-25)^2+89.85, t=22..28.5], color=brown):

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

>

>