(* 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[     36596,        886]
NotebookOptionsPosition[     35699,        854]
NotebookOutlinePosition[     36241,        875]
CellTagsIndexPosition[     36198,        872]
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", "[", "\"\<t-butanol sl.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", ",", " ", "9", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "10", ",", " ", "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[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "14", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "15", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "17", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "18", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "19", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "20", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"IMelting", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "21", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AppendTo", "[", 
    RowBox[{"IMelting", ",", " ", 
     RowBox[{"Data", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", " ", "22", ",", " ", "3"}], "]"}], "]"}]}], "]"}], 
   ";"}], "\[IndentingNewLine]", 
  "\[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", ",", " ", "9", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "10", ",", " ", "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[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "14", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "15", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "17", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "18", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "19", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "20", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"Size", ",", " ", 
    RowBox[{"Data", "[", 
     RowBox[{"[", 
      RowBox[{"1", ",", " ", "21", ",", " ", "4"}], "]"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AppendTo", "[", 
    RowBox[{"Size", ",", " ", 
     RowBox[{"Data", "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", " ", "22", ",", " ", "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[{"squareR", "=", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{"Red", ",", " ", 
       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[{"squareR", ",", " ", "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[{"6.7", "*", 
    RowBox[{"10", "^", "3"}]}]}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"J", " ", "mol"}], "-", "1"}], "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tm", "=", "298.15"}], 
  RowBox[{"(*", "K", "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dens", "=", "0.997"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"g", " ", "cm"}], "-", "3"}], "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"v", "=", 
   RowBox[{"95.64", "*", 
    RowBox[{"10", "^", 
     RowBox[{"-", "6"}]}]}]}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"m3", " ", "mol"}], "-", "1"}], ",", " ", 
    RowBox[{"molar", " ", "volume"}]}], "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gammasl", "=", 
    RowBox[{"14", " ", "*", 
     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[{
   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]", 
  RowBox[{"(*", 
   RowBox[{"*", 
    RowBox[{"Export", "[", 
     RowBox[{"\"\<graph.png\>\"", ",", " ", "a"}], "]"}], " ", 
    "\[IndentingNewLine]", 
    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.7217102715853825`*^9, 3.7217103237353654`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   StyleBox[
    TagBox[GridBox[{
       {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\
\[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
       {"c", "1.717365091381038`", "1.00811497436173`", "1.7035409006481204`",
         "0.10476838730454731`"}
      },
      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.994838743057256`", ",", 
   RowBox[{"{", 
    RowBox[{"c", "\[Rule]", "1.717365091381038`"}], "}"}]}], "}"}]], "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.7217103408426685`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.019444444444444445`], AbsoluteThickness[1.6], 
      GeometricTransformationBox[InsetBox[
        GraphicsBox[
         {RGBColor[1, 0, 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}]], CompressedData["
1:eJxTTMoPSmVmYGAQAWJGIGYC4gXSn79czDpkr9gi4MShaOAA4zcKSgCRocMF
ESZfxQtH7Hl9yzfczzJ2cKrmfKu65bj97heLuvV2mTlorF+4p+3TKXsGMLB0
sJRv/mxocd5+9SoQsHJInexrdjPlMtR8B4dTAmsWn/19xX7Dncscp20dHdzE
Y0suul6H6ndxqOR9ajrl+gOo+gCHIpnjhTLHH9pvz729Lfd2oAOEfmY/596X
ZeZ7Qx0g+j5A7UuAqv8IVZ/osHRKkJfm0iNQ8y3g7pk1EwgknR1CweCqfRoY
uDqct3w+p/jcTah6T4cg2STm+YZ3oHxvB77CqZoJdg/sz54BAh9/BwAk1YRY

       "]]}, {}}, {}}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
     1.], LineBox[CompressedData["
1:eJwVjms0lAkYgEXJbVs7VhTRoKhNRRcZ8r6SLi4xhHEp3yddpmWVS7JFcwg5
ySpWNpTbRhYlUTr0TSlpJ0xylzAhNNXMp5XhNLv2x3Oen8/DDArzOKyooKDg
Os//Fp6aUtqudp869nBbhFTJiD85253mLq2l7E1vOTaImXylc/XLgntqKd3M
ZbopnUz+1uTEDRdv1lLNobP1K0uY/NyrOv69O2opM2a9srsTk899YHM36kwN
NZ4M1yrTV/IVZxOISnE11VaWGt/NMuBviv2xwbDtDiUYKjF4GarL92wsLi3X
K6bk7JrOJ9WL+XaWS9rNZZco3jMb+VWfHCpCMVptKi4BPHReXz4hVMYiduL2
FU6FMDDdoZ07qoO+IlU9l7ZKoATveW1NTIz0X3udu7EW6I9j4oc6ZigRut3h
9dYDNHwIXOO8Ho3eDcf8m/wYCrRsq6ZULbHxl0vl+8eewu8WCRXP121Bd9ZQ
9AH1ZhjRTzvpsHwbRqtPKaWvFAD/rV6dgoyFmaFf83tOt8KllLI5y6V22JbM
/nlSIIR+njxe+RyiGzM/bepsO3AtShetZ+zA3IZ9V35Y3QG2rlpO03kOOChz
D0q52wmP3IhwxveOmCcXsFKJbrjfZK7LvbEL2UXXBselPRBoMlCgpb0HeZqi
VGFxH8RNa9yaubUXY3kpy1vc3sDYJvnJOCtnPJF+PtL47QDM+bwy4JS54Ntj
M10L0wbhgsRkb4jtPiyQDCrmpw9BY5ifT0e1G7IqI9T2eA+DcUVpxqfL7qgp
dMiqWSeC/IBgVrovG4cfb1cRfhFB5L+ar/u1PFCiEym/3fIOzr+JLXs64IGH
w/qCrxWOgFWYQPStyBO7so5XWXBHweEf1e+GA/ZjgpFVfBqOwYUalVPkKi9c
F2duna36HlZzZ4QXh7zQpt+TKG99D0fbm1OVs70xJbdWPal4HEajfJMNAn2w
3dwhTyNkAh5q9EcM6XLQx1ijmrNzEl4M6N8AEQd7xuWV7CUfwKLQrX7PdV+k
bjP1vDo+gI3+IVahtx+O9PHUDf4SQ7xw69dsA39U6lIVZUR8BMPTc39a9/oj
uaXNts3lE8h8eRnRRQG4KuvpYm2jzxAtHR1edPwAjjS9e7B44jM4n7U1sjM+
iJIKw6+BhAT87T0LtMQHMYQQnWc8k8ATmR8joyQQc7QanP42lcJYNTO8agOB
EzM17SNXpKCqcmr2aAaBm5saWzqnpdDT+eRMhITAPBN1zcwZKYiL2mkGTaBy
goeHx6wUFMJF3LtTBHbDcFfrNymYLlHkSKcJ/LVOPvh8IQ1Ru+w3h30jkF9u
TdcxaGDcp8TH1Uh0zri99Pp6Glyy6w8EmZB4TzrNCdhIA3HkZceC1STqu9vl
LLekIWLzG+cCUxI/abQYXt1CQ45wznpoLYnpSZNm6bY0jKvYLD1oQWJXzCqb
eCcakmLqWn3tSISekFh0oeGP3S8cZUBi6dZ7lNyVhgrt3vpsexJjpnbsPMOm
oaNqpqx753wvlHCN5NBgPGmV7OVMYqKg5DdLPxqsHuyWf3GZ76/5/EriT4Nz
kk9U5j4SqbFY79BAGk4aRR96zSbRzPFZ9k8kDYmSpL5wz/m/Io3+iSAash9l
sRleJMoW7F9RGkxDeerN5ipvEoOInMAjR2jg+9UCm0Pif0RtYBg=
      "]]}}},
  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., 1.1111111111111112`}, {0., 142.85714285714286`}},
  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.7217103411073003`*^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}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.3199999999999, 841.92}},
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, 29112, 690, 1953, "Input"],
Cell[30111, 726, 1140, 25, 55, "Output"],
Cell[31254, 753, 3843, 80, 489, "Output"]
}, Open  ]],
Cell[35112, 836, 94, 1, 32, "Input"],
Cell[35209, 839, 94, 1, 32, "Input"],
Cell[35306, 842, 96, 1, 32, "Input"],
Cell[35405, 845, 94, 1, 32, "Input"],
Cell[35502, 848, 94, 1, 32, "Input"],
Cell[35599, 851, 96, 1, 32, "Input"]
}
]
*)

(* End of internal cache information *)