(* 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[ 19912, 1049] NotebookOptionsPosition[ 18346, 993] NotebookOutlinePosition[ 18855, 1012] CellTagsIndexPosition[ 18812, 1009] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"BeH2", " ", "molecule", " ", "with", " ", RowBox[{"Be", "[", RowBox[{"1", "s2", " ", "2", "sp"}], "]"}]}], ",", " ", RowBox[{"no", " ", "overlap"}], ",", " ", RowBox[{"parametrized", " ", "ES", " ", "02.11", ".2012"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Variables", ":", " ", "P"}], ",", "Q", ",", "R"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "k1", ",", "k2", ",", "s1", ",", "s2", ",", " ", "z", ",", " ", "P", ",", "Q", ",", "R", ",", "Vee", ",", "Vne", ",", "Vnn", ",", "Vex", ",", "T"}], "]"}], ";"}]}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"z", "=", "4.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{ RowBox[{"k1", "*", RowBox[{"2.25", "/", RowBox[{"P", "^", "2"}]}]}], "+", RowBox[{"k2", "*", RowBox[{"4.5", "/", RowBox[{"Q", "^", "2"}]}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vne", "=", RowBox[{ RowBox[{ RowBox[{"-", "3.0"}], "*", RowBox[{"z", "/", "P"}]}], "-", RowBox[{"2.0", "*", RowBox[{ RowBox[{"(", RowBox[{"3.0", "-", RowBox[{ RowBox[{"(", RowBox[{"R", "/", "Q"}], ")"}], "^", "2"}]}], ")"}], "/", "Q"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vne", "=", RowBox[{"Vne", "-", RowBox[{"4.0", "*", RowBox[{"z", "/", RowBox[{"(", RowBox[{"P", "+", "Q"}], ")"}]}]}], "-", RowBox[{"4.0", "/", RowBox[{"(", RowBox[{"P", "+", "Q", "+", "R"}], ")"}]}], "-", RowBox[{"4.0", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{"P", "+", "Q"}], ")"}]}], "+", "R"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vee", "=", RowBox[{ RowBox[{"3.0", "*", RowBox[{"s1", "/", "P"}]}], "+", RowBox[{"6.0", "*", RowBox[{"s2", "/", "Q"}]}], "+", RowBox[{"8.0", "/", RowBox[{"(", RowBox[{"P", "+", "Q"}], ")"}]}], "+", RowBox[{"4.0", "/", RowBox[{"(", RowBox[{"2.0", "*", RowBox[{"(", RowBox[{"P", "+", "Q"}], ")"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vnn", "=", RowBox[{ RowBox[{"2.0", "*", RowBox[{"z", "/", RowBox[{"(", RowBox[{"P", "+", "Q", "+", "R"}], ")"}]}]}], "+", RowBox[{"0.5", "/", RowBox[{"(", RowBox[{"P", "+", "Q", "+", "R"}], ")"}]}]}]}], ";"}]}], "Input"], Cell[BoxData[ RowBox[{ StyleBox["(*", FontSize->12], StyleBox[" ", FontSize->12], RowBox[{"Parameters", " ", "in", " ", "list", " ", "c"}], StyleBox[" ", FontSize->12], StyleBox["*)", FontSize->12]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"c", "=", RowBox[{"{", RowBox[{ RowBox[{"k1", " ", "->", " ", "1.0"}], ",", " ", RowBox[{"k2", "->", " ", "1.0"}], ",", " ", RowBox[{"s1", " ", "->", " ", "0.3"}], ",", " ", RowBox[{"s2", " ", "->", " ", "0.3"}]}], "}"}]}], ";"}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"c", "=", RowBox[{"{", RowBox[{ RowBox[{"k1", " ", "\[Rule]", " ", "1.01613950"}], ",", " ", RowBox[{"k2", " ", "->", " ", "0.65858068"}], ",", RowBox[{"s1", "->", " ", "0.25742249"}], ",", RowBox[{"s2", "->", " ", "0.22958899"}]}], "}"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"{", RowBox[{ RowBox[{"k1", "->", "1.05210521"}], ",", RowBox[{"k2", "->", " ", "1.14799230"}], ",", RowBox[{"s1", "->", " ", "0.25647799"}], ",", RowBox[{"s2", "->", " ", "0.30796522"}]}], "}"}]}], ";"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"func", "=", RowBox[{ RowBox[{"T", "+", "Vne", "+", "Vee", "+", "Vnn"}], " ", "/.", " ", "c"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{"FindMinimum", "[", RowBox[{"func", ",", RowBox[{"{", RowBox[{"P", ",", "0.414"}], "}"}], ",", RowBox[{"{", RowBox[{"Q", ",", "1.59"}], "}"}], ",", RowBox[{"{", RowBox[{"R", ",", "0.517"}], "}"}]}], "]"}], " "}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "15.843496814332424`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.4141385211477924`"}], ",", RowBox[{"Q", "\[Rule]", "1.5908522819956195`"}], ",", RowBox[{"R", "\[Rule]", "0.5160960858066321`"}]}], "}"}]}], "}"}]], "Output"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"u", "=", RowBox[{"t", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Vne", " ", "/.", "u"}]], "Input"], Cell[BoxData[ RowBox[{"-", "43.06553387641579`"}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Vee", " ", "/.", "u"}], " ", "/.", " ", "c"}]], "Input"], Cell[BoxData["8.006978871061927`"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Vnn", " ", "/.", " ", "u"}]], "Input"], Cell[BoxData["3.3715617011280363`"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}], ")"}]}], "/", "T"}], " ", "/.", " ", "u"}], " ", "/.", "c"}]], "Input"], Cell[BoxData["2.0000000204777413`"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"P", "+", "Q", "+", "R"}], ")"}], "*", "0.529177"}], " ", "/.", " ", "u"}]], "Input"], Cell[BoxData["1.3341011966339176`"], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"plot1", "=", RowBox[{ RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "P"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "0.1"}], "]"}], ",", "\n", "\t\t\t", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"P", "+", "Q"}], ")"}]}], ",", "0"}], "}"}], ",", "Q"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"P", "+", "Q"}], ")"}], ",", "0"}], "}"}], ",", "Q"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"P", "+", "Q", "+", "R"}], ")"}]}], ",", "0"}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"P", "+", "Q", "+", "R"}], ",", "0"}], "}"}], ",", "0.1"}], "]"}], ",", "\n", "\t\t\t", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.012", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"P", "+", "Q", "+", "R"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "+", "Q", "+", "R"}], ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], "]"}], "/.", " ", "u"}], "\n", " "}]}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Show", "[", RowBox[{"plot1", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "->", "Automatic"}], ",", " ", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"GridLines", "->", "Automatic"}], ",", RowBox[{"Frame", "->", "True"}]}], "}"}]}], "]"}], FontSize->12]], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .75 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.125 0.375 0.125 [ [.125 -0.0125 -6 -9 ] [.125 -0.0125 6 0 ] [.25 -0.0125 -6 -9 ] [.25 -0.0125 6 0 ] [.375 -0.0125 -6 -9 ] [.375 -0.0125 6 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.625 -0.0125 -3 -9 ] [.625 -0.0125 3 0 ] [.75 -0.0125 -3 -9 ] [.75 -0.0125 3 0 ] [.875 -0.0125 -3 -9 ] [.875 -0.0125 3 0 ] [1 -0.0125 -3 -9 ] [1 -0.0125 3 0 ] [ 0 0 -0.125 0 ] [-0.0125 .125 -12 -4.5 ] [-0.0125 .125 0 4.5 ] [-0.0125 .25 -12 -4.5 ] [-0.0125 .25 0 4.5 ] [-0.0125 .375 -6 -4.5 ] [-0.0125 .375 0 4.5 ] [-0.0125 .5 -6 -4.5 ] [-0.0125 .5 0 4.5 ] [-0.0125 .625 -6 -4.5 ] [-0.0125 .625 0 4.5 ] [-0.0125 .75 -6 -4.5 ] [-0.0125 .75 0 4.5 ] [ 0 0 -0.125 0 ] [ 0 .75 .125 0 ] [ 1 0 .125 0 ] [ 0 0 0 0 ] [ 1 .75 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 .5 r .25 Mabswid [ ] 0 setdash .125 0 m .125 .75 L s .25 0 m .25 .75 L s .375 0 m .375 .75 L s .5 0 m .5 .75 L s .625 0 m .625 .75 L s .75 0 m .75 .75 L s .875 0 m .875 .75 L s 0 .125 m 1 .125 L s 0 .25 m 1 .25 L s 0 .375 m 1 .375 L s 0 .5 m 1 .5 L s 0 .625 m 1 .625 L s 0 g .125 0 m .125 .00625 L s [(-3)] .125 -0.0125 0 1 Mshowa .25 0 m .25 .00625 L s [(-2)] .25 -0.0125 0 1 Mshowa .375 0 m .375 .00625 L s [(-1)] .375 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .625 0 m .625 .00625 L s [(1)] .625 -0.0125 0 1 Mshowa .75 0 m .75 .00625 L s [(2)] .75 -0.0125 0 1 Mshowa .875 0 m .875 .00625 L s [(3)] .875 -0.0125 0 1 Mshowa 1 0 m 1 .00625 L s [(4)] 1 -0.0125 0 1 Mshowa .125 Mabswid .025 0 m .025 .00375 L s .05 0 m .05 .00375 L s .075 0 m .075 .00375 L s .1 0 m .1 .00375 L s .15 0 m .15 .00375 L s .175 0 m .175 .00375 L s .2 0 m .2 .00375 L s .225 0 m .225 .00375 L s .275 0 m .275 .00375 L s .3 0 m .3 .00375 L s .325 0 m .325 .00375 L s .35 0 m .35 .00375 L s .4 0 m .4 .00375 L s .425 0 m .425 .00375 L s .45 0 m .45 .00375 L s .475 0 m .475 .00375 L s .525 0 m .525 .00375 L s .55 0 m .55 .00375 L s .575 0 m .575 .00375 L s .6 0 m .6 .00375 L s .65 0 m .65 .00375 L s .675 0 m .675 .00375 L s .7 0 m .7 .00375 L s .725 0 m .725 .00375 L s .775 0 m .775 .00375 L s .8 0 m .8 .00375 L s .825 0 m .825 .00375 L s .85 0 m .85 .00375 L s .9 0 m .9 .00375 L s .925 0 m .925 .00375 L s .95 0 m .95 .00375 L s .975 0 m .975 .00375 L s .25 Mabswid 0 0 m 1 0 L s 0 .125 m .00625 .125 L s [(-2)] -0.0125 .125 1 0 Mshowa 0 .25 m .00625 .25 L s [(-1)] -0.0125 .25 1 0 Mshowa 0 .375 m .00625 .375 L s [(0)] -0.0125 .375 1 0 Mshowa 0 .5 m .00625 .5 L s [(1)] -0.0125 .5 1 0 Mshowa 0 .625 m .00625 .625 L s [(2)] -0.0125 .625 1 0 Mshowa 0 .75 m .00625 .75 L s [(3)] -0.0125 .75 1 0 Mshowa .125 Mabswid 0 .025 m .00375 .025 L s 0 .05 m .00375 .05 L s 0 .075 m .00375 .075 L s 0 .1 m .00375 .1 L s 0 .15 m .00375 .15 L s 0 .175 m .00375 .175 L s 0 .2 m .00375 .2 L s 0 .225 m .00375 .225 L s 0 .275 m .00375 .275 L s 0 .3 m .00375 .3 L s 0 .325 m .00375 .325 L s 0 .35 m .00375 .35 L s 0 .4 m .00375 .4 L s 0 .425 m .00375 .425 L s 0 .45 m .00375 .45 L s 0 .475 m .00375 .475 L s 0 .525 m .00375 .525 L s 0 .55 m .00375 .55 L s 0 .575 m .00375 .575 L s 0 .6 m .00375 .6 L s 0 .65 m .00375 .65 L s 0 .675 m .00375 .675 L s 0 .7 m .00375 .7 L s 0 .725 m .00375 .725 L s .25 Mabswid 0 0 m 0 .75 L s 0 .74375 m 0 .75 L s .125 .74375 m .125 .75 L s .25 .74375 m .25 .75 L s .375 .74375 m .375 .75 L s .5 .74375 m .5 .75 L s .625 .74375 m .625 .75 L s .75 .74375 m .75 .75 L s .875 .74375 m .875 .75 L s .125 Mabswid .025 .74625 m .025 .75 L s .05 .74625 m .05 .75 L s .075 .74625 m .075 .75 L s .1 .74625 m .1 .75 L s .15 .74625 m .15 .75 L s .175 .74625 m .175 .75 L s .2 .74625 m .2 .75 L s .225 .74625 m .225 .75 L s .275 .74625 m .275 .75 L s .3 .74625 m .3 .75 L s .325 .74625 m .325 .75 L s .35 .74625 m .35 .75 L s .4 .74625 m .4 .75 L s .425 .74625 m .425 .75 L s .45 .74625 m .45 .75 L s .475 .74625 m .475 .75 L s .525 .74625 m .525 .75 L s .55 .74625 m .55 .75 L s .575 .74625 m .575 .75 L s .6 .74625 m .6 .75 L s .65 .74625 m .65 .75 L s .675 .74625 m .675 .75 L s .7 .74625 m .7 .75 L s .725 .74625 m .725 .75 L s .775 .74625 m .775 .75 L s .8 .74625 m .8 .75 L s .825 .74625 m .825 .75 L s .85 .74625 m .85 .75 L s .9 .74625 m .9 .75 L s .925 .74625 m .925 .75 L s .95 .74625 m .95 .75 L s .975 .74625 m .975 .75 L s .25 Mabswid 0 .75 m 1 .75 L s .99375 0 m 1 0 L s .99375 .125 m 1 .125 L s .99375 .25 m 1 .25 L s .99375 .375 m 1 .375 L s .99375 .5 m 1 .5 L s .99375 .625 m 1 .625 L s .125 Mabswid .99625 .025 m 1 .025 L s .99625 .05 m 1 .05 L s .99625 .075 m 1 .075 L s .99625 .1 m 1 .1 L s .99625 .15 m 1 .15 L s .99625 .175 m 1 .175 L s .99625 .2 m 1 .2 L s .99625 .225 m 1 .225 L s .99625 .275 m 1 .275 L s .99625 .3 m 1 .3 L s .99625 .325 m 1 .325 L s .99625 .35 m 1 .35 L s .99625 .4 m 1 .4 L s .99625 .425 m 1 .425 L s .99625 .45 m 1 .45 L s .99625 .475 m 1 .475 L s .99625 .525 m 1 .525 L s .99625 .55 m 1 .55 L s .99625 .575 m 1 .575 L s .99625 .6 m 1 .6 L s .99625 .65 m 1 .65 L s .99625 .675 m 1 .675 L s .99625 .7 m 1 .7 L s .99625 .725 m 1 .725 L s .25 Mabswid 1 0 m 1 .75 L s 0 .375 m 1 .375 L s .5 0 m .5 .75 L s 0 0 m 1 0 L 1 .75 L 0 .75 L closepath clip newpath .5 Mabswid newpath .5 .375 .05177 0 365.73 arc s .5 .375 m .5 .375 .0125 0 365.73 arc F newpath .24938 .375 .19886 0 365.73 arc s newpath .75062 .375 .19886 0 365.73 arc s .18486 .375 m .18486 .375 .0125 0 365.73 arc F .81514 .375 m .81514 .375 .0125 0 365.73 arc F .012 w .18486 .375 m .81514 .375 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 216}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztXUty20YQHYukTH0cybYkW1/L+6ySnCHhJpUzqFypsheppBzuldyDR0jO wGtkp6MwxABo/N40e4ABAYiNkihqZtD9+mGmB5hP4+eH+edff3uYf/n0cP/T 14c/Pn/59Of9j79/XSeNXhjz4t4Y89+9ib6v1l+Tj9X6Z/Ux+jDme/tnbJ4W M0PHfHljk/fNajk3xWNulqvVdZq9WppigZlZPK0ugdDZ4umGP+ua13mDkd5V kq2wcWzed6nMp4WZzRb2v1i9LRXLHJn4XKvGfEjSIhhr0Pa/K/s5MYt5KmK1 PicufwvK3wK5tzyUOyAmMeKHJCvlZb5cmXxxlJaKuMxzPsvQL+dWKwLPic5D 2HA5E/DflqRFx5793LdSUkBEx2xx4XnKcrlynzIpnpLYeeVPC9WLWGORqpyY tJ5GSKzqWMakVCGzK598LzasSiXJtYFRXPcSbNdp3ZxVpBlU3l0PQdOuiEyt o+xF3rrUm1jZ1EQTOiv+IM9ykpRY45BQLFpt+TmpFQl0qZLkSEKCOu8Pm3x/ Hf2xLvYwrqxZ6lpxdKTVbAzSRoHL9V1H3/Gpjq51wKZzR2mPDdLak6fQFXpt 6PaW5UOPAN8SKqY3GxLDCl2hK/TeQ1dHqJVDoSv0nYeujlArh0JX6GGgqzfR yqHQ+wJ9av84JzzRwOhALDtIsvLzn5PhmnOYZOVnRG2WLf23FTNKLt2j/f0r +sz7tb2SiOjYMKeJBssHQhjVbDzHOPiaXZl0HPC1GrADHTp0vR3TyqHQFfrO Q3c6Qrt8za6muWkA84qkXIPc2k7vLPqcRKUmINfe8e1HuRcNoJ+TjjHIHVGu VIdnhTkhBYcgd0q5rxuYeEpSDoLo8DTxFV3+E+9cqYlWii32jXduABMPSQHi 8IRyjxuYeEREIR2nlCvV4WnilBScgdw3lIuqsdTEKRH1NogOTxP3SQFq7GeU O21gokCHFfKyholOJz+m3Pcg94Jy9xsYxut4R7nIk9fuIPboxCuQ+x5IGTUw ET1VI2MvQbk9od6NVXZSEGELG9x5XxI5TYzeA+UuQbkrQmdK6B7NfR1DxyQ+ OW6B1muyMTEyzfwgNs/BnpdkoaNJ051Phsm5PkZERxN5IujSm1T5uRwVUnkV 35f5Ec/b6CqaTEsm9F4oReTO0nX4+bS1kE06qpc8O/2mlFZsev7ymKoha+38 BSg1vSDUsHIZe/xddjltk18OzZ3MBsZk/94xDKTmVPv0yu6Rc7ypCkl755TW LuLQVwiNobttK0zKFDfMtUuPVEdovWj+7MKpw02PLX1hRWfdb/T7C0hD5aTn nkefsjkwvEkPWXwO0vjnAj5tX6ijK72VCdVsIx+i5wyk8c9qYWCG1vtSqKNE T3574DbokcIMrXcK5L0FaUz/iorzIwdhIHWll6HiDUhDQ5F9p+IAyEO2VR5M EJAmBEiBhCYe6c2sZJ52UBo/itdPAg6BPPf+461QIYUUWu8RkHfqRwUqftQA kpSK0Hp7SIUUUmi9x0DeCUhjqEDF+UmNMFSE1ttDKqSQQut9BeR9A9IqHSe6 Ts+FgGzmk+k4EUuvAgNBOkLr5eWJGoNSIYTeHhWh9faQCimk0Hp5j6NU+FHB +/kwkOzdph3G34a2TQTYjgRdidBA7LCKTUIj/qX1Ge3ByJbDML0nf+sXBsiE gKABsT1iCw1lbbuSdEAPGs1HRPE0NiGKf8TpDVFoVgiNDqN6hFriDlCGzEb0 TBOw+bT18aYBnB4ydIqtRM64J4SU1iuGpCGTFx0ISHkIsQ0CDsnKLXZSXRHA DzB22CQ2U5Fdp44J4EcwaxLgbGZq9vbM9tjXKGXD1mTrxKV9PfJRFtjE1TKk re+YpKChkVpc4WjQ6DbJi7B/itWiNsjCQqJqhGOLM+mADfl/yUk1jbPl/g1k HF0BEPO4MciJd5XNnirHrkbdYUWthEJu0qjDuLjQHan6+Lpmt3JLo2b371ZW H2Zau+6DeqhtmZAm4yBxGlp5vhM06QibN2XZrj5EVK/HbLcxKZPt5nQG3re5 fRj739oEUbaL16Q750yCxhi4cq+TuaHQ9QPNlh4TFdsgXqeLlYrGVOgqG6Wi fUjSdXhdXYJKx4nAbYOA3ixE3OWlqC1DGvBabV223hqkAW9m2OUtLqXB1zBA +rTdKRuJZXqLbWw8Qzr6sOOvZUhD2vxYyupql24Pdwfv6EbpGtE3nktAAs8d 99LoG8+FHs94DT2MvqHxUth4KdIIGzsabUcaYWNHwzZp0K4GMORmeodek4tm rBLEWizrZaJDZnJv8nJlNUIkt/K8d5crtBl7nJYKvAMK+DRenmcwVakC+blV w/zlPfeAmryqGlFNxwUBBkdL5QNE1jKBSqDA73Uj0BaNSWUgDVeUGyzALuim rAIU9JYPayxtZLyO95TL3wUx7gm5Iv7u7RGkGXCuv7Feep1RqWtHjOYfMx5B mvTxRqDXGfe7iTbPCp1t33XGcbe5/Ggdr4OPFf+WcqU66kTjdy6C9Y+U79Rh izmj8dtcfiS+ton8KvYjypW+78A5UzZxEeWvw9PE18Sh880YNhe9KkBqIv9K gQPKlerwNNG2jnOXU5AaYaVEoxbQkdXuIKQPcnXuVbk0fUWWQlfoA4Wu3kQr h0LvC3R9//FAzAnw/uP0QSN5tzH9N1BG9AXHw7FowB5SoXcGXW8VtXIodIUe Brp6E60cCl2h7zx0dYRaORS6Qg8DXb2JVg6F3hfoaOjQzJf80GE/0zYO8zr3 Azkj7QQs13cdfcenOrrWQVNK6dQfTSkl8fMMnDmimLTRZ7zqqbRnrxIPNl/U EQ/VFomXAsaSP8bfzYv/ASOcLu4=\ \>"],ImageRangeCache->{{{82, 311.375}, {292.375, 120.625}} -> {-7.64097, \ 1.19882, 0.0303203, 0.0303203}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"] }, Open ]] }, WindowSize->{714, 740}, WindowMargins->{{9, Automatic}, {Automatic, 8}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, 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, 733, 19, 92, "Input"], Cell[1293, 41, 1931, 68, 132, "Input"], Cell[3227, 111, 237, 10, 31, "Input"], Cell[3467, 123, 1059, 29, 92, "Input"], Cell[4529, 154, 161, 5, 31, "Input"], Cell[CellGroupData[{ Cell[4715, 163, 303, 9, 31, "Input"], Cell[5021, 174, 322, 9, 31, "Output"] }, Open ]], Cell[5358, 186, 121, 4, 31, "Input"], Cell[CellGroupData[{ Cell[5504, 194, 57, 1, 31, "Input"], Cell[5564, 197, 62, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5663, 203, 92, 2, 31, "Input"], Cell[5758, 207, 45, 0, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5840, 212, 62, 1, 31, "Input"], Cell[5905, 215, 46, 0, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5988, 220, 206, 7, 31, "Input"], Cell[6197, 229, 46, 0, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6280, 234, 152, 5, 31, "Input"], Cell[6435, 241, 46, 0, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6518, 246, 1928, 61, 112, "Input"], Cell[8449, 309, 134, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8620, 318, 633, 19, 52, "Input"], Cell[9256, 339, 8937, 645, 224, 5790, 591, "GraphicsData", "PostScript", \ "Graphics"], Cell[18196, 986, 134, 4, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)