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

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

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     15228,        362]
NotebookOptionsPosition[     14463,        331]
NotebookOutlinePosition[     14798,        346]
CellTagsIndexPosition[     14755,        343]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", "1"}], "/", 
     RowBox[{"Sqrt", "[", "x", "]"}]}], "]"}], " ", "/", " ", 
   RowBox[{"x", "^", "3"}]}]}]], "Input",
 CellChangeTimes->{{3.683213270757375*^9, 3.683213279924851*^9}, {
   3.683213869842869*^9, 3.683213902127639*^9}, {3.683214036747176*^9, 
   3.683214048317216*^9}, {3.6832140786082277`*^9, 3.683214084450881*^9}, {
   3.68321414613465*^9, 3.683214146652562*^9}, {3.683214367655723*^9, 
   3.683214369708709*^9}, {3.6832144130675373`*^9, 3.6832144253845243`*^9}, {
   3.68321446416663*^9, 3.683214475096218*^9}, 3.683214546371379*^9, {
   3.6832146032640047`*^9, 3.683214605860536*^9}, {3.683214663185094*^9, 
   3.683214707622348*^9}, {3.683214756018661*^9, 3.683214793562089*^9}, {
   3.683214828234497*^9, 3.683214829592606*^9}, {3.683214871668705*^9, 
   3.683214951721538*^9}, {3.683214985257185*^9, 3.683215138450399*^9}, {
   3.683215171841063*^9, 3.683215207996929*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", "0.5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6832143709726954`*^9, 3.683214378512084*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], LineBox[CompressedData["
1:eJwtVnk01Y3zthXx8lLqRWWnZC1kzYzsWbKF636SXShbWrR5KUJI9uXalyS7
LImIshRZIhL3CklSSniVcr9+5/zmnznPH3NmzjzPM2dEnH0t3ZgYGBgYGRkY
/i8fc5sbaP2kp8Xw//Gx3MaZxi8OC8zp7Hxvt2rs4hiOreFXAqdL1fe3vlnT
fPTk+pmLklrwLuwsA2mu74icGm9hJr8uBHaT4aeIsRbDjk8JdCEjuMIEATMD
WVoDC82hTpJmQFzsXDdceKtl4dLd4JRsAZ478mZJUayg3q9YGc9vDQ08auxu
ZjIgdiTrXjvFBlgnXL8r+xnBXyVs2ctCJAgTY5AbPucMy7vOJUvkkwGEGg+W
tVyAiRsTMTaSDpDLKXHmUU0EuKzlt7VbO4LebDBJTysVRuRIWkSyExhAnYP9
50IwceNqXB5xhrYwize84dXQmtGuHMPvCnWHaqoqUppBafBSlQTZDQrOt33d
G9UB99nkZJ9Q3OHJR2tfpav9IAjTxTZUDxj3+jiXbDQC8edTxReFPCFzIDgv
Z54GW0tNc245ecHAHRWqjOkHuDzFtEc43xvM2qb+sHd9hq98DSkNM2dAtd+z
O63lO7gcP7vDQtIHrqTOUxN1V2E0TPTOJw9foHAfYa25ug6SVO8tT639wKlk
KIWjgQEdg/R1Ylb84GVHSnbudhZM5xUJISX7QzVPsWtMPysOVaw/kVAJgMO8
TNsv/uBALuM3v7+PBIC0ggyTmBY33gi5fSmKPxB4vJYU357aiU/2uNfZNAZC
aMa5Ly6afLhWj8ui5PPwbTS1zOPYbjzzdcX3MeUC/KGtpaqsC2NRZH/ZrSMX
YaTvocdElyhOij/4bEW9CHoK/EmxpeJoTXb0WBAKgmu5NsZh1fsxdlW9sKE1
CNpk3ESmBw9g192d0zedLkPq9Zfk0C2yeKTrhcPe/CuQ/sE2qfyVAkoqK9uY
SV4HRyGlkW9NyujY/3eiQOd1KN0ju3CWVQUzvOcHZj2CoXVPRMeYjSqyDfQV
tVj/C2p5t+3CmTTwKmuYqF1yCGQubdBWAdE1cJE/kv8m9O2zn14c00NF5vjL
1X43wZZ08hmFoo9M8Urv3nXeBNKLgWMhJw0wuyKIInchDAJIjl9Mxg1xbJ5Z
aGgwHHam5MuvdxtjcVBR8B+pWzBYldLtEGKCF9mMJiVDbsElyZ/nFw+bIq9k
bG6QfATEHNMc06CY4XEnPnGh6EgwNhUPrSwyR8FvjTcNpyOhevVaMP2nOS5c
P/nBXz0K7i2WSAuZWGAUJa/o2VwUsLnILj5esMBnIzJSXnrRMFw57PRb0ArV
zbTlajdiYTercFWX3glkm5iOpZ64A+7iqlJ9N0/giHf4ImvZHRh1XL8U3XYC
G5+52ZXJxkEgh8qVg+o2aDdVws8wHgfV7ZFfSAK22CL1uzuR9S5kJESpHDtu
i5L+ppelFO/CQctTIkw3bHGFvjhmGXUXTpyPUx6atcX4vcqUQtV4iDX7w26b
Y4e/XMNN1F3jYdHv9La3L+3QqXTk96s78fDf49/zGqt2qKBx+eTabDwUeCyT
qg1I2GvXImiclABf/t5p0DFBQqUc7j5aawKsNZ62rmGwR8pHp+DAhQSgDAjL
Z4nao9cFlslMnUSYPsksdtXFHtkSjXK/fU+EQ3WeS61v7XFd9f16rkASlI/5
UDV/2OPXiUs2VjpJIKhqYfCdg4yv9xVz1CUmgaS3c8DfGmTs6AF3j+YkuMIr
tifYgowN/iOtfLNJMB8nzKPoQcasx1svXFFJhn9rf1w6F0fGu45Z/TKOybAU
m1W6pYCMN7cclqZGJINqdm7pxzoyeh53m8SxZBjMtrMqGiOj0nT7sa3XUsCb
OzWHLEDgvghyYX1hCiiEiz1/tJ9AAdkf9NOvUoCLrz7m2mEC6RdEa18KpcIL
74f+aE7g0u7Gv68ZpkKH5fcyXYLAmVYLLzn/VIheedjX4EHgC/YQobttqfD2
v+PVv64S2FzBd/no51QoHtOw7Q0nsNK6cujHjjS4/uXZff44AvN+GsgXaqZB
oFUB21QqgUlZtEgbtzR48Ff/i/25BEboXJxhjU0DlvVL8K2YwMtzXPCoLg1O
1bCXq1cS6HhIa3k3WzoM0Dp8nZoJtBoZNutVSIdqJWbpo+0E6l89e/86KR1O
hdtUlncRqCqyhUUhNB2e64QL3+8lULqD4vC+JB2KBKsSFQcJFPRWehT/Oh18
wuwEzd8QyM3ds0P3dzrsEffuZBgjkLnWxWdFPAPu2JnHG0wQuEpa7yoyzQD2
iOUgyUkCP23Ei9ldyAB+vTf+2VMEjucfuL4tOwM8lXndH84Q+MqwbbSxMwP2
F1/R8Jgl8OkXkuKZbxkQ9yql79FHAh/Gf4/Zy0+B2Yina2VzBBapRM690qZA
TaN8uN4nAtPGhXX+9aKAuQAbhm7i6JCGzIMJFBD38/votomDJc3Xph5TwEk9
5/DSZn3Ay4+WiTMUOPpgaXL/Jnb1Cy7T48wEkbW1eI7NfrY7/2H7TzkTWL5F
L2V8IPBYY7lzsUMmMA5MZ72bJlDzlH4z6VYmPLfOVeh5T6A8C/UfjspMGPk8
r+ZLI1D0/vmAptFMcBC5ot8xTiCvGWfvWcYseCVU+27wLYGsPwr2CR3Igqvm
DZeSN/f5K0UztN8yC05wByZvf03ggubQeMiVLLh37vE9wz4Cae+9VRQLskCD
l8Sv/pLAwXDm+JmeLDCaEbWc6yCwvv+QgYFgNkxGHE35d5Pv2E8LhjL62TDK
yux1q4FAd6Z7x3h8skGrm6XDsobAXUq7zd41Z0Pmr/XvGpv6efwypKReLgfG
pOPmL93Z1P+og3TJ0RwoOVv1+1kEgQkzGqUUmxyY1TXqooYQ6P1npSzkeg4Y
Vj3vDj5H4G55ryrjVzmgR6zLJFoTGK5hcEhrKgfKeUOnvEw2/WEgXqOwmgMj
Lqzkf3Q3/eBIfbhTMBfePY81Wjm0qd94ywba2Vzo+L4uS+UicGxFveUcZx4U
DY+rC7eSUZ+JD91F8sAxme9kYy0Zq7lWWu2U8+C8nICzygMyRu2raDtyMg+m
eIamx5PIqE4S62Aty4O6w/LP5zzJmNbE0Zthkg86RL19PCcZ7W6Mj7XfLgA7
Uq8br4E9ck9KynjkFkA+h1mSgJo9dmv6X2OvL4Cp2UDGHdL2qL66RdhiqgAa
4wISx7nscbenvBtVtRAuRoipTw6TkGoWurj2oRAqua28uZxJ6Cqwn0UO70G4
w5PiJ+ft0LfqnGzq8n2gTI5LZafb4FLcmy5Gxgr40jXDyE+ywqYzVTCzqwLu
M6aGzhhb4S3D6LoOmQogqdEzGrSscA/D0YLbdhWQL6tRflncCvV8y4J3VlZA
rt7FEfdvltgjeTQjUb4ShPp+lU1FWqLwFn7LYmoleKpzfr3UboFdTzta+jSr
4dc3fkYBC3Ms6vk9E2NQDQvzJyaN9M0xbOQQu4llNURdd6aHaJjj0S9Z1l0e
1dBldOsru6Q5NvFd/NQaXw06rBsWG6vHsdJ3347quWq4/OCs7rvjxzF1b4R7
YmINqEqd6IzkNEPPICNO0sJD6J0S/FFUZ4wlu3lOOqw+hARWffXtRca40Dxa
6sJQC8+dyvsjk4zRh+m0iQ9vLcDEcldmoDEG3g6/fUOzFnQdP6zaKhpjcGb7
tvLoWkid9nvKWXMMk54e2cosWwe6g7cGjj42wqfbDtFLz9aDyB6e8eUFA9xv
rVAfdakeYmrudrFSDTAuS8739I168NGTqZTsM0BHRWmaWFo9JCwYGkRUGeAG
Id6S/qweCtcTA99eMED1yl3BEbsbQKI3dqyE2QAf2qxvbL7AsP7oYUK7hD4W
5T/bEJBohIsG5hmVkbroF2b9HuQbYZxen6p7XRc1PGbaXdUaIfb80NJkgC72
H2CJLDdtBMO1jZxDhC7+rNLZcfRCIzyQ3yWiJq+LJq1t+zw7G0GhUSWv540O
/hhvNa/3fAzpf5xtqdI6iLua86zKm0DmlsULnQVtZEna6avX0AT+nzPH56e0
sWuHj4ZKWxNE2Tf5pr7VxuM8QkMCb5ogkDTHxNqpjQ5/hWyZ+tMEPWrHDQ7m
aeMVJr3TfqbN4OrMUFJL0sa6rz2yMQvNYLLYM0DqRZTtHG/oONACS4cN29Zv
Aw6h1df7X1vBK1Q+4HGuBp5h9x4cVmgDE4k/pk3Rqvhy1LaZK7YdnnP1+vTW
KaOVvt37mZlnwO0e5LSDpIiHc27b5oh3wPa5JM36gIM4uZEwdDq4E2Y5PXSu
WsvjB6O+/F3tXeA6H2nC6ieDlWm0oAGRFyDC8za2sEYKCyOYI6UuvwSBeIoX
C3kfrrjYz7s/7oGKjAfW6WckkEM33LLqn1eb98xW4sNdMbzK/eGv90QfzPZ0
xqixieJfT6QZRkz7gVrK632mXBiPXDj+p/1XP0xzvFjIbhJESkF0vhhlAERv
FtlqRO5BhxNKvduMB4H7x7Scq4sA1g67JTxZHYRWqcG6gGt8qNZTyTSb/Bqo
rD5br0ztQmE995UE3SFos601vGG6E5WVlO8+nB0CgfUVdo+VHUhbiunODxuG
rPfpWqdat+OCokUY/6E30KatguQYHpT8LDvP+PoNfE8rH60N58Zn4ucH/UJG
4Haq75wf0994Z2jYxVJ8FHz9J3xttTlx0ar1LtOzUagq5qk+XMKB1Sd26qj5
vwWuF8HVUtvZMb/3RubU9jEwKp0zolWx4X+dxJXtbWOwPLW3XM+cFSfvtqxw
+7yD9nrV6J9cW3F1QIM/lGscOO9tvNZeY0G/RNHWoKZxGGp/qjhPZcZ/ekW5
ZxwmoCRpa6PsPBNaDZf+3rMxASlO/KaF25hw6VTumfESKgyf5zcbl2DEFseK
MC4TGrg7vMlcdWDAxr4zxlQzGnRvC+1OJzNgndYBnnILGsya5c2CHQOW7imk
mNrSILj5449oCwZMH02viXamwdl1IYtDugx43jz8PXsQDVLNYl/el2JAaTx5
hLWIBj/8T8zEz9NBskKAeaSYBhs9Yua7ZuggKjjaVfSABkuNo5EZE3Tg+21p
rV9FA6MXp10f9NNha4Ohd1gTDVZOWxZM1tHhvbxSGvNrGtz6XPs05wYdxrO+
O7wepsG03VwLXqPDKGeFeP4oDfpezYdMXaDDq89SlUepNCinTJtJe9Gh6Z5Q
Z8gnGuznM1sfMKdDw66JaIsFGujqFG/99xgdasLSLUUWaXBufrJfXpcOJS47
qa3LNDg8F5SdqEKHwsHB/Lj/aEBlzs0zOkiHHO04T8dfNPCXUHJmkKYDpdJU
XuHP5vw2KRMN4nRIEeJYodNpYDYlx3tOkA7/A2yAmxs=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  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, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None},
  PlotRange->{{0, 0.5}, {0., 115.64857483664787`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.683214378844803*^9, {3.6832144156551037`*^9, 3.683214426740994*^9}, {
   3.683214466652931*^9, 3.6832144763934402`*^9}, {3.6832145358370123`*^9, 
   3.683214547668614*^9}, 3.683214607004393*^9, 3.6832146654241533`*^9, {
   3.6832146962444983`*^9, 3.683214700625085*^9}, {3.6832147669982233`*^9, 
   3.6832147949565573`*^9}, 3.6832148308864117`*^9, 3.683214889194956*^9, {
   3.683214932363161*^9, 3.68321495395757*^9}, {3.683214989532874*^9, 
   3.6832151396578608`*^9}, {3.683215179761444*^9, 3.6832152091197777`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", 
   RowBox[{"x", " ", "\[Rule]", " ", "0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6832148195824003`*^9, 3.683214824164549*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.683214824461228*^9, 3.683214832128644*^9}, 
   3.6832148904677477`*^9, {3.683214934813483*^9, 3.683214956386396*^9}, {
   3.683215017596958*^9, 3.6832151406106377`*^9}, {3.683215185235607*^9, 
   3.683215200421543*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", " ", "=", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Table", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"2", "^", "i"}]}], ",", " ", 
         RowBox[{"N", "[", 
          RowBox[{"f", "[", 
           RowBox[{"1", "/", 
            RowBox[{"2", "^", " ", "i"}]}], "]"}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"i", ",", " ", "1", ",", " ", "n"}], "}"}]}], 
      "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"n", ",", " ", "1", ",", " ", "10"}], "}"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.683213281504025*^9, 3.68321336409263*^9}, {
   3.6832134308264723`*^9, 3.6832135030974703`*^9}, {3.68321392840974*^9, 
   3.683213928656291*^9}, 3.683214558388567*^9, {3.6832148055377913`*^9, 
   3.683214807223092*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"int", "[", 
   RowBox[{"i_", ",", " ", "h_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"InterpolatingPolynomial", "[", 
    RowBox[{
     RowBox[{"data", "[", 
      RowBox[{"[", "i", "]"}], "]"}], ",", " ", "h"}], "]"}], " ", "//", " ", 
   "N"}]}]], "Input",
 CellChangeTimes->{{3.683213376089913*^9, 3.683213414838382*^9}, {
  3.683213480413106*^9, 3.683213487134054*^9}, {3.683213522852931*^9, 
  3.683213523379961*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"points", " ", "=", " ", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"i", ",", " ", 
      RowBox[{"Re", "[", 
       RowBox[{"int", "[", 
        RowBox[{"i", ",", " ", "0"}], "]"}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"i", ",", " ", "1", ",", " ", "10"}], "}"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.683213517555332*^9, 3.683213551888112*^9}, {
  3.683213614699768*^9, 3.683213615827732*^9}, {3.683213936872109*^9, 
  3.683213937958345*^9}, {3.683214569294993*^9, 3.683214571248109*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1.9449338754737135`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "15.377982378812712`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "64.02444101012904`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "153.61763596802163`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "169.57945009654713`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", 
     RowBox[{"-", "4.614906143094936`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", 
     RowBox[{"-", "94.43331923840552`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "0.5986574929762079`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "9.771455010854806`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", 
     RowBox[{"-", "1.1623317987254749`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.683213552145316*^9, 3.683213616439742*^9, {3.683213877283555*^9, 
   3.6832139382133007`*^9}, 3.683214042729588*^9, 3.683214088132094*^9, 
   3.683214151070178*^9, 3.683214438584077*^9, 3.6832144811945*^9, {
   3.6832145634022837`*^9, 3.6832145716045313`*^9}, 3.683214812132782*^9, {
   3.683214937960658*^9, 3.683214958488968*^9}, {3.683215019907034*^9, 
   3.68321514283753*^9}, {3.683215202793262*^9, 3.68321522241322*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", "points", "]"}]], "Input",
 CellChangeTimes->{{3.683213601480364*^9, 3.6832136201453857`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1., 1.9449338754737135`}, {2., 15.377982378812712`}, {3., 
      64.02444101012904}, {4., 153.61763596802163`}, {5., 
      169.57945009654713`}, {6., -4.614906143094936}, {
      7., -94.43331923840552}, {8., 0.5986574929762079}, {9., 
      9.771455010854806}, {10., -1.1623317987254749`}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  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->{},
  PlotRange->{{0, 10.}, {-94.43331923840552, 169.57945009654713`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.683213620524157*^9, 3.683213880453622*^9, {3.683213912494602*^9, 
   3.683213939084776*^9}, 3.683214093656438*^9, 3.683214450139113*^9, 
   3.683214483340865*^9, 3.683214575987134*^9, 3.68321481411589*^9, {
   3.6832149395760937`*^9, 3.6832149597511797`*^9}, {3.683215023172522*^9, 
   3.683215143953586*^9}, 3.683215223293007*^9}]
}, Open  ]]
},
WindowSize->{958, 1059},
WindowMargins->{{0, Automatic}, {2, Automatic}},
FrontEndVersion->"10.3 for Linux x86 (64-bit) (October 9, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1035, 19, 32, "Input"],
Cell[CellGroupData[{
Cell[1618, 43, 253, 6, 32, "Input"],
Cell[1874, 51, 6872, 123, 233, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8783, 179, 223, 5, 32, "Input"],
Cell[9009, 186, 270, 4, 32, "Output"]
}, Open  ]],
Cell[9294, 193, 1033, 25, 187, "Input"],
Cell[10330, 220, 465, 12, 32, "Input"],
Cell[CellGroupData[{
Cell[10820, 236, 638, 15, 99, "Input"],
Cell[11461, 253, 1334, 32, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12832, 290, 134, 2, 32, "Input"],
Cell[12969, 294, 1478, 34, 224, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)