(* 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[     34246,        777]
NotebookOptionsPosition[     33477,        749]
NotebookOutlinePosition[     33851,        765]
CellTagsIndexPosition[     33808,        762]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6882875174937663`*^9, 3.6882875225424643`*^9}, 
   3.6882877884483643`*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.688287798229272*^9, 3.68828779826044*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.688287619128022*^9, 3.688287647658423*^9}, {
  3.68828779006423*^9, 3.688287790666162*^9}, {3.6882998193198013`*^9, 
  3.6882998371326857`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{
  "DataSet1", ",", " ", "DataSet2", ",", " ", "DataSet3", ",", " ", 
   "DataSet4", ",", "DataSet5", ",", "DataSet6", ",", " ", "DataSet7", ",", 
   " ", "DataSet8", ",", " ", "DataSet12", ",", " ", "DataSet13", ",", " ", 
   "DataSet14", ",", " ", "DataSet15", ",", " ", "DataSet16", ",", " ", 
   "DataSet17", ",", " ", "DataSet18", ",", " ", "DataSetFull", ",", " ", 
   "Plot1", ",", " ", "Plot2", ",", " ", "Plot3", ",", " ", "Plot4", ",", " ",
    "DataSet1b", ",", " ", "DataSet2b", ",", " ", "DataSet3b", ",", " ", 
   "DataSet4b", ",", "DataSet5b", ",", "DataSet6b", ",", " ", "DataSet7b", 
   ",", " ", "DataSet8b", ",", " ", "DataSet12b", ",", " ", "DataSet13b", ",",
    " ", "DataSet14b", ",", " ", "DataSet15b", ",", " ", "DataSet16b", ",", 
   " ", "DataSet17b", ",", " ", "DataSet18b", ",", " ", "DataSetFull", ",", 
   " ", "Plot2", ",", "DataSetFullb", ",", "Dimensions2", ",", " ", 
   "DataSet9"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"path", "=", "\"\<C:\\\\Users\\\\rottreat\\\\\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"path", "<>", "\"\<\\\\Desktop\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FileNames", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Data", "=", 
   RowBox[{"Import", "[", "\"\<Menthol sl combined data.xlsx\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Data", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DataPoints", "=", 
    RowBox[{
     RowBox[{"Length", "[", 
      RowBox[{"Data", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "]"}], "-", "1"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"sheet", " ", "one"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{"IMelting", ",", " ", "Size", ",", " ", "ISize"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"IMelting", "=", 
   RowBox[{"List", "[", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "3", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "4", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "5", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "6", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "7", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "8", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "11", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "12", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "13", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AppendTo", "[", 
    RowBox[{"IMelting", ",", " ", 
     RowBox[{"Data", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", " ", "14", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Size", "=", 
   RowBox[{"List", "[", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "2", ",", " ", "4"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "3", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "4", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "5", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "6", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "7", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "8", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "11", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "12", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "13", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AppendTo", "[", 
    RowBox[{"Size", ",", " ", 
     RowBox[{"Data", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", " ", "14", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"DataSet1", "=", 
    RowBox[{"Partition", "[", 
     RowBox[{
      RowBox[{"Riffle", "[", 
       RowBox[{"IMelting", ",", " ", "Size"}], "]"}], ",", " ", "2"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DataSetFull", "=", 
   RowBox[{"Partition", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", "DataSet1", "]"}], ",", " ", "2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Dimensions", "[", "DataSetFull", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"squareB", "=", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Green", ",", " ", 
       RowBox[{"Polygon", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".01"}], ",", 
            RowBox[{"-", ".01"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".01", ",", 
            RowBox[{"-", ".01"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{".01", ",", ".01"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", ".01"}], ",", ".01"}], "}"}]}], "}"}], "]"}]}], 
      "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"imagesize", "=", 
   RowBox[{"{", 
    RowBox[{"600", ",", "400"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Plot1a", "=", 
    RowBox[{"ListPlot", "[", 
     RowBox[{
      RowBox[{"{", " ", "DataSet1", "}"}], ",", " ", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", "0"}], "}"}]}], ",", " ", 
      RowBox[{
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", " ", "1.2"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"0", ",", " ", "162"}], "}"}]}], "}"}]}], ";", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"PlotMarkers", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"squareB", ",", " ", "0.018"}], "}"}]}]}], ",", " ", 
      RowBox[{"Frame", "\[Rule]", " ", "True"}], ",", " ", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<inverse \[CapitalDelta]T / \!\(\*SuperscriptBox[\(K\), \(-1\)]\) \
 \[LongRightArrow]\>\"", ",", " ", 
         "\"\<Pore size / nm   \[LongRightArrow]\>\""}], "}"}]}], ",", " ", 
      RowBox[{"LabelStyle", "->", 
       RowBox[{"{", 
        RowBox[{"18", ",", 
         RowBox[{"FontFamily", "\[Rule]", "Arial"}]}], "}"}]}], ",", " ", 
      RowBox[{"ImageSize", "\[Rule]", " ", "imagesize"}], " ", ",", " ", 
      RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Plot2", "=", 
    RowBox[{"ListPlot", "[", 
     RowBox[{"DataSetFull", ",", " ", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Magenta", ",", " ", "Large"}], "}"}]}], ",", "  ", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", "0"}], "}"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"calculating", " ", "KcCylindrical"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"delH", "=", " ", 
   RowBox[{"11.88", "*", 
    RowBox[{"10", "^", "3"}]}]}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"J", " ", "mol"}], "-", "1"}], "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tm", "=", "309.15"}], 
  RowBox[{"(*", "K", "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dens", "=", "0.890"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"g", " ", "cm"}], "-", "3"}], "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v", "=", 
   RowBox[{"175.58", "*", 
    RowBox[{"10", "^", 
     RowBox[{"-", "6"}]}]}]}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"m3", " ", "mol"}], "-", "1"}], ",", " ", 
    RowBox[{"molar", " ", "volume"}]}], "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gammasl", "=", 
    RowBox[{"24", " ", "*", 
     RowBox[{"10", "^", 
      RowBox[{"-", "3"}]}]}]}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"J", " ", "m"}], "-", "2"}], "*)"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"KcCylindrical", "=", 
   RowBox[{"2", "*", "v", "*", "gammasl", "*", 
    RowBox[{"Tm", "/", "delH"}]}]}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"m", " ", "K"}], " ", "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", 
   RowBox[{"KcCylindrical", "/", 
    RowBox[{"10", "^", 
     RowBox[{"-", "9"}]}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FindFit", "[", 
   RowBox[{"DataSetFull", ",", 
    RowBox[{"c", "+", 
     RowBox[{"m", "*", "x"}]}], ",", "c", ",", "x"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Fit1", "=", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"DataSetFull", ",", 
     RowBox[{"c", "+", 
      RowBox[{"m", "*", "x"}]}], ",", "c", ",", "x"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Fit2", "=", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"DataSetFull", ",", 
     RowBox[{"c", "+", 
      RowBox[{"k", "*", "x"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", " ", "c"}], "}"}], ",", "x"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Fit1", "[", 
  RowBox[{"{", 
   RowBox[{
   "\"\<ParameterTable\>\"", ",", " ", "\"\<RSquared\>\"", ",", " ", 
    "\"\<BestFitParameters\>\""}], "}"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Fit1b", "[", 
   RowBox[{"{", 
    RowBox[{
    "\"\<ParameterTable\>\"", ",", " ", "\"\<RSquared\>\"", ",", " ", 
     "\"\<BestFitParameters\>\""}], "}"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Fit1", "=", 
   RowBox[{"Normal", "[", "Fit1", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Fit2", "=", 
   RowBox[{"Normal", "[", "Fit2", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"line1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"Fit1", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "0.09"}], ",", "1.15"}], "}"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "0"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"line2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"Fit2", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "0.09"}], ",", "1.15"}], "}"}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "0"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"Plot1a", ",", "  ", "line1"}], " ", "]"}]}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<graph.png\>\"", ",", " ", "a"}], "]"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<data.csv\>\"", ",", " ", "DataSetFull"}], "]"}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.688287800454862*^9, 3.688287818983264*^9}, {
   3.6882878523992558`*^9, 3.688287937500558*^9}, {3.688287998374217*^9, 
   3.6882880224403315`*^9}, {3.6882881151941338`*^9, 3.688288152995058*^9}, {
   3.688288463561517*^9, 3.6882885032862887`*^9}, {3.6882885504210396`*^9, 
   3.6882885753745594`*^9}, {3.6882886558956137`*^9, 3.688288672947234*^9}, {
   3.688288938435834*^9, 3.6882890552086325`*^9}, {3.6882891310498176`*^9, 
   3.688289384246297*^9}, {3.6882894240562134`*^9, 3.6882896613477783`*^9}, {
   3.6882991018917875`*^9, 3.6882991124875712`*^9}, {3.688299302503014*^9, 
   3.6882993466556168`*^9}, 3.6882993798535404`*^9, {3.688299778739504*^9, 
   3.688299887950075*^9}, {3.688299935424429*^9, 3.6882999793415956`*^9}, {
   3.6883000549046416`*^9, 3.68830024572436*^9}, {3.6883003335303*^9, 
   3.6883004259598866`*^9}, {3.6883004617620344`*^9, 
   3.6883004743096867`*^9}, {3.6883005094366903`*^9, 3.688300590781748*^9}, {
   3.688300624567542*^9, 3.688300625877606*^9}, {3.6883007547728796`*^9, 
   3.688300832938017*^9}, {3.688300971198535*^9, 3.6883009892600164`*^9}, 
   3.688301294064948*^9, {3.6883016416716766`*^9, 3.6883016549860783`*^9}, {
   3.688301783664327*^9, 3.6883019522253275`*^9}, {3.6883020109125643`*^9, 
   3.6883020541559534`*^9}, {3.688302098009022*^9, 3.688302159882227*^9}, {
   3.6883023888243246`*^9, 3.688302470557192*^9}, {3.6883025185428286`*^9, 
   3.6883025194353447`*^9}, {3.6883026261000166`*^9, 3.688302662022585*^9}, {
   3.6883027986696773`*^9, 3.6883028454387074`*^9}, 3.688302963646309*^9, {
   3.6883033521781683`*^9, 3.688303406785814*^9}, {3.6883034829083147`*^9, 
   3.6883034940741215`*^9}, {3.6883036691239243`*^9, 3.688303688459526*^9}, {
   3.688303838291905*^9, 3.6883039335875096`*^9}, {3.688304279061425*^9, 
   3.688304662180197*^9}, {3.688304718204189*^9, 3.688304765039443*^9}, {
   3.688304807003301*^9, 3.6883048334067807`*^9}, {3.688304908862713*^9, 
   3.6883049147544312`*^9}, {3.6883050154237957`*^9, 
   3.6883050374562836`*^9}, {3.6883051694444776`*^9, 3.688305170751326*^9}, {
   3.688305201248607*^9, 3.688305220036948*^9}, {3.688305268624115*^9, 
   3.6883052939035835`*^9}, {3.6883054649831057`*^9, 3.688305538749022*^9}, {
   3.688305583857565*^9, 3.68830562295897*^9}, {3.6883056712164073`*^9, 
   3.6883057309937553`*^9}, {3.688306061262611*^9, 3.6883061139816484`*^9}, {
   3.6883062109760284`*^9, 3.6883062515181484`*^9}, {3.688306282119624*^9, 
   3.688306282907916*^9}, {3.6883063857027483`*^9, 3.688306451095992*^9}, {
   3.688363434134477*^9, 3.6883635384266305`*^9}, {3.688363627381874*^9, 
   3.6883637514628*^9}, {3.688363788408677*^9, 3.6883638492700167`*^9}, {
   3.6883642667950506`*^9, 3.688364281317559*^9}, {3.688364313901411*^9, 
   3.6883643365405865`*^9}, 3.688364424956803*^9, {3.688364493875243*^9, 
   3.688364495257967*^9}, {3.6883645690003176`*^9, 3.6883645920740366`*^9}, {
   3.6883646550700045`*^9, 3.68836465560122*^9}, {3.688364881487153*^9, 
   3.6883649022289896`*^9}, {3.688364965255229*^9, 3.688364979808985*^9}, {
   3.6883650120266495`*^9, 3.688365030705142*^9}, {3.6883656648208055`*^9, 
   3.6883657039677143`*^9}, 3.688366178110219*^9, {3.6883665929908915`*^9, 
   3.688366731462497*^9}, {3.6883672917615967`*^9, 3.6883673379012218`*^9}, {
   3.6883683239722075`*^9, 3.6883684276846523`*^9}, {3.688369733305111*^9, 
   3.6883697687505474`*^9}, {3.6883703221025925`*^9, 3.688370340934537*^9}, {
   3.688370389499685*^9, 3.6883704057340517`*^9}, {3.6883704514120045`*^9, 
   3.688370507961113*^9}, {3.688370547789688*^9, 3.6883706225007563`*^9}, {
   3.6883710714007397`*^9, 3.6883710843624315`*^9}, {3.6883711469609814`*^9, 
   3.688371218244831*^9}, {3.6883730105251837`*^9, 3.688373063491455*^9}, {
   3.6883731163441925`*^9, 3.6883731521107855`*^9}, {3.688379990347289*^9, 
   3.6883800163038797`*^9}, {3.688383625134617*^9, 3.6883836263430133`*^9}, {
   3.6883908452627773`*^9, 3.6883908548120785`*^9}, {3.688390924046464*^9, 
   3.6883910469676886`*^9}, {3.6883911302470665`*^9, 
   3.6883911710743465`*^9}, {3.688391204813611*^9, 3.688391240207515*^9}, {
   3.688391275256966*^9, 3.6883913648940535`*^9}, {3.688391422273922*^9, 
   3.688391455509622*^9}, {3.6883914877833185`*^9, 3.6883915216474247`*^9}, {
   3.6883915533625374`*^9, 3.6883915840359387`*^9}, {3.6883916425997624`*^9, 
   3.6883917346275167`*^9}, {3.6883919484979453`*^9, 
   3.6883919486381383`*^9}, {3.6883919802672358`*^9, 3.6883920271941614`*^9}, 
   3.6883924117397118`*^9, {3.6883924629449854`*^9, 3.6883925028210297`*^9}, {
   3.688447613333305*^9, 3.688447756034956*^9}, {3.688447859586122*^9, 
   3.6884478725776443`*^9}, {3.6884479047781425`*^9, 3.688447946934168*^9}, {
   3.688545305386114*^9, 3.688545309941304*^9}, {3.6885453459218593`*^9, 
   3.688545348856864*^9}, {3.688545438225724*^9, 3.688545471358799*^9}, {
   3.6885455077818413`*^9, 3.6885455300472293`*^9}, {3.6885455693187237`*^9, 
   3.688545577423669*^9}, {3.688711578799461*^9, 3.6887116557662144`*^9}, {
   3.688711703029791*^9, 3.68871170383638*^9}, {3.688711747597251*^9, 
   3.688711769558736*^9}, {3.6887118621768312`*^9, 3.6887118713930387`*^9}, {
   3.688711922800881*^9, 3.68871198610054*^9}, {3.6887120258704557`*^9, 
   3.688712067586536*^9}, {3.688712111347407*^9, 3.688712135240409*^9}, 
   3.6887122051958923`*^9, {3.688712442894546*^9, 3.688712463858048*^9}, {
   3.6887204157654815`*^9, 3.68872044229327*^9}, {3.68872082462883*^9, 
   3.6887208288504705`*^9}, {3.68872086322042*^9, 3.688720912648432*^9}, {
   3.688720942987879*^9, 3.6887209710268292`*^9}, {3.6887210591392756`*^9, 
   3.688721073028675*^9}, {3.6887211450445385`*^9, 3.688721274812049*^9}, {
   3.6887213420439315`*^9, 3.688721343775334*^9}, {3.6887213989138412`*^9, 
   3.688721442838384*^9}, {3.6887214747887516`*^9, 3.6887214911777773`*^9}, {
   3.688721603126155*^9, 3.6887216641454873`*^9}, {3.6887217016400237`*^9, 
   3.688721761361353*^9}, {3.6887220008831725`*^9, 3.6887220080621333`*^9}, {
   3.6887220506099405`*^9, 3.688722054212594*^9}, {3.6887220898391085`*^9, 
   3.6887221310585365`*^9}, {3.6887221886774487`*^9, 3.688722207076107*^9}, {
   3.68872225296364*^9, 3.688722351854106*^9}, {3.688722389190632*^9, 
   3.688722445490468*^9}, {3.688722567828581*^9, 3.688722619992175*^9}, {
   3.688722814539954*^9, 3.6887229081725144`*^9}, {3.6887229557759385`*^9, 
   3.6887229668349943`*^9}, {3.6887230818927064`*^9, 3.688723148876767*^9}, {
   3.6887232196250677`*^9, 3.688723223073848*^9}, {3.688723311461811*^9, 
   3.6887233189071083`*^9}, {3.688723416120467*^9, 3.6887234414757533`*^9}, {
   3.688723480988059*^9, 3.6887235177586317`*^9}, {3.688723710747488*^9, 
   3.6887237115951767`*^9}, {3.688723808668294*^9, 3.6887238667999296`*^9}, {
   3.688723911477003*^9, 3.6887240545234814`*^9}, {3.688724167162797*^9, 
   3.6887241736866884`*^9}, {3.6887242074391656`*^9, 
   3.6887242097657113`*^9}, {3.688724330994714*^9, 3.688724356094228*^9}, {
   3.6887245030210285`*^9, 3.688724562357351*^9}, {3.6887246655226164`*^9, 
   3.6887246803626175`*^9}, 3.688724731986083*^9, {3.688724768664454*^9, 
   3.688724786653043*^9}, {3.6887249015197973`*^9, 3.6887249198300095`*^9}, {
   3.688738745735669*^9, 3.6887388023435884`*^9}, {3.6887388564222884`*^9, 
   3.688738875514761*^9}, {3.6887389221392345`*^9, 3.6887389368404427`*^9}, {
   3.6887389812624035`*^9, 3.6887390189767866`*^9}, {3.688739056113082*^9, 
   3.688739083622063*^9}, {3.688739121906722*^9, 3.6887391437978992`*^9}, {
   3.688739192631109*^9, 3.688739205100253*^9}, {3.6887397147664337`*^9, 
   3.6887399795435085`*^9}, {3.6887400239295545`*^9, 3.688740036109717*^9}, {
   3.6887400762128115`*^9, 3.688740135951749*^9}, {3.688740209547394*^9, 
   3.688740374488108*^9}, {3.688740452501833*^9, 3.6887404704029465`*^9}, {
   3.688740502903061*^9, 3.688740539069711*^9}, {3.6887405697110357`*^9, 
   3.688740654019286*^9}, {3.688740691479761*^9, 3.6887407927676363`*^9}, {
   3.6887408257918615`*^9, 3.688740913382936*^9}, {3.6887437905115337`*^9, 
   3.6887438641820693`*^9}, {3.690527536789484*^9, 3.6905275491954165`*^9}, {
   3.6905286682365294`*^9, 3.69052869011878*^9}, {3.690529627330569*^9, 
   3.690529646501217*^9}, {3.6971827950629387`*^9, 3.6971827997530684`*^9}, 
   3.6971828681119747`*^9, {3.6971830615585775`*^9, 3.6971831144038277`*^9}, {
   3.6971831862146616`*^9, 3.697183199265584*^9}, {3.6971832418673496`*^9, 
   3.697183414209834*^9}, {3.6971834824906206`*^9, 3.697183540987853*^9}, {
   3.6971835921359463`*^9, 3.6971836727655516`*^9}, {3.697183726823615*^9, 
   3.697183844229186*^9}, {3.697183880333321*^9, 3.6971839806052237`*^9}, 
   3.69718402673606*^9, 3.697184058165689*^9, {3.6971841431866145`*^9, 
   3.697184166574766*^9}, {3.697184219652424*^9, 3.6971842286801662`*^9}, {
   3.6971843152215023`*^9, 3.697184375235239*^9}, {3.6971844233278637`*^9, 
   3.6971844292718196`*^9}, {3.697184476520748*^9, 3.6971845135261927`*^9}, {
   3.697184591389373*^9, 3.697184681465639*^9}, {3.697184844091949*^9, 
   3.6971848448340893`*^9}, {3.6971871658017483`*^9, 3.697187171833589*^9}, {
   3.6971872423085704`*^9, 3.6971872736473846`*^9}, {3.697284028199695*^9, 
   3.697284107727738*^9}, {3.697284148602441*^9, 3.6972841714572372`*^9}, {
   3.6973580664247103`*^9, 3.69735814133079*^9}, {3.697358581337863*^9, 
   3.6973586020867944`*^9}, {3.6973589507001257`*^9, 3.697358968827907*^9}, {
   3.6973590012145452`*^9, 3.6973590102472343`*^9}, 3.697359047251469*^9, {
   3.697359341460299*^9, 3.6973593613038807`*^9}, {3.697359478788741*^9, 
   3.6973594901609955`*^9}, {3.69735960366514*^9, 3.697359641603854*^9}, {
   3.697361099871812*^9, 3.69736115246076*^9}, {3.697362801791025*^9, 
   3.697362868388706*^9}, 3.6973631042456284`*^9, {3.6973634839771395`*^9, 
   3.6973634882360215`*^9}, {3.6978879945345173`*^9, 
   3.6978880155099325`*^9}, {3.698403814157219*^9, 3.698403814711871*^9}, {
   3.6984038664497705`*^9, 3.6984039575025363`*^9}, {3.6984040797076054`*^9, 
   3.698404079903882*^9}, {3.698404112339306*^9, 3.6984041722231684`*^9}, {
   3.7132557303552856`*^9, 3.713255756979355*^9}, {3.7132559487249985`*^9, 
   3.713256037685446*^9}, {3.713256080805266*^9, 3.7132560951661687`*^9}, {
   3.713256126990633*^9, 3.7132562378581715`*^9}, {3.713256306973764*^9, 
   3.7132563210275517`*^9}, {3.7132563520011554`*^9, 3.713256364710303*^9}, {
   3.7132564080864325`*^9, 3.713256412541226*^9}, 3.71325645202698*^9, {
   3.7132565029436426`*^9, 3.7132565542948484`*^9}, 3.713256587699937*^9, {
   3.71325662932032*^9, 3.713256689455143*^9}, {3.7132567691336365`*^9, 
   3.7132567732261486`*^9}, {3.713256867864622*^9, 3.7132568867247434`*^9}, {
   3.7173124141566095`*^9, 3.717312418435094*^9}, {3.717312468819841*^9, 
   3.717312473480176*^9}, {3.7173125101114655`*^9, 3.717312557686535*^9}, {
   3.7173126527458487`*^9, 3.7173126709623685`*^9}, 3.7173127020202017`*^9, {
   3.7183575145550175`*^9, 3.7183575164738665`*^9}, {3.718357551954177*^9, 
   3.718357563576475*^9}, {3.7210250900474796`*^9, 3.7210250999603496`*^9}, {
   3.721025293475464*^9, 3.7210253632182693`*^9}, {3.7210254840584564`*^9, 
   3.7210254876151295`*^9}, {3.7210267046853046`*^9, 
   3.7210267158981237`*^9}, {3.7210269243614483`*^9, 3.721026939784892*^9}, {
   3.721026991811304*^9, 3.721026997434567*^9}, {3.721639648042314*^9, 
   3.7216396503022175`*^9}}],

Cell[BoxData["219.31538181818183`"], "Output",
 CellChangeTimes->{{3.713256507375*^9, 3.713256555585781*^9}, {
   3.713256631412959*^9, 3.713256655109685*^9}, 3.713256690394536*^9, 
   3.713256777935808*^9, {3.7132568711495686`*^9, 3.7132568870919075`*^9}, {
   3.717312692688789*^9, 3.7173127027340965`*^9}, 3.7173130931885424`*^9, 
   3.7173132018518944`*^9, 3.71835758053411*^9, 3.718357804890267*^9, 
   3.721025119468258*^9, 3.721025382217453*^9, 3.721025489469306*^9, {
   3.7210267087294006`*^9, 3.721026717413925*^9}, 3.7210269410222445`*^9, 
   3.721026997964861*^9, 3.721639662953769*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   StyleBox[
    TagBox[GridBox[{
       {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
       {"c", "1.8831824203755416`", "1.1525672682825987`", 
        "1.6339023952863139`", "0.1333269623464289`"}
      },
      AutoDelete->False,
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}},
      GridBoxDividers->{
       "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, 
        "RowsIndexed" -> {2 -> GrayLevel[0.7]}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      GridBoxSpacings->{
       "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}],
     "Grid"], "DialogStyle",
    StripOnInput->False], ",", "0.9948756968384616`", ",", 
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", "1.8831824203755416`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.713256507375*^9, 3.713256555585781*^9}, {
   3.713256631412959*^9, 3.713256655109685*^9}, 3.713256690394536*^9, 
   3.713256777935808*^9, {3.7132568711495686`*^9, 3.7132568870919075`*^9}, {
   3.717312692688789*^9, 3.7173127027340965`*^9}, 3.7173130931885424`*^9, 
   3.7173132018518944`*^9, 3.71835758053411*^9, 3.718357804890267*^9, 
   3.721025119468258*^9, 3.721025382217453*^9, 3.721025489469306*^9, {
   3.7210267087294006`*^9, 3.721026717413925*^9}, 3.7210269410222445`*^9, 
   3.721026997964861*^9, 3.721639663664443*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      GeometricTransformationBox[InsetBox[
        GraphicsBox[
         {RGBColor[0, 1, 0], PointSize[0.019444444444444445`], 
          AbsoluteThickness[1.6], 
          PolygonBox[{{-0.01, -0.01}, {0.01, -0.01}, {0.01, 0.01}, {-0.01, 
           0.01}}]}], {0., 0.}, Automatic, Scaled[{0.018, 0.018}]], {{{
       0.09090909090909091, 24.}}, {{0.15625, 38.}}, {{0.17857142857142858`, 
       42.}}, {{0.22727272727272727`, 50.}}, {{0.25641025641025644`, 62.}}, {{
       0.425531914893617, 99.}}, {{0.25641025641025644`, 54.}}, {{
       0.26666666666666666`, 52.6}}, {{0.16666666666666666`, 43.}}, {{
       0.11627906976744186`, 25.6}}, {{0.09090909090909091, 
       20.}}}]}, {}}, {}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVjnk4lAkcgDVaJTZSmyuJEjZkRmwov9/q3IYYR2xaxjhC+LTUJJFomhTy
yOowRFT2aRwdJornm1bUJkcK0yTDsHK0NfOxOfZJa/94n/fP9zXhEF5hNBUV
Ffd5/nfH0QnVrUsekD8VCdZ/lNLFY7M92Z5KERkVsJ6W10QXq56s1w+ViMhz
etXvHKvpYgc+b+P5myKyJbcxj8ejiwWXdAPeuIpId/4YzciWLo6sdb57JKmG
9IrbLGPybMW02XR25Yd7ZM3p8o3eQTZiu+QVDcbt1WTXC12d54stxd6NZeVC
wzKSQ/SG3xo3ELswlnZaz2SRacVfuLWO/5DxNO6SiZR0IH58NXrqiRaWsnhb
jfZcB/rxw+YHiLX4s1zd0K29EtJ07AxcLG0wIeD7okhbERhFuOilDW1CRYdH
deqbemDvGv7N9YoTmg4OJH7lP4b+wjiH7nHAxtgsoc/wEzifHjRZIXFFT6d+
7i8az6BpYipw/7kdyNWYUM1Z0wKMoZdpR2x2Y17MVLHkWBtMv8uqUtdkYjuf
dWispQMClz+K4de6o4dJcfbEiU7QtgwzAA9PFDTszV22/jVknM2SHn7EQtmM
Jyfjbhd08mJD9LW8sXCuxSmT3QPP+OK45JM+yCq9KhtRSiDLvGXnvh5fTNWW
Z3aUSUHlxc6ScaYfJqdmGLR69EKmbYh/bZ0/xuWcTljb9w5GGJslM0v3Y1/E
dPfCbBkoHVN6p1IDsEQhoxXn9MOffSd+j5IeQKfK+CW79w1A/bZVr1ZYB6J2
x7b8Gis5BFRYnUoSBOHA462LOyblECqdTbqdyEaFbsJcVesg/Np/KZFrF4xh
hDT06vUhyNzJM5ONBmN3ftQdeuRfcOHfNvsFeRxMN/0hLRuH4T2DdfaUWwha
pVg7XlZ/DxZ1G6F+OgSd33qzhW3vIeFaYFluSShmCEQaZ8pGQH9xM/Opfxh2
Wm8r1IwehRtkhp9INRz91mre898+BvwZ3g3VhnCUjMxVspaOAyutz08j6iCS
VSaGvq/HwfwQv7ZyeQQOSVM1Vt/+AL7dEQHVLRGo2q0uvxj/N0Tm3OREcyMx
2L59S7vbR+h6sUp4hh6FZvlPFn1n+gncIwdLt4xE4VDzYO2i0U9Q4aOmUpF7
CBUVxlNBbAWE/BFclMSMxmi2/LROkwIWnNQvWTgdjQXLG/Y8N1eCsMDEy7Ik
BkenazqHcpVQ6cTZIfSPxU3Nja1dn5WQb/FVMKpKYOE6De28aSVsWDfgPKxG
oFq6l5fXrBJI40apXJ3AHhjobvuihOGVfL1eLQKP183Jni6kwP4brbw2QwLF
QkeqToeC1wOrz9+zI5B5sWplkQ0FWgUuickhBN5XfvY/YEtBWf4avePhBK7y
dCkwYFDgkEt7cDSSwI+arcaX7CkIymieJAgCc86MWeRsoUDI3RvHSSKwO9HM
OW0PBUyfwIO7LhIIkuhkdKNA5oFq2/MJLHe4T865UxDPNL2BVwhMnHDdnsSi
4KrrsNzx2nwvhu2e4E/BmG1soNVtAnktty4w9lOQYuX5xaJyvm/56aUigAId
C4bA7A6B5HDyvpggChyNP79Z/YBAix1NlzcEU9BqIDlm+HD+r1Tz7SiHAvbK
h7p6DQTOLPAxKg+lYHKZQLRCTCCHXRAUHk7B2W9TfJc1EvgfyDNVxw==
      "]]}}},
  AspectRatio->1,
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox["\"Pore size / nm   \[LongRightArrow]\"", TraditionalForm], 
     None}, {
     FormBox[
     "\"inverse \[CapitalDelta]T / \\!\\(\\*SuperscriptBox[\\(K\\), \\(-1\\)]\
\\)  \[LongRightArrow]\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{600, 400},
  LabelStyle->{18, FontFamily -> $CellContext`Arial},
  Method->{},
  PlotRange->{{0., 0.425531914893617}, {0., 99.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.713256507375*^9, 3.713256555585781*^9}, {
   3.713256631412959*^9, 3.713256655109685*^9}, 3.713256690394536*^9, 
   3.713256777935808*^9, {3.7132568711495686`*^9, 3.7132568870919075`*^9}, {
   3.717312692688789*^9, 3.7173127027340965`*^9}, 3.7173130931885424`*^9, 
   3.7173132018518944`*^9, 3.71835758053411*^9, 3.718357804890267*^9, 
   3.721025119468258*^9, 3.721025382217453*^9, 3.721025489469306*^9, {
   3.7210267087294006`*^9, 3.721026717413925*^9}, 3.7210269410222445`*^9, 
   3.721026997964861*^9, 3.721639663948517*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.697362912781561*^9, 3.6973629366832204`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6973629383056517`*^9, 3.697362938321252*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6882998704847403`*^9, 3.6882998705237904`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.688299851629207*^9, 3.6882998516682577`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.6882890519884186`*^9, 3.6882993742378626`*^9}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.6882884977397633`*^9, 3.6882884983758507`*^9}}]
},
WindowSize->{1904, 998},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.1 Inherited,
FrontEndVersion->"10.0 for Microsoft Windows (64-bit) (December 4, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 124, 2, 32, "Input"],
Cell[684, 24, 91, 1, 32, "Input"],
Cell[778, 27, 193, 3, 32, "Input"],
Cell[CellGroupData[{
Cell[996, 34, 25704, 570, 1593, "Input"],
Cell[26703, 606, 598, 8, 33, "Output"],
Cell[27304, 616, 1457, 29, 55, "Output"],
Cell[28764, 647, 4111, 81, 489, "Output"]
}, Open  ]],
Cell[32890, 731, 94, 1, 32, "Input"],
Cell[32987, 734, 94, 1, 32, "Input"],
Cell[33084, 737, 96, 1, 32, "Input"],
Cell[33183, 740, 94, 1, 32, "Input"],
Cell[33280, 743, 94, 1, 32, "Input"],
Cell[33377, 746, 96, 1, 32, "Input"]
}
]
*)

(* End of internal cache information *)