> with(plots);

Warning, the name changecoords has been redefined

> p1 :=plot([5/2+t*(1/2), 10+t*(1),t=2..5/2],color=yellow,scaling=constrained):

> p2 :=plot([5/2+t*(1/2), 15+t*(-1),t=5/2..3],color=yellow):

> p3 :=plot([3+t*(1/2), 10+t*(1),t=2..5/2],color=yellow):

> p4 :=plot([5/2+t*(.7), 15+t*(-1),t=5/2..3],color=yellow):

> p5 :=plot([3.6+t*(1/2), 10+t*(1),t=2..5/2],color=yellow):

> p6 :=plot([3.85+t*(1/2), 14.5+t*(-1),t=5/2..2],color=yellow):

> p7 :=plot([4.1+t*(.75), 10+t*(1),t=2..5/2],color=yellow):

> p8 :=plot([4.1+t*(1/2), 10+t*(1),t=5/2..2],color=yellow):

> p9 :=plot([4.35+t*(1/2), 14.5+t*(-1),t=2..5/2],color=yellow):

> p10 :=plot([4.95+t*(1/2), 14.5+t*(-1),t=2..5/2],color=yellow):

> p11 :=plot([5.2+t*(1/2), 10+t*(1),t=5/2..2],color=yellow):

> p12 :=plot([5.45+t*(1/2), 14.5+t*(-1), t=2..5/2],color=yellow):

> p13 :=plot([5.7+t*(1/2), 10+t*(1), t=5/2..2],color=yellow):

> p14 :=plot([5.95+t*(1/2), 14.5+t*(-1), t=2..5/2],color=yellow):

> p15 :=plot([6.2+t*(1/2), 10+t*(1), t=5/2..2],color=yellow):

> p16 :=plot([6.45+t*(1/2), 14.5+t*(-1), t=2..5/2],color=yellow):

>

>

>

> p17 :=plot([3.5+t*(0), 6+t*(6), t=.26..1],color=yellow):

> p18 :=plot([3.5+t*(0), 6+t*(6), t=.07..0.14],color=yellow):

> p19 :=plot([7.69+t*(0), 6+t*(6),t=0.53..1],color=yellow):

> p20 :=plot([7.69+t*(0), 6+t*(6), t=0.1..0.3],color=yellow):

> p21 :=plot([.4*cos(t)+3.55, .4*sin(t)+7.2,t=Pi/3..4*Pi/3],color=yellow):

> p22 :=plot([.4*cos(t)+3.55, .4*sin(t)+7.2,t=-5..-Pi/3],color=yellow):

> p23 :=plot([.2*cos(t)+3.5, .2*sin(t)+7.2,t=Pi/6..4*Pi/3],color=yellow):

>

> p24 :=plot([.8*cos(t)+5.95,.8*sin(t)+8.5,t=0..2*Pi],color=black):

> p25 :=plot([.8*cos(t)+7.3,.8*sin(t)+8.5,t=5*Pi/6..-Pi/2],color=black):

> p26 :=plot([.4*cos(t)+3.7, .4*sin(t)+6.1,t=1.6..4.9],color=yellow):

>

>

> p27 :=plot([cos(4.8)*t-sin(4.8)*(t^(4.5)-3.65)+7.1,sin(4.8)*t+cos(4.8)*(t^(2)-6)+7,t=0.3..1.31],color=black):

> p28 :=plot([t+3.5,1/9*sin(t)+6.1,t=0..3.9],color=yellow):

>

> p29 :=plot([3.8+t*(.2), 6+t*(1)-2.3,t=2.46..1.95],color=black):

> p30 :=plot([4.4+t*(.2), 7+t*(1)-3.5, t=2.7..2],color=black):

> p31 :=plot([5+t*(.2), 7.5+t*(1)-4.2,t=2.9..2.1],color=black):

> p32 :=plot([5.7+t*(.2), 8+t*(1)-4.5, t=2.68..1.9],color=black):

> p33 :=plot([6.4+t*(.2), 8.3+t*(1)-4.8, t=2.6..1.8],color=black):

> p34 :=plot([cos(Pi/1.45)*t-sin(Pi/1.45)*(t^2)+7.4,sin(Pi/1.45)*t+cos(Pi/1.45)*(t^2)+7.6,t=-0.1..0.8],color=yellow):

> p35 :=plot([cos(7)*t-sin(7)*(t^2)+7.4,sin(7)*t+cos(7)*(t^2)+7.25,t=-0.69..0.1],color=yellow):

> p36 :=plot([7.45+t*(0),6+t*(6),t=.22..0.25],color=yellow):

> p37 :=plot([cos(t)+6.7,sin(t)+6.8,t=2*Pi..5.4],color=yellow):

>

> p38 :=plot([.09*cos(t)+7.3, .09*sin(t)+8.5,t=0..2*Pi],color=black):

> p39 :=plot([.065*cos(t)+7.3, .065*sin(t)+8.5,t=0..2*Pi],color=black):

> p40 :=plot([.045*cos(t)+7.3, .045*sin(t)+8.5, t=0..2*Pi],color=black):

> p41 :=plot([.025*cos(t)+7.3, .025*sin(t)+8.5, t=0..2*Pi],color=black):

> p42 :=plot([.01*cos(t)+7.3, .01*sin(t)+8.5, t=0..2*Pi],color=black):

> p43 :=plot([.09*cos(t)+6, .09*sin(t)+8.5,t=0..2*Pi],color=black):

> p44 :=plot([.065*cos(t)+6, .065*sin(t)+8.5,t=0..2*Pi],color=black):

> p45 :=plot([.045*cos(t)+6, .045*sin(t)+8.5, t=0..2*Pi],color=black):

> p46 :=plot([.025*cos(t)+6, .025*sin(t)+8.5, t=0..2*Pi],color=black):

> p47 :=plot([.01*cos(t)+6, .01*sin(t)+8.5, t=0..2*Pi],color=black):

>

> p48 :=plot([.3*cos(t)+6.8, .3*sin(t)+5.2,t=-1.8..1.7],color=yellow):

> p49 :=plot([cos(4.5)*t-sin(4.5)*(t^(4.5)-3.8)+7.26,sin(4.5)*t+cos(4.5)*(t^(2)-6)+5,t=0.45..1.31],color=red):

>

> p50 :=plot([5.5+t*(1/2), 2.5+t*(1),t=2.4..2.1],color=yellow):

> p51 :=plot([cos(3.2)*t-sin(3.2)*(t^(4.5)-3)+4.1,sin(3.2)*t+cos(3.2)*(t^(2)-6),t=0.45..1.45],color=red):

> p52 :=plot([t+4.5,t^2+0.1,t=1.7..2.13],color=red):

>

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

>

>