(* 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[ 49674, 1297] NotebookOptionsPosition[ 49175, 1277] NotebookOutlinePosition[ 49518, 1292] CellTagsIndexPosition[ 49475, 1289] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "i_", "]"}], ":=", RowBox[{"Cos", "[", "i", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"g", "[", "i_", "]"}], ":=", RowBox[{"Sin", "[", "i", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4091722320877113`*^9, 3.409172314638669*^9}, { 3.4091749152356663`*^9, 3.4091749162367992`*^9}, {3.4091749481087513`*^9, 3.4091749488090277`*^9}}], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"h", "[", "i", "]"}], "=", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", ".75"}], "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"2", "-", RowBox[{".75", "i"}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"2", "-", RowBox[{".75", "i"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"3.5", "-", RowBox[{".75", "i"}]}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1.75", "-", RowBox[{".75", "i"}]}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"2", "-", RowBox[{".75", "i"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", RowBox[{"1.5", "-", RowBox[{".75", "i"}]}]}], "}"}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0", ",", RowBox[{"1.5", "-", RowBox[{".75", "i"}]}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0", ",", RowBox[{"1.5", "-", RowBox[{".75", "i"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{ RowBox[{"-", ".15"}], "-", RowBox[{"i", "/", "4"}]}], ",", RowBox[{".4", "-", RowBox[{".75", "i"}]}]}], "}"}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"2", "-", RowBox[{".75", "i"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", RowBox[{"1.5", "-", RowBox[{".75", "i"}]}]}], "}"}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", RowBox[{"1.5", "-", RowBox[{".75", "i"}]}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", RowBox[{"1.5", "-", RowBox[{".75", "i"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"-", ".15"}], "-", RowBox[{"i", "/", "4"}]}], ",", RowBox[{".4", "-", RowBox[{".75", "i"}]}]}], "}"}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"3.7", "-", RowBox[{".75", "i"}]}]}], "}"}], ",", ".75"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"-", ".15"}], "-", RowBox[{"i", "/", "4"}]}], ",", RowBox[{".4", "-", RowBox[{".75", "i"}]}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{ RowBox[{"-", ".15"}], "-", RowBox[{"i", "/", "4"}]}], ",", RowBox[{".4", "-", RowBox[{".75", "i"}]}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", ".75"}], "i"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", ".75"}], "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", ".15"}], "-", RowBox[{"i", "/", "2"}]}], ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".5", ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", ".75"}], "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", ".15"}], "-", RowBox[{"i", "/", "2"}]}], ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", ".15"}], "-", RowBox[{"i", "/", "2"}]}], ",", RowBox[{"-", "2"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", ".15"}], "-", RowBox[{"i", "/", "2"}]}], ",", RowBox[{"-", "2"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", ".15"}], "-", RowBox[{"i", "/", "2"}]}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", ".15"}], ",", RowBox[{"-", "3.5"}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", ".15"}], "-", RowBox[{"i", "/", "2"}]}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".15"}], ",", RowBox[{"-", "3.5"}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", ".15", ",", RowBox[{"-", "3.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "3.5"}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", ".15", ",", RowBox[{"-", "3.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "3.5"}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "5"}], ",", RowBox[{"-", "3.85"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5", ",", RowBox[{"-", "3.85"}]}], "}"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "2", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.409166219429487*^9, 3.4091662283405743`*^9}, { 3.409166272253731*^9, 3.409166274746768*^9}, {3.409166357870867*^9, 3.409166734829547*^9}, {3.409166811737795*^9, 3.409167059324752*^9}, { 3.409167243739513*^9, 3.409167262537898*^9}, {3.409167317741984*^9, 3.4091673822971363`*^9}, {3.4091674595120564`*^9, 3.409167542214436*^9}, { 3.4091675888547897`*^9, 3.409167748921393*^9}, {3.409167780221796*^9, 3.409167905990283*^9}, {3.409167950488729*^9, 3.409167997845868*^9}, { 3.409168039706274*^9, 3.409168341992198*^9}, {3.409168384413417*^9, 3.409168430797757*^9}, {3.409168485627254*^9, 3.409168710497871*^9}, { 3.409171038521036*^9, 3.409171094154665*^9}, {3.409171155656118*^9, 3.409171157473494*^9}, {3.409171281581963*^9, 3.4091713936852407`*^9}, { 3.409171448035672*^9, 3.409171633213437*^9}, {3.409171767022518*^9, 3.40917190187475*^9}, {3.409172079517688*^9, 3.409172105049922*^9}, { 3.409172143370016*^9, 3.409172161350698*^9}, {3.409172419328519*^9, 3.40917244893613*^9}, {3.409172576199638*^9, 3.409172581847432*^9}, { 3.4091726554581013`*^9, 3.409172697807136*^9}, {3.409172809687677*^9, 3.409172835314425*^9}, {3.409172893195562*^9, 3.409173056246686*^9}, { 3.409173087276832*^9, 3.4091730896843452`*^9}, {3.4091731247440968`*^9, 3.409173132731813*^9}, {3.4091732009922733`*^9, 3.409173355790532*^9}, { 3.409173428230651*^9, 3.409173674551776*^9}, {3.409173756653008*^9, 3.4091737678932743`*^9}, {3.409173823018358*^9, 3.4091738259377213`*^9}, { 3.409173898891502*^9, 3.409173926017949*^9}, {3.409174047205694*^9, 3.4091740593487453`*^9}, {3.409174148143733*^9, 3.409174150852957*^9}, { 3.409174203948423*^9, 3.409174208029969*^9}, {3.409174580237813*^9, 3.4091745903812637`*^9}, {3.409174635121711*^9, 3.4091746729991617`*^9}, { 3.409174755417839*^9, 3.4091748928535967`*^9}, {3.4091749524866743`*^9, 3.409175181751904*^9}, {3.409175217355598*^9, 3.409175228793985*^9}, { 3.409175258806394*^9, 3.4091753770830593`*^9}, {3.409175441506312*^9, 3.4091754663278303`*^9}, {3.40917561739695*^9, 3.409175617929373*^9}, { 3.4091756764014177`*^9, 3.4091756968304653`*^9}, {3.409175745880604*^9, 3.409175774977661*^9}, {3.409175805286355*^9, 3.409175805421227*^9}, { 3.409175842667647*^9, 3.409175851984045*^9}, {3.409175890483882*^9, 3.409175922631208*^9}, {3.409175964293775*^9, 3.409175972507428*^9}, { 3.409176113401059*^9, 3.409176194064371*^9}, {3.409179105592836*^9, 3.409179125105856*^9}, {3.4091804417019787`*^9, 3.409180442150576*^9}, { 3.409231916778294*^9, 3.409231917766076*^9}, {3.409232102100772*^9, 3.409232103419834*^9}, {3.409244367041506*^9, 3.409244384033449*^9}, { 3.409244414293027*^9, 3.409244423542748*^9}, {3.409244464145032*^9, 3.4092445163713818`*^9}, {3.409409407487825*^9, 3.4094094079728975`*^9}, { 3.409409440973475*^9, 3.4094094411143026`*^9}}], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"h", "[", "i", "]"}], "=", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "3.141592653589793"}], "+", RowBox[{".75", "i"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"2", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"2", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"3.5", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1.75", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"2", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", RowBox[{"1.5", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0", ",", RowBox[{"1.5", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0", ",", RowBox[{"1.5", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{ RowBox[{"-", "1.3471975511965977"}], "+", RowBox[{"i", "/", "4"}]}], ",", RowBox[{".4", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"2", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", RowBox[{"1.5", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", RowBox[{"1.5", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0", ",", RowBox[{"1.5", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"-", "1.3471975511965977"}], "+", RowBox[{"i", "/", "4"}]}], ",", RowBox[{".4", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"3.7", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}], ",", ".75"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{ RowBox[{"-", "1.3471975511965977"}], "+", RowBox[{"i", "/", "4"}]}], ",", RowBox[{".4", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", RowBox[{ RowBox[{"-", "1.3471975511965977"}], "+", RowBox[{"i", "/", "4"}]}], ",", RowBox[{".4", "-", "3.141592653589793", "+", RowBox[{".75", "i"}]}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "3.141592653589793"}], "+", RowBox[{".75", "i"}]}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "3.141592653589793"}], "+", RowBox[{".75", "i"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.394395102393195"}], "+", RowBox[{"i", "/", "2"}]}], ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".5", ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "3.141592653589793"}], "+", RowBox[{".75", "i"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "2.394395102393195"}], "+", RowBox[{"i", "/", "2"}]}], ",", RowBox[{"-", "2"}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "2.394395102393195"}], "+", RowBox[{"i", "/", "2"}]}], ",", RowBox[{"-", "2"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.394395102393195"}], "+", RowBox[{"i", "/", "2"}]}], ",", RowBox[{"-", "2"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{ RowBox[{"-", "2.394395102393195"}], "+", RowBox[{"i", "/", "2"}]}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", ".15"}], ",", RowBox[{"-", "3.5"}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "2.394395102393195"}], "+", RowBox[{"i", "/", "2"}]}], ",", RowBox[{"-", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", ".15"}], ",", RowBox[{"-", "3.5"}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", ".15", ",", RowBox[{"-", "3.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "3.5"}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", ".15", ",", RowBox[{"-", "3.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "3.5"}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "5"}], ",", RowBox[{"-", "3.85"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5", ",", RowBox[{"-", "3.85"}]}], "}"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "3", ",", "4", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.409176261625524*^9, 3.4091762965112534`*^9}, { 3.409176860354993*^9, 3.4091769168834887`*^9}, {3.409176947503071*^9, 3.4091769720635357`*^9}, {3.409177086762151*^9, 3.409177154420948*^9}, { 3.409177223906158*^9, 3.409177341457387*^9}, {3.409177529143567*^9, 3.4091775314407473`*^9}, {3.409177713626964*^9, 3.409177746046879*^9}, { 3.4091777763526497`*^9, 3.409177795627308*^9}, {3.409177909993435*^9, 3.4091779300222*^9}, {3.40917800116245*^9, 3.409178025481866*^9}, { 3.40917806238557*^9, 3.4091781134803143`*^9}, {3.409178149933824*^9, 3.409178173061863*^9}, {3.409178251415308*^9, 3.409178257984962*^9}, { 3.409178315153696*^9, 3.4091783152498503`*^9}, {3.409178348384831*^9, 3.409178389357073*^9}, {3.409178463439373*^9, 3.409178465242867*^9}, { 3.409178501862981*^9, 3.409178502207595*^9}, {3.4091785677622013`*^9, 3.409178576032834*^9}, {3.409178627948522*^9, 3.409178845623331*^9}, { 3.4091789596757*^9, 3.40917895983069*^9}, 3.4091792006394987`*^9, { 3.409179555119379*^9, 3.409179622397889*^9}, {3.4091804184415913`*^9, 3.409180434451191*^9}, {3.409180518938397*^9, 3.4091805190421352`*^9}, { 3.409180553457059*^9, 3.409180553995881*^9}, {3.4091806437049923`*^9, 3.4091806533561163`*^9}, {3.409180738768013*^9, 3.4091807389568644`*^9}, { 3.4091807963149357`*^9, 3.409180796676723*^9}, {3.4091810486860657`*^9, 3.409181076270103*^9}, {3.409231896489377*^9, 3.409231905696001*^9}, { 3.409231988763888*^9, 3.409232008201062*^9}, {3.409232120119526*^9, 3.4092321299827633`*^9}, {3.4092445464580708`*^9, 3.40924454693163*^9}, { 3.40924458666677*^9, 3.4092445992960663`*^9}, {3.4094094003682127`*^9, 3.4094094015417747`*^9}, {3.4094094348709497`*^9, 3.409409434964835*^9}}], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"h", "[", "i", "]"}], "=", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", ".5"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", ".5"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1", "+", RowBox[{"i", "/", "2"}]}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", ".75"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", ".5"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "/", "3"}], "-", RowBox[{"i", "/", "15"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "0.5833333333333335"}], "+", RowBox[{"i", "/", "2.4"}]}]}], "}"}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "/", "3"}], "-", RowBox[{"i", "/", "15"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "0.5833333333333335"}], "+", RowBox[{"i", "/", "2.4"}]}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "/", "3"}], "-", RowBox[{"i", "/", "15"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "0.5833333333333335"}], "+", RowBox[{"i", "/", "2.4"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "/", "3"}], "-", RowBox[{"i", "/", "15"}]}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "1.6833333333333336"}], "+", RowBox[{"i", "/", "2.4"}]}]}], "}"}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", ".5"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", "3"}], "+", RowBox[{"i", "/", "15"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "0.5833333333333335"}], "+", RowBox[{"i", "/", "2.4"}]}]}], "}"}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", "3"}], "+", RowBox[{"i", "/", "15"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "0.5833333333333335"}], "+", RowBox[{"i", "/", "2.4"}]}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", "3"}], "+", RowBox[{"i", "/", "15"}]}], ",", "0", ",", RowBox[{ RowBox[{"-", "0.5833333333333335"}], "+", RowBox[{"i", "/", "2.4"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", "3"}], "+", RowBox[{"i", "/", "15"}]}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "1.6833333333333336"}], "+", RowBox[{"i", "/", "2.4"}]}]}], "}"}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"1.2", "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", ".75"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", "3"}], "+", RowBox[{"i", "/", "15"}]}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "1.6833333333333336"}], "+", RowBox[{"i", "/", "2.4"}]}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "/", "3"}], "-", RowBox[{"i", "/", "15"}]}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "1.6833333333333336"}], "+", RowBox[{"i", "/", "2.4"}]}]}], "}"}], ",", ".3"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", ".5"}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", "6"}], "+", RowBox[{"i", "/", "30"}]}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "4.5"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{".5", ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "2.5"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "/", "6"}], "-", RowBox[{"i", "/", "30"}]}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "4.5"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "/", "6"}], "-", RowBox[{"i", "/", "30"}]}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "4.5"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", "6"}], "+", RowBox[{"i", "/", "30"}]}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "4.5"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "/", "6"}], "-", RowBox[{"i", "/", "30"}]}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "4.5"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "/", "6"}], "-", RowBox[{"i", "/", "30"}]}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", "6"}], "+", RowBox[{"i", "/", "30"}]}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "4.5"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", "6"}], "+", RowBox[{"i", "/", "30"}]}], ",", RowBox[{"-", ".15"}], ",", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "/", "6"}], "-", RowBox[{"i", "/", "30"}]}], ",", ".15", ",", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"7", "/", "6"}], "-", RowBox[{"i", "/", "30"}]}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5.583333333333334"}], "+", RowBox[{"i", "/", "2.4"}]}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", "6"}], "+", RowBox[{"i", "/", "30"}]}], ",", ".15", ",", RowBox[{ RowBox[{"-", "6"}], "+", RowBox[{"i", "/", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "7"}], "/", "6"}], "+", RowBox[{"i", "/", "30"}]}], ",", RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "5.583333333333334"}], "+", RowBox[{"i", "/", "2.4"}]}]}], "}"}]}], "}"}], ",", ".35"}], "]"}]}], "}"}], ",", "Red", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"WOW", "!!"}], ",", RowBox[{"{", RowBox[{"3", ",", "3", ",", RowBox[{"i", "/", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "5"}], ",", RowBox[{"-", "3.85"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5", ",", RowBox[{"-", "3.85"}]}], "}"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "10"}], "}"}]}], "}"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "5", ",", "15", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.409243151301579*^9, 3.4092431573396263`*^9}, 3.409243205584402*^9, {3.4092432672655783`*^9, 3.409243392023918*^9}, { 3.40924343717334*^9, 3.409243437953433*^9}, {3.40924347576814*^9, 3.409243477204859*^9}, {3.4092435128302717`*^9, 3.409243514661416*^9}, { 3.409243550407255*^9, 3.4092437201356993`*^9}, {3.409243753474922*^9, 3.409243762987006*^9}, {3.409243805125814*^9, 3.409243886374712*^9}, { 3.409243931995318*^9, 3.4092440752637157`*^9}, {3.409244106685657*^9, 3.409244253413918*^9}, {3.409244553861237*^9, 3.409244554368808*^9}, { 3.409244660219983*^9, 3.409244690505838*^9}, {3.409244729691787*^9, 3.409244758201047*^9}, {3.409244791391466*^9, 3.409244797459545*^9}, { 3.409244852942053*^9, 3.4092449062131653`*^9}, {3.4092450023657103`*^9, 3.409245052116372*^9}, {3.4092451063588123`*^9, 3.409245135762546*^9}, { 3.409245192121805*^9, 3.409245219247686*^9}, {3.409245263627791*^9, 3.409245273544548*^9}, {3.409245365798761*^9, 3.409245370450523*^9}, { 3.409245451386009*^9, 3.4092455120888243`*^9}, {3.409245604183736*^9, 3.4092456150529737`*^9}, {3.409245652917224*^9, 3.4092456536677027`*^9}, { 3.4092456886937943`*^9, 3.4092456898017*^9}, {3.409245732973102*^9, 3.409245818712267*^9}, {3.409245883199172*^9, 3.40924593275622*^9}, { 3.409246025707766*^9, 3.409246057007449*^9}, {3.409246094219852*^9, 3.4092461369160748`*^9}, {3.409246179133225*^9, 3.409246240180839*^9}, { 3.409246929874942*^9, 3.40924693548883*^9}, {3.409247372603866*^9, 3.409247394948045*^9}, {3.409247433805398*^9, 3.409247528495302*^9}, { 3.4092475735134*^9, 3.4092476654141893`*^9}, {3.40940766732414*^9, 3.4094076683412275`*^9}, {3.4094092985342827`*^9, 3.4094093697304077`*^9}, {3.4094094265621276`*^9, 3.409409426718602*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"h", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "15"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.409243539341927*^9, 3.409243541262045*^9}, { 3.409243617398863*^9, 3.409243618503189*^9}, {3.409243739945158*^9, 3.40924374477777*^9}, {3.4092439211372433`*^9, 3.40924392343572*^9}, { 3.409244821996477*^9, 3.409244840635724*^9}, {3.409244877756145*^9, 3.409244877892277*^9}, {3.409244968114752*^9, 3.4092449786881437`*^9}, { 3.409245083958956*^9, 3.409245085932145*^9}, {3.40924517736106*^9, 3.4092451774881763`*^9}, {3.409245438719288*^9, 3.409245438859107*^9}, { 3.4092455789450617`*^9, 3.409245585049041*^9}, {3.4092456383278627`*^9, 3.4092456385714893`*^9}, {3.409245678078701*^9, 3.409245678288682*^9}, { 3.409245722039568*^9, 3.4092457229586773`*^9}, {3.4092458487195253`*^9, 3.4092458595083303`*^9}, {3.409245999523959*^9, 3.409246012146975*^9}, { 3.409246160565246*^9, 3.409246162688846*^9}, 3.4092463580303907`*^9, { 3.4092464173624983`*^9, 3.4092464332778807`*^9}, {3.409246473405992*^9, 3.409246501319022*^9}, {3.409247121428307*^9, 3.409247135097486*^9}, { 3.409247202373049*^9, 3.409247211820561*^9}, {3.40924725686838*^9, 3.409247271270916*^9}, {3.409247778806067*^9, 3.409247785933378*^9}, { 3.4092478198669367`*^9, 3.4092478638877287`*^9}, {3.40924795803267*^9, 3.4092479581586733`*^9}, {3.409248037208324*^9, 3.409248097113312*^9}, { 3.409248145636589*^9, 3.409248153363183*^9}, {3.409248198610178*^9, 3.4092482086546926`*^9}, {3.4092482418358793`*^9, 3.409248284299258*^9}, { 3.4092483756824617`*^9, 3.409248403080998*^9}, {3.409248567531666*^9, 3.40924859780869*^9}, {3.409248728161364*^9, 3.409248731886187*^9}, { 3.409407390019145*^9, 3.4094074403728*^9}, {3.4094075875062428`*^9, 3.4094075910738726`*^9}}], Cell[BoxData["\<\"Beatty.gif\"\>"], "Output", CellChangeTimes->{ 3.4092465233005037`*^9, 3.409246721326317*^9, 3.4092467980942802`*^9, 3.409246837696993*^9, 3.409246911877775*^9, 3.409246944833749*^9, 3.409247138008946*^9, {3.409247180393881*^9, 3.4092471904942102`*^9}, 3.4092472209862413`*^9, 3.409247278744884*^9, 3.409247790176758*^9, { 3.409247831564967*^9, 3.409247867031283*^9}, 3.409247965524206*^9, { 3.409248048573599*^9, 3.409248099771367*^9}, 3.4092481568220787`*^9, { 3.409248189998255*^9, 3.409248220457016*^9}, 3.409248295066678*^9, { 3.4092483874635477`*^9, 3.4092484120988617`*^9}, {3.409248581024661*^9, 3.409248607555005*^9}, 3.4094075439123077`*^9, {3.4094076013699274`*^9, 3.40940761756509*^9}, 3.409407687822365*^9, 3.4094077910802174`*^9, 3.40940948563144*^9}] }, Open ]] }, WindowSize->{637, 750}, WindowMargins->{{Automatic, 225}, {Automatic, -19}}, 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, 435, 11, 52, "Input"], Cell[1006, 34, 14298, 373, 492, "Input"], Cell[15307, 409, 13980, 361, 752, "Input"], Cell[29290, 772, 17037, 453, 752, "Input"], Cell[CellGroupData[{ Cell[46352, 1229, 1982, 31, 31, "Input"], Cell[48337, 1262, 822, 12, 30, "Output"] }, Open ]] } ] *) (* End of internal cache information *)