> with(plots);

Warning, the name changecoords has been redefined

> p1:=plot([0, t, t=0..7.4], color=violet, scaling=constrained):

> p2:=plot([4, t, t=0..3], color=violet):

> p3:=plot([12, t, t=5..14], color=blue):

> p4:=plot([10.5, t, t=5..8.8], color=blue):

> p5:=plot([t, 5, t=10.5..12], color=blue):

> p6:=plot([t, 5.5, t=10.5..12], color=red):

> p7:=plot([t, 20, t=5..15.2], color=red):

> p8:=plot([t, 19, t=4.4..16], color=red):

> p9:=plot([4*cos(t)+16, 2*sin(t)+16.3, t=Pi/2..Pi], color=blue):

> p10:=plot([t, -7*t/6+21, t=15..18], color=violet):

> p11:=plot([t, -7*t/6+28, t=18..24], color=violet):

> p12:=plot([3*cos(t)+3, 3*sin(t)+7, t=Pi/2..Pi], color=violet):

> p13:=plot([t, 6.5, t=10.5..12], color=red):

> p14:=plot([t, 9.95+0.05*t, t=3..9.1], color=violet):

> p15:=plot([1.9*cos(t)+8.56, 1.6*sin(t)+8.8, t=0..Pi/2], color=violet):

> p16:=plot([6*cos(t)+10, 4*sin(t)+18, t=.05..Pi], color=blue):

>

> display(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16);

> p17:=plot([-t+25, t, t=19..20], color=blue):

> p18:=plot([-t+27, t, t=19..20], color=red):

> p19:=plot([-t+29, t, t=19..20], color=blue):

> p20:=plot([-t+31, t, t=19..20], color=red):

> p21:=plot([-t+33, t, t=19..20], color=blue):

> p22:=plot([-t+34.5, t, t=19..20], 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:=plot([(t-2*sin(t)+10)*0.5+3.5, -2*(2-0.75*cos(t))+19, t=5.5..8.5], color=orange):

> 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:=plot([4,t,t=10.1..18.1], color=blue):

> p25:=plot([t, (3/8)*sin(1.8*t)+15.75, t=12.5..15.7], color=black):

>

>

> p26:=plot([t, (-3/8)*sin(2*t)+16.5, t=12.52..15.6], color=black):

> p27:=plot([t, (-5/16)*sin(1.8*t)+15.65, t=13.84..15.83], color=black):

> p28:=plot([14.8+(.5)*cos(t), 16+(.5)*sin(t), t=Pi..2*Pi], color=blue):

> p29:=plot([12, t, t=16.3..23], color=green):

> p30:=plot([cos(t)+11, 1.5*sin(t)+23, t=0..Pi], color=green):

> p31:=plot([t, -sin((1/2)*t)+3, t=0..4], 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,p25,p26,p27,p28,p29,p30,p31);

> p32:=plot([t, -sin(.5*t)+2, t=0..4], color=red):

> p33:=plot([2*cos(t)+14.6, 2*sin(t)+10, t=7*Pi/12..0.98*Pi], color=orange):

> p34:=plot([cos(t)+15, sin(t)+12.5, t=7*Pi/6..2*Pi], color=orange):

> p35:=plot([t, ((-2.5)*t/2.2)+27.9, t=12..14.2], color=orange):

> p36:=plot([16, t, t=12.2..13.5], color=orange):

> p37:=plot([t, 13, t=15..16], 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,p25,p26,p27,p28,p29,p30,p31,p32,p33,p34,p35,p36,p37);

> p38:=plot([t,-3.75*t+78.3, t=16..17.1], color=orange):

> p39:=plot([t, 13.5, t=16..16.75], color=orange):

> p40:=plot([.5*cos(t)+16.65, .5*sin(t)+14, t=1.5*Pi..13*Pi/6], color=orange):

>

>

>

>

> p41:=plot([3*cos(t)+10.5, 1.2*sin(t)+10.25, t=Pi..3*Pi/2], color=navy):

> p42:=plot([3*cos(t)+10.5, 1.2*sin(t)+10, t=5*Pi/3..2.05*Pi],color=navy):

> p43:=plot([6*cos(t)+10.5, 3.5*sin(t)+10, t=Pi..3*Pi/2], color=navy):

> p44:=plot([5.5*cos(t)+10.5, 3.5*sin(t)+10, t=4.76*Pi/3..1.9*Pi], color=navy):

> p45:=plot([4.3*cos(t)+10.5, 2.25*sin(t)+10, t=Pi..3*Pi/2], color=green):

> p46:=plot([4.3*cos(t)+10.5, 2.25*sin(t)+10, t=4.85*Pi/3..1.95*Pi], color=green):

> p47:=plot([t-2, 1.5*sin(.37*t)+4.5, t=2..18], color=navy):

> p48:=plot([t-2, 1.5*sin(.37*t)+6, t=2..19.9], color=green):

>

> 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:=plot([t, (1.33/2.97)*t-2.19, t=15.53..18.5], color=navy):

>

>

> p50:=plot([t, -3.5*t+56, t=15..16], color=violet):

>

> p51:=plot([t, 14, t=1.25..4], color=blue):

> p52:=plot([t, (4.1/3.75)*t+12.63, t=1.25..4], color=blue):

> p53:=plot([t, (3.1/4)*t+14.225, t=1..4], color=red):

> p54:=plot([t, (-2/3)*t+47/3, t=1..1.75], color=red):

> p55:=plot([t, 10.3, t=12..13.8], color=violet):

> p56:=plot([3.5*cos(t)+17.5, 3*sin(t)+5, t=1.35*Pi..1.87*Pi], color=red):

> p57:=plot([4*cos(t)+18.1, 3*sin(t)+4, t=1.4*Pi..1.87*Pi], color=red):

> p58:=polarplot(22.186-7.8*theta, theta=0.37..(0.64), color=violet):

>

> p59:=plot([t, (4.1/3.75)*t+12.63, t=1.25..4], color=blue):

> p60:=plot([t, 14, t=1.25..4], color=blue):

> p61:=plot([t, -3.5*t+56, t=15..16], color=violet):

>

> p62:=plot([10.87, t, t=5.5..6.5], color=blue):

> p63:=plot([11.25, t, t=5.5..6.5], color=blue):

> p64:=plot([11.63, t, t=5.5..6.5], color=blue):

> p65:=plot([t, (-6.86)*t+116.32, t=14.62..14.69], color=blue):

> p66:=plot([t, 3.34*t-34.1, t=14.89..15.03], color=blue):

>

> p67:=plot([3.5*cos(t)+18, 3*sin(t)+4.5, t=1.35*Pi..1.87*Pi], color=red):

> p68:=plot([t, -sin(.5*t)+2.5, t=0..4], 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,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);

>