(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     24735,        490]
NotebookOptionsPosition[     24372,        473]
NotebookOutlinePosition[     24719,        488]
CellTagsIndexPosition[     24676,        485]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"Clear", "[", "Axs", "]"}], "\n", 
 RowBox[{"Clear", "[", "Ixs", "]"}], "\n", 
 RowBox[{"Clear", "[", "AIx", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "Ro1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "Ro", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "R1", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "R2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "R3", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "FF", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "y", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "H", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "ge", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "mb", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "Bz", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "Apar", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "Aperp", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "DNV", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "H", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", "Detuning", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Clear", "[", "t", "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"NV", " ", "papameters"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ge", ":=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bz", "=", "50"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mb", "=", "1.4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Apar", ":=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Aperp", ":=", "50"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DNV", ":=", "2870"}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", "microwave", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Detuning", ":=", "1"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"spin", " ", "matrices"}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ro", ":=", 
   RowBox[{"(", GridBox[{
      {"0.4", "0"},
      {"0", "0.6"}
     }], ")"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sx", ":=", 
   RowBox[{"PauliMatrix", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sy", ":=", 
   RowBox[{"PauliMatrix", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sz", ":=", 
   RowBox[{"PauliMatrix", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ix", ":=", 
   RowBox[{"PauliMatrix", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iy", ":=", 
   RowBox[{"PauliMatrix", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"iz", ":=", 
   RowBox[{"PauliMatrix", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"plus", ":=", 
  RowBox[{"(", GridBox[{
     {"0", "1"},
     {"0", "0"}
    }], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{"minus", ":=", 
  RowBox[{"(", GridBox[{
     {"0", "0"},
     {"1", "0"}
    }], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{"un", ":=", 
  RowBox[{"(", GridBox[{
     {"1", "0"},
     {"0", "1"}
    }], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{"R1", ":=", 
  RowBox[{
   RowBox[{"MatrixExp", "[", 
    RowBox[{
     RowBox[{"-", "t"}], "*", "I", "*", 
     RowBox[{"(", "ix", ")"}]}], "]"}], ".", "Ro", ".", 
   RowBox[{"MatrixExp", "[", 
    RowBox[{"t", "*", "I", "*", 
     RowBox[{"(", "ix", ")"}]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Res1", ":=", "R1"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Pop", "=", 
   RowBox[{"Part", "[", 
    RowBox[{"Res1", ",", "1", ",", "1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Corr", ":=", 
  RowBox[{
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"(", "t", ")"}], ",", "Pop"}], "]"}], "[", "t", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "Corr", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{"Corr", ",", " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "9"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.6401732715455*^9, 3.640173296077031*^9}, {
   3.6401733316400447`*^9, 3.640173386328266*^9}, {3.6401735195626464`*^9, 
   3.6401735590007443`*^9}, {3.6401735892980337`*^9, 3.6401736357361107`*^9}, 
   3.6401736720178576`*^9, {3.640173703815167*^9, 3.6401738119573*^9}, {
   3.6401738474421883`*^9, 3.640173931615168*^9}, 3.6401739951271524`*^9, 
   3.6401741112225184`*^9, {3.6401741455198936`*^9, 3.6401741955361443`*^9}, 
   3.640174232489835*^9, {3.640174264693369*^9, 3.6401742721778774`*^9}, 
   3.640174315631598*^9, {3.640174454686854*^9, 3.640174473483986*^9}, 
   3.6401745261722646`*^9, {3.6401745931300755`*^9, 3.6401746288659763`*^9}, {
   3.6401758141153316`*^9, 3.6401758489908085`*^9}, {3.640175887741342*^9, 
   3.640175895272749*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"0.4`", " ", 
   SuperscriptBox[
    RowBox[{"Cos", "[", "t", "]"}], "2"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"0.6`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.`", " ", "\[ImaginaryI]"}]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"Sin", "[", "t", "]"}], "2"]}]}]], "Print",
 CellChangeTimes->{
  3.6401739985959496`*^9, 3.6401741168163185`*^9, {3.64017415661374*^9, 
   3.6401741982393064`*^9}, 3.640174238349232*^9, 3.6401742764435315`*^9, 
   3.640174319194115*^9, 3.6401745389067593`*^9, {3.640174609303236*^9, 
   3.6401746328200035`*^9}, 3.6401758533033767`*^9, 3.6401758992415257`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwVmnk41F0Ux5VtLIVBZmyDhCKkqFTOaZMo2qgkRCktlggtUhKitKskJKls
FZEQEUKUnVnIzCCKQnbSe1//zPN55jf3d+6533PP/d6HuovnjkOzBQQE1gsK
CPz/Oey9oG88OdxMLuYB+WNCSchja6VHbuB3bvZMPGH/tJcCP2L9wJH3YVEW
4U1WooufjFyAsKAMRgPhHR9y9tbFhoLOhUjOP8L7jd1C/62/Ci5XZpxXxjBh
WVMEM3rkBvx7dyctiHDedd7vxZW3wS61uLCeMFiaipTFRsP+k9+ijR4yoVTo
lrKD1wOYStBfFk/YsqjX6M/6WLi0qfkuLZYJtafXbo5QiAf3UX5eHGHdmOqX
N0YSQOODVeKSR0zw8B83dXBKhJWreizrCL/apVmuXfkEHoecyQqMY4KJ1DlO
YWwywFPhoul4Jpzue3Y4QuQ5vDwxy+lrAhMKKhuGbL1eQHPfeG7GYyasDdEV
61+fBnux8vbtJ0wIObD7Tm56OiSkM6UfJDGh3OwSI0ThJcyRsMXUp0xIPtcf
c23kFRx/25k+8owJFscuOfukvIbOokPfF79gQu9eutZep0x4uUy36mQKE/SW
b3ytWZkFwlfML2qkM+H1YOyn/Ngc0KNcP0LPIvntMLr2ePtbGP7yJj7nDZN8
VuwIE8kFVqi8u3MOmU/acNsOr3cgNmvBU+Y7Er/bluHe9QUQc2mrk0sxExxt
ee++jheA/pLqMtePTPi3PiAoO/09LE4yfuxdxoR16kniFxWK4HydeXJmJRM6
+wOlr458gDPH3Lwq65lg3GXxZ8amGJ7V9gvrNzEhlCPb7J1SDOeKW/riWpig
/fnFw91OJSC5yvThUw4Tjj5v0ppf+RFKG9J+bvzOhN8ui9fkxZbDlERLdM0M
E+6v76ysmCkHYQsh45WzWYCaD+1anD/BM8skfqYwC251UbyGNStgRfXp7bWS
LFh2pDNRP70SbgWNBmcqsSDgxEPKk/fVUM6S9ZBczQI16x13XzNqoM1xZHwX
sqBSX0zjw8Ua+PYjcHbqBhYoDvitatv4BbZcST8StJUFBSd3eCh8+QoXT5c5
VDixQKBA6MdGzzp4djNod10oC3bpORtuTaiDAt+Jkr5IFjyPzffbVVcHg8bP
puRusmB74ElB16X1gPWySZEPWZBo1qF8YawexmK4ftKvWbChON8mL6gRYpK0
Bo+3syC8/GS2/o0WSHqdnC+zjg105/2rRt+3QJXUvrerLdiQMrGp+P3PFsjK
7rb3tmZDtZ5KzZZNrSD+KdFtzJ4NMrc/dR6daQUdK9A55cuGGCdluWfHWTDU
fL5O9wUbUsfLTjI2t0GH83LmAjoHDt+VpFEucmG1PXeXvHQbOK8X7g24xwVr
sWymDK0N7Af/vutN5wIn4re8nFobbNn6e99nFhc0n145tdCwDYyE6+OjlvFg
s+95+ehtbTDje09bvocHChpTzUdutcHdXRrLNWw6QSRKeFswvR0+yq6wW63y
He6Ljfoyl3yDWG2NpbpL+wG7L4cJfOmAiIP75/I398OWpTcvHqrvgIDH93tj
nPsh9oNnQ0VzB+xUkkoQj+oHszWb9kV86wBxqWnJHz39sFEwTGh8oANOjzZ1
P4/7BY6UF1Q/WS6k8jZslRUeANMR+uMPdlzQuMgz9ZQegPNDvu+/2XPhPuOC
zmelAejUDFSdduRCqEO+4CWjAdAS972md5gLLs1L8oacBiAwy2bFMX8uKFap
atfnDUDeh4j4PSRP4a/HBW56DcI7+Zne/EYuLKppcO04NwhCsObax1YuVPdk
lBtcGYQ3dvJ15RwuSKsduvrl8SCkH3wg96GTC/ei6hQkGwbhlur5S+eGuZB8
LEU/zHgI1HLv9cjJ8qB0gYND4OQQeJ7OOXB5Cw/c1i4vqhb5AyuTMy//tuEB
ZT9VQ1n2DyScUTLctZMHW+5UfM/T/QMTfOVxSXseNMw29hl3+AMPA9T9Vx3m
Ae/bnAifoj8QaiztefkCD2bFFL11DxmGgIRySkwGD1a7xT4OujEMAyM6gqav
eeBndDrybuwwMMbutjZk8eBHlZFT8ZthCPr0bXo4lweNU09F6F3DELcrILyv
hAfJ+6/aVmwcAV7w19LUJh50LHSH9u0jsPb12/LuFh4ojW5cOLx/BLIG3ayU
WDy4EfVvmuE3AnoMSqVXOw9OF51M8k8egT158pI13WQ+6nv/aImOAjM+9775
KA9C+43bVsuOgj19JFJhnAfF76ifdjBGwe/8xVzuBA9MdlTHnF8+Cvw/69IP
/OUB4xKsaz48CuJDnGgpIT7Y2yjr9fmMQu/Cx10vhPlwR2lCfvaFURhVLrBe
I8oHypvM3sX3R+GlzZMDNuJ8GOpccPNyxSjcSjm8UE2aD3qvZ5992DgKqpeS
eoNl+OAW+O3g6w4yvqr+i3YqH9jyD1a0jY/CNbk6+kV5PpSaS3YsWzgGBvvP
eHgr8mGG2ltpaTwGg/11TQ+V+LDyW1mW89oxCO47uqBImQ8Z/kFhV/eOAVtu
rs+AKh/uPR/S77wyBv4bnS/91eCDGmTpLLo7BhopLd/b5/MhpclHwythDIYE
RaTzNPlQOHtEfjpnDMZXfErar8UHiwfZUutKxsCzizZXS5sPdQZ+YuE1YzDb
MH5ZD+FOh7Fp2c4x2PHLJmvvQj54/Hk7uvf3GLx5HksRW8SHsSsBA/GTY2B0
x0U+k7D42wm+rsw4iOdqbxvUJfnbmtfmrTwOgaLpZ8P0+KDSeablrfY4GOS/
3auwmA+GMtNV683G4RHtj46mPh/ynhWUXtk8DvfH59AeE15vFlj4ddc4nEgP
zlYw4EN145pceedxGEw7JBBO2O7YzOt9x8ZBcqplbJBwx6yi1Md+43BSV/Sh
rSEf3O8HPf1+cRwsXBf3ZhI+VybwwOf+OMxzDL1kv4QPIg7Ft949GYcmm+Nf
kghfH7p49V/GOGi+eFncQ5h2ZV3oxrxxcDlb6aBlxIdEhuCFyLJxYHhD/H7C
ejkfT9fVjgPl65PwKMLZW0J8FDjjUOF7l/aOsBl/w4n938fhY1uRdRvhitPC
h58MjUOROnvRFOEd0uXOvX/HwX8kNY26lOgjOdTeQGwC5qQKNs4nfHDNpl2n
5CbA1ehDgj7hXw2i1vmMCThOr6YuJRxwtGLTLN0JWH9VddESwrNmXVm7yWQC
ttnmd+sQjri3edW1tROwpC3TQpGwnL64ccOWCXi6SGObMOG40ip9+p4JsOIZ
/e0l8Wjvi9RxciW/N1faVkH41aCVxlOPCaCYqG5OIGwaLqn88/QEHFoc2eNN
uFS1Rn7J5Qmw31Cov4awdfY1Kf8bE6Clr6Y8m3CrlbXY+4cTELRC6/UHks8D
vLmCgs8mINNyx68Awj8Cvk5bZE7A7U6jxkWEfaVujEa9nwA/FVfXZrJeM0+3
DTRWTEBXYkTsWcLhq2V+KDZOwOG3+y8oEqY21PGdv02A6JJHUllk/R+632pL
/jEBP/znWW0knBEtW2c0axIi2hdV2RE9rVjcWBUgOQnTD+Klmon+ij/eKS1U
mIQTdrOEbQg3DsjnWupPQtRUhaA+0eukJS3eZd8kbFtQ751A9J/hOG9u7OFJ
mGDbDLbp8MH1pFxgk88kJBbqSssRrn4gvc/i6iTwc48vPUrqK66HoqD/fhIy
JNs2FZL63DEtEnq4chJaRmInPqjzQVRaeCShiYzXbLevQI0PXstnNcj+mgTv
J1YrHpH6Xhc6ETWhOgUMwYk4UbI/jD4Y+2ukOwWX7tXOq6XxITV95Pjx5VMg
cC54500Fsr5Ng5bfbKYg0Ehbe0aOD93zf4iUXZiCs/kC1y5K8SGymHX+Bm8K
7BzXmxgJ8gGbWvsrf02BuIR1YPgsPgz3NDsITk1B38KoopZ/PHCUbjD1k52G
rYXhGw9M88DQ6fPovg3TIN/7q1JthOzv0/ke2snTUF3dHmjbxYNw6bw258xp
4Kq4nFrD58EazdwtMYXToG/QnKHKJfu/1ZtFc1qmIfLBialqDg8CYtK6h0T/
gj/UXWE28EB5xSPHQve/4CchovH2Aw/U5gW1aZ/6Cxv02s87F/JAc9jZ4eaF
vxD76Li5UAEPdF9p2h+89xekh/t1Vr3lgalOmq142V+Q7y8tdUvnwR5a/hY7
tRkIb/Ytf3efB7fHW01/Nc+A4aoPT3yP8SC6Oe/dbt4M2FjYnj11hAcxb2JX
FPfPQNaI33HvQzxI9HI2uSP0D275jGbZO/HgVc/3JaZG/2AyZ1Honx08+NI6
qhN67R8Et5yoXL+SB5cdIiSkNATwi0KJxbXZJD/zz819pi2AhzUKuqX+kfPF
zxMysFgAOWb4KGqKC4Wntyt4rhDAnQf3el4g/X00mjb/q7UApsjcdzfp5oJb
XbLp9bMCaF+RyRms4IKF+Ud3qSYBnBE5eYAZyQVxw+lPUuGzUNhjW5mcGBd+
P1fRC5IUxKVKASVHM75B3rHcqwN+Quiax7iy9Rw5r91lSsoFCmEp66KVhU8b
TBVOXl1+SQg3NehKbT7aBqupa66dvy6EezZL/HbY0wZFucXXJJ8TdstxrF3W
BqXCn6N0mEK469L4yvFfHPga33bDeZUwDh6oPcI6wgGvyhnpkLXCSHV5vOS9
Mwek/zBuPtskjPNm2QY/38OBHeYuN3/tFEbzYC/RBxYcaOzrvnnuuDAavLR7
xdfhAGvlwK37j4Sxa/xXjsFPNnQ2zL5b+08YGY97eQx/NtQ1Je1pERZB48EE
7d1ebChsMVdulxBB+lBJ+X13NtxnRzz5qSCCF7rct69yYIMVn5opYiiCq8OF
4N9aNmQOaXxd7SyCX29Iu1yXYkP8cOmt9W4i+GT+840+Ymy4OupmZ3lcBEsV
TE64CLLBbTKlbXeACCY76xe5jLGAPntp38kbIhgfmd/b940FF2TWi734IILS
shkcoywWnJDtqn5ZLoK7u5pN69JZYC8fdiOnWgQHTwynnX1O/Af9s0Jpqwh+
inT+O/yIBd/Vdmp9GxDBel2Th2eusMDa0HW9vLoo/rrMrWW7sGCVkbCosrYo
nsrb1Y6OLNBZ9qxKY7EoHmfZvsncy4LZK35uN1wpim9bkF+wjQU54ONstV0U
r1+ROnwcWKBicynw4kVR5NcEByCDBUYmCpvVwkTR6Pime2+J/zFXSZUruiqK
qxa/321KY4Hnz/rU6XuiyBw3YrrIsKA4TIPlnyGKDMq5ByjEgmaPnKfz3ohi
oW/cRflZLPhha+md/U4UI0+J4OhfJshqnqT8KSXfey7fwx5jwqEPxSYebFGs
numLXdbHhDPPbGfP4YriJcmX7Ud6mRAV1VuT2i2KUh98FrzoZsJbB5lDvYOi
uOtGYstWLhPEJpxvH6RQsCExw1mH+EPVjmFHwbkUVAvZsP99IxOMPoUvSpSl
YHxaapgj8Zf77r4q/qZKwSb2tYCyGiakLxEYsDemYM+5/E1axJ+W0O7kT5hS
8J7/I0MV4l+b/2mH3UcKOnxSPqpG/O2/GhvVZisKVn652m71ngly2fxe3+0U
7N09R903nwk6sf7ZsrspqFpl+fE58cfbj8Zv2e5CQfcwKePlxD+7bV9KGzhM
wRMmrhI3ib8+s+ITP+oEBf+FS9qMZTLhicjvM9UBFPyo/3NR70smjCSavdh0
nYJeoRvDXIh/F4+o9+2+Q0HnYUclNeLvVb3d8HIMBd8cObj0B/H/myCqpeQp
Bc3HXow/ecoEBy2NJwdSKXj08uGU20lM8JqT4yHwmoJt4xK9158w4QG7Tdis
gIIqlGG5/+8fMkq86zjFFJzq+CVcm0Dy8UL40dlPFJyQgciZeJKPGw+OKNZQ
0GpRcPJKwj/9Fy97V09Bu47Vey/GMUHAqfjf7lYKPpjLTmp6RPJjbvt5tI2C
v1+9jDAhrLO4N/ounzB3WCIplglr5AJdlvVSMKD180JVwt3vXvZs+U3Bkqf9
Jg8fMuGGE8/j0AgFDagnlbUJmwrLjwROUTCt2I1dHMOEzpRNZ6NniWE6O8f3
GOGobWdmvRQVw36Kbu98witG08I+zRHDYm/3lT8fMIH38NucDlkxDCgYOVRM
+Opa6p1xuhiukFzimUzY5PsGRRk1MZwnYG8bQ7jjqn/CQi0xvJZ5lfaIcIRR
itY6PTE0fleSm0F4WSsnzd5IDBs1G4y/Em4PlFrqs0IM8y6evD5DOHz+uneR
ZmJ4rtWobDWJx6jSF5I2iCEv41LzFcIcj2dlBZZiaC6WWdJFOFSOZdW0TQx1
jveEbyPzNcyTrO+3E0Ptdn2dKsIsJ9gjsl8MTX8cjd9B8hUifLJd1VUMLRKd
+nsJ66cmHVzuLoaTj9Olb5B8t25r+WHjKYb/ZBpEN5L10YtdPXbhrBjW5A8c
Zf+/nms9Ax9cFMMunZUNBWS9L3x/LJgZJoYepyZE04keGo1Epfm3xbCsU/TL
O6KX860ro6ceiOHNzbftm4medM4fV5ZLEEOWskzKrGQmnKus09mYRvJt3RUa
8pwJWp5CL/dniuFohttcDtFrrdxyY79cMXSLMty6LpUJms6xa5+VkvmnnuWb
ZjDhi/DXT0VVYhgTPG9ZDdF/QOos69ZaMh/lxfoer5lQPepmL9Ymhs8EI6Q4
pH78Yh90qPPFMDSY+es5qS+1ddVupr1iqLD67eGQXCb4Xlvic2yExBOWJ3e4
gAnKmtORNXPEUcymnMUqZUJ5pT61W1Ycr6rsE1H+ROrD88D9Gbo4JoPl02OV
TCjNK08y0BLHRpE4bZMvTDi+/eb7m2biWBt2L96/lQkF57V+23qKo0OR71Ty
b6I/MatAkVPiaDvnh0/0EBOc7nhKvD0jjur5Zrq3RpgwOyVXmxYqjnYZFmYZ
U0ywaLJ0ZsWKo6d+lXkAhQVNup51jlXiuGHPUZq1JguSc247SdWK46Kllb4z
2iwIWJvbX9QkjhzbiSd5uixQ3j1LXJ0rjjZqZx3slrLAJfj2Ov6YOMolX3dQ
XM+CX61vsw4vkMAfTdygmoMs+ODKWUvTlcBf2e8sl7uz4OYvgdoKQwnMzz9+
MO0E6T9Cln0LV0tg0VFT51w/Fpw14Gj27ZBADLHztyP9hxIqEO11QQIX5Xyt
SHzFAvWlmwNOsyVwTkV+3DJRNoSfkyx+wpXA+fk7E7zmsGGg7KvYl+8S+NAn
3yVXlvTjPXYPNYYlsGbG8NdRNTbYn3ct/CwpiV1zdfztTdlwqzJQSNVMEoN0
0rNsSf8Wcs68UZIgiTuwK9Sykw3dV5VeSLjNQWfDH2jVw4EHGU7G9ONz8Mk9
ddfKAQ5sqX1SrHVyDt6o/RxqPcGBLFk91trzczC22THkhHgbXIhZLREQPQdT
rPYZTeu1gdLz/Sc6y+eg4POfo5bkvLPtY/yS99pzMVnigp6aUDu8m5if59E7
F19c+UuTNfoGK1vr+e4LpfFHUY6QZW4HDJmuiTytJ43WvgIdc993QMqjZ0ZX
DKQx8vJBgfriDlB0PXfxubE0nvvzjb/jcwdM9i9gfF8rjWH1NjNr2jugQPC0
/UF7aXw9cqbppSAX0IBR5xgpjaVZwcXZW7gwfvNKgEeUNC41t5mlv50Lr4b/
MM7flEb+kInuE1suqOdVeDy6J416EQ9kQxy5MHvjSUnOE2lMfE2TY3hx4aN9
2aa9BdLYo/m+9dUtLpiHHivc2S+NOWhm+beRC7fYX9wNBqTxQFXg2vxWLrQb
GslL/JHGB3p7fU5xuODHHj9WMi6NFRUBR9r5XEg2DKUvEZLB49e0yi4OcUGE
neA7V0kGTVS4FaJSPCg3aF5UaSGDQUZvc9o38IB6eWVzkpUMnq1+2SFvQfwC
K/biBWsZzN7cdsDCigejIa6ty3fJIMW7xCZ+Ow+0WAOXk51k0O8VLpBz5EFo
iAT3kp8MZuUFLZXz44E5E++ZJcng8g7T+vWJPMiNOdgp8UwGm5vpYjVJPFjk
EL6E+UIGPZujpbY/48Hcb18/+7yUQZ8/b/w3p/GgpdNR4EWeDD4yL9ebyubB
kYFz7rJ1JP4jnnMdK3jAep2Q09Egg276FsK3qniwxadUMKNZBpVtHl38UE38
zahEnAVHBiNKkyck63gwMRVTH/hdBgtsprxdmTyIEH23quevDG7Nffp3di8P
pis44dkCVMx5us6l7QcPPCIEmoMFqbh9/YRkZh8Pdsyx8FIRo6LLHictywEe
KMm2JO2Qo6Ixe6Wo8RgPohonBxkKVBR4f8GUO84DgWhV6KdT8byN0/2wSR50
0tyYYQwqmglPlZf85UGa6sic94uoqKjcdG+I+DfVDtq+iMVUPPPr9SdPYT7c
eLz6+W5DKpozLop9FyF+WjNk3ZAxFW0XXHj7UYwPaxbJ+muvpeLO/O2exsQP
vvppUjq8noo/5hd3BEvzQSPdXqbEnIqr9rtZV8nwQcQwMdVhCxXDTu2U20T8
5BfjJR03d1NRmbtbdJz4z0i7JPFYeypWf9X9p0f8qYW/gnHyfip6Xg+stlfi
Q0nu3yt5rlT0CSznJKjwIXtV1VK+JxXFn32MbCb+96TDGsf+k1Q0Gv3eXUf8
sX7gq/CxU1Q8fOCWYPl8PjwvjG6TOEfF4x/yAu4v4EPsWtewZeFUFLSpoXUT
v73Xpfm1WSQV67XVzZ8Rfz7v0maORRQVTRcYLTiwiOSj1GDJ/jtUdBT9Plio
y4etXYn7Dt8jz3e7cFyIvxcXmRfqHUPFh9+tTv4jfGnTNOtyAhUHjn+N0dAn
/viIp/CNJ1RMP1C56AXh6XCeQUwyFTUdfzvrGPDh3Qtb+6QXVJQLV1qdQNiv
qiIkI42KNbNX5ksb8mHpz1Uvc19S8d3g+rbThAckXjJLMqn44szmx2zC6Xoa
QjXZ5PcVh0VMlvDh6Na7+i25VFSQ+CJxhbC2B2UvN5+KuwILXjUS7ow6e+ln
IRXzXEKGaUZ8ePzyV/pIMRXnSoQ32xJ2rD3Q+q+UivsaTO0iCSsNNs4Wr6Di
Cm11n//vo1plLBbLfaZix8VavQ7Cd4zyd6t+oeJiz9/B/whv36kfrFNHxaNX
jU8pLOXDXN/HaUaNVBwMPyb4/31S1R25ltUtVHyldWzx//dNYdlhszaxqBhs
yvhjRHhD86Tu9jaS77RLuxb/fx81dsJuXwcVXf2fblcjXKjAvXCIT8XsF4k/
JAifXbEr1bOb6PtgCmOAvH/F3k9Np3upuJo1PVBNeOS0qUBIH3nftp+OiYQz
Y9IXRf2mYoJKq7sXYY98Ndv7Q1Rc9syEupywLud2UOIIWS+XyD2jJF890yIp
aeNUXNJwbE0G4SSVM405U1T0Dz9f7Pj/fZRZ/8yHGfJ+lbNdooRVnZwXfp4l
iy+MF6W8IOvDDmrY2SQki96Bh6Q3EL6fYH7+m6gs9j9VoLeQ9aby9Br+zJHF
2yc65L8TfXydnfD3r7QsPvdXlzxI+Op8WR2KnCxuXar/grmYD8KHJs4pK8qi
vnMeJ4PozS7gUOqQsiyqC944TCecHFnHrGDIorPAhxuBRK8WmS9MTi2QxS+N
6h+NiJ7vl8kfstKRxctq/V8uEb33tl68ra5Lnk/ZeP4LqYeIf3sHagxl8aeJ
Y802bRI/tVw1aaksbpZU9QrX4oOeltHWMyayqFR0tOAdqaeaLeIpWqtlsSfb
ZI+YJh+kY/JcgzbJ4iUj4xoHNT44p2vdsrWUxeDOuL4DDD68/nDrg+5WWdT8
NPbRWZUPO74fVWndIYtqk/cTrZT5cHeZUouhoyz+6tm0r1mBD4pfz1ryfGUx
SHPqQ/Ecom/e94Bcf1m0lNp+wlWSD/kjO59FnSHxFXwemxHng4OyntCqC7K4
esAzcz6FD/HunPe3I0m8Cj1SmrP5oCm0ZsnGRFl04NkwBEd4cErhhZPSU1m8
oN1C2/CH9KdF8lGDz0i8qZLzgwZ5cHh7/49H6bJoovzZn9/Pg5S4R0mjubJ4
vUD3yqFuHhisnFF4/lUWG/XYyTuaeVCV+m5+fr0sUmT7uymNPHBTPWXwpUkW
twgyAnJJP4gV7DMfZstigEP9E8EaHoh/YZ7CHlk8LOP93vIjD7pdshtaBeRQ
co613OMM8vzV49fFjOTQ081+fcwFHqz4p/1Q2VgOL+Uy3EMDedDgzU82WCGH
9GSvtONnyHi77QttzeTw2lmZF9q+PPBXt+h/bCmHjBUtlnsOk36SM9/K1FUO
U5K1uSlbeCDWwRI5dkcOvx2xiNoqS+IvtHvjeU8ONS7XGMSRfn31Uf0B3xg5
rLfMYPyQ4IH0vqqCwAQ5VF1tKekrxIN5ze9O3kiTw/T6dNHtI1zQqL7fnl0q
h4HF06rLm7lgmmuXIzAihx+LIm4O3eHC0Rv1h6Jt5ZH9QN5nJYULRV0iH0vE
5mGZ/b/oEOY3+DhH1lerZh42fb6/zvxMG4wa1ooI1M7DtgRY9N27DRbtuvaA
WT8PjxwUWXfNvQ1uxYgWXW2dh14dBRt797SBi/a02B/+PATOwCne8jYQWNsV
XzQ5D2Olc+R7Rjlg5vv28x4dBSxJOF2QeZoDJ+/5OhrpKuDSGp/H9JMcSM5b
Miihr4Dn9g2/DzvKgbmz0uYVLVXAD5ojrNP7ONB2LeHAAlDAo/wUm7drOHDu
2ZWxQVsFNHb32JQkyIE81r75kZcUUPLGv/Vpd9kgd5S52y5UAdvHdn1Zfp0N
HhN2V9WvKOC4DnN2dTgbNGg7Rt5GKWDArzOxc8+xIcLW4lPnAwWsKynu++tC
zr+1y46ZvVLATe+XPbpuxIY3TpnxYlkKGHSYEZKqx4a5vw0aG7MV8ItTSFOt
FhtK5uiuOZavgOaLHbqWK7FhkZW61P1yBWxbf204QIgNk2VzsgY5CihDCT1R
28qCXbaR3wu+KeBTKf7i8AYWZHRSlMN5Cti9/4WI5RfiFwSFLqv2KGBK9uZF
fR9ZUIWTdlZ/FHB7/ZGdqS9ZEJPfPZkkRkO1tNS3KuT8P2x50MBLkoa5ph5x
Z0NYYM3iuq6SomGiNXN5ZxALZk9wquvkaFiy+mhyE/EPR00a4mYYNExQ0j5i
eogFK18XrdtjQkMPkx9d1A0saI+/ust5JQ2XOY8GVAELgqP2uh1ZTcO1aifX
XV/Fgupjf64ErKNhYPm5eCT+xlFLu+6+NQ33FF2PWD+fBYLyw7yE7TTsjn3E
OsRgwXPB4uHnu2joExWWeleJBYMd9rR39jR8XM0eUpFjQcjDKCemGw1Hz+oI
1wuzYGHEPm+uOw3PHr1leWA2C74E6FzqPU7en3dp58wMExTsSpInTtLQ03L6
y4FxJqRIj/bTg2jYpb/d7OtP4mcv7z9nf4+Gq3xna1k2MeGU76IolxgaVmz6
JPiunknO/2PxRx/R8OqPm1STWia44s2PZ57Q8O9zPZb9ZyaMTpaKP3xJQ9/C
6RSbEiY87L2p/CSThoNpe1INPzABWx31U7NpqJ1iLapWyIQr2ePb8/NpGCbB
61yYR/ysl94D9icaTs3Zl/UjkwnFjhMp/CoavinSmAvEL7ttLS/4WUPDkQFm
92Pip18ucu6YaqChm3uV2u00JuyiLx4SbKHhHXXxK+rEj4+LTgpKsmioqWse
WEj8+rqu29rKHTQ0ebZtnuYzJnQ3OK/U5NPwj55icd9TJkSWLLbS66ZhqXKz
YGkSExrjP3ms7qOh8fuUfXGJTDgddefCht809N6UeerxYyaoBh64tWWIho/4
V5ZkJTDhsP1UtsM4icdJ/t7seCYkrCr+bDhFQ68N8Q1b4pjQqhzGFZqhYY9B
fMOTR0yQmdky1ipAx+PzD98XJWz5jTonXZCOfdEG8wNimRD8oVXjoggdV/op
nBp5yIT8x3ErbMXoWKaqeT2I8HDwQeuFknS8u3/tyXmE9Q4uOvh3Lh1PnVjL
yIthwsGNA6frZOi4foQTfZTwI62c60/l6HhdJIupTbhZ9NzT0wp0tFbe3DP4
gAlze9fmb1WkI4su8bGCsHmVaJ26Ch3lLa2OphEOSq3pHmHQ8aPjuvZYwrlX
b09XatBRxUuK8f/90sCJvdS4BXS8Ov1WL4mwjg1D56QOHdN7tEXzCR8w7Fpj
rktH56AlGe2EY2RSdyrq0xFPXlOXIvHUD3m5/zIk47FYzlsIizeaBJUsJfNd
Hn8smvD67Ok70SZ0nPQ1X9tP+Fx0ScrRlXS816XB/f9+6Y1/+Aez1XT8bXHC
sphw3x7rZirQcc/nDefMSD4XmMr1da+l44Doy1MVhB2VWLPyN9Dxpvh9YyeS
/+jpeIXrm+g4tr0+bzZZry9thxa7WtKRVj9PKIuwaJHu+uVb6fh+VEjai6xv
wMW3Ht920PHABo67NNHDK5fAkCxbOr7ODnnzh3Dv+vUxYXvomOpim88n+rEX
+Vpm4EhHw/ymkV6ir1vf77AFD9CxuC9ggUAyEz5X2A+2uNJRzUNXbD7R5+rI
buUL7nRsb7jGjyL69T2eZrTrOB0v/j3U1JLChPStJy10POloIhHnvZjoX1V6
xqfWl46H7hyOm8lggsBd+c9qF0j+zh8PWJHNhBV+7I7hYDpGus860Z3DBO/d
j0crLtMx4mfrn4RcJvDoizW8I+n4wcYlZVUBE0rjNpwujqbjcBd/p2gpE6aD
xK/ffUDHK9LrfenlTDA+UJvkHkvHM3HnKSsqmJA836FWJpGOx6wDz8ZUk/p+
7qPtkk7H3qGqucNkP5HsDVf0eUXW2/xEeVwrE24sjJsTkkXHnz7Nw7vZJP8p
FX+eviP5qMHYkQ4mJKWpfOgto6O3R+fetj4maPcbZU1W0JEzqjhn6jfZvxZb
JEtU01HVylBA+w8TXmecvLq4nujBQij8xQQTCl992uPdTsezh5037hFlwdpB
jlUwl46StDDGd3EWlC4ZMrvdScf7nhsnL81lwedM5QXZP+jET3pf/y7PgtY3
3oPjo3Rsepy5znYBC4ZylSIuSCnizfNZWSXmLDg1YRh4k6qI72+p2y62YsH4
SnOvRHlFvL9Z3vmpDQv+5XnZlSop4ou9R8Pf72GB5PsyDYqOIpY8mxi+eowF
WsWe+ddREe3iXN3jbrPAvvJjX5y3Ijp/bOKb9LPAe7qOf9ZXEe1nt7fXDbEg
3KCDtcdfEdOTNZb5j7Mg5+50BTVQERXLBIs6BNlAdTF+GhquiClGM5L6pJ9+
nkze7xGviLMq708nW7FhtV7ElzU1inh+45mEd1lsYFzf9oqjo4S3am/9cnrE
AQd9xuZUXSXcFXWxaPZTDsTU9HNP6yvh1a0X9dLSOCAnGSmrsEyJ7JcWcdQC
DlCulPltByV06zJersfmwFCw6ZpyWyU8kvvzU4hiG5T5aVa9DFbCr6Gdlvsf
tcExx3F+MEcJ0+5Gvae/aofDAgHHnOOVcYXq8Kkf1zogeDCqa3miMu4UOrLu
4K0OiOM9dZJ6qoyL1Hd850R3QHNpw87CFGU8I+cVXRXfARuuGKxWzlHGzqGM
a9GvO0CD+l2ytVoZ5/GHRXsbO6B9vl2GzaQy5o7pzTVV5MKk3Akd7b/KuIXy
OClQlQvzREISZ/4po/O97PFCDS5s7XkdnS6sgquXHHlrqsuFgrQ5QRIyKti6
81a8/GouxBiX2XzSVkG971Kvtu/ngt2mZYNmtip4xL/25vNH5Pl7MRY796jg
rzMvnb4/5sL8HoGEw/tU0D39i7VGMhcGwmusbxxQwR6Xd0euZnAhosotjXtC
BVn3Cn0Ni7hQuPXB4ZBQFTznsnDvy29cWLBrpq3yrQp+dLpWsVGFnG+TDhq3
56lgcJS39KgaD4aGq64OvVfBH+MOWx5r8qDw7r1VSqUqWFwcEdijy4M9LYYP
jteqoH/f68YVpuT39q67pHpVsMrQcpJpy4Nh54qqXYqq+Ll3ZXdXOA8uqPz+
aK+iimuf5HOaI3kwhyX/3llNFcd/Zs0qieKB1k7Xl8e1VFFlzZGC0Ds82Ltx
5naIkSq23vBcUxlP3r9w2f43lqq4Z+68b3rZPLDstrfL26qKDnk78t6/5UFL
4kWbD9tUsSQry8kijwcDSl/XVtup4tXr2YOWRTzQmHtUq9NFFc084m4LVfIg
bCj+t+xZVbz/PE54I5sHci/Le+jnVfHHxcxezzYeJBzr5zIuqmLF+/K1d77x
IK/TtFE3TBVPrDhmWsnnQV9zU+7626qYwLKs4P/kQcDt6debo1WRMRFfziT+
SHjb/FSbB6qYku4jW/mbB6qVXo/2xauiBm809DbxV9vyJYJ9UlVRJ9F9f8sk
Dzj+RmdPZ5D5VG3cfW+aB+7L9voGvSbv8xkM3DbDg+D0ZLfIt6oYekNkXcYs
PmTHr7V68lEVI5Z9MFUg/k4xxF+uga2KR2l/vjyU5YPp0nsyT9tVcYGhv2+z
HB/28XLm+nNV0UfQbUJ8Hh9icZSi9F0Vb2pM3jtA44PKX9+/LkOqqBra+b2U
+E+ztDuTy0bIeDe3W3xR4YPjvjdjIuOq2Ke1y6+O+NW4d38GU/6qonoVbWkZ
8bdqfie7hygMnJ1qNXmA+F9ccItfKsFA/r28myuJPz7Q+Lojei4DTzjPfBcn
/jnRaJBlKsdA677rVTHEX5dwpVslFRjoG1qycy/x37wbhk3tdAbKvLp9V4b4
8/m/Pb8GMxgo9vjgGk/i3zfEXa/epcHAQLX0BDni7w9ufVmptYCBIk8XvM0i
nJT662PVIgZ+7Ckeb9fjQ6n93OLYxQwsu3dL/dhiPnSJ6Rd6GDKQZtg/PkBY
68iJXKoJA7kMzZe9+nwwV7iW3bmCgTU9MlcdDPhwuDwtM2cVA8svpslWEg4/
Vf0y3IyBzUrKGw0M+fBcsy/Nfi0Dn128y7hOuKJBIkVvAwNV6PaJPYR7gnWf
zZgz8Gvn2+pVS/hAMbJKqt3MwEOXxeLCCS/kHn2cuIWBP0xz5L8StrwREedr
w8CBriVLpYyI34eUh+Y7GJhJ+TtiQTjiV+V9mi2Zb0XS/nOEUx713v2xm4Fb
+0rcXxCu2iJ2u8Cegct5f+m1hH9O6dyI2s/AU/kUj//vhyRTLa45OzNwr8GT
Q+JL+aBnfyTCyJWBlg8fCKgS3iIWHibkxkATwTIzXcIncp+FNB9hIEtGQu3/
+6mow58uPj/GwHGaY9L/nDHv+/kzHmR9Zd5/1iP8pUzk3BZvBq55uDT6//uq
375ap1V9Gej3lyk4l7C0prnfgB8DpxY0yY2QeAwbDvmUnGbgxhd2lU2EtwVf
9rpzjoGTxbHqrwh7L3l6wi2IgV7bhlRCCN/qKD26IpiByqyMwu3/32dd7zws
fpmBXeEmQnTC9WZChzhhDLRbNPmLSfI51D/fJSOC6EHfP+gOYeqj9U4XrjFw
x/PlORaEl25xddhxg4HfNtffHiXrFWdfb3LgNlkflyV7owmLu6+V8YpmYI7Z
+Rf6hE/5v/p5/gEDj5unXi76///lLjPKr8UyUNq64JcFYas7UQmx8QwsuFPe
VUX0lJP490xqIgNvFw8c2/j/fVYR26DyOQO1XaIXaRL9jdVYiremMnC7bM6h
cKJXF867zu4Mwgwz4y6i55UT9x4IZTPQLS3qXjjRf7fRLkEsZmCxmcE9P1I/
29d+bLMuZeBNjvyTeFJfBTZGufs/MfC0n/H2YlJ/t45Lnzhbw8CgZpvYX/P5
AMnVzTlMBsbJCesOMoh+3qx6XcZhIDvV+vI3Ut/zPqZENn4j+mr9fbuc1H/f
t3Ac6iL1ueRa63klPtynb0xZPETi0Te1uk/2E0GdNyGrRxhIUf16e4s8HzxM
5jtZjZPvY1WeTZD9aMPOWXLuM0T/4XtNzWT4EFDebrZDWA1zvOke3hJEP1vn
pTFF1PDYRK1bnxgf+I1b6Qcoamhhx9rgTPY3a37BH08JNVwVdazISJgPCwQe
Pr8mo4ZjG7oULpH90T6sXl5eVg1Pg1xSGdk/b8wVvxQrR8ZX2LVs1hQPppVP
709VUEPhR4+8Xcd4UL9yN7VSRQ2vZ1FaGsn+fN5H9pzQIjWsFUsHT7Lfz/hs
+umtq4YmpylG7qQfBPqetf+mp4ZJh/u37if94twp/oo8AzV8+W6O7LIWHpzx
zxrxNFZDhwO7LGO/8ODU2Z2ebFTDM05ftu0r4MHxS7ddMnerYcwqj+XZt0n/
uPSpjrFXDX//mr/t7w0eHAuZwmv2ali3UlkfST88etmVcWS/Gn4cWbIth/TP
I2FLOSquashy/Pr5YCAPDkY22F7xUEOe/K93Xw/xYN9t2c3Ol9XQWsHSmrKU
B78qta+Uh6phfOIjzzID0n8FVlfqhathQmK2xXk9HiSfOLh5IkIN33zqWcVf
QPrlpuzNt26ooZihJucMjQch03aWpQ/VcPan9uruaS6kHYqx0slUw9c6nG3c
Ei5ML1e3HmhXQ3w76TS2gQsjZYp/lVAd/eK0x5YpdMCRZCPdihh1zLSUC770
pw2al50Q3x+rjg2nKOt/97bB+o/PegcfqeNBya+rnDvaQLVD+bnSY3W8evXI
sh01bdBIF13g+UwdI7b8ZAc8awO4xlad90Ydc67sTe5yaIN5viHUgzXq6Bij
LPitmgMhs4sGx7+oY8nyrb9VSzkweGOi9lqtOnp9NR5yy+dAdbrH9bcNJB5n
29tSKRwI/r5HUoKljueO2CWUhXHgl/1ikcxuMp5zcmTLBnJe7T3cZd6jjgZ+
wr8SV3Og0j+xlN2rjhu2/n3nv4wDSXcULgn3q2Mhc2/HGk0O2H+ZJbD3D4lv
bCrWTIgDFQ6rv/UPq+MCucng3dNsMP7pVxg8SuKrOOBzZpgN0pS+c2kT6pht
PKukvZMNgdFaDmun1DFr3vpNam1s+KF5YFXztDpGBs1ecLyJDXuyHioem1FH
u2UhHiU1bChb2zzx7x/JT8+QyfxyNvwHbRfC2w==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0.39},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
  PlotRange->{{0, 9}, {0.4000000000000068, 0.5999999396451989}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.640173998720957*^9, 3.640174116941325*^9, {3.640174156754371*^9, 
   3.64017419834869*^9}, 3.6401742384742327`*^9, 3.640174276552884*^9, 
   3.6401743192878714`*^9, 3.640174539031765*^9, {3.6401746094438353`*^9, 
   3.640174632929351*^9}, 3.640175853397147*^9, 3.6401758993509007`*^9}]
}, Open  ]]
},
WindowSize->{1919, 1037},
WindowMargins->{{Automatic, -7}, {Automatic, 0}},
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (September 9, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 4880, 120, 1082, "Input"],
Cell[5463, 144, 642, 15, 23, "Print"],
Cell[6108, 161, 18248, 309, 275, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)