(* 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[ 22290, 615] NotebookOptionsPosition[ 21855, 597] NotebookOutlinePosition[ 22215, 613] CellTagsIndexPosition[ 22172, 610] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".25", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "3", ",", "0"}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".25", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".25", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"6", ",", "1", ",", "0"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".25", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "3"}]}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "3"}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", RowBox[{"-", "3"}]}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "3"}]}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", RowBox[{"-", "3"}]}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "3"}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"8", ",", RowBox[{"-", "3"}], ",", "0"}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8", ",", RowBox[{"-", "3"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}]}], "}"}], ",", " ", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"Lighting", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.4060214356982317`*^9, 3.40602149656334*^9}, { 3.4060215519094706`*^9, 3.406021610132348*^9}, {3.4060216720936766`*^9, 3.406021816321939*^9}, {3.40602185225002*^9, 3.406021852422*^9}, { 3.40602205205893*^9, 3.406022070632716*^9}, {3.4060221078584604`*^9, 3.4060221194592595`*^9}, {3.406022171631586*^9, 3.4060222289007597`*^9}, { 3.406022272005076*^9, 3.4060222969733725`*^9}, {3.40602263567918*^9, 3.4060226807221746`*^9}, {3.4060228433678784`*^9, 3.406022843946355*^9}, { 3.4060229376751823`*^9, 3.4060230009949074`*^9}, {3.4060230352970004`*^9, 3.4060230883604937`*^9}, {3.40602312052066*^9, 3.406023122662586*^9}, { 3.4060232579322805`*^9, 3.406023483084715*^9}, {3.406023602594833*^9, 3.40602365365711*^9}, {3.4060237295938764`*^9, 3.4060239986010838`*^9}, { 3.4060241765060587`*^9, 3.406024237011574*^9}, {3.4060243283326883`*^9, 3.4060243324289274`*^9}, {3.4060246487148623`*^9, 3.4060246517166862`*^9}, {3.4060247825930862`*^9, 3.4060248166919303`*^9}, {3.40602485984315*^9, 3.4060248604372616`*^9}, { 3.4063711137979627`*^9, 3.40637114973639*^9}, {3.4063712560509825`*^9, 3.40637140496332*^9}, {3.4063717590170174`*^9, 3.4063717634721947`*^9}, { 3.4063719595156145`*^9, 3.4063720314862633`*^9}, {3.4063722446782074`*^9, 3.406372285290663*^9}, {3.4063723278415112`*^9, 3.406372337080141*^9}, { 3.4063724446922064`*^9, 3.406372449428763*^9}, {3.406372500577321*^9, 3.406372529012293*^9}, {3.406372577941079*^9, 3.406372592072588*^9}, { 3.406372727384911*^9, 3.406372800449814*^9}, {3.406372882425071*^9, 3.406372943515708*^9}, {3.4063730291489*^9, 3.4063730527378893`*^9}, { 3.406373095757704*^9, 3.4063731483756895`*^9}, 3.4063732048235636`*^9, 3.4063732428098097`*^9, 3.406373290925721*^9, {3.4063733315381765`*^9, 3.4063734461065702`*^9}, {3.4063734891732817`*^9, 3.406373499287315*^9}, { 3.406373647355513*^9, 3.4063737336608896`*^9}, {3.406373773507367*^9, 3.4063738412416897`*^9}, {3.406373928703849*^9, 3.4063740592639832`*^9}, { 3.4063741707372017`*^9, 3.406374219712884*^9}, {3.406374257304615*^9, 3.4063743223658314`*^9}, {3.4063744476110177`*^9, 3.406374452144356*^9}, { 3.4063745346511073`*^9, 3.406374551002389*^9}, {3.406374615688432*^9, 3.406374947263026*^9}, {3.406374982701224*^9, 3.4063750271279364`*^9}, { 3.406375481305875*^9, 3.406375540379959*^9}, {3.406390415798173*^9, 3.4063904276931353`*^9}, {3.406391268796733*^9, 3.4063912702191267`*^9}, { 3.4063919407292643`*^9, 3.4063919426049485`*^9}}], Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".25", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"Lighting", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.4060247530126123`*^9, 3.4060247560613394`*^9}}], Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".25", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}], "]"}], ",", RowBox[{"Lighting", "\[Rule]", "\"\\""}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.4060247113779383`*^9, 3.4060247131602716`*^9}}], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".25", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "3", ",", "0"}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".25", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".25", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"6", ",", "1", ",", "0"}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".25", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"White", ",", "10"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "3"}]}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "3"}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", RowBox[{"-", "3"}]}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "3"}]}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", RowBox[{"-", "3"}]}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "3"}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"8", ",", RowBox[{"-", "3"}], ",", "0"}], "}"}], ",", ".6"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "3"}], ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", RowBox[{"-", "3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8", ",", RowBox[{"-", "3"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", ".2"}], "]"}]}], "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Lighting", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"SphericalRegion", "->", "True"}], ",", RowBox[{"ViewVector", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"25", RowBox[{"Cos", "[", "x", "]"}]}], ",", RowBox[{"25", RowBox[{"Sin", "[", "x", "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", ".5", ",", "0"}], "}"}]}], "}"}]}], ",", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"10", RowBox[{"Cos", "[", "x", "]"}]}], ",", RowBox[{"10", RowBox[{"Sin", "[", "x", "]"}]}], ",", "0"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"500", ",", "500"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4063755573565283`*^9, 3.406375698155753*^9}, { 3.4063903021317225`*^9, 3.406390302913257*^9}, {3.4063904460279465`*^9, 3.4063904741944675`*^9}, {3.406390553051349*^9, 3.406390554004822*^9}, { 3.4063905870168605`*^9, 3.4063906076024923`*^9}, {3.406390772803361*^9, 3.4063908227278166`*^9}, 3.4063909287039623`*^9, {3.4063910473409753`*^9, 3.406391134513389*^9}, {3.4063912082434015`*^9, 3.406391222826844*^9}, { 3.406391334086167*^9, 3.4063913675983877`*^9}, {3.4063914533015156`*^9, 3.406391456709008*^9}, {3.406391522592409*^9, 3.4063915308923106`*^9}, { 3.4063915763776474`*^9, 3.406391586553233*^9}, {3.4063916386972485`*^9, 3.4063917228998294`*^9}, {3.4063918082121897`*^9, 3.406391841568104*^9}, { 3.4063918828487825`*^9, 3.4063918881006975`*^9}, {3.406392017397848*^9, 3.4063920246661234`*^9}, {3.4063921414430833`*^9, 3.4063921703598785`*^9}, {3.406392277616346*^9, 3.4063922824462323`*^9}, { 3.4063923302136517`*^9, 3.4063923703063974`*^9}, {3.4063924046314144`*^9, 3.406392439081477*^9}, {3.4063924880211987`*^9, 3.4063925126864433`*^9}, { 3.4063925669249725`*^9, 3.4063926355437455`*^9}, {3.406392698254114*^9, 3.4063928441510677`*^9}, {3.4063929030006533`*^9, 3.4063930205122557`*^9}, {3.4063938126448703`*^9, 3.4063938192722874`*^9}}], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", "%"}], "]"}]], "Input", CellChangeTimes->{{3.4063941216950707`*^9, 3.406394135840854*^9}}] }, WindowSize->{1075, 731}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Magnification->1.5, 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, 9799, 258, 395, "Input"], Cell[10370, 281, 481, 12, 71, "Input"], Cell[10854, 295, 464, 12, 71, "Input"], Cell[11321, 309, 10359, 281, 530, "Input"], Cell[21683, 592, 168, 3, 43, "Input"] } ] *) (* End of internal cache information *)