(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 84945, 1957] NotebookOptionsPosition[ 83818, 1920] NotebookOutlinePosition[ 84424, 1942] CellTagsIndexPosition[ 84381, 1939] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"[", RowBox[{"Fe", RowBox[{"(", "CN", ")"}], "6"}], "]"}], "--"}], "--"}], " ", "computation"}], ";", " ", RowBox[{"coordinates", " ", "and", " ", "radii", " ", "from", " ", RowBox[{"FeCN6II8", ".", "exe"}]}]}], ",", " ", RowBox[{"02.10", RowBox[{".2012", "/", "15.02"}], ".2013"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "2.49901"}], "}"}], ",", RowBox[{"{", RowBox[{"2.33848", ",", "0.00000", ",", "0.00000", ",", "1.69653"}], "}"}], ",", RowBox[{"{", RowBox[{"4.29533", ",", "0.00000", ",", "0.00000", ",", "0.26032"}], "}"}], ",", RowBox[{"{", RowBox[{"5.40207", ",", "0.00000", ",", "0.00000", ",", "0.84643"}], "}"}], ",", RowBox[{"{", RowBox[{"5.40207", ",", "1.89008", ",", "0.00000", ",", "1.89008"}], "}"}], ",", RowBox[{"{", RowBox[{"5.40207", ",", "0.00000", ",", "1.89008", ",", "1.89008"}], "}"}], ",", RowBox[{"{", RowBox[{"5.40207", ",", RowBox[{"-", "1.89008"}], ",", "0.00000", ",", "1.89008"}], "}"}], ",", RowBox[{"{", RowBox[{"5.40207", ",", "0.00000", ",", RowBox[{"-", "1.89008"}], ",", "1.89008"}], "}"}], ",", RowBox[{"{", RowBox[{"6.47226", ",", "0.00000", ",", "0.00000", ",", "0.22376"}], "}"}], ",", RowBox[{"{", RowBox[{"7.79852", ",", "0.00000", ",", "0.00000", ",", "1.10250"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "2.33848", ",", "0.00000", ",", "1.69653"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "4.29533", ",", "0.00000", ",", "0.26032"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0.00000", ",", "5.40207", ",", "0.00000", ",", "0.84643"}], "}"}], ",", RowBox[{"{", RowBox[{"1.89008", ",", "5.40207", ",", "0.00000", ",", "1.89008"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "5.40207", ",", "1.89008", ",", "1.89008"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.89008"}], ",", "5.40207", ",", "0.00000", ",", "1.89008"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "5.40207", ",", RowBox[{"-", "1.89008"}], ",", "1.89008"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "6.47226", ",", "0.00000", ",", "0.22376"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0.00000", ",", "7.79852", ",", "0.00000", ",", "1.10250"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.33848"}], ",", "0.00000", ",", "0.00000", ",", "1.69653"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.29533"}], ",", "0.00000", ",", "0.00000", ",", "0.26032"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.40207"}], ",", "0.00000", ",", "0.00000", ",", "0.84643"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.40207"}], ",", RowBox[{"-", "1.89008"}], ",", "0.00000", ",", "1.89008"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.40207"}], ",", "0.00000", ",", RowBox[{"-", "1.89008"}], ",", "1.89008"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.40207"}], ",", "1.89008", ",", "0.00000", ",", "1.89008"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.40207"}], ",", "0.00000", ",", "1.89008", ",", "1.89008"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.47226"}], ",", "0.00000", ",", "0.00000", ",", "0.22376"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.79852"}], ",", "0.00000", ",", "0.00000", ",", "1.10250"}], "}"}]}], "}"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.5699068612712393`*^9, 3.569906915512535*^9}, { 3.5699219256869183`*^9, 3.5699219420825467`*^9}, {3.5699220074934616`*^9, 3.5699220249030924`*^9}, {3.5699220648703623`*^9, 3.5699220710947733`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "one", " ", "of", " ", "the", " ", "three", " ", "sigmah", " ", "planes"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"plot21", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "11", ",", "19"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot22", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.05"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.25"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.636"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}]}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}]}], "}"}], ",", "0.1"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "27", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "27", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "0.16"}], "]"}]}], " ", "}"}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"plot2", ",", "plot21", ",", "plot22", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"Axes", " ", "->", " ", "True"}], ",", RowBox[{"GridLines", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5650245121308794`*^9, 3.565024520898095*^9}, 3.5699057858209505`*^9, {3.5699164608101196`*^9, 3.5699166991785383`*^9}, { 3.5699218263303432`*^9, 3.5699218841908455`*^9}}], Cell[BoxData[ GraphicsBox[{CircleBox[{0., 0.}, 2.49901], CircleBox[{2.33848, 0.}, 1.69653], CircleBox[{4.29533, 0.}, 0.26032], CircleBox[{5.40207, 0.}, 0.84643], CircleBox[{5.40207, 1.89008}, 1.89008], CircleBox[{5.40207, 0.}, 1.89008], CircleBox[{5.40207, -1.89008}, 1.89008], CircleBox[{5.40207, 0.}, 1.89008], CircleBox[{6.47226, 0.}, 0.22376], CircleBox[{7.79852, 0.}, 1.1025], CircleBox[{0., 2.33848}, 1.69653], CircleBox[{0., 4.29533}, 0.26032], CircleBox[{0., 5.40207}, 0.84643], CircleBox[{1.89008, 5.40207}, 1.89008], CircleBox[{0., 5.40207}, 1.89008], CircleBox[{-1.89008, 5.40207}, 1.89008], CircleBox[{0., 5.40207}, 1.89008], CircleBox[{0., 6.47226}, 0.22376], CircleBox[{0., 7.79852}, 1.1025], CircleBox[{-2.33848, 0.}, 1.69653], CircleBox[{-4.29533, 0.}, 0.26032], CircleBox[{-5.40207, 0.}, 0.84643], CircleBox[{-5.40207, -1.89008}, 1.89008], CircleBox[{-5.40207, 0.}, 1.89008], CircleBox[{-5.40207, 1.89008}, 1.89008], CircleBox[{-5.40207, 0.}, 1.89008], CircleBox[{-6.47226, 0.}, 0.22376], CircleBox[{-7.79852, 0.}, 1.1025], CircleBox[{0., -2.33848}, 1.69653], CircleBox[{0., -4.29533}, 0.26032], CircleBox[{0., -5.40207}, 0.84643], CircleBox[{1.89008, -5.40207}, 1.89008], CircleBox[{0., -5.40207}, 1.89008], CircleBox[{-1.89008, -5.40207}, 1.89008], CircleBox[{0., -5.40207}, 1.89008], CircleBox[{0., -6.47226}, 0.22376], CircleBox[{0., -7.79852}, 1.1025], {CircleBox[{0., 0.}, 0.05], CircleBox[{0., 0.}, 0.25], CircleBox[{0., 0.}, 0.636], DiskBox[{4.29533, 0.}, 0.1], DiskBox[{6.47226, 0.}, 0.1], DiskBox[{0., 4.29533}, 0.1], DiskBox[{0., -4.29533}, 0.1], DiskBox[{0., 6.47226}, 0.1], DiskBox[{0., -6.47226}, 0.1], DiskBox[{-4.29533, 0.}, 0.1], DiskBox[{-6.47226, 0.}, 0.1], DiskBox[{0, 0}, 0.16]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-10, 10}, {-10, 10}}]], "Output", CellChangeTimes->{ 3.569907103383665*^9, 3.5699072041754417`*^9, 3.5699073421888847`*^9, 3.569907374699342*^9, 3.569907405696596*^9, 3.5699074794535255`*^9, 3.5699075266124086`*^9, {3.5699075659868774`*^9, 3.569907578373299*^9}, 3.5699087913378296`*^9, 3.5699088679963646`*^9, 3.5699093662144394`*^9, 3.5699093963224926`*^9, 3.569909505803485*^9, 3.5699095622287836`*^9, 3.569909665485365*^9, 3.5699097971651964`*^9, 3.5699110047789173`*^9, 3.569911115601512*^9, 3.5699112906650195`*^9, 3.569911326607483*^9, 3.5699113988044095`*^9, 3.569921901350875*^9, 3.5699219582753754`*^9, 3.5699447800545206`*^9, 3.569944816574185*^9, 3.5699457322333927`*^9, 3.5699458146015377`*^9, 3.569945871697638*^9, 3.5699459725830154`*^9, { 3.569946006154274*^9, 3.569946033423122*^9}, 3.5699463448776693`*^9, 3.5699465260875874`*^9, 3.569946605772527*^9, 3.569946837308134*^9, 3.569947048719705*^9, {3.5699471252378397`*^9, 3.569947143131071*^9}, 3.5699471843151436`*^9, 3.5699472314896264`*^9, 3.5699472845921197`*^9, 3.5699474099695396`*^9, 3.5699474649752364`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQmwXUfR3tW769v09J725UqyJVveZbxb5X03tix5ocA2m63fwqYMOLYK CBiDgR9C8QNKKCoBTAgUAQobMDaIECAEUwnB5A+QPwkmSgIkf0J2spP95n49 3XO6z+sz556re/w7VVbpLfe8OdPL9PTMdPd0773r0L33vOGuQ/cduGv7tQ/e 9cC99x14aPs1b3pw+Ki5otFYce/w6/e2N/D7oNGQb4Ph/8F9+IYn/u+r6Uev ceRgI/zbc7hxNLwZn+05fHQvPWg1jh7e05B/B48MwuOmbtnY7ze9aTRAUxqt 6eH3o43Dew42jnDLAZoePMJv7WkcPjpo7ItIZO1eSt/bbvtbnPY3VoC3IqA4 y90MIkWNxhR9nzPE5bsEX4b8iN0Pib66sKum6WqK2x09fJAw0ZQ63UZKdfsi Sr33V6QHI/DGvnKTkHL0cGPYIbW9gVH02t/stN9bAV4Jih5VN7KABpAknmh/ Y4KR+/xXbpocLz1Bi7PrcCYCgqXXfr/TvgjFhGAvCbH0SiRWhE/P9ZuW8YV6 utFpenOq6UjAptKarDuagqEHd+hXRmMO/eX28J47VWcVxHJx0N0VoeHJOzgV cNiPb+10Dx7kVmAtLxHhbyudZ/Mjtpv0uy8kXP6k6GhWl88Xh/WFTwcPa4d+ jKTz2k4v+51nNx9DO8ZqzQsD1Lve9a6RQJW1exHUi6BeBPUiqBc0KPrLsQDY F3tpV6OAz1gbfvOb31z2ve99b/9Xv/rVd73zne/Ee/j5ii984Qt4vv2Xv/yl nOkmzcRwcl046ec///kDH/nIR354wQUX/GbDhg3fu+yyy766f/9+jc4XXvGK V+D5L7dv3/6TM888E8/O/MlPfsJHy4mjdh19b4M7n37ta1/785NOOukjDzzw wAU//OEP3Y1WWLrbQAmoAcVvXnfddYTi9fWgeA19b/V+97vfvf+tb30rOPPa T3/6013n9SAareu++c1vAjMwc9Vvf/vba+tBLBgzWoAAHrz1/e9/P5DsOa8z shA2jD4kgemaOFZXhWcYEfAAst2Ycd5lNIEKUALPmKKJo3SlBUVTbdZ5dzo8 A0MxLwilq+pB6YoMVByQOefdGafdlbWiBFEiyvHJQ2nWchOoybuTRuny8AxK C1qBPnlHAEbz3j8//HfvvffqdyeN0mXhGSYaNAEUV+qkgilAykm9WwtKU1CH C8WIYN2BUNeJyKUZb7C+kGR4KDG/oOxJoNW7NaEELYRljT4lUIKChx59HlCC oEJgy1AyqI+DUuHWhzuDGJNKLEKEn/121fAfhhSfLnH6G3uLdGkxUO8ZtA5t EIoQmcAgcbfgC/hDn1YVo4SZhRn2PKAEysGBMpSMfNWLEpYLLBtplEhD1TSn GBHZdJTxBltN7OGeB95ggYAyLEPJLLs1oVRxnpm1q16UzJROKEMsLdBD+Fmr fiZh9YaLETHLab0LhRHqBG+MUNeE0mWOZCR2P2YnUNOm41T6PgNQWCrxBbWH 8cNqjqUTe0d8xj5yig4kzbiQ4avjjGk4nsygHV7D1+dvv/32v37ppZdCWIHW 33nJS16Cz3hnCg0azW2/+tWvYrd86DK71+6xY3tKPXw8ib63MKzABJuz3/V6 vSnae3SxmgApbI6AE5DDZyIstGlhYmKxRFu06TjCEs70rZd/8YtfBBv/R6fT AWZTeLfR/funnHIKOPpXrr32WjwGZ/EZnOY2rf+7YsWK/9VqtdAWWLDhHnoW wEkztCdOy8n1MP2EIH9QfYAkVhdghp1xmEYd7EIgJUANiGGmQ1gDsBmz/A6/ fu+Tn/wkuAMu/bfp6Wlw86Xf+MY3Og5SYTw6F/3gBz+AeKN3MPjozp07wTn2 lJi9xNQx4XxiPYzcQd/bQAoQIVuATvvaEAnQxiSCfoRQQSJov8bEAPkj119/ PTD9z3Nzc+AFeDLtgA9TuIOp/tiBAwf+xcaNGyHGT+7btw8Gn6kxMdlZD2OO C8OMkQE4oAN53hhIkcfA9E99+MMfBjEQm8+8+tWvTtgjuvd/9KMf/Z/tdvs/ LCwsPPye97xHd93YaEGib3Dj+DEILDy7bAswwEmxG4KLWwJ6GJs/3rx5M0T5 FyeeeOKu5557DujB/pWw/HRlb33Gz372sx+dd955/2dqaurfLy4uQhQaoe8W SEQbkIZB3e5gN/ZJaGt4Jks+Lef9gCFUJmYzZA5PQC7aXPOtb30Lckfaq9jQ Ni2T8crvfOc7se/hXzDN0S8tYAFWU/qm4dxWj2AqUECL5gc/A0qYicT20G1H rJwgA6jiHaDnWTs7mQrCKEFLvexLX/qSgAk90lr9b9asWYO5LpA1FBmMSRMe 5KgJlQPsaG1n8NDUmIK0jQii08WCBgpkJRKrPS2pxSq9C0pFP4PJBl47Ixcr Bb4EBw1Pnk2aBZsyUBBdjLcegV9v3bqVjrhhWvYwGhgVtBfRBFkQebAkQJ8z YIdf2kmA5uhGg2TljvGHHOiB0BAbm2tlgllbGTzGg8RSqdz8Ko/xlYnQmCJo zf+4cuVK/Aa1LM+MF8dbz1lnQI2DDRoPA3NTPWwIq4XdJTN4iCtt/Wh4nXYB VBdqHWQ++KEPfQjwsJJBfkjFtZz35pz++067jfWQvMHhbt8ZhXCymjajNfzC VhcLnpwKCB5vZMxBevglMBYcweo7wrChHorXh2fGZ8DgsTPFlot0XkBzEdMO WNP6M3yiBwWzF/DAAXzGIGMLgN9N/wuZQgFH9fpm+q+J5HUZeMimXt9AKpZc Wt8WgwzrdjIiQBPnFp7KtKDJEqDbLzrd9h3w62ulFANETFayhdkVj9Qh3HVG jtl64EAt4NBKwAM+RSPejF2SZIRu0QzrpAZlTu/r6qF0bXhmzpoMHltG7JxJ 9EJ/c2D8eT/60Y/0CVhgyCTGe9IXo4ExxG5PU2cO0Wtrpa50QQr9zYpqAVo/ O+OMM35w0UUXAcZ3r7jiin94wgkn4Hnsa62j3rxFpibSuJ0xpTF42Vcr8HNY ULAJwSYUE/CPTjvtNMAAG7C24ryHcwFEGAPHWEMkRYL1GhY9A2tqpc6A6jso 8fETbSBy0KSPPProo3/v1FNP5fWjp2E9tXfv3j946KGHMEnRHjNxjcO0vsPc migNFFi3DIOH1sMEVKomhkbIWS0Q2ZWzg56PscvQpoX5CQUkypMhQyLySk53 JxjWRDg28XkJw6EhOoQWMwYBLfIo8IFAe8cFXuyvlY0h+iJVE5hI+2M6ICiY xtM+DsmFB/vVDk/7Du/ZNo9higjziUlLhyAQ+1PmQjyj9xYdCeo7kuYROvZR fylDJPqH1FoC04MmFGpGLClsgmrLZg+wYj9dyxha+JlAbLNgHNSwzIZxqR7h XXKEpu8IF5MKvUSWGhrNQKoIKmDFfvjs73lEzaToO5OnXlKNN4/BY93D+kef FrL5FnVmIKeNTSx2BoAV++Gzqhc0gA00FiQNS/p4HkiF0FEUjAIP4YUQazQN SwI5LaytgCN9TGeyG/dXygkX3SAMBq9Tm0Gm+Wqi0rTrO89WOvqCT9b4jLbU nq2PZq1mDkH30N5dwTDBGTWRuOig7i2qjKY5ITOJ0EyAQ+8ziXp/r2NIkstn vSQaTcHgoRChGAtllUmUcye9zyRCIMkrpd7FvvHPveENb9AwjEarl0RzDFL2 1HhcWnAEi0nEqIrbTWwkZo6xkJtTXT97N45svSSWriMLDupMItYAwKH3mUQT h8Yklq4fdZJIwQdkfZ6C95PJidYAfFJzDH3iBSHHzCcm57EDBw7Ap6fJMfOz 3hEzoPoOSl6IGY+YRKfT+3OO8K6MjNoamVfTksfklBruFhzBYnIgeLKyux42 HrFSS129I1Z6UmYSjWZjEqEaAIfeV9HCcUPC75YelyuSGEAty4eQutnnUF66 IV9wZJopl8gQen/W0Rr8bulGvCLlLDMm0UJzRLIrbnDMkpfY4BgtVNMGpyUf xsjmUJE9Bs2+Qw6TaJZBminshjEd9JxJ5gWbeeNQkUfz8kGlfSC+tdH6AHXT HAyRGGDW4lOfny0tLQ3OOuss+rTAzw4dOjQYDv7g4YcfbvToWXswnAMDEQDu pzHN7YfzYACFp/sYKr4B9v0alvSBT3fje1udqGVe53JCjDqveQRLN0Y8AGZ3 wadPGVUyWkg/Pac991G6Qaq4Ps3J/Fb5JiqSbyInlXMAIRK05C46aLIjXWQX sHQ/7H3GcghqqevFEaf6WBxYltTCuyKWsCqZ1YqxMvt1xh7URCaw+UyfHQRe 7K+dyZg4Z6Qvc75gmOYcUq/FsHTrtZSNO8SYUCdQtJEKlAmw2FnAhe7E6bgC 6iu3FavXEgyoWG21WMMPhtWaSFmdzVKxYfN6MKe3ZwLP9McUox00BaMGWwts LpqjZqdX04CucSao52YL4BdACdriyPC3zj///D8c6vIbn3766ds///nPA9ad n/vc52758pe/jLA3xDpJkB7NUIZV6mer16GBrRjWRzIvqa0YNqFkXgp+l1mQ +k+OO+64Zy6++OL/OjMz89+73S5gIEINn58999xzMc1P/MUvfiEeJryDfmgk lVsY8Ggk63WylYY7sJMN7T535513RjbkZBXHiE/dfffd1Ndapx8vrKFe0szV OLXSYEmgUVudKQ+0g/sJOyF2zmgw6OK5Xbt2YfCou9VOd30HbE3+33UjDt5S 1u4T99xzDx0HeBNqwhf4GQbxL7zuda+jPlePOIg1kbg+QylpwA47na44jC75 /ve/LyuaF7aA53JBQfrmBRLHSiyQOihEuiU1XFPYwvpMluLVWrWCACVSDmFn 39YOlXgI4gE04QscACznOdP/QqbE0L+O1DAOm5piUrhbgIBC0RwHKtCHFIaj rm9EnxOTZW6ZiDKassIgi6eBM5+xG6yj42/fgVNTzBV3iyNpDOxT0yoGAM5l 0zTuFAN50xJLI+QLTMhy3AA0HTjcZ6lluCbSN2VCitHTpMPChJ0gkc6neQgx bf0yUDRq2DyQ1SpAbGLTgA0EKdyWA0MZRbAl1GQbGOMEFhb6jzdniABZLeIS 6Ekizhm/JB5ULv1iDIGYOODCLKcYy2geD7Ocnk1DtYvjQ8JR0Y+B382YCBmA bVmLfoS/xaFnbP/ylkwQY/CQEvgYZBS67WGuYqQQQwlCQBCYAGaAKd5xs5m9 KpGo4AcE4M0f+MAHBGw70zBQejQFlHs9BubXFGysQAFDsi4qpYcRphHlQHMo oZ/u3r37r11++eVgACjDu4lAc8wAWdiwZoPw7H5OPAESu3MnQBqWCQSahzQV Ve+VDcQuia+ARUuyX8hZIMhRD5MGRwFoi5u+9rWvyb4Gn0Fr8a2KHmhFcNi/ XL9+/dduuukm6EuwCZzHSsgXKyTiBrji9230eBZcGZWshndf7qpqnAx5I47l 7hisW/ruWCCkJUdJNAV9QVO1QRu4ASSwp330kUcecZNcBA63b3v88cflgPOP jz/+eDrUqL5EewEzUsNbLUGDoQY8xstwV1bj6CXZxPIujIXVsYtxLro0xrOG 6AOCophonMOmhi4J/Grbtm2I1fvY61//ekgajupYeiC8noCGFaqHhQGsR9N3 DtGATCOCUUAECC2xIcjjfjFdg/vvv7/kItxl1Zh4UeCAe60s7Cqnjf4YhPPh smtmjDT+BjowhbH+oB2ecTSy3LQAskAa98H+xp49e0hPc6g5mAqOwdSCZe2x AwcO4FlCUQICZBAMhuERTi5oAN4/gri/e/rpp+MslEeMzWmdPGbgPGZTP8Gf KUe/BneGfxXvkmpDsyeIR/6KnWfhbNmmsuntZ1wHh4U2uYlE++Igv9OYxkAY vEEbiaS++JlnnokuJA6EA3FYbYXdctuJ9t7FC3oXCxVGE6OK96D3ZXT5vWlZ TrEWlODcLcJZbc6Wca/tcG/R595F1Ybrgmyd01cHPVMW5w/NX/kLCp3s3hA/ OveGs24XvQEvsAHzS/AkN09o08PvgAy2yVFJ56ZSF3IwQch4zN1DoYGDGEk8 wcjgM7llQxu68osRx8iDSC+r1dQxUdDKU7DVZ2nXYelqn6V7qo3h+eGZuSfp GURYF5n7jOGqMF19xWfwAHSSTh5+1vfqzO0JtnjAJoA1CMMjpwF8pt3dquy9 eObvjABvh0PPtEPPWoeeC6ux7rysi3jv0rOwKLGJNyLPCM/M9RkPBqs+c/4/ w4E748Bd58C9oBqJ54Zn5sajZ1GZyciJNx5PD89MqIUHg8105px/mgN31oG7 3oF7fjUSz866iDcovXO0yowW0TwlexYdl2sdGGucdic7cOcduBsduOeORaIZ CY/E+UyXxaCckzI0l9mENQwm29yuOcmB65G4yYF7TjUSzwrPjF3Xu2260mm3 C9/Jw7a+mDDjrNnl9LLSgbbZaXd2NcJe4vDGs254uapCTgwbBOyRuM4ZuxMc uAsO3C0O3LOqkRiiNtwrjR6JRmcymsaVlyDRuIt3OnBXFZNo4JaRSH/ZHR6b tc+zUKxy2u3InkUv6gYHKBNrgoSOd/rzgl28m427I/YJK9luh+seYV4kLSNn vOkJwszcOd6B6xG21YF7ZjWhPMOZO9scUEvO3AmZQqznJ0GiCRc/zoHrnX+2 OXB3j0WimboJEo0q2J7NiRgLs9GBwWSbkLztDtwEiQZuRRJ5D2LCw7Y7oJSr MMZMMnjszLFA06dCEmn52O5A80IYtjvQzhiLMNNFgjCDEhPmOkycsfPeNXAT JJp3K5J4WvHs8EIcjAbc6jxLkGgCwrc6cL0j7XEOjNPHItEEtiZINPtHRtOE gnkk8jMTEO6F4SdINHDHI9FwKUGi4TqT6FxOaokdG6iBhFZwLAE0fgupPILN VVYLNAcHWFxNoJF3gSbBEINlRYaELHs2ONpL6MT7TqM5eSdiIofDvrOH/jCb MU5iaQc5+IxxbrGfYoiJ2P8bwcbfkyVW7KqgTJzToHTBYc4WhwovGOZ4h4rT xmKYEcIEw4xQM5omZp5NaWKvFF8b1CFgkEwUW17pTqxsXsS1Bw7SyYgPica1 v8XBP8Eqg/94rDIbjwSrDFuUlzMmSQ6WC7pHCfaIS5KkoDinGbWHQKF93DHP FLPG4JtgjcF3PNaYO5Yea9Y5OmezM+s5nhl9yZSLVsjiPJ5U0EBsglgcWdDM WrzFQdXjyg4H1VPH4op5luCKWWyYK2bt5HSR4hORXFGLDpiFjCFiBAW1nWJl 4x3LPYYYLCsy5BRnqHcUM8RD06y0HN6rXW1gmHdVhFc2TA6Ahg5AN61i1hss PaPtDgfL8RhiDs4JhjiC3DMr7SBkE9Pu22K7ZwyLBpWQlGbx7DQYJphhMByP GeZcmWCGOacGZnT0WIgFF8zxbGoBhZiwT7qS5X/UdD07HGzKCKe/eObNBLnO ytuWMgDGkltsoGlJ8DxyMYI1XpaMBI0GhZMjIQlTBtFIp7ewiSnMUwyOO3mK B2KbUJgZ2wZrBRD0r9atW0fYefv09Rml/7Tf7yPzWtiWKsskhXCMimDDy6Ts YTjeJDBdhHajJCMGTl4y4kEuGfHaSLoKapEdKn5PHOf+3dLSEmKhSelsKUd3 0Gw2K6Kbz52coVtxX8LcNEYOdtAXZR9WYR5F2YbFnuKY/NtyJpdoC/p7sUS2 RbFKhBmZmzZXQ3tw5513chRHEcoexuNJppPmvQ2k8imJi6I98vmIiaFsozWG j/lMP8uZSoJ+oIjC8Wom7uH4y5hbB1liweIh6OhiKtoj2hwFgaZBYK4ijxIR HyPzabxhNGdL3j5D/AEOKILSRGSINJUQad6Um5OoOt+kQlUlSI6fdXSo6kfv v/9+xO+C1cwr4yvz7L7rnHYcCgShABp/5i1veYtGpxibths4OzM6DxPxIaPw cAInjoBsC/IEbSCylIgjAd7AH8hBTL1sBhwpJYfRfBguRwGhOeKxkNxazrdy Fo2+h+JBnNb+CQ0KET8gZvdPf/pTNjl0vPBewPKsDQU8SQSCjMKT8QbLdMHR DCaJdiJgxCTF9iIHW9kclNAxCRRmRTOjeawjhCGH2FfJqlTsvp2RuQbGLAMz CFHmWHpYteWh0JzqjMiNRLhJKTfGGyBjVFGMj6m/E2EpJnk3PzNGID7C6sKS 0Oys6M0OgFWvhA5iw4Tg7+Jxab3j3e9+NzYL0isrI3NWWbC9iumkNSLtidCY UtrHMzKZExnPWJOQPBFCYxKJ9xxu8CIjp2Iine0rxpMd4JJ9BRL3+G233aYS bDrnzObvv+1tb8NFz9d/7GMfE9DGNLcq6xJ7B8wXdDk1ItWJAJ5SqscbCOOe VJnaY1r0RKCPSWbOtl899XXgjvbSGo9sLxNdLDDfv+SSS9BficUD3f6Dk08+ +VWf/exnvURuoWlXYqHF2FRKbSK8yKHWKrqKA8DNjbGFJ6zJx5MIQzJ5gLi6 ijbyyIEQ/a92RJBXUPz5r1599dUyLqsdbBczFYceZVhJYOlQtzoDr8dXyGs7 lCUCnRzKrPlqPB+bOeKypcxcfk0ERJl2KmlBvD9K+73V2bSKJ0HOJwF+feDN b36z5Er1LJysP6RL3GwC3Lms17gd5gS7OvtqJK/loJyIviogbTxvtInHmXKG MxGbZcSDk+Ni3cMuWw7YDNqp09oCHUg1IKHHxUb1tiwE0jNhO+90rcrooNtb n3jiiSR1iQgwhzrrY60o1FszxSfVvkMKsxCSESt98zZfrxY6EX5xIFnP5LMf BHPs12+44QY5nK9x5JL3hzID7v7Upz4Vw5O9vEPqcgS6vfkrX/lKvJqsKvHF 2bQmQw3PcFvEo6o4TK3jUYWx7YzIz+3VhilMsk5RRfQAoVNUDD103Jb0FOf8 +Mc/jnn3iyPlOpKf/4rvfve7SJiOdBUgwHMBL2QjBiwOv+lNb4qR1MVVftsS 7ffud7zjHXKPTkbYSdxBZzvYHHHrRpNRHHfX1lTEZBnNY+Knl+ZqmVl/Y8b0 ZZXi2SLiVoWfyhQILNnEgW0OeYvZioAyKhggbFW8lP+86QEoJLv/1jXXXIPn CQcqNp3YVYIDypNmdl28sEIiQNy/Xrt2LZD1jEUsZIJruKs3Jn82Rg4n/A1h w0vbPACVLXyQxG6+3j0kCUZSuppYzGvSIWiHDWY43OiMQZjfyOqCi3yuc5pX 4Le/973vhe+BTI1rHFlXp1i8T1gVc7UrWB38+Mc/nic47/8Vij0raEL9sNtI XGTAPJOKNgjHDPpHO3bsQNYeGt712QQXo6mEBsVcdg6LD33wgx/EbVE4F1x/ OEsdRAFqGgdf/F4cJ0H7Tdz+haUcyYS8tC/8DKsrdAUy2Lgsn0pQxVZkTNy/ eeGFF/7b1atXL2dWU5hFasizeCWGgbEUqzKZS8KzNhxZuNgohgI6TbLJSq67 QcPBp9sMFk0pFiG3FilJ3lI28/7Zli1b3vv2t789pr1klBwXMJVoQNImiTEw t2U0CRzAIBcrMQDYDJC+5VOq8U3w1kksP4CDa9lEHntCZIBGJFNpxLbskVH0 BGfyv3zHHXfosB38jUB5tpXEQK2xXRA3Aqc64CYmiGwERRZWZYyUWhfAlqSz nUmdEDmQxNS8VqPd3z777LMxaGgnDFvj8DQQ0xVlLqEQwCQa67oOVZx5Qax2 oADMhYBjkZXlZr0jJnykMRlUp7CIByZFELyRGwypH4ULMUOa4gJgomYgfqLs I7ig7mjFK4VeKEBiSFUmpzh9Qxc9nXRc/i5VC/F53mpPuULIaSKRo1IX7pjP li4I8Bdf/vKXUwaEAN8kJPdyfQbuTxvuD7/wWYzmspVpBM9VS3uuyEEbyMr7 u7Q9HWLKGBkD0oYMyxics7icS4KRJJ9wuDQY7gcUl/LlTULrnnDpqm9/+9tx WIZ/ETatc0bNs82VD7wx0bFXwiTdHmSXYiXzDKkatseZCie8+xXNZaqY8Ekf oo9zjxwUmdsmb7iXCJ9XdhOMFKhbkO2UhO6iIhBIxbqBnxgd/Pwvs7Oz2OJI toogJRkn49mVYXk5kA1r+BSO/jAowhoeWs0ZcGRltsp5TMHcl8HwmLLO6l5V 32rkIVfp0OIZfr0z/3g3IF4Nk0xIWRQjFSvtgoUvXdeF9yuSa0gsMbxbMvPH y1PuFSYMOpNKX0mYKLrGJXhQDEGVO9P4O20ZOyP2vVjMEWnncKRtOAKNA24s ZNyKVW5y7JA+PXaoqJ5lVX5GHHO1xY+7Qu7WZNNmR5osnl7eJJMejI8c+egH kz2NKzTnczuJlPPUM0m4+Yxs3DIbHXWgEp+CM+gSoDkTkuHAIKxe6FKatRzd tzGbnvlc0IZRfMTW2GhmebwqjoJolvFLj5vHLx5Kc4D1jKdlEqJi2KzaYdO5 PsjpVFY8qYyl3jPzMQvM8q3KRMXcU4OcI6LlqF0eFWMeDLbxbr7sptx8pz1i caaNpqSO05YKgwdbg03o6EIxuzQeZezypGOhkF2tPLto5NoOm1g0zBG8omio mldQo/oCv0lCGcB39IjoNF+qqNmyNOuaah4Ms6lvWk7oATJ36xiGKcLkFezY HHnGvRiR8USEh9QkwR2EYxmgb3Fm4ILDo1YesEmE5rHIMyesKmRR17CI51Ec tbbDng3OPPLcAuUCYrze3K2pPcVHLB2Jhq98jjOVhzXnNvYEpWeMgYOw+OjM ZU1ntqkRjjt5tTOLzN/sPKPRKz5BtrVARqBbijWkYZEnAbw0j8KmYmEpZdOU M4gdh02sUMwgjicvbqnj5Qz1IknaOn3buc8++ywtwsWRfD0wDlXnMXZIJoak VjD/YNop6s3BgsGb5PkrHaWj0r1BwZi8q8pjAtLUAt+S3Y3AVJXo8xVKHE00 Z/QZzyLJZiNppjR3ikP0Opo5Olmdp4k7DlPWO+M0nkg4h327Fw68m5UjuNwq E9cGEh+LbyGejzz3CTMRvjHspP7Sa17zGoiFTrMk17HQUvBi6s2pIFQ8wluq MiYyLKoKl13Ze+pASyCobD8tmaHIm5flerRHlZUOTwJSc8ITcVloWpC2G7Rq vrQctgRWzQpb8DrkR7NYVsk4VF2HJ56lxHNtmnoSqJjToH97Dh91F2GvC5YS U9ghoLQSlCI4DJpU/JOY8FKN/jtXXnkljOH57HaBybOaM/lEd3/xrrvuAri4 F2C9JAYetI3bRJYak3F4mdRgvuYCOqbFrSu3aEE4RF5iSJT0kOrCok4QWXTM rm+lwygOhZXIOekzEDMjxMD75vEJrcCkoKVWejyCQwysLxoCUNRz2OPlfEgI 0KwobEjQwSP06chBKkoiS6oT42APkwzSVFngG5pgwh9v3rxZiFbnuRmgiPaU lTaRMjCgOIMCPIXZ94YtsBuAwZ5jufUxBiMDJYWa1zzpTKmJZSKF8whcokqk WrJui4ByQSS53B68CuF1xI/HFca72rvS4Zi6ewmJVjv1+Twt8Elg4+NxbXDj jTeqpIXzyaSFwxbwqkHJOSNETMqNqGUcj7yx9I0gbKhsdvAImxeGggetlRA2 c4zzDtkBtRlEksuomfoEg1AA5X83m3SYYVDjZg0csLFbbhzz+QEDg5VFzgJe hQSESsDHqwfcHDpZMLx72nAewq2pZDLeUqap2AoCic9x+eB2f/p973sfhL9M IA1XOewSnob4bgFdmHswHqrBJvYOzjnnnGNNysgaHQswVldvcN/z8MMPI85A FKJhKQuM2YuNIKNBHzoyikaN/SrQYEypNicVRvIxXdGIpHoK+6FAF7DHgMse F5oHsxcDzfa8CWZ7ZqlG5xhdHaofkfDUBEmNrvdpGM+yB59wzKXPPJJzdJZL pNESl4JsCLgpQiX+0/z8fJk4G3ayOH/5lltuQTEdGQ6PIExjuI7o05Rl7QTy TrNEY8+CwHBvbD946NChTKKJnRsd1TD5hd3cWWKpNEGIvAwgWAhpu2mZ4l0P 3sUoguWy2SrOlD2TzJTN8wyUtrP5grtetLAyFibscdkqjhTaNH0yKZuWMwEA 03LZCKWQgWs8QDJEDEI8KyTEzPBHLePon4aKcw2DAridcSupKNs2+wBnyhgj 9rJmNmxgO7SkaEHDHB5K1zRUz7nClFkN4zUPrPEcP6H7MVhQ5mI7Rqg40HbS gs/mXSU65TUkERooJp3lQ4UuaRLXRB4hE3SwTHZwlMQWXIXz9zCngS3GDhSL ShDHJTMISEA7ETAWG2P2WOkwiM8TEAfs7IQQ1sJCB3Y4y/hT7B6Zz/MIW3FZ dzz+0zj2HP5syEiLVtqE+CQMFeZg4nnSAidmtftAzkdAF5zEyRroI7KMrj8V 26/mPvTggw/i9gcUAUKKZN+An+LPQksRE5YO4yXiAfOSG0EbffZVr3qVcpHG wDeZp2Tt62TLCJ4JuISpwuOKLIRiFdHUYHMJiiJXig1Xs8IVqBeYfjR35SQQ R6rrsETl/o1OnnEsVzTnvLBDVYoyHjeYFfn83JKSo1gKYuIPna8bsTitTFuP Yr002LD1UqAbB0fCyq1dmxEui4GxDRebMG0OMvaoYlJ4XEmYLz2uQKVk9zS6 Di88x9h4RktvC2xAsQ0wX6zL5BfnFdDEGyW8Y46DwOYhbzpD4S19LBImLRaL hN4kxCuahSLBd33wawTK8mAO1l71aZYHsyuZsoQWMinhHytl0pTTruMQyLJi BrCirHBzs/Rwt9jxYI+vWNE1brtBluaHlkpml/HoJGTFwGxmUy8mdPdcPwwD bI5TlGEY93dwuXfM8Wj4JQcKj5sqmEDHlwl4FhrjkFwo5lQecimnEgIzKqdM O49Tal2JozhOQEZOPynfWzypMjd18JJOlMQDYIKHEqEZpl07oyJmxud2JrEc c8rY1DyOBlnpmXcHwbYO1HNxOYYbygcqITyZwcBiszHDOlovVxUzTr9bxrhE kIbDuI5h3CC7RtV2+OWlqq4oMd41FhUiGmuLqwtTmBR4FqsHcGCf0bBhiVgW 5GUKjXPku64wECcmj6fR+KscODxwxk7KVms5OYjJ16lOK1ZkaSbSa/SDqjsZ Nd2qYhYJKqbAAkf6GdSHX8QeldAgxZo4RB5r1jk6q2K4n5dtmwXMeFl4VgmL 5CcH9Zq665ynSAuBrq8+k42THM7xk+en8Tl5im1jNj9zuxUqJ42bC+Jtk3MC DpD4jOfoh+ZwxyGc+qbdyVIxCwSyZUFLsyDzdNnK8hVIL74DUjVg2xziOFL/ MW0nHGSxSaJT5rM5F2vLB7woVlvyJMYUexyWjNeRoUgCEIljZMtbymZOXPlU NuwYaRrIWfRSJInZHEDxDHZNfEaEtpuUqOn070WFL/o8kffgFnZ4MsgqqLTy /FDsQHMZgYwdPLrGSFIxNpufmTChENHfxSUUnKOBioSYwFlBcq4WoXhrRFJl cCgDSYsyZn/pZS97mbqq2ITvmCosFy0lfPeiKFmRzouUCLKcLkpghL/mkyWZ c/nScj7IOxiiPB/iHSLmg0QMKT7EvaPmd+QD62ETzlPxdoW6/R2DNfmmFBZ/ CLm+0AOSwixawK/gBHYw4uuEbMtORQI9tN90YGtj0fYDBm5oSjHyYfezplCF dJMpjhIJrVMZlRrevFidcUEWSlj1cMlLcQHTsSoX4gU9xQWgJSg9uW/fPnAh V81F3WKremNRdgckuXxjEb48SOnep556KibqC0TP6TgJmQVaH+oQCyhmvs6H j7iBC+8pDK4kpF7Ke77Pmk+LVFwTtijZklOhgRz2gP5n3/jGN8K1owrDzMvm oAqBOn0EGAX7DzzcGCZhsHgQ9LWFUcdI7avj+sB2I6AOEqEFntq7dy+8Dmi3 jbspqEKDzRqZSrz8zV4apOLyscsyK/HrZu/HTDhy/fXXAzSc4IkL03Sshnxj LDXVfKNeE43uK17S5eKrsoFGT5jjfGENnYs7SAQHF7yxr8Y19GLOtmT7jfwH KseUOVYVpDcqvo2+LGnS6kwa4imLIYlVHXgm+NsTRBEwiSc+K1p5Vmwq4TP9 hbOrio3KbHw4FElnDZDU6DpkHs8pU02C1+J0QGFtMFLpsai0C9IZFWe7WJYk ybtzxBnbsPTI7Uj8TGRVMA6S5pj82RQ5nMiqsCVTpTJvOJijKQEfKsCjqVNm yL0pbUiMYf+JHCTwneFwIKHd2P2CN169OM51kE98VJwwZlk6JW7qVGwhpQHF n0c+kXkkj7u+wDAWD7c6lCQ0EZdRkUKe1AU7IfW6he0i0MRqmcjjg2UNzeQU rt2L6MorTcj3XN1ESd6wLGSzT+dgUnfAos7nFD4y2FidPIISKXyKCJp22Laj Gue9okp8iAA0rGeUq89LY8XEypGRHHEc9QPhkE0adImXkIGPq24qpEQuKzfV kjr6RSvH6mzZQDuQAxKbDnWeEXVzIXUTL/HE3QLzmHMvkZvN2DxYjcraKusp OXDWZGo3bv1mMi4uS2dUnKPNT5c0m8kfninrFjmcpd9Ia8uhM5GozaFz4qWn GCUEpcC0QCglchBCkHJRYl0zd4ZfEsGgk0AarxQbmfKZizzjUUE+pBlnYENT SgocoQ+fCLVth9BESkKH0IlXuepkKEEcaCZudFCazWYiRAI84x3CstuhEudA 47vkKAU+95rMRp4hgAfDZEqadpSYSmwgKXREf5bSOufQuqGQ1onXzOpmsxGK kKpsJxLRQmFiEaIZ2XO0mIpK1HtodeM0bkg58iSf76i45smyLErqLlZcNFZl vcpuXdWIKaU9kY62lPYJ1OXqZaCw3lDXiTTNYosm1NVGIDr+2dsi+2sxpajb EvHOkrrvUpTqyLGV+KmUlE03l1mgpfvHaLRH5EIiYXMpFyZQFYztKpiyOItD ewI9r+AU3wbEfg1HIVCA31myjK+dQ2/clEYccCmWHEAeIY2RIYTzvqQyJ0VD KbuDvGxJ6L4zOk96Dk/WjM6TCZQOYFvMYwcOHIDxFxABzStJ2s6kHisdmufc JfYKIx9KE/mJbGUNvtKcT04EEwaivVPJiRIjWpQuCSlykG+sKjr5XEnTozO1 4zB1qSJTJ1CObT4DCVAACdC0xBZfF21hKcbCI215I2p2h0HzzObTEYkNVGpq ksG+YeqEtMSWIePKw2yyEhXXgO4ZNAZZuIGgwrH+I2DSjFaVjKLRGVh8sXQk Bk6guFxYPCjFKyDBEI+dEYQxg2pq9sg6A60E6x4M53Qpn7cixiOnticxPyLP 9JgEaxAua1E0bKIqj7ZEak9TxwGxWEhpr4hS/DXzW3eKqPSInEBZu4AwXb6R G+mAKtUS6HjMlVQHt912G5AG8miDFSIS4W3KN2UCqDNvEe8ThahEiGXTr8/N o+I+OP300zXu2EhUwn081nrFX2GjwyBShAHfTsNcxFwGqpAJKb5DQfpy+a/d boMkkAYSE3Vv4fpHl8SpRME05GaE+VffPy5CebB27dqqKOP3MpTHYSxFhgQJ 6MKmhlECjsADHeMzbRW94K/iYn1kDsdOVywaxfV/yKEhBeLi5Y18yb740iCk 8S7Ec7ODU5VSjebFHUVEq1smbdEbprRB4hAgBwlMuGjl6DvQC6s0EvRTIuZl tRlzEUGFRLnX/Ey5TTk8qvSLztEzxrbqLDxYb/sONolSlJMuZJcg3NiFuOiq 2XUNskBN8WklSpDoWHyVhMckhPCS6ySYMelycAlmGLOJuiITTx1sshZnqpiP EgUrpDaVHHD5IGuinDc7WCYYMukSahWLNpuwL7bO5OsrJbxTYnKR8AQ2r5it 4PNYtNkrU5ZgiHmXGWKMCFy1R5emVs4ez1cNfokNCpOeT1XeJXqDZYIhpUNe zhADPlEH3oTUerdM2YkgUUIQcFCrkjx4oSkdObzI0RmcUeZsjzvmWaIU/KSr dCW441RxtuepIAOUpAsUYmpD4Yh9WM4AxdcpenJUkHg4TE2xNWQ5hd0q8V5+ fo9hk66mlWCYkfAt2bsxop/tg3iGeYUdEMYylNZtSnLfYNmg73NAB7/JlyQ/ k4zq8o7cOltVrJAMFQmGTbr61XEOKM9Nyq50s9qqFN8iJly7pZvnjCSDUSEb lpS+g5tXafM4B7cJ1KUqZAON9LbwV7OyeucWfmbWdW8TWkjYpEpAJUbVELHV EcjEgcysz1sduIkRO5aiS6c7ymK7A8qrt8ZjZ+4BJEg0GnybA9ez4W534FYc RSbR3JX1SFzK1EUszrPdQT1BojkCbHPgeiRuc+DurkYic8REym0rJtG0YyEy 1n/v+LvBabfd6c8LD9vmtBuPRBOg5pHoBbId74xOsWnWasDjnP4SEXCm3ZnV SNztcMmLR1t02jGJ5qyaINHM2eOd/jy7+lanXRmJ9BduZPyAXniXugkcY7N2 OHwdtcT2TgeuF4XVd+Dujtgn7BVMmKnpUBy3Zp3ZJzjcLHYL2XY7HbjF4WUW 7lnVhJKrKEpWbp1gxAtdMm7hE7Nn+fsF3inRjN2JDtxEFJeBe3Y1EpkjUPKx VEYiOstspHaFZ2Z98k6da51R3OXATURLGbgVSeTmpghCIgpKCh3Qp5PDMxNN mSgqLBmZaMROduAmgpIM3HOqkXhOBipWQUgEG0m8G2lBPu+IQaTw9pB34+sU B24i8MfAPa8aiedmAhNHIxHQY9LO8y6o9L6bd2XxNAduIpjGwD2/GonnZV3E ROuJIBmTQH13JkRxbSuOuXP3lAZuIizFwL2gGomBI8syhCfCTfLZv8O2a0aM CPiC+GHmyNFaztPkmQ7BAvFwiS/2jxgzLedIQzu8hi94/uCzkNRCiAzAZ7w3 FU6l4rnUk8uspM1jx3arz7JENEqeZRdWG6PQvKUTl6OXRJQJyMun5Ba8x0+R 2Mvn8UOH+oYix+nAl4RH8M2BkGBZ6cLbiOFClCEei9+K7pyENi04QeHlR1tg EHrsmat2g+DvHjPNY56GbT5zE9EmLnP3VBvSPVlX6EJuwJYkHW/JLV1py3lU i/IMqrtV+VR6uIMkkduccwKOafAd/IfLFOMEd2EiEQuisDAr0SuGDl5WjAvn i5Ow7Bu+/vWvF+PXKUr1108wKREpkmfSRdWGJjQnpzV68DN8mwiQfPZqkErb RiZAVnKTtC7MXpOgDgQi2awOqMagoE/4vMFpupThRU1xFAkU4GMHDhyAHxzz T2X1pN/hZ5fLw4KLukepUSFVHEjoFXEDf1VRIkWcuKTaEITm3VRO7Bj9kUqK HZCPDjTxtXE6Z3kMmUe2QxQmBZtpJSmum0qufrAX2RGRVFvyEZJG3GhByimg X0xRLl91N5mv+rJqjAz5uyeW6FmtfDrRGju7IXq4iQ1FgJBDXB9Il6ClIFDk ekcWX7yGsEJIOAdC5NOybcvImURi5SurMfPaTGyAmFTMAAfifSgv0mNrtg2J 6ciCPExLBszHODMV+sIFAOjREcrFTktU1j/ftGkTomjEd4Vn6JdEmW0AJn1Z 4OSy6JAkbddXY9d+hxUKlZhoi58BZYg7KTjO+ikJtJD2ukIl1phTQJxZyE8J padDxiGtEk4mOJiEXZ6x6+ZjZ4Gq1RJDVRk8FlwoFtrE8hKqE0F5scDJUqWz ZeG3Bot2xgSoNEqDzpiZdFSeTamMMfQXjx2bMgAxTZIaDQTG0TRnn65OhYQn BQGqsvNExU78VAGqHR2gqsHyoip3ZvTAGKieMWZfpDFhn0uQb4zBqgRDzF48 k2m+aFHlC2FStAXqFvBwlyIWoPEyWXFfJmmzF13kmWQmMAG8kpkMHqJIpwF8 mnPaBbGeFlUqUi8wZf7SzqXpvD/nwOk77TxTzQRI3+Bwue+MBtdDzecnFHMH c0GDM3augUq6ueAIU98RCs9yMwGK2Vpiis4yeGyjsN1SV2LjPVFxIVMsE6+p TtmFthjTTf8LmfoAR/UaqPuvi2SVNy+mb2HwIBXLMq1xKkxYX0gWtUThCmHj 0pFjL9Q28oJIv4tOt30HvGezmhylxm3K4E2CQmXignIKyjg8o3RLQzC6+AC4 INW9xWRm0i+qXcQyM/eESWQ7mLlhz+AR/Y6jMskc9weO4/Im7cOcTIOYvUhU hOOGdqTHW4GKPNfEXQ95pctP6I/KJaPyFVC75xOf+ASmEWDg561PPPEEpiam KfWlgraTy0xNpHE7EyLK4E3eec4rgtUSmw0UekESoQCgjUw82EzgYIJB1cZ4 kx9erWDRhOlFSUyOMgOq76DEx3q0gexiYB559NFHkSZHStlrWMgU8QcPPfQQ lIxkglvjMKzvMLYmSnnym3A3Bm/K2HHksCz/clzkCaijXgRk7JKvEYuFVlQm QzaV6RiyCaLxbLCTI9z4PdQhwbsPHq8P8bZQX6AQePnUCKaUPGtpUwFJ7X+X 1Q+vh2TDXVUVMZ/ZXLzIhLoqBC1yIvBif+3sPTxTmYqsLPUdmatIMl9gpHpI 8u/gkYGX2dDjxFKGaYzlVmtOrIig7pJFZzNbASW+G7BiP13LOZ35xFQ2YFgm RtwLMklwgB3HjSMHDzaOmD+NTL6Rub4jm97NMyZf5BywYj/snzHxNKucOdV3 5t6Y5B89fJDKDY1BvheeYspBe0W0OF+wRJMDVuyHj7dmqec+TFFnhmUi0iuS Py8fjh5u7GkECaDJ1UbrA9RNczAUucGhQ4foU5+frVixYnDffffRpwV+tnPn zsErX/lK+hTM7q3BcLKiK+ljmpuiO1xJffjhhxur+BmaQRQ0GLw+bEOf7sL3 tjq6y+wN2NPcBQUVZ69p13eerXT0DJ/M8ZnwRnuVUTlZCKGfvRuDbT1PUmLc Ys2jw4cbRwfaolZO9qJDjrdUM+rmtM1kQ4kBDr2vUq/GcFp+t3RRHotsPeBU JMzLJZ+g3OgVxspkcF5wJvZMpsMAh95X+WdiDC6/a1IUeZHUFSkfdW328m4r s208mC04MsgkYrDF6SuCZuKneT6Yg2M/ezcOeL0klq46Cw7qTCJVMBuCofeZ RBMNzSSWrjZ1kkiR52Ta1iUKzf0INfXQZ7gC4Uwzr8agFwVf74gZUH0HJaU1 YhgHjxhIAxx638sXsTIyamtkXsXFsCI5pbbBBUewmBxKQ85rvuvA5BErNQbW O2KlR3Im0Wg2lYMMcOh9lRAublX43dKzeb0klu7dFxzhZRIluonen3XUA79b umevicSKGxyzjiU2OEa11LTBqUiid3HJoMRomvWJRJiTlJoOeo70e5dcPV7W S6e59ahqyj8m9ZJUxHi0gvJZQy6jiBqlfvisYSyYauMXxYFhmQstNalXL8zS 28LwiDjp22LZFsCK/fSc9txH6VamXlLNTUPlFYiVahYdlMIZsCOCC1i6H1Uk JRapWRxxro5DbaHbmC0yZolgoGaTzMiZejRsINMbdkEg9qeKL8ZqLdyX2dQz TLP596xFYzuIubPSXY5KFhMrtBAnwxXWtqYydsa5CPLlSqiv3K6nXguvuVyo nGWxWsfqbJrFKiVhJZ3TOyGBZ/pjiqWCB6NmipYwSLOpqsnOucaZdZ7TLIA3 1TyQE+YPzzrrLPGOApZEeCDHP4pDmzoWaxwF5znP6nVUmDuHajOE/R4lygr+ lFmpUvGVm2++WepcAwZ8MCAb6GJyoyyA+GDwTqxooZy88e5ivY6z0iAGdpxJ O+gWoIafsoxAb0A+Y19rnX68IIV6STP3n9TyAT1PoxYENNZ9wTMdgUBw2LsC ElFkV/pb7XTXd8DW5NT1LrF5gxd06ry00+1NMMIgU6mxzeoRB7EmEtnjX2pF DluVrr4iISdBLwhB79Skb14WdVJ/9w5jTUEI6zNZyt961Pnuef+5aLwfauDw uwlGGKiaUoOwosT+FzIlFhPl9zNlF/uvKcKEuzW3EZWtNeaZn8+mVHQQceyQ 6EjZngtMiSOi6TflwJnP2B3z1PcdODVFUKkqjDEgT02rGLjH1g+zP2TSQRrQ xlIjXpI/Ou200xBDi+c6SNTA4T5LjbA1kc7heOb2orJQxjTr4Yy9Tt9ehNCC PRBMbIswSnD3I8oGcJ+49dZbUUAEz3VwqUiHhqmsFDFjuzpIxQuTNUUPbs64 EC84Ki7EbOfhzNbTFxwx8BK2jmkNOS0uGNvT5WAkKZUG281mQsydrmZCvFbp 3U+eXByxuQapZkKMKOLLPXINElWPJCs2dF9xFHVHElCBkhuffvppAdPOVE3M Uq685vGy5ThxwiMQrkDFy5FK+8U83qHbjhzNLn7mmWckJxLGxytJxwd9yfCJ 4noRBGsEkwI8d/oztWgmTHXBpcMgBdM6MzYqO8plQ1AQY/4T9wgkfhJBXNI9 hl+n0JbslPnLjNvGILjwXL89wMjfxuMkmxg3oAQTBq473Pb444/HxbY4E1hX uAbyntu1axfeR2UoOklwyXr3Vt92B8Wxj/LHZYCWXWcLS3pPX13b+utf/xrh kkD22XPPPRdj7NEYhrUHHS5NQVceBJdfy1+O8xJpTUBcQ6KMwkt0XEav6LoY B25hur76M5/5jJueuLik5IKXq3jfk08+GSOEB2E/515oK0FtZz38OiET8LIb b8n7YQHsrDliMLWFeZSLK66m8xN7dd+nJkTHifWwmTNAjHsfLn+BTFW5j2dW NpGWpVfGk1FyFXN3xpTeniwVJ9fD65DEIH1djkSB7Ithc23SKMtRLKYn5g24 MV3NjABldz0EXpqNPrSISQqj32VHmDEuXlorSsahkkDJJKeoFyUv7sxDyaBe L0rGO+Gh5EUOXFIrSh5475nx89aEEndrIro8fyWjZLzr9aLkhXB6KBmZqxcl E7ZRiBJpupqEmhEpdS8zb4zPt17emGCIBErGWPnCmGdm2R0HpcKDDiNiJnJC LRpnridBY59KLo2C6Q0NgzdLbr1a2QhwgiNGgGtC6TJHCrw03MrQGncCl9WK khmQBErmIFATSpc7XPIKl/P2zUSRXF4rSkYrJ1AyC0VNKHEqDhPJ5cXo8RHf pEa7oh6UOP+FMV4XWxisN+fKWlHSSaUShp2myQt1VT0oXZWhBE7RbCo2pTUl kREdBq+uB6VrwjPJ6EDWvWJ7SKw1IRV7r6kHq5AfpZWval+cPmpZpfvr6kEs JC7xa7+Hrsxdeny5teBfWg96N4RnRZXP8Vth5fMb60GJn+G4irYE6uYxQBVu f7wXvXZjb2tGBTABZr0I6kVQL4J6EdQLApR+lgJV1o5BsRu9ceRgI/zbk10N lGd7Dh9N3RKsBSPs/442Du/JrhcPgM7BI4wZ3eBreN79xGGptN2k330h4fIn RUfJsOIO/cEj2RAPhe3FYf3/gI6SYQ2T1RnWAe0Y1YavimDQp9vT73l6Qr/H ZyZ+DyTRu+zs1EovvHZHeI1+vy/9e2PF/wM4uQBc\ \>"]] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"plot3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.6", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot31", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.3"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "5", ",", "8"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot32", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.3"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "14", ",", "17"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot33", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.3"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "23", ",", "26"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, { 3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, { 3.5699053539965925`*^9, 3.5699054389231415`*^9}, 3.569905537530915*^9, { 3.569905740456071*^9, 3.5699057428272753`*^9}, {3.5699059913513117`*^9, 3.569905998901725*^9}, {3.5699060985859003`*^9, 3.569906102236306*^9}, 3.569909499345073*^9, {3.5699456643108735`*^9, 3.569945709426153*^9}, { 3.569945783651083*^9, 3.5699458065831237`*^9}, {3.569945916407316*^9, 3.569945941757361*^9}, {3.569945998915861*^9, 3.5699460251083074`*^9}, 3.569946590624901*^9, {3.5699473581306486`*^9, 3.569947378769485*^9}, { 3.569947426115568*^9, 3.569947444352*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"plot4", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.6", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot41", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.3"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "4", ",", "7"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, { 3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, { 3.5699053539965925`*^9, 3.5699054930864363`*^9}, {3.569905578059786*^9, 3.5699056388218927`*^9}, {3.569905749316887*^9, 3.5699057514696903`*^9}, 3.569905948186036*^9, 3.5699060106017456`*^9, {3.569906116167131*^9, 3.5699061238111444`*^9}, {3.569906364394767*^9, 3.5699064898969874`*^9}, { 3.5699071753153915`*^9, 3.569907195751427*^9}, {3.5699087828358145`*^9, 3.569908810401063*^9}, 3.569909543508751*^9, {3.569909656343749*^9, 3.5699096614449577`*^9}, {3.569946229328266*^9, 3.5699463223980293`*^9}, { 3.569946556632441*^9, 3.5699465873644953`*^9}, 3.5699473833714933`*^9, 3.5699474496560097`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"plot5", " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Red", ",", "1.0"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.05"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.25"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.636"}], "]"}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, { 3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, { 3.5699053539965925`*^9, 3.5699054930864363`*^9}, {3.569905578059786*^9, 3.5699056388218927`*^9}, {3.569905749316887*^9, 3.5699057514696903`*^9}, 3.569905948186036*^9, 3.5699060106017456`*^9, {3.569906116167131*^9, 3.5699061238111444`*^9}, {3.569906364394767*^9, 3.5699064898969874`*^9}, 3.5699065367750697`*^9, {3.5699065718127313`*^9, 3.5699065843707533`*^9}, { 3.569906677112916*^9, 3.569906694257346*^9}, {3.569907270397558*^9, 3.569907284468783*^9}, {3.5699073554645076`*^9, 3.5699073994409847`*^9}, { 3.5699074442910633`*^9, 3.5699074726207137`*^9}, {3.5699075573444624`*^9, 3.5699075599964666`*^9}, {3.5699088339415045`*^9, 3.5699088607579517`*^9}, 3.569908955637318*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"plot6", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.6", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot61", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.3"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "4", ",", "7"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, { 3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, { 3.5699053539965925`*^9, 3.5699054930864363`*^9}, {3.569905578059786*^9, 3.5699056388218927`*^9}, {3.569905749316887*^9, 3.5699057514696903`*^9}, 3.569905948186036*^9, 3.5699060106017456`*^9, {3.569906116167131*^9, 3.5699061238111444`*^9}, {3.569906364394767*^9, 3.5699064898969874`*^9}, 3.5699065367750697`*^9, {3.5699065718127313`*^9, 3.5699065843707533`*^9}, { 3.569906677112916*^9, 3.569906694257346*^9}, {3.569907270397558*^9, 3.569907284468783*^9}, {3.5699073554645076`*^9, 3.5699073994409847`*^9}, { 3.5699074442910633`*^9, 3.5699074726207137`*^9}, {3.5699075573444624`*^9, 3.5699075599964666`*^9}, {3.5699088339415045`*^9, 3.5699088607579517`*^9}, {3.569908955637318*^9, 3.569908961190928*^9}, 3.5699095519639654`*^9, {3.5699096284976997`*^9, 3.5699096367033143`*^9}, { 3.5699097301474786`*^9, 3.569909767696745*^9}, {3.5699463756253233`*^9, 3.5699464132681894`*^9}, {3.56994645334466*^9, 3.569946457619067*^9}, 3.5699464899267235`*^9, 3.5699465978321133`*^9, 3.569947391920308*^9, 3.569947454070817*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.6", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot71", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Blue", ",", "0.3"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}], ",", RowBox[{"-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "4", ",", "7"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, { 3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, { 3.5699053539965925`*^9, 3.5699054930864363`*^9}, {3.569905578059786*^9, 3.5699056388218927`*^9}, {3.569905749316887*^9, 3.5699057514696903`*^9}, 3.569905948186036*^9, 3.5699060106017456`*^9, {3.569906116167131*^9, 3.5699061238111444`*^9}, {3.569906364394767*^9, 3.5699064898969874`*^9}, 3.5699065367750697`*^9, {3.5699065718127313`*^9, 3.5699065843707533`*^9}, { 3.569906677112916*^9, 3.569906694257346*^9}, {3.569907270397558*^9, 3.569907284468783*^9}, {3.5699073554645076`*^9, 3.5699073994409847`*^9}, { 3.5699074442910633`*^9, 3.5699074726207137`*^9}, {3.5699075573444624`*^9, 3.5699075599964666`*^9}, {3.5699088339415045`*^9, 3.5699088607579517`*^9}, {3.569908955637318*^9, 3.5699089647945347`*^9}, 3.5699095576111755`*^9, {3.5699096184824824`*^9, 3.5699096236616917`*^9}, 3.5699097374638915`*^9, {3.5699097731411543`*^9, 3.5699097922043877`*^9}, { 3.569946391443751*^9, 3.5699464217858043`*^9}, {3.569946462735876*^9, 3.569946498522339*^9}, 3.5699466012485194`*^9, 3.5699468233929095`*^9, 3.569947399751522*^9, 3.569947459686827*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"plot8", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "1.0", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.5"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "12", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "12", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}], ",", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "12", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "12", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "21", "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "9", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "18", "]"}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "18", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}], ",", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "18", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "18", "]"}], "]"}]}], "]"}], ",", " ", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "27", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "27", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "27", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "27", "]"}], "]"}]}], "]"}]}], " ", "}"}]}], "}"}], " ", "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, { 3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, { 3.5699053539965925`*^9, 3.5699054930864363`*^9}, {3.569905578059786*^9, 3.5699056388218927`*^9}, {3.5699058693746977`*^9, 3.5699058705603*^9}, { 3.569906498165002*^9, 3.569906500161805*^9}, 3.5699070063514943`*^9, { 3.5699071545361547`*^9, 3.569907159840164*^9}, {3.5699073205672464`*^9, 3.5699073233908515`*^9}, {3.5699075147563877`*^9, 3.569907517735993*^9}, 3.56990757306929*^9, {3.5699090702819195`*^9, 3.5699093466052046`*^9}, { 3.5699093878828773`*^9, 3.5699093884912786`*^9}, {3.56991060215781*^9, 3.5699109695228553`*^9}, {3.569911102310289*^9, 3.569911106959097*^9}, { 3.5699112388573284`*^9, 3.5699112853454103`*^9}, 3.5699113184330683`*^9, { 3.569911356762336*^9, 3.569911392345998*^9}, {3.5699438261128454`*^9, 3.5699438386396675`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"plot9", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "1.0", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}], ",", " ", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}], ",", " ", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}], ",", " ", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}], ",", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}], ",", " ", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Blue", "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "9", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "9", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}], ",", " ", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}], ",", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}], ",", " ", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}], ",", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}], ",", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}], ",", " ", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "12", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"z", "[", RowBox[{"[", "12", "]"}], "]"}]}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "12", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"-", RowBox[{"z", "[", RowBox[{"[", "18", "]"}], "]"}]}], ",", RowBox[{"-", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}], ",", " ", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "27", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "27", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "27", "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}]}], " ", "}"}]}], "}"}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"plot10", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", RowBox[{"Lighter", "[", RowBox[{"Magenta", ",", "0.8"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, { 3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, { 3.5699053539965925`*^9, 3.5699054930864363`*^9}, {3.569905578059786*^9, 3.5699056388218927`*^9}, {3.5699058693746977`*^9, 3.5699058705603*^9}, { 3.569906498165002*^9, 3.569906500161805*^9}, 3.5699070063514943`*^9, { 3.5699071545361547`*^9, 3.569907159840164*^9}, {3.5699073205672464`*^9, 3.5699073233908515`*^9}, {3.5699075147563877`*^9, 3.569907517735993*^9}, 3.56990757306929*^9, {3.5699090702819195`*^9, 3.5699093466052046`*^9}, { 3.5699093878828773`*^9, 3.5699093884912786`*^9}, {3.56991060215781*^9, 3.5699109695228553`*^9}, {3.569911102310289*^9, 3.569911106959097*^9}, { 3.5699112388573284`*^9, 3.5699112853454103`*^9}, 3.5699113184330683`*^9, { 3.569911356762336*^9, 3.569911392345998*^9}, {3.5699438261128454`*^9, 3.5699438386396675`*^9}, {3.5699438720081253`*^9, 3.569943947839859*^9}, { 3.5699439802411156`*^9, 3.5699440610492573`*^9}, {3.569944145585806*^9, 3.569944200809903*^9}, {3.5699442420251756`*^9, 3.5699443347517385`*^9}, { 3.5699443944218435`*^9, 3.5699444103026714`*^9}, {3.569944488240408*^9, 3.569944502670433*^9}, {3.5699445348376904`*^9, 3.569944684051952*^9}, { 3.5699447172956104`*^9, 3.5699447548136764`*^9}, {3.5699448119565763`*^9, 3.569944812346577*^9}, {3.569946879459408*^9, 3.5699470094856367`*^9}, { 3.569947040482891*^9, 3.5699470409196916`*^9}, {3.5699471195906296`*^9, 3.569947137842662*^9}, {3.569947175407528*^9, 3.5699471769051304`*^9}, { 3.5699472139551954`*^9, 3.569947226216817*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ "plot10", ",", "plot5", ",", "plot3", ",", "plot31", ",", "plot32", ",", "plot33", ",", "plot4", ",", "plot41", ",", "plot6", ",", "plot61", ",", "plot7", ",", "plot71", ",", "plot8", ",", "plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, { 3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, { 3.5699053539965925`*^9, 3.5699054930864363`*^9}, {3.569905578059786*^9, 3.5699056388218927`*^9}, {3.5699058693746977`*^9, 3.5699058705603*^9}, { 3.569906498165002*^9, 3.569906500161805*^9}, 3.5699070063514943`*^9, { 3.5699071545361547`*^9, 3.569907159840164*^9}, {3.5699073205672464`*^9, 3.5699073233908515`*^9}, {3.5699075147563877`*^9, 3.569907517735993*^9}, 3.56990757306929*^9, {3.5699090702819195`*^9, 3.569909082902342*^9}, { 3.5699093553100204`*^9, 3.5699093596312275`*^9}, {3.5699447699925027`*^9, 3.5699447735961094`*^9}, {3.5699457249169803`*^9, 3.5699457274441843`*^9}, {3.5699458656760273`*^9, 3.5699458676104307`*^9}, {3.569945957014188*^9, 3.569945962817398*^9}, { 3.569946336360054*^9, 3.569946339136859*^9}, {3.5699465107059603`*^9, 3.569946519192375*^9}, {3.569947013791244*^9, 3.569947017550851*^9}, { 3.569947265326086*^9, 3.569947278570509*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[1., 0.8, 1.], Opacity[0.8], SphereBox[{0., 0., 0.}, 2.49901]}, {RGBColor[0., 0., 0.], SphereBox[{0., 0., 0.}, 0.05], SphereBox[{0., 0., 0.}, 0.25], SphereBox[{0., 0., 0.}, 0.636]}, {Opacity[0.6], SphereBox[{0., 0., 0.}, 2.49901]}, {Opacity[0.6], SphereBox[{2.33848, 0., 0.}, 1.69653]}, {Opacity[0.6], SphereBox[{4.29533, 0., 0.}, 0.26032]}, {Opacity[0.6], SphereBox[{5.40207, 0., 0.}, 0.84643]}, {Opacity[0.6], SphereBox[{5.40207, 1.89008, 0.}, 1.89008]}, {Opacity[0.6], SphereBox[{5.40207, 0., 1.89008}, 1.89008]}, {Opacity[0.6], SphereBox[{5.40207, -1.89008, 0.}, 1.89008]}, {Opacity[0.6], SphereBox[{5.40207, 0., -1.89008}, 1.89008]}, {Opacity[0.6], SphereBox[{6.47226, 0., 0.}, 0.22376]}, {Opacity[0.6], SphereBox[{7.79852, 0., 0.}, 1.1025]}, {Opacity[0.6], SphereBox[{0., 2.33848, 0.}, 1.69653]}, {Opacity[0.6], SphereBox[{0., 4.29533, 0.}, 0.26032]}, {Opacity[0.6], SphereBox[{0., 5.40207, 0.}, 0.84643]}, {Opacity[0.6], SphereBox[{1.89008, 5.40207, 0.}, 1.89008]}, {Opacity[0.6], SphereBox[{0., 5.40207, 1.89008}, 1.89008]}, {Opacity[0.6], SphereBox[{-1.89008, 5.40207, 0.}, 1.89008]}, {Opacity[0.6], SphereBox[{0., 5.40207, -1.89008}, 1.89008]}, {Opacity[0.6], SphereBox[{0., 6.47226, 0.}, 0.22376]}, {Opacity[0.6], SphereBox[{0., 7.79852, 0.}, 1.1025]}, {Opacity[0.6], SphereBox[{-2.33848, 0., 0.}, 1.69653]}, {Opacity[0.6], SphereBox[{-4.29533, 0., 0.}, 0.26032]}, {Opacity[0.6], SphereBox[{-5.40207, 0., 0.}, 0.84643]}, {Opacity[0.6], SphereBox[{-5.40207, -1.89008, 0.}, 1.89008]}, {Opacity[0.6], SphereBox[{-5.40207, 0., -1.89008}, 1.89008]}, {Opacity[0.6], SphereBox[{-5.40207, 1.89008, 0.}, 1.89008]}, {Opacity[0.6], SphereBox[{-5.40207, 0., 1.89008}, 1.89008]}, {Opacity[0.6], SphereBox[{-6.47226, 0., 0.}, 0.22376]}, {Opacity[0.6], SphereBox[{-7.79852, 0., 0.}, 1.1025]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{5.40207, 1.89008, 0.}, 1.89008]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{5.40207, 0., 1.89008}, 1.89008]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{5.40207, -1.89008, 0.}, 1.89008]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{5.40207, 0., -1.89008}, 1.89008]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{1.89008, 5.40207, 0.}, 1.89008]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{0., 5.40207, 1.89008}, 1.89008]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{-1.89008, 5.40207, 0.}, 1.89008]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{0., 5.40207, -1.89008}, 1.89008]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{-5.40207, -1.89008, 0.}, 1.89008]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{-5.40207, 0., -1.89008}, 1.89008]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{-5.40207, 1.89008, 0.}, 1.89008]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{-5.40207, 0., 1.89008}, 1.89008]}, {Opacity[0.6], SphereBox[{0., -2.33848, 0.}, 1.69653]}, {Opacity[0.6], SphereBox[{0., -4.29533, 0.}, 0.26032]}, {Opacity[0.6], SphereBox[{0., -5.40207, 0.}, 0.84643]}, {Opacity[0.6], SphereBox[{1.89008, -5.40207, 0.}, 1.89008]}, {Opacity[0.6], SphereBox[{0., -5.40207, 1.89008}, 1.89008]}, {Opacity[0.6], SphereBox[{-1.89008, -5.40207, 0.}, 1.89008]}, {Opacity[0.6], SphereBox[{0., -5.40207, -1.89008}, 1.89008]}, {Opacity[0.6], SphereBox[{0., -6.47226, 0.}, 0.22376]}, {Opacity[0.6], SphereBox[{0., -7.79852, 0.}, 1.1025]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{1.89008, -5.40207, 0.}, 1.89008]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{0., -5.40207, 1.89008}, 1.89008]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{-1.89008, -5.40207, 0.}, 1.89008]}, {RGBColor[0.3, 0.3, 1.], Opacity[0.3], SphereBox[{0., -5.40207, -1.89008}, 1.89008]}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0., 0., 2.33848}, 1.69653]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0., 0., 4.29533}, 0.26032]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0., 0., 5.40207}, 0.84643]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{1.89008, 0., 5.40207}, 1.89008]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0., -1.89008, 5.40207}, 1.89008]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-1.89008, 0., 5.40207}, 1.89008]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0., 1.89008, 5.40207}, 1.89008]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0., 0., 6.47226}, 0.22376]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0., 0., 7.79852}, 1.1025]}}, {Opacity[0.3], {RGBColor[0.3, 0.3, 1.], SphereBox[{1.89008, 0., 5.40207}, 1.89008]}}, {Opacity[0.3], {RGBColor[0.3, 0.3, 1.], SphereBox[{0., -1.89008, 5.40207}, 1.89008]}}, {Opacity[0.3], {RGBColor[0.3, 0.3, 1.], SphereBox[{-1.89008, 0., 5.40207}, 1.89008]}}, {Opacity[0.3], {RGBColor[0.3, 0.3, 1.], SphereBox[{0., 1.89008, 5.40207}, 1.89008]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0., 0., -2.33848}, 1.69653]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0., 0., -4.29533}, 0.26032]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0., 0., -5.40207}, 0.84643]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{1.89008, 0., -5.40207}, 1.89008]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0., -1.89008, -5.40207}, 1.89008]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-1.89008, 0., -5.40207}, 1.89008]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0., 1.89008, -5.40207}, 1.89008]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0., 0., -6.47226}, 0.22376]}}, {Opacity[0.6], {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{0., 0., -7.79852}, 1.1025]}}, {Opacity[0.3], {RGBColor[0.3, 0.3, 1.], SphereBox[{1.89008, 0., -5.40207}, 1.89008]}}, {Opacity[0.3], {RGBColor[0.3, 0.3, 1.], SphereBox[{0., -1.89008, -5.40207}, 1.89008]}}, {Opacity[0.3], {RGBColor[0.3, 0.3, 1.], SphereBox[{-1.89008, 0., -5.40207}, 1.89008]}}, {Opacity[0.3], {RGBColor[0.3, 0.3, 1.], SphereBox[{0., 1.89008, -5.40207}, 1.89008]}}, {Opacity[1.], {RGBColor[0.3, 0.2, 0.1], SphereBox[{4.29533, 0., 0.}, 0.26032], SphereBox[{0., 4.29533, 0.}, 0.26032], SphereBox[{0., -4.29533, 0.}, 0.26032], SphereBox[{0., 0., 4.29533}, 0.26032], SphereBox[{0., 0., -4.29533}, 0.26032], SphereBox[{-4.29533, 0., 0.}, 0.26032]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], SphereBox[{6.47226, 0., 0.}, 0.22376], SphereBox[{0., 6.47226, 0.}, 0.22376], SphereBox[{0., -6.47226, 0.}, 0.22376], SphereBox[{0., 0., 6.47226}, 0.22376], SphereBox[{0., 0., -6.47226}, 0.22376], SphereBox[{-6.47226, 0., 0.}, 0.22376]}}, {Opacity[1.], {RGBColor[0.3, 0.2, 0.1], TubeBox[{{0, 0, 0}, {4.29533, 0., 0.}}, 0.15], TubeBox[{{0, 0, 0}, {0., 4.29533, 0.}}, 0.15], TubeBox[{{0, 0, 0}, {0., -4.29533, 0.}}, 0.15], TubeBox[{{0, 0, 0}, {0., 0., 4.29533}}, 0.15], TubeBox[{{0, 0, 0}, {0., 0., -4.29533}}, 0.15], TubeBox[{{0, 0, 0}, {-4.29533, 0., 0.}}, 0.15]}, {RGBColor[0, 0, NCache[ Rational[2, 3], 0.6666666666666666]], TubeBox[{{4.29533, 0., 0.}, {6.47226, 0., 0.}}, 0.15], TubeBox[{{0., 4.29533, 0.}, {0., 6.47226, 0.}}, 0.15], TubeBox[{{0., -4.29533, 0.}, {0., -6.47226, 0.}}, 0.15], TubeBox[{{0., 0., 4.29533}, {0., 0., 6.47226}}, 0.15], TubeBox[{{0., 0., -4.29533}, {0., 0., -6.47226}}, 0.15], TubeBox[{{-4.29533, 0., 0.}, {-6.47226, 0., 0.}}, 0.15]}}}, AspectRatio->Automatic, Boxed->False, ImageSize->{812., Automatic}, SphericalRegion->True, ViewPoint->{2.8181251795983076`, 1.4212751065007347`, 1.2198965299382287`}, ViewVertical->{0.2284471754504186, 0.12558584361371125`, 0.9654222308982522}]], "Output", CellChangeTimes->{ 3.5699071033992653`*^9, 3.569907204206642*^9, 3.569907342220084*^9, 3.569907374995742*^9, 3.569907405727796*^9, 3.5699074795003257`*^9, 3.569907526940009*^9, {3.569907566314478*^9, 3.5699075784200993`*^9}, 3.5699087913690295`*^9, 3.569908868027564*^9, 3.5699093662612395`*^9, 3.5699093963692923`*^9, 3.5699095058502846`*^9, 3.5699095622755833`*^9, 3.5699096655165653`*^9, 3.569909797211996*^9, 3.569911004825718*^9, 3.569911115648312*^9, 3.56991129094582*^9, 3.5699113266542826`*^9, 3.56991139886681*^9, 3.5699219016316757`*^9, 3.5699219583065753`*^9, 3.5699447805381217`*^9, 3.5699448166521845`*^9, 3.5699457322957935`*^9, 3.5699458146639376`*^9, 3.569945871775638*^9, 3.5699459726610155`*^9, { 3.569946006216674*^9, 3.5699460334855223`*^9}, 3.5699463449556694`*^9, 3.5699465261499877`*^9, 3.5699466058505273`*^9, 3.569946837386134*^9, 3.5699470487977057`*^9, {3.56994712531584*^9, 3.569947143209071*^9}, 3.5699471843775434`*^9, 3.5699472315676265`*^9, 3.5699472846701193`*^9, 3.56994741003194*^9, 3.5699474650376368`*^9}] }, Open ]] }, WindowSize->{1052, 824}, WindowMargins->{{351, Automatic}, {Automatic, 16}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, CellLabelAutoDelete->True, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 4531, 119, 252, "Input"], Cell[5091, 141, 1140, 40, 112, "Input"], Cell[CellGroupData[{ Cell[6256, 185, 6181, 177, 252, "Input"], Cell[12440, 364, 24702, 405, 371, 1961, 33, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[37157, 772, 4088, 108, 92, "Input"], Cell[41248, 882, 2812, 71, 72, "Input"], Cell[44063, 955, 2223, 51, 52, "Input"], Cell[46289, 1008, 3478, 82, 112, "Input"], Cell[49770, 1092, 3571, 84, 112, "Input"], Cell[53344, 1178, 7202, 181, 192, "Input"], Cell[60549, 1361, 11188, 287, 292, "Input"], Cell[CellGroupData[{ Cell[71762, 1652, 1631, 27, 52, "Input"], Cell[73396, 1681, 10406, 236, 859, "Output"] }, Open ]] } ] *) (* End of internal cache information *)