> with(plots);

> p1 :=polarplot(.7*cos(theta),theta=-2..2,color=green,scaling=constrained):

> p2 :=polarplot(-.7*cos(theta), theta=-2..2,color=green):

> p3 :=plot([x,x^2-1,x=-(.5)..(.5)],color=red):

> p4 :=plot([x,(1.5*x)^2-1.1,x=-(.29)..(.29)],color=red):

> p5 :=polarplot(0.55*cos(theta),theta=-2..2,color=black):

> p6 :=polarplot(-.55*cos(theta),theta=-2..2,color=black):

> p7 :=plot([x,x-.25,x=(-.55)..(-.5)]):

> p8 :=plot([x,-(x+.25),x=(.55)..(.5)]):

> p9 :=plot([x,-5,x=-4..5],color=brown):

> p10 :=plot([1.7*cos(x),sin(x)-.5, x=0..2*Pi],scaling=constrained,color=green):

> p11 :=plot([x,x-.8,x=-.9..-.65],color=green):

> p12 :=plot([x,-x-.8,x=0.65..0.9],color=green):

> p13 :=plot([x,1.2,x=-4..5],color=blue):

> p14 :=plot([cos(-Pi/3)*2*cos(x)-sin(-Pi/3)*sin(x)-.8,(sin(-Pi/3)*2*cos(x)+cos(-Pi/3)*sin(x)-2.8)-.5,x=3*Pi/4..3*Pi/2],color=green):

> p15 :=plot([cos(Pi/3)*2*cos(x)-sin(Pi/3)*sin(x)+.8,(sin(Pi/3)*2*cos(x)+cos(Pi/3)*sin(x)-2.8)-.5,x=-Pi/2..Pi/4],scaling=constrained,color=green):

> p16 :=plot([0.5*cos(x)+0.5,0.25*sin(x)+0.4,x=-1*Pi/10..9*Pi/10],color=green):

> p17 :=plot([0.5*cos(x)-0.5,0.25*sin(x)+0.4,x=Pi/10..11*Pi/10],color=green):

> p18 :=plot([(cos(-Pi/4)*1*cos(x)-sin(-Pi/4)*.5*sin(x))-2,(sin(-Pi/4)*1*cos(x)+cos(-Pi/4)*.5*sin(x))-4.2,x=Pi/2..9*Pi/8],color=green):

> p19:=plot([(cos(-Pi/8)*1*cos(x)-sin(-Pi/8)*.5*sin(x))-2,(sin(-Pi/8)*1*cos(x)+cos(-Pi/8)*.5*sin(x))-4.2,x=7*Pi/8..9*Pi/8],color=green):

> p20 :=plot([(cos(0)*1*cos(x)-sin(0)*.5*sin(x))-2,(sin(0)*1*cos(x)+cos(0)*.5*sin(x))-4.2,x=7*Pi/8..2*Pi],scaling=constrained,color=green):

> p21 :=plot([(cos(Pi/4)*1*cos(x)-sin(Pi/4)*.5*sin(x))+2,(sin(Pi/4)*1*cos(x)+cos(Pi/4)*.5*sin(x))-4.2,x=-Pi/8..Pi/2],scaling=constrained,color=green):

> p22 :=plot([(cos(Pi/8)*1*cos(x)-sin(Pi/8)*.5*sin(x))+2,(sin(Pi/8)*1*cos(x)+cos(Pi/8)*.5*sin(x))-4.2,x=-Pi/8..Pi/8],scaling=constrained,color=green):

> p23 :=plot([(cos(0)*1*cos(x)-sin(0)*.5*sin(x))+2,(sin(0)*1*cos(x)+cos(0)*.5*sin(x))-4.2,x=Pi..17*Pi/8],scaling=constrained,color=green):

> p24 :=plot([x-.8,(4*x)^2-3.8,x=0..(.2)],color=green):

> p25 :=plot([x-.15,(4*x)^2-3.8,x=(-.2)..0],color=green):

> p26 :=plot([x+.8,(4*x)^2-3.8,x=(-.2)..0],color=green):

> p27 :=plot([x+.15,(4*x)^2-3.8,x=0..(.2)],color=green):

> p28 :=plot([x-1.2,-sqrt(x/4)-4.1,x=0..(.4)],color=green):

> p29 :=plot([x-1.2,sqrt(x/4)-4.1,x=0..(.4)],color=green):

> p30 :=plot([-x+1.2,-sqrt(x/4)-4.1,x=0..(.4)],color=green):

> p31 :=plot([-x+1.2,sqrt(x/4)-4.1,x=0..(.4)],color=green):

> p32 :=plot([(x/2)-2.97,sin(x)-3.48,x=11*Pi/8..13*Pi/8],color=green):

> p33 :=plot([(x/2)-1.73,sin(x)-3.48,x=11*Pi/8..13*Pi/8],color=green):

> p34 :=plot([-x+.2,-sqrt(x/6)-4.1,x=0..(.65)],color=green):

> p35 :=plot([-x+.2,sqrt(x/4)-4.1,x=0..(.4)],color=green):

> p36 :=plot([x-.2,-sqrt(x/6)-4.1,x=(.2)..(.65)],color=green):

> p37 :=plot([x-.2,sqrt(x/4)-4.1,x=(.2)..(.4)],color=green):

> p38 :=plot([(cos(2*Pi/3)*.5*cos(x)-sin(2*Pi/3)*.1*sin(x))+3,(sin(2*Pi/3)*.5*cos(x)+cos(2*Pi/3)*.1*sin(x))-2,x=Pi/8..15*Pi/8],scaling=constrained,color=orange):

> p39 :=plot([.1*cos(x)+2.73,.1*sin(x)-1.52,x=0..2*Pi],color=black):

>

> p40 :=plot([(cos(Pi/2)*.3*cos(x)-sin(Pi/2)*.2*sin(x))+2.75,(sin(Pi/2)*.3*cos(x)+cos(Pi/2)*.2*sin(x))-1.95,x=0..10*Pi/8],color=magenta):

> p41 :=plot([(cos(6*Pi/8)*.2*cos(x)-sin(6*Pi/8)*.2*sin(x))+3.05,(sin(6*Pi/8)*.2*cos(x)+cos(6*Pi/8)*.2*sin(x))-2.3,x=0..17*Pi/16],color=red):

> p42 :=plot([(cos(Pi/2)*.3*cos(x)-sin(Pi/2)*.2*sin(x))+3.1,(sin(Pi/2)*.3*cos(x)+cos(Pi/2)*.2*sin(x))-1.7,x=-30*Pi/32..15*Pi/32]):

> p43 :=plot([(cos(6*Pi/8)*.2*cos(x)-sin(6*Pi/8)*.2*sin(x))+3.3,(sin(6*Pi/8)*.2*cos(x)+cos(6*Pi/8)*.2*sin(x))-2.15,x=-21*Pi/16..Pi/32],color=magenta):

> p44 :=plot([.05*cos(x)+3.1,.04*sin(x)-1.5,x=0..2*Pi],color=orange):

> p45 :=plot([.04*cos(x)+2.7,.06*sin(x)-2,x=0..2*Pi],color=orange):

> p46 :=plot([.02*cos(x)+3.08,.02*sin(x)-1.8,x=0..2*Pi],color=yellow):

> p47 :=plot([.02*cos(x)+2.73,.02*sin(x)-1.47,x=0..2*Pi],color=blue):

> p48 :=plot([.02*cos(x)+2.67,.02*sin(x)-1.5,x=0..2*Pi],color=blue):

> p49 :=plot([.02*cos(x)+3,.02*sin(x)-2.4,x=0..2*Pi],color=yellow):

> p50 :=plot([.04*cos(x)+3.35,.05*sin(x)-2.2,x=0..2*Pi],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);

>

>