(* 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[ 38330, 1009] NotebookOptionsPosition[ 37347, 974] NotebookOutlinePosition[ 37832, 992] CellTagsIndexPosition[ 37789, 989] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", StyleBox[ RowBox[{ RowBox[{"XeF4", " ", "computation"}], ";", " ", RowBox[{"coordinates", " ", "and", " ", "radii", " ", "from", " ", RowBox[{"XeF4_F2", ".", "exe"}], " ", "04.01", ".2012", " "}]}], FontColor->GrayLevel[0]], "*)"}], "Text"], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "0.68357"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "1.84913", ",", "1.16556"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", RowBox[{"-", "1.84913"}], ",", "1.16556"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "0.00000", ",", "1.84913", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"2.12880", ",", "0.00000", ",", "0.00000", ",", "1.44522"}], "}"}], ",", RowBox[{"{", RowBox[{"3.72553", ",", "0.00000", ",", "0.00000", ",", "0.15151"}], "}"}], ",", RowBox[{"{", RowBox[{"3.89033", ",", RowBox[{"-", "0.91738"}], ",", "0.00000", ",", "0.78055"}], "}"}], ",", RowBox[{"{", RowBox[{"3.89033", ",", "0.45869", ",", RowBox[{"-", "0.79447"}], ",", "0.78055"}], "}"}], ",", RowBox[{"{", RowBox[{"3.89033", ",", "0.45869", ",", "0.79447", ",", "0.78055"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.12880"}], ",", "0.00000", ",", "0.00000", ",", "1.44522"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.72553"}], ",", "0.00000", ",", "0.00000", ",", "0.15151"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.89033"}], ",", RowBox[{"-", "0.91738"}], ",", "0.00000", ",", "0.78055"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.89033"}], ",", "0.45869", ",", RowBox[{"-", "0.79447"}], ",", "0.78055"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.89033"}], ",", "0.45869", ",", "0.79447", ",", "0.78055"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "2.12880", ",", "0.00000", ",", "1.44522"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", "3.72553", ",", "0.00000", ",", "0.15151"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.91738"}], ",", "3.89033", ",", "0.00000", ",", "0.78055"}], "}"}], ",", RowBox[{"{", RowBox[{"0.45869", ",", "3.89033", ",", RowBox[{"-", "0.79447"}], ",", "0.78055"}], "}"}], ",", RowBox[{"{", RowBox[{"0.45869", ",", "3.89033", ",", "0.79447", ",", "0.78055"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", RowBox[{"-", "2.12880"}], ",", "0.00000", ",", "1.44522"}], "}"}], ",", RowBox[{"{", RowBox[{"0.00000", ",", RowBox[{"-", "3.72553"}], ",", "0.00000", ",", "0.15151"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.91738"}], ",", RowBox[{"-", "3.89033"}], ",", "0.00000", ",", "0.78055"}], "}"}], ",", RowBox[{"{", RowBox[{"0.45869", ",", RowBox[{"-", "3.89033"}], ",", RowBox[{"-", "0.79447"}], ",", "0.78055"}], "}"}], ",", RowBox[{"{", RowBox[{"0.45869", ",", RowBox[{"-", "3.89033"}], ",", "0.79447", ",", "0.78055"}], "}"}]}], "}"}]}], ";"}], ";"}]}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", StyleBox[" ", FontColor->GrayLevel[0]], StyleBox[ RowBox[{"projection", " ", "into", " ", "xy", " ", "plane"}], FontColor->GrayLevel[0]], " ", "*)"}], "Text"], "\[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", "]"}], "]"}]}], "]"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot2a", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "6", "]"}], "]"}], ",", "0"}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "11", "]"}], "]"}], ",", "0"}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"y", "[", RowBox[{"[", "16", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", "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[{"[", "11", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "6", "]"}], "]"}], ",", "0"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"y", "[", RowBox[{"[", "16", "]"}], "]"}]}], "}"}]}], "}"}], "]"}]}], " ", "}"}]}], "}"}], " ", "]"}]}], ";"}], "\[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.578821857643803*^9, 3.578822001663256*^9}, { 3.5788220332065115`*^9, 3.5788220633769646`*^9}, {3.5788220947798195`*^9, 3.5788221493331156`*^9}, {3.5788226634476185`*^9, 3.5788226861456585`*^9}}], Cell[BoxData[ GraphicsBox[{CircleBox[{0., 0.}, 0.68357], CircleBox[{0., 0.}, 1.16556], CircleBox[{0., 0.}, 1.16556], CircleBox[{0., 0.}, 0.], CircleBox[{2.1288, 0.}, 1.44522], CircleBox[{3.72553, 0.}, 0.15151], CircleBox[{3.89033, -0.91738}, 0.78055], CircleBox[{3.89033, 0.45869}, 0.78055], CircleBox[{3.89033, 0.45869}, 0.78055], CircleBox[{-2.1288, 0.}, 1.44522], CircleBox[{-3.72553, 0.}, 0.15151], CircleBox[{-3.89033, -0.91738}, 0.78055], CircleBox[{-3.89033, 0.45869}, 0.78055], CircleBox[{-3.89033, 0.45869}, 0.78055], CircleBox[{0., 2.1288}, 1.44522], CircleBox[{0., 3.72553}, 0.15151], CircleBox[{-0.91738, 3.89033}, 0.78055], CircleBox[{0.45869, 3.89033}, 0.78055], CircleBox[{0.45869, 3.89033}, 0.78055], CircleBox[{0., -2.1288}, 1.44522], CircleBox[{0., -3.72553}, 0.15151], CircleBox[{-0.91738, -3.89033}, 0.78055], CircleBox[{0.45869, -3.89033}, 0.78055], CircleBox[{0.45869, -3.89033}, 0.78055], {DiskBox[{3.72553, 0}, 0.08], DiskBox[{-3.72553, 0}, 0.08], DiskBox[{0, 3.72553}, 0.08], DiskBox[{0, -3.72553}, 0.08], DiskBox[{0, 0}, 0.08], {Thickness[0.006], LineBox[{{-3.72553, 0}, {3.72553, 0}}], LineBox[{{0, -3.72553}, {0, 3.72553}}]}}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-4.75, 4.75}, {-4.75, 4.75}}]], "Output", CellChangeTimes->{ 3.5788247293608856`*^9, 3.5788247793433733`*^9, {3.578824823538251*^9, 3.578824845175489*^9}, 3.5788249563256845`*^9, 3.578824987042138*^9, 3.578825026401007*^9, 3.578825142387211*^9, 3.5788252184529448`*^9, 3.5788252560802107`*^9, 3.578825290525071*^9, 3.5788256685137353`*^9, 3.578825731179045*^9, 3.578825843218442*^9, 3.578825880720908*^9, 3.578826221753107*^9, 3.5788263813413873`*^9, 3.5788264855651703`*^9, 3.5788266230638113`*^9, 3.5788266588970747`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", StyleBox[ RowBox[{"electron", " ", "domains"}], FontColor->GrayLevel[0]], StyleBox[" ", FontColor->GrayLevel[0]], "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ 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", "]"}], "]"}]}], "]"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"plot2b", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.578822444064433*^9, 3.578822554949428*^9}, { 3.5788227669850006`*^9, 3.5788227789346213`*^9}}], Cell[BoxData[ Graphics3DBox[{SphereBox[{0., 0., 0.}, 0.68357], SphereBox[{0., 0., 1.84913}, 1.16556], SphereBox[{0., 0., -1.84913}, 1.16556], SphereBox[{0., 0., 1.84913}, 0.], SphereBox[{2.1288, 0., 0.}, 1.44522], SphereBox[{3.72553, 0., 0.}, 0.15151], SphereBox[{3.89033, -0.91738, 0.}, 0.78055], SphereBox[{3.89033, 0.45869, -0.79447}, 0.78055], SphereBox[{3.89033, 0.45869, 0.79447}, 0.78055], SphereBox[{-2.1288, 0., 0.}, 1.44522], SphereBox[{-3.72553, 0., 0.}, 0.15151], SphereBox[{-3.89033, -0.91738, 0.}, 0.78055], SphereBox[{-3.89033, 0.45869, -0.79447}, 0.78055], SphereBox[{-3.89033, 0.45869, 0.79447}, 0.78055], SphereBox[{0., 2.1288, 0.}, 1.44522], SphereBox[{0., 3.72553, 0.}, 0.15151], SphereBox[{-0.91738, 3.89033, 0.}, 0.78055], SphereBox[{0.45869, 3.89033, -0.79447}, 0.78055], SphereBox[{0.45869, 3.89033, 0.79447}, 0.78055], SphereBox[{0., -2.1288, 0.}, 1.44522], SphereBox[{0., -3.72553, 0.}, 0.15151], SphereBox[{-0.91738, -3.89033, 0.}, 0.78055], SphereBox[{0.45869, -3.89033, -0.79447}, 0.78055], SphereBox[{0.45869, -3.89033, 0.79447}, 0.78055]}, AspectRatio->Automatic, AutomaticImageSize->True, ImageSize->{360., 360.}, SphericalRegion->True, ViewPoint->{-1.6550790627526992`, -2.6517754680461416`, 1.2956852098817504`}, ViewVertical->{-0.06710894463717829, -0.23901186367146487`, 1.5008698790963895`}]], "Output", CellChangeTimes->{ 3.5788247293608856`*^9, 3.5788247793745737`*^9, {3.578824823553851*^9, 3.5788248451910887`*^9}, 3.5788249563412848`*^9, 3.5788249870577383`*^9, 3.5788250264166074`*^9, 3.5788251424184113`*^9, 3.578825218468545*^9, 3.578825256095811*^9, 3.5788252905562716`*^9, 3.578825668529335*^9, 3.578825731210245*^9, 3.578825843234042*^9, 3.578825880736508*^9, 3.578826221768707*^9, 3.578826381356987*^9, 3.5788264855963707`*^9, 3.5788266230794115`*^9, 3.578826658928275*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[ RowBox[{"(*", " ", StyleBox[ RowBox[{"projection", " ", "into", " ", "xz", " ", "plane"}], FontColor->GrayLevel[0]], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"plot3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"r", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"plot3a", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "6", "]"}], "]"}], ",", "0"}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "11", "]"}], "]"}], ",", "0"}], "}"}], ",", "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[{"[", "11", "]"}], "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "6", "]"}], "]"}], ",", "0"}], "}"}]}], "}"}], "]"}]}], " ", "}"}]}], "}"}], "]"}]}], ";"}], "\[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[{"-", "3.5"}], ",", "3.5"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.578821857643803*^9, 3.578822001663256*^9}, { 3.5788220332065115`*^9, 3.5788220633769646`*^9}, {3.5788220947798195`*^9, 3.5788223551598773`*^9}, {3.578822725644928*^9, 3.5788227300129356`*^9}}], Cell[BoxData[ GraphicsBox[{CircleBox[{0., 0.}, 0.68357], CircleBox[{0., 1.84913}, 1.16556], CircleBox[{0., -1.84913}, 1.16556], CircleBox[{0., 1.84913}, 0.], CircleBox[{2.1288, 0.}, 1.44522], CircleBox[{3.72553, 0.}, 0.15151], CircleBox[{3.89033, 0.}, 0.78055], CircleBox[{3.89033, -0.79447}, 0.78055], CircleBox[{3.89033, 0.79447}, 0.78055], CircleBox[{-2.1288, 0.}, 1.44522], CircleBox[{-3.72553, 0.}, 0.15151], CircleBox[{-3.89033, 0.}, 0.78055], CircleBox[{-3.89033, -0.79447}, 0.78055], CircleBox[{-3.89033, 0.79447}, 0.78055], CircleBox[{0., 0.}, 1.44522], CircleBox[{0., 0.}, 0.15151], CircleBox[{-0.91738, 0.}, 0.78055], CircleBox[{0.45869, -0.79447}, 0.78055], CircleBox[{0.45869, 0.79447}, 0.78055], CircleBox[{0., 0.}, 1.44522], CircleBox[{0., 0.}, 0.15151], CircleBox[{-0.91738, 0.}, 0.78055], CircleBox[{0.45869, -0.79447}, 0.78055], CircleBox[{0.45869, 0.79447}, 0.78055], {DiskBox[{3.72553, 0}, 0.08], DiskBox[{-3.72553, 0}, 0.08], DiskBox[{0, 0}, 0.08], {Thickness[0.006], LineBox[{{-3.72553, 0}, {3.72553, 0}}]}}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-4.75, 4.75}, {-3.5, 3.5}}]], "Output", CellChangeTimes->{ 3.578824729376486*^9, 3.5788247794057736`*^9, {3.5788248235850515`*^9, 3.578824845222289*^9}, 3.578824956372484*^9, 3.5788249870889387`*^9, 3.5788250264634075`*^9, 3.578825142449611*^9, 3.578825218499745*^9, 3.578825256127011*^9, 3.578825290603071*^9, 3.5788256685605354`*^9, 3.5788257312258453`*^9, 3.578825843280842*^9, 3.578825880767708*^9, 3.5788262217999067`*^9, 3.5788263813881874`*^9, 3.57882648562757*^9, 3.578826623110612*^9, 3.5788266589594746`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Make", " ", "stereo", " ", "pair"}], " ", "*)"}], "Text", FontColor->GrayLevel[0]], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", "t"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"\[Pi]", "/", "8"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot4", "=", 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", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot5", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"6", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"6", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"11", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"11", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"16", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"16", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"21", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"21", ",", "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[{"11", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"11", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"6", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"6", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}], "]"}], " ", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"21", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"21", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"16", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"16", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}], "]"}]}], " ", "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.578823674721033*^9, 3.578823710367096*^9}, { 3.578823742362752*^9, 3.5788239198754635`*^9}, {3.5788240065492163`*^9, 3.5788240078440185`*^9}, {3.578824044394882*^9, 3.5788241238458223`*^9}, { 3.578824184545529*^9, 3.5788242112683754`*^9}, 3.5788242444340343`*^9, { 3.578824303168137*^9, 3.5788243317161875`*^9}, 3.578824774476165*^9, { 3.578824816752239*^9, 3.57882483994948*^9}, {3.5788249459828663`*^9, 3.5788249816601286`*^9}, {3.5788250209097977`*^9, 3.5788250216273985`*^9}, 3.5788251360536003`*^9, {3.578825332177144*^9, 3.578825346170369*^9}, { 3.5788255180826707`*^9, 3.5788255930720024`*^9}, {3.5788261633622046`*^9, 3.5788261786502314`*^9}, {3.5788263085828595`*^9, 3.5788263320297003`*^9}, {3.578826426472266*^9, 3.5788264457227*^9}, { 3.5788266149985976`*^9, 3.5788266161373997`*^9}, 3.578826653561865*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"t1", "=", "t"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"\[Pi]", "/", "20"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot4a", "=", 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", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"plot5a", "=", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"6", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"6", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", " ", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"11", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"11", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"16", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"16", ",", "2"}], "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"21", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"21", ",", "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[{"11", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"11", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"6", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"6", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}], "]"}], " ", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"21", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"21", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"16", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"16", ",", "2"}], "]"}], "]"}]}], "}"}]}], "}"}], "]"}]}], " ", "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.57882464644674*^9, {3.578825207704526*^9, 3.5788252854394627`*^9}, { 3.578825608063629*^9, 3.5788256134924383`*^9}, {3.5788261078417068`*^9, 3.5788261344397535`*^9}, 3.5788263734165735`*^9, {3.5788264553323174`*^9, 3.5788264731475487`*^9}, {3.5788265210864325`*^9, 3.5788265483552804`*^9}, 3.578826649240658*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plota", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"Plotb", "=", "Plota"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plota", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "plot4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plota", "[", RowBox[{"[", "2", "]"}], "]"}], "=", "plot4a"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plotb", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "plot5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plotb", "[", RowBox[{"[", "2", "]"}], "]"}], "=", "plot5a"}], ";"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plota", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Plotb", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"300", ",", "300"}], "}"}]}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5788239419651027`*^9, 3.5788239550379257`*^9}, { 3.578824163048691*^9, 3.578824166309097*^9}, {3.578824409575924*^9, 3.578824442679182*^9}, {3.578824536060946*^9, 3.5788245920806446`*^9}, { 3.578824634528319*^9, 3.5788246819056025`*^9}, 3.5788247178948655`*^9, { 3.5788254273061113`*^9, 3.5788254479761477`*^9}, {3.5788256194360485`*^9, 3.578825652539307*^9}, 3.578825723956232*^9, {3.578825805575576*^9, 3.5788258252628107`*^9}, {3.5788258657136817`*^9, 3.578825872718094*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{CircleBox[{0., 0.}, 0.68357], CircleBox[{-0.6128267821564338, -1.4794947288675246`}, 1.16556], CircleBox[{0.6128267821564338, 1.4794947288675246`}, 1.16556], CircleBox[{-0.6128267821564338, -1.4794947288675246`}, 0.], CircleBox[{1.9667547488100272`, -0.8146564908188031}, 1.44522], CircleBox[{3.441940914756774, -1.425698607779113}, 0.15151], CircleBox[{3.4186631981230913`, -1.9125391402004817`}, 0.78055], CircleBox[{3.945260935674462, -0.641219740288974}, 0.78055], CircleBox[{3.418664651346349, -1.9125356318091833`}, 0.78055], CircleBox[{-1.9667547488100272`, 0.8146564908188031}, 1.44522], CircleBox[{-3.441940914756774, 1.425698607779113}, 0.15151], CircleBox[{-3.769729325306177, 1.0649905346652777`}, 0.78055], CircleBox[{-3.243131587754806, 2.3363099345767853`}, 0.78055], CircleBox[{-3.7697278720829193`, 1.064994043056576}, 0.78055], CircleBox[{0.40732824540940155`, 0.9833773744050136}, 1.44522], CircleBox[{0.7128493038895565, 1.720970457378387}, 0.15151], CircleBox[{-0.10316618681876433`, 2.1481642580404032`}, 0.78055], CircleBox[{1.4314548636480984`, 2.257223013025879}, 0.78055], CircleBox[{0.9048585793199854, 0.9859071215056694}, 0.78055], CircleBox[{-0.40732824540940155`, -0.9833773744050136}, 1.44522], CircleBox[{-0.7128493038895565, -1.720970457378387}, 0.15151], CircleBox[{-1.591931024251644, -1.446032003674231}, 0.78055], CircleBox[{-0.0573099737847812, -1.3369732486887556`}, 0.78055], CircleBox[{-0.5839062581128943, -2.6082891402089645`}, 0.78055], { DiskBox[{3.441940914756774, -1.425698607779113}, 0.08], DiskBox[{-3.441940914756774, 1.425698607779113}, 0.08], DiskBox[{0.7128493038895565, 1.720970457378387}, 0.08], DiskBox[{-0.7128493038895565, -1.720970457378387}, 0.08], DiskBox[{0, 0}, 0.1], {Thickness[0.006], LineBox[{{-3.441940914756774, 1.425698607779113}, { 3.441940914756774, -1.425698607779113}}], LineBox[{{-0.7128493038895565, -1.720970457378387}, { 0.7128493038895565, 1.720970457378387}}]}}}, AspectRatio->Automatic, ImageSize->{300, 300}], ",", GraphicsBox[{CircleBox[{0., 0.}, 0.68357], CircleBox[{-0.7204334052541843, -1.371888105769774}, 1.16556], CircleBox[{0.7204334052541843, 1.371888105769774}, 1.16556], CircleBox[{-0.7204334052541843, -1.371888105769774}, 0.], CircleBox[{1.9496328548864443`, -0.7975345968952201}, 1.44522], CircleBox[{3.41197655480322, -1.3957342478255588`}, 0.15151], CircleBox[{3.4737267005274624`, -1.967602642604853}, 0.78055], CircleBox[{3.917027099178659, -0.612985903793171}, 0.78055], CircleBox[{3.2979654567064784`, -1.7918364371693125`}, 0.78055], CircleBox[{-1.9496328548864443`, 0.7975345968952201}, 1.44522], CircleBox[{-3.41197655480322, 1.3957342478255588`}, 0.15151], CircleBox[{-3.6520861370809374`, 0.9473473464400382}, 0.78055], CircleBox[{-3.208785738429741, 2.3019640852517202`}, 0.78055], CircleBox[{-3.827847380901922, 1.1231135518755784`}, 0.78055], CircleBox[{0.20694345229623376`, 1.1837621675181815`}, 1.44522], CircleBox[{0.3621636789896598, 2.0716560822782837`}, 0.15151], CircleBox[{-0.4619860332788984, 2.506984104500537}, 0.78055], CircleBox[{1.1077999939998397`, 2.5808778826741374`}, 0.78055], CircleBox[{0.4887383515276593, 1.4020273492979953`}, 0.78055], CircleBox[{-0.20694345229623376`, -1.1837621675181815`}, 1.44522], CircleBox[{-0.3621636789896598, -2.0716560822782837`}, 0.15151], CircleBox[{-1.2183542414446324`, -1.8196087864812425`}, 0.78055], CircleBox[{0.35143178583410606`, -1.7457150083076427`}, 0.78055], CircleBox[{-0.26762985663807454`, -2.924565541683784}, 0.78055], { DiskBox[{3.41197655480322, -1.3957342478255588`}, 0.08], DiskBox[{-3.41197655480322, 1.3957342478255588`}, 0.08], DiskBox[{0.3621636789896598, 2.0716560822782837`}, 0.08], DiskBox[{-0.3621636789896598, -2.0716560822782837`}, 0.08], DiskBox[{0, 0}, 0.1], {Thickness[0.006], LineBox[{{-3.41197655480322, 1.3957342478255588`}, { 3.41197655480322, -1.3957342478255588`}}], LineBox[{{-0.3621636789896598, -2.0716560822782837`}, { 0.3621636789896598, 2.0716560822782837`}}]}}}, AspectRatio->Automatic, ImageSize->{300, 300}]}], "}"}]], "Output", CellChangeTimes->{3.5788257312570453`*^9, 3.578825843312042*^9, 3.578825880814508*^9, 3.578826221831107*^9, 3.578826381419387*^9, 3.5788264856587706`*^9, 3.578826623157412*^9, 3.578826658990675*^9}] }, Open ]] }, WindowSize->{784, 824}, WindowMargins->{{Automatic, 526}, {Automatic, -3}}, 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, 3799, 101, 292, "Input"], Cell[4359, 123, 1140, 40, 112, "Input"], Cell[CellGroupData[{ Cell[5524, 167, 4058, 114, 212, "Input"], Cell[9585, 283, 1886, 34, 375, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11508, 322, 1391, 40, 112, "Input"], Cell[12902, 364, 1954, 38, 407, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14893, 407, 3130, 84, 212, "Input"], Cell[18026, 493, 1734, 29, 285, "Output"] }, Open ]], Cell[19775, 525, 6370, 175, 252, "Input"], Cell[26148, 702, 4537, 135, 192, "Input"], Cell[CellGroupData[{ Cell[30710, 841, 1874, 51, 152, "Input"], Cell[32587, 894, 4744, 77, 317, "Output"] }, Open ]] } ] *) (* End of internal cache information *)