(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     18423,        472]
NotebookOptionsPosition[     17899,        452]
NotebookOutlinePosition[     18242,        467]
CellTagsIndexPosition[     18199,        464]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  StyleBox["\[IndentingNewLine]",
   Magnification->2.], 
  StyleBox["\[IndentingNewLine]",
   Magnification->2.], 
  RowBox[{
   RowBox[{
    StyleBox["Manipulate",
     Magnification->2.], 
    StyleBox["[",
     Magnification->2.], 
    RowBox[{
     RowBox[{
      StyleBox["Graphics",
       Magnification->2.], 
      StyleBox["[",
       Magnification->2.], 
      StyleBox["\[IndentingNewLine]",
       Magnification->2.], 
      RowBox[{
       StyleBox[
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"RGBColor", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"-", ".1367"}], "x"}], "+", ".6289"}], ",", 
              RowBox[{
               RowBox[{".0039", "x"}], "+", ".7031"}], ",", 
              RowBox[{
               RowBox[{".05273", "x"}], "+", ".73047"}]}], "]"}], ",", 
            RowBox[{"Rectangle", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "1"}], ",", "50"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"50", ",", 
                RowBox[{"-", "50"}]}], "}"}]}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{"{", 
           RowBox[{"Yellow", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"12", ",", ".5"}], "}"}], ",", "2"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"LightGray", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"5", "-", "x"}], ",", ".4"}], "}"}], ",", "2"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"LightGray", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"7", "-", "x"}], ",", ".5"}], "}"}], ",", "2"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"LightGray", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"9", "-", "x"}], ",", ".6"}], "}"}], ",", "2"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"LightGray", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"11", "-", "x"}], ",", ".7"}], "}"}], ",", "2"}], 
             "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"LightGray", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"x", "+", "13"}], ",", ".4"}], "}"}], ",", "2"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"LightGray", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"x", "+", "15"}], ",", ".5"}], "}"}], ",", "2"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"LightGray", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"x", "+", "17"}], ",", ".6"}], "}"}], ",", "2"}], 
             "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"LightGray", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"x", "+", "19"}], ",", ".7"}], "}"}], ",", "2"}], 
             "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Rectangle", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"25", ",", 
                RowBox[{"-", "17"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "1"}], ",", 
                RowBox[{"-", "20"}]}], "}"}]}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Brown", ",", 
            RowBox[{"Rectangle", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"17", ",", 
                RowBox[{"-", "14"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"18", ",", 
                RowBox[{"-", "17"}]}], "}"}]}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"16.5", ",", 
                RowBox[{"-", "14"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"17.5", ",", 
                RowBox[{"-", "14.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"18.5", ",", 
                RowBox[{"-", "14"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"18", ",", 
                RowBox[{"-", "13"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"16.8", ",", 
                RowBox[{"-", "13.1"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"17.5", ",", 
                RowBox[{"-", "14"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Brown", ",", 
            RowBox[{"Rectangle", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"12", ",", 
                RowBox[{"-", "14"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"11", ",", 
                RowBox[{"-", "17"}]}], "}"}]}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"11.5", ",", 
                RowBox[{"-", "14"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"10.5", ",", 
                RowBox[{"-", "13.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"12.6", ",", 
                RowBox[{"-", "13.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"10.9", ",", 
                RowBox[{"-", "12.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"12", ",", 
                RowBox[{"-", "12.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"11.5", ",", 
                RowBox[{"-", "13"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Brown", ",", 
            RowBox[{"Rectangle", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"4", ",", 
                RowBox[{"-", "14"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"5", ",", 
                RowBox[{"-", "17"}]}], "}"}]}], "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"3.5", ",", 
                RowBox[{"-", "13"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"4.5", ",", 
                RowBox[{"-", "13.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"5.6", ",", 
                RowBox[{"-", "13.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"5.8", ",", 
                RowBox[{"-", "12.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"4.2", ",", 
                RowBox[{"-", "11.8"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"5.3", ",", 
                RowBox[{"-", "11.8"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Green", ",", 
            RowBox[{"Disk", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"4.8", ",", 
                RowBox[{"-", "12.5"}]}], "}"}], ",", ".8"}], "]"}]}], "}"}]}],
          "}"}],
        Magnification->2.], 
       StyleBox[",",
        Magnification->2.], 
       StyleBox["\[IndentingNewLine]",
        Magnification->2.], 
       RowBox[{
        StyleBox["PlotRange",
         Magnification->2.], 
        StyleBox["\[Rule]",
         Magnification->2.], " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "25"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "18"}], ",", "4"}], "}"}]}], "}"}]}]}], "]"}], 
     StyleBox[",",
      Magnification->2.], 
     StyleBox[
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "4"}], "}"}],
      Magnification->2.]}], 
    StyleBox["]",
     Magnification->2.]}], 
   StyleBox["\[IndentingNewLine]",
    Magnification->3.]}]}]], "Input",
 CellChangeTimes->{{3.408713536125*^9, 3.4087135445625*^9}, {
   3.40871357940625*^9, 3.408713593921875*^9}, 3.40871372284375*^9, {
   3.40871385434375*^9, 3.408713897265625*^9}, {3.408713954703125*^9, 
   3.408714000984375*^9}, {3.40871403471875*^9, 3.408714034890625*^9}, {
   3.408714076546875*^9, 3.408714212375*^9}, {3.4087142894375*^9, 
   3.4087144684375*^9}, {3.408714753140625*^9, 3.408714753359375*^9}, {
   3.408714844265625*^9, 3.408714845671875*^9}, {3.408714945484375*^9, 
   3.408714945703125*^9}, {3.4087149966875*^9, 3.40871499684375*^9}, {
   3.40871507609375*^9, 3.408715120078125*^9}, {3.40871515175*^9, 
   3.408715181203125*^9}, {3.4087152215*^9, 3.4087154268125*^9}, {
   3.408715476421875*^9, 3.40871553771875*^9}, {3.40871557346875*^9, 
   3.408715640890625*^9}, 3.408715675015625*^9, {3.408715802640625*^9, 
   3.40871583653125*^9}, {3.408716311984375*^9, 3.40871639025*^9}, {
   3.4088094104759502`*^9, 3.4088094804726763`*^9}, {3.4088095617848377`*^9, 
   3.408809620247924*^9}, {3.408809680472228*^9, 3.40880970848027*^9}, {
   3.408809770481378*^9, 3.408809880534124*^9}, {3.408809915852*^9, 
   3.408809929068928*^9}, {3.4088100785386677`*^9, 3.40881008254427*^9}, {
   3.40881013974489*^9, 3.408810150982396*^9}, 3.4088102122509623`*^9, {
   3.40881026848525*^9, 3.4088102930332003`*^9}, {3.408810325639112*^9, 
   3.4088103328554296`*^9}, {3.408810460691802*^9, 3.408810502477868*^9}, {
   3.408810631545534*^9, 3.4088106682349777`*^9}, {3.408810793998412*^9, 
   3.408810802882432*^9}, {3.408810858867344*^9, 3.408810922349122*^9}, 
   3.408810955765506*^9, {3.40881101598981*^9, 3.4088110462110643`*^9}, {
   3.408811098486508*^9, 3.408811179206402*^9}, {3.408811439679634*^9, 
   3.408811466440762*^9}, {3.408811527304092*^9, 3.408811542266652*^9}, {
   3.40889028083179*^9, 3.40889032068696*^9}, 3.4088904811843853`*^9, {
   3.408890520321725*^9, 3.40889057373764*^9}, {3.408890614451085*^9, 
   3.40889068069431*^9}, {3.40889072054948*^9, 3.408890738198735*^9}, {
   3.4088908451819353`*^9, 3.408890962750005*^9}, {3.408891059344955*^9, 
   3.40889134958235*^9}, {3.40889175319007*^9, 3.408891767187755*^9}, {
   3.40889181211455*^9, 3.40889185889834*^9}, {3.40889190000191*^9, 
   3.408891907663965*^9}, {3.408892613540535*^9, 3.408892625088235*^9}, 
   3.408892850330805*^9, 3.408893499186705*^9, {3.408981024687714*^9, 
   3.4089810289089212`*^9}, {3.4089810872866507`*^9, 3.408981089397254*^9}, {
   3.4089811538879166`*^9, 3.4089813103696237`*^9}, {3.4089817394787664`*^9, 
   3.408981768057901*^9}, {3.408981800623731*^9, 3.40898184729152*^9}, {
   3.4089818811237125`*^9, 3.408981947318492*^9}, {3.4089834593198805`*^9, 
   3.408983463476157*^9}, {3.408983503429538*^9, 3.4089835762268786`*^9}, {
   3.4089836951977224`*^9, 3.40898371015123*^9}, {3.4089837742778716`*^9, 
   3.408983788871995*^9}, {3.408983963783209*^9, 3.4089839638925877`*^9}, {
   3.4089840056754427`*^9, 3.408984021644806*^9}, {3.4089846816570654`*^9, 
   3.4089847287995005`*^9}, {3.4089848375536766`*^9, 
   3.4089848402569056`*^9}, {3.4089849238538656`*^9, 
   3.4089849538237667`*^9}, {3.4089855310646815`*^9, 3.408985547190301*^9}, {
   3.4089860169114623`*^9, 3.4089860536003714`*^9}, {3.409005736697625*^9, 
   3.409005737072625*^9}, {3.409005784932*^9, 3.4090057852445*^9}, {
   3.409005987072625*^9, 3.409006013182*^9}, {3.409006085697625*^9, 
   3.409006095728875*^9}, 3.409006127791375*^9, {3.409006183822625*^9, 
   3.409006233603875*^9}, 3.409006305635125*^9, {3.409006461353875*^9, 
   3.409006462072625*^9}, {3.409006606728875*^9, 3.409006839666375*^9}, {
   3.409006888932*^9, 3.409006983728875*^9}, {3.409007014260125*^9, 
   3.409007041416375*^9}, {3.409007076541375*^9, 3.4090071177445*^9}, {
   3.409007408228875*^9, 3.409007466635125*^9}, {3.4090075984945*^9, 
   3.409007837260125*^9}, {3.409008108635125*^9, 3.409008180228875*^9}, {
   3.409008233416375*^9, 3.409008279166375*^9}, {3.40900830983825*^9, 
   3.409008356307*^9}, {3.4090084381195*^9, 3.409008449072625*^9}, {
   3.409008479791375*^9, 3.409008590635125*^9}, {3.409008763135125*^9, 
   3.409008787432*^9}, {3.40900883321325*^9, 3.4090089071195*^9}, {
   3.409009045478875*^9, 3.409009114682*^9}, {3.40900915452575*^9, 
   3.409009200791375*^9}, {3.4090133447445*^9, 3.409013504166375*^9}, {
   3.40901353727575*^9, 3.409013958291375*^9}, {3.409014136416375*^9, 
   3.409014201557*^9}, {3.409014259822625*^9, 3.409014290166375*^9}, {
   3.409014332041375*^9, 3.409014606510125*^9}, {3.409014666103875*^9, 
   3.40901515696325*^9}, {3.4090153008695*^9, 3.409015361791375*^9}, {
   3.409015544557*^9, 3.409015928260125*^9}, {3.4090427657120266`*^9, 
   3.409042780723135*^9}, 3.409042970088032*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.409015811947625*^9, 3.409015928635125*^9}, 
   3.4090429717281632`*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.409014765541375*^9, 3.40904297413369*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.4089847250337315`*^9, 3.4089847252993665`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.408809505347932*^9, 3.408809507389698*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.408715539265625*^9, {3.408715581890625*^9, 3.408715641265625*^9}, 
   3.40871567603125*^9, {3.40871580815625*^9, 3.4087158130625*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.40871581078125*^9, 3.408715823578125*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.408714298*^9}]
},
WindowSize->{1272, 683},
WindowMargins->{{69, Automatic}, {Automatic, 82}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 16571, 405, 898, "Input"],
Cell[17142, 428, 120, 2, 31, "Input"],
Cell[17265, 432, 89, 1, 31, "Input"],
Cell[17357, 435, 96, 1, 31, "Input"],
Cell[17456, 438, 92, 1, 31, "Input"],
Cell[17551, 441, 185, 3, 31, "Input"],
Cell[17739, 446, 91, 1, 31, "Input"],
Cell[17833, 449, 62, 1, 31, "Input"]
}
]
*)