> with(plots);

Warning, the name changecoords has been redefined

> p1:=polarplot(5+cos(3*x), x=Pi/3..5*Pi/3, color=brown,scaling=constrained, thickness=2):

> p2:=plot([t+2,(t^2)+3.5, t=0..1], color=brown, thickness=2):

> p3:=plot([t+2,-(t^2)-3.5, t=0..1], color=brown, thickness=2):

> p4:=plot([t+3,-(t^2)+4.5, t=0..1.87], color=brown, thickness=2):

> p5:=plot([t+3,(t^2)-4.5, t=0..1.855], color=brown, thickness=2):

> p6:=plot([t,1,t=4.8..18], color=brown,thickness=2):

> p7:=plot([t,-1,t=4.8..18], color=brown,thickness=2):

> p8:=plot([t+18, .75*t+1, t=0..3], color=brown):

> p9:=plot([cos(t)+1,sin(t) ,t=0..2*Pi], color=brown,thickness=2):

> p10:=plot([cos(t),sin(t) ,t=0..2*Pi], color=brown,thickness=2):

> p11:=plot([-2.5, t, t=-1.5..1.5], color=brown):

> p12:=plot([t,1.5, t=-2.5..-1.8], color=brown, thickness=2):

> p13:=plot([t,-1.5, t=-2.5..-1.8], color=brown,thickness=2):

> p14:=plot([-1.8, t, t=-1.5..1.5], color=brown):

> p15:=polarplot(cos(x)+1.3, x=0..2*Pi,color=brown,thickness=2):

> p16:=plot([t,.65, t=-2..18], color=black):

> p17:=plot([t,.4, t=-2..18], color=black):

> p18:=plot([t,.15, t=-2..18], color=black):

> p19:=plot([t,-.15, t=-2..18], color=black):

> p20:=plot([t,-.4, t=-2..18], color=black):

> p21:=plot([t,-.65, t=-2..18], color=black):

> p22:=plot([t+18, (-cos(t)*sin(t)*t)-1, t=0..3/4],color=brown,thickness=2):

> p23:=plot([t+18, (cos(t)*sin(t)*t)+1, t=0..3/4],color=brown,thickness=2):

> p24:=plot([t+20.75, 1/30*(-t^2)-1.3, t=-2..1.5],color=brown,thickness=2):

> p25:=plot([t+20.75, 1/30*t^2+1.3, t=-2..1.5],color=brown,thickness=2):

> p26:=plot([t+21.75, 3*cos(t)*sin(t)*arctan(t)-1.75, t=1/2.5..1],color=brown,thickness=2):

> p27:=plot([t+22,1/2*t^3-5/2*t^2+3/11*t+1.34, t=0..1.075],color=brown,thickness=2):

> p28:=plot([t+20, -sin(t)-.3, t=2.75..3],color=brown,thickness=2):

> p29:=plot([t,.4*t-6.5, t=18..19.5],color=black):

> p30:=plot([t,.3*t-5.0, t=18..21],color=black):

> p31:=plot([t,.21*t-3.5, t=18..22.3],color=black):

> p32:=plot([t,-.4*t+6.5, t=18..19.5],color=black):

> p33:=plot([t,-.3*t+5.0, t=18..21],color=black):

> p34:=plot([t,-.21*t+3.5, t=18..22.3],color=black):

> p35:=plot([cos(5*t)/sin(t/4)+20.65, 100*tan(t)^2+1.3, t=3.06..Pi],color=brown):

> p36:=plot([cos(5*t)/sin(t/4)+21, 100*tan(t)^2+1.4, t=3.07..Pi],color=brown):

> p37:=plot([3/7*cos(t)+19.5, 5/17*sin(t)+2.2, t=-5..5],color=brown):

>

>

> p38:=plot([3/7*cos(t)+20.5, 5/17*sin(t)+2.2, t=-5..5],color=brown):

> p39:=plot([cos(5*t)/sin(t/4)+21.65,100*tan(t)^2+1.3,t=3.06..Pi],color=brown):

> p40:=plot([cos(5*t)/sin(t/4)+22, 100*tan(t)^2+1.4, t=3.07..Pi],color=brown):

> p41:=plot([3/7*cos(t)+22, 5/17*sin(t)+2.2, t=-5..5],color=brown):

> p42:=plot([cos(5*t)/sin(t/4)+23.4,100*tan(t)^2+1.3,t=3.06..Pi],color=brown):

> p43:=plot([cos(5*t)/sin(t/4)+23, 100*tan(t)^2+1.4, t=3.07..Pi],color=brown):

> p44:=plot([sin(t)*cos(t)+19,cos(t)*tan(t)-2.5, t=0.7..1.5],color=brown):

> p45:=plot([19.7, t, t=-1..-1.8],color=brown):

> p46:=plot([3/7*cos(t)+19.5, 5/17*sin(t)-2, t=-5..5],color=brown):

> p47:=plot([20.55, t, t=-1..-1.8],color=brown):

> p48:=plot([20.9, t-.1, t=-1..-1.6],color=brown):

> p49:=plot([3/10*cos(t)+20.7, 5/17*sin(t)-2, t=-5..5],color=brown):

> p50:=plot([21.5, t-.2, t=-1..-1.7],color=brown):

> p51:=plot([21.8, t-.2, t=-1..-1.7],color=brown):

> p52:=plot([3/10*cos(t)+21.6, 5/17*sin(t)-2.1, t=-5..5],color=brown):

>

>

>

> display(p1,p2,p3,p4,p5,p6,p7,p9,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);

>