(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 314082, 7100] NotebookOptionsPosition[ 290419, 6711] NotebookOutlinePosition[ 291145, 6735] CellTagsIndexPosition[ 291064, 6730] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["3.029 Spring 2022\[LineSeparator]Lecture 19 - 04/11/2022", "Subtitle", CellChangeTimes->{{3.8525512993398438`*^9, 3.8525513206118402`*^9}, { 3.852652054138073*^9, 3.8526520591301193`*^9}, {3.853194369726288*^9, 3.8531943739664793`*^9}, 3.8531971130005827`*^9, {3.853361889945813*^9, 3.853361893353859*^9}, {3.854455749568426*^9, 3.8544557604776297`*^9}, { 3.8545621484661007`*^9, 3.8545621501697083`*^9}, {3.85499650158072*^9, 3.854996504060568*^9}, {3.855176893175762*^9, 3.855176906151746*^9}, { 3.855604699389501*^9, 3.855604707177799*^9}, {3.85582102333785*^9, 3.855821026740013*^9}, {3.8561799930634317`*^9, 3.8561800234790487`*^9}, { 3.85637308472639*^9, 3.856373086934021*^9}, {3.856876646984232*^9, 3.85687665146917*^9}, {3.8569463887392263`*^9, 3.856946392718061*^9}, { 3.8579871301082*^9, 3.8579871339082947`*^9}, {3.858157344254057*^9, 3.858157348732129*^9}, {3.858588978858674*^9, 3.8585889857619467`*^9}},ExpressionUUID->"3cf93f71-803f-410f-b82f-\ f0e128263fb3"], Cell[CellGroupData[{ Cell["Statistical Mechanics I", "Chapter", CellChangeTimes->{{3.852551340964005*^9, 3.852551346980482*^9}, 3.8526520737398577`*^9, {3.853194378006518*^9, 3.853194381142681*^9}, { 3.853361935778483*^9, 3.853361942498363*^9}, {3.854456274982847*^9, 3.854456277927383*^9}, {3.8544565045315533`*^9, 3.854456514672267*^9}, 3.854562160779923*^9, {3.854996506556843*^9, 3.854996508477077*^9}, { 3.854996641253805*^9, 3.854996643918687*^9}, {3.855604708758831*^9, 3.855604727103332*^9}, {3.855660670350954*^9, 3.855660672414981*^9}, { 3.8558210308839273`*^9, 3.8558210389988337`*^9}, {3.856180026750667*^9, 3.856180028663183*^9}, {3.8563730901501093`*^9, 3.856373091878005*^9}, { 3.8568766564578753`*^9, 3.8568766633937473`*^9}, {3.856946404596374*^9, 3.856946407488679*^9}, {3.857987158508334*^9, 3.857987171708667*^9}, { 3.858157351447757*^9, 3.8581573552445*^9}, 3.858190562334887*^9, { 3.858588987034586*^9, 3.858588992363106*^9}, {3.858589026243301*^9, 3.858589028019216*^9}, {3.858590990612727*^9, 3.858590992164358*^9}},ExpressionUUID->"735111f0-d3c2-4691-b14d-\ 2c53c151c643"], Cell[TextData[{ "Ludwig Boltzmann, who spent much of his life studying statistical \ mechanics, died in 1906, by his own hand. \[LineSeparator]Paul Ehrenfest, \ carrying on the work, died similarly in 1933. Now it is our turn to study \ statistical mechanics. \[LineSeparator]Perhaps it will be wise to approach \ the subject cautiously.\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t", StyleBox["David Louis Goodstein", FontWeight->"Bold"] }], "Abstract", CellChangeTimes->{{3.7900797682029*^9, 3.7900798424606214`*^9}},ExpressionUUID->"21f51c48-881e-415f-a649-\ 4a95e66df332"], Cell[CellGroupData[{ Cell["Statistical Ensembles", "Section", CellChangeTimes->{{3.85859099514077*^9, 3.85859102286833*^9}},ExpressionUUID->"b512db94-fa30-41e5-bca7-\ e72eb60e0055"], Cell[TextData[{ "Statistical mechanics is a probabilistic approach to ", StyleBox["equilibrium ", FontSlant->"Italic"], "macroscopic properties of large # of degrees of freedom." }], "Item", CellChangeTimes->{{3.858591030049753*^9, 3.858591035519431*^9}},ExpressionUUID->"63157286-de4c-4be6-9a0e-\ fe14d5a2f97b"], Cell[CellGroupData[{ Cell[TextData[{ "We already know how to describe ", StyleBox["equilibrium", FontSlant->"Italic"], " properties at the macro-scale \[Rule] Thermodynamics!" }], "Item", CellChangeTimes->{{3.858591030049753*^9, 3.858591035188223*^9}},ExpressionUUID->"48957709-aca7-48e8-b424-\ b083a034c46f"], Cell[TextData[{ "Macro-state,", StyleBox[" M :\t", FontSlant->"Italic"], "Described by a few Thermodynamic variables" }], "Subitem", CellChangeTimes->{{3.8585910550658092`*^9, 3.8585910765037003`*^9}, 3.8585911087002068`*^9},ExpressionUUID->"5386f1a0-c929-4987-bfa9-\ 0ca2717a1eff"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Statistical mechanics studies ", StyleBox["ensembles ", FontSlant->"Italic"], "of ", StyleBox["micro-states", FontSlant->"Italic"], ", corresponding to a given ", StyleBox["macro-state", FontSlant->"Italic"] }], "Item", CellChangeTimes->{{3.8585910550658092`*^9, 3.8585910732831287`*^9}},ExpressionUUID->"7037da91-c905-42a5-8321-\ 22ce53deff18"], Cell[TextData[{ "Micro-state,", StyleBox[" \[Mu] : \t\t", FontSlant->"Italic"], "Described by a large number of degrees of freedom" }], "Subitem", CellChangeTimes->{{3.8585910550658092`*^9, 3.8585911092922783`*^9}},ExpressionUUID->"379f253f-dffa-4ab6-a2eb-\ aba62c1cd994"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Instead of averaging the \[OpenCurlyDoubleQuote]mechanical\ \[CloseCurlyDoubleQuote] variables over time, we postulate that, given \ sufficient time, the \ \[OpenCurlyDoubleQuote]mechanical\[CloseCurlyDoubleQuote] variable will \ evolve through all the possible microscopic states\ \>", "Item", CellChangeTimes->{{3.858591121280658*^9, 3.858591168572907*^9}, { 3.858592118536601*^9, 3.858592162192732*^9}},ExpressionUUID->"05d709a5-59da-4b29-8d27-\ 2470a966106e"], Cell["\<\ Thus an average over a large number of possible microscopic states, i.e. an \ ensemble average, can be used instead\ \>", "Subitem", CellChangeTimes->{{3.858591121280658*^9, 3.858591168572907*^9}, { 3.858592118536601*^9, 3.85859216489684*^9}},ExpressionUUID->"4c737af7-a689-4b1a-9a56-\ 15cbfdc3a711"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ The second postulate of statistical mechanics states that microstates in \ ensembles are distributed uniformly\ \>", "Item", CellChangeTimes->{{3.858592172051961*^9, 3.85859221152108*^9}, { 3.8585923516925373`*^9, 3.858592367236636*^9}},ExpressionUUID->"bff83bad-6f91-4dcc-a00e-\ 4b1237267dd6"], Cell["I.e. each microstate has the same probability of occurring ", "Subitem", CellChangeTimes->{{3.858592172051961*^9, 3.8585921725190973`*^9}, { 3.858592376892511*^9, 3.858592387469866*^9}},ExpressionUUID->"495fc03e-e92a-4fb0-80d0-\ 57934e83138c"] }, Open ]], Cell[CellGroupData[{ Cell["Together the two postulates form the ergodicity hypothesis", "Item", CellChangeTimes->{{3.85859239366362*^9, 3.8585924050800734`*^9}},ExpressionUUID->"7810c917-1011-4693-9a6c-\ 8064be1e8c3f"], Cell[TextData[StyleBox["A system would spend the same amount of time in each \ microstate over a long time", FontSlant->"Italic"]], "Subitem", CellChangeTimes->{{3.85859239366362*^9, 3.858592419045425*^9}},ExpressionUUID->"f7f4f3dd-53cc-460b-9f32-\ 145173203702"] }, Open ]], Cell[CellGroupData[{ Cell["Thermodynamic Potentials Reminder", "Subsection", CellChangeTimes->{{3.8585926385146008`*^9, 3.858592646129846*^9}},ExpressionUUID->"0cf27a65-1d09-46d0-8312-\ 4fa333b64f60"], Cell["\<\ Recall that we can recast the fundamental thermodynamic relation\ \>", "Item", CellChangeTimes->{{3.858592648567646*^9, 3.858592662674561*^9}, { 3.858592705713511*^9, 3.858592717345228*^9}, {3.858592752233127*^9, 3.858592758929152*^9}},ExpressionUUID->"322788e5-874a-445b-848b-\ 9472e579a334"], Cell[BoxData[ RowBox[{"\t", TemplateBox[<|"boxes" -> FormBox[ RowBox[{ StyleBox["d", "TI"], StyleBox["U", "TI"], "\[LongEqual]", StyleBox["T", "TI"], StyleBox["d", "TI"], StyleBox["S", "TI"], "-", StyleBox["P", "TI"], StyleBox["d", "TI"], StyleBox["V", "TI"], "+", UnderscriptBox["\[Sum]", StyleBox["j", "TI"], LimitsPositioning -> True], SubscriptBox["\[Mu]", StyleBox["j", "TI"]], StyleBox["d", "TI"], SubscriptBox[ StyleBox["n", "TI"], StyleBox["j", "TI"]]}], TraditionalForm], "errors" -> {}, "input" -> "d \\mathcal{U} = T dS -P dV + \\sum_j \\mu_j d n_j", "state" -> "Boxes"|>, "TeXAssistantTemplate"]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.7735647893570647`*^9, 3.7735647902824917`*^9}, { 3.7735660158612933`*^9, 3.773566016706119*^9}, {3.7735676244674263`*^9, 3.773567625284314*^9}, {3.7735678890224657`*^9, 3.773567891494249*^9}, { 3.7735683430528593`*^9, 3.7735683437834396`*^9}, 3.773724600013646*^9, { 3.853362665796761*^9, 3.853362666140524*^9}, {3.8533633046775913`*^9, 3.8533633120769987`*^9}, 3.853753756131023*^9, 3.853754027847805*^9}, FontSize->18, CellTags-> "eq:van-der-waals",ExpressionUUID->"c23d0582-1768-48d8-8875-8650b9a68458"], Cell[TextData[{ "In more ", StyleBox["natural ", FontSlant->"Italic"], "variables, depending on the experimental conditions we\[CloseCurlyQuote]re \ interested in" }], "Subitem", CellChangeTimes->{ 3.8585927228953943`*^9, {3.858592773089169*^9, 3.858592797960268*^9}, { 3.8585928471905813`*^9, 3.85859284730437*^9}},ExpressionUUID->"eaa58e27-7fb0-4f3e-a1b2-\ 9104d39c1eb7"], Cell[CellGroupData[{ Cell[TextData[{ "Entropy", StyleBox[" ", FontSlant->"Italic"], Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{ StyleBox["S", "TI"], "(", RowBox[{ StyleBox["U", "TI"], ",", StyleBox["V", "TI"], ",", RowBox[{"{", SubscriptBox[ StyleBox["n", "TI"], StyleBox["j", "TI"]], "}"}]}], ")"}], TraditionalForm], "errors" -> {}, "input" -> "S(U,V,\\{n_j\\})", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "d7fd461f-0835-46a4-bac5-34cb61889588"], StyleBox[" ", FontSlant->"Italic"], "\[LineSeparator]\[LineSeparator]", Cell[BoxData[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{ StyleBox["d", "TI"], StyleBox["S", "TI"], "\[LongEqual]", FractionBox["1", StyleBox["T", "TI"]], StyleBox["d", "TI"], StyleBox["U", "TI"], "+", FractionBox[ StyleBox["P", "TI"], StyleBox["V", "TI"]], StyleBox["d", "TI"], StyleBox["V", "TI"], "-", UnderscriptBox["\[Sum]", StyleBox["j", "TI"], LimitsPositioning -> True], FractionBox[ SubscriptBox["\[Mu]", StyleBox["j", "TI"]], StyleBox["T", "TI"]], StyleBox["d", "TI"], SubscriptBox[ StyleBox["n", "TI"], StyleBox["j", "TI"]]}], TraditionalForm], "errors" -> {}, "input" -> "d \\mathcal{S} = \\frac{1}{T}d\\mathcal{U} +\\frac{P}{V} dV - \\sum_j \ \\frac{\\mu_j}{T} d n_j", "state" -> "Boxes"|>, "TeXAssistantTemplate"]], "Input",ExpressionUUID-> "9dd95da4-021a-4b40-a471-2a884d2ea223"] }], "Item", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754587471159*^9}, {3.8585928653923607`*^9, 3.8585928664726343`*^9}, {3.858593625068804*^9, 3.858593651647923*^9}},ExpressionUUID->"2d71d586-1775-44a5-b6b4-\ 8a4f835ddf1a"], Cell[CellGroupData[{ Cell[TextData[{ "its ", "natural variables", StyleBox[" ", FontWeight->"Bold"], "are:" }], "Subitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754608851101*^9}},ExpressionUUID->"0a6aa83d-d821-4c94-bef4-\ d0ad990a8a39"], Cell["Internal Energy, U", "Subsubitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754614629553*^9}, {3.858593655261643*^9, 3.858593659301702*^9}},ExpressionUUID->"be02c220-b7f4-4258-a49e-\ 4ca0803b9ebe"], Cell[TextData[{ "Volume, ", Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ StyleBox["V", "TI"], TraditionalForm], "errors" -> {}, "input" -> "V", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "1d4551d3-4abb-40ca-a349-12afe288a368"] }], "Subsubitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754620876851*^9}},ExpressionUUID->"6bae0bb0-e33e-4a4d-809a-\ 1f77c864ad8d"], Cell[TextData[{ "Mole numbers, ", Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{"{", SubscriptBox[ StyleBox["n", "TI"], StyleBox["j", "TI"]], "}"}], TraditionalForm], "errors" -> {}, "input" -> "\\{n_j\\}", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "e6fe5cf6-849c-4e9d-9cf7-b1967596600b"] }], "Subsubitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.8537546325125504`*^9}, {3.853755268935026*^9, 3.853755268937495*^9}},ExpressionUUID->"e212ca8b-ab62-4162-b855-\ 1de8bfa3a989"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Helmholtz free energy", StyleBox[" ", FontSlant->"Italic"], Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{ StyleBox["A", "TI"], "(", RowBox[{ StyleBox["T", "TI"], ",", StyleBox["V", "TI"], ",", RowBox[{"{", SubscriptBox[ StyleBox["n", "TI"], StyleBox["j", "TI"]], "}"}]}], ")"}], TraditionalForm], "errors" -> {}, "input" -> "\\mathcal{A}(T,V,\\{n_j\\})", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "8f330aae-5000-44e3-9acb-6af79d03021e"], "\[LineSeparator]\[LineSeparator]", Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{ StyleBox["d", "TI"], StyleBox["A", "TI"], "\[LongEqual]", "-", StyleBox["P", "TI"], StyleBox["d", "TI"], StyleBox["V", "TI"], "+", UnderscriptBox["\[Sum]", StyleBox["j", "TI"], LimitsPositioning -> True], SubscriptBox["\[Mu]", StyleBox["j", "TI"]], StyleBox["d", "TI"], SubscriptBox[ StyleBox["n", "TI"], StyleBox["j", "TI"]], "-", StyleBox["S", "TI"], StyleBox["d", "TI"], StyleBox["T", "TI"]}], TraditionalForm], "errors" -> {}, "input" -> "d\\mathcal{A} = -P dV + \\sum_j \\mu_j d n_j - S dT", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "623fc715-1415-48d0-8a03-392f0ac90264"] }], "Item", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754587471159*^9}, {3.8585928653923607`*^9, 3.8585928664726343`*^9}, {3.858592916440948*^9, 3.858592955379859*^9}},ExpressionUUID->"2d2d87f7-0d86-4786-ac83-\ 2dbeea254617"], Cell[CellGroupData[{ Cell[TextData[{ "its ", "natural variables", StyleBox[" ", FontWeight->"Bold"], "are:" }], "Subitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754608851101*^9}},ExpressionUUID->"9a168319-8a49-4679-bcd8-\ 20d28c0acd28"], Cell["Temperature, T", "Subsubitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754614629553*^9}, {3.8585929774247227`*^9, 3.8585929793770647`*^9}},ExpressionUUID->"d2477879-c7d4-4528-a584-\ d63bdf082d28"], Cell[TextData[{ "Volume, ", Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ StyleBox["V", "TI"], TraditionalForm], "errors" -> {}, "input" -> "V", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "fdbad874-26c9-4bf7-96b5-86494901be24"] }], "Subsubitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754620876851*^9}},ExpressionUUID->"013a1dae-c240-42b4-a6d4-\ fc106656c010"], Cell[TextData[{ "Mole numbers, ", Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{"{", SubscriptBox[ StyleBox["n", "TI"], StyleBox["j", "TI"]], "}"}], TraditionalForm], "errors" -> {}, "input" -> "\\{n_j\\}", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "8611d65e-2253-4545-baab-25bf04be3167"] }], "Subsubitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.8537546325125504`*^9}, {3.853755268935026*^9, 3.853755268937495*^9}},ExpressionUUID->"22ba0297-619e-41aa-b3bb-\ 374e00fafbe0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Gibbs free energy", StyleBox[" ", FontSlant->"Italic"], Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{ StyleBox["G", "TI"], "(", RowBox[{ StyleBox["T", "TI"], ",", StyleBox["P", "TI"], ",", RowBox[{"{", SubscriptBox[ StyleBox["n", "TI"], StyleBox["j", "TI"]], "}"}]}], ")"}], TraditionalForm], "errors" -> {}, "input" -> "\\mathcal{G}(T,P,\\{n_j\\})", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "cd560987-355d-4901-a153-f85219ee62fd"], "\[LineSeparator]\[LineSeparator]", Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{ StyleBox["d", "TI"], StyleBox["G", "TI"], "\[LongEqual]", StyleBox["V", "TI"], StyleBox["d", "TI"], StyleBox["P", "TI"], "+", UnderscriptBox["\[Sum]", StyleBox["j", "TI"], LimitsPositioning -> True], SubscriptBox["\[Mu]", StyleBox["j", "TI"]], StyleBox["d", "TI"], SubscriptBox[ StyleBox["n", "TI"], StyleBox["j", "TI"]], "-", StyleBox["S", "TI"], StyleBox["d", "TI"], StyleBox["T", "TI"]}], TraditionalForm], "errors" -> {}, "input" -> "d\\mathcal{G} = V dP + \\sum_j \\mu_j d n_j - S dT", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "adabe4f3-cc8f-4310-af85-6e58208b3b68"] }], "Item", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754587471159*^9}, {3.8585928653923607`*^9, 3.8585928664726343`*^9}, {3.858592916440948*^9, 3.85859298495223*^9}},ExpressionUUID->"c725eef0-7e1a-49a6-ad5a-\ 616527fea3c9"], Cell[CellGroupData[{ Cell[TextData[{ "its ", "natural variables", StyleBox[" ", FontWeight->"Bold"], "are:" }], "Subitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754608851101*^9}},ExpressionUUID->"e57f6372-19fe-417e-afc7-\ d2e5ecd21390"], Cell["Temperature, T", "Subsubitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754614629553*^9}, {3.8585929774247227`*^9, 3.8585929793770647`*^9}},ExpressionUUID->"3987e144-c48c-49af-888e-\ 4b81825835d9"], Cell[TextData[{ "Pressure, ", Cell[BoxData[ FormBox["P", TraditionalForm]],ExpressionUUID-> "fcf35d00-6e98-4bb1-a18f-a7bbc56941fc"] }], "Subsubitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754620876851*^9}, {3.858593003176568*^9, 3.858593007540386*^9}},ExpressionUUID->"c848c0a3-ceac-4b3e-88c1-\ b9c2dd69657e"], Cell[TextData[{ "Mole numbers, ", Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{"{", SubscriptBox[ StyleBox["n", "TI"], StyleBox["j", "TI"]], "}"}], TraditionalForm], "errors" -> {}, "input" -> "\\{n_j\\}", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "1b063bd3-e33b-4a06-8a45-225f430945de"] }], "Subsubitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.8537546325125504`*^9}, {3.853755268935026*^9, 3.853755268937495*^9}},ExpressionUUID->"55b01be4-9a24-4fe8-93ff-\ 629251763fec"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Grand energy", StyleBox[" ", FontSlant->"Italic"], Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{ SubscriptBox[ StyleBox["G", "TI"], StyleBox["c", "TI"]], "(", RowBox[{ StyleBox["T", "TI"], ",", StyleBox["V", "TI"], ",", RowBox[{"{", SubscriptBox["\[Mu]", StyleBox["j", "TI"]], "}"}]}], ")"}], TraditionalForm], "errors" -> {}, "input" -> "\\mathcal{G}_c(T,V,\\{\\mu_j\\})", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "e5b66af0-b94f-492c-b925-38ef6885c732"], "\[LineSeparator]\[LineSeparator]", Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{ StyleBox["d", "TI"], SubscriptBox[ StyleBox["G", "TI"], StyleBox["C", "TI"]], "\[LongEqual]", "-", StyleBox["P", "TI"], StyleBox["d", "TI"], StyleBox["V", "TI"], "+", UnderscriptBox["\[Sum]", StyleBox["j", "TI"], LimitsPositioning -> True], SubscriptBox[ StyleBox["n", "TI"], StyleBox["j", "TI"]], StyleBox["d", "TI"], SubscriptBox["\[Mu]", StyleBox["j", "TI"]], "-", StyleBox["S", "TI"], StyleBox["d", "TI"], StyleBox["T", "TI"]}], TraditionalForm], "errors" -> {}, "input" -> "d\\mathcal{G}_C = - P d V + \\sum_j n_j d\\mu_j - S dT", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "56cc6b47-3704-41e2-a4a6-46a1d2c8e4b7"] }], "Item", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754587471159*^9}, {3.8585928653923607`*^9, 3.8585928664726343`*^9}, {3.858592916440948*^9, 3.85859298495223*^9}, { 3.8585931183926373`*^9, 3.858593133009603*^9}, {3.85859319882495*^9, 3.858593199224824*^9}, {3.858593460356146*^9, 3.858593461073905*^9}},ExpressionUUID->"90225943-2a4e-4841-aa20-\ 149af880155f"], Cell[CellGroupData[{ Cell[TextData[{ "its ", "natural variables", StyleBox[" ", FontWeight->"Bold"], "are:" }], "Subitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754608851101*^9}},ExpressionUUID->"8a66dc36-eef6-4e74-aff7-\ 809ece44fbda"], Cell["Temperature, T", "Subsubitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754614629553*^9}, {3.8585929774247227`*^9, 3.8585929793770647`*^9}},ExpressionUUID->"ddfb5479-7e20-4750-8df2-\ 0e96ebdb4a2d"], Cell["Volume, V", "Subsubitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.853754620876851*^9}, {3.858593003176568*^9, 3.858593007540386*^9}, {3.858593482433639*^9, 3.858593484563623*^9}},ExpressionUUID->"84c75893-1830-48ec-9c8e-\ eeb072b2eea6"], Cell[TextData[{ "Chemical potentials, ", Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{"{", SubscriptBox["\[Mu]", StyleBox["j", "TI"]], "}"}], TraditionalForm], "errors" -> {}, "input" -> "\\{\\mu_j\\}", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "51340e23-97d3-4981-a4ce-7f141d1bb7fa"] }], "Subsubitem", CellChangeTimes->{{3.853754483854239*^9, 3.8537545487581*^9}, { 3.853754582878977*^9, 3.8537546325125504`*^9}, {3.853755268935026*^9, 3.853755268937495*^9}, {3.858593488627981*^9, 3.858593494284143*^9}},ExpressionUUID->"5ebb382e-2d45-441d-b23f-\ 56da8865032f"] }, Open ]] }, Open ]], Cell["\<\ Each thermodynamic potential corresponds to a particular statistical ensemble\ \ \>", "Item", CellChangeTimes->{{3.858593523399756*^9, 3.8585935628413363`*^9}, { 3.858593716307067*^9, 3.8585937163078947`*^9}},ExpressionUUID->"6853ceeb-8955-49dd-bd9d-\ 32d579184531"], Cell[CellGroupData[{ Cell["The two most important ones we\[CloseCurlyQuote]ll study are:", "Item", CellChangeTimes->{{3.858593523399756*^9, 3.8585935628413363`*^9}, { 3.858593718310596*^9, 3.858593729654153*^9}},ExpressionUUID->"49f373b5-b792-4a63-9601-\ 8a8201855e16"], Cell["Entropy \t\t\t\[Rule] \t\tMicrocanonical ensemble, aka NVE", "Subitem", CellChangeTimes->{{3.858593523399756*^9, 3.858593601907563*^9}, { 3.85859366547788*^9, 3.858593702812014*^9}, {3.8585939479208927`*^9, 3.8585939921378307`*^9}},ExpressionUUID->"56d8aad2-f0e0-44a0-af92-\ bfac785ed389"], Cell["Helmholtz Free Energy \t\t\[Rule] \t\tCanonical ensemble, aka NVT", \ "Subitem", CellChangeTimes->{{3.858593523399756*^9, 3.858593601907563*^9}, { 3.85859366547788*^9, 3.858593705277811*^9}, {3.858593754518317*^9, 3.8585937549825363`*^9}, {3.858593993929771*^9, 3.8585939943059807`*^9}},ExpressionUUID->"f5863d0d-cc4e-463e-9010-\ 96ef275ab205"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["The Microcanonical Ensemble", "Section", CellChangeTimes->{{3.8585939355682993`*^9, 3.858593945344677*^9}},ExpressionUUID->"4c0c9a59-9a55-4308-8f24-\ 7d361b5583a7"], Cell[CellGroupData[{ Cell[TextData[{ "As we mentioned above, this corresponds to an ", StyleBox["isolated", FontSlant->"Italic"], " ", "system" }], "Item", CellChangeTimes->{{3.858593997039815*^9, 3.858594047615834*^9}},ExpressionUUID->"08684a80-f3b8-48d9-a779-\ 687a67d2b049"], Cell["I.e. no work or heat is performed", "Subitem", CellChangeTimes->{{3.858593997039815*^9, 3.85859407021103*^9}},ExpressionUUID->"fc9c5486-f3b2-44ab-9e67-\ e2bfa93fb1d8"] }, Open ]], Cell["This fixes the internal energy of the system", "Item", CellChangeTimes->{{3.8585940875986958`*^9, 3.858594098195796*^9}},ExpressionUUID->"defa5b48-1429-43aa-9217-\ 6ae7e2a86b7d"], Cell["\<\ Since the total internal energy is conserved, all the microstates are \ confined on this constant-E surface\ \>", "Item", CellChangeTimes->{{3.8585940801976833`*^9, 3.858594128795536*^9}, { 3.85859679355783*^9, 3.858596793564465*^9}},ExpressionUUID->"cb41c1e5-3a90-462c-ac8e-\ 12e895842162"], Cell["\<\ The probability of observing a particular microstate is then given by\ \>", "Item", CellChangeTimes->{{3.8585940801976833`*^9, 3.858594128795536*^9}, { 3.858596794200788*^9, 3.858596811776992*^9}},ExpressionUUID->"6baca782-05b1-4b54-8549-\ a559ad12eba2"], Cell[BoxData[ RowBox[{"\t", RowBox[{ RowBox[{ SubscriptBox["p", RowBox[{"(", RowBox[{"\[ScriptCapitalU]", StyleBox[",", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["V", FontSlant->"Italic"], StyleBox[",", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["N", FontSlant->"Italic"]}], StyleBox[")", FontSlant->"Italic"]}]], RowBox[{"(", "\[Mu]", ")"}]}], "=", RowBox[{ FractionBox["1", RowBox[{"\[CapitalOmega]", RowBox[{"(", RowBox[{"\[ScriptCapitalU]", StyleBox[",", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["V", FontSlant->"Italic"], StyleBox[",", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["N", FontSlant->"Italic"]}], StyleBox[")", FontSlant->"Italic"]}]}]], TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"1", RowBox[{ RowBox[{"for", " ", "E", RowBox[{"(", "\[Mu]", ")"}]}], "=", "\[ScriptCapitalU]"}]}, {"0", "otherwise"} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]}]}]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}},ExpressionUUID->"ec3a4843-0dc6-4f59-97b8-\ 775042e703ba"], Cell["\<\ Where \[CapitalOmega](\[ScriptCapitalU], V, N) is the \ \[OpenCurlyDoubleQuote]degeneracy\[CloseCurlyDoubleQuote] or the surface area \ of the constant-energy surface\ \>", "Subitem", CellChangeTimes->{{3.858596813463275*^9, 3.858596840265505*^9}},ExpressionUUID->"08f1f7ec-186f-4c27-a18f-\ f7567493923f"], Cell[CellGroupData[{ Cell["Infinite Stair-Case", "Subsection", CellChangeTimes->{{3.858595793894751*^9, 3.858595823622761*^9}},ExpressionUUID->"2a820666-85f5-4167-8372-\ 26b00750da39"], Cell[CellGroupData[{ Cell[TextData[{ "Consider ", StyleBox["N", FontSlant->"Italic"], " non-interacting particles on an infinite staircase \ \[OpenCurlyDoubleQuote]potential\[CloseCurlyDoubleQuote] of the form" }], "Item", CellChangeTimes->{{3.858595829160717*^9, 3.8585959253758802`*^9}, { 3.858596147082694*^9, 3.858596182067226*^9}, 3.858596331605208*^9, 3.8585984074666843`*^9},ExpressionUUID->"50b8e060-63c3-45a1-83e2-\ ab029013c2f4"], Cell[BoxData[ GraphicsBox[ {Thickness[0.001955579905915056], {FaceForm[{RGBColor[0.901961, 0.901961, 0.901961], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIJIGYC4gJbruuLXdIcQFRBZ5LDvvlS+ncj0hxe/F75 8ZJtosPbGnvTOLkMDH4hSMOHOAcGEHiSicH3Me90TEiNdtC/q8LWuDIbg/8O ZM6tcIe4XZ48TPm5GPwJh75qxPiHOIDdZ5KPwc/eUzJZ4kiAw2QJljC+2gIM Pky9VrvYzXPxhRh8mH1bT5Ttm+9UhMGHudcbRKsWY/Bh/r1a8VLNkKMEgw8L r9znQMYrTP6898uPedcnOQAABTSoSg== "]]}, {FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{277.387, 89.349}, {277.387, 85.66999999999999}, {274.402, 82.68499999999999}, { 270.719, 82.68499999999999}, {267.039, 82.68499999999999}, {264.055, 85.66999999999999}, {264.055, 89.349}, {264.055, 93.033}, {267.039, 96.01700000000001}, {270.719, 96.01700000000001}, {274.402, 96.01700000000001}, {277.387, 93.033}, {277.387, 89.349}}}]}, {FaceForm[{RGBColor[0.901961, 0.901961, 0.901961], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIJIGYC4p1yra8DvUodyvfNl9IvTXK47987PS+k1EFh Q1HGRM1Eh4yJb2vszcsw+DJRKdb3j8c5MICAVDkGfz/QuLs20Q7T84SaD/zB 5M8EgY3hEHPvV2DwrUEOUQtxALvvUCUG//z34MdLZwc4TJZgCeNbWoXBh6kH u6u9GoMPs2/ribJ987NqMPgw93qbdzom+NZi8GH+vVrxUs3QoA6DDwuv3Oe/ V34UqsfgBwCDWSg7yQEAzMOovQ== "]]}, {FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{466.867, 116.42}, {466.867, 112.74000000000001`}, {463.883, 109.756}, {460.203, 109.756}, {456.52, 109.756}, {453.539, 112.74000000000001`}, {453.539, 116.42}, {453.539, 120.103}, {456.52, 123.088}, {460.203, 123.088}, { 463.883, 123.088}, {466.867, 120.103}, {466.867, 116.42}}}]}, {FaceForm[{RGBColor[0.901961, 0.901961, 0.901961], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIJIGYC4qw9JZMlWPQcyvfNl9IvTXK4UvFSzdBD30Fh Q1HGRM1EB4tOx4SnF2wx+DJRKdb3j8c5RFhuOVH2zxWDvx9o3F2baAfRde4P q0R8MfgzQWBjuIP+XRW2RtEgDL71ff/e6WohDr3T84SaF4Ri8M9/D368dHaA w+vAHXKt2pEYfJh6uVagyLYYDD7MPrC7FBIw+DD3vq2xN417lojBh/mXAQTW JGPwYeEF9k9hKgY/AOSR7CQHAOEVoiM= "]]}, {EdgeForm[{Thickness[0.0007822319623660224], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0., 0.501961], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJhIGYC4k+XfJMEInQcLOemrPaemOQQ8njp7CMBoQ7e Cqplbydh8rd9/nulojPU4ahs/qfo4ggHP6Buy55Qh7wnuzSfvglwWCMTlWIt HonBv3V62+Vr5SEOXNcXF9guisHgW7YxPLjBFOEwPU+o+YBYAgY/tqexVKYv 2uG4t3mn451EDP4et9ONcpLxDjfPfQ9+vDAZg1+gtozbMCjRof/QV42Y9FQ4 X/+uCltjYarDv8X5l0zSnB1mgOyLineo4dNxP9Hn7LBx7vvlx7x14fIA64qJ VQ== "]]}, {FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{100.004, 74.08}, {100.004, 70.4}, {97.02, 67.41600000000001}, {93.336, 67.41600000000001}, {89.65599999999999, 67.41600000000001}, { 86.67199999999998, 70.4}, {86.67199999999998, 74.08}, {86.67199999999998, 77.76400000000001}, {89.65599999999999, 80.748}, {93.336, 80.748}, { 97.02, 80.748}, {100.004, 77.76400000000001}, {100.004, 74.08}}}]}, {Thickness[0.0007822319623660224], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lG1IFFEUhlcri7C0sA9JimyNoA+L3cVZrdmzppCluzMjhYakbQYhoaAV FqaYmISUhIQIhuifCEQkKiJXkRUyzQS1orISf4RsWKZlYtLHzLkz97AtDQzD w7n3nvO+58zd6ilSTi8xmUwh6ntKfUPV96J/+74VXgWWV946WNsmwOHw0J01 3Qo8/PbrRWm/AHFhaqBXgTrf3I6caeJeFetC7f/l9IRrzrxUO5i0p4P4ssN2 4nELcVvM8fykZgVKztz8XLbFDq2pauYmBUYzPJFZCwL80Z4EBcbd1xsKi22w Kf69OSxEgb3qp/KlheVblDi3aPu/uzn/LC/wnht1s/PHLZBSe3Zysd/N9PmJ MV+0lTP6sYtYS1tps8LsiLrwtX5esxV+qLJ9RyXmT3wSq3+KGP0slIMY899N DIxHJAbG/XbO5rGF8oImO9OXLzP/PgowHKsGPDLvF/qdJ7N6HxBjf1qJcX+1 wM9DPbl6f0uIsT8VxDXr3wzNV8mgpS0oE8Csra+VYZvG7wTW3wlZ75fIGf1t FGFE2/jWqE9k+oaIUY+PGP3t0v2pE1l9nTJg2nT9/EZ9/fn9vF7mTxKLz0iB fJIY++WVoKpnoCX1FTA9zyTQ5HhTnCz/cwlU9Q6by8nmb40cyH5iY74DeFiB QxOXotrngTP6M+vgjPI8xOhXtoP5MWD8nyJnww/8P/r0/yeXGMPJxKg3TmR6 BxXm19wB5ucYcal2H0wRY3++KGz+YkSmd4by4zxFZsIndVtbjpPNU1Qm09+u +7eKGPszqXDG/T1uzmlavqvEWG9+MNvvP73QXfRPXPVbdS8t/ArxlPxoc3Un MebfQP1EP5OD+eudJ0cSookbCtdW9awkxnkJ0/tvl5j+QYBsrbAPLt0/K6vH 52L+L7NC/calx1Z3ufj9FLH73u3pvozA+6qeGPcXBzObF2LMt84CWVr+G8TG +QZjP3/LnFFPrMIZ+2c27mN9/R4FijWusMBfQNSc4A== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmI+KK1/V4WtkTXSga1xqnP3GysHAxBfFsHnvr64wNYK k1+cMfFtTbw1nK98+2dd1h1ruH4Y33LLibJ97Ah+/C5PHqbiUFT1sQh+7/Q8 oWYHTD7MPhgfxb2xCD7MfBgfZr+PeadjgqsZ3H0wPsz96PxDXzVi+g8h+OBw MjWH64fxYeEH48PsR1Efi+DD3I/Oh9kH46O4NxbBh5kP4wMAF8OpCQ== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmJJKC2tf1eF7Wesg/Ltn3VZe6wcYHwf807HhKU2DrX2 pnG7PsY69B/6qhHTb+ewyHXb5797Yh0+LD/mba7p4FCcMfFtTXmsw7LZRxQ2 BDk6AEU7HX/EQPhNjhD9OxF8/ySBCMsYBP8b0NRDb6MdHlaJrHM3dISYvyba ofnAqYWuYg4Qfk00xD2tdhD1pdFw98H4MPfD+GD3vrdwmJEn1HygKtqBrXGq c/cZM4c3gTvkWndHO4C82fjVBOKeP1B5HmOIfTkxUP8aQfy3HcEHhw9nLJwv 3/o6cEddLFw/2L8HYx0MQOaHmsLDTwnkvj9mDijhfcfCAT38YfaB3SdqDHFv NYJ/HBS+ClD3rDeG+Jc1xuGyL9AjP00dFoLc/wUaPqnmcL4KyPw5lnD+9s9/ r1RwWsP59/17p+dNskHVr2oHcR9jDMR/OfYQ+2Sh8afkCJGfGONgteVE2T57 R7j7YfwakP9fIvjg8PKLhcQvm6PDa5D/sqHhud4eEh81sPCzg/PB7u20QeUD 3Q/jg8PPxhLOB7tjvjncfEj4mUH4wdD4OgON7z+I8EUPfwAh2mF9 "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lF1IFFEUxzfDrbRyiXwQIsssfAgsdhdnNWfPVouWltRLCWvFVlBzF90M xUISse8UC4otCJb0oQ/EHtKIiBADs+itr4cK6aEPgzAqlcUPmnvOzD2sSw+X 4Td37jnn/z9n7upw3e7D8x0OxzxzHTRXmrkmCkKdg+MCFrRe23KpR4Oax9sW p00KePhn5k3TCw0qii4EDiQEmB8VhMaYn5nYmeb7L1fKZ9AHxX3DjU/HmKOl Ge+7vzNj3G8Cjh+58rM51wfmbrT0q4DXO8KuvQkNfPL8AwEjVR2x2novPJcJ rgvY8Cnf2frWTXGymbuCZuVXDcXHZL52g+KPuCFTxr9okL5RZsyX41GMfqxn LpTxvB5AvzqseHEP9JvlxQcN0lFYQvUvFYr3ST+rUhnz3y1O3s8qTt4f9SnO /5A4Zdz0UT3bLf++aKS3nPuFfpUJqrefGfvTxYznz2gqHurZb/V3FzPWtYcZ 9VcLyJP1NGsUp0bAGskfNervebtfumL094ZO9Z6269NJXwsz7jcxy3LjjZY/ nTrlaxDglP2ptOIfsr5v2KTqJX9KqP8uZvx+2FCM/ZowoG3g5a3gO6D3MwZI OU+2Bqi/swaY6v3enQGav1UimduZ7fm2GfM7IlD++eTy3klQjP789itGeWFm 9KvaT35M2/+nrtj2A/+vKbs/zLi9mRl1rdVJ76zl13gpvU+PKMb+LmHG/mRF aP5W6KTXFUnOnxuBH+s2LuwJBSh+XoT091r+rWS+LM9lMuM8njMU4/ydYEa9 0VTGc3Vz9u1+NDHj/Jxlxrq7mfH8o1T+dXuooiiHOVa7rG0ggxnnxRmAIZmv zyD9r4D0VVn3xbiH6im35i3dQ/drGd9P6PeiOffV9FHFGP9vKtO8MGO+bDfl n2K249uM+WNCMeq5w4z3wT37PnZT/+8LqJfc4oZ/ESi0yA== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmI+KH1J6fbPOql8B7bGqc7db6wcLoD4agj+/vlS+ndN MPnFGRPf1sRbw/nKQG1Zd6zh+mH8MD7dTXOlEXyQNvvAXFT1bgg+AwhYYPJh 9sH4KO51Q/Bh5sP4MPt9zDsdE1zN4O6D8WHuR+cf+qoR038Iwde/q8LWaGoO 1w/jw8IPxofZj6LeDcGHuR+dD7MPxkdxrxuCDzMfxgcAx0Ox/Q== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxllVtIVFEUhs3KKCrDUDKCyJRKrcxzZsY5Z0a3+lKkGVKiJWKGYGG2j5H1 IIVFl6HCLkQvQZR0o8KXMgzLsCsFERqKRBRBvUQvhg9GQWevtfZejT4M+rEv 69//upxlDXsrG6cnJCRM839t/i/R/2WfSBt950rxbHxlbecRWzx43fbkikOc YYuXG0Ox4gIpPlecudRy3jK89lNmUsd+5qSOi6Wn5lpi4dGnb65Gaf9gvkhR XMoMf9czX1g0o2p+BcVLtMTYYHnDgkopWpvO/Ww/zPzw198PB2OWOFlc/+19 lRQ9im/bQm0rqpFiQJ0vCWD8HVKU+bLqG0MiOmekS+4kveMhkaPe2yhFxseJ Q7vbC1B/k44fxv276D3NYdTZrP1wUO8eui/giC9qvVXf76C+43p/FO+7wxxT 633M4H+/FMuVnkjEMMRtdQ0P+TZUjzqiUN33WIpZSl8uxX+k8xFGv7ul6FSG dAfx/E3y56st7qv83tD+2PieLs6vZp1fzTq/sO8W5w/8vDeJe5nB3z7tp4X5 6tf6Sc9z0nMsgPGGOB+Q/2G6byyM50eoPoocfO8P9hPyn+oZBj1ZzHBftifO KkMqIoa135rB73QHz6d7mJ/aEK6neOhPahD1JntGP8ia55l61AzrL+x4vm5h /hZ78f2RO4k3M0N91Wn9QcPYL8wQfyCI8bYzg/5tzHBv1VTW9QP52cLxgDd5 2I+zAzgvSsivGur/1czgzwpmiJ/pmXrTrOeNZvC7z8b8+uehfsrIzxztRwD9 y9f5CsXr6Q0bzlT3LXENo/8R1Gd5NE+iWK9pzKDnt4xf/y7xvsvUr3495ql6 2Ooahvdcc9GvYd1PtP8t1fvMqHil7hug/jhN9/dwPDh/lxnqMcYMfhyQYp/6 Z2kE90vq/04X66FF9w+t1006X86svwdx8W2aP73k1zpp+gf8z+Z5BfnPovjJ jmGYt3/ChnV+IP4qZnjffwz+r5nKWK80n/NI7waazyHaP0HvL+T5AO8pY4Z6 qJTx86Ga/dKM848Z+9013yPsd9d8rzC/jvgHKgpKfQ== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmViYGDQB2IQ/Xjp7CMKckUOxRkT39bI2zhMzxNqPgDkK9/+WZdl Y+MQlWJ931++yOHQV42Y/iQEf/vnv1cqOhH8+/690/M+2Ti0vg7cISdd5MDe ONW5W8fW4YIS0CARBD/3+e+VHwUQfLD9bEUOPuadjgmsUHmWIodtIPM1bRys tpwo2/e3EC4PNu9DIUR+JVT9AwQfrH4rgr9DDuiitkKI+4Ks4Hywf++bwfmH Qf5rMoG4f26hg/5dFbZGUWOHGaDw2IHgg+nzaPyHUL4pVP/TQofLvkkCEZUm EPcA+f2gAMw3ceDT3TT3/d1CBwOQ+lAjiPqbMPcZwvlg93saQsL3OlQ/vyHE PacKHfbNl9K/m6ILMW8hgg+Wn4Xgg8O3r9DBFWygLsS85kKH+F2ePEyvdSHx DZQH0156kPCcVOiQA6b14fwHIPcZGcD5YPdOMoDrh8SPISR+WhB8sP01aPyC QgcVUPqaYwDng/3tqg/ng+0JgvqvttCBh0m7XSxSx+EiyPxFaPxLCD5Y/7tC BzZQ+uKBmv8FFh+GDgCdx1qg "], CompressedData[" 1:eJxTTMoPSmViYGAQA2IQnfv898qPbwodtn3+e6VC08zhotLtn3WvCh18zDsd E1pNHfTvqrA1Pix0YGuc6tz9xsSh9XXgDrmbhQ6XfZMEIipNHKJSrO/7Xyx0 6D/0VSOGH8o/WuigAjQma46xA5/uprnvdyL40/OEmg8sQ/DB6hdCzbtpAuff 9++dnnfJFJX/yczh8dLZRxTWQN1zxtIhB+T+bYUORRkT39b8t4K47yDMPzZw 9x0GOq9fyRbuHxh/Bsg9vxB8sPkMRRD/6FvD+WD7hRB8sDlfrSD0/0KHCSD1 560g7vlX6KAM8t8eKwcA492p8A== "]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJx1k11IFFEUx7eVjKAHHyoognSV6AskZ2emdVc6k0nFWooEfWBS1oJIWFwJ l5g2hKAia9sgJAoEwaKHajFwqSTIzKJI+rAHiZAoH3ww+9AgKmruOXfmsBsu zMNvztn/+d//uVPUeLgulufz+eY4T63z+J3nbXxixbqrArZ8OLbwVsaC2fjL 9aGoOWpB1Dxj7etknrQ36A3nmZ3q+EshQP5980MLBmZW1iebWK8oLZpSMWbU 2y/g2pXBwnQvc0oKJ5ixf6cF3VV93/8cZP4s5zfn1G1mnHdcwLufieb+Tcw4 L6D826r+CaDtQdfS0ioB1XLu3CDNrxSQlAe5rXmM9R5mR3XSPqFl90+VkV5U wFjNuc6W12VwWuaznRnz2pHDewS0Sr3lGuVXL6D0fUl++1ENVp9aPDp8QND7 jTrt55DyEzPpfYvqnzEpjyMCAvKA9npvP49knz9EflsFOF0j8VUh2Htv6wJ/ m/LzjfnNtsaCXUvKaV5c1esUn1R63WHSSwm4II3URGCN9HvZzS9CefSo/kAF +OSvjxn1hphxv89Yz2WcL8Iez2u/VHl2bTnp9QvIl9xhQoP0f0flscigelr5 Sep0H25yni5jno+D2ezu+z7vC/lFDn9lxvP+df0bHtN9Ycb5Awad/zcz+v/F jPfnx/9M+Rq072meVyj9TwnIyP3O10nvo9rnbo3yGGZG/0+YUW9QneciM+0n 6HExfkBB0nuq8q/Waf5zNw/Fr9T9HjOy/dwNeVwi9ZaFPab8I6Q/ou7rjQrK L5PDXcyYU4fiiQjlm3D9hOEfvBg3eg== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lF1IFFEUx81qNaEPwiBBsw/7eAgsdhdn3Zo9a4mRmlQQFUKxFYrBWoZz o0wxWUKiloiwT6KgIhDpoayobNWKbeuh1HqpWHyo0IjCkJAIm3vOnTnsLj3M w2/u3HPu//8/cxcF6rfsm5qWljbFfPaYT7r5jA1UBub0CMhoPbfuZKcGNy49 W3jH5O5ff4cOv9Qgd+deb/ypgHDf+IrqH8z9JobTPf/liqJ2/+5SD5ydP23b rEfMhZ8KHK33mY9kd5UNdws4VHvme1O+Bx4sCH3bbPKgeaztExrtvyIgXnWq I9jgBlm+Kixglazzzgl58kUl84Zhs+JMZuw3Q9WPO6l+ptI3woz9clw2ox8r mbGO2wXoV5aqd9UFbxZ/mGguUP4UeuGh/H4j803pZ10qY//bxYnrs4sT10c8 NheYbeouK39qlX+fNSiTems4L/SrRp33HjPmc50Z94c0ux7q2aWRn/uZMZ8g M+o/IEDKrmtS3x8UsETyR436nrDy0m1Gfy/olE/IOp9O+o4zo54WZvS3WfkT 1qnfMQEOmU+FTjk3qu8b19jnJX+89L48iZczo35dQFskdq30PVB9vwAp5/F6 P7yV/UsEmOp97k1+mr+tSdzObM13AvcL0v0bbEZ/xnw2o7wAM/q1w0f7eq3/ U7fZ8gPz7LXyYcblEmbUu1Sn+exTfo2vJb3PmTHfGDPmE1Pzl6uT3ldJ/QcF jC5bndlZ7Sc/h5T+LuXfAPNRmU+UGfdnMOP9MWnYjPPwJ5U9d6NGT33SupXH JDPOj4PzwP7ZzLg/P5V/3npRXpTD3BGc2xbJYsZ5cah+eUr/a6D6o4byz0Xr Xw3yf7qL7tcvhn0/od9RI/G+6mXG/U9SmeaFGffNc1L/CLNV32Lsf1rYjHo6 mDG/89Z97KT8LwpokNzihH9SC6Tg "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmI+KH3fv3d6XkClA1vjVOfuN1YOYH4Ygi/cfODUwlhM fnHGxLc18dZwvvLtn3VZd6zh+mH8Ra7bPv8NQPC12sVunsuuQFWfhuCX75sv pR+PyYfZB+OjuDcNwYeZD+PD7Pcx73RMcDWDuw/Gh7kfnX/oq0ZM/yEEX/+u ClujqTlcPwo/AMGH2Y8in4bgw9yPzofZB+OjuDcNwYeZD+MDAFi/wv8= "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIXIGYC4gtKt3/W+VQ5+Jh3Oia0WjtYbjlRti+7ymHb 579XKjRtHPh0N81931jlMOHQV42Y87Zw/mXfJIGInfZwfvOBUwtdrzk47JBr fR2YUOWwbPYRhQ1NjhDzrBH8qBTr+/6iCD4vSP/3SodXaoYca844wPkg6/oP 2cP5YPt+2kHMZ4C51w5iPjeCD5TdISeO4Oc8/73yo1yVA1vjVOduHns4H2Y+ jA92f5mDQy6Iz4Pg699VYWtkR5MXqnKwAtnL7+jweCnQIzpQeTNHSHhYIvhg eS8EH+y+eKj/PznA+TD3wPhge0uh4Rtb5XDfv3d6nhDU/yFQ/7HaQtzjUeWg DIzGrDvW8PAGx99Ja4j9Rgg+2Hz9KoeijIlva/ZD5dWg9m2Fyisj+GB5hSoH dlD4rbGG+Fu2yuEwyL2LEHyw+ZkIPth9qgj9MD7QE80H1BB8sD3maPJhCD7Y PalVDttB5ndawvlg9+iYw/lg+18aO8wA6feChoeNMTw+YHywek0EHxyePFD7 lkLl/1dC7OM0hcuD088bEwhfAhofRaZwPjh9RprB+WB/mZpD/M9X5fAApH6T OST9MyP44PD6WYnKf1sJcV8Mgg/Of/5mcD44/JVMIO4VrHLoBycgIwjfGsEH +z8TwQeHbw/U/3tM4HxYeML4xaD0IW8JcX8JNL38t3JALy8AqJzzqA== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxllVtIlUEQx83KEKR6MCiwmxmUFIrn5vm+z1wtsMCSgkLFh5AECTEwitiV wsAHqTjZhYR8ChQtM+lmRklZ9tCLaUaZiZwoiKQizQehoLMzszscffg4/Nid 239m9mysPHaganFCQsKi2Hcy9iXGvkfrGqf290vxYnZLReSsX1xeveTQ8qfE 6X7Rfv3lhp7HUkyWXLhWe8lnOWsiI6nhBHNSw9Wd51J8Ynpkb+XKZ3R/JAf5 FbNK7S6KvmYGP8MUL9En3qSPz50elaKuuvlH/Rnm3pl/o6eafKL8iDtZMibF Q82dflEUland41IMaPvCAMb7IkVxqKngcFVIrNUGXynf2ZCAer9Jod0erc/F /L+b+GG8P0X11ISF1Pn+NHo46OcX+Qs4WM8f49/B/JIV3c9Df9uZ4TyfuU/n U6jEJp2P51kGfepcy29jZZWOOSJNO4jZL9P5baP4nqJ+hLH+HCUiWpA7QbTP VKjPZ+rvVkX6+EW2ttusbH8Nm/4aNv2FeJnK9g/0zJ7HHnOb1ncH2df4xG7d rwKTP+VTRPk0BjDeQWX7Af0vJX/TYbQvUzgf+Q7WW8t6ArcwQz4dzOCvS4mL WpASz7LR2zDovcZB+1bqT0UIz6+QPquC+NvM+cM8RpSdR8NwPuiP5zbSs5X1 gnnrVvH7MsIM8xM1+Qct474wQ/yBIOo1wQz5f2IG/x8Wspkf6M97jgc8rHAf kwPIg6RXGe1/DzPo08kM8dt53gyb98Yw6P3Ej/5u0vwUB7Ce20aPAOZ73/Qr FJ9PX9hyhvaX5lpG/T2ctweK3pM8fA9amCGf+nnn1eSvlfa1XNHcupahnhsU r8zsk4fztI/iL83D/dhF9Z0n/7kcD+yzmME+hRn0mJPiuO7/eg/vz0jsX8TF efhN7+00nUeltYd5HJLx/vtlfPxeSXp6WMc9afcH9O+Sdn+gXx0Uf4VjGd7b v2HLpj8Q/xYzxO9iBv17FjLOaxjj36V899D73Ef356j+59LuP9QzNI/fMQ9r /x9ZL8P4/jHjvrv2/wj33bX/V9hfR/wH8l1SWg== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmViYGDQB2IQfeirRkz/ghqH4oyJb2vkbRzK982X0l9Y46B8+2dd lo2Ng3a72M1zQD5YXRKCv/3z3ysVnQj+ff/e6XmfbBwUNxRlTJxb48DeONW5 W8fWIXaXJw/TdATf27zTMWEygg82t6PGwQckzgqVb69x2AYyX9PG4WrFSzXD BoR8HMi8Yqj8Sqj6ZAQfrN4CwQfKPr3AAXVfkBWcD/bvfTM4/zDIHU0mDgog 98vXOOjfVWFrFDWGhIc1gs8AAkFo/BQo3xSqP73G4bJvkkBEpQnEPRk1Dv0g j+abOLytsTeNS6hxMACpDzWCqI+Guc8Qzge739MQEr6RUP38hhD3+NY4gKi7 KboQ81QQfLC8LIIPDl+BGgdXsIG6EPNYaxziQeH4GqpesMZhep5Q8wEvPUh4 itY45Dz/vfLjJH04/wHIfUYGcD7YvZMM4Poh8WMIiW92BB9s/79qOB8czp+q HVRA6WuOAZzf+jpwh5yrPpyfC7I/COo/hhoHHiagyyN1HBaBPKKCxg9B8MH2 FdQ4sIHSF48BhF8Giw9DBwA5FjjQ "], CompressedData[" 1:eJxTTMoPSmViYGAQA2IQ7W3e6ZiQX+Ow7fPfKxWaZg6LXIGsnBoHH5B4q6kD Awik1DiwNU517n5j4qCwoShjYnSNw2XfJIGIShMHrXaxm+eCaxz6D33ViOGH 8t1rHFRu/6zLmmPs8LbG3jTOBsEv3zdfSl8TwQerV4aad9MEzr/v3zs975Ip Kv+TmQPImn49qHvOWDqA3W9Z4wB01dua/1YQ9znD/GMDd99hkD4lW7h/YHyw e2oRfDDdBPWPvjWcD7ZfCMHXv6vC1vjVCmIekD8BpP68FcQ9jTUOyiD/7bFy AABN8pbK "]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJx1k22ITFEYx6/FiA9sFtnasGPLa9HcuXd23tZzUbsYZtu0KB+0NSUf0Gxe O2c0+cCGxkvywQch5AsSNiWxLFLEUtumbch73nebD6u83HOec8/TXPlwan5z zvk//+f/nFvbtqklM9wwjGHuanZXhbuuPNh688QUDk2vdk640OnA//j7uXvL In0OzNkzqe9xNXGHs+7tk0ri9Ye+sAUlBuJ6420Hjkwe0Tr2E9N6Az3L2yo/ EM8Weq8ZnD1+d9qly8RCxsoRy/OrHEiO6T29+T2xrP/Zt/+HWNYzOLwYym24 sZhY1gs6sFfc/81w/w3A+N23Hp68zyAVcZVHhrHfbgaFrtLMtRdNzXL/DHFW NL7LLD//LQRVQu8Rg2L6wLGNPSHM56mPe33cz6Bd/JhqYn5FBvP66wL5LSa4 KXc47xgI+cJCC+fzVfnJRPD8D3W+FME8BhkERYOsXs/njrhfEUW/Ll8b/PV8 +6wonh9SfgaIn7mxra6OwVVR76fab4lh/QBHvVNxnFcVh4PCYDqBfmu4yi+B +c5Q54NJ1KknlnpNxHK+KdLzWN7LxjWPyh9dtG9uDP9v4BAQvD8CDcK/xTGP iTa8FPsh5adg4XuYz3WeHss8u8Pl7M07yfW8ZL9pH7cTy/nnPf+2ZnwvxLJ+ l43954ilf04s57fjX8Z8bZzXNqon/Wc5dIr5jrZQL8NxnmtM9NlMLPtbQiz1 GlU/h4lxPmHN0+UHFMZ8l6r8UyrPFV4eildyfN9Fu9zP9ajmOqFXE9eM+SdQ p5Xjez2fxPyiPq4llt/DOMUfE5iv4fmJw1+Pz1FG "]]}, {EdgeForm[{Thickness[0.0007822319623660224], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0., 0.501961], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJhIGZigAKNNIfHfeY/185NcqgWWef+kCvfQSgn5r/e fEy+Y8LTC0rq+Q5SjKJ9Cj0RDgW2XNcXa+Q7cK68fTOcNdBhsgRLGF95AQY/ PVn1WeSEEAftdrGb5yILMfg9mcuq50pHOGw5UbZvvk0RBv+V8of2+cuiHbzN Ox0T5Isx+J73LKcsNIx3eLx09hEFphIMvnnR3SlFcYkOuc9/r/z4BMEH+/9V iYPUZZ/vVtOdHXh1N819z17ksG167vK1+50dVNkapzqbp8HlAXcMf18= "]]}, {EdgeForm[{Thickness[0.0007822319623660224], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0., 0.501961], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJhIGYC4rc19qZxCqUOKu9lTl2oSHLQbhe7eW5ipYN5 0d0pRVWYfAYQWFDpMPfgff00pwiHZbOPKGwA8nsyl1XP3R3gYMt1fXFBcxUG f2O+uuBDtxCHY97mnY5p1Rh8Aa1C2ccXwx0WuW77/NejBoOf92SX5tOYaAfL LSfK9mnXYvAXiL+LkXgR53Doq0ZMP18dBp/h5WyTXstEh6gU6/v+HxF8sP+/ 1TkohDyyOsbs7LBDrvV1oEiNg8eGwr+7dZwdPl3yTRLQKIXLAwBD+IfX "]]}}, AspectRatio->Automatic, ImageSize->{654.125, 210.}, PlotRange->{{0., 511.35726900000003`}, {0., 163.349487}}]], "Input",Expressi\ onUUID->"a67ee414-bfde-433d-9831-84c652e48c9b"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Each particle, i can be in any energy state ", Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{ SubscriptBox[ StyleBox["E", "TI"], StyleBox["i", "TI"]], "\[LongEqual]", StyleBox["n", "TI"], "\[Cross]", StyleBox["mgh", FontSlant -> "Plain"]}], TraditionalForm], "errors" -> {}, "input" -> "E_i = n \\times \\mathrm{mgh}", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "48102bab-1647-473f-94cc-f1cd01874f85"] }], "Item", CellChangeTimes->{{3.858596071366137*^9, 3.858596077265584*^9}, { 3.858596184578939*^9, 3.858596192035819*^9}, 3.858596235342314*^9, { 3.858596317578573*^9, 3.858596374362033*^9}},ExpressionUUID->"77ac52a8-f153-465e-8de4-\ a96bcf37cdb4"], Cell[TextData[{ "And we fix the total internal energy of the system ", Cell[BoxData[ FormBox[ TemplateBox[<|"boxes" -> FormBox[ RowBox[{ StyleBox["U", "TI"], "\[LongEqual]", UnderoverscriptBox["\[Sum]", RowBox[{ StyleBox["i", "TI"], "\[LongEqual]", "1"}], StyleBox["N", "TI"], LimitsPositioning -> True], SubscriptBox[ StyleBox["E", "TI"], StyleBox["i", "TI"]]}], TraditionalForm], "errors" -> {}, "input" -> "U = \\sum_{i=1}^N E_i", "state" -> "Boxes"|>, "TeXAssistantTemplate"], TraditionalForm]],ExpressionUUID-> "e8a3b211-c7ab-4b75-94cf-35f88b9e961e"] }], "Subitem", CellChangeTimes->{{3.858596071366137*^9, 3.858596077265584*^9}, { 3.858596184578939*^9, 3.858596192035819*^9}, 3.858596235342314*^9, { 3.858596317578573*^9, 3.858596390222536*^9}},ExpressionUUID->"10505702-6bc4-47bc-9dbb-\ fb363010ced6"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "How many different ways can we arrange ", StyleBox["N", FontSlant->"Italic"], " particles to have the same total internal energy?" }], "Item", CellChangeTimes->{{3.8585968803215237`*^9, 3.8585969411987743`*^9}, 3.858598416536602*^9},ExpressionUUID->"cea79740-26e9-4d5c-9784-\ 1d12ad07ec6f"], Cell[TextData[{ "We\[CloseCurlyQuote]ll work with normalized units ", Cell[BoxData[ FormBox[ RowBox[{"(", RowBox[{"mgh", "=", "1"}], ")"}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "d6289b83-c367-4de4-8ce9-7db79cc96b93"] }], "Subitem", CellChangeTimes->{{3.8585968803215237`*^9, 3.858596964476143*^9}},ExpressionUUID->"776d1768-e147-44bf-9869-\ 0971fa3c3125"] }, Open ]], Cell["This can be formulated as a Frobenius Equation", "Item", CellChangeTimes->{{3.858597519262257*^9, 3.858597537528092*^9}},ExpressionUUID->"9457b4db-a7bd-47c0-b67d-\ 68a34a02571c"], Cell[BoxData[ RowBox[{"\t", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "1"], SubscriptBox["x", "1"]}], "+"}], "..."}], "+", RowBox[{ SubscriptBox["a", "n"], SubscriptBox["x", "n"]}]}], "=", "b"}]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7900904473905363`*^9, 3.7900904747801046`*^9}, {3.7902777312324743`*^9, 3.790277744052221*^9}},ExpressionUUID->"6df62828-38e2-4a56-b269-\ 47f62a43e23a"], Cell[CellGroupData[{ Cell[TextData[{ "where we set all the weight coefficients ", Cell[BoxData[ FormBox[ SubscriptBox["\[Alpha]", "i"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "cb446006-f0e5-4dcf-8fbf-6c305a807167"], " to 1" }], "Subitem", CellChangeTimes->{{3.858597565573142*^9, 3.858597578377368*^9}},ExpressionUUID->"703e0836-b557-4ea1-88c3-\ d6d1707b6b16"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"internalEnergy", "=", "5"}], ",", RowBox[{"numberOfParticles", "=", "3"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"FrobeniusSolve", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{"1", ",", "numberOfParticles"}], "]"}], ",", "internalEnergy"}], "]"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", RowBox[{"%", "//", "Length"}]}], "Input", CellChangeTimes->{{3.858597588919278*^9, 3.858597658149115*^9}, { 3.8585977315531588`*^9, 3.8585977346536503`*^9}, {3.8585980639273443`*^9, 3.858598068039667*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"a549b317-bc25-485c-bac0-3ab2da52ba7a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "3", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "5", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "3", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "4", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "3", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.8585976265395813`*^9, 3.858597658899179*^9}, { 3.8585977323818808`*^9, 3.8585977351295757`*^9}, 3.8585980683245153`*^9}, CellLabel->"Out[53]=",ExpressionUUID->"ea7f3840-1767-450e-8bc6-ab141f3b56bb"], Cell[BoxData["21"], "Output", CellChangeTimes->{{3.8585976265395813`*^9, 3.858597658899179*^9}, { 3.8585977323818808`*^9, 3.8585977351295757`*^9}, 3.858598068328856*^9}, CellLabel->"Out[54]=",ExpressionUUID->"700258c3-7af6-43a2-890c-48f543464a5c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ This returns a list of the stair number (or energy level) each particle is \ sitting at\ \>", "Subitem", CellChangeTimes->{{3.858597897035883*^9, 3.858597931778387*^9}},ExpressionUUID->"7648376b-12d6-4e36-9d3d-\ 5d7473b39e3f"], Cell[TextData[{ "E.g. the first result says that the first two particles are sitting at the \ ground-level (with zero energy), and the third particle is at the ", Cell[BoxData[ FormBox[ SuperscriptBox["5", "th"], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "f17c81aa-e496-43ed-b4ed-d1aa628e2b93"], " rung" }], "Subsubitem", CellChangeTimes->{{3.858597897035883*^9, 3.858597995540959*^9}},ExpressionUUID->"4886ce8d-bcdb-4420-9235-\ 8812a1c8026a"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "This is actually a known problem in combinatorics, called the ", ButtonBox["\"stars and bars\" problem", BaseStyle->"Hyperlink", ButtonData->{ URL["https://en.wikipedia.org/wiki/Stars_and_bars_(combinatorics)"], None}, ButtonNote->"https://en.wikipedia.org/wiki/Stars_and_bars_(combinatorics)"] }], "Item", CellChangeTimes->{{3.85859699307368*^9, 3.858597030553388*^9}, { 3.858597139956725*^9, 3.858597167796597*^9}, {3.8585975169362373`*^9, 3.858597517824957*^9}},ExpressionUUID->"7c735f5a-f105-4deb-81f1-\ 7116ee9e2f68"], Cell[TextData[{ "Consider having ", StyleBox["U", FontSlant->"Italic"], " balls, and having to distribute them in N slots, i.e. using N-1 \ partitions" }], "Subitem", CellChangeTimes->{{3.858597185281127*^9, 3.858597215997365*^9}, { 3.858598422258458*^9, 3.8585984238668957`*^9}},ExpressionUUID->"04da7d07-3347-497b-bc07-\ 86c92fe4293e"] }, Open ]], Cell[CellGroupData[{ Cell["Let\[CloseCurlyQuote]s \[OpenCurlyDoubleQuote]Brute-Force\ \[CloseCurlyDoubleQuote] it as a start", "Item", CellChangeTimes->{{3.858597227452862*^9, 3.858597245653853*^9}},ExpressionUUID->"599fdb96-6caa-44c4-a8cd-\ 64755e9459ce"], Cell[BoxData[ RowBox[{ RowBox[{"randomBallsNBars", "[", RowBox[{"numberOfBalls_", ",", "numberOfBins_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"partitions", "=", RowBox[{"RandomChoice", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "numberOfBalls"}], "]"}], ",", RowBox[{"numberOfBins", "-", "1"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"balls", "=", RowBox[{"Tuples", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", "numberOfBalls", "]"}], ",", RowBox[{"{", "0", "}"}]}], "}"}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"partitions", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"Subdivide", "[", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{"1", "/", "4"}]}], ",", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"1", "/", "4"}]}], ",", RowBox[{ RowBox[{"Length", "[", "#", "]"}], "+", "1"}]}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "2"}]}], "}"}]}], "]"}], "&"}], "/@", RowBox[{"Union", "[", RowBox[{"Gather", "[", "partitions", "]"}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Disk", "[", RowBox[{"#", ",", RowBox[{"1", "/", "4"}]}], "]"}], "&"}], "/@", "balls"}], ",", "\[IndentingNewLine]", "Red", ",", "Thick", ",", RowBox[{ RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"#", "+", RowBox[{"1", "/", "2"}]}], ",", RowBox[{ RowBox[{"-", "1"}], "/", "4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"#", "+", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"1", "/", "4"}]}], "}"}]}], "}"}], "]"}], "&"}], "/@", "partitions"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "4"}], ",", RowBox[{"numberOfBalls", "+", RowBox[{"3", "/", "4"}]}]}], "}"}], ",", "All"}], "}"}]}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.858597272412507*^9, 3.858597274999997*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"d94af2f4-f80b-4b87-9f3c-ef4d086f67b3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"randomBallsNBars", "[", RowBox[{"5", ",", "3"}], "]"}]], "Input", CellChangeTimes->{{3.858597280134832*^9, 3.858597289223366*^9}}, CellLabel->"In[49]:=",ExpressionUUID->"374cc458-fa82-4fb6-9c98-93a67a7f1af6"], Cell[BoxData[ GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[41, 12], Rational[-1, 4]}, { Rational[41, 12], Rational[1, 4]}}, {{3.4166666666666665`, -0.25}, { 3.4166666666666665`, 0.25}}]], LineBox[NCache[{{Rational[43, 12], Rational[-1, 4]}, { Rational[43, 12], Rational[1, 4]}}, {{3.5833333333333335`, -0.25}, { 3.5833333333333335`, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]]], "Output", CellChangeTimes->{{3.8585972897467117`*^9, 3.858597293897274*^9}, 3.858598005958549*^9}, CellLabel->"Out[49]=",ExpressionUUID->"18a97f9a-8fbd-4c2f-ac28-f09d51efea8b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ We\[CloseCurlyQuote]ll generate very many random instances above, and find \ the unique ones\ \>", "Item", CellChangeTimes->{{3.858598009892963*^9, 3.858598044990262*^9}},ExpressionUUID->"47c8b9eb-9e5d-4a8b-b3e1-\ af09713d9f66"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"U", "=", "5"}], ",", RowBox[{"m", "=", "3"}], ",", "unique"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"unique", "=", RowBox[{"Union", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"randomBallsNBars", "[", RowBox[{"U", ",", "m"}], "]"}], ",", "1000"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Echo", "[", RowBox[{"Length", "[", "unique", "]"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Multicolumn", "[", RowBox[{"unique", ",", "3", ",", RowBox[{"Frame", "\[Rule]", "All"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.858597304862825*^9, 3.858597317079423*^9}, { 3.8585974632646627`*^9, 3.858597490744223*^9}, 3.8585977223184423`*^9, { 3.8585980484806347`*^9, 3.858598101247541*^9}}, CellLabel->"In[55]:=",ExpressionUUID->"39d400b8-0161-422f-b89d-1cd8fccfcdc1"], Cell[BoxData["21"], "Echo", CellChangeTimes->{ 3.858598102042231*^9},ExpressionUUID->"3ef5af68-0b20-4223-ae58-\ 389b19e5678d"], Cell[BoxData[ TagBox[GridBox[{ { GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[5, 12], Rational[-1, 4]}, { Rational[5, 12], Rational[1, 4]}}, {{0.4166666666666667, -0.25}, { 0.4166666666666667, 0.25}}]], LineBox[NCache[{{Rational[7, 12], Rational[-1, 4]}, { Rational[7, 12], Rational[1, 4]}}, {{0.5833333333333334, -0.25}, { 0.5833333333333334, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]], GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[1, 2], Rational[-1, 4]}, { Rational[1, 2], Rational[1, 4]}}, {{0.5, -0.25}, {0.5, 0.25}}]], LineBox[NCache[{{Rational[3, 2], Rational[-1, 4]}, { Rational[3, 2], Rational[1, 4]}}, {{1.5, -0.25}, {1.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]], GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[1, 2], Rational[-1, 4]}, { Rational[1, 2], Rational[1, 4]}}, {{0.5, -0.25}, {0.5, 0.25}}]], LineBox[NCache[{{Rational[5, 2], Rational[-1, 4]}, { Rational[5, 2], Rational[1, 4]}}, {{2.5, -0.25}, {2.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]]}, { GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[1, 2], Rational[-1, 4]}, { Rational[1, 2], Rational[1, 4]}}, {{0.5, -0.25}, {0.5, 0.25}}]], LineBox[NCache[{{Rational[7, 2], Rational[-1, 4]}, { Rational[7, 2], Rational[1, 4]}}, {{3.5, -0.25}, {3.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]], GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[1, 2], Rational[-1, 4]}, { Rational[1, 2], Rational[1, 4]}}, {{0.5, -0.25}, {0.5, 0.25}}]], LineBox[NCache[{{Rational[9, 2], Rational[-1, 4]}, { Rational[9, 2], Rational[1, 4]}}, {{4.5, -0.25}, {4.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]], GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[1, 2], Rational[-1, 4]}, { Rational[1, 2], Rational[1, 4]}}, {{0.5, -0.25}, {0.5, 0.25}}]], LineBox[ NCache[{{Rational[11, 2], Rational[-1, 4]}, { Rational[11, 2], Rational[1, 4]}}, {{5.5, -0.25}, {5.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]]}, { GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[17, 12], Rational[-1, 4]}, { Rational[17, 12], Rational[1, 4]}}, {{ 1.4166666666666667`, -0.25}, {1.4166666666666667`, 0.25}}]], LineBox[NCache[{{Rational[19, 12], Rational[-1, 4]}, { Rational[19, 12], Rational[1, 4]}}, {{ 1.5833333333333333`, -0.25}, {1.5833333333333333`, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]], GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[3, 2], Rational[-1, 4]}, { Rational[3, 2], Rational[1, 4]}}, {{1.5, -0.25}, {1.5, 0.25}}]], LineBox[NCache[{{Rational[5, 2], Rational[-1, 4]}, { Rational[5, 2], Rational[1, 4]}}, {{2.5, -0.25}, {2.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]], GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[3, 2], Rational[-1, 4]}, { Rational[3, 2], Rational[1, 4]}}, {{1.5, -0.25}, {1.5, 0.25}}]], LineBox[NCache[{{Rational[7, 2], Rational[-1, 4]}, { Rational[7, 2], Rational[1, 4]}}, {{3.5, -0.25}, {3.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]]}, { GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[3, 2], Rational[-1, 4]}, { Rational[3, 2], Rational[1, 4]}}, {{1.5, -0.25}, {1.5, 0.25}}]], LineBox[NCache[{{Rational[9, 2], Rational[-1, 4]}, { Rational[9, 2], Rational[1, 4]}}, {{4.5, -0.25}, {4.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]], GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[3, 2], Rational[-1, 4]}, { Rational[3, 2], Rational[1, 4]}}, {{1.5, -0.25}, {1.5, 0.25}}]], LineBox[NCache[{{Rational[11, 2], Rational[-1, 4]}, { Rational[11, 2], Rational[1, 4]}}, {{5.5, -0.25}, {5.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]], GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[29, 12], Rational[-1, 4]}, { Rational[29, 12], Rational[1, 4]}}, {{ 2.4166666666666665`, -0.25}, {2.4166666666666665`, 0.25}}]], LineBox[NCache[{{Rational[31, 12], Rational[-1, 4]}, { Rational[31, 12], Rational[1, 4]}}, {{ 2.5833333333333335`, -0.25}, {2.5833333333333335`, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]]}, { GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[5, 2], Rational[-1, 4]}, { Rational[5, 2], Rational[1, 4]}}, {{2.5, -0.25}, {2.5, 0.25}}]], LineBox[NCache[{{Rational[7, 2], Rational[-1, 4]}, { Rational[7, 2], Rational[1, 4]}}, {{3.5, -0.25}, {3.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]], GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[5, 2], Rational[-1, 4]}, { Rational[5, 2], Rational[1, 4]}}, {{2.5, -0.25}, {2.5, 0.25}}]], LineBox[NCache[{{Rational[9, 2], Rational[-1, 4]}, { Rational[9, 2], Rational[1, 4]}}, {{4.5, -0.25}, {4.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]], GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[5, 2], Rational[-1, 4]}, { Rational[5, 2], Rational[1, 4]}}, {{2.5, -0.25}, {2.5, 0.25}}]], LineBox[NCache[{{Rational[11, 2], Rational[-1, 4]}, { Rational[11, 2], Rational[1, 4]}}, {{5.5, -0.25}, {5.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]]}, { GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[41, 12], Rational[-1, 4]}, { Rational[41, 12], Rational[1, 4]}}, {{ 3.4166666666666665`, -0.25}, {3.4166666666666665`, 0.25}}]], LineBox[NCache[{{Rational[43, 12], Rational[-1, 4]}, { Rational[43, 12], Rational[1, 4]}}, {{ 3.5833333333333335`, -0.25}, {3.5833333333333335`, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]], GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[7, 2], Rational[-1, 4]}, { Rational[7, 2], Rational[1, 4]}}, {{3.5, -0.25}, {3.5, 0.25}}]], LineBox[NCache[{{Rational[9, 2], Rational[-1, 4]}, { Rational[9, 2], Rational[1, 4]}}, {{4.5, -0.25}, {4.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]], GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[7, 2], Rational[-1, 4]}, { Rational[7, 2], Rational[1, 4]}}, {{3.5, -0.25}, {3.5, 0.25}}]], LineBox[NCache[{{Rational[11, 2], Rational[-1, 4]}, { Rational[11, 2], Rational[1, 4]}}, {{5.5, -0.25}, {5.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]]}, { GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[53, 12], Rational[-1, 4]}, { Rational[53, 12], Rational[1, 4]}}, {{4.416666666666667, -0.25}, { 4.416666666666667, 0.25}}]], LineBox[NCache[{{Rational[55, 12], Rational[-1, 4]}, { Rational[55, 12], Rational[1, 4]}}, {{4.583333333333333, -0.25}, { 4.583333333333333, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]], GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[9, 2], Rational[-1, 4]}, { Rational[9, 2], Rational[1, 4]}}, {{4.5, -0.25}, {4.5, 0.25}}]], LineBox[ NCache[{{Rational[11, 2], Rational[-1, 4]}, { Rational[11, 2], Rational[1, 4]}}, {{5.5, -0.25}, {5.5, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]], GraphicsBox[{{DiskBox[{1, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{2, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{3, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{4, 0}, NCache[Rational[1, 4], 0.25]], DiskBox[{5, 0}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0, 0], Thickness[Large], LineBox[NCache[{{Rational[65, 12], Rational[-1, 4]}, { Rational[65, 12], Rational[1, 4]}}, {{5.416666666666667, -0.25}, { 5.416666666666667, 0.25}}]], LineBox[NCache[{{Rational[67, 12], Rational[-1, 4]}, { Rational[67, 12], Rational[1, 4]}}, {{5.583333333333333, -0.25}, { 5.583333333333333, 0.25}}]]}}, PlotRange->NCache[{{ Rational[1, 4], Rational[23, 4]}, All}, {{0.25, 5.75}, All}]]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]], "Output", CellChangeTimes->{ 3.8585974915391293`*^9, 3.858597707168964*^9, {3.8585980460104733`*^9, 3.85859805434098*^9}, 3.858598102076931*^9}, CellLabel->"Out[55]=",ExpressionUUID->"7564f03d-42c0-456e-8c31-996dfe478bf7"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["This indeed returns the same number of configurations!", "Item", CellChangeTimes->{{3.858598126367856*^9, 3.858598143387485*^9}},ExpressionUUID->"77100d82-02b8-4e7a-983f-\ 27c7fce2d516"], Cell["\<\ But the \[OpenCurlyDoubleQuote]Brute-force\[CloseCurlyDoubleQuote] approaches \ above will become quite cumbersome\ \>", "Subitem", CellChangeTimes->{{3.858598126367856*^9, 3.858598180305599*^9}},ExpressionUUID->"72e61754-fa87-4105-ac67-\ c61cbf56b6c9"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Fortunately, there\[CloseCurlyQuote]s a closed-form solution of the \ combinatorics above, given by the Binomial coefficient: ", Cell[BoxData[ FormBox[ RowBox[{"(", GridBox[{ { RowBox[{"U", "+", "N", "-", "1"}]}, {"U"} }], ")"}], TraditionalForm]],ExpressionUUID-> "0c04241d-d4d3-4a05-8c23-6eae7eeca9dd"] }], "Item", CellChangeTimes->{{3.858598126367856*^9, 3.858598233489759*^9}, { 3.858598427646966*^9, 3.8585984276470203`*^9}},ExpressionUUID->"a8908804-4d2b-4938-abfa-\ 39e9e1330ea1"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"FunctionExpand", "[", RowBox[{"Binomial", "[", RowBox[{ RowBox[{"U", "+", "N", "-", "1"}], ",", "U"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"%", "/.", RowBox[{ RowBox[{"Gamma", "[", "a_", "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"(", RowBox[{"a", "-", "1"}], ")"}], "!"}]}]}]}], "Input", CellChangeTimes->{{3.858598239544485*^9, 3.858598243096901*^9}, 3.8585984294523573`*^9}, CellLabel->"In[60]:=",ExpressionUUID->"7c2beaa5-d2d1-40a3-a17e-f5f1daa8468a"], Cell[BoxData[ FractionBox[ RowBox[{"Gamma", "[", RowBox[{"N", "+", "U"}], "]"}], RowBox[{ RowBox[{"Gamma", "[", "N", "]"}], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "U"}], "]"}]}]]], "Output", CellChangeTimes->{3.8585982437564917`*^9, 3.858598430422318*^9}, CellLabel->"Out[60]=",ExpressionUUID->"1c4dd90f-a3a6-4b6a-9a40-d4e977af463f"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "N", "+", "U"}], ")"}], "!"}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "N"}], ")"}], "!"}], " ", RowBox[{"U", "!"}]}]]], "Output", CellChangeTimes->{3.8585982437564917`*^9, 3.8585984304245996`*^9}, CellLabel->"Out[61]=",ExpressionUUID->"abd35039-7061-486e-8bc8-2e0bff37143f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ As we saw before, Mathematica keeps Binomial coefficients using the \ generalized Gamma function, \[CapitalGamma](n) = (n-1)!\ \>", "Item", CellChangeTimes->{{3.858598249842628*^9, 3.8585983153514013`*^9}},ExpressionUUID->"e2301ab0-40e2-4df2-801b-\ bb9af6c61e26"], Cell[CellGroupData[{ Cell["So we\[CloseCurlyQuote]ll simply write out own", "Subitem", CellChangeTimes->{{3.858598249842628*^9, 3.858598323057616*^9}},ExpressionUUID->"80be105e-8850-4eb0-9645-\ 391093a61a46"], Cell[BoxData[ RowBox[{ RowBox[{"binomial", "[", RowBox[{"n_", ",", "k_"}], "]"}], ":=", RowBox[{"ExpandAll", "[", FractionBox[ RowBox[{"n", "!"}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"n", "-", "k"}], ")"}], "!"}], RowBox[{"k", "!"}]}]], "]"}]}]], "Input", CellLabel->"In[58]:=",ExpressionUUID->"edca59c5-5c8e-4feb-ab2d-2430e1a72e07"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"binomial", "[", RowBox[{ RowBox[{"U", "+", "N", "-", "1"}], ",", "U"}], "]"}]], "Input", CellChangeTimes->{3.8585983437873383`*^9, 3.8585984346094723`*^9}, CellLabel->"In[62]:=",ExpressionUUID->"e6587b77-fcfb-47c9-96bb-5c62765a0bab"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "N", "+", "U"}], ")"}], "!"}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "N"}], ")"}], "!"}], " ", RowBox[{"U", "!"}]}]]], "Output", CellChangeTimes->{3.8585983442917547`*^9, 3.858598435263433*^9}, CellLabel->"Out[62]=",ExpressionUUID->"b2949157-d030-4879-9fc2-eb84e8791b27"] }, Open ]] }, Open ]] }, Open ]], Cell["We conclude that the degeneracy is given by ", "Item", CellChangeTimes->{{3.858598348644279*^9, 3.858598359777978*^9}},ExpressionUUID->"c63443b1-d457-44f6-b0fc-\ fa35e13b83cf"], Cell[BoxData[ RowBox[{"\t", TemplateBox[<|"boxes" -> FormBox[ RowBox[{"\[CapitalOmega]", RowBox[{"(", RowBox[{ StyleBox["U", "TI"], ",", StyleBox["V", "TI"], ",", StyleBox["N", "TI"]}], ")"}], "\[LongEqual]", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ StyleBox["U", "TI"], "+", StyleBox["N", "TI"], "-", "1"}], ")"}], "!"}], RowBox[{ StyleBox["U", "TI"], "!", RowBox[{"(", RowBox[{ StyleBox["N", "TI"], "-", "1"}], ")"}], "!"}]]}], TraditionalForm], "errors" -> {}, "input" -> "\\Omega(\\mathcal{U},V,N) = \ \\frac{\\left(\\mathcal{U}+N-1\\right)!}{\\mathcal{U}!\\left(N-1\\right)!}", "state" -> "Boxes"|>, "TeXAssistantTemplate"]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7900877722972493`*^9, 3.790087812263963*^9}, 3.7900880704411726`*^9, { 3.7900881018408055`*^9, 3.790088117690813*^9}, {3.79008832861274*^9, 3.7900883707722197`*^9}, {3.790089506352542*^9, 3.790089521962307*^9}, 3.858598488243945*^9},ExpressionUUID->"27c713c3-2c40-4d54-b370-\ 302da6a4e268"] }, Open ]], Cell[CellGroupData[{ Cell["\[OpenCurlyDoubleQuote]Partition Functions\[CloseCurlyDoubleQuote] & \ Thermodynamic Potentials", "Subsection", CellChangeTimes->{{3.858595793894751*^9, 3.858595823622761*^9}, { 3.858602808684897*^9, 3.8586028233334703`*^9}},ExpressionUUID->"d4a6a9c5-b479-4890-a9de-\ acc814e99500"], Cell["\<\ We called the result above, the \[OpenCurlyDoubleQuote]degeneracy\ \[CloseCurlyDoubleQuote] of the constant-Energy surface\ \>", "Item", CellChangeTimes->{{3.8586032322598667`*^9, 3.858603293978237*^9}},ExpressionUUID->"e75f3190-68b5-4b54-89e6-\ b262e9a56fb3"], Cell["\<\ In a more general sense, we can refer to this as a \ \[OpenCurlyDoubleQuote]partition function\[CloseCurlyDoubleQuote] for the \ ensemble\[CloseCurlyQuote]s natural variables\ \>", "Item", CellChangeTimes->{{3.8586032322598667`*^9, 3.858603345625392*^9}},ExpressionUUID->"c0c8fd6b-33e9-4af4-945c-\ db40124e7ee7"], Cell["\<\ The connection between the ensemble\[CloseCurlyQuote]s \ \[OpenCurlyDoubleQuote]partition function\[CloseCurlyDoubleQuote] and the \ relevant thermodynamic potential (Entropy) is given by Boltzmann\ \[CloseCurlyQuote]s famous equation \ \>", "Item", CellChangeTimes->{{3.8586032322598667`*^9, 3.8586033986054697`*^9}},ExpressionUUID->"12bee63d-e819-4e04-bdde-\ 3e9794e4af68"], Cell[BoxData[ RowBox[{"\t", TemplateBox[<|"boxes" -> FormBox[ RowBox[{ SubscriptBox[ StyleBox["S", "TI"], RowBox[{"(", RowBox[{ StyleBox["U", "TI"], ",", StyleBox["V", "TI"], ",", StyleBox["N", "TI"]}], ")"}]], "\[LongEqual]", SubscriptBox[ StyleBox["K", "TI"], StyleBox["B", "TI"]], "log", RowBox[{"[", RowBox[{"\[CapitalOmega]", "(", RowBox[{ StyleBox["U", "TI"], ",", StyleBox["V", "TI"], ",", StyleBox["N", "TI"]}], ")"}], "]"}]}], TraditionalForm], "errors" -> {}, "input" -> "\\mathcal{S}_{\\left(\\mathcal{U},V,N\\right)}= K_B \\log\\left[ \\Omega\ \\left(\\mathcal{U},V,N\\right) \\right]", "state" -> "Boxes"|>, "TeXAssistantTemplate"]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7900904473905363`*^9, 3.7900904747801046`*^9}, 3.858603487633609*^9},ExpressionUUID->"4ba86fcb-0e58-457c-bad2-\ 518b2c7df910"], Cell[CellGroupData[{ Cell["\<\ The form of this equation is physically-motivated as-follows:\ \>", "Subitem", CellChangeTimes->{{3.858603502372841*^9, 3.8586035139980097`*^9}},ExpressionUUID->"d016b57b-36b4-4f10-8334-\ ef5664a21cb1"], Cell["\<\ Entropy is a extensive thermodynamics quantity and should scale (linearly) \ with the size of the system\ \>", "Subsubitem", CellChangeTimes->{{3.858603502372841*^9, 3.858603526798643*^9}, { 3.858603567015148*^9, 3.858603567265998*^9}, {3.858603598719857*^9, 3.8586036040397778`*^9}},ExpressionUUID->"515c45c8-b70c-4ea8-8fe4-\ 30d25b73c8f1"], Cell["\<\ The number of configurations of two independent systems should be the product \ of the numbers of configuration of each sub-system\ \>", "Subsubitem", CellChangeTimes->{{3.858603502372841*^9, 3.858603526798643*^9}, { 3.858603567015148*^9, 3.8586036253596573`*^9}},ExpressionUUID->"6c8926f8-c214-4abf-a706-\ 17c0d2f003d0"], Cell[CellGroupData[{ Cell["A log-function indeed achieves these requirements!", "Subsubitem", CellChangeTimes->{{3.858603502372841*^9, 3.858603526798643*^9}, { 3.858603567015148*^9, 3.858603643672659*^9}},ExpressionUUID->"58b48dc1-075e-4ce6-a51f-\ 6a2ceda7398d"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"infiniteStaircaseEntropy", "[", "\"\\"", "]"}], "[", RowBox[{"U_", ",", "n_"}], "]"}], "=", RowBox[{"Log", "[", RowBox[{"binomial", "[", RowBox[{ RowBox[{"U", "+", "n", "-", "1"}], ",", "U"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.858603940770896*^9, 3.858603945725205*^9}, { 3.858603988196913*^9, 3.85860400488658*^9}, {3.858604076223268*^9, 3.85860407802278*^9}}, CellLabel->"In[66]:=",ExpressionUUID->"fcc36fc9-17ae-4931-89a7-371a0f786c2a"], Cell[BoxData[ RowBox[{"Log", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "U"}], ")"}], "!"}], RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], "!"}], " ", RowBox[{"U", "!"}]}]], "]"}]], "Output", CellChangeTimes->{3.85860400702044*^9, 3.858604078337652*^9}, CellLabel->"Out[66]=",ExpressionUUID->"1342e5ef-7264-436f-bd75-d47732fb4576"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Let\[CloseCurlyQuote]s plot the entropy for 100 non-interacting particles as \ a function of the internal energy\ \>", "Item", CellChangeTimes->{{3.8586042193611393`*^9, 3.8586042384877453`*^9}, { 3.858604289002542*^9, 3.858604297977186*^9}},ExpressionUUID->"f4b2194c-a19a-476c-a275-\ 226e2b472f1f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"infiniteStaircaseEntropy", "[", "\"\\"", "]"}], "[", RowBox[{"U", ",", "100"}], "]"}], ",", RowBox[{"{", RowBox[{"U", ",", "1", ",", "100"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Blue", ",", "Thick"}], "]"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", "Thick", ",", "16"}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8586041527291107`*^9, 3.858604216577317*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"688819cc-45fb-4c16-a6d9-f7d3bb2572db"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJwVkHs01HkAR6221TipMSZhy1KnUJmzQ14bzQdJHmEw/Dzim6WENWgWs/Q4 2Sah3bY8QtuyFFmpCYXKeG1SHpVHqimmxHY8Ds1ZM1Ks/eOee+6/1zCM7x2h qqKisneJ/+0WHqCvqjLNUZYkyqujGTj650ltkjrNOdpbrJs/ycDNYfGqRuU0 p0NgKB6L1YLOPvVF4cwMZ77gH99OPhOjvDtDM2/knHmHF/RPUdo44by+WPa3 gtPA9umf3aOHhi2yjc2Zi5yyp9dUdAYNkJ1cw2zKVMNjcRpdv94Ieo8GjAzM mfBMK47oTjGDY2YWO1pzHXx1XDPNZ63Q4m0s0h0xRFyOlkAstcX12tEmU63N iJDfyat6A7iIm+PbP5rg9O+T8p+WO+KG6hxf05KFebXR3ZvMnPBbU9B4J4sN Cyu3v65ZOMPAveN5r745xkR9QVkLe5Cr+m7qprUFep45q40MuCJs+WpJH8sK h4dK3qeluqPmUmrrmq9twA2irzlF88BE2IUpFnsHFqqJpLrMEymHW/oyNtoh ofiAl/KMF6arCmSNHA4etkyOXvTiIhFBmrSrgFqBa6EWzRt/eMat9i2yR2Tz 27Wl172xQyA1yKx0QGXFjoPNIT5QlfT8+vaKI1ZX0Eqpzz6w+0aPYXxrF3RK n9bvLPXFHVcRK7XJCRss2VujHHkIvygsn6nbDRO36KuKXh6OL2uz8LnvDH1I iy7H+KH9bI7BQPMeqG09zC9U+IH7Pv1yZJ0LdLVbY66k+sPDv9durNUVxE/6 zQUahcTxUvNT99xg5DF8RDeDAiOny1ar0x1pJGfFTkYAZmg6w1X9e6Eqlghk 2QGYL30/HN3lAbM6fpXxykAk8xj/Ml94Qjd35lNfRiDo2vur+VFesG8bMa1c CMTyMZf64Hde0KoWLmrGBqHG4fUDSRQX5yPrWUUjQUhmW54yH+PCTePeyU3c YMxW2Hiuj/XGU0O6Tn5bME7fVrm/dsIb7Rz73BjWPjReHaQVHPSBuh2/4fvs fajcHOx/btIHZp4T5+lfhOCGZYlPYZQvrLhVSZLwEMQ+yQnQ++CLY4zE76a7 Q9DFzd9mmLT0TT3j+EGLUDhEkCprOQ+FXrzJ+POhiFvWa3Nf6Ie7P0hOdyhC UbOdJghf+qjKzD67YEKQ7+aVkpHgD3qgQ+3PfgTWkw5Zm5X+uFyySqYjIpgw nHPrFVBYydTW7hcTdPuXLSwmUuB+lS7PvUlw4wxPvE1IoVZZ1EZVEwjmxNqi IxScIrvtpTUEnx5HyaxFFOKMncrf3CbQOC5NvJRHwaR1ldHkPQLWa0nxoQYK vOwIhbKDgM6M9c29S0F9l9S9/iHBB5d1aq2NFBSlprnCRwS3apNj1rVSePns wJcfOwl2nmFb9TyiUJMT6vmxh8DDtqRz+ysKww+6ipT9BN8mcI/tH6KQtb5q e90AAaN8kf2LjEKA4MTdpGcEA1rBeWPvKCTlaZTPDhKEjDPDCqYouGY/n5K/ JIBhK7N9moKtjWhDtZRgg398u/wDhfF0c9eEVwSjLV3b9ioomNFyf5x+TfBA mTIknKNwKN1DeH2IoIK15dyVeQrSJxrxscMEWeGDu3o/U1hR1B9sKiPgF4gU i4sUOC5lthNL/R/WCDqp "]]}, Annotation[#, "Charting`Private`Tag$68223#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Entropy\"", TraditionalForm], None}, { FormBox["\"Internal Energy\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->500, LabelStyle->Directive[ GrayLevel[0], Thickness[Large], 16], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1, 100}, {0., 135.06008751557417`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.858604160146172*^9, 3.8586042170729094`*^9}}, CellLabel->"Out[75]=",ExpressionUUID->"1deff4a5-296b-4e17-a410-5071ad144ed5"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ As we saw when we introduced the regular solution model, \ it\[CloseCurlyQuote]s often convenient to simplify this expression in the \ Thermodynamic limit using Stirling\[CloseCurlyQuote]s approximation\ \>", "Item", CellChangeTimes->{{3.85860430093645*^9, 3.8586043593219*^9}},ExpressionUUID->"e0b00f2a-b58b-4742-8c3c-2ac78720837a"], Cell[BoxData[ RowBox[{ RowBox[{"stirlingsApproximation", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Log", "[", RowBox[{"n_", "!"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"n", " ", RowBox[{"Log", "[", "n", "]"}]}], "-", "n"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Log", "[", RowBox[{"a_", "/", "b_"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"Log", "[", "a", "]"}], "-", RowBox[{"Log", "[", "b", "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Log", "[", RowBox[{"a_", "*", "b_"}], "]"}], "\[RuleDelayed]", RowBox[{ RowBox[{"Log", "[", "a", "]"}], "+", RowBox[{"Log", "[", "b", "]"}]}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.858604363881715*^9, 3.8586043685372677`*^9}}, CellLabel->"In[78]:=",ExpressionUUID->"5ce72805-5fea-44b4-b2a8-72ad528e59ec"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"infiniteStaircaseEntropy", "[", "\"\\"", "]"}], "[", RowBox[{"U_", ",", "n_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"infiniteStaircaseEntropy", "[", "\"\\"", "]"}], "[", RowBox[{"U", ",", "n"}], "]"}], "//.", "stirlingsApproximation"}]}]], "Input", CellLabel->"In[79]:=",ExpressionUUID->"5ca21a27-9d1f-4431-80ba-7080bdc178a6"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], "]"}]}], ")"}]}], "-", RowBox[{"U", " ", RowBox[{"Log", "[", "U", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "U"}], ")"}], " ", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "U"}], "]"}]}]}]], "Output", CellChangeTimes->{3.858604375296533*^9}, CellLabel->"Out[79]=",ExpressionUUID->"a09cbf6f-4963-41d2-9170-ad978bf49372"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"infiniteStaircaseEntropy", "[", "\"\\"", "]"}], "[", RowBox[{"U", ",", "100"}], "]"}], ",", RowBox[{ RowBox[{"infiniteStaircaseEntropy", "[", "\"\\"", "]"}], "[", RowBox[{"U", ",", "100"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"U", ",", "1", ",", "100"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Blue", ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed", ",", "Thick"}], "]"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", "Thick", ",", "16"}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"0.75", ",", "0.25"}], "}"}]}], "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.858604414673141*^9, 3.858604451556087*^9}}, CellLabel->"In[82]:=",ExpressionUUID->"118cea5e-51fd-4511-80e4-ef9b24840ac0"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJwVkHs01HkAR6221TipMSZhy1KnUJmzQ14bzQdJHmEw/Dzim6WENWgWs/Q4 2Sah3bY8QtuyFFmpCYXKeG1SHpVHqimmxHY8Ds1ZM1Ks/eOee+6/1zCM7x2h qqKisneJ/+0WHqCvqjLNUZYkyqujGTj650ltkjrNOdpbrJs/ycDNYfGqRuU0 p0NgKB6L1YLOPvVF4cwMZ77gH99OPhOjvDtDM2/knHmHF/RPUdo44by+WPa3 gtPA9umf3aOHhi2yjc2Zi5yyp9dUdAYNkJ1cw2zKVMNjcRpdv94Ieo8GjAzM mfBMK47oTjGDY2YWO1pzHXx1XDPNZ63Q4m0s0h0xRFyOlkAstcX12tEmU63N iJDfyat6A7iIm+PbP5rg9O+T8p+WO+KG6hxf05KFebXR3ZvMnPBbU9B4J4sN Cyu3v65ZOMPAveN5r745xkR9QVkLe5Cr+m7qprUFep45q40MuCJs+WpJH8sK h4dK3qeluqPmUmrrmq9twA2irzlF88BE2IUpFnsHFqqJpLrMEymHW/oyNtoh ofiAl/KMF6arCmSNHA4etkyOXvTiIhFBmrSrgFqBa6EWzRt/eMat9i2yR2Tz 27Wl172xQyA1yKx0QGXFjoPNIT5QlfT8+vaKI1ZX0Eqpzz6w+0aPYXxrF3RK n9bvLPXFHVcRK7XJCRss2VujHHkIvygsn6nbDRO36KuKXh6OL2uz8LnvDH1I iy7H+KH9bI7BQPMeqG09zC9U+IH7Pv1yZJ0LdLVbY66k+sPDv9durNUVxE/6 zQUahcTxUvNT99xg5DF8RDeDAiOny1ar0x1pJGfFTkYAZmg6w1X9e6Eqlghk 2QGYL30/HN3lAbM6fpXxykAk8xj/Ml94Qjd35lNfRiDo2vur+VFesG8bMa1c CMTyMZf64Hde0KoWLmrGBqHG4fUDSRQX5yPrWUUjQUhmW54yH+PCTePeyU3c YMxW2Hiuj/XGU0O6Tn5bME7fVrm/dsIb7Rz73BjWPjReHaQVHPSBuh2/4fvs fajcHOx/btIHZp4T5+lfhOCGZYlPYZQvrLhVSZLwEMQ+yQnQ++CLY4zE76a7 Q9DFzd9mmLT0TT3j+EGLUDhEkCprOQ+FXrzJ+POhiFvWa3Nf6Ie7P0hOdyhC UbOdJghf+qjKzD67YEKQ7+aVkpHgD3qgQ+3PfgTWkw5Zm5X+uFyySqYjIpgw nHPrFVBYydTW7hcTdPuXLSwmUuB+lS7PvUlw4wxPvE1IoVZZ1EZVEwjmxNqi IxScIrvtpTUEnx5HyaxFFOKMncrf3CbQOC5NvJRHwaR1ldHkPQLWa0nxoQYK vOwIhbKDgM6M9c29S0F9l9S9/iHBB5d1aq2NFBSlprnCRwS3apNj1rVSePns wJcfOwl2nmFb9TyiUJMT6vmxh8DDtqRz+ysKww+6ipT9BN8mcI/tH6KQtb5q e90AAaN8kf2LjEKA4MTdpGcEA1rBeWPvKCTlaZTPDhKEjDPDCqYouGY/n5K/ JIBhK7N9moKtjWhDtZRgg398u/wDhfF0c9eEVwSjLV3b9ioomNFyf5x+TfBA mTIknKNwKN1DeH2IoIK15dyVeQrSJxrxscMEWeGDu3o/U1hR1B9sKiPgF4gU i4sUOC5lthNL/R/WCDqp "]]}, Annotation[#, "Charting`Private`Tag$75961#1"]& ], TagBox[ {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwVjHk01AkAx2epFbtyJkSNlMY1ayJHaL6OnDmGGfNzz8+1klyLiDabl3Yd bbWVI6yb1BOWSJZxlNocu0u6hFFI5JG1rnZn7R/f93mf93nvqxYQ6RYsQqFQ 3Df3Px2DPHeLUBaYlI0aqcshCvi25LwCL3mBiSy9KPtlBdSP121vW93sUqrl Sqk7oegrIUxcXGRitUNcJV8RU5z7Y4sTS0x+p+YL525lnLNVLRY8WGHyXYOp LYu70aIlUO/IEDKLVkYH+sLVcTWhQZ6fIQZ8/jZyrloLEr5FO7QGxJAS05Lz 05QWvrPIVLgquw08StXJL/dqI0IiSDE0dxtSJj/7Ki5HG3b5cirSleLgG5Fr eqk6+NQeo87r/AK8p11Vza50BIkxDlLWpFCreftG6LQelJ8MH6Dqy2NB8p3S QQMDWGVkMk7IqACKM/V7npqg042WpvRWDUWk23DrsyO40zjF15XTADUp/bT+ nAXs6zqie9Y10UyvOHlA0Rq1ImuRMoZ0bKM4J2s52eAy33u2l87Au6iw1w1c O1CPPX4xuFsfVKcjUY4aDrguMjlfb3wIzz3uVVK3HEPAVqn2IboRmjsbwalx QkNhcteOXSZQVNGJOM50wVxAzjydYYpev8PRvVGuSPqmcyhd3RwjplpNRTos LNTkCdqYTIRfTLVYW2AhHt4y4jeB2HtKq2vVbvjZJUqKXWSBT/Q6jzE3d5jG jlAzblsi0+DKA7YoGyLtAz++qbCCtb12785SNsz3KMvS7lpjy9HESV1HDu47 pNGT+UdR5l0xGTXLQVB+YtVisw1ac6MXl5I9kCLafcj9oS0yXf1lChS46Ll0 jTrcYYfeVvGEqBIuWDPfl4c222Pf8sUSexoBZ+6g+XSXA4ImAoul7hKIny3T v/CrI7rz5m2cjDwhe63PTK73GNjFNygGfE8siiuO1zx1QtDJs0OZVl7YKJsZ P9HnjJF1m8K4+15I4Mguy790QT5HMfjxYW9IK5C/RIa5Ivb4mf2Gd7yxddr+ ns+kK+aKkyppe3zQYDn6qD2MBQPmEQf76z5IYBhe0J9mYd94TD9L1Bd/V5u4 qEa4YSidInQ65YsfmigPd8654W2rplq+wBdtN5+L533tjjKHXTQxOz/c1vDh XvngDuvWAlXdRj/UGpa63whjg91RuWKn5I+IP655Kn9koywuu3A21R99rFwd tVMcdGf6NPS/94dlMK/GeImDGCUOrWAfD1GigyYPEz2w/jmmNzx4aDAQjw1a 8UCFzul6q/M85Dq6JqXHcOGwHpexXMeD8QfLTI1VLrxUpiuaBDzMqa05DsYS CPEzDimQJNHPrfxXGE9g3oy77r+dRG0Wp04nkcD74S3n9kqRiF2rU0g7Q6Dz lWx4pTSJT7+HCYzTCLSF0W7VypGQTBmJL8wmEHCpepivRII+2l58vIVAYVfK /LP9JKTlI9jXWwmMhpSv5GiQ+GivItbVRmBdLusvzwMk7jYmhKt0EZAQ3nr8 ikbiSBbDaODJptM5glFtEs5mpb0Grzf/U1t7Jhgk9GJYZ8kxAr/l/SlZepCE bJWQcVGw2QMf2AbqkxiW88meniRwOsQ2+40BCb9Z+YC8eQKyTTNlb4xIQK1L vmeBQP+ITHqpMYm93OiepY8ElEPVAwNNSEx19uk4rRDwEhVfnDhM4tFq0lji GoFzZuPlJaYkqulaVyo2CFTrVjoHmJHIDHpuPfgPgZIw/1k1cxKReWkrQiGB l2kSyYJN/w8XSk5q "]]}, Annotation[#, "Charting`Private`Tag$75961#2"]& ]}, {}}, InsetBox[ TemplateBox[{"\"Exact\"", "\"Approximate\""}, "LineLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}], Thickness[Large]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { Directive[ GrayLevel[0], Thickness[Large], 16], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", TemplateBox[<|"color" -> RGBColor[1, 0, 0]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> GrayLevel[0]|>, "GrayLevelColorSwatchTemplate"], ",", RowBox[{"Thickness", "[", "Large", "]"}], ",", "16"}], "]"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.75, 0.25}], ImageScaled[{0.5, 0.5}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Entropy\"", TraditionalForm], None}, { FormBox["\"Internal Energy\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->500, LabelStyle->Directive[ GrayLevel[0], Thickness[Large], 16], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1, 100}, {0., 137.93377496772774`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], Line[CompressedData[" 1:eJwVkHs01HkAR6221TipMSZhy1KnUJmzQ14bzQdJHmEw/Dzim6WENWgWs/Q4 2Sah3bY8QtuyFFmpCYXKeG1SHpVHqimmxHY8Ds1ZM1Ks/eOee+6/1zCM7x2h qqKisneJ/+0WHqCvqjLNUZYkyqujGTj650ltkjrNOdpbrJs/ycDNYfGqRuU0 p0NgKB6L1YLOPvVF4cwMZ77gH99OPhOjvDtDM2/knHmHF/RPUdo44by+WPa3 gtPA9umf3aOHhi2yjc2Zi5yyp9dUdAYNkJ1cw2zKVMNjcRpdv94Ieo8GjAzM mfBMK47oTjGDY2YWO1pzHXx1XDPNZ63Q4m0s0h0xRFyOlkAstcX12tEmU63N iJDfyat6A7iIm+PbP5rg9O+T8p+WO+KG6hxf05KFebXR3ZvMnPBbU9B4J4sN Cyu3v65ZOMPAveN5r745xkR9QVkLe5Cr+m7qprUFep45q40MuCJs+WpJH8sK h4dK3qeluqPmUmrrmq9twA2irzlF88BE2IUpFnsHFqqJpLrMEymHW/oyNtoh ofiAl/KMF6arCmSNHA4etkyOXvTiIhFBmrSrgFqBa6EWzRt/eMat9i2yR2Tz 27Wl172xQyA1yKx0QGXFjoPNIT5QlfT8+vaKI1ZX0Eqpzz6w+0aPYXxrF3RK n9bvLPXFHVcRK7XJCRss2VujHHkIvygsn6nbDRO36KuKXh6OL2uz8LnvDH1I iy7H+KH9bI7BQPMeqG09zC9U+IH7Pv1yZJ0LdLVbY66k+sPDv9durNUVxE/6 zQUahcTxUvNT99xg5DF8RDeDAiOny1ar0x1pJGfFTkYAZmg6w1X9e6Eqlghk 2QGYL30/HN3lAbM6fpXxykAk8xj/Ml94Qjd35lNfRiDo2vur+VFesG8bMa1c CMTyMZf64Hde0KoWLmrGBqHG4fUDSRQX5yPrWUUjQUhmW54yH+PCTePeyU3c YMxW2Hiuj/XGU0O6Tn5bME7fVrm/dsIb7Rz73BjWPjReHaQVHPSBuh2/4fvs fajcHOx/btIHZp4T5+lfhOCGZYlPYZQvrLhVSZLwEMQ+yQnQ++CLY4zE76a7 Q9DFzd9mmLT0TT3j+EGLUDhEkCprOQ+FXrzJ+POhiFvWa3Nf6Ie7P0hOdyhC UbOdJghf+qjKzD67YEKQ7+aVkpHgD3qgQ+3PfgTWkw5Zm5X+uFyySqYjIpgw nHPrFVBYydTW7hcTdPuXLSwmUuB+lS7PvUlw4wxPvE1IoVZZ1EZVEwjmxNqi IxScIrvtpTUEnx5HyaxFFOKMncrf3CbQOC5NvJRHwaR1ldHkPQLWa0nxoQYK vOwIhbKDgM6M9c29S0F9l9S9/iHBB5d1aq2NFBSlprnCRwS3apNj1rVSePns wJcfOwl2nmFb9TyiUJMT6vmxh8DDtqRz+ysKww+6ipT9BN8mcI/tH6KQtb5q e90AAaN8kf2LjEKA4MTdpGcEA1rBeWPvKCTlaZTPDhKEjDPDCqYouGY/n5K/ JIBhK7N9moKtjWhDtZRgg398u/wDhfF0c9eEVwSjLV3b9ioomNFyf5x+TfBA mTIknKNwKN1DeH2IoIK15dyVeQrSJxrxscMEWeGDu3o/U1hR1B9sKiPgF4gU i4sUOC5lthNL/R/WCDqp "]]}, "Charting`Private`Tag$75961#1"], Annotation[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}], Thickness[Large]], Line[CompressedData[" 1:eJwVjHk01AkAx2epFbtyJkSNlMY1ayJHaL6OnDmGGfNzz8+1klyLiDabl3Yd bbWVI6yb1BOWSJZxlNocu0u6hFFI5JG1rnZn7R/f93mf93nvqxYQ6RYsQqFQ 3Df3Px2DPHeLUBaYlI0aqcshCvi25LwCL3mBiSy9KPtlBdSP121vW93sUqrl Sqk7oegrIUxcXGRitUNcJV8RU5z7Y4sTS0x+p+YL525lnLNVLRY8WGHyXYOp LYu70aIlUO/IEDKLVkYH+sLVcTWhQZ6fIQZ8/jZyrloLEr5FO7QGxJAS05Lz 05QWvrPIVLgquw08StXJL/dqI0IiSDE0dxtSJj/7Ki5HG3b5cirSleLgG5Fr eqk6+NQeo87r/AK8p11Vza50BIkxDlLWpFCreftG6LQelJ8MH6Dqy2NB8p3S QQMDWGVkMk7IqACKM/V7npqg042WpvRWDUWk23DrsyO40zjF15XTADUp/bT+ nAXs6zqie9Y10UyvOHlA0Rq1ImuRMoZ0bKM4J2s52eAy33u2l87Au6iw1w1c O1CPPX4xuFsfVKcjUY4aDrguMjlfb3wIzz3uVVK3HEPAVqn2IboRmjsbwalx QkNhcteOXSZQVNGJOM50wVxAzjydYYpev8PRvVGuSPqmcyhd3RwjplpNRTos LNTkCdqYTIRfTLVYW2AhHt4y4jeB2HtKq2vVbvjZJUqKXWSBT/Q6jzE3d5jG jlAzblsi0+DKA7YoGyLtAz++qbCCtb12785SNsz3KMvS7lpjy9HESV1HDu47 pNGT+UdR5l0xGTXLQVB+YtVisw1ac6MXl5I9kCLafcj9oS0yXf1lChS46Ll0 jTrcYYfeVvGEqBIuWDPfl4c222Pf8sUSexoBZ+6g+XSXA4ImAoul7hKIny3T v/CrI7rz5m2cjDwhe63PTK73GNjFNygGfE8siiuO1zx1QtDJs0OZVl7YKJsZ P9HnjJF1m8K4+15I4Mguy790QT5HMfjxYW9IK5C/RIa5Ivb4mf2Gd7yxddr+ ns+kK+aKkyppe3zQYDn6qD2MBQPmEQf76z5IYBhe0J9mYd94TD9L1Bd/V5u4 qEa4YSidInQ65YsfmigPd8654W2rplq+wBdtN5+L533tjjKHXTQxOz/c1vDh XvngDuvWAlXdRj/UGpa63whjg91RuWKn5I+IP655Kn9koywuu3A21R99rFwd tVMcdGf6NPS/94dlMK/GeImDGCUOrWAfD1GigyYPEz2w/jmmNzx4aDAQjw1a 8UCFzul6q/M85Dq6JqXHcOGwHpexXMeD8QfLTI1VLrxUpiuaBDzMqa05DsYS CPEzDimQJNHPrfxXGE9g3oy77r+dRG0Wp04nkcD74S3n9kqRiF2rU0g7Q6Dz lWx4pTSJT7+HCYzTCLSF0W7VypGQTBmJL8wmEHCpepivRII+2l58vIVAYVfK /LP9JKTlI9jXWwmMhpSv5GiQ+GivItbVRmBdLusvzwMk7jYmhKt0EZAQ3nr8 ikbiSBbDaODJptM5glFtEs5mpb0Grzf/U1t7Jhgk9GJYZ8kxAr/l/SlZepCE bJWQcVGw2QMf2AbqkxiW88meniRwOsQ2+40BCb9Z+YC8eQKyTTNlb4xIQK1L vmeBQP+ITHqpMYm93OiepY8ElEPVAwNNSEx19uk4rRDwEhVfnDhM4tFq0lji GoFzZuPlJaYkqulaVyo2CFTrVjoHmJHIDHpuPfgPgZIw/1k1cxKReWkrQiGB l2kSyYJN/w8XSk5q "]]}, "Charting`Private`Tag$75961#2"]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{"Entropy", None}, {"Internal Energy", None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> Directive[ GrayLevel[0], Thickness[Large], 16], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1, 100}, {0., 137.93377496772774`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ LineLegend[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}], Thickness[Large]]}, {"Exact", "Approximate"}, LegendMarkers -> None, LabelStyle -> Directive[ GrayLevel[0], Thickness[Large], 16], LegendLayout -> "Column"]], {0.75, 0.25}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{{3.8586044228014317`*^9, 3.858604451773649*^9}}, CellLabel->"Out[82]=",ExpressionUUID->"0641dbde-f33e-4cac-9e49-0e183305a80b"] }, Open ]] }, Open ]], Cell["\<\ Once we have an expression for the thermodynamic potential of interest, we \ can use its differential form to obtain other thermodynamically-relevant \ quantities\ \>", "Item", CellChangeTimes->{{3.858604492285902*^9, 3.858604520868024*^9}, { 3.8586045827238207`*^9, 3.858604585219714*^9}},ExpressionUUID->"032535ba-60c8-4379-a625-\ edfbae7e491b"], Cell[BoxData[ RowBox[{"\t", TemplateBox[<|"boxes" -> FormBox[ RowBox[{ StyleBox["d", "TI"], StyleBox["S", "TI"], "\[LongEqual]", FractionBox["1", StyleBox["T", "TI"]], StyleBox["d", "TI"], StyleBox["U", "TI"], "+", FractionBox[ StyleBox["P", "TI"], StyleBox["V", "TI"]], StyleBox["d", "TI"], StyleBox["V", "TI"], "-", UnderscriptBox["\[Sum]", StyleBox["j", "TI"], LimitsPositioning -> True], FractionBox[ SubscriptBox["\[Mu]", StyleBox["j", "TI"]], StyleBox["T", "TI"]], StyleBox["d", "TI"], SubscriptBox[ StyleBox["n", "TI"], StyleBox["j", "TI"]]}], TraditionalForm], "errors" -> {}, "input" -> "d \\mathcal{S} = \\frac{1}{T}d\\mathcal{U} +\\frac{P}{V} dV - \\sum_j \ \\frac{\\mu_j}{T} d n_j", "state" -> "Boxes"|>, "TeXAssistantTemplate"]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7900904473905363`*^9, 3.7900904747801046`*^9}, 3.858603487633609*^9, 3.858604565960585*^9},ExpressionUUID->"a4d94367-26d2-4a0a-ae46-\ 48345fb1e379"], Cell["E.g. the temperature can be obtained as:", "Subitem", CellChangeTimes->{{3.858604576487196*^9, 3.858604593890315*^9}, { 3.858604647749455*^9, 3.858604662086068*^9}},ExpressionUUID->"a3d5d599-6c2f-4f72-8112-\ 9e06e2d3c5c0"], Cell[BoxData[ RowBox[{"\t", TemplateBox[<|"boxes" -> FormBox[ RowBox[{ FractionBox["1", StyleBox["T", "TI"]], "\[LongEqual]", SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"\[PartialD]", StyleBox["S", "TI"]}], RowBox[{"\[PartialD]", StyleBox["U", "TI"]}]], ")"}], RowBox[{ StyleBox["V", "TI"], ",", StyleBox["N", "TI"]}]]}], TraditionalForm], "errors" -> {}, "input" -> "\\frac{1}{T} = \\left(\\frac{\\partial \\mathcal{S}}{\\partial \ \\mathcal{U}} \\right)_{V,N}", "state" -> "Boxes"|>, "TeXAssistantTemplate"]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7900904473905363`*^9, 3.7900904747801046`*^9}, 3.858603487633609*^9, 3.858604565960585*^9, 3.858604691923815*^9, 3.858604743685376*^9},ExpressionUUID->"bde303f2-f122-4238-927a-\ fce83a3d0a10"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"infiniteStaircaseInverseTemperature", "[", "\"\\"", "]"}], "[", RowBox[{"U_", ",", "n_"}], "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"1", ",", "0"}], "]"}], "[", RowBox[{"infiniteStaircaseEntropy", "[", "\"\\"", "]"}], "]"}], "[", RowBox[{"U", ",", "n"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"U", ",", "n"}], "}"}], ">", "0"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ "infiniteStaircaseInverseTemperature", "[", "\"\\"", "]"}], "[", RowBox[{"U_", ",", "n_"}], "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"1", ",", "0"}], "]"}], "[", RowBox[{"infiniteStaircaseEntropy", "[", "\"\\"", "]"}], "]"}], "[", RowBox[{"U", ",", "n"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"U", ",", "n"}], "}"}], ">", "0"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.8586047571849213`*^9, 3.858604772504578*^9}, { 3.858604831386425*^9, 3.858604846080414*^9}}, CellLabel->"In[87]:=",ExpressionUUID->"2064a692-2278-4131-8d02-2d5fc67addfc"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"HarmonicNumber", "[", "U", "]"}]}], "+", RowBox[{"HarmonicNumber", "[", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "U"}], "]"}]}]], "Output", CellChangeTimes->{3.858604846952132*^9}, CellLabel->"Out[87]=",ExpressionUUID->"0acdf004-315c-4f47-a171-4ab92529f15c"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"Log", "[", "U", "]"}]}], "+", RowBox[{"Log", "[", RowBox[{ RowBox[{"-", "1"}], "+", "n", "+", "U"}], "]"}]}]], "Output", CellChangeTimes->{3.858604846967828*^9}, CellLabel->"Out[88]=",ExpressionUUID->"3aec85b0-fd44-4501-8b44-54d96826d0fb"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ We can \[OpenCurlyDoubleQuote]invert\[CloseCurlyDoubleQuote] this expression \ to give the internal energy as a function of temperature\ \>", "Item", CellChangeTimes->{{3.8586048742015877`*^9, 3.8586049016070557`*^9}, { 3.8586049339248123`*^9, 3.858604977862376*^9}},ExpressionUUID->"5800bc59-5dc0-42ae-b99a-\ 467f55cc11b5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ "infiniteStaircaseInternalEnergy", "[", "\"\\"", "]"}], "[", RowBox[{"T_", ",", "n_"}], "]"}], "=", RowBox[{"First", "[", RowBox[{"SolveValues", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "infiniteStaircaseInverseTemperature", "[", "\"\\"", "]"}], "[", RowBox[{"U", ",", "n"}], "]"}], "==", RowBox[{"1", "/", "T"}]}], ",", "U"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.858605201779462*^9, 3.8586052103139668`*^9}}, CellLabel->"In[97]:=",ExpressionUUID->"40f95802-c064-44fd-b677-d8c5a8b6a289"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "n"}], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", FractionBox["1", "T"]]}]]], "Output", CellChangeTimes->{3.8586052131099787`*^9}, CellLabel->"Out[97]=",ExpressionUUID->"b2d7046d-82ce-4e41-94ca-9016ddcb5d41"] }, Open ]] }, Open ]], Cell["Finally, the constant-volume heat-capacity is given by", "Item", CellChangeTimes->{{3.858605225495009*^9, 3.858605241688006*^9}},ExpressionUUID->"42a7cbe3-c970-46cd-ade8-\ feb896ae26ee"], Cell[BoxData[ RowBox[{"\t", TemplateBox[<|"boxes" -> FormBox[ RowBox[{ SubscriptBox[ StyleBox["C", "TI"], StyleBox["V", "TI"]], "\[LongEqual]", SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"\[PartialD]", StyleBox["U", "TI"]}], RowBox[{"\[PartialD]", StyleBox["T", "TI"]}]], ")"}], RowBox[{ StyleBox["V", "TI"], ",", StyleBox["N", "TI"]}]]}], TraditionalForm], "errors" -> {}, "input" -> "C_V = \\left( \\frac{\\partial \\mathcal{U}}{\\partial T}\\right)_{V,N}", "state" -> "Boxes"|>, "TeXAssistantTemplate"]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7900904473905363`*^9, 3.7900904747801046`*^9}, 3.858603487633609*^9, 3.858604565960585*^9, 3.858604691923815*^9, 3.858604743685376*^9, 3.8586052833236303`*^9},ExpressionUUID->"a294c7f7-c7dd-4af2-a633-\ b48ef6a6ad89"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"infiniteStaircaseHeatCapacity", "[", "\"\\"", "]"}], "[", RowBox[{"T_", ",", "n_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"1", ",", "0"}], "]"}], "[", RowBox[{ "infiniteStaircaseInternalEnergy", "[", "\"\\"", "]"}], "]"}], "[", RowBox[{"T", ",", "n"}], "]"}]}]], "Input", CellChangeTimes->{{3.858605289506721*^9, 3.858605312047505*^9}}, CellLabel->"In[98]:=",ExpressionUUID->"8e288960-79dd-46de-ad17-d1efc452f29f"], Cell[BoxData[ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox["1", "T"]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "n"}], ")"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", FractionBox["1", "T"]]}], ")"}], "2"], " ", SuperscriptBox["T", "2"]}]]], "Output", CellChangeTimes->{3.858605314342211*^9}, CellLabel->"Out[98]=",ExpressionUUID->"b009bb56-2573-426c-b322-3fe8c2d56274"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ The molar heat capacity in the thermodynamic limit is then given by\ \>", "Item", CellChangeTimes->{{3.858605338136859*^9, 3.85860535945752*^9}},ExpressionUUID->"0b239d73-01d0-499a-9564-\ bcac4054c791"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ "infiniteStaircaseMolarHeatCapacity", "[", "\"\\"", "]"}], "[", "T_", "]"}], "=", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "infiniteStaircaseHeatCapacity", "[", "\"\\"", "]"}], "[", RowBox[{"T", ",", "n"}], "]"}], "/", "n"}], ",", RowBox[{"n", "->", "\[Infinity]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8586053646093817`*^9, 3.858605381613192*^9}}, CellLabel->"In[99]:=",ExpressionUUID->"8bc72c79-378f-41d9-b179-496e5833f7e1"], Cell[BoxData[ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox["1", "T"]], RowBox[{ SuperscriptBox["T", "2"], "-", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", FractionBox["1", "T"]], " ", SuperscriptBox["T", "2"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", "/", "T"}]], " ", SuperscriptBox["T", "2"]}]}]]], "Output", CellChangeTimes->{3.858605382334144*^9}, CellLabel->"Out[99]=",ExpressionUUID->"5ba8f07a-eeae-4ff3-b633-3d9141828aa6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ "infiniteStaircaseMolarHeatCapacity", "[", "\"\\"", "]"}], "[", "T", "]"}], ",", RowBox[{"{", RowBox[{"T", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", RowBox[{"1", "/", "3"}], ",", "0"}], "]"}], ",", "Thick"}], "]"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", "Thick", ",", "16"}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.858605403004377*^9, 3.858605437163455*^9}}, CellLabel-> "In[101]:=",ExpressionUUID->"c1798c16-6092-472e-9d5c-46483ee40e6b"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0, NCache[ Rational[1, 3], 0.3333333333333333], 0], Thickness[Large], Opacity[ 1.], LineBox[CompressedData[" 1:eJw11Xc01X/8B3BRIiJuQ8OISiSl8Y3kPj8ZCdEy+paUUWiQkVEa3xCKjIhk lFA2IZFkFVnZO3ve6bq2yu/+zvn93v+8z+Oc1zmv9T7nvdXC/swVbi4uLqVl XFz/e0fft+BVsrpL5vq/U94kdcJE6l/8v5e+F3lKSdlCJzppcz79uUx0cYDk Cil3jP56Z+SYvmPfDbXbN2cl/eD5Q+zLxu3mKtnNffFTGv74KyfWYGOmcHjh +olulnUgqBfO8ey+/fOwZm3w9pm2EGxaUTEk8KBEdSxCu2TKNhQFv5yNRp0l jvhb/TFlL4bBRfrg3s0+N4/s3Zs9xwoIB3cb2baNmXWkadEmdELyJSr2Kd3s a6IfcamQ2MvMioTP5Myk2E5ptU3Pm6vpGlFIjDbui1x9Wq3I7Ik1rSUaCk2J oxdL3NUs5AkeqnUs4i7xt/vIvVbjXrzzc8rjNdZMTU9ynypRa+4zEp/SeoNG 2JA0dvepJX7fe50tFIfZ/B228R0Lam6pAvmTbXFoKeZePrt+LVk3ZIR38vVb vNyQ7nHLcRd5i1uJIcs2Hrall1VW6R8lMy5GxU3sS4Dy+Q6KyElDcrGG6wRz MQFHI8ve9JldJYfInSEzyxPB0pT+JKPtSrYS3u3PCHiHcDOrj8E8PuR/pld2 0o3fw8H9/tj2gjDyyq4BWbpkEsqN27hcU9+S24u/3KaNJWHwjz8fdUcWOTkx ooyalQzSGn6LjKFCsoe/kwj1TgpEKFUvWKEVZANHg0sUjVS0EDbvjmQ3kqXO yaWNC6bhhyvPI9uBbvKk2vLFsZY0iIlR06O+DZPLZXqPj8WkI8O9a26z4AT5 BX/Bi1HrDFQ+MfwxvGuWnOOq6+gklok7zrmf79pyIYpyaCPbIxPbVRWrV7bx wvvi9mLH/kxEmcdrkzSFYVcvaj2plYVbN1h/NpDWwUSDS8gxOQvGro/Dhpdt AfGRnsMS+oCJrb4vFC9KQ06u64KD0we8WJP3Oq5SFqJRldystg9Is20uk3FU xKLQx6RbR7Kx6C68cPvYfgz99/bUxOtsXPkp1kXeqYzaqaBZ+xU52LhEX3fk txo+Wt+PYdrm4HhJiPwGB3XEdl7Xsq/LwcDEdHnDvWPw1f+XxtiXi8pPrJcj B/XgUHzsuV14LgZ7Lls1G53C+f0HDjMWc2EoOLqN1/0sNBK39t+8/BHOhhoX tYRMoLBR2Jde/hECcvwunpIXsM7/t+JNuTwcHwlpaPt4CX//jrfQAvIAdoaH sr0FRh3aPG5M5mG6Qm9Y/dQV1A+Vy9CMP2F7arn1W08bfDL5UHX98yfcJbXM WgvdwJuqWAeqZD7e6DrpB0zbYyoiV77XPx/643IbrE464ph19WDjfD401qyv P9DnjJcH+6O+Xy0ApetptlymK2g8s0YFTQWIzCt1W196B2gUFE4nPsPldDRf uth9hLyWrnyT9hkPrXbHoushlNUMDvv5FKIlYtYvbswLTwWs2B5ThWh4WVyi JeeDng731FvmX6B3pL+4JdgPXi4JEudUi+DjzMO3tucZ2jQ/t+m9L8JeRz6n l/1BkCc1BGHdV1SlXE8ItA1BfcZvblnmV+QIVTdGFYRBFPxmqxWLcbzKy1DQ KxyqO0IP+1gVo/v7nz/PLV/i2VQS+05DMc6FU85IXInGp64D9VMrS0Al87Il fGLRX/o11Y5cgiQjQ4XI3tc4ENxyxSKlBBejI4JDld/CzO2yend/CSb/7bt3 4XY8fC5RJYzFSkFaNpXdVZiAzt3L2nW8S+FyToHmc/09HlQp6CpdKsMPz92W WhrpeJ+VtyMlrAz3g/Rzkxsy0BihzrO9pgw350JM83Mysc36XKGYSjk0lev3 7zj/AVU8XopcpG9QWOl+xaQ9F+vVukR/fv8O4ZrWZ+cffwGx7Srz+J/v0BMZ 36H+pAi2Aqzq0v0VKF893tAX9BWFHbzeH19XYB0106WvsRgWLvtmo+9UwuNY SYnWdCnSM/y6bihWYShl8GeNRQUoohR/XfMqrI04fCluvAKyLrrknaFV2KS1 R7LjViVeHxF4MzhfhXTZPPejD38g5If/1fPfqrEl/uo7+ptquAwGsrRNa5Gz PJc8P/YTsQLVniJa9ThS2WLDkmsGWe2u6UOzehxwSjAvuN6MbrtdB5mu9ZB/ ZmGindYMscanIzXJ9VgpOLEjcU8LgiNO6PiuaUCDb5+QrlIrPLfXCS11NeCX YeiJxR3tsOa8JJpjExr6M4mYli5wxc0UdD1tguqyxsJwwW5ELN/SXRXfhK3r kv5R0+hG5Y+rEkmtTXhyYubd04xu7DT8HXflcDNuGXiGHvD6hTEb2dSeZS24 q7YvpkC8F9dC7hXVB7VC5t2G8yb8/eCejuv9mtSKsQv/6b+X7EekSSVXRmkr 8GGB3nCwH1VbSBoBU61orTw9lWHej13v3lfonGtD0aPjrlF5/aB9bqovlWyH gqJpoJXpAOyG5QZz0jvA+3tOb9/TQfSZdfCV/OhAxr0x64cxgzjb7qtYO9SB Qe2DZ99nDUK5etR9eFMnjg+YFT1uGwRPVsKa9T6deD0qyvDeOoQIj61k10td CLnkbVqbPoRVM/WWnne6YP1qc0zn1yHcs3/oFxjWherL/xz4Xj8EC4ve5nfV XfjGK+2iMjkEhePR19sPdcO1PWckfP8wSkgbX6qs+YXoDV5s+8xhHAioLNLa 9QsOeZPBj74OI5HXbej0sV+498K4wLVuGP7zrXuuefzCyWi596towzDuDf0e OfYL7evrOjq2j4CSvGZqsbgHM5b9e86GjmDVVi/ZXuU+dO5RGz9mNorKI8F7 7mv14cyJJCtD21E8PhdzSPxMH4QHP9sYOI+CO+iT9oXrfVC8JJ7K92QUC39p 1m3RfTjYFu4SmTMKarfR+5/c/dB0Di4z5B1DTYSsXHFNP6K+DR7bGj2GJzkH lC519EPL/tkKvsQxHK8/qvJ3uB+WqWLFveljKF9pqnNkqR8biNq3FsVjKHQJ sv2kNICZR0NO+QNjSDOcT8p8MYCkp7V15dvG8WxNtfyby4OYuJBIiMaOI/+Q eK6B3SAs0/jHxhPHMWRmj993B9F6Sm44O30cqmkkQ5PwQdh9CTWWLBrHmI7p vdV1g/DPUiFMuseh4Un/6a46hD9jUlGW6ymYmxa+fWb9MBgWN+7F/0eBjLjF 0pLMMEIO2PAv+lBgoJnjl6bE2VMQVVz7GQUJIedi+PSHsUHb6VBxJAVn9ryp KPIcRkxowH/K2RSk2ezbtIs1jHWCHc5nByiw6DL8ylMzgrGdxOF8FSpWveq/ 6dAxAhn7NpWfZCo+nLfb0jsyAvoDS9tfGlTwdPq4FywbRWahcdiAPhXx7QX7 HQ6NYvXxibJgcypGWqTe98SNIv/zP7JBPlRcq6cF5buPIVC8ufN6HRWiQe6Q 9RlDharCXFwjFQUneRmhoWMI73w40dRKhcBPSb1bGZw9WP2OlemlIrX2zArZ 4TE4LH46eJdJBaPqk3voqXHUfnOpWCtMg8M3Lwt7WQrUc5LFVXRpkBg6xjuz nwIRyWePPfVpqObmT/YgKIh9S0v/cYqG7UQAy+9fCt5dsjmvY0JDR0HYw/in FFg+tuxdb0XD0czEmA4mBYtWZf4THjSIvKrs1PhERdOuANnqFBqK8p/cryqn Qtnvi0pkOg3X209In26gYtaNr+VKFg3f1jXYmlGoyOHj/zL5kQb3oI45ty00 iCVIUgdLaOj3pqxPf0jDOjtx851tNGTdEjwrpkPHMVJQkekSDTWRJPc0Yzo0 HgtMLCyjY6R8U6y6FR0sodU/wpbTsWmjHPXGAzpqfjX6lPDT4VWi5VmSSwfJ 0aCBRaLDWPRB9jVpBiy/lhwqkKVjIZtF+rLIwIfKx+dW69OxtmdO5Qw/E2FR f5x0T9KhyMd1eXQ9E21/ppu9TtNhaSqUKrKPiUrVz24sI06e5bs0r9owIScw VZRsRkeMkZWzcAsTguG3Rl7b0/Hm7nXKXpMJtDCNRfIC6dhbzD/nc3ECWWFu E57BdBQvf7+i13IC388Fdho8p6MvYEgq4NYEqgvzOnte0CHx+qLJuN8EEvje t41G0xFZfrL8TeEEDr4y2PQ6hY6Q1QdiRKVZeLVd5Onnb3RIn2lMsd3Jgpje XJNBBR1ZL27lFyuyYC+s4NZXSUe9ZFqznSoLV7gduv5W0yG0b4dAtSELNTet 9HY20vHEWMzN04eF06NROXt66HgU+/v0FI2FvJKjJMlpOk7t/eSwi81CepHS 4J0ZTn0lTsEW85z4XJOLLbN0FAxQ6utXTOLV7e0mjxfomNzecTJNYhLfuU4F tS/RYZGaq3/11CRW7XP0xyoGjubb6bRnTyIrKr1MWoIBIV15W+GCSUhc+P3H WJKB7s5h32PFkyitTVr7RIoBt9+mlTk1k5BPqu6mcfaYCT3t4OFJuH7RWYqX ZUDqu6yW7gY2Np5V+9q3lwGupj6i8A4bKUp5pwPVGfAaL3pz5z82FLPMpz9p MMDPFc2t4stGQkOYY78mA6K7/y3PDWMj/VDYkqI2A9t9GrQzMtnYy6cRUKjH gK5qqUHcCBsVOicK4gwZeP72ranvmSm4S43/ib/CwA7nq26G8tNwiRwNrfBi YPfh3rOxe6cRe8fHNM6bgQNc5/ZQ/pmGDnPIxuMxA+r+OiMPNKah8mzbWUVf BsziFQxTTKc5//4TL7+nDLxontzDHTiNqY6B1RIhDKw4+GA0gz2N0zEdG7/F MDA0HW4s8GUGf+Mkq/d9ZCDu6H6nX2Uz8Nk1f5/N8aWAusCMqhlIe/s/zc5j oHPbih9n22cwZNKTpZTPQMNZR9Uo9gyitg1q7yhkoCjrhNRu+VmYqWerskoY CL+5jGIQPouerdekSLWc/oev3QtxmIO9N2qS+xk4dk8mVdNtDhGeGuKaA5x+ 1nV3ztyfwzpz+alujg9r6Stf8J/DmQtxB1cPMSCfsIct824O+mrS62xGGBC4 MmWT2z2H9qKH2SupDNQM3TNs157HUov5RxabAYOhoF0SEgv4o++g4reciZpd Q82m2xbgK75h3RLHek6H7r+SX8CT4rsxziuYOM7dUy92aAHnBbM+m/EyoS61 y4V0agHbIlfs3MPHxEHTb8V8jxZwSl2Iv0SAiS3N80bs4QXsLnbpTxZlglJm 8bAybRH7k/+GJkgyoSjSKq5x6Q/2qdfJXVVmYhWmzbvZfyF5syNnSY8Jbfr5 WWkjLqK0hZK/04yJ9lKrZecVlhEzzcPbnG4yketbbiY1vYy4VpA43+7OxNUV t/vq6riJFWzRhghvJiwd7+YKRvIQgsn1a1UDmdhjvavuhPlyosbL0jY6nImf ogoCt1VWEAvJ0UEfYpn4nP7olQIPL+EcOBl4I5GJu8vkT9X84iUO/y1XZKdy 6uu+c9wuZyWhoCsik/mBieHEraGxHnzEY30hV+88JkJ3blyeb8RP3Iu7+k2z kImgyKsV5lKriJOaPBW6xUycD71YJzi6inikqy44UsbEnGbCfGyRAPGKPrfy TgUTg8PqbqU+goTP1KoJ3yom4tSUNtearybUFLEmtJaJNO/bIta7hQiuV8/F leqZ8DGy1OOZFiKcH1zqDGzkzL/7TZJPrTDx1cDJaqKZiQi5V2m1emsIt3bi 5N9WJh4UB0To5a8hNr/e0SfUwYT+ZqOEqm0ixKYmwwlmJxNH7SouiPiJEPSN Tlwh3UzEbrHYVjMtQvBHRHcp9zCxrezdC4MLokTKrJx3Ui+nv92l8o1FooTp s8O+v/s482cvb/ghTyLslAYNjQaYsMialPILJBGBqzuUPQeZuPHo7G/dYBKx qezzWV+Ob5/NaRN8TiIKnuBmAMe+07efBb0gEaHaClHhHKerzC+GR5OIjVvf j6dwPF+y1JqYQiKsuV9oNHMc1CgYUF7ByZcRPyMzxETk25s2j3+QiGuZESM7 OX7rXKdxvJpE+PGrtezm+OP6oIXqOhJxKDYi/RDH3edJNk0tJEJC5/1pPY5l BzdqDAySCBvroH8dOd6bc0cifphEpEiXHHDl+LB31/yVURLB9ksS8uD4hGx0 5jiFRLjvfFvkzbHjdSkJFotE+KgdE37JsceR/+Y/sEkEF53oi+bYe/VAs/M0 iVDqmcmI4zgi4+3TuTkSoWPwQi+V47iHy60LFkgEI/PhhiyOU05fUff4TSJo m3cO5HKcI/1dnPyXRGhwBaQUcFzE3jG/tEQikn9mOH3l+H8AtDWrPw== "]]}, Annotation[#, "Charting`Private`Tag$81406#1"]& ]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Molar Heat Capacity\"", TraditionalForm], None}, { FormBox["\"Temperature\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->500, LabelStyle->Directive[ GrayLevel[0], Thickness[Large], 16], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8586054322517433`*^9, 3.8586054373906813`*^9}}, CellLabel-> "Out[101]=",ExpressionUUID->"fb96fa31-4ac3-48b3-86fa-71dd613470ec"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[" There\[CloseCurlyQuote]s two important features in this plot:", "Item", CellChangeTimes->{{3.858605453859399*^9, 3.858605458123476*^9}},ExpressionUUID->"253a27b3-dcce-480f-896f-\ b9831f0905a8"], Cell[CellGroupData[{ Cell["The heat capacity approaches zero as T \[Rule] 0", "Subitem", CellChangeTimes->{ 3.79017116602882*^9, {3.790171212695992*^9, 3.790171285475956*^9}, { 3.790202579229229*^9, 3.7902025810579586`*^9}, {3.8586054667241707`*^9, 3.858605475931044*^9}},ExpressionUUID->"aaeed6c6-43d4-4393-b927-\ 232c03a10878"], Cell["\<\ This is a common feature for all systems in which the first excited state is \ separated in energy from the ground state (i.e. all discrete energy level \ systems)\ \>", "Subsubitem", CellChangeTimes->{ 3.79017116602882*^9, {3.790171212695992*^9, 3.790171285475956*^9}, { 3.790202579229229*^9, 3.7902025810579586`*^9}, {3.8586054667241707`*^9, 3.858605484634575*^9}},ExpressionUUID->"3db7cfdd-9fef-49e6-ae53-\ 6a712adc09be"] }, Open ]], Cell["\<\ The heat capacity saturates as T \[Rule] \[Infinity], i.e. in the \ \[OpenCurlyQuote]classical\[CloseCurlyQuote] limit\ \>", "Subitem", CellChangeTimes->{ 3.79017116602882*^9, {3.790171212695992*^9, 3.7901713084749007`*^9}, 3.7902025832880087`*^9},ExpressionUUID->"6743686a-9486-4ff8-9c76-\ 13ec475f8aac"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["The Canonical Ensemble", "Section", CellChangeTimes->{{3.8585939355682993`*^9, 3.858593945344677*^9}, 3.858605529187456*^9},ExpressionUUID->"8ae732ef-0fa3-4901-a2dc-\ 0a7ee47fc9c5"], Cell[CellGroupData[{ Cell["\<\ In the canonical ensemble, the macro-states allow heat into the system, but \ no external work.\ \>", "Item", CellChangeTimes->{{3.8586059946715317`*^9, 3.85860599717238*^9}},ExpressionUUID->"4e16c796-3093-4c53-bbcd-\ f6e02db40ebb"], Cell["\<\ The system can therefore be held at constant temperature by being in contact \ with a (large) reservoir to transfer heat to and from.\ \>", "Subitem", CellChangeTimes->{{3.8586059946715317`*^9, 3.8586059968945093`*^9}},ExpressionUUID->"204198b2-3dd7-44f1-9464-\ 831498cdbbfc"] }, Open ]], Cell["\<\ If it helps, you can think of the whole setup (system + reservoir) as a \ microcanonical ensemble\ \>", "Item", CellChangeTimes->{{3.8585940875986958`*^9, 3.858594098195796*^9}, { 3.858606018015604*^9, 3.858606046344593*^9}},ExpressionUUID->"c43f8201-d2bb-45ed-b8bb-\ 33b33b85525a"], Cell[BoxData[ RowBox[{"\t", RowBox[{ RowBox[{"p", RowBox[{"(", RowBox[{ SubscriptBox["\[Mu]", "S"], "\[CircleTimes]", SubscriptBox["\[Mu]", "R"]}], ")"}]}], "=", RowBox[{ FractionBox["1", SubscriptBox["\[CapitalOmega]", RowBox[{"S", "\[CirclePlus]", "R"}]]], TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"1", RowBox[{ RowBox[{ RowBox[{"for", " ", SubscriptBox["E", "S"], RowBox[{"(", SubscriptBox["\[Mu]", "S"], ")"}]}], "+", RowBox[{ SubscriptBox["E", "R"], RowBox[{"(", SubscriptBox["\[Mu]", "R"], ")"}]}]}], "=", "\[ScriptCapitalU]"}]}, {"0", "otherwise"} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]}]}]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7901048719516954`*^9, 3.7901049743291063`*^9}, {3.7901050923719387`*^9, 3.7901050932054095`*^9}},ExpressionUUID->"1f6a6f1a-9d02-4afc-b1e1-\ dadc7ce31683"], Cell["\<\ The probability of observing a particular microstate in the system can then \ be obtained by \[OpenCurlyQuote]summing over\[CloseCurlyQuote] all reservoir \ microstates.\ \>", "Item", CellChangeTimes->{{3.8586060596091537`*^9, 3.858606088496708*^9}},ExpressionUUID->"4fb45ffa-65ab-485c-ab19-\ 295d7287ad6f"], Cell[BoxData[ RowBox[{"\t", RowBox[{ RowBox[{"p", RowBox[{"(", SubscriptBox["\[Mu]", "S"], ")"}]}], "=", RowBox[{ UnderscriptBox["\[Sum]", RowBox[{"{", SubscriptBox["\[Mu]", "R"], "}"}]], RowBox[{ SubscriptBox["p", RowBox[{"(", RowBox[{"\[ScriptCapitalU]", StyleBox[",", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["V", FontSlant->"Italic"], StyleBox[",", FontSlant->"Italic"], StyleBox[" ", FontSlant->"Italic"], StyleBox["N", FontSlant->"Italic"]}], StyleBox[")", FontSlant->"Italic"]}]], RowBox[{"(", RowBox[{ SubscriptBox["\[Mu]", "S"], "\[CircleTimes]", SubscriptBox["\[Mu]", "R"]}], ")"}]}]}]}]}]], "DisplayFormulaNumbered",\ InitializationCell->True, CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7901048719516954`*^9, 3.7901049743291063`*^9}, {3.790105050493498*^9, 3.7901050990113935`*^9}},ExpressionUUID->"5c14902c-1533-49db-9782-\ 2f2f038028b3"], Cell["\<\ Once we pick a microstate of the system, then all available reservoir \ micro-states are given by the degeneracy of the reservoir with the remaining \ energy\ \>", "Item", CellChangeTimes->{{3.858606109025909*^9, 3.858606112264864*^9}},ExpressionUUID->"47817ee0-8f14-4714-8bb3-\ cd70b8e19e5b"], Cell[BoxData[ RowBox[{"\t", RowBox[{ RowBox[{"p", RowBox[{"(", SubscriptBox["\[Mu]", "S"], ")"}]}], "=", RowBox[{ FractionBox[ RowBox[{ SubscriptBox["\[CapitalOmega]", "R"], RowBox[{"(", RowBox[{"\[ScriptCapitalU]", "-", RowBox[{ SubscriptBox["E", "S"], RowBox[{"(", SubscriptBox["\[Mu]", "S"], ")"}]}]}], ")"}]}], RowBox[{ SubscriptBox["\[CapitalOmega]", RowBox[{"S", "\[CirclePlus]", "R"}]], RowBox[{"(", "\[ScriptCapitalU]", ")"}]}]], "\[Proportional]", " ", RowBox[{"Exp", "[", RowBox[{ FractionBox["1", SubscriptBox["k", "B"]], SubscriptBox["S", "R"], RowBox[{"(", RowBox[{"\[ScriptCapitalU]", "-", RowBox[{ SubscriptBox["E", "S"], RowBox[{"(", SubscriptBox["\[Mu]", "S"], ")"}]}]}], ")"}]}], "]"}]}]}]}]], "DisplayFormulaNumbered", InitializationCell->True, CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7901048719516954`*^9, 3.7901049743291063`*^9}, {3.790105050493498*^9, 3.7901050990113935`*^9}, {3.790105556398332*^9, 3.790105569081057*^9}, { 3.790105620903758*^9, 3.790105648559452*^9}},ExpressionUUID->"dadf1b27-3b08-46c0-8e95-\ 9e6f29ed1b58"], Cell[CellGroupData[{ Cell[TextData[{ "For the reservoir to be an ", StyleBox["effective ", FontSlant->"Italic"], " heat bath, the system energy must be small compared to that of the \ reservoir" }], "Item", CellChangeTimes->{{3.858606163627576*^9, 3.8586061694157867`*^9}},ExpressionUUID->"b8d5941a-2273-422d-aa8e-\ 3e6b5214160a"], Cell["As such we may approximate the entropy as", "Subitem", CellChangeTimes->{{3.858606163627576*^9, 3.8586061781780987`*^9}},ExpressionUUID->"c9df66d8-cfc8-4215-8abb-\ 65db96680974"] }, Open ]], Cell[BoxData[ RowBox[{"\t", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["S", "R"], RowBox[{"(", RowBox[{"\[ScriptCapitalU]", "-", RowBox[{ SubscriptBox["E", "S"], RowBox[{"(", SubscriptBox["\[Mu]", "S"], ")"}]}]}], ")"}]}], "\[TildeEqual]", " ", RowBox[{ RowBox[{ SubscriptBox["S", "R"], RowBox[{"(", "\[ScriptCapitalU]", ")"}]}], "-", RowBox[{ SubscriptBox["E", "S"], RowBox[{"(", SubscriptBox["\[Mu]", "S"], ")"}], FractionBox[ RowBox[{"\[PartialD]", " ", SubscriptBox["S", "R"]}], RowBox[{"\[PartialD]", SubscriptBox["E", "R"]}]]}]}]}], "=", RowBox[{ RowBox[{ SubscriptBox["S", "R"], RowBox[{"(", "\[ScriptCapitalU]", ")"}]}], "-", FractionBox[ RowBox[{ SubscriptBox["E", "S"], RowBox[{"(", SubscriptBox["\[Mu]", "S"], ")"}]}], "T"]}]}]}]], "DisplayFormulaNumbered", InitializationCell->True, CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7901048719516954`*^9, 3.7901049743291063`*^9}, {3.790105050493498*^9, 3.7901050990113935`*^9}, {3.790105556398332*^9, 3.790105569081057*^9}, { 3.790105620903758*^9, 3.790105648559452*^9}, {3.7901057336942654`*^9, 3.7901058079714975`*^9}},ExpressionUUID->"9b7efef9-5025-40ba-895f-\ fe5fcba45465"], Cell["Which gives the system\[CloseCurlyQuote]s microstate probability as:", \ "Item", CellChangeTimes->{{3.8586062028432903`*^9, 3.858606215097722*^9}},ExpressionUUID->"f620d89e-8293-4a6b-a93d-\ 4049e21c2938"], Cell[BoxData[ RowBox[{"\t", RowBox[{ RowBox[{"p", RowBox[{"(", "\[Mu]", ")"}]}], "=", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"E", RowBox[{"(", "\[Mu]", ")"}]}], "T"]}], "]"}], "/", " ", "Z"}], RowBox[{"(", RowBox[{"T", ",", "V", ",", RowBox[{"{", "N", "}"}]}], ")"}]}]}]}]], "DisplayFormulaNumbered", InitializationCell->True, CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7901048719516954`*^9, 3.7901049743291063`*^9}, {3.790105050493498*^9, 3.7901050990113935`*^9}, {3.790105896387576*^9, 3.7901059045241055`*^9}, { 3.790106121402999*^9, 3.7901061266400127`*^9}, {3.7901061609022217`*^9, 3.7901062208193965`*^9}, {3.790106270834817*^9, 3.7901062898375273`*^9}, { 3.790106350454117*^9, 3.79010635219496*^9}},ExpressionUUID->"6e2af4ff-2103-4d5f-9a71-\ 76c3c1c10882"], Cell[TextData[{ "where, Z is the ensemble\[CloseCurlyQuote]s \[OpenCurlyDoubleQuote]", StyleBox["partition function\[CloseCurlyDoubleQuote]", FontSlant->"Italic"] }], "Subitem", CellChangeTimes->{{3.858606251803194*^9, 3.858606268161179*^9}},ExpressionUUID->"e80deafc-ff3f-4915-a76c-\ 2c53b0bb0874"], Cell[BoxData[ RowBox[{"\t", RowBox[{ RowBox[{"Z", RowBox[{"(", RowBox[{"T", ",", "V", ",", RowBox[{"{", "N", "}"}]}], ")"}]}], " ", "=", " ", RowBox[{ UnderscriptBox["\[Sum]", RowBox[{"{", "\[Mu]", "}"}]], " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "E"}], RowBox[{ RowBox[{"(", "\[Mu]", ")"}], "/", "T"}]}], "]"}]}]}]}]], "DisplayFormulaNumbered", InitializationCell->True, CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7901048719516954`*^9, 3.7901049743291063`*^9}, {3.790105050493498*^9, 3.7901050990113935`*^9}, {3.790105896387576*^9, 3.7901059045241055`*^9}, { 3.790106121402999*^9, 3.7901061266400127`*^9}, {3.7901061609022217`*^9, 3.7901062208193965`*^9}, {3.790106270834817*^9, 3.79010634707555*^9}},ExpressionUUID->"708f8d1b-5b82-4b05-bba7-\ b9af5513002f"], Cell[TextData[{ StyleBox["Note: ", FontWeight->"Bold"], "Z is often referred to as simply ", StyleBox["the ", FontSlant->"Italic"], "partition function, but as we\[CloseCurlyQuote]ve seen there is in-fact a \ \[OpenCurlyDoubleQuote]partition function\[CloseCurlyDoubleQuote] for each \ ensemble, so Z is better called the \[OpenCurlyDoubleQuote]canonical \ partition function\[CloseCurlyDoubleQuote]" }], "Subsubitem", CellChangeTimes->{{3.8586062739307003`*^9, 3.8586063471147738`*^9}},ExpressionUUID->"82217ce1-5b46-4071-88c5-\ eea3a9f5146e"], Cell[CellGroupData[{ Cell["(Finite) Stair-Case Revisited", "Subsection", CellChangeTimes->{{3.858595793894751*^9, 3.858595823622761*^9}, { 3.858606430924286*^9, 3.858606431452416*^9}, {3.8586069940345*^9, 3.858606999050808*^9}},ExpressionUUID->"9007ac8a-9b84-4f8b-b7e2-\ 341a3debdfa9"], Cell[BoxData[ GraphicsBox[ {Thickness[0.001955579905915056], {FaceForm[{RGBColor[0.901961, 0.901961, 0.901961], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIJIGYC4gJbruuLXdIcQFRBZ5LDvvlS+ncj0hxe/F75 8ZJtosPbGnvTOLkMDH4hSMOHOAcGEHiSicH3Me90TEiNdtC/q8LWuDIbg/8O ZM6tcIe4XZ48TPm5GPwJh75qxPiHOIDdZ5KPwc/eUzJZ4kiAw2QJljC+2gIM Pky9VrvYzXPxhRh8mH1bT5Ttm+9UhMGHudcbRKsWY/Bh/r1a8VLNkKMEgw8L r9znQMYrTP6898uPedcnOQAABTSoSg== "]]}, {FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{277.387, 89.349}, {277.387, 85.66999999999999}, {274.402, 82.68499999999999}, { 270.719, 82.68499999999999}, {267.039, 82.68499999999999}, {264.055, 85.66999999999999}, {264.055, 89.349}, {264.055, 93.033}, {267.039, 96.01700000000001}, {270.719, 96.01700000000001}, {274.402, 96.01700000000001}, {277.387, 93.033}, {277.387, 89.349}}}]}, {FaceForm[{RGBColor[0.901961, 0.901961, 0.901961], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIJIGYC4p1yra8DvUodyvfNl9IvTXK47987PS+k1EFh Q1HGRM1Eh4yJb2vszcsw+DJRKdb3j8c5MICAVDkGfz/QuLs20Q7T84SaD/zB 5M8EgY3hEHPvV2DwrUEOUQtxALvvUCUG//z34MdLZwc4TJZgCeNbWoXBh6kH u6u9GoMPs2/ribJ987NqMPgw93qbdzom+NZi8GH+vVrxUs3QoA6DDwuv3Oe/ V34UqsfgBwCDWSg7yQEAzMOovQ== "]]}, {FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{466.867, 116.42}, {466.867, 112.74000000000001`}, {463.883, 109.756}, {460.203, 109.756}, {456.52, 109.756}, {453.539, 112.74000000000001`}, {453.539, 116.42}, {453.539, 120.103}, {456.52, 123.088}, {460.203, 123.088}, { 463.883, 123.088}, {466.867, 120.103}, {466.867, 116.42}}}]}, {FaceForm[{RGBColor[0.901961, 0.901961, 0.901961], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIJIGYC4qw9JZMlWPQcyvfNl9IvTXK4UvFSzdBD30Fh Q1HGRM1EB4tOx4SnF2wx+DJRKdb3j8c5RFhuOVH2zxWDvx9o3F2baAfRde4P q0R8MfgzQWBjuIP+XRW2RtEgDL71ff/e6WohDr3T84SaF4Ri8M9/D368dHaA w+vAHXKt2pEYfJh6uVagyLYYDD7MPrC7FBIw+DD3vq2xN417lojBh/mXAQTW JGPwYeEF9k9hKgY/AOSR7CQHAOEVoiM= "]]}, {EdgeForm[{Thickness[0.0007822319623660224], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0., 0.501961], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJhIGYC4k+XfJMEInQcLOemrPaemOQQ8njp7CMBoQ7e Cqplbydh8rd9/nulojPU4ahs/qfo4ggHP6Buy55Qh7wnuzSfvglwWCMTlWIt HonBv3V62+Vr5SEOXNcXF9guisHgW7YxPLjBFOEwPU+o+YBYAgY/tqexVKYv 2uG4t3mn451EDP4et9ONcpLxDjfPfQ9+vDAZg1+gtozbMCjRof/QV42Y9FQ4 X/+uCltjYarDv8X5l0zSnB1mgOyLineo4dNxP9Hn7LBx7vvlx7x14fIA64qJ VQ== "]]}, {FaceForm[{RGBColor[1., 0., 0.], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{100.004, 74.08}, {100.004, 70.4}, {97.02, 67.41600000000001}, {93.336, 67.41600000000001}, {89.65599999999999, 67.41600000000001}, { 86.67199999999998, 70.4}, {86.67199999999998, 74.08}, {86.67199999999998, 77.76400000000001}, {89.65599999999999, 80.748}, {93.336, 80.748}, { 97.02, 80.748}, {100.004, 77.76400000000001}, {100.004, 74.08}}}]}, {Thickness[0.0007822319623660224], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lG1IFFEUhlcri7C0sA9JimyNoA+L3cVZrdmzppCluzMjhYakbQYhoaAV FqaYmISUhIQIhuifCEQkKiJXkRUyzQS1orISf4RsWKZlYtLHzLkz97AtDQzD w7n3nvO+58zd6ilSTi8xmUwh6ntKfUPV96J/+74VXgWWV946WNsmwOHw0J01 3Qo8/PbrRWm/AHFhaqBXgTrf3I6caeJeFetC7f/l9IRrzrxUO5i0p4P4ssN2 4nELcVvM8fykZgVKztz8XLbFDq2pauYmBUYzPJFZCwL80Z4EBcbd1xsKi22w Kf69OSxEgb3qp/KlheVblDi3aPu/uzn/LC/wnht1s/PHLZBSe3Zysd/N9PmJ MV+0lTP6sYtYS1tps8LsiLrwtX5esxV+qLJ9RyXmT3wSq3+KGP0slIMY899N DIxHJAbG/XbO5rGF8oImO9OXLzP/PgowHKsGPDLvF/qdJ7N6HxBjf1qJcX+1 wM9DPbl6f0uIsT8VxDXr3wzNV8mgpS0oE8Csra+VYZvG7wTW3wlZ75fIGf1t FGFE2/jWqE9k+oaIUY+PGP3t0v2pE1l9nTJg2nT9/EZ9/fn9vF7mTxKLz0iB fJIY++WVoKpnoCX1FTA9zyTQ5HhTnCz/cwlU9Q6by8nmb40cyH5iY74DeFiB QxOXotrngTP6M+vgjPI8xOhXtoP5MWD8nyJnww/8P/r0/yeXGMPJxKg3TmR6 BxXm19wB5ucYcal2H0wRY3++KGz+YkSmd4by4zxFZsIndVtbjpPNU1Qm09+u +7eKGPszqXDG/T1uzmlavqvEWG9+MNvvP73QXfRPXPVbdS8t/ArxlPxoc3Un MebfQP1EP5OD+eudJ0cSookbCtdW9awkxnkJ0/tvl5j+QYBsrbAPLt0/K6vH 52L+L7NC/calx1Z3ufj9FLH73u3pvozA+6qeGPcXBzObF2LMt84CWVr+G8TG +QZjP3/LnFFPrMIZ+2c27mN9/R4FijWusMBfQNSc4A== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmI+KK1/V4WtkTXSga1xqnP3GysHAxBfFsHnvr64wNYK k1+cMfFtTbw1nK98+2dd1h1ruH4Y33LLibJ97Ah+/C5PHqbiUFT1sQh+7/Q8 oWYHTD7MPhgfxb2xCD7MfBgfZr+PeadjgqsZ3H0wPsz96PxDXzVi+g8h+OBw MjWH64fxYeEH48PsR1Efi+DD3I/Oh9kH46O4NxbBh5kP4wMAF8OpCQ== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmJJKC2tf1eF7Wesg/Ltn3VZe6wcYHwf807HhKU2DrX2 pnG7PsY69B/6qhHTb+ewyHXb5797Yh0+LD/mba7p4FCcMfFtTXmsw7LZRxQ2 BDk6AEU7HX/EQPhNjhD9OxF8/ySBCMsYBP8b0NRDb6MdHlaJrHM3dISYvyba ofnAqYWuYg4Qfk00xD2tdhD1pdFw98H4MPfD+GD3vrdwmJEn1HygKtqBrXGq c/cZM4c3gTvkWndHO4C82fjVBOKeP1B5HmOIfTkxUP8aQfy3HcEHhw9nLJwv 3/o6cEddLFw/2L8HYx0MQOaHmsLDTwnkvj9mDijhfcfCAT38YfaB3SdqDHFv NYJ/HBS+ClD3rDeG+Jc1xuGyL9AjP00dFoLc/wUaPqnmcL4KyPw5lnD+9s9/ r1RwWsP59/17p+dNskHVr2oHcR9jDMR/OfYQ+2Sh8afkCJGfGONgteVE2T57 R7j7YfwakP9fIvjg8PKLhcQvm6PDa5D/sqHhud4eEh81sPCzg/PB7u20QeUD 3Q/jg8PPxhLOB7tjvjncfEj4mUH4wdD4OgON7z+I8EUPfwAh2mF9 "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lF1IFFEUxzfDrbRyiXwQIsssfAgsdhdnNWfPVouWltRLCWvFVlBzF90M xUISse8UC4otCJb0oQ/EHtKIiBADs+itr4cK6aEPgzAqlcUPmnvOzD2sSw+X 4Td37jnn/z9n7upw3e7D8x0OxzxzHTRXmrkmCkKdg+MCFrRe23KpR4Oax9sW p00KePhn5k3TCw0qii4EDiQEmB8VhMaYn5nYmeb7L1fKZ9AHxX3DjU/HmKOl Ge+7vzNj3G8Cjh+58rM51wfmbrT0q4DXO8KuvQkNfPL8AwEjVR2x2novPJcJ rgvY8Cnf2frWTXGymbuCZuVXDcXHZL52g+KPuCFTxr9okL5RZsyX41GMfqxn LpTxvB5AvzqseHEP9JvlxQcN0lFYQvUvFYr3ST+rUhnz3y1O3s8qTt4f9SnO /5A4Zdz0UT3bLf++aKS3nPuFfpUJqrefGfvTxYznz2gqHurZb/V3FzPWtYcZ 9VcLyJP1NGsUp0bAGskfNervebtfumL094ZO9Z6269NJXwsz7jcxy3LjjZY/ nTrlaxDglP2ptOIfsr5v2KTqJX9KqP8uZvx+2FCM/ZowoG3g5a3gO6D3MwZI OU+2Bqi/swaY6v3enQGav1UimduZ7fm2GfM7IlD++eTy3klQjP789itGeWFm 9KvaT35M2/+nrtj2A/+vKbs/zLi9mRl1rdVJ76zl13gpvU+PKMb+LmHG/mRF aP5W6KTXFUnOnxuBH+s2LuwJBSh+XoT091r+rWS+LM9lMuM8njMU4/ydYEa9 0VTGc3Vz9u1+NDHj/Jxlxrq7mfH8o1T+dXuooiiHOVa7rG0ggxnnxRmAIZmv zyD9r4D0VVn3xbiH6im35i3dQ/drGd9P6PeiOffV9FHFGP9vKtO8MGO+bDfl n2K249uM+WNCMeq5w4z3wT37PnZT/+8LqJfc4oZ/ESi0yA== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmI+KH1J6fbPOql8B7bGqc7db6wcLoD4agj+/vlS+ndN MPnFGRPf1sRbw/nKQG1Zd6zh+mH8MD7dTXOlEXyQNvvAXFT1bgg+AwhYYPJh 9sH4KO51Q/Bh5sP4MPt9zDsdE1zN4O6D8WHuR+cf+qoR038Iwde/q8LWaGoO 1w/jw8IPxofZj6LeDcGHuR+dD7MPxkdxrxuCDzMfxgcAx0Ox/Q== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxllVtIVFEUhs3KKCrDUDKCyJRKrcxzZsY5Z0a3+lKkGVKiJWKGYGG2j5H1 IIVFl6HCLkQvQZR0o8KXMgzLsCsFERqKRBRBvUQvhg9GQWevtfZejT4M+rEv 69//upxlDXsrG6cnJCRM839t/i/R/2WfSBt950rxbHxlbecRWzx43fbkikOc YYuXG0Ox4gIpPlecudRy3jK89lNmUsd+5qSOi6Wn5lpi4dGnb65Gaf9gvkhR XMoMf9czX1g0o2p+BcVLtMTYYHnDgkopWpvO/Ww/zPzw198PB2OWOFlc/+19 lRQ9im/bQm0rqpFiQJ0vCWD8HVKU+bLqG0MiOmekS+4kveMhkaPe2yhFxseJ Q7vbC1B/k44fxv276D3NYdTZrP1wUO8eui/giC9qvVXf76C+43p/FO+7wxxT 633M4H+/FMuVnkjEMMRtdQ0P+TZUjzqiUN33WIpZSl8uxX+k8xFGv7ul6FSG dAfx/E3y56st7qv83tD+2PieLs6vZp1fzTq/sO8W5w/8vDeJe5nB3z7tp4X5 6tf6Sc9z0nMsgPGGOB+Q/2G6byyM50eoPoocfO8P9hPyn+oZBj1ZzHBftifO KkMqIoa135rB73QHz6d7mJ/aEK6neOhPahD1JntGP8ia55l61AzrL+x4vm5h /hZ78f2RO4k3M0N91Wn9QcPYL8wQfyCI8bYzg/5tzHBv1VTW9QP52cLxgDd5 2I+zAzgvSsivGur/1czgzwpmiJ/pmXrTrOeNZvC7z8b8+uehfsrIzxztRwD9 y9f5CsXr6Q0bzlT3LXENo/8R1Gd5NE+iWK9pzKDnt4xf/y7xvsvUr3495ql6 2Ooahvdcc9GvYd1PtP8t1fvMqHil7hug/jhN9/dwPDh/lxnqMcYMfhyQYp/6 Z2kE90vq/04X66FF9w+t1006X86svwdx8W2aP73k1zpp+gf8z+Z5BfnPovjJ jmGYt3/ChnV+IP4qZnjffwz+r5nKWK80n/NI7waazyHaP0HvL+T5AO8pY4Z6 qJTx86Ga/dKM848Z+9013yPsd9d8rzC/jvgHKgpKfQ== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmViYGDQB2IQ/Xjp7CMKckUOxRkT39bI2zhMzxNqPgDkK9/+WZdl Y+MQlWJ931++yOHQV42Y/iQEf/vnv1cqOhH8+/690/M+2Ti0vg7cISdd5MDe ONW5W8fW4YIS0CARBD/3+e+VHwUQfLD9bEUOPuadjgmsUHmWIodtIPM1bRys tpwo2/e3EC4PNu9DIUR+JVT9AwQfrH4rgr9DDuiitkKI+4Ks4Hywf++bwfmH Qf5rMoG4f26hg/5dFbZGUWOHGaDw2IHgg+nzaPyHUL4pVP/TQofLvkkCEZUm EPcA+f2gAMw3ceDT3TT3/d1CBwOQ+lAjiPqbMPcZwvlg93saQsL3OlQ/vyHE PacKHfbNl9K/m6ILMW8hgg+Wn4Xgg8O3r9DBFWygLsS85kKH+F2ePEyvdSHx DZQH0156kPCcVOiQA6b14fwHIPcZGcD5YPdOMoDrh8SPISR+WhB8sP01aPyC QgcVUPqaYwDng/3tqg/ng+0JgvqvttCBh0m7XSxSx+EiyPxFaPxLCD5Y/7tC BzZQ+uKBmv8FFh+GDgCdx1qg "], CompressedData[" 1:eJxTTMoPSmViYGAQA2IQnfv898qPbwodtn3+e6VC08zhotLtn3WvCh18zDsd E1pNHfTvqrA1Pix0YGuc6tz9xsSh9XXgDrmbhQ6XfZMEIipNHKJSrO/7Xyx0 6D/0VSOGH8o/WuigAjQma46xA5/uprnvdyL40/OEmg8sQ/DB6hdCzbtpAuff 9++dnnfJFJX/yczh8dLZRxTWQN1zxtIhB+T+bYUORRkT39b8t4K47yDMPzZw 9x0GOq9fyRbuHxh/Bsg9vxB8sPkMRRD/6FvD+WD7hRB8sDlfrSD0/0KHCSD1 560g7vlX6KAM8t8eKwcA492p8A== "]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJx1k11IFFEUx7eVjKAHHyoognSV6AskZ2emdVc6k0nFWooEfWBS1oJIWFwJ l5g2hKAia9sgJAoEwaKHajFwqSTIzKJI+rAHiZAoH3ww+9AgKmruOXfmsBsu zMNvztn/+d//uVPUeLgulufz+eY4T63z+J3nbXxixbqrArZ8OLbwVsaC2fjL 9aGoOWpB1Dxj7etknrQ36A3nmZ3q+EshQP5980MLBmZW1iebWK8oLZpSMWbU 2y/g2pXBwnQvc0oKJ5ixf6cF3VV93/8cZP4s5zfn1G1mnHdcwLufieb+Tcw4 L6D826r+CaDtQdfS0ioB1XLu3CDNrxSQlAe5rXmM9R5mR3XSPqFl90+VkV5U wFjNuc6W12VwWuaznRnz2pHDewS0Sr3lGuVXL6D0fUl++1ENVp9aPDp8QND7 jTrt55DyEzPpfYvqnzEpjyMCAvKA9npvP49knz9EflsFOF0j8VUh2Htv6wJ/ m/LzjfnNtsaCXUvKaV5c1esUn1R63WHSSwm4II3URGCN9HvZzS9CefSo/kAF +OSvjxn1hphxv89Yz2WcL8Iez2u/VHl2bTnp9QvIl9xhQoP0f0flscigelr5 Sep0H25yni5jno+D2ezu+z7vC/lFDn9lxvP+df0bHtN9Ycb5Awad/zcz+v/F jPfnx/9M+Rq072meVyj9TwnIyP3O10nvo9rnbo3yGGZG/0+YUW9QneciM+0n 6HExfkBB0nuq8q/Waf5zNw/Fr9T9HjOy/dwNeVwi9ZaFPab8I6Q/ou7rjQrK L5PDXcyYU4fiiQjlm3D9hOEfvBg3eg== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}}, CompressedData[" 1:eJx1lF1IFFEUx81qNaEPwiBBsw/7eAgsdhdn3Zo9a4mRmlQQFUKxFYrBWoZz o0wxWUKiloiwT6KgIhDpoayobNWKbeuh1HqpWHyo0IjCkJAIm3vOnTnsLj3M w2/u3HPu//8/cxcF6rfsm5qWljbFfPaYT7r5jA1UBub0CMhoPbfuZKcGNy49 W3jH5O5ff4cOv9Qgd+deb/ypgHDf+IrqH8z9JobTPf/liqJ2/+5SD5ydP23b rEfMhZ8KHK33mY9kd5UNdws4VHvme1O+Bx4sCH3bbPKgeaztExrtvyIgXnWq I9jgBlm+Kixglazzzgl58kUl84Zhs+JMZuw3Q9WPO6l+ptI3woz9clw2ox8r mbGO2wXoV5aqd9UFbxZ/mGguUP4UeuGh/H4j803pZ10qY//bxYnrs4sT10c8 NheYbeouK39qlX+fNSiTems4L/SrRp33HjPmc50Z94c0ux7q2aWRn/uZMZ8g M+o/IEDKrmtS3x8UsETyR436nrDy0m1Gfy/olE/IOp9O+o4zo54WZvS3WfkT 1qnfMQEOmU+FTjk3qu8b19jnJX+89L48iZczo35dQFskdq30PVB9vwAp5/F6 P7yV/UsEmOp97k1+mr+tSdzObM13AvcL0v0bbEZ/xnw2o7wAM/q1w0f7eq3/ U7fZ8gPz7LXyYcblEmbUu1Sn+exTfo2vJb3PmTHfGDPmE1Pzl6uT3ldJ/QcF jC5bndlZ7Sc/h5T+LuXfAPNRmU+UGfdnMOP9MWnYjPPwJ5U9d6NGT33SupXH JDPOj4PzwP7ZzLg/P5V/3npRXpTD3BGc2xbJYsZ5cah+eUr/a6D6o4byz0Xr Xw3yf7qL7tcvhn0/od9RI/G+6mXG/U9SmeaFGffNc1L/CLNV32Lsf1rYjHo6 mDG/89Z97KT8LwpokNzihH9SC6Tg "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgAmI+KH3fv3d6XkClA1vjVOfuN1YOYH4Ygi/cfODUwlhM fnHGxLc18dZwvvLtn3VZd6zh+mH8Ra7bPv8NQPC12sVunsuuQFWfhuCX75sv pR+PyYfZB+OjuDcNwYeZD+PD7Pcx73RMcDWDuw/Gh7kfnX/oq0ZM/yEEX/+u ClujqTlcPwo/AMGH2Y8in4bgw9yPzofZB+OjuDcNwYeZD+MDAFi/wv8= "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGIXIGYC4gtKt3/W+VQ5+Jh3Oia0WjtYbjlRti+7ymHb 579XKjRtHPh0N81931jlMOHQV42Y87Zw/mXfJIGInfZwfvOBUwtdrzk47JBr fR2YUOWwbPYRhQ1NjhDzrBH8qBTr+/6iCD4vSP/3SodXaoYca844wPkg6/oP 2cP5YPt+2kHMZ4C51w5iPjeCD5TdISeO4Oc8/73yo1yVA1vjVOduHns4H2Y+ jA92f5mDQy6Iz4Pg699VYWtkR5MXqnKwAtnL7+jweCnQIzpQeTNHSHhYIvhg eS8EH+y+eKj/PznA+TD3wPhge0uh4Rtb5XDfv3d6nhDU/yFQ/7HaQtzjUeWg DIzGrDvW8PAGx99Ja4j9Rgg+2Hz9KoeijIlva/ZD5dWg9m2Fyisj+GB5hSoH dlD4rbGG+Fu2yuEwyL2LEHyw+ZkIPth9qgj9MD7QE80H1BB8sD3maPJhCD7Y PalVDttB5ndawvlg9+iYw/lg+18aO8wA6feChoeNMTw+YHywek0EHxyePFD7 lkLl/1dC7OM0hcuD088bEwhfAhofRaZwPjh9RprB+WB/mZpD/M9X5fAApH6T OST9MyP44PD6WYnKf1sJcV8Mgg/Of/5mcD44/JVMIO4VrHLoBycgIwjfGsEH +z8TwQeHbw/U/3tM4HxYeML4xaD0IW8JcX8JNL38t3JALy8AqJzzqA== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxllVtIlUEQx83KEKR6MCiwmxmUFIrn5vm+z1wtsMCSgkLFh5AECTEwitiV wsAHqTjZhYR8ChQtM+lmRklZ9tCLaUaZiZwoiKQizQehoLMzszscffg4/Nid 239m9mysPHaganFCQsKi2Hcy9iXGvkfrGqf290vxYnZLReSsX1xeveTQ8qfE 6X7Rfv3lhp7HUkyWXLhWe8lnOWsiI6nhBHNSw9Wd51J8Ynpkb+XKZ3R/JAf5 FbNK7S6KvmYGP8MUL9En3qSPz50elaKuuvlH/Rnm3pl/o6eafKL8iDtZMibF Q82dflEUland41IMaPvCAMb7IkVxqKngcFVIrNUGXynf2ZCAer9Jod0erc/F /L+b+GG8P0X11ISF1Pn+NHo46OcX+Qs4WM8f49/B/JIV3c9Df9uZ4TyfuU/n U6jEJp2P51kGfepcy29jZZWOOSJNO4jZL9P5baP4nqJ+hLH+HCUiWpA7QbTP VKjPZ+rvVkX6+EW2ttusbH8Nm/4aNv2FeJnK9g/0zJ7HHnOb1ncH2df4xG7d rwKTP+VTRPk0BjDeQWX7Af0vJX/TYbQvUzgf+Q7WW8t6ArcwQz4dzOCvS4mL WpASz7LR2zDovcZB+1bqT0UIz6+QPquC+NvM+cM8RpSdR8NwPuiP5zbSs5X1 gnnrVvH7MsIM8xM1+Qct474wQ/yBIOo1wQz5f2IG/x8Wspkf6M97jgc8rHAf kwPIg6RXGe1/DzPo08kM8dt53gyb98Yw6P3Ej/5u0vwUB7Ce20aPAOZ73/Qr FJ9PX9hyhvaX5lpG/T2ctweK3pM8fA9amCGf+nnn1eSvlfa1XNHcupahnhsU r8zsk4fztI/iL83D/dhF9Z0n/7kcD+yzmME+hRn0mJPiuO7/eg/vz0jsX8TF efhN7+00nUeltYd5HJLx/vtlfPxeSXp6WMc9afcH9O+Sdn+gXx0Uf4VjGd7b v2HLpj8Q/xYzxO9iBv17FjLOaxjj36V899D73Ef356j+59LuP9QzNI/fMQ9r /x9ZL8P4/jHjvrv2/wj33bX/V9hfR/wH8l1SWg== "]], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {CompressedData[" 1:eJxTTMoPSmViYGDQB2IQfeirRkz/ghqH4oyJb2vkbRzK982X0l9Y46B8+2dd lo2Ng3a72M1zQD5YXRKCv/3z3ysVnQj+ff/e6XmfbBwUNxRlTJxb48DeONW5 W8fWIXaXJw/TdATf27zTMWEygg82t6PGwQckzgqVb69x2AYyX9PG4WrFSzXD BoR8HMi8Yqj8Sqj6ZAQfrN4CwQfKPr3AAXVfkBWcD/bvfTM4/zDIHU0mDgog 98vXOOjfVWFrFDWGhIc1gs8AAkFo/BQo3xSqP73G4bJvkkBEpQnEPRk1Dv0g j+abOLytsTeNS6hxMACpDzWCqI+Guc8Qzge739MQEr6RUP38hhD3+NY4gKi7 KboQ81QQfLC8LIIPDl+BGgdXsIG6EPNYaxziQeH4GqpesMZhep5Q8wEvPUh4 itY45Dz/vfLjJH04/wHIfUYGcD7YvZMM4Poh8WMIiW92BB9s/79qOB8czp+q HVRA6WuOAZzf+jpwh5yrPpyfC7I/COo/hhoHHiagyyN1HBaBPKKCxg9B8MH2 FdQ4sIHSF48BhF8Giw9DBwA5FjjQ "], CompressedData[" 1:eJxTTMoPSmViYGAQA2IQ7W3e6ZiQX+Ow7fPfKxWaZg6LXIGsnBoHH5B4q6kD Awik1DiwNU517n5j4qCwoShjYnSNw2XfJIGIShMHrXaxm+eCaxz6D33ViOGH 8t1rHFRu/6zLmmPs8LbG3jTOBsEv3zdfSl8TwQerV4aad9MEzr/v3zs975Ip Kv+TmQPImn49qHvOWDqA3W9Z4wB01dua/1YQ9znD/GMDd99hkD4lW7h/YHyw e2oRfDDdBPWPvjWcD7ZfCMHXv6vC1vjVCmIekD8BpP68FcQ9jTUOyiD/7bFy AABN8pbK "]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJx1k22ITFEYx6/FiA9sFtnasGPLa9HcuXd23tZzUbsYZtu0KB+0NSUf0Gxe O2c0+cCGxkvywQch5AsSNiWxLFLEUtumbch73nebD6u83HOec8/TXPlwan5z zvk//+f/nFvbtqklM9wwjGHuanZXhbuuPNh688QUDk2vdk640OnA//j7uXvL In0OzNkzqe9xNXGHs+7tk0ri9Ye+sAUlBuJ6420Hjkwe0Tr2E9N6Az3L2yo/ EM8Weq8ZnD1+d9qly8RCxsoRy/OrHEiO6T29+T2xrP/Zt/+HWNYzOLwYym24 sZhY1gs6sFfc/81w/w3A+N23Hp68zyAVcZVHhrHfbgaFrtLMtRdNzXL/DHFW NL7LLD//LQRVQu8Rg2L6wLGNPSHM56mPe33cz6Bd/JhqYn5FBvP66wL5LSa4 KXc47xgI+cJCC+fzVfnJRPD8D3W+FME8BhkERYOsXs/njrhfEUW/Ll8b/PV8 +6wonh9SfgaIn7mxra6OwVVR76fab4lh/QBHvVNxnFcVh4PCYDqBfmu4yi+B +c5Q54NJ1KknlnpNxHK+KdLzWN7LxjWPyh9dtG9uDP9v4BAQvD8CDcK/xTGP iTa8FPsh5adg4XuYz3WeHss8u8Pl7M07yfW8ZL9pH7cTy/nnPf+2ZnwvxLJ+ l43954ilf04s57fjX8Z8bZzXNqon/Wc5dIr5jrZQL8NxnmtM9NlMLPtbQiz1 GlU/h4lxPmHN0+UHFMZ8l6r8UyrPFV4eildyfN9Fu9zP9ajmOqFXE9eM+SdQ p5Xjez2fxPyiPq4llt/DOMUfE5iv4fmJw1+Pz1FG "]]}, {EdgeForm[{Thickness[0.0007822319623660224], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0., 0.501961], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJhIGZigAKNNIfHfeY/185NcqgWWef+kCvfQSgn5r/e fEy+Y8LTC0rq+Q5SjKJ9Cj0RDgW2XNcXa+Q7cK68fTOcNdBhsgRLGF95AQY/ PVn1WeSEEAftdrGb5yILMfg9mcuq50pHOGw5UbZvvk0RBv+V8of2+cuiHbzN Ox0T5Isx+J73LKcsNIx3eLx09hEFphIMvnnR3SlFcYkOuc9/r/z4BMEH+/9V iYPUZZ/vVtOdHXh1N819z17ksG167vK1+50dVNkapzqbp8HlAXcMf18= "]]}, {EdgeForm[{Thickness[0.0007822319623660224], CapForm["Butt"], JoinForm[{"Miter", 4.}]}], FaceForm[{RGBColor[0., 0., 0.501961], Opacity[ 1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJhIGYC4rc19qZxCqUOKu9lTl2oSHLQbhe7eW5ipYN5 0d0pRVWYfAYQWFDpMPfgff00pwiHZbOPKGwA8nsyl1XP3R3gYMt1fXFBcxUG f2O+uuBDtxCHY97mnY5p1Rh8Aa1C2ccXwx0WuW77/NejBoOf92SX5tOYaAfL LSfK9mnXYvAXiL+LkXgR53Doq0ZMP18dBp/h5WyTXstEh6gU6/v+HxF8sP+/ 1TkohDyyOsbs7LBDrvV1oEiNg8eGwr+7dZwdPl3yTRLQKIXLAwBD+IfX "]]}}, AspectRatio->Automatic, ImageSize->{654.125, 210.}, PlotRange->{{0., 511.35726900000003`}, {0., 163.349487}}]], "Input",Expressi\ onUUID->"41d5eddc-f7b8-4dd0-8e7a-760cc438f854"], Cell["We\[CloseCurlyQuote]ll revisit the same problem using the canonical \ ensemble", "Item", CellChangeTimes->{{3.858607000927803*^9, 3.858607002243314*^9}, { 3.858607036858674*^9, 3.8586070653321342`*^9}},ExpressionUUID->"d81341e1-a280-4af3-8e2d-\ 0d4385ef87b2"], Cell[CellGroupData[{ Cell["\<\ We imagine having N particles in contact with a thermal reservoir at some \ temperature\ \>", "Item", CellChangeTimes->{{3.858607000927803*^9, 3.858607002243314*^9}, { 3.858607036858674*^9, 3.8586070844732237`*^9}},ExpressionUUID->"fb2de195-48e9-4e9b-b9c8-\ f57231afbe8c"], Cell["\<\ Occasionally, the particles interact with the bath, decreasing or increasing \ their energy state\ \>", "Subitem", CellChangeTimes->{{3.858607000927803*^9, 3.858607002243314*^9}, { 3.858607036858674*^9, 3.858607102972364*^9}},ExpressionUUID->"edae4e74-3510-4fac-a8f6-\ 3fbeccdb1b1e"] }, Open ]], Cell[CellGroupData[{ Cell["The partition function is given by", "Item", CellChangeTimes->{{3.858607112251816*^9, 3.8586071295816298`*^9}},ExpressionUUID->"678e137a-744b-426a-b600-\ ec64ae470878"], Cell[TextData[{ "We\[CloseCurlyQuote]ll again use normalized units and define a temperature ", Cell[BoxData[ FormBox[ RowBox[{"\[Tau]", "=", FractionBox[ RowBox[{ SubscriptBox["K", "B"], "T"}], "mgh"]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "b885b8e5-4b98-4d01-8e9a-334587468564"] }], "Subitem", CellChangeTimes->{{3.858607112251816*^9, 3.858607173117096*^9}},ExpressionUUID->"fa6bbad8-d877-493f-8195-\ 0f3eebe88e35"] }, Open ]], Cell[BoxData[ FormBox[ RowBox[{"\t", RowBox[{"Z", "=", RowBox[{ FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "0"}], "nMax"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", SubscriptBox["E", "i"]}], "/", SubscriptBox["k", "B"]}], "T"}], "]"}]}], TraditionalForm], " ", "=", FormBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "nMax"], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "n"}], "/", "\[Tau]"}], "]"}]}], TraditionalForm], " "}]}]}], TraditionalForm]], "DisplayFormulaNumbered",\ CellChangeTimes->{{3.668693272892076*^9, 3.668693314440349*^9}, { 3.671535052108349*^9, 3.6715350547155027`*^9}, {3.790169612913702*^9, 3.7901696252040358`*^9}, 3.858607193163331*^9},ExpressionUUID->"334224e2-fef6-4924-a596-\ 03ec62a27314"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ "staircaseCanonicalPartitionFunctionSingle", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]_", ",", "nMax_"}], "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "i"}], "/", "\[Tau]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "nMax"}], "}"}]}], "]"}], " ", ",", RowBox[{ RowBox[{"{", RowBox[{"\[Tau]", ",", "nMax"}], "}"}], ">", "0"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.858607220405465*^9, 3.858607241308436*^9}, { 3.85860730495238*^9, 3.858607305222938*^9}, {3.858607421769034*^9, 3.858607434301705*^9}, {3.858607522889015*^9, 3.858607540889864*^9}}, CellLabel-> "In[128]:=",ExpressionUUID->"c5cfa516-5004-4975-9491-a6cb96689780"], Cell[BoxData[ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox["nMax", "\[Tau]"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"1", "+", "nMax"}], "\[Tau]"]]}], ")"}]}], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", FractionBox["1", "\[Tau]"]]}]]], "Output", CellChangeTimes->{ 3.8586072504675283`*^9, 3.858607305974081*^9, {3.858607447114863*^9, 3.858607457717162*^9}, 3.8586075419476833`*^9, 3.858607810295713*^9}, CellLabel-> "Out[128]=",ExpressionUUID->"0c3f4c59-2b2e-4b87-9897-f839625bada0"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ We\[CloseCurlyQuote]ve kept the staircase finite to investigate a curious \ phenomenon later on\ \>", "Item", CellChangeTimes->{{3.858607262974112*^9, 3.858607290813019*^9}},ExpressionUUID->"0e7126f5-d39f-41e9-804f-\ 1de984f7047b"], Cell[CellGroupData[{ Cell[TextData[{ "To compare with our results from the microcanonical ensemble, let\ \[CloseCurlyQuote]s also take the limit of ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["n", "max"], "\[Rule]", " ", "\[Infinity]"}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "c83641db-3517-4c20-96bf-19be893f5d28"] }], "Subitem", CellChangeTimes->{{3.858607262974112*^9, 3.85860729329335*^9}, { 3.8586075507201843`*^9, 3.8586075947072983`*^9}},ExpressionUUID->"273d4fed-6973-4606-bece-\ e27c0baf92df"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ "staircaseCanonicalPartitionFunctionSingle", "[", "\"\\"", "]"}], "[", "\[Tau]_", "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ "staircaseCanonicalPartitionFunctionSingle", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]", ",", "nMax"}], "]"}], " ", ",", RowBox[{"nMax", "->", "\[Infinity]"}]}], "]"}], ",", RowBox[{"\[Tau]", ">", "0"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.858607601329726*^9, 3.85860765736346*^9}, { 3.858607812629683*^9, 3.858607812845068*^9}}, CellLabel-> "In[129]:=",ExpressionUUID->"b8a1a19c-6927-446f-94bc-21969fc9d70e"], Cell[BoxData[ RowBox[{"1", "+", FractionBox["1", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", FractionBox["1", "\[Tau]"]]}]]}]], "Output", CellChangeTimes->{{3.858607634289508*^9, 3.858607657979333*^9}, 3.8586078141972933`*^9}, CellLabel-> "Out[129]=",ExpressionUUID->"aa63ab6b-17a1-4436-b176-0baa3edb31b9"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["This is the partition function for a single particle", "Item", CellChangeTimes->{{3.858607670852551*^9, 3.858607699168724*^9}},ExpressionUUID->"2c54c924-a0d6-4437-9ac5-\ dd7f0b123050"], Cell["\<\ Since the particles are non-interacting (and distinguishable) we can simply \ write\ \>", "Subitem", CellChangeTimes->{{3.858607670852551*^9, 3.8586077168590193`*^9}},ExpressionUUID->"052cf5cc-b686-4396-8672-\ 63cee5172b56"] }, Open ]], Cell[BoxData[ FormBox[ RowBox[{"\t", RowBox[{ SubscriptBox["Z", "N"], "=", " ", SubsuperscriptBox["Z", "1", "N"]}]}], TraditionalForm]], "DisplayFormulaNumbered", CellChangeTimes->{{3.668693272892076*^9, 3.668693314440349*^9}, { 3.671535052108349*^9, 3.6715350547155027`*^9}, {3.790169612913702*^9, 3.7901696252040358`*^9}, 3.858607193163331*^9, {3.858607726450644*^9, 3.858607739298622*^9}},ExpressionUUID->"7da88db5-e64c-4cd9-a206-\ fde49c3a3e30"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ "staircaseCanonicalPartitionFunction", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]_", ",", "nMax_", ",", "n_"}], "]"}], "=", SuperscriptBox[ RowBox[{ RowBox[{ "staircaseCanonicalPartitionFunctionSingle", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]", ",", "nMax"}], "]"}], "n"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "staircaseCanonicalPartitionFunction", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]_", ",", "n_"}], "]"}], "=", SuperscriptBox[ RowBox[{ RowBox[{ "staircaseCanonicalPartitionFunctionSingle", "[", "\"\\"", "]"}], "[", "\[Tau]", "]"}], "n"]}], ";"}]}], "Input", CellChangeTimes->{{3.858607749099566*^9, 3.85860778621861*^9}, { 3.858607821966147*^9, 3.858607822620315*^9}}, CellLabel-> "In[130]:=",ExpressionUUID->"1b684efc-a4e3-4906-a05e-6636d38016a5"], Cell[CellGroupData[{ Cell["\<\ As we saw above, the ensemble\[CloseCurlyQuote]s partition function is \ related to the relevant thermodynamic potential\ \>", "Item", CellChangeTimes->{{3.858607863325021*^9, 3.8586078843558283`*^9}},ExpressionUUID->"c9d2b4a9-649b-40a7-85f9-\ bbeff4c13abe"], Cell["\<\ For the canonical ensemble this gives the Helmholtz Free energy as\ \>", "Subitem", CellChangeTimes->{{3.858607863325021*^9, 3.8586079037074833`*^9}},ExpressionUUID->"3cd282fe-6929-48ad-a2f8-\ 78811895141f"] }, Open ]], Cell[BoxData[ RowBox[{"\t", TemplateBox[<|"boxes" -> FormBox[ RowBox[{ SubscriptBox[ StyleBox["A", "TI"], RowBox[{"(", RowBox[{ StyleBox["T", "TI"], ",", StyleBox["V", "TI"], ",", StyleBox["N", "TI"]}], ")"}]], "\[LongEqual]", "-", SubscriptBox[ StyleBox["K", "TI"], StyleBox["B", "TI"]], StyleBox["T", "TI"], "log", RowBox[{"[", RowBox[{ StyleBox["Z", "TI"], "(", RowBox[{",", StyleBox["V", "TI"], ",", StyleBox["N", "TI"]}], ")"}], "]"}]}], TraditionalForm], "errors" -> {}, "input" -> "\\mathcal{A}_{\\left(T,V,N\\right)}= - K_B T \\log\\left[ \ \\mathcal{Z}\\left(\\T,V,N\\right) \\right]", "state" -> "Boxes"|>, "TeXAssistantTemplate"]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7900904473905363`*^9, 3.7900904747801046`*^9}, 3.858603487633609*^9, 3.8586079114945602`*^9, 3.858607954294243*^9},ExpressionUUID->"069d22bd-4773-4d30-9ba5-\ 27d8e53d3176"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"staircaseHelmholtzFreeEnergy", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]_", ",", "nMax_", ",", "n_"}], "]"}], "=", RowBox[{ RowBox[{"-", " ", "\[Tau]"}], " ", RowBox[{"Log", "[", RowBox[{ RowBox[{ "staircaseCanonicalPartitionFunction", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]", ",", "nMax", ",", "n"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"staircaseHelmholtzFreeEnergy", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]_", ",", "n_"}], "]"}], "=", RowBox[{ RowBox[{"-", " ", "\[Tau]"}], " ", RowBox[{"Log", "[", RowBox[{ RowBox[{ "staircaseCanonicalPartitionFunction", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]", ",", "n"}], "]"}], "]"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.858607979638*^9, 3.8586080894645*^9}, 3.858608124509787*^9}, CellLabel-> "In[139]:=",ExpressionUUID->"9a2169a8-f589-4ed6-adba-e393448c47ae"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Quiet", "@", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"staircaseHelmholtzFreeEnergy", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]", ",", "10", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"staircaseHelmholtzFreeEnergy", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]", ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Tau]", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Blue", ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed", ",", "Thick"}], "]"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", "Thick", ",", "16"}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"0.75", ",", "0.75"}], "}"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.858608104409646*^9, 3.858608187553977*^9}}, CellLabel-> "In[145]:=",ExpressionUUID->"acc3a4ff-a249-4c4b-b7bc-88923c322cb9"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJwd1Hc81fsfB3CzZYQTlTgnpeRkNdxbrry/cgnJRaIoIjNFZIUyIiqnDpVO RoSUjOx9vp+vvWVkhZCZPY6yyu/+7h+vx/OP1+P170vC0snAmoONjW3m3/xf Feo5p1DdJ8BjtmpEy5GEVQed3nnbp/BV6m17vQQvM4699+FP9TAQ6bP2P2Xc UvJ3Y9iBH53hQP7PrJJxxplSlv1z+PyfiSWhVr8uL669gBO48vE5r3plBYXs 5XnaSziUSQsZCy9Vbluzez5HeQXt/3lJ2b2arDCbGQmXhXda3eauKBF99rl+ Wi0afof/39QSSyrGOWkbC1b/6aTMseb1ieUTB+6GT/cvjYyUfB64IM5SfwPV rzMuGXUsliRVKTgs8sdDZlTUJnFpEtMzladwoTMe/nzz98VmeQWmdvjopoW4 BKiZ6v7wzFSLKeZZajhvnwgzchmjSgsWzJkr0fFzR99C4fY+9vY4Dyah5jE3 u/YWvJZ6kjbYacxwaQOV2YokOJnEFepbGce02i4bOkN7B3Om3ipnTbOYfyxt /jJt9B64u36NUynlzM0936SmKckAf0nr6PG0MbsIptvUeDLYu2WFPFb8xvyQ xCifzPwA9a7CJYeq5pg+obcFJ71S4EId380rX38xdV10zSfUUsGtpUr0j6qt +N6L0mnfedOg3cPZ3zxaGF84xbU23p4GhfvtYhzeSuAV+/s1x1+nQ3Ksdf08 WQaP2FoUMWb7ET4qZZEYY4p4joe2y+1dGSBqGtkik4vh0RN/7l70yYCnduwi Mb818aArBwiXwQx48sentjFTA9yxWch2QT0TDIR6EjUCTXBjNTZ+lw+ZMNyW ZKHZbYljedM58/xZoKo/yMluex2Xlu4xdb6dBQc0h8wjlF1woegajvnOLJBS m0li9Xnia/x5ybeUs6GqP2LuNvLDh/0T9ObissF9H5VH9NwDvJFF/+nEnQO6 OG3fsas0PM/23utZ+xzwTfGYoB18hsd+cVB3asoBPsVgBipi4CHnLk3NHM0F +nibcW1iLO5MaDxzfJkLBcxjlYZCibjJseNKM2u58O3c7JSTajKuliQxePNq HvgGmWkEhnzEZXZvD5muyINfrphwzKNsXDh0Xe6mdD4gQ9t2Ob4C/Pfv7+1T tHzYpSIZLmTHxMecO31uLORDmimQxPtK8ebhiv1TRgUQG6bdVhVeiRcYZ9U5 FBfAchv/lcCxWvxNXazzJKUQAhLNGq7PNuEsRi61P7QQXBxssPcJrbiGbf1Q 60ohGKwWp8caduCvFAejq2yKIMBB8gUR+QWf4vx5oaitCGSztXbbBPfj0Mq7 PR0rhqPcKcefRXzDw+P21bxJK4ZGc4nDk59G8BHHE/4vREvgtGvYN3Wv7/iJ U7pKD4NLgBat6fMpbhp/zGO16MMqgb6F6vQPUvP41+47qbcsmNB1z653X+0i fuT9U2urJibAtNYZ4+IfeKD7W/LFv3BoH1gQIXOv4p1/F3eefY8Dz8a16Ki0 XziV1EIHYQQPlcVoe7+yobuDo1rHAhCMvmNLsRbjRM0f1zmkZhHojF/1jnvB jYRgqxmfHAEWysImy+e2oL8OPlcKtiLAKPR6Wr4WD7Lio+xkjyLA/tfTz9o0 fvSElbzo1UKA0g75gFh+QVTQc7yZtbkUgp2pj/ZuCKHBMpTqqFIKNX3fyE9E hdHxsHZry5R/ey+h63y9u5GZ59XTvYOlEPN0ylQhWAwFm0+SjXaVwcEyrZmr thSUoeG+9km3DM4d09NJAAn0RZa9SyuoDDpfXZurHd+HOIVDc8qLy0COU7wl IEMSyayLhJ1aKIO9NRrUI4yDyLdORvuIeTmU8G4REGykoveZ+QdTXpQDv2D1 F3FxWdTKOM15oKEcSt/nD7WHyyNJ24slu05WQHh9+BTd6yjS1R1ihDtVAP32 d4bhwjHkoejoxptUAd4ahqsDvoqojjNQjo1UCaUsmwT9/hOINcHP46VVCaaR I8Z5WUpIvPXV2KJvJQQ9fKAz/FoZ3Yr7GDc2VQmeYa0H9SwxFBmsdNdifxVo FdRqd/mqonLHyks9l6qgQNhH6kzKaSRyqkfoU1UVNBb9sXxJVh1hkjazmr+q oItbpZIZqIHseebry45VQ5j+jv7gyTOopHtTUF5cNTBQTGHduDYaJcIsFDqr wYD6Q57NTwdtfy+m8oGvBgQHzNSFD+kiS/ejP2O8aiDqZ1T1oQ49FHqF2bYz swacyp9YMir0Ue7fmhlhYzXwe0ivQr7EAG0hmdkHGdbCHvWRgYfVhij948Oe G3J1UJB7p5k4fwlNCE2EalvUwfXdQgsrXiZIyl1b5dDzOig6a2B1OcUUxSnz vBlaqYMouUpLyUNmKLw21Maksh7gSk1Vep0FapKZ3nliuR7mLM+rEYGWiId+ rlb4cANQ9T1DxtWuoUAjfpkWegNIasVmFLVYIfehp/NnLjeCXg+teJOsHcrS mIs/8LQRzo8kyToL2qPZZD1DzrJGuCvi+cB2zR7Z3RLMx6WaYJ/qhI/cgAMy +RXuo7jYBG6dQVEvZ5xQLE/9fUH1Znik6eDb89wVqZzyvuxn1gxKCgvJ1/9w Q72OhxVnPZphq6th+d4eN7Sr9fFow4dm0Lx0xEFEzgOFMXS0QgRagPuw8Ies 1TtIoW5d4qd0Cwg0J4hy53mhprXUVWu1FpiLkFZ76+qNtpnzpaq5t4BSxg6D gTUfdP9AE/9GTwtQ/a0zTXf7oX3G98ZuLrWAnGDyHo9AP0SEyBG9/K3QMa9T rzXvh9YnnzgXqbaCSD+XiVizP3LL+uez27tWUOXM8XwXfx/ZQsurKZc2aBdV 5cOjgxFb/I+insdtkJ6PLtpLhCAGl1hvXWIb+ApwFbS+C0E1tTbk5I428Fdj nR8ufIgOGa7HWyt9hpP3Iz9KLD5G43ZSqV/Z26GGDZJuXaEjv3qdxkbRdjDK ErJlpdHRLjmXmZJj7WAyvA0326AjzcUShSjrdjia3BYxnhiGku8a5BrXtkPl jdPkL6vh6Hr4XbyZ3gEntkpyuba+QBxL8f0ouQO0jUhiQUciUKRxDdvHsg7w kHxC8g+LQHViJDUaqwPyrZQNlQxfosPv3ldrXewE2oq2V94wA00VtzWXUbqA W30nPnckGjmOSA/lpHfDAda50Wn8DRow695SWtsNYg7JriEc8eh8V4hc43A3 8D4aPpiuEY9O1I/dGRH9As5jfY2RzfGIM/OtgEjwF4iRdGz5OZGAGD4SKh7m PXD6RqJU9skkVEra/eqkQB/Y+GZIRqqkoOO0Glz9cB/ky15McHuWgpI2eQ7r a/RBQ8C9e93jKSh0pUP+uk8fSNYmVp98kYqM+p9XRY73QfNS1/JFVhqa+CDA WiO+AktBJ3DFOgNtkwiU6j8xAIrJOKvSKRvVKIfJ31MfgE036OPysdnowcXX f4obDMA/51sPtTVlIw56wRlThwHw1/PQrJTLQau/p2w7YwYgVIa5w2g+B032 Xnj/iWMQ3BnjVFH/PNTAkJImGgZhOwfvq5S6QvREoJ765uoQkCIGxMb8CFT4 p3iuruMQhNLjjvHFE2jYzAnWvYdAdbRW2qCcQH+lkQyNXw6BHBfv/RObStG4 1uW7fE1D8KzVje5GK0Vq96c/3flrGHZ8k7yQ9KYMLS9tdzMQGQHRANpk6EAF suwxRJwNo3CWfEi+IbcWOVcGWjpJTUCw8OxSyMlWlHmL9/wurWlIey28U2Kq E73xdphQMJ4DdvO7q5M1X1FA7Lo+a2oejITqRFuHviG2tgGsxGsR2m+r7r8X PooOutp4GlKXwP7ywAGLzxNoeOmlEQ/zB2wMOHmHbZ5F2iPX74Y7L8OZtRuP vozNI91h+mEyeRViiq58P3qZhSbKLf1q0tZAV7O9ebzkB5IT7BBXM/8FVDdn /x12K2gbLFn0Lv6GYv/vRfjKGjozbfJz3wU27PHQXY1nHb9RV5kVu4kMO0Zm G6n362UjckMqzPYusWMHmhOl65Q5CBtut4GmJg5sq6yncVoZJ3HNxTuXN5IT O4fvcIpT5CbkbQ836VhwYeZTXyUM320iPgnJ8Lid5MYGqO7VGSpbiOL0gCgZ zk3Y6H09fyNiK+HNTtVr6NuEMfNffx205SG29XppOuZsxqwVVPB5Xj5iJEni eazPFqxCMDSCJ5KfeH5oN1fhha0Y31jzFvpBAYIeaVNtsXcbNn1pYO+LRQHC 5PmVJt6xbViI3dIeDVyQWP777UoszoMt3zGqZo8WIoZGTnuWBfNizLbyCfcb JCL+1JE9jRZ82JJMDDe/3g4iLchN0FaWH1NOJY3/OiBMBF+4dpZziR/LYXOQ Xl8WJhR73yQHN27HFmKyj1L7RQiGdFRa41kBLGdyaUEqfyfhS9AYZwsFsJr9 XSt28buIc3suvK2TFMSkads3Ah7tJlQdq00FHwpiGUmNdavXRIlYMUvJhiVB LCgixKdcbw8hWf4uQtdUCNtpwW2XJSdG0GXLqK24EPY11Pz+tq3ihM0iV0st lYTdTB0dIX6IE5aZC3sfPiVh0+plGTrtZOJGwPl17TASJivvviDfTSbczud0 8j4jYQpZd1RJfWQiZMntCT2ChKXpXtv8ZZhMpJ9cWXsZQ8IGnzkctWORiZXS jY6kFBKmWP+eI5hEIeitvLSK6n/3G9XuTfoUIjLhpt2DWhJ2UePF5ewLFCLB tUlNs56EuZMN/mFcohB5IvTV+iYSFlL0xNTSgkL0mpDs2tpJ2GGLUv6ftyiE 1NButW9DJOw19W7fPjqFUMjxIieOkLCqhSH6lucUQimoZ8V6jIQFhfPoz7yk EDpSMRnfJ0jYVHXYz8JYCuHisJc8P0/CTNWk+/Q/UggfZf+VrEUSpram/uPP bAoRxPfts+sSCSu9xytGzqcQjI8Jj5eXSdg1l8e0CZxCxPtx2RatkjBXaZXu f4+XSNG3Pu2zTsJ2Kj09kl9FIXL2VYmr/CZhDbXeETF1FAJfPLiysUHCWL/Z tgQ2UYj/AdaIn5U= "]]}, Annotation[#, "Charting`Private`Tag$96489#1"]& ], TagBox[ {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw903k0lfvbBnCZKlPYEY5hK5mKSJ0Tyf2UjEmFEBIyK6IUUqkUlV3IlAhb KWMImfbzfcxs85ypZMi4zcpUfr/3Xe97rrXuda3Puv++JO08jByYmZiYpv97 /9Pxd+3Yle1vazD9XyrbyQZm5Avw/96sxh+SyS7/Op6gSLCRff/1lWPeV39J PPnX7evOEXMSr/71zRpxpdmc2H8t8rKjnqEZB8L/21aldvIYy5RTAszLSqen X8kqZV73a17yT4SZozrS92fbSjsGz4staSUBnRrCNGy2VJpSreS2yEOFfb89 GWqnSTSfDM6ihW4q9FV4KJk7K9H0w3+wLyQmwzEVc/d0Uz2aqE+ZybzLW2C9 xHb5/C9b2szFOOrcwXdAKa1NVnxzi0Zo3pqbXX8HR/HY859ZKLRwOSON2coU UE1hDblXlUiz36EQMkN5D9MCgbfAMpf29/LWXobpBzCieWgLSVTQtvYNyTAk UoFt0cL0Mmc77QtB854eTwUZOfnjlMNDtLSUmIqpnDR4b+F0VLp6juYfcp1v yi8dOMuCeiy+/qYZehlemtTMAMke5xsq1dtxsrlc5gRXJni6cX21iRPAF46x ro93ZkLRHud4t3eSeOWeb7rjb7LAi5fpzLz4fjxqe3HUmNNHUNG6lxc9dhjP u6XvdV0oG7ZHDGXsz8fwuMl/hBf9s8FtrUQs/o8u/ujiXsLrezbURrYSY5ZG uHsLv9OCVg50xP2I1g60wM00mXi80nJg3a/MTrfHDscKGHnzPLmQUzfOtcXJ FZeT67P0vJ4LTwUDrKLUvXD+uFrm+e5ckNGcSVka8MHXeQpSr6l/Aq4Zvbnr KAAfuZ98di7xE8hib7hFTj/GG5dCf3mw5YEhTtmtYkPBC5zuvpl1yQOpBeNJ ivRLPKHXTcujKQ9ktcxeoeIYPPj0hemZg/mwKHrPrO5tAu5JaL90j86Heg7l KhP+t7iFyiG1mfV8aPK1YHgcT8U1UyS/X7UpgPyaEe3A4I/4fuEdwYzKAhi4 +7dA/NNPuEDIhuJVuc+A+J92KnIX4n/+THROUz5DqrtLOL8zDR/z7Pa/svAZ 7M+dI4kNlOEtI5V7pk0L4avawfbq8Cq80CyX7lZSCCvtPBcDx+rwJHqC55RE EWj5eza4zjbhSzH58t9CiqCkywr7kNyGazvVD7etFsGV8JKsBJMu/NXh73HV jsVQOCMSScT24tMsv84XtxeDwic9Ycegbzi0ce3Iwkogtynt0MuoITw8cXdt UmYJMK/s2zfVPIqPuh+5HylSCl5+L4a0/CbwI8cM1Z4ElQJp8ph/cyIDf8Zp v+i/VAo37jRmpcnM4197fDOu2dLghLh7/+66RVz5wwsH+yYaZD08o2NW8hMP vPlO3PwoDp2DC4LibGt498mS7lMfcBjWtYl7nfkblye1hoIAArNTIhTyVyZ0 5/sPPZUHCEb3bkl3EGVBLR83mGVmERiM29xOjGRD/LDdmluRgFN+Oy1WTm9D R6Uj1ILsCXhz0iXzsx4nsueW2LXlNQGsJS869Ck86PlS6qJfKwHHNQ48SODh Q4V9h1qWtpbBy5fyT8mb/Oh7Ocpw1yiDm0lD4s9FBNChsE4Hu/QyiOTld+Xu F0bWPjYn+r+XQdXQpKVSkCgKujQlbipUDleG9WdsnCRQtvbN9WbDcsh6fsYg GSRRr8KWL3qPyuHPSfu5uvHdiEUgJK+ipBxmE0VbH2RLof0bgmHHFsphlElH XjlGGt2j79dXvlQBpVzbePka5dGHnM/S6ZEVMOdQ3SsmpoDaYk6w7G2o+O++ C4c7ww8gKSfzUiHVStj+J3w61O8gMjQcjgn3qIQzARMxJgsq6NZhd2+ulEqw dzBZG7x3GNFZAhWZSFXwdsMx+dy3I2hpkofTT68KaC9GzQpy1ZBY26uxxXtV 8C7pscHIG3V0LfFj4th0FVwsaJM+a4eh2CC1O7Z7qoH5S53+l3vHUYV71YW+ C9VguHRbRif9BBI81sffXF0N5tF/r1xQ0EKYlOOs7u9qiBbQqKIFaiMXzvn6 cpUaYFXd+S1oSgeV9rA/KkisgZr4+CL6uD76QYTZKnXXgIT6zwNMAQZoxwdR jTTuWggZs9YSkDVEdjcP/or3q4UvP1/XyHadRSEXae27cmphs/i5XUzlOZR/ Ujc7bKwWdBhnKw+UGqFtJGuXRyZ1UGU+OvikxgRlfXzSd0WRDiuFvi2E8QU0 yT8Zom9LB9fd/AurfhZI5qa+hmwEHdx1jeyt0i1Rojpn0vAqHXxVq+ykZK1R eF2Io0VVPVwyra3Ootuipv2MXUdW6uGqi7EmEWiHOENP1wnsa4AOU5/gcc3L KNCUZ39raAPY6CRkF7fao5vDL+Z1rBohvp1Swq7gjHK156h7XzSCXW+Kgief C5pNPWvCUt4IG7w+j53WXZDzNb7PuEwThOlO+isOuiGL3+H+hxeb4EX9o9fR Mx4ogbP+IZ9WCzzVdbvXF3EDaRy7bRVg3QJqSguprn97o373fYdnb7VAtZdJ BbnPGwm1PfvRkNYCh84ruwkq3kJhMQZ6wbytcOCAQFrumi9Som9I/pJrBeOW ZBG2Aj/UtJ6x5qDZCoei5TTf3biNOC5xZ2jebIUXOTuNBtf90cO9TTybfa2Q f98hx1I4AO02uzt2dbkVtHak/nUrMAARwYpEP08bDM4Z1OvNB6CNqeeexcfb IKmP1UK05T7yzj3T4f2+DYRZ83zeUx8iJ2h9Ne3VDrfEjnPjcUGIifqzuO9Z O2zPR+YuksEohlW0n/62HTL5WAvb3gej2jpH8dSudhA6uWQ8UvQEyZpsUB3U OmDqQexHycVnaNxZJuPrlk6IYIaUaxdDUUC9QWOjSCesf+J3WsoMRUKKXjOl Kp3g+IMDt94MRbqLpUqvHTrBMK09avxtGEq9Y5RvVtcJA+4nxHvXwpFr+B28 JbQLmASkWG+0RSLmZeo3lNoFA5dJoo+Uo1CsWS3Tx/Iu2KXynHQ/LArRRUma lKUuEPBVN1EziUb73n+o0TPvhgmRU34FIzFouqS9pVziC8gl7MLnlOOQ+6jc cF5WD1znPvODgSehQeuebWV1PcDzPu1GMDMVGX8JVmwc6YHi6VHpLG0qOlI/ 5jsq0guMt98aY1uoiCXnHa9gUC+M9F9r/TWZjGL8JTVuXeoDd3qazCfVFFRG En6lyjsAn1ObpGI10tEhSi2utW8ATqn5Jnu/TEcp7D4j57QHYOUT9W7PeDoK We064Oo/AFW7WmpUIzOQ6beI6tjxAfB+KLhqvpSJJtN4l9aJr1CSGBy46pCN OCQDZb4dGYSJptDlKo9PqFY97MBdrUGwD/acOJDwCT02f/OPmNEgfLxYIdfe 9AkxhxbqWLoNAm72TK9KMQ+t/Zl26o4fhM/X9wqazuehqf7zH5qZv4OsmaaC yP0C1BAjI0c0fIeJ0cMJ6fQi9Jy3Xj7JZhgy4lIVxgIIVPSPWL6h+zC4Shpp cVMJNGLtARu3h8EGPNSNKgh0NJNkYhY9DNZhpdFH2MvQuJ7VHe6mYcDLe1K9 KWVI8yGj2ffoCJRwjPmlJJWjleUd3kaCo0DsUT1KGaxEdn0miKXhB8i/tbRq zK9DnlWBdh4yk7BOr+yjqLahnGtcxkJ6DLDZk/LPkelulHTbbVLJbA4eT1gt a9V9RQ8SNs4tTc/DczF5dqORIcTUPoiV+i0Cc2WUZdbLH0j6hqOPifwyMPiZ Sdu6J9HIcrQpJ+0nxAXzK1O5ZpH+qOudcM8V2MNilf14eh4ZjoTuExdfA3rm wpy4/RKarLALqM1ch0LfU3VKdT+RIl+XmOal3xCpbTU27LeKOGDZtn/xD7St VlIzdm4gHYbFr93nmTBj0Q3F4Y0/6Eu5/RaL/VswL2qiEP6TicgPrrQmL2/B vuSJRey+xEw4snkPNjUxY1fUy7PiZlmIy16387liWbCDHh3seu5sxAGnfU0G tqzYbfsLoiYMdqKZfz+ntyobNkI17rOK3EaUZD14vZ+FHXv7a8kZl+Ugbm+R P9swwI5NVsUI/xnlJDj6/XTd87ZiX7lUKWtUbmI0RTIiwX8bJrQjO6tZdwcR ISvMWnR+O5bzeMi/IISXCI11rLElc2DiFDmizZmPsIi42MQ1xoEdmxKjPNfk J1ZOvltNwDmxIcXlXvFDJGJ49IRPeRAX5sM48jpg106Cekz5r0ZbbkxTlNtb hE+AyHzkzeekwIP1LnXxsfwWIILOXz7FssyDKZ18/33ohyBxuD8pNahxBxa4 JMywH9tFxMi9zmw8xYtdDVhxs+0RIu4RlJhTRbzYK5n7ClZDwsTpv86/o0vx YXTn+PYjEyLEcfcaS74nfFi2v8omffAvIkHUTqphmQ9zGGLtJWZFCamK91GG lvxY5oW9kdtmxYhQhXL5NpwfY+ErdnWdEiccF1lb6+RJGNnpc+yLTQnCLmeB /OQFCVubshbOvk8mrjww3tAPI2HCSZE+Px+SCW/jvG6ul//9ezOm1B+TieBl 7+ehUSSs5NwqD/0pmchSXV2PjidhhilntEdfkonVss2ulHQSlnHT0UcihUyE tnFRKmtImFIPfYBKJxOxyVedH9eRsHMRObSpBjKRfKNJU7eehJESAnIONZOJ AsHQtfomEmb2pqWjup1M9FuQnNs7SdhZ5a0c0/1kQmZYWHNomIRdEdRRUJsl E0p5fuJvR0nY945B/cB5MqH2qG/VYYyECS5o+zctkgkDmfjsiUkS9reZp8jl FTLh5UYWn58nYUEneE5StkgS/ur3V3MXSRifW+9mN4sk8Yh7qOPGMgmT2uXQ vJtdkoj5mPxsZYWE7eT/mFrIIUlQA1iditdIWCnDNY+FW5JIP+dwwn+DhEU5 fm0z3CFJ5O2uFtP4Q8KqKrayxfJJEvii9OrmJgkrNxjVHyVJEv8BD9VwRg== "]]}, Annotation[#, "Charting`Private`Tag$96489#2"]& ]}, {}}, InsetBox[ TemplateBox[{"\"Finite Staircase\"", "\"Infinite Staircase\""}, "LineLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}], Thickness[Large]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { Directive[ GrayLevel[0], Thickness[Large], 16], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", TemplateBox[<|"color" -> RGBColor[0, 0, 1]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", TemplateBox[<|"color" -> RGBColor[1, 0, 0]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> GrayLevel[0]|>, "GrayLevelColorSwatchTemplate"], ",", RowBox[{"Thickness", "[", "Large", "]"}], ",", "16"}], "]"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.75, 0.75}], ImageScaled[{0.5, 0.5}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Helmholtz Free Energy\"", TraditionalForm], None}, { FormBox["\"Normalized Temperature\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->500, LabelStyle->Directive[ GrayLevel[0], Thickness[Large], 16], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 5}, {-8.538858738413527, 0.0001579687627681767}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], Line[CompressedData[" 1:eJwd1Hc81fsfB3CzZYQTlTgnpeRkNdxbrry/cgnJRaIoIjNFZIUyIiqnDpVO RoSUjOx9vp+vvWVkhZCZPY6yyu/+7h+vx/OP1+P170vC0snAmoONjW3m3/xf Feo5p1DdJ8BjtmpEy5GEVQed3nnbp/BV6m17vQQvM4699+FP9TAQ6bP2P2Xc UvJ3Y9iBH53hQP7PrJJxxplSlv1z+PyfiSWhVr8uL669gBO48vE5r3plBYXs 5XnaSziUSQsZCy9Vbluzez5HeQXt/3lJ2b2arDCbGQmXhXda3eauKBF99rl+ Wi0afof/39QSSyrGOWkbC1b/6aTMseb1ieUTB+6GT/cvjYyUfB64IM5SfwPV rzMuGXUsliRVKTgs8sdDZlTUJnFpEtMzladwoTMe/nzz98VmeQWmdvjopoW4 BKiZ6v7wzFSLKeZZajhvnwgzchmjSgsWzJkr0fFzR99C4fY+9vY4Dyah5jE3 u/YWvJZ6kjbYacxwaQOV2YokOJnEFepbGce02i4bOkN7B3Om3ipnTbOYfyxt /jJt9B64u36NUynlzM0936SmKckAf0nr6PG0MbsIptvUeDLYu2WFPFb8xvyQ xCifzPwA9a7CJYeq5pg+obcFJ71S4EId380rX38xdV10zSfUUsGtpUr0j6qt +N6L0mnfedOg3cPZ3zxaGF84xbU23p4GhfvtYhzeSuAV+/s1x1+nQ3Ksdf08 WQaP2FoUMWb7ET4qZZEYY4p4joe2y+1dGSBqGtkik4vh0RN/7l70yYCnduwi Mb818aArBwiXwQx48sentjFTA9yxWch2QT0TDIR6EjUCTXBjNTZ+lw+ZMNyW ZKHZbYljedM58/xZoKo/yMluex2Xlu4xdb6dBQc0h8wjlF1woegajvnOLJBS m0li9Xnia/x5ybeUs6GqP2LuNvLDh/0T9ObissF9H5VH9NwDvJFF/+nEnQO6 OG3fsas0PM/23utZ+xzwTfGYoB18hsd+cVB3asoBPsVgBipi4CHnLk3NHM0F +nibcW1iLO5MaDxzfJkLBcxjlYZCibjJseNKM2u58O3c7JSTajKuliQxePNq HvgGmWkEhnzEZXZvD5muyINfrphwzKNsXDh0Xe6mdD4gQ9t2Ob4C/Pfv7+1T tHzYpSIZLmTHxMecO31uLORDmimQxPtK8ebhiv1TRgUQG6bdVhVeiRcYZ9U5 FBfAchv/lcCxWvxNXazzJKUQAhLNGq7PNuEsRi61P7QQXBxssPcJrbiGbf1Q 60ohGKwWp8caduCvFAejq2yKIMBB8gUR+QWf4vx5oaitCGSztXbbBPfj0Mq7 PR0rhqPcKcefRXzDw+P21bxJK4ZGc4nDk59G8BHHE/4vREvgtGvYN3Wv7/iJ U7pKD4NLgBat6fMpbhp/zGO16MMqgb6F6vQPUvP41+47qbcsmNB1z653X+0i fuT9U2urJibAtNYZ4+IfeKD7W/LFv3BoH1gQIXOv4p1/F3eefY8Dz8a16Ki0 XziV1EIHYQQPlcVoe7+yobuDo1rHAhCMvmNLsRbjRM0f1zmkZhHojF/1jnvB jYRgqxmfHAEWysImy+e2oL8OPlcKtiLAKPR6Wr4WD7Lio+xkjyLA/tfTz9o0 fvSElbzo1UKA0g75gFh+QVTQc7yZtbkUgp2pj/ZuCKHBMpTqqFIKNX3fyE9E hdHxsHZry5R/ey+h63y9u5GZ59XTvYOlEPN0ylQhWAwFm0+SjXaVwcEyrZmr thSUoeG+9km3DM4d09NJAAn0RZa9SyuoDDpfXZurHd+HOIVDc8qLy0COU7wl IEMSyayLhJ1aKIO9NRrUI4yDyLdORvuIeTmU8G4REGykoveZ+QdTXpQDv2D1 F3FxWdTKOM15oKEcSt/nD7WHyyNJ24slu05WQHh9+BTd6yjS1R1ihDtVAP32 d4bhwjHkoejoxptUAd4ahqsDvoqojjNQjo1UCaUsmwT9/hOINcHP46VVCaaR I8Z5WUpIvPXV2KJvJQQ9fKAz/FoZ3Yr7GDc2VQmeYa0H9SwxFBmsdNdifxVo FdRqd/mqonLHyks9l6qgQNhH6kzKaSRyqkfoU1UVNBb9sXxJVh1hkjazmr+q oItbpZIZqIHseebry45VQ5j+jv7gyTOopHtTUF5cNTBQTGHduDYaJcIsFDqr wYD6Q57NTwdtfy+m8oGvBgQHzNSFD+kiS/ejP2O8aiDqZ1T1oQ49FHqF2bYz swacyp9YMir0Ue7fmhlhYzXwe0ivQr7EAG0hmdkHGdbCHvWRgYfVhij948Oe G3J1UJB7p5k4fwlNCE2EalvUwfXdQgsrXiZIyl1b5dDzOig6a2B1OcUUxSnz vBlaqYMouUpLyUNmKLw21Maksh7gSk1Vep0FapKZ3nliuR7mLM+rEYGWiId+ rlb4cANQ9T1DxtWuoUAjfpkWegNIasVmFLVYIfehp/NnLjeCXg+teJOsHcrS mIs/8LQRzo8kyToL2qPZZD1DzrJGuCvi+cB2zR7Z3RLMx6WaYJ/qhI/cgAMy +RXuo7jYBG6dQVEvZ5xQLE/9fUH1Znik6eDb89wVqZzyvuxn1gxKCgvJ1/9w Q72OhxVnPZphq6th+d4eN7Sr9fFow4dm0Lx0xEFEzgOFMXS0QgRagPuw8Ies 1TtIoW5d4qd0Cwg0J4hy53mhprXUVWu1FpiLkFZ76+qNtpnzpaq5t4BSxg6D gTUfdP9AE/9GTwtQ/a0zTXf7oX3G98ZuLrWAnGDyHo9AP0SEyBG9/K3QMa9T rzXvh9YnnzgXqbaCSD+XiVizP3LL+uez27tWUOXM8XwXfx/ZQsurKZc2aBdV 5cOjgxFb/I+insdtkJ6PLtpLhCAGl1hvXWIb+ApwFbS+C0E1tTbk5I428Fdj nR8ufIgOGa7HWyt9hpP3Iz9KLD5G43ZSqV/Z26GGDZJuXaEjv3qdxkbRdjDK ErJlpdHRLjmXmZJj7WAyvA0326AjzcUShSjrdjia3BYxnhiGku8a5BrXtkPl jdPkL6vh6Hr4XbyZ3gEntkpyuba+QBxL8f0ouQO0jUhiQUciUKRxDdvHsg7w kHxC8g+LQHViJDUaqwPyrZQNlQxfosPv3ldrXewE2oq2V94wA00VtzWXUbqA W30nPnckGjmOSA/lpHfDAda50Wn8DRow695SWtsNYg7JriEc8eh8V4hc43A3 8D4aPpiuEY9O1I/dGRH9As5jfY2RzfGIM/OtgEjwF4iRdGz5OZGAGD4SKh7m PXD6RqJU9skkVEra/eqkQB/Y+GZIRqqkoOO0Glz9cB/ky15McHuWgpI2eQ7r a/RBQ8C9e93jKSh0pUP+uk8fSNYmVp98kYqM+p9XRY73QfNS1/JFVhqa+CDA WiO+AktBJ3DFOgNtkwiU6j8xAIrJOKvSKRvVKIfJ31MfgE036OPysdnowcXX f4obDMA/51sPtTVlIw56wRlThwHw1/PQrJTLQau/p2w7YwYgVIa5w2g+B032 Xnj/iWMQ3BnjVFH/PNTAkJImGgZhOwfvq5S6QvREoJ765uoQkCIGxMb8CFT4 p3iuruMQhNLjjvHFE2jYzAnWvYdAdbRW2qCcQH+lkQyNXw6BHBfv/RObStG4 1uW7fE1D8KzVje5GK0Vq96c/3flrGHZ8k7yQ9KYMLS9tdzMQGQHRANpk6EAF suwxRJwNo3CWfEi+IbcWOVcGWjpJTUCw8OxSyMlWlHmL9/wurWlIey28U2Kq E73xdphQMJ4DdvO7q5M1X1FA7Lo+a2oejITqRFuHviG2tgGsxGsR2m+r7r8X PooOutp4GlKXwP7ywAGLzxNoeOmlEQ/zB2wMOHmHbZ5F2iPX74Y7L8OZtRuP vozNI91h+mEyeRViiq58P3qZhSbKLf1q0tZAV7O9ebzkB5IT7BBXM/8FVDdn /x12K2gbLFn0Lv6GYv/vRfjKGjozbfJz3wU27PHQXY1nHb9RV5kVu4kMO0Zm G6n362UjckMqzPYusWMHmhOl65Q5CBtut4GmJg5sq6yncVoZJ3HNxTuXN5IT O4fvcIpT5CbkbQ836VhwYeZTXyUM320iPgnJ8Lid5MYGqO7VGSpbiOL0gCgZ zk3Y6H09fyNiK+HNTtVr6NuEMfNffx205SG29XppOuZsxqwVVPB5Xj5iJEni eazPFqxCMDSCJ5KfeH5oN1fhha0Y31jzFvpBAYIeaVNtsXcbNn1pYO+LRQHC 5PmVJt6xbViI3dIeDVyQWP777UoszoMt3zGqZo8WIoZGTnuWBfNizLbyCfcb JCL+1JE9jRZ82JJMDDe/3g4iLchN0FaWH1NOJY3/OiBMBF+4dpZziR/LYXOQ Xl8WJhR73yQHN27HFmKyj1L7RQiGdFRa41kBLGdyaUEqfyfhS9AYZwsFsJr9 XSt28buIc3suvK2TFMSkads3Ah7tJlQdq00FHwpiGUmNdavXRIlYMUvJhiVB LCgixKdcbw8hWf4uQtdUCNtpwW2XJSdG0GXLqK24EPY11Pz+tq3ihM0iV0st lYTdTB0dIX6IE5aZC3sfPiVh0+plGTrtZOJGwPl17TASJivvviDfTSbczud0 8j4jYQpZd1RJfWQiZMntCT2ChKXpXtv8ZZhMpJ9cWXsZQ8IGnzkctWORiZXS jY6kFBKmWP+eI5hEIeitvLSK6n/3G9XuTfoUIjLhpt2DWhJ2UePF5ewLFCLB tUlNs56EuZMN/mFcohB5IvTV+iYSFlL0xNTSgkL0mpDs2tpJ2GGLUv6ftyiE 1NButW9DJOw19W7fPjqFUMjxIieOkLCqhSH6lucUQimoZ8V6jIQFhfPoz7yk EDpSMRnfJ0jYVHXYz8JYCuHisJc8P0/CTNWk+/Q/UggfZf+VrEUSpram/uPP bAoRxPfts+sSCSu9xytGzqcQjI8Jj5eXSdg1l8e0CZxCxPtx2RatkjBXaZXu f4+XSNG3Pu2zTsJ2Kj09kl9FIXL2VYmr/CZhDbXeETF1FAJfPLiysUHCWL/Z tgQ2UYj/AdaIn5U= "]]}, "Charting`Private`Tag$96489#1"], Annotation[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}], Thickness[Large]], Line[CompressedData[" 1:eJw903k0lfvbBnCZKlPYEY5hK5mKSJ0Tyf2UjEmFEBIyK6IUUqkUlV3IlAhb KWMImfbzfcxs85ypZMi4zcpUfr/3Xe97rrXuda3Puv++JO08jByYmZiYpv97 /9Pxd+3Yle1vazD9XyrbyQZm5Avw/96sxh+SyS7/Op6gSLCRff/1lWPeV39J PPnX7evOEXMSr/71zRpxpdmc2H8t8rKjnqEZB8L/21aldvIYy5RTAszLSqen X8kqZV73a17yT4SZozrS92fbSjsGz4staSUBnRrCNGy2VJpSreS2yEOFfb89 GWqnSTSfDM6ihW4q9FV4KJk7K9H0w3+wLyQmwzEVc/d0Uz2aqE+ZybzLW2C9 xHb5/C9b2szFOOrcwXdAKa1NVnxzi0Zo3pqbXX8HR/HY859ZKLRwOSON2coU UE1hDblXlUiz36EQMkN5D9MCgbfAMpf29/LWXobpBzCieWgLSVTQtvYNyTAk UoFt0cL0Mmc77QtB854eTwUZOfnjlMNDtLSUmIqpnDR4b+F0VLp6juYfcp1v yi8dOMuCeiy+/qYZehlemtTMAMke5xsq1dtxsrlc5gRXJni6cX21iRPAF46x ro93ZkLRHud4t3eSeOWeb7rjb7LAi5fpzLz4fjxqe3HUmNNHUNG6lxc9dhjP u6XvdV0oG7ZHDGXsz8fwuMl/hBf9s8FtrUQs/o8u/ujiXsLrezbURrYSY5ZG uHsLv9OCVg50xP2I1g60wM00mXi80nJg3a/MTrfHDscKGHnzPLmQUzfOtcXJ FZeT67P0vJ4LTwUDrKLUvXD+uFrm+e5ckNGcSVka8MHXeQpSr6l/Aq4Zvbnr KAAfuZ98di7xE8hib7hFTj/GG5dCf3mw5YEhTtmtYkPBC5zuvpl1yQOpBeNJ ivRLPKHXTcujKQ9ktcxeoeIYPPj0hemZg/mwKHrPrO5tAu5JaL90j86Heg7l KhP+t7iFyiG1mfV8aPK1YHgcT8U1UyS/X7UpgPyaEe3A4I/4fuEdwYzKAhi4 +7dA/NNPuEDIhuJVuc+A+J92KnIX4n/+THROUz5DqrtLOL8zDR/z7Pa/svAZ 7M+dI4kNlOEtI5V7pk0L4avawfbq8Cq80CyX7lZSCCvtPBcDx+rwJHqC55RE EWj5eza4zjbhSzH58t9CiqCkywr7kNyGazvVD7etFsGV8JKsBJMu/NXh73HV jsVQOCMSScT24tMsv84XtxeDwic9Ycegbzi0ce3Iwkogtynt0MuoITw8cXdt UmYJMK/s2zfVPIqPuh+5HylSCl5+L4a0/CbwI8cM1Z4ElQJp8ph/cyIDf8Zp v+i/VAo37jRmpcnM4197fDOu2dLghLh7/+66RVz5wwsH+yYaZD08o2NW8hMP vPlO3PwoDp2DC4LibGt498mS7lMfcBjWtYl7nfkblye1hoIAArNTIhTyVyZ0 5/sPPZUHCEb3bkl3EGVBLR83mGVmERiM29xOjGRD/LDdmluRgFN+Oy1WTm9D R6Uj1ILsCXhz0iXzsx4nsueW2LXlNQGsJS869Ck86PlS6qJfKwHHNQ48SODh Q4V9h1qWtpbBy5fyT8mb/Oh7Ocpw1yiDm0lD4s9FBNChsE4Hu/QyiOTld+Xu F0bWPjYn+r+XQdXQpKVSkCgKujQlbipUDleG9WdsnCRQtvbN9WbDcsh6fsYg GSRRr8KWL3qPyuHPSfu5uvHdiEUgJK+ipBxmE0VbH2RLof0bgmHHFsphlElH XjlGGt2j79dXvlQBpVzbePka5dGHnM/S6ZEVMOdQ3SsmpoDaYk6w7G2o+O++ C4c7ww8gKSfzUiHVStj+J3w61O8gMjQcjgn3qIQzARMxJgsq6NZhd2+ulEqw dzBZG7x3GNFZAhWZSFXwdsMx+dy3I2hpkofTT68KaC9GzQpy1ZBY26uxxXtV 8C7pscHIG3V0LfFj4th0FVwsaJM+a4eh2CC1O7Z7qoH5S53+l3vHUYV71YW+ C9VguHRbRif9BBI81sffXF0N5tF/r1xQ0EKYlOOs7u9qiBbQqKIFaiMXzvn6 cpUaYFXd+S1oSgeV9rA/KkisgZr4+CL6uD76QYTZKnXXgIT6zwNMAQZoxwdR jTTuWggZs9YSkDVEdjcP/or3q4UvP1/XyHadRSEXae27cmphs/i5XUzlOZR/ Ujc7bKwWdBhnKw+UGqFtJGuXRyZ1UGU+OvikxgRlfXzSd0WRDiuFvi2E8QU0 yT8Zom9LB9fd/AurfhZI5qa+hmwEHdx1jeyt0i1Rojpn0vAqHXxVq+ykZK1R eF2Io0VVPVwyra3Ootuipv2MXUdW6uGqi7EmEWiHOENP1wnsa4AOU5/gcc3L KNCUZ39raAPY6CRkF7fao5vDL+Z1rBohvp1Swq7gjHK156h7XzSCXW+Kgief C5pNPWvCUt4IG7w+j53WXZDzNb7PuEwThOlO+isOuiGL3+H+hxeb4EX9o9fR Mx4ogbP+IZ9WCzzVdbvXF3EDaRy7bRVg3QJqSguprn97o373fYdnb7VAtZdJ BbnPGwm1PfvRkNYCh84ruwkq3kJhMQZ6wbytcOCAQFrumi9Som9I/pJrBeOW ZBG2Aj/UtJ6x5qDZCoei5TTf3biNOC5xZ2jebIUXOTuNBtf90cO9TTybfa2Q f98hx1I4AO02uzt2dbkVtHak/nUrMAARwYpEP08bDM4Z1OvNB6CNqeeexcfb IKmP1UK05T7yzj3T4f2+DYRZ83zeUx8iJ2h9Ne3VDrfEjnPjcUGIifqzuO9Z O2zPR+YuksEohlW0n/62HTL5WAvb3gej2jpH8dSudhA6uWQ8UvQEyZpsUB3U OmDqQexHycVnaNxZJuPrlk6IYIaUaxdDUUC9QWOjSCesf+J3WsoMRUKKXjOl Kp3g+IMDt94MRbqLpUqvHTrBMK09avxtGEq9Y5RvVtcJA+4nxHvXwpFr+B28 JbQLmASkWG+0RSLmZeo3lNoFA5dJoo+Uo1CsWS3Tx/Iu2KXynHQ/LArRRUma lKUuEPBVN1EziUb73n+o0TPvhgmRU34FIzFouqS9pVziC8gl7MLnlOOQ+6jc cF5WD1znPvODgSehQeuebWV1PcDzPu1GMDMVGX8JVmwc6YHi6VHpLG0qOlI/ 5jsq0guMt98aY1uoiCXnHa9gUC+M9F9r/TWZjGL8JTVuXeoDd3qazCfVFFRG En6lyjsAn1ObpGI10tEhSi2utW8ATqn5Jnu/TEcp7D4j57QHYOUT9W7PeDoK We064Oo/AFW7WmpUIzOQ6beI6tjxAfB+KLhqvpSJJtN4l9aJr1CSGBy46pCN OCQDZb4dGYSJptDlKo9PqFY97MBdrUGwD/acOJDwCT02f/OPmNEgfLxYIdfe 9AkxhxbqWLoNAm72TK9KMQ+t/Zl26o4fhM/X9wqazuehqf7zH5qZv4OsmaaC yP0C1BAjI0c0fIeJ0cMJ6fQi9Jy3Xj7JZhgy4lIVxgIIVPSPWL6h+zC4Shpp cVMJNGLtARu3h8EGPNSNKgh0NJNkYhY9DNZhpdFH2MvQuJ7VHe6mYcDLe1K9 KWVI8yGj2ffoCJRwjPmlJJWjleUd3kaCo0DsUT1KGaxEdn0miKXhB8i/tbRq zK9DnlWBdh4yk7BOr+yjqLahnGtcxkJ6DLDZk/LPkelulHTbbVLJbA4eT1gt a9V9RQ8SNs4tTc/DczF5dqORIcTUPoiV+i0Cc2WUZdbLH0j6hqOPifwyMPiZ Sdu6J9HIcrQpJ+0nxAXzK1O5ZpH+qOudcM8V2MNilf14eh4ZjoTuExdfA3rm wpy4/RKarLALqM1ch0LfU3VKdT+RIl+XmOal3xCpbTU27LeKOGDZtn/xD7St VlIzdm4gHYbFr93nmTBj0Q3F4Y0/6Eu5/RaL/VswL2qiEP6TicgPrrQmL2/B vuSJRey+xEw4snkPNjUxY1fUy7PiZlmIy16387liWbCDHh3seu5sxAGnfU0G tqzYbfsLoiYMdqKZfz+ntyobNkI17rOK3EaUZD14vZ+FHXv7a8kZl+Ugbm+R P9swwI5NVsUI/xnlJDj6/XTd87ZiX7lUKWtUbmI0RTIiwX8bJrQjO6tZdwcR ISvMWnR+O5bzeMi/IISXCI11rLElc2DiFDmizZmPsIi42MQ1xoEdmxKjPNfk J1ZOvltNwDmxIcXlXvFDJGJ49IRPeRAX5sM48jpg106Cekz5r0ZbbkxTlNtb hE+AyHzkzeekwIP1LnXxsfwWIILOXz7FssyDKZ18/33ohyBxuD8pNahxBxa4 JMywH9tFxMi9zmw8xYtdDVhxs+0RIu4RlJhTRbzYK5n7ClZDwsTpv86/o0vx YXTn+PYjEyLEcfcaS74nfFi2v8omffAvIkHUTqphmQ9zGGLtJWZFCamK91GG lvxY5oW9kdtmxYhQhXL5NpwfY+ErdnWdEiccF1lb6+RJGNnpc+yLTQnCLmeB /OQFCVubshbOvk8mrjww3tAPI2HCSZE+Px+SCW/jvG6ul//9ezOm1B+TieBl 7+ehUSSs5NwqD/0pmchSXV2PjidhhilntEdfkonVss2ulHQSlnHT0UcihUyE tnFRKmtImFIPfYBKJxOxyVedH9eRsHMRObSpBjKRfKNJU7eehJESAnIONZOJ AsHQtfomEmb2pqWjup1M9FuQnNs7SdhZ5a0c0/1kQmZYWHNomIRdEdRRUJsl E0p5fuJvR0nY945B/cB5MqH2qG/VYYyECS5o+zctkgkDmfjsiUkS9reZp8jl FTLh5UYWn58nYUEneE5StkgS/ur3V3MXSRifW+9mN4sk8Yh7qOPGMgmT2uXQ vJtdkoj5mPxsZYWE7eT/mFrIIUlQA1iditdIWCnDNY+FW5JIP+dwwn+DhEU5 fm0z3CFJ5O2uFtP4Q8KqKrayxfJJEvii9OrmJgkrNxjVHyVJEv8BD9VwRg== "]]}, "Charting`Private`Tag$96489#2"]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{"Helmholtz Free Energy", None}, { "Normalized Temperature", None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> Directive[ GrayLevel[0], Thickness[Large], 16], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 5}, {-8.538858738413527, 0.0001579687627681767}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ LineLegend[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}], Thickness[Large]]}, {"Finite Staircase", "Infinite Staircase"}, LegendMarkers -> None, LabelStyle -> Directive[ GrayLevel[0], Thickness[Large], 16], LegendLayout -> "Column"]], {0.75, 0.75}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{{3.858608137661417*^9, 3.858608187833147*^9}}, CellLabel-> "Out[145]=",ExpressionUUID->"2606ea1e-2473-45c2-9d54-5b3ae099d57c"] }, Open ]], Cell["\<\ We can now use the differential form of the Helmholtz free energy to extract \ other thermodynamic potentials\ \>", "Item", CellChangeTimes->{{3.858607863325021*^9, 3.8586078843558283`*^9}, { 3.858608194359496*^9, 3.858608254117682*^9}},ExpressionUUID->"b4803fe8-b66d-4236-9691-\ 2cc26ceb1a51"], Cell[BoxData[ RowBox[{"\t", TemplateBox[<|"boxes" -> FormBox[ RowBox[{ StyleBox["d", "TI"], StyleBox["A", "TI"], "\[LongEqual]", "-", StyleBox["P", "TI"], StyleBox["d", "TI"], StyleBox["V", "TI"], "+", UnderscriptBox["\[Sum]", StyleBox["j", "TI"], LimitsPositioning -> True], SubscriptBox["\[Mu]", StyleBox["j", "TI"]], StyleBox["d", "TI"], SubscriptBox[ StyleBox["n", "TI"], StyleBox["j", "TI"]], "-", StyleBox["S", "TI"], StyleBox["d", "TI"], StyleBox["T", "TI"]}], TraditionalForm], "errors" -> {}, "input" -> "d\\mathcal{A} = -P dV + \\sum_j \\mu_j d n_j - S dT", "state" -> "Boxes"|>, "TeXAssistantTemplate"]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7900904473905363`*^9, 3.7900904747801046`*^9}, 3.858603487633609*^9, 3.8586079114945602`*^9, 3.858607954294243*^9, 3.8586082890516443`*^9},ExpressionUUID->"33ee6068-b2d2-4022-8779-\ 8a33a138bf84"], Cell["Entropy", "Subitem", CellChangeTimes->{{3.858608291611953*^9, 3.8586082928339357`*^9}},ExpressionUUID->"ec00158b-57c6-4e71-b826-\ 7b7207ab13c5"], Cell[BoxData[ RowBox[{"\t", TemplateBox[<|"boxes" -> FormBox[ RowBox[{ StyleBox["S", "TI"], "\[LongEqual]", "-", SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"\[PartialD]", StyleBox["A", "TI"]}], RowBox[{"\[PartialD]", "\[Tau]"}]], ")"}], RowBox[{ StyleBox["N", "TI"], ",", StyleBox["V", "TI"]}]]}], TraditionalForm], "errors" -> {}, "input" -> "\\mathcal{S} = -\\left(\\frac{\\partial \\mathcal{A}}{\\partial \ \\tau}\\right)_{N,V}", "state" -> "Boxes"|>, "TeXAssistantTemplate"]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7900904473905363`*^9, 3.7900904747801046`*^9}, 3.858603487633609*^9, 3.8586079114945602`*^9, 3.858607954294243*^9, 3.8586082890516443`*^9, 3.8586083296250887`*^9, 3.8586083709870863`*^9, {3.858608568821969*^9, 3.858608576986548*^9}},ExpressionUUID->"aa6e5b80-98af-41be-bb4a-\ 099bf3404889"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"staircaseCanonicalEntropy", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]_", ",", "nMax_", ",", "n_"}], "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"-", " ", RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], "[", RowBox[{"staircaseHelmholtzFreeEnergy", "[", "\"\\"", "]"}], "]"}], "[", RowBox[{"\[Tau]", ",", "nMax", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"\[Tau]", ",", "nMax", ",", "n"}], "}"}], ">", "0"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"staircaseCanonicalEntropy", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]_", ",", "n_"}], "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"-", " ", RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"1", ",", "0"}], "]"}], "[", RowBox[{ "staircaseHelmholtzFreeEnergy", "[", "\"\\"", "]"}], "]"}], "[", RowBox[{"\[Tau]", ",", "n"}], "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"\[Tau]", ",", "n"}], "}"}], ">", "0"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.858608308914493*^9, 3.8586083202560673`*^9}, { 3.858608383802792*^9, 3.858608443636917*^9}, {3.858608492792618*^9, 3.858608493532588*^9}}, CellLabel-> "In[152]:=",ExpressionUUID->"db9ca19b-9a0b-48aa-83fd-a59248958146"], Cell["Internal Energy", "Subitem", CellChangeTimes->{{3.858608511436122*^9, 3.8586085154202957`*^9}},ExpressionUUID->"ab3a8960-62d0-448d-becb-\ 471c07204d60"], Cell[BoxData[ RowBox[{"\t", TemplateBox[<|"boxes" -> FormBox[ RowBox[{ StyleBox["U", "TI"], "\[LongEqual]", StyleBox["A", "TI"], "+", StyleBox["T", "TI"], StyleBox["S", "TI"]}], TraditionalForm], "errors" -> {}, "input" -> "\\mathcal{U} = \\mathcal{A} + T\\mathcal{S}", "state" -> "Boxes"|>, "TeXAssistantTemplate"]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7900904473905363`*^9, 3.7900904747801046`*^9}, 3.858603487633609*^9, 3.8586079114945602`*^9, 3.858607954294243*^9, 3.8586082890516443`*^9, 3.8586083296250887`*^9, 3.8586083709870863`*^9, 3.858608601646347*^9, 3.859047816197919*^9},ExpressionUUID->"459baf66-7beb-4dca-9c1b-\ 454bcdec7ffb"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"staircaseCanonicalInternalEnergy", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]_", ",", "nMax_", ",", "n_"}], "]"}], "=", " ", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"staircaseHelmholtzFreeEnergy", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]", ",", "nMax", ",", "n"}], "]"}], "+", " ", RowBox[{"\[Tau]", " ", RowBox[{ RowBox[{"staircaseCanonicalEntropy", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]", ",", "nMax", ",", "n"}], "]"}]}]}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{"\[Tau]", ",", "nMax", ",", "n"}], "}"}], ">", "0"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"staircaseCanonicalInternalEnergy", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]__", ",", "n_"}], "]"}], "=", " ", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"staircaseHelmholtzFreeEnergy", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]", ",", "nMax", ",", "n"}], "]"}], "+", " ", RowBox[{"\[Tau]", " ", RowBox[{ RowBox[{"staircaseCanonicalEntropy", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]", ",", "n"}], "]"}]}]}], ",", " ", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{"\[Tau]", ",", "n"}], "}"}], ">", "0"}]}]}], "]"}]}]}], "Input",\ CellChangeTimes->{{3.858608529645589*^9, 3.8586085398288*^9}, { 3.858608618212317*^9, 3.85860866944777*^9}}, CellLabel-> "In[156]:=",ExpressionUUID->"9603e0e7-c24f-411e-8ccd-8b1b0ead6245"], Cell[BoxData[ RowBox[{"n", " ", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", FractionBox["1", "\[Tau]"]]}]], "-", FractionBox[ RowBox[{"1", "+", "nMax"}], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"1", "+", "nMax"}], "\[Tau]"]]}]]}], ")"}]}]], "Output", CellChangeTimes->{{3.8586086583610687`*^9, 3.858608669837088*^9}}, CellLabel-> "Out[156]=",ExpressionUUID->"d4119b8c-4d7a-428c-891b-80d4dc90e8b9"], Cell[BoxData[ FractionBox["n", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", FractionBox["1", "\[Tau]"]]}]]], "Output", CellChangeTimes->{{3.8586086583610687`*^9, 3.858608669846903*^9}}, CellLabel-> "Out[157]=",ExpressionUUID->"f2e5f4dc-5fb5-4b90-9226-93a64f89fff2"] }, Open ]], Cell["\<\ Note that the infinite result compares quite nicely with our approximate \ internal result in the microcanonical ensemble\ \>", "Subsubitem", CellChangeTimes->{{3.8586087139315863`*^9, 3.8586087881221724`*^9}, 3.85860883761338*^9},ExpressionUUID->"b9bbb9f1-8238-4b11-8a50-\ dcdd68ded1e7"], Cell[CellGroupData[{ Cell["\<\ The slight difference is due to Stirling\[CloseCurlyQuote]s approximation and \ negligible as n\[Rule]\[Infinity]\ \>", "Subsubitem", CellChangeTimes->{{3.8586087139315863`*^9, 3.858608843472891*^9}},ExpressionUUID->"a1c4e9aa-987a-4bf5-acf2-\ 979437ffa453"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ "infiniteStaircaseInternalEnergy", "[", "\"\\"", "]"}], "[", RowBox[{"T", ",", "n"}], "]"}]], "Input", CellChangeTimes->{{3.85860869658254*^9, 3.8586086977413054`*^9}}, CellLabel-> "In[160]:=",ExpressionUUID->"254d046e-0b6e-43fc-923e-99e5e499a62e"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "1"}], "+", "n"}], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", FractionBox["1", "T"]]}]]], "Output", CellChangeTimes->{3.858608698149485*^9, 3.858608786003683*^9}, CellLabel-> "Out[160]=",ExpressionUUID->"9a64c2e9-a7e8-45d4-af5c-877e5067a6a6"] }, Open ]] }, Open ]], Cell["Heat Capacity", "Subitem", CellChangeTimes->{{3.858608830421389*^9, 3.858608834296131*^9}},ExpressionUUID->"466dbb4b-8fbc-4d3c-928c-\ 2c081f774ed8"], Cell[BoxData[ RowBox[{"\t", TemplateBox[<|"boxes" -> FormBox[ RowBox[{ SubscriptBox[ StyleBox["C", "TI"], StyleBox["V", "TI"]], "\[LongEqual]", SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"\[PartialD]", StyleBox["U", "TI"]}], RowBox[{"\[PartialD]", StyleBox["T", "TI"]}]], ")"}], RowBox[{ StyleBox["V", "TI"], ",", StyleBox["N", "TI"]}]]}], TraditionalForm], "errors" -> {}, "input" -> "C_V = \\left( \\frac{\\partial \\mathcal{U}}{\\partial T}\\right)_{V,N}", "state" -> "Boxes"|>, "TeXAssistantTemplate"]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7900904473905363`*^9, 3.7900904747801046`*^9}, 3.858603487633609*^9, 3.858604565960585*^9, 3.858604691923815*^9, 3.858604743685376*^9, 3.8586052833236303`*^9},ExpressionUUID->"0cf0956a-9ffc-4aef-8e05-\ 3ab049c65835"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ "staircaseCanonicalMolarHeatCapacity", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]_", ",", "nMax_"}], "]"}], "=", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], "[", RowBox[{ "staircaseCanonicalInternalEnergy", "[", "\"\\"", "]"}], "]"}], "[", RowBox[{"\[Tau]", ",", "nMax", ",", "n"}], "]"}], "/", "n"}], ",", RowBox[{"n", "->", "\[Infinity]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ "staircaseCanonicalMolarHeatCapacity", "[", "\"\\"", "]"}], "[", "\[Tau]_", "]"}], "=", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Derivative", "[", RowBox[{"1", ",", "0"}], "]"}], "[", RowBox[{ "staircaseCanonicalInternalEnergy", "[", "\"\\"", "]"}], "]"}], "[", RowBox[{"\[Tau]", ",", "n"}], "]"}], "/", "n"}], ",", RowBox[{"n", "->", "\[Infinity]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.858608878985091*^9, 3.8586089903539743`*^9}}, CellLabel-> "In[172]:=",ExpressionUUID->"bfcaeeab-01d5-4b15-8ccd-27b78bfe4da8"], Cell[BoxData[ RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox["1", "\[Tau]"]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", FractionBox["1", "\[Tau]"]]}], ")"}], "2"], " ", SuperscriptBox["\[Tau]", "2"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"1", "+", "nMax"}], "\[Tau]"]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "nMax"}], ")"}], "2"]}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"1", "+", "nMax"}], "\[Tau]"]]}], ")"}], "2"], " ", SuperscriptBox["\[Tau]", "2"]}]]}]], "Output", CellChangeTimes->{{3.858608915123087*^9, 3.858608933834015*^9}, { 3.858608969753779*^9, 3.858608990649035*^9}}, CellLabel-> "Out[172]=",ExpressionUUID->"9afa92be-c19b-4c83-9fd8-5b8c2029570f"], Cell[BoxData[ FractionBox[ SuperscriptBox["\[ExponentialE]", FractionBox["1", "\[Tau]"]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", FractionBox["1", "\[Tau]"]]}], ")"}], "2"], " ", SuperscriptBox["\[Tau]", "2"]}]]], "Output", CellChangeTimes->{{3.858608915123087*^9, 3.858608933834015*^9}, { 3.858608969753779*^9, 3.858608990652793*^9}}, CellLabel-> "Out[173]=",ExpressionUUID->"a57ac876-cc64-4a70-b5d0-1c54b9e2abc4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Quiet", "@", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ "staircaseCanonicalMolarHeatCapacity", "[", "\"\\"", "]"}], "[", "\[Tau]", "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ "staircaseCanonicalMolarHeatCapacity", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]", ",", "10"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", RowBox[{"\[Tau]", ",", "0", ",", "5"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", RowBox[{"1", "/", "3"}], ",", "0"}], "]"}], ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", RowBox[{"1", "/", "3"}], ",", "0"}], "]"}], ",", "Dashed", ",", "Thick"}], "]"}]}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", "Thick", ",", "16"}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"0.775", ",", "0.225"}], "}"}]}], "]"}]}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.858609013883789*^9, 3.858609107787619*^9}}, CellLabel-> "In[181]:=",ExpressionUUID->"94c2a1f9-23ef-45be-8907-ce5efc538d27"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0, NCache[ Rational[1, 3], 0.3333333333333333], 0], Thickness[Large], Opacity[ 1.], LineBox[CompressedData[" 1:eJw103c41W/4B3AjIlKchoaRyo52qZz3J5IiGlZDRAqVyigjjW8IISNFMkoS 2SEjyQpZmZllHuNMx0FI+Z3fdf1+zz/P9bruP577vt/Xs8H6xqlLfDw8PNt4 eXj+9465Zy24zeYOmef/TkWL7DEz2TP4fy9UFnvJytrjaEzyugLG040xJUEy ArLuGP35zsQpXX77Nc1bDr9l/PHwm+TnNZutNLJb+xImtQPxT0myyc5Cdd/c 1WM9bNtgjJ47zb/l1vd9h+pDN0+3h2GdQNWQyP3S/aORuqWT9uEo+uliMuIi fSDQ5q85588zuMnt2rrO1+HA1q3ZM+ygCPC3k+3bWVkHWv7YhY/LvEDl9m0O fS2MA7erpLeysqLgMzE9Iakop7n2aWstQzsaiTGmfVFLT2oWWzy2pbfFQLUl ceR8qbumtTLBT7ONw2tL4Q5fpVeafH88vk96voL45NQE34lSzdY+E6lJnddo gR1Je0ufZmLl1qscsXhMFsjbJ3TOabqlihRMtMfjRwnfot+rVpD1woYFJ169 QdTqdM+bTirk9W6lxmz7BFwpu6CxxOAgmXk+On58+1vsPttJFT9uTC7Rdh1n /XkLRJW/7rO4TA5TOkVmVSSCdUguf6OuK9lm2ZZAZtA7RFjYfAzl9yXvnlrc xTBNgpP7vdHNhc/Ii7sHFBgyyagwbedxTX1D7ij5fIs+moyBv4FCNPks8vvE yHJa1nuQlgtbZwwVkT0DncVpHimQoNY8Z4dXkQ2dDC2p2qloI+zeHchuJsue VkobE01DlSv/Q/uBHvKE5qI/o21pkJSkpUd/pZArNvYeGY1NR6Z798w60XHy c+HC5yO2Gfj22PgbReU3OcdVz8lZMhMeLrmf7tjzIJq6Zw3HMxPy+9VqF7cL wuf85hKn/kzEWCXokg4tw/VGCdsJnSzcvMb+u5q0EmbaPGJO77Ng5vroGYV3 PYiPjBy22AeMb/B7rnZeDkpK3eccnT8gfHneq/hqBUhEV/Ox2z8gzb61fKOT Gv6IfUy+eSAb8+7L5m4d3oGh/96cGH+VjUvfJbvJintRPxny+4ZADiQXGCsP zGvio+29WJZ9Do6UhimvdtRCXNdVnRsNOegfn6pounsYfgZn6MztuajOZ78Y 3qUPx5LDT69H5ILy64JNq8kJnN2xcx/zTy5MREc2CbobQTtxQ7/DhY9wMdY+ ryNmBtU1y/wYFR8hoiR820vmHFYGzqs5KOVBdzisqf2jJf79G2ujB+UBnAzP vTesMeLY7nltIg9TVfoUrROX0DhUsZFumg/F1ArbN152yDf7UHP1Uz7ukNp+ 24pdw+uaOEeaTAHi9ZwNgqZuYDIyV7k3sACGY0qrbY474bBt7WDzbAG0l69q 3Nnnghe7+qMrLxdirDsgWynTFXT+3yaFLYWIyitzW1XmATSLLksnPuHWyRih dMl7CHslV/067RMe2GyJQ/cD7NU03OfvW4TWyN/+8aPeCBCx4XhOFqHxRUmp jpIvfnW6p960+gyDA/0lbaH+8L79Vvr0/mL4uvALrfj1BO2HPrXrJxVD3UnI +UV/CJRJTSFY+QW1KVffBtuHoTFjnk+B9QU5YrXN0YXPIAFhi6VqJThS420s 6h2B/fLh+3xtStBT+ffv04sv8GQymePRVAKzCOop6UsxyO/e2Ti5uBR0siBH 2jcO/WVfUq+TS/HOxFg1qvcVdoa2XbJOKcX5mMjQ8L1vYOF2QaunvxTsM313 z91KgK8lTdpUsgwk3sns7qK36NrC23HUpwyup1XpvleTcL9GVW+bZTmqvbZc 1NFOR1JWnnzKs3J4hhjkvm/KQHOkFv/munI4zISZF+RkYpPt6SJJjQpo723c IX/2A2r4vdV4SF+xZbH7JbOOXKzS7Jb4XlmJZXU/npx99BnEpsusI38roSc+ Jq/1uBj2Iuzash1VKFs61tQX8gVFnYI+H19VYQUt83Zfcwmsb2//HeNRjTuH S0t1psqQnuHffU2tBsMpg9/rrKtAlaAG6lnVYHXkPsv4sSoo3NYjK4bXYK2O ukznzWq8OiDyenC2BukKee4HH3xD2LfAy2e/1kIq4fI7xuta3B4MZuua1yN3 US55dvQ74kRqvcR1GnGgus2OrdQKsuYd8wcWjdjl/Naq8Goreq6r7GK5NkLl ibWZblorJJsDhuveN0JQdFw+Ub0NoZHHjvotb0KTX5+Y3rYf8NrcILbQ3YQ+ 4/Bjf+Q7YIumF3SnFrT2ZxKxbd3giZ8u7A5ogSZvc1GEaA8iF63vqUlogezK 5N2a2j2o/nZZOvlHCwKOTb8LyOiBovF8/KV9rXA09Arf6f0To3YKqb942+Cp uT22UKoXV8LuFjeG/MCGd6vPmgn3g28qvvdL8g+MnfvPIEmmH1Fm1TwZZT9A fJhjNO3qR816knbQ5A+0VZ+czLDqh8q7pKqjp9vx5eER1+i8ftA/tTSWyXRA Vc082MZ8ANcpSoM56Z0QmJ/R3x4wiD6LTqHSb53IuDtq+yB2EEYdfmr1Q50Y 0t1llJQ1iL21I+6UtV04OmBR/Kh9EPxZb5ev8u1C3IgE02fDECI9N5BdLbsR auljXp8+hCXTjRe9PLph+3JdbNeXIdy98cA/+Fk3ai/s3lnZOARr697Wd7Xd +Cood1tjYgiqR2KuduzpgXtHznDEDgpKSWteaCz/iZjV3pwbmRTsDKou1lH5 Cee8idCHXyhIFHQbOnn4Jzyemxa6NlAQOPtD/YrnT5yIUUpaQqfAtDe8Mmr0 J9pXNXR2bh4G9f3yyT8lvzBzsV/dKHwYSzZ4K/Tu7UOXuubYYYsRVB8IVb+n 04eTx5JtjO1H8Oh07B6pU30QG/xkZ+gyAr6QfN1zV/uw1VIqVejxCOb+0W3b Y/qwsz3idlTOCGg9Jknf+fpxyCW03FhwFHWRCkoldf2I/Tp4eEPMKB7n7Nxm 2cmt33giIJQ4iiONBzX+UfphlSpZ0ps+iorF5kcPLPRjDVH/xrpkFEW3Q+zz tw1g+uGQc8HAKNKMZ5Mznw/gfUB9Q8WmMTxZXqv8+sIgxs8lEhJxYyjYI5Vr eH0Ql9OER8cSxzBkcQPzdwbRekKJkp0+hv1pJGOziEHc+BxuKlM8htGj5neX NgzicZYGYdYzBm0vxnf3/UPgGZONvriKipmpZbdOraKAZn3tbsJ/VGyUsl5Y 2EjB8512wn98qTA8lOOfto2CzyE0Kd0nVLwNOx0rZEDBOl3nPSVRVJxSf11V 7EVBdHjQf3uzqUiz275WhU0BSbTTxWiACutu4y/8dcMYViT2FWjQsORlv4Nj 5zBkbrRrfCfT8OHs9fW9w8Og379o/1ObBv4uX/dC3hF8KDJ9NmBAQ0JH4Q7H PSNYemS8PNSKhuE22aRf8SPI/7RbIcSXhiuN9JAC91GESbV2XW2gQSLEHQq+ o6jarzoT30xD4XFBZnj4KCK6Hoy3/KBB5LuM/s0Mbg4283Ebe2lIrT8loEAZ xfU/+bvusGhg1uS7h58YQ+PX21UrltHh+NXb+oYCFdo576U09OiQHjosOL2D CnGZJ4+8DOio5RN+70lQEf2Gnv7tBB2biSC2/xkqkiztzh41o6Oz8NmDhAAq bB5d7F1lQ8fBzMTYThYVf23KA8c96RB/Wd2lnU/Dd5UghdoUOooLHt+rqaBh j/9njah0Oq52HJM72UTDlJtQ26UsOr6ubLK3oNKQLST8eeIjHe4hnTNu6+mQ fCtDGyylo9+Huir9AR0rrktZKbbTkXVT1EjyKAOHSSHF5gt01EWR3NNMGTj4 SGR8jpeB4Yq1cVo2DEyILf32bBEDa9co0a7dZ6DuZ7NvqTAD3qU6XqW5DKxy MmxikxgwlbiffUWOiUtfSvcUKjAwl80mff7DRFb1o9NLDRhY8WtG45QwC8+i /zrrHWdATYjnwsgqFtr/TrV6n2TgorlYqvh2Fr7t/+TGNuG+s0jl0GU7FpRE JovfWzAQa2LjsqyNBdGIm8OvbjDw+s5V6lazcXSxTMXzghnYWiI843t+HJnP 3Ma9QhkoWZQk0HtxHFWng7sMnzLQFzQkG3RzHA1FeV2/njMg/eq82Zj/OBKE ktpHYhiIqjhe8bpoHPteGq59lcJA2NKdsRJybERtFg/49JUBuVPNKfaKbKzW n2kxrGIg6/nNghI1NhyXqbr1VTPQKJPWen0/GzZ8jt3/ahkQ2y4vUmvMRo2D jb5iMwOPTSXdvHzZMByJzlH/xcDDuPmTk3Q2CksPkmSmGDixNd9RhcNGSvG2 QY9pbn+lzqHWs2zo55qdb/vNQOEAtbFRYAJRtzabPZrj5rK583ia9AQqeU6E dCwwYJ2aa3D5xAREtzsFYgkTBwuuH+3InkB2dHq5nDQTYnrK9ssKJyB1bv6v qQwTPV0Uv8MlE6iqT17xWJYJt3nz6py6Ccgn1/bQuTlmQl83lDKBO5+PLiQo MCFbqaCjt5qDdUaaX/q2MsHT0kcUeXCQsi3vZLAWE95jxa89/uNge5bVVL42 E8I8MXwafhy8b3rm1H+ICYktZypyn3GQvufZgpouE5t9m3QzMjnYKqQdVKTP hN7+MsP4YQ6qjh4rjDdm4umbN+Z+pyZxV3bsb8IlJuRdLrsZK0/hdtRIeJU3 E1v29RrFbZ1CnIevebwPEzt5TqtTd09BlzVk5/mICa3Ao8P3taew+8kmIzU/ JiwSVI1TzKfw8/pjb/8AJp63TqjzBU+B0zmwVDqMCYFd90cyOFM4Gdu55mss E0NTEaYin6fxL16mdvtHJuIP7nD+WT6Nhyqz9zhcWwY1BGfUTGO9T2BAdh4T XZsEvhl1TGPI7FfWtgImmoyc9kdzphGxaVBXvoiJ4qxjsluUf+OCVvZ+dikT EQ68VMOI32jfcEWWVM+dn3LlbpjjDBx8UPe+n4nDdzemHnKbQZiXttShAe48 K3u6pu/NYLWV8mQP1/t0DPaeC5zBmXPxu5YOMaH8Vp2z8d0MTmnKrbQbZkLk 0qRdbs8MOoofZC+mMVE3dNe4Q3cWC21WH9kcJgyHQlSkpecwb+Co4b+IhTqV oVbzTXMIkFq9coFrfec9914qz+FJyZ1YFwEWjvD9apTcM4dzolmfLARZ0JJV uU06MYfNUQKK6kIs7DL/WiL0cA5GWmLCpSIsrG+dNeFQ5rj/8nb/ewkWqOXW D6rT/mD/+3/hb2VYUBP/IaVt+RdbtRqULu9lYQmmrHo4/7DJoTNnQZ8FXcbZ 33ImPERVG7VA0YKFjjIb3rOqvASjlbLJ2YGFXL8KC9kpXsKlMHG2w52FywK3 +hoa+Ag+jkRTpA8LF53u5IpG8RO05MYV+4NZULdVaThmtYio9b5oHxPBwncJ VZFbGgKEcEpMyIc4Fj6lP3ypyi9IeAdPBF9LZOEOr/KJup+CBPlfhRonldtf j8eR6zmLCRE98Y2ZH1igJG4Ij/MUIl4YiLn65LEQrrhmUYGJMPEw/vLXQ0Us hERdrrKSXULsOcRfpVfCwtnw8w2iI0sIVz0t0eFyFmYOvZ2NKxYhshgziz2q WBikaLmV+YoSjpNLxv1qWIjX3Lau3mopoaqG5eH1LKT53BK33SJGzEc9ldrW yIKvyUV9/ikx4sl9y67gZu7+e14n+9YvI+oMnW3GW1mIVHqZVq+/nHDuII7/ +8HC/ZKgSP2C5YTAK/k+sU4WDNaZvK3ZJE5ItBiPs7pYOHi96py4vzgxs8aZ J6yHhbj11pvqprj1yJjuvb9Y2FT+7rnhOQmi/reST3Ivd74tZcrNxRKE85N9 fvN93P1zFjV9UyYRvtsGjU0GWLDOmpD1DyYR0Us793oNsnDtodG8XiiJWF/+ yciP61tGOe2iT0kEbwAcgrj2m7r1JOQ5iXihqxodwXW6xuyfiBgSQZdNGkvh erZ04UdiCok4yPdcu5XrkGbRoIoqElGRkTC9cYiFqDcOdo++kQiHzMhhRa7f uDRoH6klEbeENdu2cP1xVchcbQOJOBAXmb6H656zJLuWNhIhdzTppD7XCoNr tAcGSYSfbcgZJ6635nhIJ1BIxIhc6U5Xrvf5dM9eGiERnf7JYp5cH1OIyRyj kghXxTfFPlw7XZWVZrNJRI3m4WUvuPY88N/sBw6JmKETfTFc+ywdaHWZIhFa v6Yz4rmOzHgTMDNDIiIMn+unch3/YJFt4RyJaMh8sDqL65STl7Q850nE53WK A7lc58hVSpH/kYhrPEEphVwXc+RnFxZIROX3DOcvXP8PKhOtsg== "]]}, Annotation[#, "Charting`Private`Tag$100176#1"]& ], TagBox[ {RGBColor[0, NCache[ Rational[1, 3], 0.3333333333333333], 0], Thickness[Large], Opacity[ 1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw113k0lO//P3ARJcoyLbRYi0iK6i3JPCeSFJKIJFsoKUUqihYqbQoRiURC slUIlZAk+zJ22ccy5rbNjL363p9zfr/7n/s8zn3Odc61vJ7X65Z1OG/qxMvD wxO8gIfnf+/o6w4Cao7XqDz/7ymulzG0kDmG/+9/Jfn+MjIuMIh+uyaXeCof XRAozS/jjcHfieYeaQrqZ7UvnZuSvg+/XxJfJTfYa36kd8VzdB/hr5JE7Wkb lV2zrobt46eeYPC4Jd/mS9W79lYGb5hsCsEa/p99QjcKtQYj9As5LqH48tvT fMBTavcjxz/W7LkweMnt2Lom4NzurVs/To8HhoOvierSNPp+d/3c6dAx6eco UVc711VP7L78U2rr6PtI3JmYnJDYKKe9+im9nNCNQkL00a7IpYe1820enGI1 REOlPmHgRKG3toMyjW/4VAxibQWbA5ReafPOXa3m+LyCGIc7wWtSqE3vMl/H 0YtFPU5TdDd3aSeUbHVlL4sDJ1fBJb5lVtsrRSh3oikOjQW8C6dWLqceCOkX mHj1GpGr0nwueGyirvUqNBt3iceZIjvNJUZ7qCMnouLG1N/gP6sWptghM2qB 7pWx0bk3QOT32C4bZ2qIkil1tDgBo3vlcuT1r1AdRTY/GglMRLiNY3YwXwD1 P+6iVuJoEjy8rw9uyAujLmrrUSSk36L4aBPPlZTX1OaCr5dYg2/R8+fR4mGF 99TkhIjvw++TQREVdEjv+0L1eXRRbPjqO4gzy56Nh/6kGnsY2zJ1U9BAO524 +2MdVcZSKXVIOBU/r/D5ufS0Uye0F84NNqRCQmI4LeoHg1os37l/8GUaMrzb ptcIj1GfCeY9GziVjl8PzH4xNk1RM68c8LgokYGrnlmfr7nwIIqpIcn2yYCC lmr5oiYB3DmxocCjOwPR9vH6lL0icKsRPzWh9x4Xzo7/WUVZAQtdnmUeye9h ceVuGGPBWtCyiczxZR8wJnvvmeoJOSgptR13v/gBoaKfXsWVKkI8qpR3vOkD Ul3o3+U9VDG3LPvthd0fMe8tMntp3zb03XptMvbqI5yqJdqoG3eikhM0dZ4/ ExL/iBW757WRfer6y1GXTOwvDFFe5a6DmFZXvfNVmege4xbX+u7DPaNjrBH1 LJTmjD/v33EQ7gX7nrqFZ4HRYedINzeB1bbtu0bmsmAuPLBewPsIdBNku8/Z ZcPTTPeE3jILqEiK3COKsyGkJHjZX/o4VjyaVz2n9An6/SG1Tdm2+Pt3qIEV +Algp/vsPO+AAfcmn7MTn8D9eZChY+KEmr5iedbRHGxMKT712v80ciw+lLl+ zsE1SsPUqWVnEVsW4z4snYu4AxeNArnnwYnIUu58lAvjIaVVjoc8sO9UeW/d TC50RVfWbO/yxPMd3VElznkYanv4USnjClh8U+Z59XmI/FTktbLoKlAnLJJG +4xLh6MXp0lcR8grudLY1M+46bg5Bm03sVPbeNf9gC+gR0zdjxu8jYdCjmwf zhfUPC8o1FMKQEeLd8oF+68w2t1d0BB8H7cvv5Gy1MpHgCff4uUdj9G093PT waR8bPFYfPF5dxCUKbVBWPEN5e9c3zxxCUFN+jyv4ug3ZC4rr4vKC4M4BG2W qhZgf9ltM+Hb4dBSCN0V4FiA9pI/f56efI7HnLfsq7UFsAhnmko5RSOnbXsN Z1EhWFQBtlRADLqLvqW4UQuRaG6mEtn5CtuDG5wc3hXiRHREcOjO17DxstNp 7y7E+LEu3+OX4hFgOyx1VKIIlAWcj21f3qB184JmgztFuGKpwgpwTcKNMpUD arbfUeq/+aSebhqS3n9SeBf2HT5BRlnJtemoi9Dh21DxHeemQ6xzMzOw/pTl FwnNYujurNmmYPUBZXy3VXkoP7B5kbeTRXMWVmq3iVeXlECkovGx1d2voK13 Ht3/pwQHxIYUdB7kw0VovLxo208ULR2q7Qr6hi8tAneyX/3E8uGMy111BXC4 rD4VfbUU1/YVFupxi5CWfr/trGoZ+t/1Vlc4/ARTnPnogH0ZVkXsso0b+gnF yweoG0PLsFpvi3TLhVK82i0U2ztThjTFT957bv5CyK9HzlY/yrEu3jmRiC3H 5d4n4/rWlchamEWdGaxGjFC5v5heDTRKG06PK9FB1b5mfdOmBqoX39jnudLR 7rZpx+iVGsg9drDQT6VDou5hf0VyDaaExhQStjQgOMLQ4J5oLVLudS07oNYI /w1Vy/611ULILNRwTqEZp1D7nOVRj301GbSXDW3giZvMa3tYj7Os2i/hwu2I WLi2vSy+Hj7zSf9p67aj9Jez1NvGeqgrTyY+TG/HRrP5OKdddPAs9Q/dfvs3 Bk8rpnQsaECHndrLvHWdOBPim18T1IiGToqVhWA3eLlxnd/eNuIQxdcoSbob kRalPOlFjXBv5hK1O7pRtpaiG8hpRFjYQU66fTc2JSb9NLBsgrUf9UrUp26w PtfXFEk3I8tW94mjdQ/cGEq9mWktSDrpdVD9YS+6bFoWF/5qQeGvY6duvuzF keZ7qpV9LZgUCTdNet+LneUD3ozVrbBhRH2929QLvvdvRFcGkN41wboj24cI H1nqFds2jK+TsqpM68OSyZqT/lfb8C3K+0Xrtz74nr95/0lYG8SemqmV1PTB waGTnljeBrXqdA/NiT6o7I92bdZoh8F8bXf4NgYKKZLPNUV/w1Cch3k+g4Ht gaX5ept+w/Z+XIDfNwYSBLz6Du/7jalO5fQrVQw8mmnccsbnN+RDlr9YwmLg aGdoSeTgb2T0z/9s2dAPZrIoZ66gA/4GH0WOhPZjiextxc6dXegrGb2/z2YA pbuDt1zX64LZixv/jrgM4K7lS411pl0oFHP8Y+Q5AN6gHP3jrl1wV3DctvjB AGb/sk41RXehSTK443nmAIbbzZOqebuxTtq/8YjAICoiFJUKKrrBU6WhJB09 iAeZ29VsW7rx5FBsBX/CIPbX7NH8y+iGn8CnM7/TBlG8yNpg979uVMnlidkV DOLL5SCXHLUeUMs5Ftk9g0g1m3mb8awHxx/SDhesH8Jj0XLlWLtehOqMHBaM GUKuxrosY7deTC1zDu5KGEKfzXnMX+vF+sK7cslpQ9BKpZhZhPfipq1a+vL8 IQwaWPsurepF0ALriAPtQ9D1J6q9tfqQVbyIe3glE9NckUumKxkwNj0d7n+L Cfl1Dv/+yTMw4NDQ1xzAhPHezPupagx4xwRmyD9m4k2I5cvFRgz8yMmRiIxk wnRL7M98fwYce6jewh+ZSD2tvnrTOANCu+5pSfYw4dBm9o2voh8vn6wpO6o5 jCUvus+5t/SDJq6Y6UIdxgcrt7Wd/f247eqT66k7DL7WAO+8BQPYWm10+KLR MOKb87a5awxA+Gqo4XL7YfQ3yCR1xA1A1Ik/e/zuMM7UsIJyvQfhlHI+5lLl MMSDvKEYMIhj9DeyCbXDyDskMBIaOojrruHHahqGIVQtffBC+iC2PxFaKd4x jJRKU35FxiDO9zCYB0eGMVKW4x1qMoT13F9zsUtZcP9x2+G8IhMaSb/sVu9n Qapvn8DkNiZyTLcuPXaQhXJewWQfGhNOb1L2PjVmYQMtcPz+MSZkj9xzmzVj oSUv7Gb8QyYuZ/WdCLVnYU9GwsuWUSbcZU3m5rxZEHtR2qqbM4xQhZvVhYks 5Oc+uF5WPIyHX+13+iaz4NpsKHeYnAfjmn/H9lQWfqyodbFhDmPPTTduxAcW vINapr3WsmCmkVq9/SsL3XeYK9NusrBPQE/6Wy0L7y8IH5EwIJCWX6OvNc1C RSTFO/UogX+j1ZI5syz0F6+O0XEkcKP5r6TaHxZWSyoNn71BQP6FX/YqXgK3 C/X8C7MI2MvGNX8SInBU/MbHM3IjWBG93lZfisDsx3HK17kR6LyKVMinEVje Ma1pKjiK8ssNbqU6BFQX89gNrBxF1s2lJ6r3EjhpvSxFTH0UG/+2atTvJ1Cx cNNe59OjCLOr1vpoQuCluaOnSMMo2HLfFzfZEoi95srcajGGw/DwKrhGYGuB 4HTAiTGIKk2KGvgSKFiYxN95cgxluaMC1dcJdAX2yQReGIPMmIV4/S0CUq9O WAzdH4OTyt2mzwEEIosPFcd+GYOX6VSQ2FMCyoIjtdNFY2gtaSm/EEog1+hR 56FfY/j6+fr1yjACzY2ls38axtCTKnr4RgSBlUN71KxGx2CkdYNeHE0gZOn2 l+Jy4zjX8yy4OZGAnGndO5eN41jX1c0ReUvg/bMLuQWq44j4pdO/N5lAjXQq 3U1rHJHy9l6JKQSWqSsIlZuNQ/X8Kt9D7wk8OCrh5R8wjioT/5UqeQT8YuYP c1jjMIobOCldRsBka477JvY4vjLHVAXKyfkVXgx2mBlH5ZnTRUzSeT3Mmhr+ CYQoqO5LrSQwsaHlUKrUBMI+X2tZVUvAISXLyNlkAsejNVj+TeR6arufiz46 gTWFb+L1mwn8rVQJpFtP4MjDNnXBFnK9Rl9X6LhMQNkhp/5OK4E69ZCD0n4T mH8asdvpN4E9uW4GzR8ncLtx4+GvPeR8Dii7iORNAHMiBTa9BNpbGff2FUzA L/q66F/SXvPWpZkVE/C1/mj5H4NABg7qBzMm4N94/XngAIHrNQKnSocnEPMj TVFqkIChfdHdf+MTePTpV1QK6UE/zZJzfyfAkD1B/T5EQKZEUe/AKjZgsci9 aZjAyNFex1vr2KAbxe+3YBH4MvDydo48G/U1B4QbSFsKrixW2MqGno2aVRlB IMhwoS6fARv8P6Jko0YJ2Pz+5rDrEBtGzOIzQmMEVNyu+bmbs+Gb2hLvRbr0 yURhpz05fofyiOE4AZ76LtqXq2w83zLCaJ8g62UoP/bqLTa+q8Z802UTEOSJ 5tW8x8bOWif1JNLim48VZ4WxwdGQ7XfhENgQUKufnsFGrHJUZA2XQHJ0etK5 T2wsu2x4eP0kWT+ZgYIq+WywfjYmXCK9s9ugPKmcjaQ0QzWxKQIHtIqM4/rZ OOpj3bRpmkDV4VfpdgQbjftuRZwlfeT0dVFpDhtD5cv/JpO2DttV92IBB1Sv fbkyM2S9vJPYZrWYA/OLOqKWpJ2KJp9KiHCg0Xp6WSBpt9EP5mFrOThMZ/KO kZ7gD84+Is+BzoZXs+tmCVxZe36VuDIHns7bogxIz6sbedVs5UDRzGTQg/RN g00tjzU4MKTGdT4nzW8nuMuIykG1MN0vn/SDywORQnoc0HWD6rpIP3392vqe KQdP5UyuSs0RkMi79XXfMQ7O8CfWa5KOqrGV4rfjQLNatd2UtOyA9o3vzhw4 HgoKdSGd8GdN161zHMwIev7xJa28fJZG8+TglZbfqiDS6crNsX+vcnDst0Nv DOnte7J5v97iwDrpq30q6RyL0JPX7nFQJrnraQ7p3W4exZpPODhy+YZXIenC 2yYbpsM44FRuFy8lve+F6t3sKA7c//HYV5Auey884Pmag4HPD5yqSBuXMvW3 JXNg/MBL5n+u7yhNGs/ggFF2IaSctCU3QTDjEwfReZJfSki3C90545bPwfHL ki+/kbaTO1mu8oMDh78rNLNJM3buURku58BbMyswmfSZQ9KBb+vI/ZqOiooi PeL0hzjVwsGSaQ/nR6Qv+rQZK3Rx4NffPuxNejokN72vn4Odjjc3O5H2eRsu +prgoHURn4ox6QUFl9ztOeT+2i8Z3E76buOROuk50vNaDpKklxBq2zoWcBF1 UvvFHLlfT/hEQ6MWc1Epn/m0jfTy1SMcKxEuxiv1DHNJR2ytMJdcyYXjbPiP UNLr9JOzm9Zy8fSgCY8baQVPZy8zZS74Nz74Ikl6867OIzFbuajz9rAeJc/b dh7LLcz/uNBSMlzynbTOI4P+G7pcXBQaDXYkbWBaVFhmwAVjfclZddImElrR K0y4SDybbPGXPO828Spm76y5kDX9ZBtE2unMmy2TDlz4hY/4HiV9dquU0B4X Ll6fMElbTfrqF5Gixktc5PJ80I8m6+sZfWIL7xMulguXuz4k6y860lXIKIyL K1x1ZR3S8XZ9/eEvuBiREvg3SdbvB1ZD9OYkLtSvio1Yka5amCt0rJCLGamv Y0JkvfPvuDGQzubivy0iCyhkfgjPTRXNznCh0JHh/I7MF/HCCy/1eCZx6Jz9 8B7SMkYO5m3CkzDOkTZzIfNpt5PedwGFSaS88fgQS+aXZ5hQzAnLSQzwW0rl knl47fjtq0k2kzh+R/rTNtJ+sn/M2Y6TOKrXeOV/+RmUOiJ8330SNyyPXIwg 8zblR+3VzAeTaPnPxcGKzOM+bvhRoa+TGFEbe3W3i0Dcnm0Xf3+fREUOL62x k4BtYNWT9LJJSHRQv8mTbl3P/+tI8yQsijbb55D3Qe0RD60o9iS+NdXrl5L3 Rf57Q5nNylOI6tAw8KeT5+3PwO5/W6dgEiOl976egKaB/7FajSk0yhlu/l1H ILMrN+SS3hTEXZ/+UCXvq2QRRf58uyksFXq2KZe8z8LPLWAah0+BMSzl61pC wCw3SkD25RTsR3RfeP0g149/pzw7fgrptvs/+BcTeBzlZh3+YQp9kwpVT4vI fC5vq+qsnMIZn9b6F/kELihlf7ywcBoy97MqD2aTeco44xviPo0FrpUGavFk ffvKp+z1mobUm4+5C1+T529Fe+vk9WloTU0ZN8YS2KVntPP4o2nce9jFuhhD 5s2bLWz5xGmwFdWWPo8kIOTEOZ3VPg3vSfXnD4PIfqfP16xZfwa8x+5/W0X2 M8Z9QZukpGZxMNE3eP4A+X1TH916/SyO03r7rpF928GLGtdfKM/ixffn5TP6 BPbzdtRIaMyi+AzLfJzsp3RkNl2mmMxCQLHZo5pKYIf1j4LFfrOwVGVf3K9O YC19xpzNmEVoqm+VugQB5neHm6Wpc0h6pbCf0sWCdHDzmceZc/hQJPVgRQfZ R9oYm5t9nkNH/TbLle1kPzqtqdxVOoferoQoSjMLIZvF6FO9c4hnm/XMV7Og Ff5NUXH1PAhTberDbyw8OrO2+s7dedh6aCi+jGZBVaxxna7tH9gujTSmm7Ow BFz7dvZfqGq+Fdb5Pgx9wmpKzpyHVtb0tEF0xTCaixwXWKksoJVkz4cts2Ei 616xjQx3Ac05fMeegHdDcOa/1FVVxUuzHDtA0e8bxEmPa1nCkXy0rdatM0qK g9hyalOVof1CWryAzaqMswOoFlcRuqTJT5soXr+2O64fn9P8XqjwCdCSX1Q1 mw4ycG2BsknFbwFaUT/iabIMLGm/ut8tcxGtQn/LP6Z9HxgJsqExPotpZWJP 7hd/JP/DNkouzDUXpN0c3cOVm+9BUKTzT3uZJbTb575enDbvgVXoiSrhgSU0 SrDMj/9yujG9981MTL4QzarbxpYQ70YvQ8erKECY9qE7N9XoehfitNXWVNov peXZHSWelHQi9c4lsVObl9F21pSnOmZ0IMD85EE+7jKag65/uXzyb+xoj30b UClCW3ZZK1L2eTsilF6kVh4UpQWVFIlVxbfhRkFgxMFcUdppj4ujkomtMFpj /qZsvRhN5b5uTkNOC/a4/Twudl+MFnf9xaKu3mbErHVYX8EVo91T7FrzSaAZ 678nPjM+Lk5TYB2PX7ynCUGbi5Tr8sVpPOI7E+UDGuHMXlj7S5lCc7hwro71 owEO7ydk7j+h0D4Yha/QlmzAWb8j8weCKbQk/6HNB1Y24NKRzCbhpxSaKX1R nQWlAfe4lx4HPaPQnklrfvVc2oA0zZm58GgKLSLBfm3WggbMFP5rTHhHoeUL uzMOMekIqhMOLP5JoSmY3ulifaYj8vW503d/UWjJ/YG7hXLpeO1Zpbu/nELb +5olo5xNR/bKoNnyKgqttJnq55JBR7sV5XR9A4UWOvpf/Eg8HYq9kro9vRSa eug9I/HHdGzNvCoVz6DQWunScpoP6dh1p23GaYBCE5e09LW7R4ehYnTGEJNC ixyh/szwo8PDVUZqfJxCs/Ql3lhcocNn962ZD2xyfLfQFD9POu4s7aF7cik0 mgmfZpo7HRHprx9OT1NoGYkVPQJn6Yi7ufBU3iyF1rN4/N82FzreHXbS8Zkn reYeZ+9MR6ZcyTrqX3J8OfWyJyfpyGcrzPz7R6FROySu5NvR8X/4T+LI "]]}, Annotation[#, "Charting`Private`Tag$100176#2"]& ]}, {}}, InsetBox[ TemplateBox[{"\"Infinite Staircase\"", "\"Finite Staircase\""}, "LineLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, NCache[ Rational[1, 3], 0.3333333333333333], 0], Thickness[Large]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, NCache[ Rational[1, 3], 0.3333333333333333], 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, NCache[ Rational[1, 3], 0.3333333333333333], 0], Dashing[{Small, Small}], Thickness[Large]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, NCache[ Rational[1, 3], 0.3333333333333333], 0], Dashing[{Small, Small}], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { Directive[ GrayLevel[0], Thickness[Large], 16], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", TemplateBox[<|"color" -> RGBColor[0, Rational[1, 3], 0]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", TemplateBox[<|"color" -> RGBColor[0, Rational[1, 3], 0]|>, "RGBColorSwatchTemplate"], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ TemplateBox[<|"color" -> GrayLevel[0]|>, "GrayLevelColorSwatchTemplate"], ",", RowBox[{"Thickness", "[", "Large", "]"}], ",", "16"}], "]"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.775, 0.225}], ImageScaled[{0.5, 0.5}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Molar Heat Capacity\"", TraditionalForm], None}, { FormBox["\"Temperature\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->500, LabelStyle->Directive[ GrayLevel[0], Thickness[Large], 16], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, Rational[1, 3], 0], Thickness[Large]], Line[CompressedData[" 1:eJw103c41W/4B3AjIlKchoaRyo52qZz3J5IiGlZDRAqVyigjjW8IISNFMkoS 2SEjyQpZmZllHuNMx0FI+Z3fdf1+zz/P9bruP577vt/Xs8H6xqlLfDw8PNt4 eXj+9465Zy24zeYOmef/TkWL7DEz2TP4fy9UFnvJytrjaEzyugLG040xJUEy ArLuGP35zsQpXX77Nc1bDr9l/PHwm+TnNZutNLJb+xImtQPxT0myyc5Cdd/c 1WM9bNtgjJ47zb/l1vd9h+pDN0+3h2GdQNWQyP3S/aORuqWT9uEo+uliMuIi fSDQ5q85588zuMnt2rrO1+HA1q3ZM+ygCPC3k+3bWVkHWv7YhY/LvEDl9m0O fS2MA7erpLeysqLgMzE9Iakop7n2aWstQzsaiTGmfVFLT2oWWzy2pbfFQLUl ceR8qbumtTLBT7ONw2tL4Q5fpVeafH88vk96voL45NQE34lSzdY+E6lJnddo gR1Je0ufZmLl1qscsXhMFsjbJ3TOabqlihRMtMfjRwnfot+rVpD1woYFJ169 QdTqdM+bTirk9W6lxmz7BFwpu6CxxOAgmXk+On58+1vsPttJFT9uTC7Rdh1n /XkLRJW/7rO4TA5TOkVmVSSCdUguf6OuK9lm2ZZAZtA7RFjYfAzl9yXvnlrc xTBNgpP7vdHNhc/Ii7sHFBgyyagwbedxTX1D7ij5fIs+moyBv4FCNPks8vvE yHJa1nuQlgtbZwwVkT0DncVpHimQoNY8Z4dXkQ2dDC2p2qloI+zeHchuJsue VkobE01DlSv/Q/uBHvKE5qI/o21pkJSkpUd/pZArNvYeGY1NR6Z798w60XHy c+HC5yO2Gfj22PgbReU3OcdVz8lZMhMeLrmf7tjzIJq6Zw3HMxPy+9VqF7cL wuf85hKn/kzEWCXokg4tw/VGCdsJnSzcvMb+u5q0EmbaPGJO77Ng5vroGYV3 PYiPjBy22AeMb/B7rnZeDkpK3eccnT8gfHneq/hqBUhEV/Ox2z8gzb61fKOT Gv6IfUy+eSAb8+7L5m4d3oGh/96cGH+VjUvfJbvJintRPxny+4ZADiQXGCsP zGvio+29WJZ9Do6UhimvdtRCXNdVnRsNOegfn6pounsYfgZn6MztuajOZ78Y 3qUPx5LDT69H5ILy64JNq8kJnN2xcx/zTy5MREc2CbobQTtxQ7/DhY9wMdY+ ryNmBtU1y/wYFR8hoiR820vmHFYGzqs5KOVBdzisqf2jJf79G2ujB+UBnAzP vTesMeLY7nltIg9TVfoUrROX0DhUsZFumg/F1ArbN152yDf7UHP1Uz7ukNp+ 24pdw+uaOEeaTAHi9ZwNgqZuYDIyV7k3sACGY0qrbY474bBt7WDzbAG0l69q 3Nnnghe7+qMrLxdirDsgWynTFXT+3yaFLYWIyitzW1XmATSLLksnPuHWyRih dMl7CHslV/067RMe2GyJQ/cD7NU03OfvW4TWyN/+8aPeCBCx4XhOFqHxRUmp jpIvfnW6p960+gyDA/0lbaH+8L79Vvr0/mL4uvALrfj1BO2HPrXrJxVD3UnI +UV/CJRJTSFY+QW1KVffBtuHoTFjnk+B9QU5YrXN0YXPIAFhi6VqJThS420s 6h2B/fLh+3xtStBT+ffv04sv8GQymePRVAKzCOop6UsxyO/e2Ti5uBR0siBH 2jcO/WVfUq+TS/HOxFg1qvcVdoa2XbJOKcX5mMjQ8L1vYOF2QaunvxTsM313 z91KgK8lTdpUsgwk3sns7qK36NrC23HUpwyup1XpvleTcL9GVW+bZTmqvbZc 1NFOR1JWnnzKs3J4hhjkvm/KQHOkFv/munI4zISZF+RkYpPt6SJJjQpo723c IX/2A2r4vdV4SF+xZbH7JbOOXKzS7Jb4XlmJZXU/npx99BnEpsusI38roSc+ Jq/1uBj2Iuzash1VKFs61tQX8gVFnYI+H19VYQUt83Zfcwmsb2//HeNRjTuH S0t1psqQnuHffU2tBsMpg9/rrKtAlaAG6lnVYHXkPsv4sSoo3NYjK4bXYK2O ukznzWq8OiDyenC2BukKee4HH3xD2LfAy2e/1kIq4fI7xuta3B4MZuua1yN3 US55dvQ74kRqvcR1GnGgus2OrdQKsuYd8wcWjdjl/Naq8Goreq6r7GK5NkLl ibWZblorJJsDhuveN0JQdFw+Ub0NoZHHjvotb0KTX5+Y3rYf8NrcILbQ3YQ+ 4/Bjf+Q7YIumF3SnFrT2ZxKxbd3giZ8u7A5ogSZvc1GEaA8iF63vqUlogezK 5N2a2j2o/nZZOvlHCwKOTb8LyOiBovF8/KV9rXA09Arf6f0To3YKqb942+Cp uT22UKoXV8LuFjeG/MCGd6vPmgn3g28qvvdL8g+MnfvPIEmmH1Fm1TwZZT9A fJhjNO3qR816knbQ5A+0VZ+czLDqh8q7pKqjp9vx5eER1+i8ftA/tTSWyXRA Vc082MZ8ANcpSoM56Z0QmJ/R3x4wiD6LTqHSb53IuDtq+yB2EEYdfmr1Q50Y 0t1llJQ1iL21I+6UtV04OmBR/Kh9EPxZb5ev8u1C3IgE02fDECI9N5BdLbsR auljXp8+hCXTjRe9PLph+3JdbNeXIdy98cA/+Fk3ai/s3lnZOARr697Wd7Xd +Cood1tjYgiqR2KuduzpgXtHznDEDgpKSWteaCz/iZjV3pwbmRTsDKou1lH5 Cee8idCHXyhIFHQbOnn4Jzyemxa6NlAQOPtD/YrnT5yIUUpaQqfAtDe8Mmr0 J9pXNXR2bh4G9f3yyT8lvzBzsV/dKHwYSzZ4K/Tu7UOXuubYYYsRVB8IVb+n 04eTx5JtjO1H8Oh07B6pU30QG/xkZ+gyAr6QfN1zV/uw1VIqVejxCOb+0W3b Y/qwsz3idlTOCGg9Jknf+fpxyCW03FhwFHWRCkoldf2I/Tp4eEPMKB7n7Nxm 2cmt33giIJQ4iiONBzX+UfphlSpZ0ps+iorF5kcPLPRjDVH/xrpkFEW3Q+zz tw1g+uGQc8HAKNKMZ5Mznw/gfUB9Q8WmMTxZXqv8+sIgxs8lEhJxYyjYI5Vr eH0Ql9OER8cSxzBkcQPzdwbRekKJkp0+hv1pJGOziEHc+BxuKlM8htGj5neX NgzicZYGYdYzBm0vxnf3/UPgGZONvriKipmpZbdOraKAZn3tbsJ/VGyUsl5Y 2EjB8512wn98qTA8lOOfto2CzyE0Kd0nVLwNOx0rZEDBOl3nPSVRVJxSf11V 7EVBdHjQf3uzqUiz275WhU0BSbTTxWiACutu4y/8dcMYViT2FWjQsORlv4Nj 5zBkbrRrfCfT8OHs9fW9w8Og379o/1ObBv4uX/dC3hF8KDJ9NmBAQ0JH4Q7H PSNYemS8PNSKhuE22aRf8SPI/7RbIcSXhiuN9JAC91GESbV2XW2gQSLEHQq+ o6jarzoT30xD4XFBZnj4KCK6Hoy3/KBB5LuM/s0Mbg4283Ebe2lIrT8loEAZ xfU/+bvusGhg1uS7h58YQ+PX21UrltHh+NXb+oYCFdo576U09OiQHjosOL2D CnGZJ4+8DOio5RN+70lQEf2Gnv7tBB2biSC2/xkqkiztzh41o6Oz8NmDhAAq bB5d7F1lQ8fBzMTYThYVf23KA8c96RB/Wd2lnU/Dd5UghdoUOooLHt+rqaBh j/9njah0Oq52HJM72UTDlJtQ26UsOr6ubLK3oNKQLST8eeIjHe4hnTNu6+mQ fCtDGyylo9+Huir9AR0rrktZKbbTkXVT1EjyKAOHSSHF5gt01EWR3NNMGTj4 SGR8jpeB4Yq1cVo2DEyILf32bBEDa9co0a7dZ6DuZ7NvqTAD3qU6XqW5DKxy MmxikxgwlbiffUWOiUtfSvcUKjAwl80mff7DRFb1o9NLDRhY8WtG45QwC8+i /zrrHWdATYjnwsgqFtr/TrV6n2TgorlYqvh2Fr7t/+TGNuG+s0jl0GU7FpRE JovfWzAQa2LjsqyNBdGIm8OvbjDw+s5V6lazcXSxTMXzghnYWiI843t+HJnP 3Ma9QhkoWZQk0HtxHFWng7sMnzLQFzQkG3RzHA1FeV2/njMg/eq82Zj/OBKE ktpHYhiIqjhe8bpoHPteGq59lcJA2NKdsRJybERtFg/49JUBuVPNKfaKbKzW n2kxrGIg6/nNghI1NhyXqbr1VTPQKJPWen0/GzZ8jt3/ahkQ2y4vUmvMRo2D jb5iMwOPTSXdvHzZMByJzlH/xcDDuPmTk3Q2CksPkmSmGDixNd9RhcNGSvG2 QY9pbn+lzqHWs2zo55qdb/vNQOEAtbFRYAJRtzabPZrj5rK583ia9AQqeU6E dCwwYJ2aa3D5xAREtzsFYgkTBwuuH+3InkB2dHq5nDQTYnrK9ssKJyB1bv6v qQwTPV0Uv8MlE6iqT17xWJYJt3nz6py6Ccgn1/bQuTlmQl83lDKBO5+PLiQo MCFbqaCjt5qDdUaaX/q2MsHT0kcUeXCQsi3vZLAWE95jxa89/uNge5bVVL42 E8I8MXwafhy8b3rm1H+ICYktZypyn3GQvufZgpouE5t9m3QzMjnYKqQdVKTP hN7+MsP4YQ6qjh4rjDdm4umbN+Z+pyZxV3bsb8IlJuRdLrsZK0/hdtRIeJU3 E1v29RrFbZ1CnIevebwPEzt5TqtTd09BlzVk5/mICa3Ao8P3taew+8kmIzU/ JiwSVI1TzKfw8/pjb/8AJp63TqjzBU+B0zmwVDqMCYFd90cyOFM4Gdu55mss E0NTEaYin6fxL16mdvtHJuIP7nD+WT6Nhyqz9zhcWwY1BGfUTGO9T2BAdh4T XZsEvhl1TGPI7FfWtgImmoyc9kdzphGxaVBXvoiJ4qxjsluUf+OCVvZ+dikT EQ68VMOI32jfcEWWVM+dn3LlbpjjDBx8UPe+n4nDdzemHnKbQZiXttShAe48 K3u6pu/NYLWV8mQP1/t0DPaeC5zBmXPxu5YOMaH8Vp2z8d0MTmnKrbQbZkLk 0qRdbs8MOoofZC+mMVE3dNe4Q3cWC21WH9kcJgyHQlSkpecwb+Co4b+IhTqV oVbzTXMIkFq9coFrfec9914qz+FJyZ1YFwEWjvD9apTcM4dzolmfLARZ0JJV uU06MYfNUQKK6kIs7DL/WiL0cA5GWmLCpSIsrG+dNeFQ5rj/8nb/ewkWqOXW D6rT/mD/+3/hb2VYUBP/IaVt+RdbtRqULu9lYQmmrHo4/7DJoTNnQZ8FXcbZ 33ImPERVG7VA0YKFjjIb3rOqvASjlbLJ2YGFXL8KC9kpXsKlMHG2w52FywK3 +hoa+Ag+jkRTpA8LF53u5IpG8RO05MYV+4NZULdVaThmtYio9b5oHxPBwncJ VZFbGgKEcEpMyIc4Fj6lP3ypyi9IeAdPBF9LZOEOr/KJup+CBPlfhRonldtf j8eR6zmLCRE98Y2ZH1igJG4Ij/MUIl4YiLn65LEQrrhmUYGJMPEw/vLXQ0Us hERdrrKSXULsOcRfpVfCwtnw8w2iI0sIVz0t0eFyFmYOvZ2NKxYhshgziz2q WBikaLmV+YoSjpNLxv1qWIjX3Lau3mopoaqG5eH1LKT53BK33SJGzEc9ldrW yIKvyUV9/ikx4sl9y67gZu7+e14n+9YvI+oMnW3GW1mIVHqZVq+/nHDuII7/ +8HC/ZKgSP2C5YTAK/k+sU4WDNaZvK3ZJE5ItBiPs7pYOHi96py4vzgxs8aZ J6yHhbj11pvqprj1yJjuvb9Y2FT+7rnhOQmi/reST3Ivd74tZcrNxRKE85N9 fvN93P1zFjV9UyYRvtsGjU0GWLDOmpD1DyYR0Us793oNsnDtodG8XiiJWF/+ yciP61tGOe2iT0kEbwAcgrj2m7r1JOQ5iXihqxodwXW6xuyfiBgSQZdNGkvh erZ04UdiCok4yPdcu5XrkGbRoIoqElGRkTC9cYiFqDcOdo++kQiHzMhhRa7f uDRoH6klEbeENdu2cP1xVchcbQOJOBAXmb6H656zJLuWNhIhdzTppD7XCoNr tAcGSYSfbcgZJ6635nhIJ1BIxIhc6U5Xrvf5dM9eGiERnf7JYp5cH1OIyRyj kghXxTfFPlw7XZWVZrNJRI3m4WUvuPY88N/sBw6JmKETfTFc+ywdaHWZIhFa v6Yz4rmOzHgTMDNDIiIMn+unch3/YJFt4RyJaMh8sDqL65STl7Q850nE53WK A7lc58hVSpH/kYhrPEEphVwXc+RnFxZIROX3DOcvXP8PKhOtsg== "]]}, "Charting`Private`Tag$100176#1"], Annotation[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, Rational[1, 3], 0], Dashing[{Small, Small}], Thickness[Large]], Line[CompressedData[" 1:eJw113k0lO//P3ARJcoyLbRYi0iK6i3JPCeSFJKIJFsoKUUqihYqbQoRiURC slUIlZAk+zJ22ccy5rbNjL363p9zfr/7n/s8zn3Odc61vJ7X65Z1OG/qxMvD wxO8gIfnf+/o6w4Cao7XqDz/7ymulzG0kDmG/+9/Jfn+MjIuMIh+uyaXeCof XRAozS/jjcHfieYeaQrqZ7UvnZuSvg+/XxJfJTfYa36kd8VzdB/hr5JE7Wkb lV2zrobt46eeYPC4Jd/mS9W79lYGb5hsCsEa/p99QjcKtQYj9As5LqH48tvT fMBTavcjxz/W7LkweMnt2Lom4NzurVs/To8HhoOvierSNPp+d/3c6dAx6eco UVc711VP7L78U2rr6PtI3JmYnJDYKKe9+im9nNCNQkL00a7IpYe1820enGI1 REOlPmHgRKG3toMyjW/4VAxibQWbA5ReafPOXa3m+LyCGIc7wWtSqE3vMl/H 0YtFPU5TdDd3aSeUbHVlL4sDJ1fBJb5lVtsrRSh3oikOjQW8C6dWLqceCOkX mHj1GpGr0nwueGyirvUqNBt3iceZIjvNJUZ7qCMnouLG1N/gP6sWptghM2qB 7pWx0bk3QOT32C4bZ2qIkil1tDgBo3vlcuT1r1AdRTY/GglMRLiNY3YwXwD1 P+6iVuJoEjy8rw9uyAujLmrrUSSk36L4aBPPlZTX1OaCr5dYg2/R8+fR4mGF 99TkhIjvw++TQREVdEjv+0L1eXRRbPjqO4gzy56Nh/6kGnsY2zJ1U9BAO524 +2MdVcZSKXVIOBU/r/D5ufS0Uye0F84NNqRCQmI4LeoHg1os37l/8GUaMrzb ptcIj1GfCeY9GziVjl8PzH4xNk1RM68c8LgokYGrnlmfr7nwIIqpIcn2yYCC lmr5oiYB3DmxocCjOwPR9vH6lL0icKsRPzWh9x4Xzo7/WUVZAQtdnmUeye9h ceVuGGPBWtCyiczxZR8wJnvvmeoJOSgptR13v/gBoaKfXsWVKkI8qpR3vOkD Ul3o3+U9VDG3LPvthd0fMe8tMntp3zb03XptMvbqI5yqJdqoG3eikhM0dZ4/ ExL/iBW757WRfer6y1GXTOwvDFFe5a6DmFZXvfNVmege4xbX+u7DPaNjrBH1 LJTmjD/v33EQ7gX7nrqFZ4HRYedINzeB1bbtu0bmsmAuPLBewPsIdBNku8/Z ZcPTTPeE3jILqEiK3COKsyGkJHjZX/o4VjyaVz2n9An6/SG1Tdm2+Pt3qIEV +Algp/vsPO+AAfcmn7MTn8D9eZChY+KEmr5iedbRHGxMKT712v80ciw+lLl+ zsE1SsPUqWVnEVsW4z4snYu4AxeNArnnwYnIUu58lAvjIaVVjoc8sO9UeW/d TC50RVfWbO/yxPMd3VElznkYanv4USnjClh8U+Z59XmI/FTktbLoKlAnLJJG +4xLh6MXp0lcR8grudLY1M+46bg5Bm03sVPbeNf9gC+gR0zdjxu8jYdCjmwf zhfUPC8o1FMKQEeLd8oF+68w2t1d0BB8H7cvv5Gy1MpHgCff4uUdj9G093PT waR8bPFYfPF5dxCUKbVBWPEN5e9c3zxxCUFN+jyv4ug3ZC4rr4vKC4M4BG2W qhZgf9ltM+Hb4dBSCN0V4FiA9pI/f56efI7HnLfsq7UFsAhnmko5RSOnbXsN Z1EhWFQBtlRADLqLvqW4UQuRaG6mEtn5CtuDG5wc3hXiRHREcOjO17DxstNp 7y7E+LEu3+OX4hFgOyx1VKIIlAWcj21f3qB184JmgztFuGKpwgpwTcKNMpUD arbfUeq/+aSebhqS3n9SeBf2HT5BRlnJtemoi9Dh21DxHeemQ6xzMzOw/pTl FwnNYujurNmmYPUBZXy3VXkoP7B5kbeTRXMWVmq3iVeXlECkovGx1d2voK13 Ht3/pwQHxIYUdB7kw0VovLxo208ULR2q7Qr6hi8tAneyX/3E8uGMy111BXC4 rD4VfbUU1/YVFupxi5CWfr/trGoZ+t/1Vlc4/ARTnPnogH0ZVkXsso0b+gnF yweoG0PLsFpvi3TLhVK82i0U2ztThjTFT957bv5CyK9HzlY/yrEu3jmRiC3H 5d4n4/rWlchamEWdGaxGjFC5v5heDTRKG06PK9FB1b5mfdOmBqoX39jnudLR 7rZpx+iVGsg9drDQT6VDou5hf0VyDaaExhQStjQgOMLQ4J5oLVLudS07oNYI /w1Vy/611ULILNRwTqEZp1D7nOVRj301GbSXDW3giZvMa3tYj7Os2i/hwu2I WLi2vSy+Hj7zSf9p67aj9Jez1NvGeqgrTyY+TG/HRrP5OKdddPAs9Q/dfvs3 Bk8rpnQsaECHndrLvHWdOBPim18T1IiGToqVhWA3eLlxnd/eNuIQxdcoSbob kRalPOlFjXBv5hK1O7pRtpaiG8hpRFjYQU66fTc2JSb9NLBsgrUf9UrUp26w PtfXFEk3I8tW94mjdQ/cGEq9mWktSDrpdVD9YS+6bFoWF/5qQeGvY6duvuzF keZ7qpV9LZgUCTdNet+LneUD3ozVrbBhRH2929QLvvdvRFcGkN41wboj24cI H1nqFds2jK+TsqpM68OSyZqT/lfb8C3K+0Xrtz74nr95/0lYG8SemqmV1PTB waGTnljeBrXqdA/NiT6o7I92bdZoh8F8bXf4NgYKKZLPNUV/w1Cch3k+g4Ht gaX5ept+w/Z+XIDfNwYSBLz6Du/7jalO5fQrVQw8mmnccsbnN+RDlr9YwmLg aGdoSeTgb2T0z/9s2dAPZrIoZ66gA/4GH0WOhPZjiextxc6dXegrGb2/z2YA pbuDt1zX64LZixv/jrgM4K7lS411pl0oFHP8Y+Q5AN6gHP3jrl1wV3DctvjB AGb/sk41RXehSTK443nmAIbbzZOqebuxTtq/8YjAICoiFJUKKrrBU6WhJB09 iAeZ29VsW7rx5FBsBX/CIPbX7NH8y+iGn8CnM7/TBlG8yNpg979uVMnlidkV DOLL5SCXHLUeUMs5Ftk9g0g1m3mb8awHxx/SDhesH8Jj0XLlWLtehOqMHBaM GUKuxrosY7deTC1zDu5KGEKfzXnMX+vF+sK7cslpQ9BKpZhZhPfipq1a+vL8 IQwaWPsurepF0ALriAPtQ9D1J6q9tfqQVbyIe3glE9NckUumKxkwNj0d7n+L Cfl1Dv/+yTMw4NDQ1xzAhPHezPupagx4xwRmyD9m4k2I5cvFRgz8yMmRiIxk wnRL7M98fwYce6jewh+ZSD2tvnrTOANCu+5pSfYw4dBm9o2voh8vn6wpO6o5 jCUvus+5t/SDJq6Y6UIdxgcrt7Wd/f247eqT66k7DL7WAO+8BQPYWm10+KLR MOKb87a5awxA+Gqo4XL7YfQ3yCR1xA1A1Ik/e/zuMM7UsIJyvQfhlHI+5lLl MMSDvKEYMIhj9DeyCbXDyDskMBIaOojrruHHahqGIVQtffBC+iC2PxFaKd4x jJRKU35FxiDO9zCYB0eGMVKW4x1qMoT13F9zsUtZcP9x2+G8IhMaSb/sVu9n Qapvn8DkNiZyTLcuPXaQhXJewWQfGhNOb1L2PjVmYQMtcPz+MSZkj9xzmzVj oSUv7Gb8QyYuZ/WdCLVnYU9GwsuWUSbcZU3m5rxZEHtR2qqbM4xQhZvVhYks 5Oc+uF5WPIyHX+13+iaz4NpsKHeYnAfjmn/H9lQWfqyodbFhDmPPTTduxAcW vINapr3WsmCmkVq9/SsL3XeYK9NusrBPQE/6Wy0L7y8IH5EwIJCWX6OvNc1C RSTFO/UogX+j1ZI5syz0F6+O0XEkcKP5r6TaHxZWSyoNn71BQP6FX/YqXgK3 C/X8C7MI2MvGNX8SInBU/MbHM3IjWBG93lZfisDsx3HK17kR6LyKVMinEVje Ma1pKjiK8ssNbqU6BFQX89gNrBxF1s2lJ6r3EjhpvSxFTH0UG/+2atTvJ1Cx cNNe59OjCLOr1vpoQuCluaOnSMMo2HLfFzfZEoi95srcajGGw/DwKrhGYGuB 4HTAiTGIKk2KGvgSKFiYxN95cgxluaMC1dcJdAX2yQReGIPMmIV4/S0CUq9O WAzdH4OTyt2mzwEEIosPFcd+GYOX6VSQ2FMCyoIjtdNFY2gtaSm/EEog1+hR 56FfY/j6+fr1yjACzY2ls38axtCTKnr4RgSBlUN71KxGx2CkdYNeHE0gZOn2 l+Jy4zjX8yy4OZGAnGndO5eN41jX1c0ReUvg/bMLuQWq44j4pdO/N5lAjXQq 3U1rHJHy9l6JKQSWqSsIlZuNQ/X8Kt9D7wk8OCrh5R8wjioT/5UqeQT8YuYP c1jjMIobOCldRsBka477JvY4vjLHVAXKyfkVXgx2mBlH5ZnTRUzSeT3Mmhr+ CYQoqO5LrSQwsaHlUKrUBMI+X2tZVUvAISXLyNlkAsejNVj+TeR6arufiz46 gTWFb+L1mwn8rVQJpFtP4MjDNnXBFnK9Rl9X6LhMQNkhp/5OK4E69ZCD0n4T mH8asdvpN4E9uW4GzR8ncLtx4+GvPeR8Dii7iORNAHMiBTa9BNpbGff2FUzA L/q66F/SXvPWpZkVE/C1/mj5H4NABg7qBzMm4N94/XngAIHrNQKnSocnEPMj TVFqkIChfdHdf+MTePTpV1QK6UE/zZJzfyfAkD1B/T5EQKZEUe/AKjZgsci9 aZjAyNFex1vr2KAbxe+3YBH4MvDydo48G/U1B4QbSFsKrixW2MqGno2aVRlB IMhwoS6fARv8P6Jko0YJ2Pz+5rDrEBtGzOIzQmMEVNyu+bmbs+Gb2hLvRbr0 yURhpz05fofyiOE4AZ76LtqXq2w83zLCaJ8g62UoP/bqLTa+q8Z802UTEOSJ 5tW8x8bOWif1JNLim48VZ4WxwdGQ7XfhENgQUKufnsFGrHJUZA2XQHJ0etK5 T2wsu2x4eP0kWT+ZgYIq+WywfjYmXCK9s9ugPKmcjaQ0QzWxKQIHtIqM4/rZ OOpj3bRpmkDV4VfpdgQbjftuRZwlfeT0dVFpDhtD5cv/JpO2DttV92IBB1Sv fbkyM2S9vJPYZrWYA/OLOqKWpJ2KJp9KiHCg0Xp6WSBpt9EP5mFrOThMZ/KO kZ7gD84+Is+BzoZXs+tmCVxZe36VuDIHns7bogxIz6sbedVs5UDRzGTQg/RN g00tjzU4MKTGdT4nzW8nuMuIykG1MN0vn/SDywORQnoc0HWD6rpIP3392vqe KQdP5UyuSs0RkMi79XXfMQ7O8CfWa5KOqrGV4rfjQLNatd2UtOyA9o3vzhw4 HgoKdSGd8GdN161zHMwIev7xJa28fJZG8+TglZbfqiDS6crNsX+vcnDst0Nv DOnte7J5v97iwDrpq30q6RyL0JPX7nFQJrnraQ7p3W4exZpPODhy+YZXIenC 2yYbpsM44FRuFy8lve+F6t3sKA7c//HYV5Auey884Pmag4HPD5yqSBuXMvW3 JXNg/MBL5n+u7yhNGs/ggFF2IaSctCU3QTDjEwfReZJfSki3C90545bPwfHL ki+/kbaTO1mu8oMDh78rNLNJM3buURku58BbMyswmfSZQ9KBb+vI/ZqOiooi PeL0hzjVwsGSaQ/nR6Qv+rQZK3Rx4NffPuxNejokN72vn4Odjjc3O5H2eRsu +prgoHURn4ox6QUFl9ztOeT+2i8Z3E76buOROuk50vNaDpKklxBq2zoWcBF1 UvvFHLlfT/hEQ6MWc1Epn/m0jfTy1SMcKxEuxiv1DHNJR2ytMJdcyYXjbPiP UNLr9JOzm9Zy8fSgCY8baQVPZy8zZS74Nz74Ikl6867OIzFbuajz9rAeJc/b dh7LLcz/uNBSMlzynbTOI4P+G7pcXBQaDXYkbWBaVFhmwAVjfclZddImElrR K0y4SDybbPGXPO828Spm76y5kDX9ZBtE2unMmy2TDlz4hY/4HiV9dquU0B4X Ll6fMElbTfrqF5Gixktc5PJ80I8m6+sZfWIL7xMulguXuz4k6y860lXIKIyL K1x1ZR3S8XZ9/eEvuBiREvg3SdbvB1ZD9OYkLtSvio1Yka5amCt0rJCLGamv Y0JkvfPvuDGQzubivy0iCyhkfgjPTRXNznCh0JHh/I7MF/HCCy/1eCZx6Jz9 8B7SMkYO5m3CkzDOkTZzIfNpt5PedwGFSaS88fgQS+aXZ5hQzAnLSQzwW0rl knl47fjtq0k2kzh+R/rTNtJ+sn/M2Y6TOKrXeOV/+RmUOiJ8330SNyyPXIwg 8zblR+3VzAeTaPnPxcGKzOM+bvhRoa+TGFEbe3W3i0Dcnm0Xf3+fREUOL62x k4BtYNWT9LJJSHRQv8mTbl3P/+tI8yQsijbb55D3Qe0RD60o9iS+NdXrl5L3 Rf57Q5nNylOI6tAw8KeT5+3PwO5/W6dgEiOl976egKaB/7FajSk0yhlu/l1H ILMrN+SS3hTEXZ/+UCXvq2QRRf58uyksFXq2KZe8z8LPLWAah0+BMSzl61pC wCw3SkD25RTsR3RfeP0g149/pzw7fgrptvs/+BcTeBzlZh3+YQp9kwpVT4vI fC5vq+qsnMIZn9b6F/kELihlf7ywcBoy97MqD2aTeco44xviPo0FrpUGavFk ffvKp+z1mobUm4+5C1+T529Fe+vk9WloTU0ZN8YS2KVntPP4o2nce9jFuhhD 5s2bLWz5xGmwFdWWPo8kIOTEOZ3VPg3vSfXnD4PIfqfP16xZfwa8x+5/W0X2 M8Z9QZukpGZxMNE3eP4A+X1TH916/SyO03r7rpF928GLGtdfKM/ixffn5TP6 BPbzdtRIaMyi+AzLfJzsp3RkNl2mmMxCQLHZo5pKYIf1j4LFfrOwVGVf3K9O YC19xpzNmEVoqm+VugQB5neHm6Wpc0h6pbCf0sWCdHDzmceZc/hQJPVgRQfZ R9oYm5t9nkNH/TbLle1kPzqtqdxVOoferoQoSjMLIZvF6FO9c4hnm/XMV7Og Ff5NUXH1PAhTberDbyw8OrO2+s7dedh6aCi+jGZBVaxxna7tH9gujTSmm7Ow BFz7dvZfqGq+Fdb5Pgx9wmpKzpyHVtb0tEF0xTCaixwXWKksoJVkz4cts2Ei 616xjQx3Ac05fMeegHdDcOa/1FVVxUuzHDtA0e8bxEmPa1nCkXy0rdatM0qK g9hyalOVof1CWryAzaqMswOoFlcRuqTJT5soXr+2O64fn9P8XqjwCdCSX1Q1 mw4ycG2BsknFbwFaUT/iabIMLGm/ut8tcxGtQn/LP6Z9HxgJsqExPotpZWJP 7hd/JP/DNkouzDUXpN0c3cOVm+9BUKTzT3uZJbTb575enDbvgVXoiSrhgSU0 SrDMj/9yujG9981MTL4QzarbxpYQ70YvQ8erKECY9qE7N9XoehfitNXWVNov peXZHSWelHQi9c4lsVObl9F21pSnOmZ0IMD85EE+7jKag65/uXzyb+xoj30b UClCW3ZZK1L2eTsilF6kVh4UpQWVFIlVxbfhRkFgxMFcUdppj4ujkomtMFpj /qZsvRhN5b5uTkNOC/a4/Twudl+MFnf9xaKu3mbErHVYX8EVo91T7FrzSaAZ 678nPjM+Lk5TYB2PX7ynCUGbi5Tr8sVpPOI7E+UDGuHMXlj7S5lCc7hwro71 owEO7ydk7j+h0D4Yha/QlmzAWb8j8weCKbQk/6HNB1Y24NKRzCbhpxSaKX1R nQWlAfe4lx4HPaPQnklrfvVc2oA0zZm58GgKLSLBfm3WggbMFP5rTHhHoeUL uzMOMekIqhMOLP5JoSmY3ulifaYj8vW503d/UWjJ/YG7hXLpeO1Zpbu/nELb +5olo5xNR/bKoNnyKgqttJnq55JBR7sV5XR9A4UWOvpf/Eg8HYq9kro9vRSa eug9I/HHdGzNvCoVz6DQWunScpoP6dh1p23GaYBCE5e09LW7R4ehYnTGEJNC ixyh/szwo8PDVUZqfJxCs/Ql3lhcocNn962ZD2xyfLfQFD9POu4s7aF7cik0 mgmfZpo7HRHprx9OT1NoGYkVPQJn6Yi7ufBU3iyF1rN4/N82FzreHXbS8Zkn reYeZ+9MR6ZcyTrqX3J8OfWyJyfpyGcrzPz7R6FROySu5NvR8X/4T+LI "]]}, "Charting`Private`Tag$100176#2"]}}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{"Molar Heat Capacity", None}, {"Temperature", None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> Directive[ GrayLevel[0], Thickness[Large], 16], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{Automatic, Automatic}, { Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ LineLegend[{ Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, Rational[1, 3], 0], Thickness[Large]], Directive[ Opacity[1.], AbsoluteThickness[1.6], RGBColor[0, Rational[1, 3], 0], Dashing[{Small, Small}], Thickness[Large]]}, {"Infinite Staircase", "Finite Staircase"}, LegendMarkers -> None, LabelStyle -> Directive[ GrayLevel[0], Thickness[Large], 16], LegendLayout -> "Column"]], {0.775, 0.225}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{{3.858609051464327*^9, 3.858609107991404*^9}}, CellLabel-> "Out[181]=",ExpressionUUID->"9e69f75b-2f9c-40dc-928a-8178cbfda9a8"] }, Open ]], Cell["\<\ In addition to the vanishing molar heat capacity as \[CapitalTau]\[Rule]0, \ there\[CloseCurlyQuote]s another really important feature to this plot\ \>", "Item", CellChangeTimes->{{3.85860911434522*^9, 3.8586091244660892`*^9}},ExpressionUUID->"18d9ddb8-f2a8-4b87-bd7a-\ 74b81b793c71"], Cell[CellGroupData[{ Cell["\<\ The molar heat capacity for the finite staircase also vanishes at T\[Rule]\ \[Infinity]\ \>", "Item", CellChangeTimes->{{3.85860911434522*^9, 3.8586091520810738`*^9}},ExpressionUUID->"16e6c953-72ff-4406-acc7-\ e5fe687dbbac"], Cell["\<\ This is true for all systems with a saturating number of states as a function \ of energy\ \>", "Subitem", CellChangeTimes->{{3.85860911434522*^9, 3.858609156978916*^9}},ExpressionUUID->"d910f2b1-fbb9-48d1-9bd1-\ 43c506b31ed6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Negative Temperatures (?)", "Subsection", CellChangeTimes->{{3.8586091756662197`*^9, 3.858609184459639*^9}},ExpressionUUID->"b3eb4c43-c354-4c38-9f57-\ 7a21008e3ce3"], Cell[CellGroupData[{ Cell["\<\ Because our system is finite, there is a limited amount of energy that can be \ transferred to the system \ \>", "Item", CellChangeTimes->{{3.858609192104208*^9, 3.858609197296332*^9}},ExpressionUUID->"892a7bb7-1139-455a-babb-\ a21c85601d21"], Cell["\<\ As more and more energy gets transferred, there is a point at which the \ number of possible states starts decreasing\ \>", "Subitem", CellChangeTimes->{{3.858609192104208*^9, 3.858609204179207*^9}},ExpressionUUID->"e1a19a4b-a1f9-402d-b6a7-\ d016b052ed5f"] }, Open ]], Cell["Since the temperature is given by ", "Item", CellChangeTimes->{{3.858609231349689*^9, 3.858609243739793*^9}},ExpressionUUID->"affe6b97-7f1b-4ad5-9675-\ 9eac5cf7b414"], Cell[BoxData[ RowBox[{"\t", TemplateBox[<|"boxes" -> FormBox[ RowBox[{ FractionBox["1", StyleBox["T", "TI"]], "\[LongEqual]", SubscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"\[PartialD]", StyleBox["S", "TI"]}], RowBox[{"\[PartialD]", StyleBox["U", "TI"]}]], ")"}], RowBox[{ StyleBox["V", "TI"], ",", StyleBox["N", "TI"]}]]}], TraditionalForm], "errors" -> {}, "input" -> "\\frac{1}{T} = \\left(\\frac{\\partial \\mathcal{S}}{\\partial \ \\mathcal{U}} \\right)_{V,N}", "state" -> "Boxes"|>, "TeXAssistantTemplate"]}]], "DisplayFormulaNumbered", CellChangeTimes->{{3.790080402823197*^9, 3.7900804168223686`*^9}, { 3.7900806419233956`*^9, 3.790080694635709*^9}, {3.790081288597702*^9, 3.7900813256815257`*^9}, {3.7900814539076867`*^9, 3.790081456880927*^9}, { 3.7900815711277094`*^9, 3.7900815962495947`*^9}, {3.7900816594065957`*^9, 3.790081678743142*^9}, {3.790086741973301*^9, 3.7900868193074813`*^9}, { 3.7900904473905363`*^9, 3.7900904747801046`*^9}, 3.858603487633609*^9, 3.858604565960585*^9, 3.858604691923815*^9, 3.858604743685376*^9},ExpressionUUID->"99d30cea-99f4-4f49-8498-\ 176ed486b177"], Cell["\<\ We will plot the entropy vs the internal energy parametrically\ \>", "Subitem", CellChangeTimes->{{3.858609249514698*^9, 3.858609296048066*^9}},ExpressionUUID->"44c62cce-1189-47f9-9419-\ 661893227e8c"], Cell[CellGroupData[{ Cell["If the slope is negative, so will the temperature", "Subitem", CellChangeTimes->{{3.858609249514698*^9, 3.858609312332984*^9}},ExpressionUUID->"4f0fa8e3-ccc3-4bfb-aed0-\ c27485f7a5c3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ "staircaseCanonicalInternalEnergy", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]", ",", "10", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"staircaseCanonicalEntropy", "[", "\"\\"", "]"}], "[", RowBox[{"\[Tau]", ",", "10", ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\[Tau]", ",", RowBox[{"-", "1000"}], ",", "1000"}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "GoldenRatio"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", "Thick"}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "500"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", "Thick", ",", "18"}], "]"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.858610435295334*^9, 3.858610437905747*^9}}, CellLabel-> "In[228]:=",ExpressionUUID->"ae301b9c-04d8-4fdb-b0cf-e864ff5a7200"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {GrayLevel[0], Thickness[Large], Opacity[1.], FaceForm[Opacity[0.3]], LineBox[CompressedData[" 1:eJwd1Hk8lNsbAPDxDumXbeS8Yyk72SJpQco8oYgQibohUre6dS1Fimh0LWVX KmsKWYpMpJKUFttNmiyXS5bssiRbfqLueeeP+czn+3mec55znvPMKB72sj9K 0Gi0W/hDfbOFdnptW4Hgg/AJqc86dKApE4IsbAvDJEnKbH+jDMD+JlDD5MXP a300xRYJUCZ5fixkZIlt+7pVnOe+qTVO2MIF2kK89QIS7j7YzXIxSz1U3K9V vABbpj+hizL7xoLxAParvIqXPEvoFsgLITBbupbB8zalXndsV+G9Abz1hpV/ ZWIL6Crt4/nPiu5R7B3hExq8/NN+F/WFcX6d1WI35VKPiyHYC2viGnh2Xfu+ BRtC1iTzPJ6Rpi6C4Lm0owdlmuKVqSDsO90Bmjx3NcR3Y5/XKB7qotyx5w1L FEGiHiObMtthXPoBtuABUwde/L6crKIYAk/FmJ+dVLyse+gqdlHrxlye8xcV mQwE/k8cWTxHh+YlYfNf5zR/4t2//M06cQSGGeL7KNMqD840YLNn39V1UDay 2+y5EsGlLX8ZUma/PjalJoFgsPhHZDvlZZcYfdh9lk7N/2KDmMdwHkKgz/lb iDJNx/VhAonAPXA5s42KX+ZuCGbi/Gq2eCtlmkjEDUkE38diG1qo/BznW1VS CK6vlHNrxq5Ua2QuSSOQlWxvbqTyQ7o8zqxCEDlY28Ol3BMyPL8an6/ZobyB Ok9jlESWHIJHIkZQz5sv0eQCBQSZ918vq6P2K7fubFFC8Flt3q2K8uHC4nBV BOeufrhUid2jxfD1UUcgWq/Z9IwyIhNqtBDoij2uL6H2Wz1JI3URSAnKjuZT 9d03E5MbEXT8ep2bTuXzjxj7GCG4UPDTLQr79rULzUmmCHbNOgb4UPUkFk1D rRE84JRdsKbym1PKSrHP+r99vhvbLSjIcwh7o6frDyvqPilzN61sEIyLr/e1 xFZIdfjOtEWgkz241xybk9qz/9keBFkfUC1Q5+uOPq/vgCBG68ERPd77Z65b 54xgp6kKiFH1c2bY3tj699NWilJxd7SuGNvcN6FXGJsR15a92QVBkHNTwAps 760Phc1cEfgZjkQJUOv/NIvwcUPQtPeyxg9tOkzS3wbKHkWQOnaH7MeGMi/t OS8E8t+Ure5h00q0Ch28ERhbKRjmYXu/GKkvwXaabFXMwe4huVNnfBBUS6zv u0Ptd3vzssXTCNTPhygnY+8pFWlYexZBI8m6Ek6tX+ZtJReE4ERsu6UzNse/ cH8idkLbi98PUPXmvHcIBeP7JR4PcKQcGlHzA9vTK/byHmzdqp+lQ2wEmsnx W82w3YJVb42HIsj1L+vXwGaYuwnXxCAIftcuNb4W1zfxuXMyFsFhfeGIYWyu 4KbH4nEIxjr1B/qw3ex/nDkcj4Cubevdjq3gJt3OvIYgbW/T02oqrtV1lpuE QFv2XE0q9u3Vp3If38X9Gg0jNmEzVNKybuYgeNd46pE2dqV+pkBgLgJu7T6L NdicjFalXfl4Pn67LiGJ3dbzoI9eiH9/Cekq37Xw+xmb71t6hGD/ppRwDjZH 8Wy6Sw2Cfevz7/FR7rycElOLoMVjed2sJt4/3dfoVR0Ch+/xnBFs9edRBRvq 8Xx7VrdwsZfPaWwz/4ggJYvfLg17+IyoxpZPCIp/t7q7Bvtcpb1pYSfu3870 dCY228bJXLUbv9clSbNl2LW7a3xUenF/2ouu9mvgfneYGR0exv+v6rYzadh5 yqyw2VkELptSPRfUcX9jVfLefkfA0TOV6MceHl68m/J/BKejDQzeY3Pmw7kH lxBM5idPp2PH27j46wuQ0NB2t9wA2+CUgHkQk4SKRK0Dtmp4f5pr5BcgwTr5 q1+jCp6nYmN+UzMSXjgEeqRhG1gYsgvNSaiaME4+gp0YaPLhmQ0JvQo6CV+V 6SD8rc6n1oWEQ1n6buNKdBjLuUg4sUmIncgN9FHA75tfN6QSRkJjYIUtwjbI GG0VjyTB8qhLYok8HdJaDuZaJ5Kw2GHHGZTD8QtVtqfvkbAiWn67tCwdZvqa dLq6SDAv8hc+LUWHtb+xtR0HSfDLneCrkMTzoCF4bsUECdFbTax+MXH8fX3e hp8kVAe9ij1G0mH3iSMNA4pMUNmfNF0ijuMjI35pWkxwuqHXk8PA9Te0ZBds YsLH6mqhKDH8HnAgbNySCWnGitlKInRwuMacuhrABFeL6YXjgnR4Prk5vDSC CRFeOpcqBehQXTXKf/Q6E0S03rcu0vH8NnLc44qZwC+vZyBDo4Pclelf22eZ QDvOlrg2R8CeZhPveUFJsO9UC6yYJiBAVyj+1ipJUB0yEeVMEvA4MiuEf6ck NAyWXm8ZIeCfNob903xJsDk01rOjjYAbCVu57VWS8IjwfTPVSECwxPYvD/sk Ie5T/W759wT8/cXys5KqFJicfNZa/JKAP8YnDVfvkoLjVu37J58QwIhxqY30 kgL//jmrA0UERDpXaja9lQJnM7kerVQCnEu8PCxnpGD2oeGCWRwBJjfGOnzV pEFGihEyEEKACzn6qSBFGsJb0rkP3Qk4VUAfeNchDb4Msdt6NgQkTg3U1ijJ wPaiva8+6ROwsTB+LrpKBgz+eVJrSSMgj3msxUJ5FTyrnlQ538kHAQpl3MbI VZA34xEa/YgPXn7c4nRzaRVER82sJEP5wPHfAsutQathZ7lst74lH3CnXnzO FpIFs8aBhUh+PnAer575ek8WolXKlQeKaGCpWBP+h4scBC69Dpa1oIFRpF3B SVV5yAzTnPGO+8Wy0/ReHkoowNUwj2HC9icrs+HLxKtgBTi1Lpep/XyRlTQ4 uLRRUBGcRcue9r5YYG21nhZST1GEI/fWd1QazLOSc4PaOjYoQZJml0gYMcsK 7ZIWC2hQAob2t/mDvZMslk75r1F3ZfCW3TFk+HmQNWdXR7/boQxQR0DLUy4r qTZeJmREGWiHln/4n30N6z+oBelj "]], LineBox[CompressedData[" 1:eJwd1Hk01OsfB/Dx/ZadmEeDSFxLRK6S7Vbmo1L9om5ZEpUmuuHeLJfIloZK RMietMqW9JOlVCqtUhikInuWCtmXseU+3+8fc+a8zvvzfj7Pc+acUXHytPqL YDAYafhDfVe6GXn2hGSxjTjCPBGrCvbdu7EZ1ko1bGJV4oIbu4vtlH3JZUdQ B/u2nxAzBw2xp8v+tKmS6WMLmzp+aZweY4vK97fZto+wrRP5rBi3KbaMY455 QuQku1igtPiDwgxbYs2BdJveGfYz/v7AM+vn2LIO67Qqu36xUzesk5D6Mc82 KIbx/5sKwHkusFRNF9gJkv2wr5mAejNRV8+VDHiXFKr2wGIRvHMwmHNOYoDf bCjfLXExsF/YnmkaZMAnU0Jn2SNBuKTtv2KnsQD4GD5vO5YvDOORIhECOQJw I8u87UiYCEy8VuprqhcAlxOa3sRmUeBIdPb+MSUAGnGSKwUvioGTTUyOyhoC rEZaCoJ/EwcTQ6FPdtsJyFIt8KnPFoeIgou18QcIWMs6dd8nQQKKJvfy+04S UCrsHsOflQA4Lj1QFkWAFzGg23pAErZmfCQEUwm4fepzcqXoEqhRr/equ0NA tOtWq+dICjxqArf8856AG3GzyxT0pOCebshGoo6AgCtN2T93SAFPfLRf7RMB efF9pE+wFFgWhJzb0E6Anm2k+K06KZDt715e/JMAe6V8Xmi3FPTHq2mUDBOg eFw49NykFLxolA8PGyMgXpsVYyYnDXLHg+sT+ASkPpGVL7GWhoH9SzPHGCSI /iOVrHxYGlR7L7s8JUh4J2wqIeIhDf+2vR/xWESC4q7xGPdwaVDw3LQQIUTC 8YxGu7WF0pB2zC6gWpyERXuHGJ3T0hCe4t2XJkNCTk9IUIYAEx78Ne/nvJSE rBDihrYIE2xCQvVVWSQ4zNxtSZZlwhNnufXnZUngmo3qy65lgv7NW9eJZSRo HtbW3nuICc2pLTrfl5PwamT/MOcIE4qkDw7uViLB0tBrxNKNCcZDeWMl2OVH fg1VeTNBMSA80HcFCYy/C9dFnGFCl5x6RY0yCRuuXDPIzGDC3m/mBwVVSRC/ vJ0XkM0E/9zOtu3Yw9/zlU3ymFAiOmMUiV2cF3stsJAJYZMd1aQaCemFun7L yvG+imsfvmLnRKXrmjcy4WzSEl87DXz+KYOzIs1MaErwZXOxF/mffVbeyoRX 0bzv2dhvZXItRbqYoOSiRoxjV2mXIfGfTPBItnfgrsT7EwJi5Bdw3yP5gZcm Ca4NPL6eAIKR7aWhUdhylVrlbBLBbRYnKxO71JJtvEUIwZ5STZlGbI5Yr/6g JIJ8g3fChlokpK7xahpQRHA/Zt9CE3bjSdmp6HUI5vdcCmtchc+7l2hUYYCg ot2I343NLWgqmjdEcLX56roRbE3vtbcOmSC4aaMjJKJNwnWNjaunNyJIVu8x NMSOUKmcid2KYJqfXX4OWypsMSfTFkHeZVmGpA6+34UGfuheBFmOjtZLsYVV TtsfsEPQPHn0vCL28FX3RFF7BMTz2cxV2HrfHjXsPIBgsY/qTXNsRk+Jsp8T gsePuQonsGvnWQtB7gie2GoNvcPu2FDapeOBgJtydo6HXbDkyIoW7KL196ca sK97Xygy8ELw5tTP0jZqnzx/8KM3gqcbij1HqP5jmwO8E3j+8MthtJqE3Sb2 b99wEXipzAn8ic0RNI9PjEXwxd/sYTZ2Lfvc+Ay2UVnbVC621G6BK5w4BD8O O+ndofLB42+1LiJwjjweW4CtLFb2tCgeQbngUuGH2GBj/DQ7CcH21pvjb7E7 hiuDFS4j6LBzMeih8tJL107eQnBqRbs9Uxe/x4aYLsP+g88JQtjX/SZmZrFn f0WlyWBzzlrM+mcimDCZqmNh19ovMDyzEDjo1akrYA93vCq2yEEQdvv1UVWq 3y0oVJWH31vq7rMWO+7h9/bFhQhYV8MKLag8S0u1qgyB0/D1Gm9s5XKeXOAr BPGRF1SjsBlj1psD3iE4UhHLSscuZ7+yeMZD4JrXEppLzbN0/uV9QNDrX91T iA3/y/QL/YxgnHuv9BHVj349l/AFgePi2uJyyqc/a0q0IlDK/Vv3NTVPhoc6 tyMwcxdTqcTm/u4rt6sTwWh0iFYV5dj3ijNfEcisP51TQ/XTgh6ldiMwdXIZ qaX6O4MGxnoQuH91eF5P2cvi323f8O9vuc2rgeoXJhcc/Y5A9uLW9x+pfsE8 0/UHgpMqYeOfqPeIcKNc+hBkHyqTbKTm05s9NvUjqH/qOkmZsfW3FsUBBOGi WxqaqDx0lPsVW917NvELlb9IOXfhJ4Iu42SDZip/MDZqMoggKeJBHWVGRPEQ D1vnA8+mhcrzX+bbDyHw9bKtpO3EuduDHWjLX99KOcZwG2cYQdo3gyu09zmv bsVWV9w0T7ul1WP3CAKB7t+t26jzjVb2l2C3xRSlU+Z26k0uH8X7+mZ66Dxd ujMAm3FnQq2dyt2Vg3nYTw6pONL+Mnh/5RgC5uaYlHb6vcumfbHnFowq6Vyj seQNdtBp/VnaG5XOSI7j/497SRod1HzN5Ns92NXbdu/qoO+/JjgFu+N1lB+d iwbc/ohtviLjEp0LsVRYEwjs1Y2f0M51zLLCzh3+2kpbOKwyAls3mDtDuzrl xnlsvseJWdruYgHR2Jld7nO06/nqcdgHTe1/0fti5P1TsLO+axGdlOMfzmdi 73AoEqHMDUt6n40dZ3VTlPZETWoutkNVnBht8siafGyPXcck6H6F+P5iqh+2 XJq20Q/V+9jVl4WZtF+uGnhA3d90jDb3TVXgY+yLSypkaGvomz3Bzt9csJSe 95wXfIbdu5DKovP7q6rKsS03h8rSeVJp3AtsFzE3Ocr/AfOkBJc= "]]}, Annotation[#, "Charting`Private`Tag$414681#1"]& ], {}}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0.18219111069696936`}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Entropy\"", TraditionalForm], None}, { FormBox["\"Internal Energy\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, ImageSize->500, LabelStyle->Directive[ GrayLevel[0], Thickness[Large], 18], Method->{ "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> None}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.05], Scaled[0.05]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.858610438482439*^9}, CellLabel-> "Out[228]=",ExpressionUUID->"4b3a12b4-6bfb-4f6c-a2a4-209812851aab"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{720., 850.5}, WindowMargins->{{Automatic, 0}, {0, Automatic}}, PrivateNotebookOptions->{"CloudPublishPath"->"/Published/3029-SP22__L19__\ statistical-mechanics-ensemble__04-11-22.nb"}, FrontEndVersion->"13.0 for Linux x86 (64-bit) (December 2, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"62e709fe-617c-41e6-b664-3616a398b2f9" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "eq:van-der-waals"->{ Cell[7627, 209, 1351, 30, 54, "DisplayFormulaNumbered",ExpressionUUID->"c23d0582-1768-48d8-8875-8650b9a68458", CellTags->"eq:van-der-waals"]} } *) (*CellTagsIndex CellTagsIndex->{ {"eq:van-der-waals", 290893, 6724} } *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 1025, 14, 85, "Subtitle",ExpressionUUID->"3cf93f71-803f-410f-b82f-f0e128263fb3"], Cell[CellGroupData[{ Cell[1608, 38, 1127, 16, 69, "Chapter",ExpressionUUID->"735111f0-d3c2-4691-b14d-2c53c151c643"], Cell[2738, 56, 575, 11, 200, "Abstract",ExpressionUUID->"21f51c48-881e-415f-a649-4a95e66df332"], Cell[CellGroupData[{ Cell[3338, 71, 164, 3, 68, "Section",ExpressionUUID->"b512db94-fa30-41e5-bca7-e72eb60e0055"], Cell[3505, 76, 321, 8, 53, "Item",ExpressionUUID->"63157286-de4c-4be6-9a0e-fe14d5a2f97b"], Cell[CellGroupData[{ Cell[3851, 88, 297, 8, 53, "Item",ExpressionUUID->"48957709-aca7-48e8-b424-b083a034c46f"], Cell[4151, 98, 292, 8, 26, "Subitem",ExpressionUUID->"5386f1a0-c929-4987-bfa9-0ca2717a1eff"] }, Open ]], Cell[CellGroupData[{ Cell[4480, 111, 378, 13, 53, "Item",ExpressionUUID->"7037da91-c905-42a5-8321-22ce53deff18"], Cell[4861, 126, 281, 8, 26, "Subitem",ExpressionUUID->"379f253f-dffa-4ab6-a2eb-aba62c1cd994"] }, Open ]], Cell[CellGroupData[{ Cell[5179, 139, 479, 10, 74, "Item",ExpressionUUID->"05d709a5-59da-4b29-8d27-2470a966106e"], Cell[5661, 151, 316, 7, 45, "Subitem",ExpressionUUID->"4c737af7-a689-4b1a-9a56-15cbfdc3a711"] }, Open ]], Cell[CellGroupData[{ Cell[6014, 163, 310, 7, 53, "Item",ExpressionUUID->"bff83bad-6f91-4dcc-a00e-4b1237267dd6"], Cell[6327, 172, 256, 4, 26, "Subitem",ExpressionUUID->"495fc03e-e92a-4fb0-80d0-57934e83138c"] }, Open ]], Cell[CellGroupData[{ Cell[6620, 181, 201, 3, 32, "Item",ExpressionUUID->"7810c917-1011-4693-9a6c-8064be1e8c3f"], Cell[6824, 186, 268, 5, 26, "Subitem",ExpressionUUID->"f7f4f3dd-53cc-460b-9f32-145173203702"] }, Open ]], Cell[CellGroupData[{ Cell[7129, 196, 183, 3, 54, "Subsection",ExpressionUUID->"0cf27a65-1d09-46d0-8312-4fa333b64f60"], Cell[7315, 201, 309, 6, 32, "Item",ExpressionUUID->"322788e5-874a-445b-848b-9472e579a334"], Cell[7627, 209, 1351, 30, 54, "DisplayFormulaNumbered",ExpressionUUID->"c23d0582-1768-48d8-8875-8650b9a68458", CellTags->"eq:van-der-waals"], Cell[8981, 241, 388, 11, 26, "Subitem",ExpressionUUID->"eaa58e27-7fb0-4f3e-a1b2-9104d39c1eb7"], Cell[CellGroupData[{ Cell[9394, 256, 1983, 55, 98, "Item",ExpressionUUID->"2d71d586-1775-44a5-b6b4-8a4f835ddf1a"], Cell[CellGroupData[{ Cell[11402, 315, 280, 10, 26, "Subitem",ExpressionUUID->"0a6aa83d-d821-4c94-bef4-d0ad990a8a39"], Cell[11685, 327, 259, 4, 25, "Subsubitem",ExpressionUUID->"be02c220-b7f4-4258-a49e-4ca0803b9ebe"], Cell[11947, 333, 494, 13, 26, "Subsubitem",ExpressionUUID->"6bae0bb0-e33e-4a4d-809a-1f77c864ad8d"], Cell[12444, 348, 643, 16, 29, "Subsubitem",ExpressionUUID->"e212ca8b-ab62-4162-b855-1de8bfa3a989"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13136, 370, 1846, 50, 94, "Item",ExpressionUUID->"2d2d87f7-0d86-4786-ac83-2dbeea254617"], Cell[CellGroupData[{ Cell[15007, 424, 280, 10, 26, "Subitem",ExpressionUUID->"9a168319-8a49-4679-bcd8-20d28c0acd28"], Cell[15290, 436, 259, 4, 25, "Subsubitem",ExpressionUUID->"d2477879-c7d4-4528-a584-d63bdf082d28"], Cell[15552, 442, 494, 13, 26, "Subsubitem",ExpressionUUID->"013a1dae-c240-42b4-a6d4-fc106656c010"], Cell[16049, 457, 643, 16, 29, "Subsubitem",ExpressionUUID->"22ba0297-619e-41aa-b3bb-374e00fafbe0"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16741, 479, 1835, 50, 94, "Item",ExpressionUUID->"c725eef0-7e1a-49a6-ad5a-616527fea3c9"], Cell[CellGroupData[{ Cell[18601, 533, 280, 10, 26, "Subitem",ExpressionUUID->"e57f6372-19fe-417e-afc7-d2e5ecd21390"], Cell[18884, 545, 259, 4, 25, "Subsubitem",ExpressionUUID->"3987e144-c48c-49af-888e-4b81825835d9"], Cell[19146, 551, 374, 9, 25, "Subsubitem",ExpressionUUID->"c848c0a3-ceac-4b3e-88c1-b9c2dd69657e"], Cell[19523, 562, 643, 16, 29, "Subsubitem",ExpressionUUID->"55b01be4-9a24-4fe8-93ff-629251763fec"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20215, 584, 2075, 55, 94, "Item",ExpressionUUID->"90225943-2a4e-4841-aa20-149af880155f"], Cell[CellGroupData[{ Cell[22315, 643, 280, 10, 26, "Subitem",ExpressionUUID->"8a66dc36-eef6-4e74-aff7-809ece44fbda"], Cell[22598, 655, 259, 4, 25, "Subsubitem",ExpressionUUID->"ddfb5479-7e20-4750-8df2-0e96ebdb4a2d"], Cell[22860, 661, 299, 5, 25, "Subsubitem",ExpressionUUID->"84c75893-1830-48ec-9c8e-eeb072b2eea6"], Cell[23162, 668, 679, 16, 29, "Subsubitem",ExpressionUUID->"5ebb382e-2d45-441d-b23f-56da8865032f"] }, Open ]] }, Open ]], Cell[23868, 688, 282, 7, 32, "Item",ExpressionUUID->"6853ceeb-8955-49dd-bd9d-32d579184531"], Cell[CellGroupData[{ Cell[24175, 699, 254, 4, 32, "Item",ExpressionUUID->"49f373b5-b792-4a63-9601-8a8201855e16"], Cell[24432, 705, 301, 4, 26, "Subitem",ExpressionUUID->"56d8aad2-f0e0-44a0-af92-bfac785ed389"], Cell[24736, 711, 359, 6, 26, "Subitem",ExpressionUUID->"f5863d0d-cc4e-463e-9010-96ef275ab205"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25156, 724, 174, 3, 68, "Section",ExpressionUUID->"4c0c9a59-9a55-4308-8f24-7d361b5583a7"], Cell[CellGroupData[{ Cell[25355, 731, 266, 9, 32, "Item",ExpressionUUID->"08684a80-f3b8-48d9-a779-687a67d2b049"], Cell[25624, 742, 177, 3, 26, "Subitem",ExpressionUUID->"fc9c5486-f3b2-44ab-9e67-e2bfa93fb1d8"] }, Open ]], Cell[25816, 748, 188, 3, 32, "Item",ExpressionUUID->"defa5b48-1429-43aa-9217-6ae7e2a86b7d"], Cell[26007, 753, 307, 7, 53, "Item",ExpressionUUID->"cb41c1e5-3a90-462c-ac8e-12e895842162"], Cell[26317, 762, 270, 6, 32, "Item",ExpressionUUID->"6baca782-05b1-4b54-8549-a559ad12eba2"], Cell[26590, 770, 2775, 82, 43, "DisplayFormulaNumbered",ExpressionUUID->"ec3a4843-0dc6-4f59-97b8-775042e703ba"], Cell[29368, 854, 319, 7, 26, "Subitem",ExpressionUUID->"08f1f7ec-186f-4c27-a18f-f7567493923f"], Cell[CellGroupData[{ Cell[29712, 865, 167, 3, 54, "Subsection",ExpressionUUID->"2a820666-85f5-4167-8372-26b00750da39"], Cell[CellGroupData[{ Cell[29904, 872, 431, 10, 32, "Item",ExpressionUUID->"50b8e060-63c3-45a1-83e2-ab029013c2f4"], Cell[30338, 884, 21694, 360, 223, "Input",ExpressionUUID->"a67ee414-bfde-433d-9831-84c652e48c9b"] }, Open ]], Cell[CellGroupData[{ Cell[52069, 1249, 819, 20, 33, "Item",ExpressionUUID->"77ac52a8-f153-465e-8de4-a96bcf37cdb4"], Cell[52891, 1271, 929, 22, 52, "Subitem",ExpressionUUID->"10505702-6bc4-47bc-9dbb-fb363010ced6"] }, Open ]], Cell[CellGroupData[{ Cell[53857, 1298, 317, 8, 32, "Item",ExpressionUUID->"cea79740-26e9-4d5c-9784-1d12ad07ec6f"], Cell[54177, 1308, 402, 11, 26, "Subitem",ExpressionUUID->"776d1768-e147-44bf-9869-0971fa3c3125"] }, Open ]], Cell[54594, 1322, 188, 3, 32, "Item",ExpressionUUID->"9457b4db-a7bd-47c0-b67d-68a34a02571c"], Cell[54785, 1327, 829, 19, 25, "DisplayFormulaNumbered",ExpressionUUID->"6df62828-38e2-4a56-b269-47f62a43e23a"], Cell[CellGroupData[{ Cell[55639, 1350, 380, 11, 26, "Subitem",ExpressionUUID->"703e0836-b557-4ea1-88c3-d6d1707b6b16"], Cell[CellGroupData[{ Cell[56044, 1365, 738, 17, 92, "Input",ExpressionUUID->"a549b317-bc25-485c-bac0-3ab2da52ba7a"], Cell[56785, 1384, 1727, 47, 75, "Output",ExpressionUUID->"ea7f3840-1767-450e-8bc6-ab141f3b56bb"], Cell[58515, 1433, 252, 3, 33, "Output",ExpressionUUID->"700258c3-7af6-43a2-890c-48f543464a5c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[58816, 1442, 240, 6, 26, "Subitem",ExpressionUUID->"7648376b-12d6-4e36-9d3d-5d7473b39e3f"], Cell[59059, 1450, 481, 12, 43, "Subsubitem",ExpressionUUID->"4886ce8d-bcdb-4420-9235-8812a1c8026a"] }, Open ]], Cell[CellGroupData[{ Cell[59577, 1467, 557, 11, 32, "Item",ExpressionUUID->"7c735f5a-f105-4deb-81f1-7116ee9e2f68"], Cell[60137, 1480, 348, 10, 26, "Subitem",ExpressionUUID->"04da7d07-3347-497b-bc07-86c92fe4293e"] }, Open ]], Cell[CellGroupData[{ Cell[60522, 1495, 239, 4, 32, "Item",ExpressionUUID->"599fdb96-6caa-44c4-a8cd-64755e9459ce"], Cell[60764, 1501, 3068, 84, 216, "Input",ExpressionUUID->"d94af2f4-f80b-4b87-9f3c-ef4d086f67b3"], Cell[CellGroupData[{ Cell[63857, 1589, 237, 4, 29, "Input",ExpressionUUID->"374cc458-fa82-4fb6-9c98-93a67a7f1af6"], Cell[64097, 1595, 957, 18, 51, "Output",ExpressionUUID->"18a97f9a-8fbd-4c2f-ac28-f09d51efea8b"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[65103, 1619, 242, 6, 32, "Item",ExpressionUUID->"47c8b9eb-9e5d-4a8b-b3e1-af09713d9f66"], Cell[CellGroupData[{ Cell[65370, 1629, 1087, 27, 113, "Input",ExpressionUUID->"39d400b8-0161-422f-b89d-1cd8fccfcdc1"], Cell[66460, 1658, 129, 3, 26, "Echo",ExpressionUUID->"3ef5af68-0b20-4223-ae58-389b19e5678d"], Cell[66592, 1663, 16423, 310, 196, "Output",ExpressionUUID->"7564f03d-42c0-456e-8c31-996dfe478bf7"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[83064, 1979, 196, 3, 32, "Item",ExpressionUUID->"77100d82-02b8-4e7a-983f-27c7fce2d516"], Cell[83263, 1984, 267, 6, 26, "Subitem",ExpressionUUID->"72e61754-fa87-4105-ac67-c61cbf56b6c9"] }, Open ]], Cell[CellGroupData[{ Cell[83567, 1995, 543, 15, 69, "Item",ExpressionUUID->"a8908804-4d2b-4938-abfa-39e9e1330ea1"], Cell[CellGroupData[{ Cell[84135, 2014, 530, 14, 51, "Input",ExpressionUUID->"7c2beaa5-d2d1-40a3-a17e-f5f1daa8468a"], Cell[84668, 2030, 363, 9, 50, "Output",ExpressionUUID->"1c4dd90f-a3a6-4b6a-9a40-d4e977af463f"], Cell[85034, 2041, 427, 13, 50, "Output",ExpressionUUID->"abd35039-7061-486e-8bc8-2e0bff37143f"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[85510, 2060, 278, 6, 53, "Item",ExpressionUUID->"e2301ab0-40e2-4df2-801b-bb9af6c61e26"], Cell[CellGroupData[{ Cell[85813, 2070, 191, 3, 26, "Subitem",ExpressionUUID->"80be105e-8850-4eb0-9645-391093a61a46"], Cell[86007, 2075, 385, 12, 46, "Input",ExpressionUUID->"edca59c5-5c8e-4feb-ab2d-2430e1a72e07"], Cell[CellGroupData[{ Cell[86417, 2091, 265, 5, 29, "Input",ExpressionUUID->"e6587b77-fcfb-47c9-96bb-5c62765a0bab"], Cell[86685, 2098, 425, 13, 50, "Output",ExpressionUUID->"b2949157-d030-4879-9fc2-eb84e8791b27"] }, Open ]] }, Open ]] }, Open ]], Cell[87149, 2116, 186, 3, 32, "Item",ExpressionUUID->"c63443b1-d457-44f6-b0fc-fa35e13b83cf"], Cell[87338, 2121, 1567, 34, 44, "DisplayFormulaNumbered",ExpressionUUID->"27c713c3-2c40-4d54-b370-302da6a4e268"] }, Open ]], Cell[CellGroupData[{ Cell[88942, 2160, 294, 5, 54, "Subsection",ExpressionUUID->"d4a6a9c5-b479-4890-a9de-acc814e99500"], Cell[89239, 2167, 274, 6, 32, "Item",ExpressionUUID->"e75f3190-68b5-4b54-89e6-b262e9a56fb3"], Cell[89516, 2175, 326, 7, 53, "Item",ExpressionUUID->"c0c8fd6b-33e9-4af4-945c-db40124e7ee7"], Cell[89845, 2184, 389, 8, 53, "Item",ExpressionUUID->"12bee63d-e819-4e04-bdde-3e9794e4af68"], Cell[90237, 2194, 1393, 31, 29, "DisplayFormulaNumbered",ExpressionUUID->"4ba86fcb-0e58-457c-bad2-518b2c7df910"], Cell[CellGroupData[{ Cell[91655, 2229, 216, 5, 26, "Subitem",ExpressionUUID->"d016b57b-36b4-4f10-8334-ef5664a21cb1"], Cell[91874, 2236, 357, 7, 43, "Subsubitem",ExpressionUUID->"515c45c8-b70c-4ea8-8fe4-30d25b73c8f1"], Cell[92234, 2245, 337, 7, 43, "Subsubitem",ExpressionUUID->"6c8926f8-c214-4abf-a706-17c0d2f003d0"], Cell[CellGroupData[{ Cell[92596, 2256, 247, 4, 25, "Subsubitem",ExpressionUUID->"58b48dc1-075e-4ce6-a51f-6a2ceda7398d"], Cell[CellGroupData[{ Cell[92868, 2264, 535, 12, 29, "Input",ExpressionUUID->"fcc36fc9-17ae-4931-89a7-371a0f786c2a"], Cell[93406, 2278, 462, 14, 50, "Output",ExpressionUUID->"1342e5ef-7264-436f-bd75-d47732fb4576"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[93929, 2299, 316, 7, 32, "Item",ExpressionUUID->"f4b2194c-a19a-476c-a275-226e2b472f1f"], Cell[CellGroupData[{ Cell[94270, 2310, 896, 21, 92, "Input",ExpressionUUID->"688819cc-45fb-4c16-a6d9-f7d3bb2572db"], Cell[95169, 2333, 3585, 81, 341, "Output",ExpressionUUID->"1deff4a5-296b-4e17-a410-5071ad144ed5"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[98803, 2420, 347, 6, 53, "Item",ExpressionUUID->"e0b00f2a-b58b-4742-8c3c-2ac78720837a"], Cell[99153, 2428, 983, 26, 113, "Input",ExpressionUUID->"5ce72805-5fea-44b4-b2a8-72ad528e59ec"], Cell[CellGroupData[{ Cell[100161, 2458, 421, 10, 51, "Input",ExpressionUUID->"5ca21a27-9d1f-4431-80ba-7080bdc178a6"], Cell[100585, 2470, 651, 21, 33, "Output",ExpressionUUID->"a09cbf6f-4963-41d2-9170-ad978bf49372"] }, Open ]], Cell[CellGroupData[{ Cell[101273, 2496, 1491, 38, 133, "Input",ExpressionUUID->"118cea5e-51fd-4511-80e4-ef9b24840ac0"], Cell[102767, 2536, 17737, 381, 337, "Output",ExpressionUUID->"0641dbde-f33e-4cac-9e49-0e183305a80b"] }, Open ]] }, Open ]], Cell[120531, 2921, 363, 8, 53, "Item",ExpressionUUID->"032535ba-60c8-4379-a625-edfbae7e491b"], Cell[120897, 2931, 1516, 35, 52, "DisplayFormulaNumbered",ExpressionUUID->"a4d94367-26d2-4a0a-ae46-48345fb1e379"], Cell[122416, 2968, 234, 4, 26, "Subitem",ExpressionUUID->"a3d5d599-6c2f-4f72-8112-9e06e2d3c5c0"], Cell[122653, 2974, 1284, 28, 44, "DisplayFormulaNumbered",ExpressionUUID->"bde303f2-f122-4238-927a-fce83a3d0a10"], Cell[CellGroupData[{ Cell[123962, 3006, 1324, 39, 133, "Input",ExpressionUUID->"2064a692-2278-4131-8d02-2d5fc67addfc"], Cell[125289, 3047, 326, 8, 33, "Output",ExpressionUUID->"0acdf004-315c-4f47-a171-4ab92529f15c"], Cell[125618, 3057, 304, 8, 33, "Output",ExpressionUUID->"3aec85b0-fd44-4501-8b44-54d96826d0fb"] }, Open ]], Cell[CellGroupData[{ Cell[125959, 3070, 340, 7, 32, "Item",ExpressionUUID->"5800bc59-5dc0-42ae-b99a-467f55cc11b5"], Cell[CellGroupData[{ Cell[126324, 3081, 647, 18, 92, "Input",ExpressionUUID->"40f95802-c064-44fd-b677-d8c5a8b6a289"], Cell[126974, 3101, 317, 9, 56, "Output",ExpressionUUID->"b2d7046d-82ce-4e41-94ca-9016ddcb5d41"] }, Open ]] }, Open ]], Cell[127318, 3114, 196, 3, 32, "Item",ExpressionUUID->"42a7cbe3-c970-46cd-ade8-feb896ae26ee"], Cell[127517, 3119, 1318, 29, 44, "DisplayFormulaNumbered",ExpressionUUID->"a294c7f7-c7dd-4af2-a633-b48ef6a6ad89"], Cell[CellGroupData[{ Cell[128860, 3152, 561, 15, 51, "Input",ExpressionUUID->"8e288960-79dd-46de-ad17-d1efc452f29f"], Cell[129424, 3169, 538, 17, 76, "Output",ExpressionUUID->"b009bb56-2573-426c-b322-3fe8c2d56274"] }, Open ]], Cell[CellGroupData[{ Cell[129999, 3191, 216, 5, 32, "Item",ExpressionUUID->"0b239d73-01d0-499a-9564-bcac4054c791"], Cell[CellGroupData[{ Cell[130240, 3200, 573, 15, 52, "Input",ExpressionUUID->"8bc72c79-378f-41d9-b179-496e5833f7e1"], Cell[130816, 3217, 527, 15, 67, "Output",ExpressionUUID->"5ba8f07a-eeae-4ff3-b633-3d9141828aa6"] }, Open ]], Cell[CellGroupData[{ Cell[131380, 3237, 1063, 28, 92, "Input",ExpressionUUID->"c1798c16-6092-472e-9d5c-46483ee40e6b"], Cell[132446, 3267, 8302, 160, 341, "Output",ExpressionUUID->"fb96fa31-4ac3-48b3-86fa-71dd613470ec"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[140797, 3433, 204, 3, 32, "Item",ExpressionUUID->"253a27b3-dcce-480f-896f-b9831f0905a8"], Cell[CellGroupData[{ Cell[141026, 3440, 318, 5, 26, "Subitem",ExpressionUUID->"aaeed6c6-43d4-4393-b927-232c03a10878"], Cell[141347, 3447, 444, 9, 43, "Subsubitem",ExpressionUUID->"3db7cfdd-9fef-49e6-ae53-6a712adc09be"] }, Open ]], Cell[141806, 3459, 322, 7, 26, "Subitem",ExpressionUUID->"6743686a-9486-4ff8-9c76-13ec475f8aac"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[142189, 3473, 192, 3, 68, "Section",ExpressionUUID->"8ae732ef-0fa3-4901-a2dc-0a7ee47fc9c5"], Cell[CellGroupData[{ Cell[142406, 3480, 246, 6, 53, "Item",ExpressionUUID->"4e16c796-3093-4c53-bbcd-f6e02db40ebb"], Cell[142655, 3488, 290, 6, 45, "Subitem",ExpressionUUID->"204198b2-3dd7-44f1-9464-831498cdbbfc"] }, Open ]], Cell[142960, 3497, 298, 7, 32, "Item",ExpressionUUID->"c43f8201-d2bb-45ed-b8bb-33b33b85525a"], Cell[143261, 3506, 2398, 62, 43, "DisplayFormulaNumbered",ExpressionUUID->"1f6a6f1a-9d02-4afc-b1e1-dadc7ce31683"], Cell[145662, 3570, 321, 7, 53, "Item",ExpressionUUID->"4fb45ffa-65ab-485c-ab19-295d7287ad6f"], Cell[145986, 3579, 1429, 41, 42, "DisplayFormulaNumbered",ExpressionUUID->"5c14902c-1533-49db-9782-2f2f038028b3", InitializationCell->True], Cell[147418, 3622, 307, 7, 53, "Item",ExpressionUUID->"47817ee0-8f14-4714-8bb3-cd70b8e19e5b"], Cell[147728, 3631, 1603, 42, 43, "DisplayFormulaNumbered",ExpressionUUID->"dadf1b27-3b08-46c0-8e95-9e6f29ed1b58", InitializationCell->True], Cell[CellGroupData[{ Cell[149356, 3677, 318, 9, 53, "Item",ExpressionUUID->"b8d5941a-2273-422d-aa8e-3e6b5214160a"], Cell[149677, 3688, 188, 3, 26, "Subitem",ExpressionUUID->"c9df66d8-cfc8-4215-8abb-65db96680974"] }, Open ]], Cell[149880, 3694, 1681, 45, 42, "DisplayFormulaNumbered",ExpressionUUID->"9b7efef9-5025-40ba-895f-fe5fcba45465", InitializationCell->True], Cell[151564, 3741, 214, 4, 32, "Item",ExpressionUUID->"f620d89e-8293-4a6b-a93d-4049e21c2938"], Cell[151781, 3747, 1218, 27, 40, "DisplayFormulaNumbered",ExpressionUUID->"6e2af4ff-2103-4d5f-9a71-76c3c1c10882", InitializationCell->True], Cell[153002, 3776, 307, 7, 26, "Subitem",ExpressionUUID->"e80deafc-ff3f-4915-a76c-2c53b0bb0874"], Cell[153312, 3785, 1185, 27, 42, "DisplayFormulaNumbered",ExpressionUUID->"708f8d1b-5b82-4b05-bba7-b9af5513002f", InitializationCell->True], Cell[154500, 3814, 556, 13, 43, "Subsubitem",ExpressionUUID->"82217ce1-5b46-4071-88c5-eea3a9f5146e"], Cell[CellGroupData[{ Cell[155081, 3831, 270, 4, 54, "Subsection",ExpressionUUID->"9007ac8a-9b84-4f8b-b7e2-341a3debdfa9"], Cell[155354, 3837, 21694, 360, 223, "Input",ExpressionUUID->"41d5eddc-f7b8-4dd0-8e7a-760cc438f854"], Cell[177051, 4199, 271, 5, 32, "Item",ExpressionUUID->"d81341e1-a280-4af3-8e2d-0d4385ef87b2"], Cell[CellGroupData[{ Cell[177347, 4208, 288, 7, 32, "Item",ExpressionUUID->"fb2de195-48e9-4e9b-b9c8-f57231afbe8c"], Cell[177638, 4217, 299, 7, 26, "Subitem",ExpressionUUID->"edae4e74-3510-4fac-a8f6-3fbeccdb1b1e"] }, Open ]], Cell[CellGroupData[{ Cell[177974, 4229, 178, 3, 32, "Item",ExpressionUUID->"678e137a-744b-426a-b600-ec64ae470878"], Cell[178155, 4234, 475, 13, 34, "Subitem",ExpressionUUID->"fa6bbad8-d877-493f-8195-0f3eebe88e35"] }, Open ]], Cell[178645, 4250, 945, 29, 50, "DisplayFormulaNumbered",ExpressionUUID->"334224e2-fef6-4924-a596-03ec62a27314"], Cell[CellGroupData[{ Cell[179615, 4283, 866, 24, 52, "Input",ExpressionUUID->"c5cfa516-5004-4975-9491-a6cb96689780"], Cell[180484, 4309, 691, 20, 74, "Output",ExpressionUUID->"0c3f4c59-2b2e-4b87-9897-f839625bada0"] }, Open ]], Cell[CellGroupData[{ Cell[181212, 4334, 245, 6, 32, "Item",ExpressionUUID->"0e7126f5-d39f-41e9-804f-1de984f7047b"], Cell[CellGroupData[{ Cell[181482, 4344, 536, 14, 43, "Subitem",ExpressionUUID->"273d4fed-6973-4606-bece-e27c0baf92df"], Cell[CellGroupData[{ Cell[182043, 4362, 743, 20, 92, "Input",ExpressionUUID->"b8a1a19c-6927-446f-94bc-21969fc9d70e"], Cell[182789, 4384, 361, 10, 56, "Output",ExpressionUUID->"aa63ab6b-17a1-4436-b176-0baa3edb31b9"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[183211, 4401, 194, 3, 32, "Item",ExpressionUUID->"2c54c924-a0d6-4437-9ac5-dd7f0b123050"], Cell[183408, 4406, 238, 6, 26, "Subitem",ExpressionUUID->"052cf5cc-b686-4396-8672-63cee5172b56"] }, Open ]], Cell[183661, 4415, 480, 11, 25, "DisplayFormulaNumbered",ExpressionUUID->"7da88db5-e64c-4cd9-a206-fde49c3a3e30"], Cell[184144, 4428, 994, 30, 92, "Input",ExpressionUUID->"1b684efc-a4e3-4906-a05e-6636d38016a5"], Cell[CellGroupData[{ Cell[185163, 4462, 272, 6, 53, "Item",ExpressionUUID->"c9d2b4a9-649b-40a7-85f9-bbeff4c13abe"], Cell[185438, 4470, 221, 5, 26, "Subitem",ExpressionUUID->"3cd282fe-6929-48ad-a2f8-78811895141f"] }, Open ]], Cell[185674, 4478, 1446, 33, 29, "DisplayFormulaNumbered",ExpressionUUID->"069d22bd-4773-4d30-9ba5-27d8e53d3176"], Cell[187123, 4513, 1092, 32, 92, "Input",ExpressionUUID->"9a2169a8-f589-4ed6-adba-e393448c47ae"], Cell[CellGroupData[{ Cell[188240, 4549, 1658, 44, 154, "Input",ExpressionUUID->"acc3a4ff-a249-4c4b-b7bc-88923c322cb9"], Cell[189901, 4595, 31116, 601, 343, "Output",ExpressionUUID->"2606ea1e-2473-45c2-9d54-5b3ae099d57c"] }, Open ]], Cell[221032, 5199, 310, 7, 53, "Item",ExpressionUUID->"b4803fe8-b66d-4236-9691-2cc26ceb1a51"], Cell[221345, 5208, 1398, 31, 46, "DisplayFormulaNumbered",ExpressionUUID->"33ee6068-b2d2-4022-8779-8a33a138bf84"], Cell[222746, 5241, 154, 3, 26, "Subitem",ExpressionUUID->"ec00158b-57c6-4e71-b826-7b7207ab13c5"], Cell[222903, 5246, 1330, 27, 44, "DisplayFormulaNumbered",ExpressionUUID->"aa6e5b80-98af-41be-bb4a-099bf3404889"], Cell[224236, 5275, 1579, 45, 174, "Input",ExpressionUUID->"db9ca19b-9a0b-48aa-83fd-a59248958146"], Cell[225818, 5322, 162, 3, 26, "Subitem",ExpressionUUID->"ab3a8960-62d0-448d-becb-471c07204d60"], Cell[225983, 5327, 1079, 19, 28, "DisplayFormulaNumbered",ExpressionUUID->"459baf66-7beb-4dca-9c1b-454bcdec7ffb"], Cell[CellGroupData[{ Cell[227087, 5350, 1731, 47, 154, "Input",ExpressionUUID->"9603e0e7-c24f-411e-8ccd-8b1b0ead6245"], Cell[228821, 5399, 597, 18, 63, "Output",ExpressionUUID->"d4119b8c-4d7a-428c-891b-80d4dc90e8b9"], Cell[229421, 5419, 308, 8, 55, "Output",ExpressionUUID->"f2e5f4dc-5fb5-4b90-9226-93a64f89fff2"] }, Open ]], Cell[229744, 5430, 303, 6, 43, "Subsubitem",ExpressionUUID->"b9bbb9f1-8238-4b11-8a50-dcdd68ded1e7"], Cell[CellGroupData[{ Cell[230072, 5440, 271, 6, 25, "Subsubitem",ExpressionUUID->"a1c4e9aa-987a-4bf5-acf2-979437ffa453"], Cell[CellGroupData[{ Cell[230368, 5450, 306, 7, 29, "Input",ExpressionUUID->"254d046e-0b6e-43fc-923e-99e5e499a62e"], Cell[230677, 5459, 341, 10, 56, "Output",ExpressionUUID->"9a64c2e9-a7e8-45d4-af5c-877e5067a6a6"] }, Open ]] }, Open ]], Cell[231045, 5473, 158, 3, 26, "Subitem",ExpressionUUID->"466dbb4b-8fbc-4d3c-928c-2c081f774ed8"], Cell[231206, 5478, 1318, 29, 44, "DisplayFormulaNumbered",ExpressionUUID->"0cf0956a-9ffc-4aef-8e05-3ab049c65835"], Cell[CellGroupData[{ Cell[232549, 5511, 1291, 37, 141, "Input",ExpressionUUID->"bfcaeeab-01d5-4b15-8ccd-27b78bfe4da8"], Cell[233843, 5550, 1059, 33, 76, "Output",ExpressionUUID->"9afa92be-c19b-4c83-9fd8-5b8c2029570f"], Cell[234905, 5585, 535, 15, 76, "Output",ExpressionUUID->"a57ac876-cc64-4a70-b5d0-1c54b9e2abc4"] }, Open ]], Cell[CellGroupData[{ Cell[235477, 5605, 2001, 55, 216, "Input",ExpressionUUID->"94c2a1f9-23ef-45be-8907-ce5efc538d27"], Cell[237481, 5662, 40483, 756, 341, "Output",ExpressionUUID->"9e69f75b-2f9c-40dc-928a-8178cbfda9a8"] }, Open ]], Cell[277979, 6421, 298, 6, 53, "Item",ExpressionUUID->"18d9ddb8-f2a8-4b87-bd7a-74b81b793c71"], Cell[CellGroupData[{ Cell[278302, 6431, 238, 6, 32, "Item",ExpressionUUID->"16e6c953-72ff-4406-acc7-e5fe687dbbac"], Cell[278543, 6439, 241, 6, 26, "Subitem",ExpressionUUID->"d910f2b1-fbb9-48d1-9bd1-43c506b31ed6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[278833, 6451, 175, 3, 54, "Subsection",ExpressionUUID->"b3eb4c43-c354-4c38-9f57-7a21008e3ce3"], Cell[CellGroupData[{ Cell[279033, 6458, 256, 6, 53, "Item",ExpressionUUID->"892a7bb7-1139-455a-babb-a21c85601d21"], Cell[279292, 6466, 270, 6, 45, "Subitem",ExpressionUUID->"e1a19a4b-a1f9-402d-b6a7-d016b052ed5f"] }, Open ]], Cell[279577, 6475, 176, 3, 32, "Item",ExpressionUUID->"affe6b97-7f1b-4ad5-9675-9eac5cf7b414"], Cell[279756, 6480, 1284, 28, 44, "DisplayFormulaNumbered",ExpressionUUID->"99d30cea-99f4-4f49-8498-176ed486b177"], Cell[281043, 6510, 215, 5, 26, "Subitem",ExpressionUUID->"44c62cce-1189-47f9-9419-661893227e8c"], Cell[CellGroupData[{ Cell[281283, 6519, 194, 3, 26, "Subitem",ExpressionUUID->"4f0fa8e3-ccc3-4bfb-aed0-c27485f7a5c3"], Cell[CellGroupData[{ Cell[281502, 6526, 1360, 34, 138, "Input",ExpressionUUID->"ae301b9c-04d8-4fdb-b0cf-e864ff5a7200"], Cell[282865, 6562, 7490, 142, 350, "Output",ExpressionUUID->"4b3a12b4-6bfb-4f6c-a2a4-209812851aab"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *)