(* 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[ 24574, 690] NotebookOptionsPosition[ 23716, 659] NotebookOutlinePosition[ 24201, 677] CellTagsIndexPosition[ 24158, 674] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"SiF4", " ", "computation"}], ";", " ", RowBox[{"coordinates", " ", "and", " ", "radii", " ", "from", " ", RowBox[{"SiF40005", ".", "exe"}]}]}], ",", " ", RowBox[{"23.01", ".2012"}]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "0.59534"}], "}"}], ",", RowBox[{"{", RowBox[{"0.97878", ",", "0.97878", ",", "0.97878", ",", "1.09996"}], "}"}], ",", RowBox[{"{", RowBox[{"1.70145", ",", "1.70145", ",", "1.70145", ",", "0.15174"}], "}"}], ",", RowBox[{"{", RowBox[{"2.55097", ",", "1.06684", ",", "2.55097", ",", "0.90865"}], "}"}], ",", RowBox[{"{", RowBox[{"2.55097", ",", "2.55097", ",", "1.06684", ",", "0.90865"}], "}"}], ",", RowBox[{"{", RowBox[{"1.06684", ",", "2.55097", ",", "2.55097", ",", "0.90865"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.97878"}], ",", RowBox[{"-", "0.97878"}], ",", "0.97878", ",", "1.09996"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.70145"}], ",", RowBox[{"-", "1.70145"}], ",", "1.70145", ",", "0.15174"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.55097"}], ",", RowBox[{"-", "2.55097"}], ",", "1.06684", ",", "0.90865"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.06684"}], ",", RowBox[{"-", "2.55097"}], ",", "2.55097", ",", "0.90865"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.55097"}], ",", RowBox[{"-", "1.06684"}], ",", "2.55097", ",", "0.90865"}], "}"}], ",", RowBox[{"{", RowBox[{"0.97878", ",", RowBox[{"-", "0.97878"}], ",", RowBox[{"-", "0.97878"}], ",", "1.09996"}], "}"}], ",", RowBox[{"{", RowBox[{"1.70145", ",", RowBox[{"-", "1.70145"}], ",", RowBox[{"-", "1.70145"}], ",", "0.15174"}], "}"}], ",", RowBox[{"{", RowBox[{"1.06684", ",", RowBox[{"-", "2.55097"}], ",", RowBox[{"-", "2.55097"}], ",", "0.90865"}], "}"}], ",", RowBox[{"{", RowBox[{"2.55097", ",", RowBox[{"-", "1.06684"}], ",", RowBox[{"-", "2.55097"}], ",", "0.90865"}], "}"}], ",", RowBox[{"{", RowBox[{"2.55097", ",", RowBox[{"-", "2.55097"}], ",", RowBox[{"-", "1.06684"}], ",", "0.90865"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.97878"}], ",", "0.97878", ",", RowBox[{"-", "0.97878"}], ",", "1.09996"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.70145"}], ",", "1.70145", ",", RowBox[{"-", "1.70145"}], ",", "0.15174"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.55097"}], ",", "1.06684", ",", RowBox[{"-", "2.55097"}], ",", "0.90865"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.55097"}], ",", "2.55097", ",", RowBox[{"-", "1.06684"}], ",", "0.90865"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.06684"}], ",", "2.55097", ",", RowBox[{"-", "2.55097"}], ",", "0.90865"}], "}"}]}], "}"}]}], ";"}]}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sq", "=", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "/", "2"}]}], ";"}]}], "Input", CellChangeTimes->{3.57875944147847*^9}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"xy", " ", "plane"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.578758842141017*^9, 3.578759016315323*^9}, { 3.578759056235793*^9, 3.578759066609812*^9}, 3.578759123206711*^9, { 3.578759281671789*^9, 3.5787593374106874`*^9}, {3.578759398593995*^9, 3.5787594360496607`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ 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", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"plot2a", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "13", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "13", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.006", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "8", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "18", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "13", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "13", "]"}], "]"}]}], "}"}]}], "}"}], "]"}]}], " ", "}"}]}], "}"}], " ", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"plot2", ",", "plot2a", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"Axes", " ", "->", " ", "True"}], ",", RowBox[{"GridLines", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4.75"}], ",", "4.75"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.75"}], ",", "4.75"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.578758842141017*^9, 3.578759016315323*^9}, { 3.578759056235793*^9, 3.578759066609812*^9}, 3.578759123206711*^9, { 3.578759281671789*^9, 3.5787593374106874`*^9}, {3.578759398593995*^9, 3.5787594279688463`*^9}}], Cell[BoxData[ GraphicsBox[{CircleBox[{0., 0.}, 0.59534], CircleBox[{0.97878, 0.97878}, 1.09996], CircleBox[{1.70145, 1.70145}, 0.15174], CircleBox[{2.55097, 1.06684}, 0.90865], CircleBox[{2.55097, 2.55097}, 0.90865], CircleBox[{1.06684, 2.55097}, 0.90865], CircleBox[{-0.97878, -0.97878}, 1.09996], CircleBox[{-1.70145, -1.70145}, 0.15174], CircleBox[{-2.55097, -2.55097}, 0.90865], CircleBox[{-1.06684, -2.55097}, 0.90865], CircleBox[{-2.55097, -1.06684}, 0.90865], CircleBox[{0.97878, -0.97878}, 1.09996], CircleBox[{1.70145, -1.70145}, 0.15174], CircleBox[{1.06684, -2.55097}, 0.90865], CircleBox[{2.55097, -1.06684}, 0.90865], CircleBox[{2.55097, -2.55097}, 0.90865], CircleBox[{-0.97878, 0.97878}, 1.09996], CircleBox[{-1.70145, 1.70145}, 0.15174], CircleBox[{-2.55097, 1.06684}, 0.90865], CircleBox[{-2.55097, 2.55097}, 0.90865], CircleBox[{-1.06684, 2.55097}, 0.90865], { DiskBox[{1.70145, 1.70145}, 0.08], DiskBox[{-1.70145, -1.70145}, 0.08], DiskBox[{1.70145, -1.70145}, 0.08], DiskBox[{-1.70145, 1.70145}, 0.08], DiskBox[{0, 0}, 0.08], {Thickness[0.006], LineBox[{{-1.70145, -1.70145}, {1.70145, 1.70145}}], LineBox[{{-1.70145, 1.70145}, {1.70145, -1.70145}}]}}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-4.75, 4.75}, {-4.75, 4.75}}]], "Output", CellChangeTimes->{ 3.5787600429063263`*^9, 3.578760158284129*^9, 3.5787602130246253`*^9, 3.5787606609170117`*^9, 3.5787608617517643`*^9, {3.578762092866068*^9, 3.578762112646902*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"plot2b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", 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", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"plot2b", ",", RowBox[{"(*", RowBox[{"plot2a", ","}], "*)"}], RowBox[{"{", RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.578760738729948*^9, 3.5787608485853415`*^9}}], Cell[BoxData[ Graphics3DBox[{SphereBox[{0., 0., 0.}, 0.59534], SphereBox[{0.97878, 0.97878, 0.97878}, 1.09996], SphereBox[{1.70145, 1.70145, 1.70145}, 0.15174], SphereBox[{2.55097, 1.06684, 2.55097}, 0.90865], SphereBox[{2.55097, 2.55097, 1.06684}, 0.90865], SphereBox[{1.06684, 2.55097, 2.55097}, 0.90865], SphereBox[{-0.97878, -0.97878, 0.97878}, 1.09996], SphereBox[{-1.70145, -1.70145, 1.70145}, 0.15174], SphereBox[{-2.55097, -2.55097, 1.06684}, 0.90865], SphereBox[{-1.06684, -2.55097, 2.55097}, 0.90865], SphereBox[{-2.55097, -1.06684, 2.55097}, 0.90865], SphereBox[{0.97878, -0.97878, -0.97878}, 1.09996], SphereBox[{1.70145, -1.70145, -1.70145}, 0.15174], SphereBox[{1.06684, -2.55097, -2.55097}, 0.90865], SphereBox[{2.55097, -1.06684, -2.55097}, 0.90865], SphereBox[{2.55097, -2.55097, -1.06684}, 0.90865], SphereBox[{-0.97878, 0.97878, -0.97878}, 1.09996], SphereBox[{-1.70145, 1.70145, -1.70145}, 0.15174], SphereBox[{-2.55097, 1.06684, -2.55097}, 0.90865], SphereBox[{-2.55097, 2.55097, -1.06684}, 0.90865], SphereBox[{-1.06684, 2.55097, -2.55097}, 0.90865]}, AspectRatio->Automatic, AutomaticImageSize->True, ImageSize->{368.4886205497599, 392.1686308149742}, ViewPoint->{-1.9621625256316955`, -1.9324101210126634`, 1.9661407241635764`}, ViewVertical->{0.3143104821572766, -0.6542288048678616, 0.6878906829484098}]], "Output", CellChangeTimes->{ 3.5787608620481653`*^9, {3.5787620928816676`*^9, 3.5787621126625023`*^9}}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"t1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"\[Pi]", "/", "4"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.578758842141017*^9, 3.578759016315323*^9}, { 3.578759056235793*^9, 3.578759066609812*^9}, 3.578759123206711*^9, { 3.578759281671789*^9, 3.5787593374106874`*^9}, {3.578759398593995*^9, 3.5787594279688463`*^9}, 3.5787594880289516`*^9, {3.578759525827818*^9, 3.578759569039894*^9}, {3.578759954875372*^9, 3.578759989725833*^9}, { 3.5787600278055*^9, 3.578760029646303*^9}, {3.57876009040841*^9, 3.578760147005309*^9}, {3.5787601902173853`*^9, 3.5787601966757965`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"plot3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"plot3a", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"8", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"8", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"13", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"13", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"18", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"18", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.006", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"8", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"8", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"3", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"18", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"18", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"13", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"13", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}], "]"}]}], " ", "}"}]}], "}"}], " ", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"plot3", ",", "plot3a", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"Axes", " ", "->", " ", "True"}], ",", RowBox[{"GridLines", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4.75"}], ",", "4.75"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.75"}], ",", "4.75"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5787596069167604`*^9, 3.5787598056923094`*^9}, { 3.578760401800557*^9, 3.5787605464440107`*^9}, {3.5787605832444754`*^9, 3.578760633538964*^9}, {3.5787620643960176`*^9, 3.578762108388095*^9}}], Cell[BoxData[ GraphicsBox[{CircleBox[{0., 0.}, 0.59534], CircleBox[{0., 0.97878}, 1.09996], CircleBox[{0., 1.70145}, 0.15174], CircleBox[{0., 1.06684}, 0.90865], CircleBox[{1.0494383871623905`, 2.55097}, 0.90865], CircleBox[{-1.0494383871623905`, 2.55097}, 0.90865], CircleBox[{-1.3842039505795378`, -0.97878}, 1.09996], CircleBox[{-2.406213665699702, -1.70145}, 0.15174], CircleBox[{-2.5581779840445034`, -2.55097}, 0.90865], CircleBox[{-2.5581779840445034`, -2.55097}, 0.90865], CircleBox[{-3.607616371206894, -1.06684}, 0.90865], CircleBox[{1.3842039505795378`, -0.97878}, 1.09996], CircleBox[{2.406213665699702, -1.70145}, 0.15174], CircleBox[{2.5581779840445034`, -2.55097}, 0.90865], CircleBox[{3.607616371206894, -1.06684}, 0.90865], CircleBox[{2.5581779840445034`, -2.55097}, 0.90865], CircleBox[{0., 0.97878}, 1.09996], CircleBox[{0., 1.70145}, 0.15174], CircleBox[{0., 1.06684}, 0.90865], CircleBox[{-1.0494383871623905`, 2.55097}, 0.90865], CircleBox[{1.0494383871623905`, 2.55097}, 0.90865], { DiskBox[{0., 1.70145}, 0.08], DiskBox[{-2.406213665699702, -1.70145}, 0.08], DiskBox[{2.406213665699702, -1.70145}, 0.08], DiskBox[{0., 1.70145}, 0.08], DiskBox[{0, 0}, 0.1], {Thickness[0.006], LineBox[{{-2.406213665699702, -1.70145}, {0., 0.}}], LineBox[{{0., 0.}, {0., 1.70145}}], LineBox[{{0., 0.}, {0., 1.70145}}], LineBox[{{0., 0.}, {2.406213665699702, -1.70145}}]}}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-4.75, 4.75}, {-4.75, 4.75}}]], "Output", CellChangeTimes->{ 3.578760043327527*^9, 3.57876015872093*^9, 3.5787602130714254`*^9, 3.578760660932612*^9, 3.578760862110565*^9, {3.578762092944068*^9, 3.578762112709303*^9}}] }, Open ]] }, WindowSize->{846, 824}, WindowMargins->{{Automatic, 133}, {Automatic, 16}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, 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, 3534, 97, 272, "Input"], Cell[4094, 119, 1284, 45, 112, "Input"], Cell[5381, 166, 331, 6, 31, "Input"], Cell[CellGroupData[{ Cell[5737, 176, 4313, 123, 212, "Input"], Cell[10053, 301, 1610, 35, 375, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11700, 341, 1041, 30, 92, "Input"], Cell[12744, 373, 1533, 29, 407, "Output"] }, Open ]], Cell[14292, 405, 1211, 30, 52, "Input"], Cell[CellGroupData[{ Cell[15528, 439, 6361, 181, 272, "Input"], Cell[21892, 622, 1808, 34, 407, "Output"] }, Open ]] } ] *) (* End of internal cache information *)