> with(plots);

Warning, the name changecoords has been redefined

> p1:=plot([1.72*cos(t), 1.72*sin(t), t=0..2*Pi],scaling=constrained):

> p2:=plot([1.25*cos(t), 1.25*sin(t), t=0..2*Pi],scaling=constrained):

> p3:=plot([1.48*cos(t), 1.48*sin(t), t=0..2*Pi],scaling=constrained):

> p4:=plot([1.03*cos(t), 1.03*sin(t), t=0..2*Pi],scaling=constrained):

> p5:=plot([0.54*cos(t), 0.54*sin(t), t=0..2*Pi]):

> p6:=plot([0.69*cos(t), 0.69*sin(t), t=0..2*Pi]):

> p7:=plot([0.42*cos(t), 0.42*sin(t), t=0..2*Pi]):

> p8:=plot([0.33*cos(t), 0.33*sin(t), t=0..2*Pi]):

> p9:=plot([0.15*cos(t), 0.15*sin(t), t=0..2*Pi]):

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

> p11:=plot([0.85*cos(t), 0.85*sin(t), t=0..2*Pi]):

> p12:=polarplot([4+sin(9*theta)/3,theta=0..2*Pi]):

> p13:=plot([5*cos(t)+5, 5*sin(t)-10, t=Pi..(3/2)*Pi],scaling=constrained):

> p14:=plot([0.2*t*cos(t)-9.85, 0.2*t*sin(t)-9.15,t=0..11.26*Pi], color=black):

> p15:=plot([5*cos(t)-5, 5*sin(t)-10, t=(3/2)*Pi..2*Pi],scaling=constrained):

> p16:=plot([t, (3/8)*cos(0.76*t)-14.7, t=-6.62..-5.0], color=black):

> p17:=plot([0.15*cos(t)+1.59, 0.15*sin(t)-2.1, t=0..2*Pi]):

> p18:=plot([0.15*cos(t)-1.59, 0.15*sin(t)-2.1, t=0..2*Pi]):

> p19:=plot([0.15*cos(t)+2.45, 0.15*sin(t)+0.92, t=0..2*Pi]):

> p20:=plot([0.15*cos(t)-2.45, 0.15*sin(t)+0.92, t=0..2*Pi]):

> p21:=plot([0.15*cos(t), 0.15*sin(t)+2.95, t=0..2*Pi]):

> p22:=plot([-0.2*t*cos(t)+9.85, 0.2*t*sin(t)-9.4, t=0..11.26*Pi],color=blue):

> p23:=plot([0.2*t*cos(t)-9.85, 0.2*t*sin(t)-9.4,t=0..11.26*Pi], color=blue):

> p24:=plot([-0.2*t*cos(t)+9.85, 0.2*t*sin(t)-9.3, t=0..11.26*Pi],color=blue):

> p25:=plot([0.2*t*cos(t)-9.85, 0.2*t*sin(t)-9.3,t=0..11.26*Pi], color=blue):

> p26:=plot([0.2*t*cos(t)-9.85, 0.2*t*sin(t)-9.2,t=0..11.26*Pi], color=red):

> p27:=plot([-0.2*t*cos(t)+9.85, 0.2*t*sin(t)-9.2,t=0..11.26*Pi], color=red):

> p28:=plot([-0.2*t*cos(t)+9.85, 0.2*t*sin(t)-9.15,t=0..11.26*Pi], color=black):

> p29:=plot([t,-14.36,t=13.03..14.76],color=blue):

> p30:=plot([-t,-14.36,t=13.03..14.76],color=blue):

> p31:=plot([t,-14.44,t=13.03..14.76],color=blue):

> p32:=plot([t,-14.44,t=13.03..14.76],color=blue):

> p33:=plot([t,-14.4,t=13.03..14.76],color=blue):

> p34:=plot([t+3.67,0.5*t-0.33,t=0..1.83],color=blue):

> p35:=plot([t+3.77,0.5*t-0.52,t=0..1.82],color=blue):

> p36:=plot([0.45*cos(t)+5.81, 0.45*sin(t)+0.63, t=0..2*Pi],color=red):

> p37:=plot([0.40*cos(t)-5.81, 0.4*sin(t)+0.63, t=0..2*Pi],color=red):

> p38:=plot([0.40*cos(t)+5.81, 0.4*sin(t)+0.63, t=0..2*Pi],color=red):

> p39:=plot([-t-3.67,0.5*t-0.33,t=0..1.83],color=blue):

> p40:=plot([-t-3.77,0.5*t-0.52,t=0..1.82],color=blue):

> p41:=plot([0.45*cos(t)-5.81, 0.45*sin(t)+0.63, t=0..2*Pi],color=red):

> p42:=plot([-t+3.55,-1.92*t-8.35,t=0..0.9],color=red):

>

> p43:=plot([0.26*cos(t), 0.26*sin(t), t=0..2*Pi]):

> p44:=plot([-66.12+66*cos(t),-4.28+66*sin(t),t=-.020*Pi..0.009*Pi],color=brown):

> p45:=plot([66.12-66*cos(t),-4.28+66*sin(t),t=-.020*Pi..0.009*Pi],color=brown):

> p46:=polarplot(2.75+sin(5*theta), theta=0..2*Pi, color=violet):

> p47:=polarplot(2.95+sin(5*theta), theta=0..2*Pi, color=violet):

> p48:=polarplot(3.15+sin(5*theta), theta=0..2*Pi, color=violet):

> p49:=polarplot(3.35+sin(5*theta), theta=0..2*Pi, color=violet):

> p50:=plot([0.1*cos(t), 0.1*sin(t), t=0..2*Pi]):

> p51:=plot([t, (3/8)*cos(0.76*t)-14.7, t=5..6.62], color=black):

> p52:=plot([2.4*cos(t),2.4*sin(t)-4.4, t=25*Pi/20..49*Pi/28],color=green):

> p53:=plot([-t, (3/8)*cos(0.76*t)-10, t=-9.8..-4], color=magenta):

> p54:=plot([1.8*cos(t),1.8*sin(t)-5.5, t=45*Pi/40..53*Pi/28], color=green):

> p55:=plot([4, t, t=-6.3..-1.3], color=black):

> p56:=plot([cos(t)+3, 1.2*sin(t)-1.3, t=0..10*Pi/21], color=black):

> p57:=plot([t, (3/8)*cos(0.76*t)-10, t=-9.8..-4], color=black):

>

> p58:=plot([cos(t)-3, 1.2*sin(t)-1.3, t=Pi..10*Pi/21], color=black):

> p59:=plot([-4, t, t=-6.3..-1.2], color=black):

> p60:=plot([t, -8.2, t=-3.7..3.7], color=red):

> p61:=plot([t, -7.8, t=-3.7..3.7], color=red):

> p62:=plot([t, -8, t=-3.7..3.7], color=red):

> p63:=plot([t, -8.4, t=-3.7..3.7], color=red):

>

>

> p64:=plot([t, -8.1, t=-3.7..3.7], color=red):

> p65:=plot([t, -8.3, t=-3.7..3.7], color=red):

> p66:=plot([t, -7.9, t=-3.7..3.7], color=red):

> p67:=plot([t, -7.85, t=-3.7..3.7], color=red):

> p68:=plot([t, -8.35, t=-3.7..3.7], color=red):

> p69:=plot([t, -8, t=-3.7..3.7], color=red):

> p70:=plot([t-3.55,-1.92*t-8.35,t=0..0.9],color=red):

> p71:=plot([t,-9.96,t=-2.71..2.71],color=red):

> p72:=plot([t,-9.99,t=-2.71..2.71],color=red):

> p73:=plot([t,-10.02,t=-2.71..2.71],color=red):

> p74:=plot([t-3.52,-1.92*t-8.35,t=0..0.9],color=red):

> p75:=plot([-t+3.52,-1.92*t-8.35,t=0..0.9],color=red):

> p76:=polarplot(2.85+sin(5*theta), theta=0..2*Pi, color=red):

> p77:=polarplot(3.05+sin(5*theta), theta=0..2*Pi, color=red):

> p78:=polarplot(3.25+sin(5*theta), theta=0..2*Pi, color=red):

> p79:=polarplot(3.45+sin(5*theta), theta=0..2*Pi, color=red):

> p80:=polarplot(3.48+sin(5*theta), theta=0..2*Pi, color=yellow):

> p81:=polarplot(3.52+sin(5*theta), theta=0..2*Pi, color=yellow):

> p82:=polarplot(3.56+sin(5*theta), theta=0..2*Pi, color=yellow):

> p83:=polarplot(3.60+sin(5*theta), theta=0..2*Pi, color=yellow):

> p84:=plot([1.8*cos(t),1.8*sin(t)-5.42, t=45*Pi/40..53*Pi/28], color=brown):

> p85:=plot([2.4*cos(t),2.4*sin(t)-4.32, t=25*Pi/20..49*Pi/28],color=brown):

> p86:=plot([5.02*cos(t)-5, 5.02*sin(t)-10, t=(3/2)*Pi..2*Pi],scaling=constrained):

> p87:=plot([5.02*cos(t)+5, 5.02*sin(t)-10, t=Pi..(3/2)*Pi],scaling=constrained):

> p88:=plot([0.06*cos(t)+1.59, 0.15*sin(t)-2.1, t=0..2*Pi],color=blue):

> p89:=plot([0.06*cos(t)-1.59, 0.15*sin(t)-2.1, t=0..2*Pi],color=blue):

> p90:=plot([0.03*cos(t)+1.59, 0.15*sin(t)-2.1, t=0..2*Pi],color=blue):

> p91:=plot([0.03*cos(t)-1.59, 0.15*sin(t)-2.1, t=0..2*Pi],color=blue):

> p92:=plot([-4.05, t, t=-6.3..-1.3], color=black):

> p93:=plot([4.05, t, t=-6.3..-1.3], color=black):

> p94:=plot([1.05*cos(t)+3, 1.25*sin(t)-1.3, t=0..10*Pi/21], color=black):

> p95:=plot([1.05*cos(t)-3, 1.25*sin(t)-1.3, t=Pi..10*Pi/21], color=black):

> n:=30:
for i from 1 to n do
A:=i*2*Pi/n: q[i]:=plot([ 1.48*cos(A)-t*1.48*sin(A) , 1.48*sin(A) +t*1.48*cos(A), t=
0..0.6],scaling=constrained): od:

> n:=30:
for i from 1 to n do
A:=i*2*Pi/n: r[i]:=plot([ 1.25*cos(A)-t*1.25*sin(A) , 1.25*sin(A) +t*1.25*cos(A), t=
0..0.7],scaling=constrained): od:

> n:=30:
for i from 1 to n do
A:=i*2*Pi/n: s[i]:=plot([ 1.03*cos(A)-t*1.03*sin(A) , 1.03*sin(A) +t*1.03*cos(A), t=
0..0.72],scaling=constrained): od:

> n:=30:
for i from 1 to n do
A:=i*2*Pi/n: u[i]:=plot([ 0.85*cos(A)-t*0.85*sin(A) , 0.85*sin(A) +t*0.85*cos(A), t=
0..0.7],scaling=constrained): od:

> n:=30:
for i from 1 to n do
A:=i*2*Pi/n: v[i]:=plot([ .54*cos(A)-t*.54*sin(A) , .54*sin(A) +t*.54*cos(A), t=
0..0.7],scaling=constrained): od:

> n:=30:
for i from 1 to n do
A:=i*2*Pi/n: w[i]:=plot([ .42*cos(A)-t*.42*sin(A) , .42*sin(A) +t*.42*cos(A), t=
0..0.65],scaling=constrained): od:

> n:=30:
for i from 1 to n do
A:=i*2*Pi/n: x[i]:=plot([ .33*cos(A)-t*.33*sin(A) , .33*sin(A) +t*.33*cos(A), t=
0..0.6],scaling=constrained): od:

> n:=30:
for i from 1 to n do
A:=i*2*Pi/n: y[i]:=plot([ .2*cos(A)-t*.2*sin(A) , .2*sin(A) +t*.2*cos(A), t=
0..0.4],scaling=constrained): od:

> n:=30:
for i from 1 to n do
A:=i*2*Pi/n: z[i]:=plot([ .15*cos(A)-t*.15*sin(A) , .15*sin(A) +t*.15*cos(A), t=
0..0.22],scaling=constrained): od:

> n:=30:
for i from 1 to n do
A:=i*2*Pi/n: o[i]:=plot([ .69*cos(A)-t*.69*sin(A) , .69*sin(A) +t*.69*cos(A), t=
0..0.75],scaling=constrained): od:

>
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,p54,p55,p56,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,p84,p85,p86,p87,p88,p89,p90,p91,p92,p93,p94,p95, q[j] $j=1..n,r[j] $j=1..n,s[j] $j=1..n,u[j] $j=1..n,o[j] $j=1..n,z[j] $j=1..n,y[j] $j=1..n,x[j] $j=1..n,w[j] $j=1..n,v[j] $j=1..n);

>