(* 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 *)