iliesh

Iliesh Christenson

December 7, 2001

Individual Project

> with(plots):

> p1 :=plot([(1/8)*cos(t)-1.3,0.4+(1/2)*sin(t),t=0..2*Pi],color = black,scaling = constrained):

> p2 :=plot([(1/8)*cos(t)-0.9,0.28+(1/2)*sin(t),t=0..2*Pi],color = black):

> p3 :=plot([0.3+.8*cos(-t),1.7+.6*sin(-t),t=5*Pi/7..17.5*Pi/7],color = black):

> p4 :=plot([1.6+.6*cos(-t),-0.1+.8*sin(-t),t=8*Pi/7..20*Pi/7],color = black):

> p5 :=plot([cos(t)+0.1,sin(t)+0.15,t=14*Pi/7..17*Pi/7],color = black):

> p6 :=plot([-1.1*cos(-t)-2.2,-.9*sin(-t)+0.7,t=6*Pi/7..7*Pi/7],color = black):

> p7 :=plot([0.8*cos(t),0.6*sin(t)-0.9,t=-0.7..2],color = black):

> p8 :=plot([cos(t)+0.1,1.24*sin(t)-0.25,t=-1.01..-0.2],color = black):

> p9 :=plot([0.8*cos(t)-0.5,0.6*sin(t)-1,t=0.8..1.2],color = black):

> p10 :=plot([0.8*cos(t)-1.9,0.6*sin(t)-0.55,t=0.8..1.3],color = black):

> p11 :=plot([(1/2)*cos(-t)-0.7,sin(-t)+0.1,t=-2.5..0.5],color = black):

> p12 :=plot([cos(t)-0.58,sin(t)+0.29,t=3.45..1.21],color =black):

> p13 :=plot([cos(t),sin(t)-0.48,t=-1.9..-0.9],color = black):

> p14 :=plot([(1/2)*cos(t)-0.55, sin(t)-0.6,t=-1.7..-0.8],color=black):

> p15 :=plot([cos(t)-0.45,sin(t)-0.5,t=-2.5..-1.8],color=black):

> p16 :=plot([cos(-t)-1.0,sin(-t)-0.1,t=3.2..0.4],color = black):

> p17 :=plot([cos(t)-0.5,sin(t)-0.6,t=-2.7..-1.7],color=black):

> p18 :=plot([(1/5)*cos(t)-0.59,(1/5)*sin(t)-1.295,t=-2.1..-0.4],color=black):

> p19 :=plot([2*cos(t)-2.079,2*sin(t)-0.3,t=-0.1..-0.6],color=black):

> p20 :=plot([(2/10)*cos(t)-1.85,(3/10)*sin(t)+0.2,t=0..2*Pi],color=black):

> p21 :=plot([(2/21)*cos(t)-0.9,(4/21)*sin(t),t=0..2*Pi],color=black):

> p22 :=plot([(2/23)*cos(t)-1.3,(4/23)*sin(t)+0.1,t=0..2*Pi],color=black):

> p23 :=plot([(2/31)*cos(t)-1.8,(4/31)*sin(t)+0.3,t=0..2*Pi],color=black):

> p24 :=plot([cos(t)-1.2,sin(t)-0.045,t=1.55..1.72],color=black):

> p25 :=plot([cos(t)-1.2,sin(t)-0.0,t=1.0..1.2],color=black):

> p26 :=plot([(1/2)*cos(-t)-0.55,sin(-t)-2.3,t=-2.1..-1.5],color=black):

> p27 :=plot([(1/2)*cos(-t)-0.3,sin(-t)-2.2,t=-2.2..-1.5],color=black):

> p28 :=plot([(1/8)*cos(t)*sin(t)-3,cos(t)*sin(t)+3.5,t=0..4],color=green):

> p29 :=plot([(1/2)*cos(t)*sin(t)-2.4,cos(t)*sin(t)+3.5,t=2.8..4],color=blue):

> p30 :=plot([-(1/8)*cos(t)*sin(t)-2.1,cos(t)*sin(t)+3.5,t=0..5],color=orange):

> p31 :=plot([-(1/2)*cos(t)*sin(t)-2.7,cos(t)*sin(t)+3.5,t=2.8..4],color=yellow):

> p32 :=plot([(1/100)*cos(t)*sin(t)-1.6,(1)*cos(t)*sin(t)+3.5,t=0..4],color=violet):

> p33 :=plot([(1/2)*cos(t)-0.8,(1/2)*sin(t)+3.5,t=Pi/4..11*Pi/6],color=blue):

> p34 :=plot([(1/100)*cos(t)*sin(t)-0.1,cos(t)*sin(t)+3.5,t=0..4],color=green):

> p35 :=plot([(1)*cos(t)*sin(t)-0.1,cos(t)*sin(t)+3.5,t=3.1..4],color=red):

> p36 :=plot([-(1)*cos(t)*sin(t)+0.4,cos(t)*sin(t)+3.0,t=3.1..3.8],color=violet):

> p37 :=plot([(1/350)*cos(t)*sin(t)+1.0,cos(t)*sin(t)+3.5,t=0..4],color=blue):

> p38 :=plot([cos(t)*sin(t)+1.4,(1/100)*cos(t)*sin(t)+3.5,t=1.6..2],color=yellow):

> p39 :=plot([cos(t)*sin(t)+1.4,(1/100)*cos(t)*sin(t)+4.0,t=1.4..2],color=violet):

> p40 :=plot([cos(t)*sin(t)+1.4,(1/440)*cos(t)*sin(t)+3.0,t=1.4..2],color=orange):

> p41 :=plot([-(1/2)*cos(t)*sin(t)+2.2,cos(t)*sin(t)+3.5,t=3.1..4.9],color=green):

> p42 :=plot([(1/3)*cos(t)*sin(t)+2.35,cos(t)*sin(t)+3.5,t=0..4],color=blue):

> p43 :=plot([(1/8)*cos(t)*sin(t)-3,cos(t)*sin(t)-2.8,t=0..4],color=green):

> p44 :=plot([(1/2)*cos(t)*sin(t)-2.4,cos(t)*sin(t)-2.8,t=2.8..4],color=blue):

> p45 :=plot([-(1/8)*cos(t)*sin(t)-2.1,cos(t)*sin(t)-2.8,t=0..5],color=orange):

> p46 :=plot([-(1/2)*cos(t)*sin(t)-2.7,cos(t)*sin(t)-2.8,t=2.8..4],color=yellow):

> p47 :=plot([(1/2)*cos(t)-1.3,(1/2)*sin(t)-2.8,t=0..2*Pi],color=green):

> p48 :=plot([(5/12)*cos(t)-0.1,(8/9)*sin(t)-2.39,t=Pi..2*Pi],color=violet):

> p49 :=plot([(8/18)*cos(t)+1.09,(13/48)*sin(t)-2.55,t=3*Pi/7..17*Pi/12],color=orange):

> p50 :=plot([-(8/18)*cos(t)+0.85,(13/48)*sin(t)-3.09,t=20*Pi/12..Pi/2],color=orange):

> p51 :=plot([(1/350)*cos(t)*sin(t)+1.75,cos(t)*sin(t)-2.8,t=0..4],color=blue):

> p52 :=plot([cos(t)*sin(t)+2.1,(1/100)*cos(t)*sin(t)-2.8,t=1.6..2],color=yellow):

> p53 :=plot([cos(t)*sin(t)+2.1,(1/510)*cos(t)*sin(t)-3.3,t=1.4..2],color=violet):

> p54 :=plot([cos(t)*sin(t)+2.1,(1/440)*cos(t)*sin(t)-2.3,t=1.4..2],color=green):

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

[Maple Plot]