> with(plots);

Warning, the name changecoords has been redefined

>

>

>

> p1:=plot(sin(x)-14, x=(-2*Pi)-2..(2*Pi)+2,color=orange,scaling=constrained ):

>

>

> p2:= plot(-sqrt(16-x^2)-6, x=-5..5,color=orange):

>

>

> p3:=plot(sqrt(.1-x^2)-7, x=-1..1):

> p4:=plot(-sqrt(.1-x^2)-7, x=-1..1):

>

> p5:=plot(-sqrt(49-x^2)-5, x=-5..5, color=orange):

>

> p6:=polarplot(2+2*sin(theta), theta=-2*Pi..2*Pi):

>

> p7:=plot(-sqrt(.5-(x-2)^2)-.5, x=-1..1):

>

> p9:=plot([cos(t)-5, (3*t)-5, t=1.1..4]):

> p10:= plot([-cos(t)+5, (3*t)-5, t=1..4]):

>

> p11:=plot(-sin(x)+2.8, x=1..2, color=black):

> p12:=plot(0.2*sin(6*x)+2,x=0.8..2, color=black):

> p13:=plot(0.2*sin(6*x)+2,x=-2.2..-1.2, color=black):

> p14:=plot(sin(x-0.2)+2.8, x=-2.1..-1.2, color=black):

>

> p15:=plot([-sin(t), -cos(t)+1.2, t=-1..1]):

>

> p19:=plot([t^3+.8,cos(t)+.4,t=0..1]):

> p20:=plot([-t^3-.8, cos(t)+.4, t=0..1]):

>

> p21:=plot([t, -sqrt(.3-t^2)+1.5, t=-.5..0.5]):

>

>

> p23:=plot([4.5*t, -4*t^2-3, t=-1.1..1.1],color=orange):

>

> p24:=plot([cos(t)-3.5, (3*t)-5, t=2.5..3.5]):

> p25:=plot([-cos(t)+3.5, (3*t)-5, t=2.5..3.5]):

>

> p26:=plot([2*t-5,7,t=-0.3..1.1]):

> p27:=plot([t-3.5,.6*t+6.5,t=-1..1]):

> p28:= plot([-2*t+5,7,t=-0.3..1.1]):

> p29:=plot([-1*t+3.5,.6*t+6.5,t=-1..1]):

>

> p30:=plot([.5*t^2-5,t-2.5,t=0..2], color=orange):

> p31:=plot([-.5*t^2+5,t-2.5,t=0..2], color=orange):

>

> p32:=plot([cos(t)-2,sin(t)-.5,t=Pi..2*Pi]):

> p33:=plot([-cos(t)+2,sin(t)-.5,t=Pi..2*Pi]):

>

> p34:=plot(0.2*sin(6*x)+3,x=0.8..2):

> p35:=plot(0.2*sin(6*x)+3,x=-2.1..-1.1):

>

> p36:=plot([.5*cos(t)-5.5,.6*sin(t)-13.5,t=-Pi..1]):

> p37:=plot([.5*cos(t)-4.6,.6*sin(t)-13.4,t=-2.5..0.5]):

> p38:=plot([.5*cos(t)-3.7,.6*sin(t)-13.5,t=-2.7..-0.5]):

> p39:=plot([.5*cos(t)+.8,.6*sin(t)-13.5,t=-Pi..1]):

> p40:=plot([.5*cos(t)+1.7,.6*sin(t)-13.4,t=-2.5..0.5]):

> p41:=plot([.5*cos(t)+2.6,.6*sin(t)-13.5,t=-2.7..-0.5]):

>

> p42:=plot([t-6,arcsin(t)-4,t=-5..1],color=orange):

> p43:=plot([-t+6,arcsin(t)-4,t=-5..1],color=orange):

> p44:=plot([t-6.8,2*arcsin(t)-10,t=-6..2], color=orange):

> p45:=plot([-t+6.8,2*arcsin(t)-10,t=-6..2], color=orange):

>

> p47:=plot([-.8*cos(t)-2,.8*sin(t)+2,t=-0.8..1.3]):

> p46:=plot([.8*cos(t)+2,.8*sin(t)+2,t=-0.8..1.3]):

>

> p8:=plot([t-.5, -sqrt(.05-t^2)+1.2, t=-4..0.18]):

> p16:=plot([-t+.5, -sqrt(.05-t^2)+1.2, t=-4..0.18]):

>

> p17:=plot([2.5*cos(t)+5.7, 3.5*sin(t)-.4, t=-4.1..-3]):

> p18:=plot([2.5*cos(t)-5.5, 3.5*sin(t)-.5, t=0..1]):

>

>

> p22:=plot([t-4.5,arcsin(t)-4,t=-5..1],color=orange):

> p48:=plot([-t+4.5,arcsin(t)-4,t=-5..1],color=orange):

> p49:=plot([t, -5.5, t=-7..-5], color=orange):

> p50:=plot([t, -5.5, t=5..7], 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,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);