>

> with(plots):

Warning, the name changecoords has been redefined

> p1 := polarplot(3 + 2*sin(theta),theta = 0 .. 2*Pi,color = violet,scaling = constrained):

> p2 := plot([2*cos(t), 4.2+2.2*sin(t), t = 5/4*Pi .. 6/4*Pi], color = blue):

> p3 := plot([-1+.7*cos(t), 3.85+.7*sin(t), t = 0.9*Pi .. 2.1*Pi], color = blue):

> p4 := plot([1+.7*cos(t), 3.85+.7*sin(t), t = 0.9*Pi .. 2.1*Pi], color = blue):

> p5 := plot([2*cos(t), 4.1+2*sin(t), t = 5*Pi/4 .. 7*Pi/4], color = blue):

> p6 := plot([1+.25*cos(t), 4.1+.5*sin(t), t = 1*Pi .. 2*Pi], color = black):

> p7 := plot([-1+.25*cos(t), 4.1+.5*sin(t), t = 1*Pi .. 2*Pi], color = black):

> p8 := plot([1 + 20*cos(t), -15.9+ 20*sin(t), t = .51*Pi .. .49*Pi], color = blue):

> p9 := plot([-1 + 20*cos(t), -15.9+ 20*sin(t), t = .51*Pi .. .49*Pi], color = blue):

> p10 := plot([0 + 2*cos(t), 5+3*sin(t), t = 6/4*Pi .. 13/8*Pi], color = blue):

> p11 := plot([8.4+ 10*cos(t), 0.1+10*sin(t), t = .95*Pi .. 1.02*Pi], color = blue):

> p12 := plot([ 0.8+2*cos(t), -0.3+2*sin(t), t = .57*Pi .. .43*Pi], color = blue):

> p13 := plot([-0.1+2*cos(t), -0.3+2*sin(t), t = .57*Pi .. .43*Pi], color = blue):

> p14 := plot([-1.1+10*cos(t), -8.3+10*sin(t), t = .51*Pi .. .48*Pi], color = blue):

> p15 := plot([-8.75+ 10*cos(t), 1.1+10*sin(t), t = 1.95*Pi .. 2.02*Pi], color = blue):

> p16 := plot([0.5+10*cos(t), -10.4+10*sin(t), t = .5*Pi .. .48*Pi], color = blue):

> p17 := plot([-0.5+10*cos(t), -10.4+10*sin(t), t = .5*Pi .. .48*Pi], color = blue):

> p18 := plot([-1.6+10*cos(t), -10.5+10*sin(t), t = .5*Pi .. .48*Pi], color = blue):

> p19 := plot([9.5+ 10*cos(t), 0.2+10*sin(t), t = .98*Pi .. 1.02*Pi], color = blue):

> p20 := plot([10.5+ 10*cos(t), 0.2+10*sin(t), t = .98*Pi .. 1.02*Pi], color = blue):

> p21 := plot([-10.9+ 10*cos(t), 0.2+10*sin(t), t = 1.976*Pi .. 2.02*Pi], color = blue):

> p22 := plot([-9.85+ 10*cos(t), 0.2+10*sin(t), t = 1.98*Pi .. 2.02*Pi], color = blue):

> p23 := plot([-0.65+0.5*cos(t), 0.4+0.5*sin(t), t = .66*Pi .. .37*Pi], color = blue):

> p24 := plot([0.4+0.5*cos(t), 0.37+0.5*sin(t), t = .66*Pi .. .395*Pi], color = blue):

> p25 := plot([-5.2+ 3*cos(t), 4+3*sin(t), t = 1.4*Pi .. 1.7*Pi], color = black):

> p26 := plot([-3.2+ 4*cos(t), -2+4*sin(t), t = .52*Pi .. .65*Pi], color = black):

> p27 := plot([-6.05+ 3*cos(t), -1.3+3*sin(t), t = .39*Pi .. .5*Pi], color = black):

> p28 := plot([3.9+ 3*cos(t), 4+3*sin(t), t = 1.45*Pi .. 1.8*Pi], color = black):

> p29 := plot([3.4+ 4*cos(t), -2+4*sin(t), t = .38*Pi .. .5*Pi], color = black):

> p30 := plot([6.65+ 3*cos(t), -0.75+3*sin(t), t = .59*Pi .. .7*Pi], color = black):

> p31 := plot([2.7+ 5*cos(t), -3.2+5*sin(t), t = .855*Pi .. 1.1*Pi], color = black):

> p32 := plot([3.5+ 5*cos(t), -3.2+5*sin(t), t = .86*Pi .. 1.14*Pi], color = black):

> p33 := plot([-3.5 +2.5*cos(t), -5.2+.5*sin(t), t = 1.9*Pi .. .3*Pi], color = black):

> p34 := plot([-1.8+ 4*cos(t), -3.2+5*sin(t), t = 1.91*Pi .. 2.15*Pi], color = black):

> p35 := plot([-2.7+ 6*cos(t), -3.2+4*sin(t), t = 1.9*Pi .. 2.2*Pi], color = black):

> p36 := plot([3.85 +2.5*cos(t), -4.9+.5*sin(t), t = 2.61*Pi .. .75*Pi], color = black):

> p37 := plot([-7+1*cos(t), 1.6+1*sin(t), t = 1.85*Pi .. 2.05*Pi], color = black):

> p38 := plot([-7.2+1*cos(t), 1.6+1*sin(t), t = 1.85*Pi .. 2.05*Pi], color = black):

> p39 := plot([-6.15+.5*cos(t), 1.27+.5*sin(t), t = .4*Pi .. .6*Pi], color = black):

> p40 := plot([-6.15+.5*c1os(t), 1.6+.5*sin(t), t = 1.4*Pi .. 1.6*Pi], color = black):

> p41 := plot([-7.2+1*cos(t), 1.6+1*sin(t), t = 1.8*Pi .. 2.15*Pi], color = black):

> p42 := plot([-6.85 +.7*cos(t), 1.2+.24*sin(t), t = 1.9*Pi .. .75*Pi], color = black):

> p43 := plot([-6.85 +.7*cos(t), 1.56+.24*sin(t), t = 1.25*Pi .. .75*Pi], color = black):

> p44 := plot([-6.85 +1.7*cos(t), 1.9+.24*sin(t), t = 1.4*Pi .. .45*Pi], color = black):

> p45 := plot([-6.5 +.2*cos(t), 1.5+1*sin(t), t = .8*Pi .. .2*Pi], color = black):

> p46 := plot([-7 +.5*cos(t), 1.6+.2*sin(t), t = 0*Pi .. 2*Pi], color = black):

> p47 := plot([-7 +.5*cos(t), 1.2+.2*sin(t), t = 0*Pi .. 2*Pi], color = black):

> p48 := plot([5.83+1*cos(t), 3.18+1*sin(t), t = 1.5*Pi .. 1.65*Pi], color = black):

> p49 := plot([5.83+1*cos(t), 3.3+1*sin(t), t = 1.35*Pi .. 1.8*Pi], color = black):

> p50 := plot([6.15+.3*cos(t), 2.2+.3*sin(t), t = 1.08*Pi .. .92*Pi], color = black):

> p51 := plot([6.05+.3*cos(t), 2.3+.3*sin(t), t = 1.9*Pi .. 2.15*Pi], color = black):

> p52 := plot([5.8 +.2*cos(t), 3.2+1*sin(t), t = 0*Pi .. 1*Pi], color = black):

> p53 := plot([5.4 +.2*cos(t), 3+.5*sin(t), t = 0*Pi .. 1.5*Pi], color = black):

> p54 := plot([6.2 +.2*cos(t), 3.2+1.2*sin(t), t = 0*Pi .. .9*Pi], color = black):

> p55 := plot([6.6 +.14*cos(t), 3.2+1.1*sin(t), t = -.14*Pi .. .9*Pi], color = black):

> 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);

>