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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     56045,       1381]
NotebookOptionsPosition[     53074,       1294]
NotebookOutlinePosition[     53432,       1310]
CellTagsIndexPosition[     53389,       1307]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["Step Calorimetry Data Analysis",
 FontSize->18,
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.698530974861918*^9, 3.698530979049735*^9}}],

Cell["\<\
Notebook written by Hillary Smith (Hillary.L.Smith@gmail.com) July 2014
This notebook is intended for reduction of step calorimetry data measured \
with a heat flux calorimeter.  Prior to using this notebook, data should be \
reduce to \[OpenCurlyQuote]delta heat flow\[CloseCurlyQuote] by finding the \
difference in the maximum and minimum heat flow in each step.  Unless \
otherwise noted, all files should be imported as two column csv data, \
temperature and DSC signal (\[Mu]V).\
\>", "Text",
 CellChangeTimes->{{3.698531181513235*^9, 3.698531197168442*^9}, {
  3.6985446815423326`*^9, 3.698544761443063*^9}}],

Cell["\<\
Read in constants.  Mu values are the MW (g/mol) divided by the number of \
atoms.  Sample and sapphire mass is in mg.  Heating rate is in K/min.\
\>", "Text",
 CellChangeTimes->{{3.612633944902348*^9, 3.612633962732976*^9}, {
   3.69851941423237*^9, 3.69851941507552*^9}, {3.698520402480966*^9, 
   3.69852046340524*^9}, 3.6985447248089743`*^9, {3.698544811136303*^9, 
   3.698544828826489*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"musample", "=", "77.385"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"musaph", "=", 
   RowBox[{"101.96", "/", "5"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"HR", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"samplemass", "=", "70.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"saphmass", "=", "21.0"}], ";"}]}], "Input",
 CellChangeTimes->{{3.611024889798883*^9, 3.611024920820429*^9}, {
  3.614621003941286*^9, 3.614621008250979*^9}, {3.614621132048585*^9, 
  3.6146211361643*^9}, {3.657900711338024*^9, 3.657900725106267*^9}, {
  3.698518729805312*^9, 3.6985187334703913`*^9}, {3.6985202053262463`*^9, 
  3.698520219996345*^9}, {3.698527247605361*^9, 3.698527249938051*^9}, {
  3.698527656490733*^9, 3.698527657998457*^9}, {3.6985277157677717`*^9, 
  3.6985277180572653`*^9}, {3.6985304317280893`*^9, 3.698530432350437*^9}, {
  3.698530462641089*^9, 3.6985304635948133`*^9}}],

Cell["", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 4}],

Cell[TextData[StyleBox["This section generates sensitivity from the sapphire \
calibration measurement.",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.698520279117405*^9, 3.698520311218799*^9}, {
  3.698520346676445*^9, 3.69852035437113*^9}, {3.6985204701087217`*^9, 
  3.69852047685966*^9}, {3.698530957305028*^9, 3.698530964349835*^9}, {
  3.698531238042841*^9, 3.6985312388423243`*^9}}],

Cell["", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 4}],

Cell["\<\
Read in the literature values for sapphire in units of J/gK (column 2) and \
temperatures in C between 100 and 1200 (column 1).\
\>", "Text",
 CellChangeTimes->{
  3.698520342114135*^9, {3.698544793754178*^9, 3.698544801636032*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"saphstandard", "=", 
   RowBox[{
   "Import", "[", 
    "\"\</Users/hsmith/Documents/Research/DSC/sapphire_JgK.csv\>\"", "]"}]}],
  FontSize->12]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.477907326054056*^9, 3.477907358580206*^9}, {
   3.47791170172838*^9, 3.47791170373417*^9}, {3.494881856933606*^9, 
   3.4948818912836523`*^9}, {3.5401763593849297`*^9, 
   3.5401763645421658`*^9}, {3.540187739410554*^9, 3.540187790587508*^9}, 
   3.540187857834869*^9, {3.540188715605432*^9, 3.540188717455101*^9}, 
   3.5450587406428213`*^9, {3.547576426399498*^9, 3.547576453214567*^9}, 
   3.5475765823680573`*^9, 3.5475767523762302`*^9, {3.54757687373064*^9, 
   3.547576875755004*^9}, {3.5483589827633038`*^9, 3.548359006753995*^9}, {
   3.548359054310993*^9, 3.548359057484322*^9}, {3.551112388639079*^9, 
   3.551112391275392*^9}, 3.5511209150248137`*^9, 3.552424192108632*^9, 
   3.552424549078999*^9, {3.566673041128541*^9, 3.566673044873063*^9}, {
   3.566673356136464*^9, 3.566673356577468*^9}, {3.566673808740926*^9, 
   3.566673809796617*^9}, {3.577128081590879*^9, 3.577128127059231*^9}, {
   3.577128244871707*^9, 3.577128268992776*^9}, {3.604159019414114*^9, 
   3.60415905652658*^9}, {3.6059930295735598`*^9, 3.605993037578434*^9}, {
   3.605994912354487*^9, 3.605994913537162*^9}, {3.605995396611697*^9, 
   3.605995399257414*^9}, {3.698519675981574*^9, 3.6985196785786953`*^9}, 
   3.698520523076737*^9, 3.6985912934826403`*^9},
 FontSize->18],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"100", ",", "0.90652`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"110", ",", "0.92045`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"120", ",", "0.93368`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"130", ",", "0.94625`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"140", ",", "0.95821`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"150", ",", "0.96958`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"160", ",", "0.9804`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"170", ",", "0.99071`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"180", ",", "1.00054`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"190", ",", "1.00991`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"200", ",", "1.01884`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"220", ",", "1.03553`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"240", ",", "1.05077`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"260", ",", "1.06473`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"280", ",", "1.07756`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"300", ",", "1.08936`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"320", ",", "1.10027`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"340", ",", "1.11036`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"360", ",", "1.11974`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"380", ",", "1.12847`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"400", ",", "1.13662`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"420", ",", "1.14425`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"440", ",", "1.15143`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"460", ",", "1.15818`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"480", ",", "1.16457`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"500", ",", "1.17061`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"550", ",", "1.18447`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"600", ",", "1.19687`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"650", ",", "1.20812`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"700", ",", "1.21846`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"750", ",", "1.22808`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"800", ",", "1.2371`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"850", ",", "1.2456`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"900", ",", "1.25367`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"950", ",", "1.26134`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1000", ",", "1.26863`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1050", ",", "1.27558`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1100", ",", "1.28218`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1150", ",", "1.28845`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1200", ",", "1.29439`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.698591294092759*^9}],

Cell["Read in the sapphire measurement data.", "Text",
 CellChangeTimes->{{3.6985205305285482`*^9, 3.698520547077471*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rawsaph", "=", 
  RowBox[{
  "Import", "[", 
   "\"\</Users/hsmith/Documents/Research/DSC/MatheInput_rawdata/saphraw_test.\
csv\>\"", "]"}]}]], "Input",
 CellChangeTimes->{3.6985275279740553`*^9, 3.698530296912036*^9, 
  3.698591269277495*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"303.18216`", ",", "2.188763048`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"312.89233`", ",", "2.240013102`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"323.08002`", ",", "2.293477267`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"333.00018`", ",", "2.345188395`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"342.71127`", ",", "2.395372269`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"352.9006`", ",", "2.4474049`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"362.86276`", ",", "2.497471962`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"372.73676`", ",", "2.546103088`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"382.77478`", ",", "2.594305988`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"392.5238`", ",", "2.639709992`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"402.50827`", ",", "2.684547005`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"412.35443`", ",", "2.726901757`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"422.44702`", ",", "2.768187457`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"432.44766`", ",", "2.806774107`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"442.52368`", ",", "2.843130042`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"452.53796`", ",", "2.876592147`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"462.33847`", ",", "2.906623826`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"472.39532`", ",", "2.93452592`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"482.22513`", ",", "2.958845433`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"492.44211`", ",", "2.98094443`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"502.38113`", ",", "2.999270769`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"512.27368`", ",", "3.014362966`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"522.2226`", ",", "3.026348757`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"532.16699`", ",", "3.03512247`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"542.19342`", ",", "3.04073191`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"552.15479`", ",", "3.04311088`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"562.21045`", ",", "3.042322485`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"572.15167`", ",", "3.038444279`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"582.02948`", ",", "3.031601527`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"592.2179`", ",", "3.021498348`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.698591270181031*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "p0"}], ")"}], "/", "p1"}], ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.698519699759397*^9, 3.698519700694981*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"model", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"p2", "+", 
     RowBox[{"p3", "*", "a"}], "+", 
     RowBox[{"p4", "*", 
      SuperscriptBox["a", "2"]}], "+", 
     RowBox[{"p5", "*", 
      SuperscriptBox["a", "3"]}]}], ")"}], 
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     SuperscriptBox["a", "2"]}], "]"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "p0"}], "+", "x"}], ")"}], "2"], 
     SuperscriptBox["p1", "2"]]}]], " ", 
  RowBox[{"(", 
   RowBox[{"p2", "+", 
    FractionBox[
     RowBox[{"p3", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "p0"}], "+", "x"}], ")"}]}], "p1"], "+", 
    FractionBox[
     RowBox[{"p4", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "p0"}], "+", "x"}], ")"}], "2"]}], 
     SuperscriptBox["p1", "2"]], "+", 
    FractionBox[
     RowBox[{"p5", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "p0"}], "+", "x"}], ")"}], "3"]}], 
     SuperscriptBox["p1", "3"]]}], ")"}]}]], "Output",
 CellChangeTimes->{3.698519741645761*^9, 3.698520245737741*^9, 
  3.698527607805253*^9, 3.698530302900462*^9, 3.698530435212841*^9, 
  3.698530466806418*^9, 3.6985305407118883`*^9, 3.698530842658622*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fit1", "=", 
  RowBox[{"FindFit", "[", 
   RowBox[{"saphstandard", ",", "model", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"p0", ",", "202.7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"p1", ",", "897"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"p2", ",", "1.1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"p3", ",", 
        RowBox[{"-", "0.9"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"p4", ",", "1.3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"p5", ",", 
        RowBox[{"-", "0.38"}]}], "}"}]}], "}"}], ",", "x", ",", 
    RowBox[{"MaxIterations", "\[Rule]", "10000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.698519773027349*^9, 3.698519774781289*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindFit", "::", "cvmit"}], "MessageName"], ":", 
  " ", "\<\"Failed to converge to the requested accuracy or precision within \
\[NoBreak]\\!\\(\\*RowBox[{\\\"10000\\\"}]\\)\[NoBreak] iterations. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/FindFit/cvmit\\\", \
ButtonNote -> \\\"FindFit::cvmit\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.6985197464130774`*^9, 3.698519780385827*^9, 
  3.6985202464455976`*^9, 3.698527611675067*^9, 3.698530303580371*^9, 
  3.698530435905612*^9, 3.698530467506806*^9, 3.698530541387629*^9, 
  3.698530843344326*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"p0", "\[Rule]", 
    RowBox[{"-", "24052.08845381473`"}]}], ",", 
   RowBox[{"p1", "\[Rule]", "5932.113852288898`"}], ",", 
   RowBox[{"p2", "\[Rule]", 
    RowBox[{"-", "4.356722414468516`*^11"}]}], ",", 
   RowBox[{"p3", "\[Rule]", "3.199706692789888`*^11"}], ",", 
   RowBox[{"p4", "\[Rule]", 
    RowBox[{"-", "7.838873136217398`*^10"}]}], ",", 
   RowBox[{"p5", "\[Rule]", "6.406298031871348`*^9"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6985197464189796`*^9, 3.6985197803914547`*^9, 
  3.698520246451726*^9, 3.698527611681615*^9, 3.6985303035866528`*^9, 
  3.698530435911955*^9, 3.698530467514894*^9, 3.6985305413929462`*^9, 
  3.69853084334986*^9}]
}, Open  ]],

Cell["\<\
Note that this fails to converge, but the resulting fit is good.\
\>", "Text",
 CellChangeTimes->{{3.698531034217989*^9, 3.698531042945088*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"saphstandard", ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"model", "/.", "fit1"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "100", ",", "1200"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", "Red", "}"}]}], ",", " ", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Temperature", ",", " ", "Sensitivity"}], "}"}]}]}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.698519763076935*^9, 3.698519765532309*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGDQAGIQDQGRDn/yVa3NmN7ag7kN0Q5Zvp/7gkugfIY4h5V7
ZB9ueQDlOyQ4eDysElnn/g6qPtFhW/o0lhUrofwDSQ67E28vOsP2Hqo/xeHp
J/lL+fFQvkOqwwE7q9Knm6H8hjSo/R+g+tMdtErikqdrQPkMmQ5ntvzV1vaF
8huyHaTyDjxvnwiTz3NgeCxp8uU8lO9Q4MAjLxisxPkRqr7Q4cWS773rbaH8
A0UOLIqRB1jyoHyGEocZgTrbt8yC8h1KHQ5MfXOD4whMf5lDfFxDbckrmP5y
BwU3jn4zvk9Q/ZUOsmv+F8/Qh/IdqhyYtNvFbvpB+Q3VDq8Upe465kD5B2oc
dkqCPADTX+fQXfhPTWQRTH+9w4W3qr0Xd0H5Bo0O2bUTL0z7DNPf5KDHYqmR
qPYZwg9ocbjjLbW4NATKf9DqIL9/+8vzdVB+QbtD+qezZubLoHyGTgdO6Xlx
mqeh/AldDpNi/jn/egvlK/Q4MM2Xd+Pg/wLhb+h1WKsvdKtID8p36HeomN79
w88Hys+Y4KD54tukYxlQvsFEB//Ynzrnm6H8HxMdztR77K+dC+UfmOSwwP+J
56WtX+wBoQnQzg==
       "]]}, {}}, {}}, {{{}, {}, 
     {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
      LineBox[CompressedData["
1:eJwVx3k41HkcwHHZ9ZAcQ+Rp3V2OeWoqNa16+Hx2W0LbseqxpjSONZqyjkTY
yjUics03NompmCdHTLmSI2WfVmXDWtdTKCXyPHY0M78fFWF/+8f7eT8v64Aw
T4G6mpraPqb/nyK05aup8bDT6UVAu44cLEpmO64Y89BiRcT0JZYc7o083sFh
89Cz5F/tg0ZymPD0N+B78bDYIvdTr6kcXJ0KHjdX8tAuvrK+w14OGoY67Gje
EbzvJNkY6SaH5OYPH+U1R5FVLXnUlCSHJL0G8ZCAjz2L9fsdKDkkJh30/WwZ
gG1WJWuC+6chY5wv9R8KxFVX9Pji3A+QEa5bY5B2HMN0J81iLBXQVXKi5XX4
SYw0NRDtPq2AYWffKG2bEDzOcdu8sUkBq75LzCtfEY4Ry2q/mVhSwP3Z4j7l
uVM47HG18Z2TEsDPIFjYH4FimSGHRChhsmhgSe4RiY+4x368c0sJZ7Inp26W
RqGOnb/D+l4lLOZ6tMQunMEtKaXoNK+E0tCvLvmFx+DKqeYql7Uq4H7Rqo7q
iMX1VYYXW11UMHFM0H/1u7Pos56tzxOqIKfX4NWb6nPYM1cxPJKqAqsFbWfv
5XEojNhV5F2igp65I4Uj5+Nx8Hup9NBDFTgMzJc9/TUB977954FqUAX6V2fU
7e0ScQM7+QlXqYJJgckB87eJ6LaKHnyiRUFdxuv20qwkrNt+/XmXOQU55r0P
Gt1FOF3m7VrrQIGvVshowCcROhVJioL2UMBe2DRTVJKMYymiOdMjFGj5mKX5
HbuAspTfg7pDKBg0uuvWpJ2Cv1W2edbGU9CwIyz1WnsKOlq6rygkFOQGet3X
i0/FLW9nypqlFAROjRmtZl/Ehb82B7jWU/DDcKGiYvwiyiyNbwy2U2Bi8+Vj
7+U09Dlp9uH9AAXvz4qUWc7p2GLdHew9QcHTndyTPR/TUWUj0mqbpaDwULbe
beklNOH3WrVo0JAwsHKrjl8G7ppg0QXGNPxc65z4tX4mXugt0mGto4FdIP4j
qykTV2tyDrzZQoP+lL7oRmQWbs3X5kYgDRN528Lc12Tj+B6nZdf30dBVkfwy
9lU2Ru9LizlxlIYXgYumkr05uN29uyBESIPLzczRjps5aNMQ+twwkoZGUhO4
aykHD0ep7bZKoMGmuiIu2kuM0tb5V13pNFzuuyf+cluMLMeMMw25NGhWeQf+
qUWwvNFO1imhIaqm8znPl+DM0rhuTikNRJkkGPYjeP1o8t16xrLN3y7yAwha
VM65DDGekBVzAgUEHdYed99QRoPX7WgSGkywW222upkxV2rtLYomqDRp03xX
TsNsXtRYZTZB9bGWOvtKGgz77c9xxAQ9+PlV+xlvMho1qiEEJx0X8iMYBxEP
14Y8grPW3nuaGA9kWZa3XSPIecZSd6+ioSH1WehAKUF5R5D8FxkNfe1xmrxy
ghLjO7qpjBUa224MVRD0i+NZVTC2TZb0jFYR5PZ1mCkY5yec3jZVS1B4+OWp
s3doqHto2xlST/DW0vQ6CeO/F0cEinsE/Tt/6njEWOu825WZRoKHGj9Padyl
YV3LAiemmWCx0lFoyxjna57OtRAcn2kd8GDss1Pof76VIGv0wo4QxjGx5nNL
DwmKl2emZzP+D4NRchA=
       "]]}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{82.81250000000001, 0.8871265},
  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]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{100., 1200.}, {0.90652, 1.29439}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.698519749237685*^9, 3.698519782701488*^9}, 
   3.698520246494494*^9, 3.698527613739552*^9, 3.698530303633795*^9, 
   3.698530435959805*^9, 3.698530467560848*^9, 3.698530541440483*^9, 
   3.69853084340524*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"modelfit", "=", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", "x", "}"}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"model", "/.", "fit1"}], "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.698519811962406*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"saphtemps", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"rawsaph", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "rawsaph", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.698519968439289*^9, 3.6985199741984453`*^9}, {
  3.698520177822206*^9, 3.69852017840163*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"saphfit", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"modelfit", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "saphtemps"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.606007916077243*^9, 3.606007933194827*^9}, {
   3.606008069317389*^9, 3.6060080779155693`*^9}, {3.606008152210588*^9, 
   3.6060081642806873`*^9}, {3.6060082279433317`*^9, 3.606008229941327*^9}, 
   3.697997603746438*^9, {3.698520006449933*^9, 3.698520031893064*^9}, {
   3.6985201077995663`*^9, 3.698520122852542*^9}, {3.698520184572806*^9, 
   3.698520188142439*^9}, {3.698520606553733*^9, 3.698520637375559*^9}, {
   3.698528243285098*^9, 3.69852827221275*^9}}],

Cell["\<\
saphCp is the standard heat capacity of sapphire in J/gk at each temperature \
measured experimentally.\
\>", "Text",
 CellChangeTimes->{{3.698520655150638*^9, 3.698520687723095*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"saphCp", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Flatten", "[", "saphtemps", "]"}], ",", 
      RowBox[{"Flatten", "[", "saphfit", "]"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.698520644060093*^9, 3.698520648047216*^9}, 
   3.698520690635809*^9}],

Cell["\<\
Generate the sensitivity using the measured sapphire data (rawsaph) and the \
standard heat capacity values evaluated at the experimentally determined \
temperatures.\
\>", "Text",
 CellChangeTimes->{{3.69852070916546*^9, 3.698520795540399*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sens", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       FractionBox[
        RowBox[{"rawsaph", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], 
        RowBox[{"saphCp", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}]], ")"}], "*", 
      FractionBox["1", 
       RowBox[{"saphmass", "*", 
        RowBox[{"(", 
         RowBox[{"HR", "/", "60"}], ")"}]}]]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "rawsaph", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.698514356783087*^9, 3.698514469313032*^9}, {
   3.698514528483836*^9, 3.698514541893368*^9}, 3.698530291490325*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"senstemps", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"rawsaph", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "rawsaph", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.698514683074319*^9, 3.698514687953741*^9}, {
  3.698518338544832*^9, 3.698518339616078*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"senspair", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Flatten", "[", "senstemps", "]"}], ",", 
      RowBox[{"Flatten", "[", "sens", "]"}]}], "}"}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.698514654033608*^9, 3.698514694185521*^9}, 
   3.6985148187573767`*^9, {3.698518342972773*^9, 3.698518343385007*^9}, 
   3.6985302879442997`*^9}],

Cell["", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 4}],

Cell[TextData[StyleBox["This section determines the heat capacity of the \
sample and exports the Cp and mCp as a function of temperature.",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.69852070916546*^9, 3.698520795540399*^9}, {
   3.6985208669967747`*^9, 3.6985208854379*^9}, {3.698530946690419*^9, 
   3.698530949915408*^9}, {3.698531070834597*^9, 3.698531105340949*^9}, 
   3.6985312320275793`*^9}],

Cell["", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 5}],

Cell["Read in the raw sample data.", "Text",
 CellChangeTimes->{{3.698520695482912*^9, 3.698520701211802*^9}}],

Cell[BoxData[
 RowBox[{"data", "=", 
  RowBox[{
  "Import", "[", 
   "\"\</Users/hsmith/Documents/Research/DSC/MatheInput_rawdata/803_xtal_cut.\
csv\>\"", "]"}]}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.6073626533502607`*^9, 3.607362743327032*^9}, {
   3.6091351071388597`*^9, 3.609135113650321*^9}, {3.611023714007635*^9, 
   3.6110239020589542`*^9}, {3.6110239349350643`*^9, 3.611023946558387*^9}, {
   3.611024059032653*^9, 3.6110240953894033`*^9}, {3.6110260658143787`*^9, 
   3.6110260660378447`*^9}, 3.611026264718872*^9, {3.611026461236327*^9, 
   3.611026490665659*^9}, {3.61102674451716*^9, 3.6110267595570498`*^9}, {
   3.615308509519524*^9, 3.6153085104289627`*^9}, {3.615308638039363*^9, 
   3.615308642663813*^9}, {3.615308743192787*^9, 3.615308743473373*^9}, {
   3.615573446190125*^9, 3.6155734617934303`*^9}, {3.615573559255904*^9, 
   3.615573559758459*^9}, {3.615655627342067*^9, 3.615655627995463*^9}, {
   3.615783104562313*^9, 3.615783105233634*^9}, 3.61578315444914*^9, 
   3.615915430797105*^9, {3.615915558257814*^9, 3.615915581084588*^9}, {
   3.616119301190454*^9, 3.616119306853718*^9}, {3.616120712150756*^9, 
   3.616120712366169*^9}, {3.6574715571765423`*^9, 3.6574715688507757`*^9}, 
   3.657472049692224*^9, 3.657472139014387*^9, 3.6591143377591543`*^9, {
   3.6591144093252583`*^9, 3.659114409503379*^9}, 3.698518027553296*^9, {
   3.698518564106687*^9, 3.698518576271734*^9}, 3.698520704346085*^9, {
   3.698527706369177*^9, 3.698527710614286*^9}, {3.6985308385390377`*^9, 
   3.698530839104121*^9}, 3.6985913024964657`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"300.47025`", ",", "2.19375`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"310.37128`", ",", "2.2225`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"320.33905`", ",", "2.27625`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"330.17072`", ",", "2.3275`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"340.26755`", ",", "2.3675`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"350.09332`", ",", "2.4275`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"359.99066`", ",", "2.4875`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"369.95239`", ",", "2.5225`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"379.83743`", ",", "2.56125`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"389.79465`", ",", "2.61375`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"399.89801`", ",", "2.64375`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"409.62424`", ",", "2.66375`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"419.81741`", ",", "2.7175`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"429.61804`", ",", "2.74625`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"439.80826`", ",", "2.77875`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"449.61475`", ",", "2.81125`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"459.57635`", ",", "2.83125`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"469.53833`", ",", "2.8575`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"479.47263`", ",", "2.89`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"489.27017`", ",", "2.89875`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"499.45325`", ",", "2.925`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"509.40305`", ",", "2.92875`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"519.50897`", ",", "2.95375`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"529.36432`", ",", "2.9825`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"539.47827`", ",", "3.00125`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"549.42169`", ",", "3.02`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"559.3775`", ",", "3.005`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6985913038495903`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"cp", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         FractionBox[
          RowBox[{"data", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], 
          RowBox[{"senspair", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}]], ")"}], "*", 
        FractionBox["1", "samplemass"]}], ")"}], "*", 
      FractionBox["musample", 
       RowBox[{"(", 
        RowBox[{"HR", "/", "60"}], ")"}]]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.611024811075815*^9, 3.611024858000922*^9}, {
   3.611024903010903*^9, 3.611024926045783*^9}, {3.611025061227355*^9, 
   3.6110251216531477`*^9}, {3.611025255195643*^9, 3.611025259880191*^9}, {
   3.611025384570208*^9, 3.611025390712532*^9}, {3.61102559353638*^9, 
   3.611025594454297*^9}, {3.61102583311765*^9, 3.611025836034286*^9}, {
   3.611026069409156*^9, 3.611026069631007*^9}, {3.61102612399833*^9, 
   3.611026157299067*^9}, 3.611026264719102*^9, {3.615573475668041*^9, 
   3.61557347988622*^9}, {3.657470735177395*^9, 3.657470737978751*^9}, {
   3.698514728887537*^9, 3.69851473823002*^9}, {3.698514775509914*^9, 
   3.698514778907325*^9}, {3.6985179977285748`*^9, 3.698518000658135*^9}, {
   3.698518269979278*^9, 3.698518293580926*^9}, {3.6985188327548103`*^9, 
   3.6985188638642893`*^9}, 3.698530282890153*^9, {3.69853035639725*^9, 
   3.69853037077*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"temps", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"data", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.6110256057007523`*^9, 3.611025676512721*^9}, 
   3.6110258386332083`*^9, {3.611026162537462*^9, 3.6110261654511423`*^9}, 
   3.61102626471935*^9, {3.6155734821561127`*^9, 3.615573482560754*^9}, {
   3.61557385698545*^9, 3.615573857377769*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"mcp", "=", 
   RowBox[{
    FractionBox["cp", "musample"], "*", 
    FractionBox["samplemass", "1000"]}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.615308848317759*^9, 3.615308873815628*^9}, {
   3.6153089052810717`*^9, 3.6153089276010838`*^9}, 3.615308989163671*^9, 
   3.6153090734512587`*^9, {3.6574716923247957`*^9, 3.657471693862706*^9}, {
   3.69851917822059*^9, 3.698519178902076*^9}, {3.698530534799068*^9, 
   3.6985305358674383`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"exportCp", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Flatten", "[", "temps", "]"}], ",", 
      RowBox[{"Flatten", "[", "cp", "]"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.611025687479801*^9, 3.611025760876685*^9}, 
   3.6110262647194643`*^9, {3.698518354184963*^9, 3.698518355723865*^9}, {
   3.698530374002748*^9, 3.698530402184009*^9}, 3.6985304576150703`*^9, 
   3.6985310864746933`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
   "\"\</Users/hsmith/Documents/Research/DSC/MatheOutput/test.csv\>\"", ",", 
    "exportCp"}], "]"}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.6110258889566803`*^9, 3.611025946117573*^9}, 
   3.6110262647195883`*^9, {3.611026524080371*^9, 3.6110265243443747`*^9}, {
   3.6110267674123497`*^9, 3.6110267677155533`*^9}, {3.611373705908401*^9, 
   3.611373706716086*^9}, {3.6153086072518597`*^9, 3.615308615661963*^9}, {
   3.615308745836628*^9, 3.615308746162326*^9}, {3.615573699272023*^9, 
   3.615573699742161*^9}, {3.615655631853738*^9, 3.6156556322015133`*^9}, {
   3.615783109010241*^9, 3.615783109553281*^9}, {3.615915587478484*^9, 
   3.615915587797564*^9}, {3.6161193137373037`*^9, 3.616119317242491*^9}, {
   3.616120717864163*^9, 3.616120718438079*^9}, {3.657471603023362*^9, 
   3.657471617500608*^9}, 3.659114357521562*^9, {3.6985183658977633`*^9, 
   3.6985183671973543`*^9}, {3.69851888479976*^9, 3.698518885122459*^9}, {
   3.6985304444178123`*^9, 3.698530450518166*^9}, {3.698531312881672*^9, 
   3.698531314311281*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"exportmCp", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Flatten", "[", "temps", "]"}], ",", 
      RowBox[{"Flatten", "[", "mcp", "]"}]}], "}"}], "]"}]}], ";"}]], "Input",\

 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.611025687479801*^9, 3.611025760876685*^9}, 
   3.6110262647194643`*^9, {3.615308950228221*^9, 3.6153089539274197`*^9}, {
   3.6985183921732883`*^9, 3.6985183982403517`*^9}, 3.698521405954392*^9, 
   3.6985302731895227`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
   "\"\</Users/hsmith/Documents/Research/DSC/MatheOutput/test.csv\>\"", ",", 
    "exportmCp"}], "]"}], ";"}]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.6110258889566803`*^9, 3.611025946117573*^9}, 
   3.6110262647195883`*^9, {3.611026524080371*^9, 3.6110265243443747`*^9}, {
   3.6110267674123497`*^9, 3.6110267677155533`*^9}, {3.611373705908401*^9, 
   3.611373706716086*^9}, {3.6153086072518597`*^9, 3.615308615661963*^9}, {
   3.615308745836628*^9, 3.615308746162326*^9}, {3.615308957888098*^9, 
   3.615308970128549*^9}, {3.615573493282332*^9, 3.6155734935631113`*^9}, {
   3.6155735668807077`*^9, 3.6155735671378937`*^9}, {3.615655638299402*^9, 
   3.6156556391537457`*^9}, {3.615783113473989*^9, 3.615783114057221*^9}, {
   3.6159155914343452`*^9, 3.6159155917490797`*^9}, {3.6161193272852917`*^9, 
   3.616119329356683*^9}, {3.61612072488615*^9, 3.616120725189579*^9}, {
   3.657471622900187*^9, 3.657471635320673*^9}, 3.6591143623838863`*^9, {
   3.698518405259707*^9, 3.6985184087866163`*^9}, {3.698518889111225*^9, 
   3.6985188894711514`*^9}, {3.698531317481412*^9, 3.698531319749481*^9}}]
}, Open  ]],

Cell["", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 2}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 4}],

Cell[TextData[StyleBox["This section compares the mCp of the sample with the \
mCp of sapphire to determine whether the mass condition has been met.  The \
error bars on the sapphire data (blue) are +/- 5%.",
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.69853089863249*^9, 3.698530936038879*^9}, {
  3.698531157823979*^9, 3.698531158337983*^9}}],

Cell["", "Text",
 Editable->False,
 Selectable->False,
 CellFrame->{{0, 0}, {0, 3}},
 ShowCellBracket->False,
 CellMargins->{{0, 0}, {1, 1}},
 CellElementSpacings->{"CellMinHeight"->1},
 CellFrameMargins->0,
 CellFrameColor->RGBColor[0, 0, 1],
 CellSize->{Inherited, 5}],

Cell[BoxData[
 RowBox[{
  RowBox[{"saphmcp", "=", 
   RowBox[{"saphfit", "*", 
    FractionBox["saphmass", "1000"]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6985283826906557`*^9, 3.698528401908916*^9}, {
   3.698529100325366*^9, 3.69852910136589*^9}, 3.698530266389839*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"saphmcpE", "=", 
   RowBox[{"saphmcp", "*", "0.05"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6985252876511707`*^9, 3.6985253544853897`*^9}, {
   3.6985253902569847`*^9, 3.6985254529651947`*^9}, {3.698525622044832*^9, 
   3.698525625470388*^9}, 3.6985257204731197`*^9}],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<ErrorBarPlots`\>\"", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"exportsaphmCpE", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Flatten", "[", "saphtemps", "]"}], ",", 
      RowBox[{"Flatten", "[", "saphmcp", "]"}], ",", 
      RowBox[{"Flatten", "[", "saphmcpE", "]"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.698526790043067*^9, 3.698526841831221*^9}, 
   3.69852850691984*^9, 3.6985302574893227`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ErrorListPlot", "[", 
    RowBox[{"exportsaphmCpE", ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", ".002"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"exportmCp", ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.698527942415271*^9, 3.698527979605785*^9}, 
   3.6985285146114283`*^9, {3.6985286545262747`*^9, 3.698528683083393*^9}, {
   3.698528713581751*^9, 3.698528714078535*^9}, {3.698530582683463*^9, 
   3.698530603498219*^9}, {3.6985307066988497`*^9, 3.6985307071804743`*^9}, {
   3.698530862028667*^9, 3.698530878474279*^9}, {3.698531144351577*^9, 
   3.698531150188869*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      0.012833333333333334`], AbsoluteThickness[1.6], LineBox[CompressedData["

1:eJwB8QEO/iFib1JlAgAAAB4AAAACAAAAO6qaIOryckALpDxW2XiXP9Zz0vtG
jnNA9Y0UQJCWlz9qMA3DRzF0QAFR5qiCtJc/0GG+vADQdEBN1F3ShdCXPwTK
plxha3VAeC3CQ+fqlz9xrIvbaA52QMW3IFeIBZg/wARu3c2tdkB3bCgDlR6Y
PwSQ2sTJS3dAKUf7rH82mD+FmbZ/Zex3QDq/YKLuTZg/UdobfGGIeEA6UBjo
4mOYP5s4ud8hKHlAEDyN4Jd5mD+Kq8q+q8V5QFhZRklFjpg/h4px/iZnekCm
Qpp+waKYP6M7iJ0pB3tAV29znGK2mD8cmUf+YKh7QJMaPuqGyZg/5ujxe5tI
fEDSNX+e9NuYP9XKhF9q5XxAuyzSxHLtmD9HdxA7U4Z9QIONzn3f/pg/kzXq
IZojfkBBj9Bnaw+ZP8Fz7+ESx35AgEauzSMgmT9kWMUbGWZ/QNZ1wyn3L5k/
jswjfzACgEActeHqTz+ZP7hAguLHUYBAw78R+lxOmT8TZtr+VaGAQKXCsuML
XZk/I/PIH4zxgECSVa32gWuZP/wdigI9QYFAPv+Y+415mT+M22gAr5GBQIOF
azJuh5k/Rs7CnjbhgUBzqX7R3ZSZPxefAmA8MIJABL5XyPShmT9j7lpCvoGC
QADjwbkzr5k/7EfpfQ==
       
       "]], {{LineBox[{{303.18216, 0.024068036730676076`}, {303.18216, 
         0.02177584275632597}}], 
        LineBox[{
         Offset[{1.5, 0}, {303.18216, 0.024068036730676076`}], 
          Offset[{-1.5, 0}, {303.18216, 0.024068036730676076`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {303.18216, 0.02177584275632597}], 
          Offset[{-1.5, 0}, {303.18216, 0.02177584275632597}]}]}, {
        LineBox[{{312.89233, 0.024187056166370496`}, {312.89233, 
         0.021883527007668543`}}], 
        LineBox[{
         Offset[{1.5, 0}, {312.89233, 0.024187056166370496`}], 
          Offset[{-1.5, 0}, {312.89233, 0.024187056166370496`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {312.89233, 0.021883527007668543`}], 
          Offset[{-1.5, 0}, {312.89233, 0.021883527007668543`}]}]}, {
        LineBox[{{323.08002, 0.024307006489523757`}, {323.08002, 
         0.021992053490521492`}}], 
        LineBox[{
         Offset[{1.5, 0}, {323.08002, 0.024307006489523757`}], 
          Offset[{-1.5, 0}, {323.08002, 0.024307006489523757`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {323.08002, 0.021992053490521492`}], 
          Offset[{-1.5, 0}, {323.08002, 0.021992053490521492`}]}]}, {
        LineBox[{{333.00018, 0.02441920806216348}, {333.00018, 
         0.022093569199100292`}}], 
        LineBox[{
         Offset[{1.5, 0}, {333.00018, 0.02441920806216348}], 
          Offset[{-1.5, 0}, {333.00018, 0.02441920806216348}]}], 
        LineBox[{
         Offset[{1.5, 0}, {333.00018, 0.022093569199100292`}], 
          Offset[{-1.5, 0}, {333.00018, 0.022093569199100292`}]}]}, {
        LineBox[{{342.71127, 0.024524873911078996`}, {342.71127, 
         0.02218917163383338}}], 
        LineBox[{
         Offset[{1.5, 0}, {342.71127, 0.024524873911078996`}], 
          Offset[{-1.5, 0}, {342.71127, 0.024524873911078996`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {342.71127, 0.02218917163383338}], 
          Offset[{-1.5, 0}, {342.71127, 0.02218917163383338}]}]}, {
        LineBox[{{352.9006, 0.024631535371543972`}, {352.9006, 
         0.02228567485996836}}], 
        LineBox[{
         Offset[{1.5, 0}, {352.9006, 0.024631535371543972`}], 
          Offset[{-1.5, 0}, {352.9006, 0.024631535371543972`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {352.9006, 0.02228567485996836}], 
          Offset[{-1.5, 0}, {352.9006, 0.02228567485996836}]}]}, {
        LineBox[{{362.86276, 0.024731869443540944`}, {362.86276, 
         0.022376453306060855`}}], 
        LineBox[{
         Offset[{1.5, 0}, {362.86276, 0.024731869443540944`}], 
          Offset[{-1.5, 0}, {362.86276, 0.024731869443540944`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {362.86276, 0.022376453306060855`}], 
          Offset[{-1.5, 0}, {362.86276, 0.022376453306060855`}]}]}, {
        LineBox[{{372.73676, 0.024827665977100392`}, {372.73676, 
         0.02246312636023369}}], 
        LineBox[{
         Offset[{1.5, 0}, {372.73676, 0.024827665977100392`}], 
          Offset[{-1.5, 0}, {372.73676, 0.024827665977100392`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {372.73676, 0.02246312636023369}], 
          Offset[{-1.5, 0}, {372.73676, 0.02246312636023369}]}]}, {
        LineBox[{{382.77478, 0.024921526998328846`}, {382.77478, 
         0.022548048236583244`}}], 
        LineBox[{
         Offset[{1.5, 0}, {382.77478, 0.024921526998328846`}], 
          Offset[{-1.5, 0}, {382.77478, 0.024921526998328846`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {382.77478, 0.022548048236583244`}], 
          Offset[{-1.5, 0}, {382.77478, 0.022548048236583244`}]}]}, {
        LineBox[{{392.5238, 0.025009463011503853`}, {392.5238, 
         0.022627609391360628`}}], 
        LineBox[{
         Offset[{1.5, 0}, {392.5238, 0.025009463011503853`}], 
          Offset[{-1.5, 0}, {392.5238, 0.025009463011503853`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {392.5238, 0.022627609391360628`}], 
          Offset[{-1.5, 0}, {392.5238, 0.022627609391360628`}]}]}, {
        LineBox[{{402.50827, 0.025096408590865475`}, {402.50827, 
         0.022706274439354475`}}], 
        LineBox[{
         Offset[{1.5, 0}, {402.50827, 0.025096408590865475`}], 
          Offset[{-1.5, 0}, {402.50827, 0.025096408590865475`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {402.50827, 0.022706274439354475`}], 
          Offset[{-1.5, 0}, {402.50827, 0.022706274439354475`}]}]}, {
        LineBox[{{412.35443, 0.025179230429845677`}, {412.35443, 
         0.02278120848414609}}], 
        LineBox[{
         Offset[{1.5, 0}, {412.35443, 0.025179230429845677`}], 
          Offset[{-1.5, 0}, {412.35443, 0.025179230429845677`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {412.35443, 0.02278120848414609}], 
          Offset[{-1.5, 0}, {412.35443, 0.02278120848414609}]}]}, {
        LineBox[{{422.44702, 0.025261282462900762`}, {422.44702, 
         0.022855446037862596`}}], 
        LineBox[{
         Offset[{1.5, 0}, {422.44702, 0.025261282462900762`}], 
          Offset[{-1.5, 0}, {422.44702, 0.025261282462900762`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {422.44702, 0.022855446037862596`}], 
          Offset[{-1.5, 0}, {422.44702, 0.022855446037862596`}]}]}, {
        LineBox[{{432.44766, 0.025339906538921847`}, {432.44766, 
         0.022926582106643577`}}], 
        LineBox[{
         Offset[{1.5, 0}, {432.44766, 0.025339906538921847`}], 
          Offset[{-1.5, 0}, {432.44766, 0.025339906538921847`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {432.44766, 0.022926582106643577`}], 
          Offset[{-1.5, 0}, {432.44766, 0.022926582106643577`}]}]}, {
        LineBox[{{442.52368, 0.025416577767739226`}, {442.52368, 
         0.022995951313668824`}}], 
        LineBox[{
         Offset[{1.5, 0}, {442.52368, 0.025416577767739226`}], 
          Offset[{-1.5, 0}, {442.52368, 0.025416577767739226`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {442.52368, 0.022995951313668824`}], 
          Offset[{-1.5, 0}, {442.52368, 0.022995951313668824`}]}]}, {
        LineBox[{{452.53796, 0.025490392000749748`}, {452.53796, 
         0.023062735619725966`}}], 
        LineBox[{
         Offset[{1.5, 0}, {452.53796, 0.025490392000749748`}], 
          Offset[{-1.5, 0}, {452.53796, 0.025490392000749748`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {452.53796, 0.023062735619725966`}], 
          Offset[{-1.5, 0}, {452.53796, 0.023062735619725966`}]}]}, {
        LineBox[{{462.33847, 0.02556045811285991}, {462.33847, 
         0.023126128768778016`}}], 
        LineBox[{
         Offset[{1.5, 0}, {462.33847, 0.02556045811285991}], 
          Offset[{-1.5, 0}, {462.33847, 0.02556045811285991}]}], 
        LineBox[{
         Offset[{1.5, 0}, {462.33847, 0.023126128768778016`}], 
          Offset[{-1.5, 0}, {462.33847, 0.023126128768778016`}]}]}, {
        LineBox[{{472.39532, 0.02563025155670412}, {472.39532, 
         0.023189275217970394`}}], 
        LineBox[{
         Offset[{1.5, 0}, {472.39532, 0.02563025155670412}], 
          Offset[{-1.5, 0}, {472.39532, 0.02563025155670412}]}], 
        LineBox[{
         Offset[{1.5, 0}, {472.39532, 0.023189275217970394`}], 
          Offset[{-1.5, 0}, {472.39532, 0.023189275217970394`}]}]}, {
        LineBox[{{482.22513, 0.025696527597344258`}, {482.22513, 
         0.023249239254740043`}}], 
        LineBox[{
         Offset[{1.5, 0}, {482.22513, 0.025696527597344258`}], 
          Offset[{-1.5, 0}, {482.22513, 0.025696527597344258`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {482.22513, 0.023249239254740043`}], 
          Offset[{-1.5, 0}, {482.22513, 0.023249239254740043`}]}]}, {
        LineBox[{{492.44211, 0.025763499641604803`}, {492.44211, 
         0.023309833009071013`}}], 
        LineBox[{
         Offset[{1.5, 0}, {492.44211, 0.025763499641604803`}], 
          Offset[{-1.5, 0}, {492.44211, 0.025763499641604803`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {492.44211, 0.023309833009071013`}], 
          Offset[{-1.5, 0}, {492.44211, 0.023309833009071013`}]}]}, {
        LineBox[{{502.38113, 0.025826888103718672`}, {502.38113, 
         0.023367184474793086`}}], 
        LineBox[{
         Offset[{1.5, 0}, {502.38113, 0.025826888103718672`}], 
          Offset[{-1.5, 0}, {502.38113, 0.025826888103718672`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {502.38113, 0.023367184474793086`}], 
          Offset[{-1.5, 0}, {502.38113, 0.023367184474793086`}]}]}, {
        LineBox[{{512.27368, 0.02588835825595034}, {512.27368, 
         0.023422800326812213`}}], 
        LineBox[{
         Offset[{1.5, 0}, {512.27368, 0.02588835825595034}], 
          Offset[{-1.5, 0}, {512.27368, 0.02588835825595034}]}], 
        LineBox[{
         Offset[{1.5, 0}, {512.27368, 0.023422800326812213`}], 
          Offset[{-1.5, 0}, {512.27368, 0.023422800326812213`}]}]}, {
        LineBox[{{522.2226, 0.025948644066974457`}, {522.2226, 
         0.02347734463202451}}], 
        LineBox[{
         Offset[{1.5, 0}, {522.2226, 0.025948644066974457`}], 
          Offset[{-1.5, 0}, {522.2226, 0.025948644066974457`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {522.2226, 0.02347734463202451}], 
          Offset[{-1.5, 0}, {522.2226, 0.02347734463202451}]}]}, {
        LineBox[{{532.16699, 0.026007456837873713`}, {532.16699, 
         0.023530556186647643`}}], 
        LineBox[{
         Offset[{1.5, 0}, {532.16699, 0.026007456837873713`}], 
          Offset[{-1.5, 0}, {532.16699, 0.026007456837873713`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {532.16699, 0.023530556186647643`}], 
          Offset[{-1.5, 0}, {532.16699, 0.023530556186647643`}]}]}, {
        LineBox[{{542.19342, 0.026065380301497718`}, {542.19342, 
         0.02358296312992651}}], 
        LineBox[{
         Offset[{1.5, 0}, {542.19342, 0.026065380301497718`}], 
          Offset[{-1.5, 0}, {542.19342, 0.026065380301497718`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {542.19342, 0.02358296312992651}], 
          Offset[{-1.5, 0}, {542.19342, 0.02358296312992651}]}]}, {
        LineBox[{{552.15479, 0.026121644406668313`}, {552.15479, 
         0.02363386874889038}}], 
        LineBox[{
         Offset[{1.5, 0}, {552.15479, 0.026121644406668313`}], 
          Offset[{-1.5, 0}, {552.15479, 0.026121644406668313`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {552.15479, 0.02363386874889038}], 
          Offset[{-1.5, 0}, {552.15479, 0.02363386874889038}]}]}, {
        LineBox[{{562.21045, 0.026177223128092376`}, {562.21045, 
         0.023684154258750242`}}], 
        LineBox[{
         Offset[{1.5, 0}, {562.21045, 0.026177223128092376`}], 
          Offset[{-1.5, 0}, {562.21045, 0.026177223128092376`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {562.21045, 0.023684154258750242`}], 
          Offset[{-1.5, 0}, {562.21045, 0.023684154258750242`}]}]}, {
        LineBox[{{572.15167, 0.026231040198443908`}, {572.15167, 
         0.023732845893830203`}}], 
        LineBox[{
         Offset[{1.5, 0}, {572.15167, 0.026231040198443908`}], 
          Offset[{-1.5, 0}, {572.15167, 0.026231040198443908`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {572.15167, 0.023732845893830203`}], 
          Offset[{-1.5, 0}, {572.15167, 0.023732845893830203`}]}]}, {
        LineBox[{{582.02948, 0.026283470119808354`}, {582.02948, 
         0.023780282489350414`}}], 
        LineBox[{
         Offset[{1.5, 0}, {582.02948, 0.026283470119808354`}], 
          Offset[{-1.5, 0}, {582.02948, 0.026283470119808354`}]}], 
        LineBox[{
         Offset[{1.5, 0}, {582.02948, 0.023780282489350414`}], 
          Offset[{-1.5, 0}, {582.02948, 0.023780282489350414`}]}]}, {
        LineBox[{{592.2179, 0.02633652555786763}, {592.2179, 
         0.023828285028546902`}}], 
        LineBox[{
         Offset[{1.5, 0}, {592.2179, 0.02633652555786763}], 
          Offset[{-1.5, 0}, {592.2179, 0.02633652555786763}]}], 
        LineBox[{
         Offset[{1.5, 0}, {592.2179, 0.023828285028546902`}], 
          Offset[{-1.5, 0}, {592.2179, 
           0.023828285028546902`}]}]}}}}, {}}, {{}, {{}, 
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJwBwQE+/iFib1JlAgAAABsAAAACAAAAGy/dJIbHckA96DwsioaXP4saTMPw
ZXNAQZ7uJlpnlz9XW7G/bAV0QEdEkWHthpc/XwzlRLuidEBlQxhLiqKXP7hA
guJHRHVAKrV3cqijlz8BwRw9fuF1QHKxNp6E05c/SddMvtl/dkDNMPuV7QWY
P5nwS/08H3dApLxOcwn9lz8H6/8cZr13QAb+DmWn/pc/Qxzr4rZceEAQjss9
eyaYP7LXuz9e/nhAL/XDC2AamD+uDRXj/Jl5QCl94i2w/Jc/xhaCHBQ9ekDL
wEVTRi+YP+s56X3j2XpA2K3kNfctmD+kqgmi7nx7QCk0/qPWOZg/dZMYBNYZ
fEA5FOHCZUuYP8sQx7o4uXxArz7PWvdHmD9KB+v/nFh9QMB5LhLqVpg/vJF5
5I/3fUAPF7zPJXqYP8Qlx51SlH5AD4as3chumD+YbhKDQDd/QM7kgX1LkJg/
coqO5HLWf0DFPcJGvoeYPykF3V4SPIBAXfdpVfSymD87qpog6oqAQDOy8pV4
7Jg/Q8U4f9PbgECNRisPAxeZP2e4AZ9fK4FA9Bqv1wZImT/sUbgeBXuBQCaQ
KF9BN5k/kInLpA==
       "]]}, {}}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{304.6253587, 0.020952742071249555`},
  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]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{303.18216, 592.2179}, {0.022921939743501023`, 
   0.025082405293207266`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.002, 0.002}, {0.002, 0.002}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.698527960452859*^9, 3.698527982057437*^9}, 
   3.698528465095783*^9, 3.69852852762889*^9, {3.698528668129031*^9, 
   3.6985286746543903`*^9}, 3.6985287144585648`*^9, 3.6985291376380653`*^9, 
   3.698530303966691*^9, 3.6985304362509604`*^9, 3.6985304678750467`*^9, 
   3.6985305418100977`*^9, {3.698530584791404*^9, 3.698530604057088*^9}, 
   3.698530708221526*^9, {3.698530843801908*^9, 3.698530878997254*^9}, 
   3.698531151004263*^9}]
}, Open  ]]
},
WindowSize->{740, 867},
WindowMargins->{{48, Automatic}, {Automatic, 133}},
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 23, \
2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 168, 3, 32, "Text"],
Cell[728, 25, 625, 10, 71, "Text"],
Cell[1356, 37, 406, 7, 41, "Text"],
Cell[1765, 46, 968, 19, 88, "Input"],
Cell[2736, 67, 270, 9, 8, "Text"],
Cell[3009, 78, 397, 6, 26, "Text"],
Cell[3409, 86, 270, 9, 8, "Text"],
Cell[3682, 97, 242, 5, 26, "Text"],
Cell[3927, 104, 1530, 26, 27, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[5460, 132, 2817, 83, 133, "Output"],
Cell[8280, 217, 122, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[8427, 222, 267, 7, 43, "Input"],
Cell[8697, 231, 2454, 63, 133, "Output"]
}, Open  ]],
Cell[11166, 297, 237, 7, 27, "Input"],
Cell[CellGroupData[{
Cell[11428, 308, 356, 12, 33, "Input"],
Cell[11787, 322, 1046, 33, 61, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12870, 360, 758, 21, 58, "Input"],
Cell[13631, 383, 693, 12, 23, "Message"],
Cell[14327, 397, 710, 15, 53, "Output"]
}, Open  ]],
Cell[15052, 415, 154, 3, 26, "Text"],
Cell[CellGroupData[{
Cell[15231, 422, 636, 17, 58, "Input"],
Cell[15870, 441, 4004, 79, 240, "Output"]
}, Open  ]],
Cell[19889, 523, 276, 8, 27, "Input"],
Cell[20168, 533, 451, 13, 27, "Input"],
Cell[20622, 548, 717, 14, 27, "Input"],
Cell[21342, 564, 193, 4, 26, "Text"],
Cell[21538, 570, 345, 10, 27, "Input"],
Cell[21886, 582, 255, 5, 41, "Text"],
Cell[22144, 589, 777, 23, 50, "Input"],
Cell[22924, 614, 450, 13, 27, "Input"],
Cell[23377, 629, 419, 11, 27, "Input"],
Cell[23799, 642, 270, 9, 8, "Text"],
Cell[24072, 653, 410, 6, 26, "Text"],
Cell[24485, 661, 270, 9, 10, "Text"],
Cell[24758, 672, 110, 1, 26, "Text"],
Cell[24871, 675, 1604, 25, 43, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[26478, 702, 2102, 57, 118, "Output"],
Cell[CellGroupData[{
Cell[28605, 763, 1655, 37, 50, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[30263, 802, 644, 16, 27, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[30910, 820, 531, 11, 49, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[31444, 833, 538, 12, 27, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[31985, 847, 1149, 19, 27, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[33137, 868, 546, 13, 27, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[33686, 883, 1206, 19, 27, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Open  ]],
Cell[34907, 905, 270, 9, 8, "Text"],
Cell[35180, 916, 353, 5, 41, "Text"],
Cell[35536, 923, 270, 9, 10, "Text"],
Cell[35809, 934, 275, 6, 47, "Input"],
Cell[36087, 942, 305, 6, 27, "Input"],
Cell[36395, 950, 79, 1, 27, "Input"],
Cell[36477, 953, 431, 11, 27, "Input"],
Cell[CellGroupData[{
Cell[36933, 968, 815, 16, 43, "Input"],
Cell[37751, 986, 15307, 305, 238, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)