(* 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[ 24975, 700] NotebookOptionsPosition[ 24677, 686] NotebookOutlinePosition[ 25019, 701] CellTagsIndexPosition[ 24976, 698] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "n", "]"}], " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "6", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "16", ",", "3"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12.5", ",", "6", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"12.5", ",", "13", ",", "5"}], "}"}]}], "}"}], ",", "2"}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"12.5", ",", "14.5", ",", "5"}], "}"}], "}"}], ",", "2"}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"10.5", ",", "12.5", ",", "5"}], "}"}], "}"}], ",", "1"}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"14.5", ",", "12.5", ",", "5"}], "}"}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"12.5", ",", "6", ",", "5"}], "}"}], "}"}], ",", "2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"13.5", ",", "5", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"13.5", ",", "2.5", ",", "5"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11.5", ",", "5", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"11.5", ",", "2.55", ",", "5"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"13.5", ",", "2", ",", "5"}], "}"}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"11.5", ",", "2", ",", "5"}], "}"}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11.5", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"11.5", ",", "2", ",", "5"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"13.5", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"13.5", ",", "2", ",", "5"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"11.5", ",", "2", ",", "1"}], "}"}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"13.5", ",", "2", ",", "1"}], "}"}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"11.5", ",", "1", ",", "1"}], "}"}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"13.5", ",", "1", ",", "1"}], "}"}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "16", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6.75", ",", "16.75", ",", "20"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18", ",", "16", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"18.75", ",", "16.75", ",", "20"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "16", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"18.75", ",", "16.75", ",", "20.75"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.5", ",", "15", ",", "20.5"}], "}"}], ",", RowBox[{"{", RowBox[{"18.25", ",", "15", ",", "20.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18.25", ",", "15", ",", "20.5"}], "}"}], ",", RowBox[{"{", RowBox[{"20.25", ",", "15", ",", "18.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.5", ",", "15", ",", "18.5"}], "}"}], ",", RowBox[{"{", RowBox[{"6.5", ",", "15", ",", "20.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.5", ",", "15", ",", "20.5"}], "}"}], ",", RowBox[{"{", RowBox[{"6.5", ",", "16", ",", "20.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18.25", ",", "15", ",", "20.5"}], "}"}], ",", RowBox[{"{", RowBox[{"18.25", ",", "16", ",", "20.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "22", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6.75", ",", "22.75", ",", "11.5"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18", ",", "22", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"18.75", ",", "22.75", ",", "11.5"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "16", ",", "11.5"}], "}"}], ",", RowBox[{"{", RowBox[{"6.75", ",", "22.75", ",", "12"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Cuboid", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18", ",", "16", ",", "11.5"}], "}"}], ",", RowBox[{"{", RowBox[{"18.75", ",", "22.75", ",", "12"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.5", ",", "22.5", ",", "3.5"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "22.5", ",", "3.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.5", ",", "22.5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "22.5", ",", "9"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.75", ",", "22.5", ",", "3.5"}], "}"}], ",", RowBox[{"{", RowBox[{"9.25", ",", "22.5", ",", "3.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.75", ",", "22.5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"9.25", ",", "22.5", ",", "9"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15.5", ",", "22.5", ",", "3.5"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "22.5", ",", "3.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15.5", ",", "22.5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "22.5", ",", "9"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18.75", ",", "22.5", ",", "3.5"}], "}"}], ",", RowBox[{"{", RowBox[{"21.25", ",", "22.5", ",", "3.5"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18.75", ",", "22.5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"21.25", ",", "22.5", ",", "9"}], "}"}]}], "}"}], ",", ".25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18.75", ",", "22.5", ",", "3.5"}], "}"}], ",", RowBox[{"{", RowBox[{"19.75", ",", "22.5", ",", "3.5"}], "}"}]}], "}"}], ",", "3"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"19.75", ",", "22.5", ",", "3.5"}], "}"}], ",", RowBox[{"{", RowBox[{"20.75", ",", "22.5", ",", "3.5"}], "}"}]}], "}"}], ",", "2.5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18.75", ",", "22.5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"19.25", ",", "22.5", ",", "9"}], "}"}]}], "}"}], ",", "2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"19.25", ",", "22.5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"19.75", ",", "22.5", ",", "9"}], "}"}]}], "}"}], ",", "2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"19.75", ",", "22.5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"20.25", ",", "22.5", ",", "9"}], "}"}]}], "}"}], ",", "2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "22.5", ",", "3.5"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "22.5", ",", "3.5"}], "}"}]}], "}"}], ",", "3"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "22.5", ",", "3.5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "22.5", ",", "3.5"}], "}"}]}], "}"}], ",", "2.5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.5", ",", "22.5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "22.5", ",", "9"}], "}"}]}], "}"}], ",", "2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "22.5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5.5", ",", "22.5", ",", "9"}], "}"}]}], "}"}], ",", "2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.5", ",", "22.5", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "22.5", ",", "9"}], "}"}]}], "}"}], ",", "2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"9", "+", RowBox[{".25", "n", "*", ".1"}]}], ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"11", "-", RowBox[{ RowBox[{"(", RowBox[{"1.25", "/", "3"}], ")"}], "n", "*", ".1"}]}], ",", "12.5", ",", "5"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"9", "+", RowBox[{".25", "n", "*", ".1"}]}], ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "5"}]}], "}"}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"14", "+", RowBox[{ RowBox[{"(", RowBox[{"1.25", "/", "3"}], ")"}], "n", "*", ".1"}]}], ",", "12.5", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"16", "-", RowBox[{".25", "n", "*", ".1"}]}], ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "5"}]}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"16", "-", RowBox[{".25", "n", "*", ".1"}]}], ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "5"}]}], "}"}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"16", "-", RowBox[{".25", "n", "*", ".1"}]}], ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"16", "-", RowBox[{".25", "n", "*", ".1"}]}], ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8"}]}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"9", "+", RowBox[{".25", "n", "*", ".1"}]}], ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"9", "+", RowBox[{".25", "n", "*", ".1"}]}], ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8"}]}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"9", "+", RowBox[{".25", "n", "*", ".1"}]}], ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.5"}]}], "}"}], "}"}], ",", "1"}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"16", "-", RowBox[{".25", "n", "*", ".1"}]}], ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.5"}]}], "}"}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.75"}]}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.75"}]}], "}"}]}], "}"}], ",", ".3"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.75"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.75"}]}], "}"}]}], "}"}], ",", "3"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.75"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.75"}]}], "}"}]}], "}"}], ",", "2.5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.5", ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.75"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.75"}]}], "}"}]}], "}"}], ",", "2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"20", ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.75"}]}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.75"}]}], "}"}]}], "}"}], ",", "3"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"21", ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.75"}]}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.75"}]}], "}"}]}], "}"}], ",", "2.5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"22", ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.75"}]}], "}"}], ",", RowBox[{"{", RowBox[{"22.5", ",", "12.5", ",", RowBox[{ RowBox[{"n", "*", ".1"}], "+", "8.75"}]}], "}"}]}], "}"}], ",", "2"}], "]"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "25"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Axes", "\[Rule]", "True"}], ",", " ", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"-", "15"}], ",", "30"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.406583797868*^9, 3.406583815689*^9}, {3.406583922617*^9, 3.406583972475*^9}, {3.40658403119*^9, 3.4065842233780003`*^9}, { 3.4065845869519997`*^9, 3.4065845894630003`*^9}, {3.406586572916*^9, 3.4065865753*^9}, {3.406588103833*^9, 3.406588109244*^9}, { 3.4065881709890003`*^9, 3.4065881893710003`*^9}, {3.406588266899*^9, 3.406588269059*^9}, 3.4066807518656*^9}], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "15"}], ",", RowBox[{"-", "14"}], ",", RowBox[{"-", "13"}], ",", RowBox[{"-", "12"}], ",", RowBox[{"-", "11"}], ",", RowBox[{"-", "10"}], ",", RowBox[{"-", "9"}], ",", RowBox[{"-", "8"}], ",", RowBox[{"-", "7"}], ",", RowBox[{"-", "6"}], ",", RowBox[{"-", "5"}], ",", RowBox[{"-", "4"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}], ",", "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", "29", ",", "28", ",", "27", ",", "26", ",", "25", ",", "24", ",", "23", ",", "22", ",", "21", ",", "20", ",", "19", ",", "18", ",", "17", ",", "16", ",", "15", ",", "14", ",", "13", ",", "12", ",", "11", ",", "10", ",", "9", ",", "8", ",", "7", ",", "6", ",", "5", ",", "4", ",", "3", ",", "2", ",", "1", ",", "0", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "2"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "4"}], ",", RowBox[{"-", "5"}], ",", RowBox[{"-", "6"}], ",", RowBox[{"-", "7"}], ",", RowBox[{"-", "8"}], ",", RowBox[{"-", "9"}], ",", RowBox[{"-", "10"}], ",", RowBox[{"-", "11"}], ",", RowBox[{"-", "12"}], ",", RowBox[{"-", "13"}], ",", RowBox[{"-", "14"}], ",", RowBox[{"-", "15"}]}], "}"}]}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.406584348049*^9, 3.406584366547*^9}, 3.4066807641486*^9, {3.406930776303*^9, 3.406930787098*^9}, { 3.40693141334*^9, 3.406931418459*^9}, {3.406931498106*^9, 3.406931501785*^9}, {3.406931556783*^9, 3.406931608406*^9}, { 3.406931718972*^9, 3.406931723915*^9}, {3.4069318203059998`*^9, 3.4069320094309998`*^9}, 3.40693204327*^9}] }, WindowSize->{710, 491}, WindowMargins->{{Automatic, 124}, {Automatic, 25}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 21639, 606, 1132, "Input"], Cell[22210, 629, 2463, 55, 152, "Input"] } ] *) (* End of internal cache information *)