> with(plots);

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

> p2:=plot([4*cos(t)+1, 3.8*sin(t)+4, t=2*Pi..Pi], color=green):

> p3:=plot([2.5*cos(t)+2, 2.7*sin(t)+4.3, t=0..2*Pi], color=black):

> p4:=plot([1.2*cos(t)+2.5, 1.5*sin(t)+4.3, t=0..2*Pi], color=black):

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

> p6:=polarplot(7-2*cos(theta)+4*sin(theta), theta=2*Pi..Pi, color=green):

>

> p7:=polarplot(10-2*cos(theta)-1.5*sin(theta), theta=0..Pi, color=green):

> p8:=plot([4*cos(t)+1, 3.5*sin(t)+4, t=0..Pi], color=green):

>

> p9:=polarplot(7-2*cos(theta)+.8*sin(theta), theta=2*Pi..Pi, color=green):

> p10:=polarplot(7-2*cos(theta)+3.4*sin(theta), theta=2*Pi..Pi, color=green):

> p11:=plot([cos(t)-9.4, sin(t)-2, t=-Pi/7..Pi/2.95], color=violet):

> p12:=plot([cos(t)-8.8, sin(t)-3.4, t=-Pi/7.5..Pi/3], color=violet):

> p13:=plot([cos(t)-7.8, sin(t)-4.5, t=-Pi/20..Pi/2], color=violet):

> p14:=plot([cos(t)-6.6, sin(t)-5.5, t=-Pi/25..Pi/1.7], color=violet):

> p15:=plot([cos(t)-4.9, sin(t)-6.4, t=Pi/12..2*Pi/2.7], color=violet):

> p16:=plot([cos(t)-3.3, sin(t)-6.8, t=Pi/12..3*Pi/4], color=violet):

> p17:=plot([cos(t)-1.5, sin(t)-6.9, t=Pi/6..5*Pi/6],color=violet):

> p18:=plot([cos(t)+.5, sin(t)-6.5, t=Pi/3..Pi], color=violet):

> p19:=plot([t-2, 10*sin(t)-18.5, t=-5..-6], color=green):

> p20:=plot([t, 10*cos(t), t=-5..-6], color=green):

> p21:=plot([cos(t)-7.5, sin(t)-1.5, t=5*Pi/6..3*Pi/2], color=violet):

> p22:=plot([cos(t)-6.5, sin(t)-2.6, t=Pi..5*Pi/3], color=violet):

> p23:=plot([cos(t)-5, sin(t)-3.7, t=Pi..11*Pi/6], color=violet):

> p24:=plot([cos(t)-3.2, sin(t)-4.2, t=Pi..2*Pi], color=violet):

> p25:=plot([cos(t)-1.4, sin(t)-4, t=7*Pi/6..2*Pi], color=violet):

> p26:=plot([cos(t)+.2, sin(t)-3.2, t=4*Pi/3..2.1*Pi], color=violet):

> p27:=plot([cos(t)+1.7, sin(t)-2.3, t=4*Pi/3..2.1*Pi], color=violet):

> p28:=plot([cos(t)+3, sin(t)-1.3, t=4*Pi/3..2.1*Pi], color=violet):

> p29:=polarplot(9.5-2.1*sin(2*theta), theta=Pi/6.8..Pi/3, color=green):

>

> p30:=plot([cos(5*Pi/2.9)*(-t^2+12)-sin(5*Pi/2.9)*(cos(t)+8), sin(5*Pi/2.9)*(-t^2+12)+cos(5*Pi/2.9)*(cos(t)+8), t=.5..3], color=green):

> p31:=plot([cos(11*Pi/6)*((t^3)+4.8)-sin(11*Pi/6)*(sin(2*t)+6), sin(11*Pi/6)*((t^3)+4.8)+cos(11*Pi/6)*(sin(2*t)+6), t=0..2], color=green):

> p32:=plot([cos(t)+14.1, sin(t)-3.7, t=0..Pi/2], color=green):

> p33:=plot([cos(t)+13.9, sin(t)-4.1, t=0..Pi/2], color=green):

> p34:=plot([17.8-t*.45,-5.5+t*.45, t=5..7], color=green):

> p35:=plot([18.4-t*.45,-5.5+t*.45, t=5..7], color=green):

> p36:=plot([.3*cos(t)+15.5, .3*sin(t)-3.6, t=0..2*Pi], color=green):

> p37:=plot([.3*cos(t)+15, .3*sin(t)-4, t=0..2*Pi], color=green):

> p38:=plot([.3*cos(t)+16, .3*sin(t)-3.6, t=0..2*Pi], color=green):

> p39:=plot([-t^2+15.3,sin(t)-2.5, t=0..1], color=green):

> p40:=plot([-t^2+18.2, -cos(t)-2, t=2..2.3], color=green):

> p41:=plot([.5*t+3, -.85*t-9, t=0..4.5], color=green):

> p42:=plot([.5*t+4, -.95*t-8, t=0..5], color=green):

> p43:=plot([cos(Pi/2)*(t^3-17)-sin(Pi/2)*(-cos(2*t)+6),sin(Pi/2)*(t^3-17)+cos(Pi/2)*(-cos(2*t)+6), t=1..2], color=green):

> p44:=plot([cos(Pi/2)*(t^3-17.5)-sin(Pi/2)*(sin(t)+4.7),sin(Pi/2)*(t^3-17.5)+cos(Pi/2)*(sin(t)+4.7), t=1..2], color=green):

> p45:=plot([cos(Pi)*(-t^3+18)-sin(Pi)*(sin(t)),sin(Pi)*(-t^3-18)+cos(Pi)*(sin(t)), t=.2..1.8], color=green):

> p46:=plot([cos(Pi/2)*(t^2-.5)-sin(Pi/2)*(sin(t)+17.5),sin(Pi/2)*(t^2-.5)+cos(Pi/2)* (sin(t)+17.5), t=0..1.8], color=green):

> p47:=plot([cos(Pi/3)*(t^2-18)-sin(Pi/3)*(sin(t)+10.8), sin(Pi/3)*(t^2+12)+cos(Pi/3)*(sin(t)-15.5), t=0..1], color=green):

> p48:=plot([cos(Pi/3)*(t^2-18)-sin(Pi/3)*(sin(t)+11.1), sin(Pi/3)*(t^2+12)+cos(Pi/3)*(sin(t)-13), t=.1...1], color=green):

> p49:=plot([t*.2-19.6, -t*.95+10, t=5..6.5], color=green):

> p50:=plot([t*.2-19.25, -t+10.5, t=5..6.5], color=green):

> p51:=plot([t*.35-19.7, -t+10.5, t=5..6.5], color=green):

> p52:=plot([.3*cos(t)-19, .3*sin(t)+5.4, t=0..2*Pi], color=green):

> p53:=plot([.3*cos(t)-18.5, .3*sin(t)+5.6, t=0..2*Pi], color=green):

> p54:=plot([.3*cos(t)-18, .3*sin(t)+5.8, t=0..2*Pi], color=green):

> p55:=plot([t^2-17, sin(t)-.5, t=.2..2.3], color=green):

> p56:=plot([cos(Pi/2)*(t^3)-sin(Pi/2)*(sin(t)+16.5),sin(Pi/2)*(t^3)+cos(Pi/2)*(sin(t)+16.5), t=0..1.5], color=green):

> p57:=plot([.2*t^3-17.5, 2*cos(t)+2,t=0..1], color=green):

> p58:=plot([-1.4*t+6.5, -1.4*t-14, t=0..2], color=green):

> p59:=plot([cos(4*Pi/3.1)*(t^3+6)-sin(4*Pi/3.1)*(sin(2*t)+13),sin(4*Pi/3.1)*(t^3+6)+cos(4*Pi/3.1)*(sin(2*t)+13), t=0..1.1], color=green):

> p60:=plot([cos(4*Pi/3.5)*(t^3+.7)-sin(4*Pi/3.5)*(sin(2*t)+13.5), sin(4*Pi/3.5)*(t^3+.7)+cos(4*Pi/3.5)*(sin(2*t)+13.5), t=0..1], color=green):

> p61:=plot([-1.4*t+4.7, -1.4*t-13.7, t=0..1.8], color=green):

> p62:=plot([2*cos(t)-7, 2*sin(t)-17.5,t=3*Pi/2..2*Pi], color=green):

> p63:=plot([2*cos(t)-7, 2*sin(t)-18, t=0..Pi/2], color=green):

> p64:=plot([3*cos(t)-5.6, 3*sin(t)-17, t=Pi..4*Pi/3], color=green):

> p65:=plot([-.5*t-7.3,.5*t-17.5, t=0..2], color=green):

> p66:=plot([-.5*t-6.6,.5*t-17.1, t=0..2], color=green):

> p67:=plot([.4*cos(t)-8.7, .4*sin(t)-16.5, t=0..2*Pi], color=green):

> p68:=plot([.4*cos(t)-7.9, .4*sin(t)-16, t=0..2*Pi], color=green):

> p69:=plot([.4*cos(t)-7.1, .4*sin(t)-15.8, t=0..2*Pi], color=green):

> p70:=plot([2*cos(t)+4, 2*sin(t)-16.2, t=Pi..7*Pi/6], color=green):

> p71:=plot([-.5*t+3.7,.5*t-18.8, t=0..3], color=green):

> p72:=plot([2*cos(t)+4.3, 2*sin(t)-18.5, t=0..2*Pi/3], color=green):

> p73:=plot([-.5*t+4.8, .5*t-18.8, t=0..2], color=green):

> p74:=plot([-.5*t+5.6,.5*t-18.6, t=0..2], color=green):

> p75:=plot([.4*cos(t)+4.4, .4*sin(t)-19.2, t=0..2*Pi], color=green):

> p76:=plot([.4*cos(t)+5.2,.4*sin(t)-18.9,t=0..2*Pi], color=green):

> p77:=plot([.4*cos(t)+5.9, .4*sin(t)-18.55, t=0..2*Pi], color=green):

> p78:=plot([t-17.3,sin(t)+4, t=0..1.5], color=green):

> p79:=plot([t+8, cos(t)-3.8, t=4.5..6], color=green):

> p80:=plot([-t-15.8, -sin(t)+4.5,t=0..1.5], color=green):

> p81:=plot([-t+18.75, -cos(t)-3.3, t=4.5..6], color=green):

> p82:=plot([.3*cos(t)+12.8,.3*sin(t)-4, t=0..2*Pi], color=green):

> p83:=plot([.3*cos(t)-15.7, .3*sin(t)+5, t=0..2*Pi], color=green):

> display(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p21,p22,p23,p24,p25,p26,p27,p28,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,p69,p70,p71,p72,p73,p74,p75,p76,p77,p78,p79,p80,p81,p82,p83);