entropie4.nb

(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     36167,        992]
NotebookOptionsPosition[     34927,        947]
NotebookOutlinePosition[     35271,        962]
CellTagsIndexPosition[     35228,        959]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"k", "=", 
   RowBox[{"8.31451070", "*", 
    RowBox[{"10", "^", 
     RowBox[{"-", "3"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", "18.0153"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h", "=", "0.3990313224"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sym", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ThAThBThC", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"h", "^", "2"}], "/", 
      RowBox[{"(", 
       RowBox[{"8", 
        RowBox[{"Pi", "^", "2"}], "k"}], ")"}]}], ")"}], "^", "3"}], "/", 
   RowBox[{"(", 
    RowBox[{"0.00614517", "*", "0.01155002", "*", "0.01769519"}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"SumTh", "=", 
  RowBox[{"0.00614517", "+", "0.01155002", "+", "0.01769519"}]}]}], "Input",
 CellChangeTimes->{{3.5098256238743076`*^9, 3.50982562531539*^9}, {
   3.509833466984908*^9, 3.509833484548912*^9}, 3.509833586208727*^9, {
   3.510085114781913*^9, 3.5100851150659294`*^9}, {3.510085291191003*^9, 
   3.5100852913900146`*^9}, {3.5111054983320823`*^9, 3.511105499291137*^9}, {
   3.5111055546043005`*^9, 3.5111055560323825`*^9}, {3.515828839284794*^9, 
   3.5158288615590677`*^9}, {3.5158288970961003`*^9, 3.515828939326516*^9}, {
   3.5158290505318766`*^9, 3.51582906685581*^9}, {3.515829922684761*^9, 
   3.5158299417938538`*^9}, {3.516081639362297*^9, 3.516081662106598*^9}}],

Cell[BoxData["11360.325359684379`"], "Output",
 CellChangeTimes->{
  3.515880291091324*^9, 3.516081350131754*^9, {3.516081641284407*^9, 
   3.5160816624766192`*^9}, 3.51668233448437*^9}],

Cell[BoxData["0.03539038`"], "Output",
 CellChangeTimes->{
  3.515880291091324*^9, 3.516081350131754*^9, {3.516081641284407*^9, 
   3.5160816624766192`*^9}, 3.5166823344893703`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"densityF", " ", "=", 
   RowBox[{"SparseArray", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"300", "->", ".98"}], ",", 
      RowBox[{"360", "\[Rule]", ".96"}], ",", 
      RowBox[{"420", "\[Rule]", ".93"}], ",", 
      RowBox[{"480", "\[Rule]", ".9"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5158780490060835`*^9, 3.5158780574935694`*^9}, {
  3.515878198649643*^9, 3.5158782658144846`*^9}, {3.515880272599266*^9, 
  3.5158802799536867`*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.515829820448913*^9, 3.515829824084121*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"len", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dt", "=", "0.004"}], ";"}]}], "Input",
 CellChangeTimes->{{3.509825630350678*^9, 3.509825638184126*^9}, 
   3.509833466987908*^9, 3.5098335824335113`*^9, {3.5098452653667364`*^9, 
   3.5098452658707657`*^9}, {3.5111055081296425`*^9, 3.511105510567782*^9}, {
   3.5111082558928056`*^9, 3.51110826349524*^9}, 3.5111157978811827`*^9, 
   3.511115915921934*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"S", "[", 
   RowBox[{"T_", ",", "nMol_", ",", " ", "file_", ",", "rho_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "c1", ",", " ", "Ct", ",", "gT", ",", "j", ",", "h1", ",", "De", ",", 
      "f1", ",", "f", ",", "gg", ",", "Dw", ",", "gs", ",", "Sig", ",", "fy", 
      ",", "z", ",", "SHs", ",", "Wgs", ",", "hb", ",", "beta", ",", "Who", 
      ",", "Svib", ",", "Sconf", ",", "Srot"}], "}"}], ",", 
    RowBox[{
     RowBox[{"c1", "=", 
      RowBox[{"k", "*", "T", "*", "3", " ", "*", "nMol"}]}], ";", " ", 
     RowBox[{"Ct", "=", 
      RowBox[{"Import", "[", 
       RowBox[{"file", ",", "\"\<Table\>\""}], "]"}]}], " ", ";", " ", 
     RowBox[{
      RowBox[{"Ct", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"Ct", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "*", "c1"}]}], ";", 
     RowBox[{"gT", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"2", "/", "k"}], " ", "/", "T"}], "*", "dt", "*", 
       RowBox[{"(", 
        RowBox[{"Chop", "[", 
         RowBox[{
          RowBox[{"Fourier", "[", 
           RowBox[{
            RowBox[{"Ct", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"FourierParameters", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], "+", 
          RowBox[{"Fourier", "[", 
           RowBox[{
            RowBox[{"Ct", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"FourierParameters", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"1", ",", 
               RowBox[{"-", "1"}]}], "}"}]}]}], "]"}], " ", "-", " ", 
          RowBox[{"Ct", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}], ")"}]}]}], ";", 
     RowBox[{
      RowBox[{"j", "[", 
       RowBox[{"f_", ",", "y_"}], "]"}], ":=", 
      RowBox[{
       RowBox[{"2", "*", 
        RowBox[{"y", "^", "3"}], "*", 
        RowBox[{"f", "^", "3"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"y", "+", 
          RowBox[{"6", 
           RowBox[{"y", "^", "2"}]}]}], ")"}], "*", 
        RowBox[{"f", "^", "2"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "+", 
          RowBox[{"6", "y"}]}], ")"}], "*", "f"}], "-", "2"}]}], ";", 
     RowBox[{
      RowBox[{"h1", "[", 
       RowBox[{"f_", ",", "D_"}], "]"}], ":=", 
      RowBox[{"j", "[", 
       RowBox[{"f", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"f", "/", "D"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"3", "/", "2"}], ")"}]}]}], "]"}]}], ";", 
     RowBox[{"De", "=", 
      RowBox[{"2", "*", 
       RowBox[{
        RowBox[{
         RowBox[{"gT", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "/", "9"}], "/", "nMol"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Pi", "*", "k", "*", 
          RowBox[{"T", "/", "m"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}]}], "*", 
       RowBox[{"rho", "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "3"}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"6", "/", "Pi"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "/", "3"}], ")"}]}]}]}], ";", 
     RowBox[{"f1", "=", 
      RowBox[{"f", "/.", 
       RowBox[{"ToRules", "[", 
        RowBox[{"Reduce", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"h1", "[", 
            RowBox[{"f", ",", "De"}], "]"}], "==", "0"}], ",", "f", ",", 
          "Reals"}], "]"}], "]"}]}]}], ";", 
     RowBox[{
      RowBox[{"gg", "[", "w_", "]"}], ":=", 
      RowBox[{
       RowBox[{"gT", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"gT", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "*", 
            RowBox[{"w", "/", 
             RowBox[{"(", 
              RowBox[{"12", "*", "f1", "*", "nMol"}], ")"}]}]}], ")"}], "^", 
          "2"}]}], ")"}]}]}], ";", 
     RowBox[{"Dw", "=", 
      RowBox[{"2", "*", 
       RowBox[{"Pi", "/", "len"}]}]}], ";", 
     RowBox[{
      RowBox[{"gs", "[", "w_", "]"}], ":=", 
      RowBox[{
       RowBox[{"gT", "[", 
        RowBox[{"[", 
         RowBox[{"1", "+", 
          RowBox[{"w", "/", "Dw"}]}], "]"}], "]"}], "-", 
       RowBox[{"gg", "[", "w", "]"}]}]}], ";", 
     RowBox[{"Sig", "=", " ", 
      RowBox[{"k", "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{"1", "/", "rho"}], "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"4", "*", "Pi", "*", "m", "*", 
              RowBox[{"3", "/", "2"}], "*", "nMol", "*", "k", "*", 
              RowBox[{"T", "/", 
               RowBox[{"(", 
                RowBox[{"3", "*", "nMol", "*", 
                 RowBox[{"h", "^", "2"}]}], ")"}]}]}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"3", "/", "2"}], ")"}]}]}], "]"}], "+", 
         RowBox[{"5", "/", "2"}]}], ")"}]}]}], ";", 
     RowBox[{
      RowBox[{"z", "[", "y_", "]"}], ":=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "y", "+", 
         RowBox[{"y", "^", "2"}], "-", 
         RowBox[{"y", "^", "3"}]}], ")"}], "/", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "y"}], ")"}], "^", "3"}]}]}], ";", 
     RowBox[{"fy", "=", 
      RowBox[{"f1", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"f1", "/", "De"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"3", "/", "2"}], ")"}]}]}]}], ";", 
     RowBox[{"SHs", "=", 
      RowBox[{"Sig", "+", 
       RowBox[{"k", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Log", "[", 
           RowBox[{"z", "[", "fy", "]"}], "]"}], "+", 
          RowBox[{"fy", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", "*", "fy"}], "-", "4"}], ")"}], "/", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "fy"}], ")"}], "^", "2"}]}]}]}], ")"}]}]}]}], 
     ";", 
     RowBox[{"Wgs", "=", 
      RowBox[{
       RowBox[{"1", "/", "3"}], "*", 
       RowBox[{"SHs", "/", "k"}]}]}], ";", 
     RowBox[{"hb", "=", 
      RowBox[{
       RowBox[{"h", "/", "2"}], "/", "Pi"}]}], ";", 
     RowBox[{"beta", "=", 
      RowBox[{
       RowBox[{"1", "/", "k"}], "/", "T"}]}], ";", 
     RowBox[{
      RowBox[{"Who", "[", "w_", "]"}], ":=", 
      RowBox[{
       RowBox[{"beta", "*", "hb", "*", 
        RowBox[{"w", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{"beta", "*", "hb", "*", "w"}], "]"}], "-", "1"}], 
          ")"}]}]}], "-", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "-", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "beta"}], "*", "hb", "*", "w"}], "]"}]}], "]"}]}]}], 
     ";", 
     RowBox[{"Svib", "=", 
      RowBox[{"k", "*", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Dw", "/", "2"}], "/", "Pi"}], "*", 
          RowBox[{"gs", "[", "w", "]"}], "*", 
          RowBox[{"Who", "[", "w", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"w", ",", "Dw", ",", 
           RowBox[{
            RowBox[{"1", "/", "dt"}], "*", "Pi"}], ",", "Dw"}], "}"}]}], 
        "]"}]}]}], ";", 
     RowBox[{"Sconf", "=", 
      RowBox[{"k", "*", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Dw", "/", "2"}], "/", "Pi"}], "*", 
          RowBox[{"gg", "[", "w", "]"}], "*", "Wgs"}], ",", 
         RowBox[{"{", 
          RowBox[{"w", ",", "0", ",", 
           RowBox[{
            RowBox[{"1", "/", "dt"}], "*", "Pi"}], ",", "Dw"}], "}"}]}], 
        "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Svib", "+", "Sconf"}], ")"}], "/", "nMol"}], "*", "T"}], 
       ",", "f1", ",", 
       RowBox[{"k", "*", "T", "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"gT", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "/", "12"}], "/", "m"}], "/", 
         "nMol"}]}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5098076621849575`*^9, 3.509807664636098*^9}, {
   3.509807712034809*^9, 3.509807739029353*^9}, {3.50980796101605*^9, 
   3.5098079633461833`*^9}, {3.509825585893135*^9, 3.50982558807326*^9}, {
   3.509825622365221*^9, 3.5098256351109505`*^9}, {3.5098316000531254`*^9, 
   3.5098316300778427`*^9}, 3.5098317074072657`*^9, {3.509838610274087*^9, 
   3.509838612351206*^9}, {3.5100847175281916`*^9, 3.510084787852214*^9}, {
   3.5100848235612564`*^9, 3.510084826357416*^9}, {3.5100848593523035`*^9, 
   3.510084933171526*^9}, {3.510084981875311*^9, 3.510085025441803*^9}, {
   3.5100850621109004`*^9, 3.5100850780978146`*^9}, {3.510085123248397*^9, 
   3.5100851820937634`*^9}, {3.5100852310265617`*^9, 
   3.5100854669290547`*^9}, {3.5100855589893203`*^9, 
   3.5100855637435923`*^9}, {3.510085654596789*^9, 3.510085654873804*^9}, {
   3.510087973580427*^9, 3.5100879855091095`*^9}, {3.510088569140491*^9, 
   3.510088619097348*^9}, {3.511108270363633*^9, 3.511108285472498*^9}, {
   3.511115627342428*^9, 3.511115639970151*^9}, {3.5152025783926644`*^9, 
   3.515202578971698*^9}, {3.5154842856584587`*^9, 3.5154842917698083`*^9}, 
   3.515828409660221*^9, {3.5160713041596804`*^9, 3.5160713073388624`*^9}, {
   3.5160713668042636`*^9, 3.5160713670642786`*^9}, {3.5160713972710066`*^9, 
   3.51607148509503*^9}, {3.5160717107109337`*^9, 3.5160717389115467`*^9}, {
   3.516073281673788*^9, 3.5160732820638103`*^9}, {3.516081341948286*^9, 
   3.516081342997346*^9}, {3.516081494432008*^9, 3.5160814945690155`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Srot", "[", 
   RowBox[{"T_", ",", "nMol_", ",", " ", "file_", ",", "rho_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "c1", ",", " ", "Ct", ",", "gT", ",", "j", ",", "h1", ",", "De", ",", 
      "f1", ",", "f", ",", "gg", ",", "Dw", ",", "gs", ",", "Sig", ",", "fy", 
      ",", "z", ",", "SR", ",", "Wgs", ",", "hb", ",", "beta", ",", "Who", 
      ",", "Svib", ",", "Sconf", ",", "Srot"}], "}"}], ",", 
    RowBox[{
     RowBox[{"c1", "=", 
      RowBox[{"k", "*", "T", "*", "3", " ", "*", "nMol"}]}], ";", " ", 
     RowBox[{"Ct", "=", 
      RowBox[{"Import", "[", 
       RowBox[{"file", ",", "\"\<Table\>\""}], "]"}]}], " ", ";", " ", 
     RowBox[{
      RowBox[{"Ct", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"Ct", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "*", "c1"}]}], ";", 
     RowBox[{"gT", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"2", "/", "k"}], " ", "/", "T"}], "*", "dt", "*", 
       RowBox[{"(", 
        RowBox[{"Chop", "[", 
         RowBox[{
          RowBox[{"Fourier", "[", 
           RowBox[{
            RowBox[{"Ct", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"FourierParameters", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"1", ",", "1"}], "}"}]}]}], "]"}], "+", 
          RowBox[{"Fourier", "[", 
           RowBox[{
            RowBox[{"Ct", "[", 
             RowBox[{"[", 
              RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
            RowBox[{"FourierParameters", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"1", ",", 
               RowBox[{"-", "1"}]}], "}"}]}]}], "]"}], " ", "-", " ", 
          RowBox[{"Ct", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}], ")"}]}]}], ";", 
     RowBox[{
      RowBox[{"j", "[", 
       RowBox[{"f_", ",", "y_"}], "]"}], ":=", 
      RowBox[{
       RowBox[{"2", "*", 
        RowBox[{"y", "^", "3"}], "*", 
        RowBox[{"f", "^", "3"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"y", "+", 
          RowBox[{"6", 
           RowBox[{"y", "^", "2"}]}]}], ")"}], "*", 
        RowBox[{"f", "^", "2"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "+", 
          RowBox[{"6", "y"}]}], ")"}], "*", "f"}], "-", "2"}]}], ";", 
     RowBox[{
      RowBox[{"h1", "[", 
       RowBox[{"f_", ",", "D_"}], "]"}], ":=", 
      RowBox[{"j", "[", 
       RowBox[{"f", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"f", "/", "D"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"3", "/", "2"}], ")"}]}]}], "]"}]}], ";", 
     RowBox[{"De", "=", 
      RowBox[{"2", "*", 
       RowBox[{
        RowBox[{
         RowBox[{"gT", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "/", "9"}], "/", "nMol"}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Pi", "*", "k", "*", 
          RowBox[{"T", "/", "m"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}]}], "*", 
       RowBox[{"rho", "^", 
        RowBox[{"(", 
         RowBox[{"1", "/", "3"}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"6", "/", "Pi"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"2", "/", "3"}], ")"}]}]}]}], ";", 
     RowBox[{"f1", "=", 
      RowBox[{"f", "/.", 
       RowBox[{"ToRules", "[", 
        RowBox[{"Reduce", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"h1", "[", 
            RowBox[{"f", ",", "De"}], "]"}], "==", "0"}], ",", "f", ",", 
          "Reals"}], "]"}], "]"}]}]}], ";", 
     RowBox[{
      RowBox[{"gg", "[", "w_", "]"}], ":=", 
      RowBox[{
       RowBox[{"gT", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"gT", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "*", 
            RowBox[{"w", "/", 
             RowBox[{"(", 
              RowBox[{"12", "*", "f1", "*", "nMol"}], ")"}]}]}], ")"}], "^", 
          "2"}]}], ")"}]}]}], ";", 
     RowBox[{"Dw", "=", 
      RowBox[{"2", "*", 
       RowBox[{"Pi", "/", "len"}]}]}], ";", 
     RowBox[{
      RowBox[{"gs", "[", "w_", "]"}], ":=", 
      RowBox[{
       RowBox[{"gT", "[", 
        RowBox[{"[", 
         RowBox[{"1", "+", 
          RowBox[{"w", "/", "Dw"}]}], "]"}], "]"}], "-", 
       RowBox[{"gg", "[", "w", "]"}]}]}], ";", 
     RowBox[{"Sig", "=", " ", 
      RowBox[{"k", "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{"1", "/", "rho"}], "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"4", "*", "Pi", "*", "m", "*", 
              RowBox[{"3", "/", "2"}], "*", "nMol", "*", "k", "*", 
              RowBox[{"T", "/", 
               RowBox[{"(", 
                RowBox[{"3", "*", "nMol", "*", 
                 RowBox[{"h", "^", "2"}]}], ")"}]}]}], ")"}], "^", 
            RowBox[{"(", 
             RowBox[{"3", "/", "2"}], ")"}]}]}], "]"}], "+", 
         RowBox[{"5", "/", "2"}]}], ")"}]}]}], ";", 
     RowBox[{
      RowBox[{"z", "[", "y_", "]"}], ":=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", "y", "+", 
         RowBox[{"y", "^", "2"}], "-", 
         RowBox[{"y", "^", "3"}]}], ")"}], "/", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "y"}], ")"}], "^", "3"}]}]}], ";", 
     RowBox[{"fy", "=", 
      RowBox[{"f1", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"f1", "/", "De"}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"3", "/", "2"}], ")"}]}]}]}], ";", 
     RowBox[{"SR", "=", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{
         RowBox[{"Pi", "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "2"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"E", " ", "^", 
           RowBox[{"(", 
            RowBox[{"3", "/", "2"}], ")"}]}], "/", "sym"}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"T", "^", "3"}], "/", "ThAThBThC"}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"1", "/", "2"}], ")"}]}]}], "]"}], "*", "k"}]}], ";", " ", 
     RowBox[{"Wgs", "=", 
      RowBox[{
       RowBox[{"1", "/", "3"}], "*", 
       RowBox[{"SR", "/", "k"}]}]}], ";", 
     RowBox[{"hb", "=", 
      RowBox[{
       RowBox[{"h", "/", "2"}], "/", "Pi"}]}], ";", 
     RowBox[{"beta", "=", 
      RowBox[{
       RowBox[{"1", "/", "k"}], "/", "T"}]}], ";", 
     RowBox[{
      RowBox[{"Who", "[", "w_", "]"}], ":=", 
      RowBox[{
       RowBox[{"beta", "*", "hb", "*", 
        RowBox[{"w", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Exp", "[", 
            RowBox[{"beta", "*", "hb", "*", "w"}], "]"}], "-", "1"}], 
          ")"}]}]}], "-", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "-", 
         RowBox[{"Exp", "[", 
          RowBox[{
           RowBox[{"-", "beta"}], "*", "hb", "*", "w"}], "]"}]}], "]"}]}]}], 
     ";", 
     RowBox[{"Svib", "=", 
      RowBox[{"k", "*", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Dw", "/", "2"}], "/", "Pi"}], "*", 
          RowBox[{"gs", "[", "w", "]"}], "*", 
          RowBox[{"Who", "[", "w", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"w", ",", "Dw", ",", 
           RowBox[{
            RowBox[{"1", "/", "dt"}], "*", "Pi"}], ",", "Dw"}], "}"}]}], 
        "]"}]}]}], ";", 
     RowBox[{"Sconf", "=", 
      RowBox[{"k", "*", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Dw", "/", "2"}], "/", "Pi"}], "*", 
          RowBox[{"gg", "[", "w", "]"}], "*", "Wgs"}], ",", 
         RowBox[{"{", 
          RowBox[{"w", ",", "0", ",", 
           RowBox[{
            RowBox[{"1", "/", "dt"}], "*", "Pi"}], ",", "Dw"}], "}"}]}], 
        "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Svib", "+", "Sconf"}], ")"}], "/", "nMol"}], "*", "T"}], 
       ",", "f1", ",", 
       RowBox[{"k", "*", "T", "*", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"gT", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "/", "4"}], "/", "SumTh"}], "/", 
         "nMol"}]}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.515828392936264*^9, 3.5158284174226646`*^9}, {
   3.5158284552898307`*^9, 3.51582848936878*^9}, {3.5158285216556263`*^9, 
   3.515828670628147*^9}, {3.51582874095817*^9, 3.5158288044908037`*^9}, 
   3.5158293248025637`*^9, {3.5158301956463733`*^9, 3.515830196159403*^9}, {
   3.516071378017905*^9, 3.516071391167657*^9}, {3.5160720477472115`*^9, 
   3.516072051758441*^9}, {3.516081344977459*^9, 3.5160813458005066`*^9}, {
   3.5160815002543406`*^9, 3.516081500360347*^9}, {3.5160816104456434`*^9, 
   3.516081613858838*^9}, {3.516081673538252*^9, 3.5160816767844377`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nMol", "=", "988"}], ";", 
  RowBox[{
  "dir", "=", 
   "\"\<c:\\\\Users\\\\rschulz\\\\Documents\\\\work\\\\lignin_entropie\\\\\
water\\\\\>\""}], ";"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"T", "=", "300"}], ",", 
    RowBox[{"T", "\[LessEqual]", "360"}], ",", 
    RowBox[{"T", "+=", "60"}], ",", " ", 
    RowBox[{
     RowBox[{"l", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{"Function", "[", 
         RowBox[{"i", ",", 
          RowBox[{
           RowBox[{"fn", "=", 
            RowBox[{
             RowBox[{"ToString", "[", "T", "]"}], "<>", "\"\<_\>\"", "<>", 
             RowBox[{"ToString", "[", "i", "]"}]}]}], ";", 
           RowBox[{"res", "=", 
            RowBox[{"Join", "[", 
             RowBox[{
              RowBox[{"S", "[", 
               RowBox[{"T", ",", "nMol", ",", 
                RowBox[{
                "dir", "<>", "\"\<corr\>\"", "<>", "fn", "<>", 
                 "\"\<.dat\>\""}], ",", 
                RowBox[{"nMol", "/", 
                 RowBox[{
                  RowBox[{"Import", "[", 
                   RowBox[{
                    RowBox[{
                    "dir", "<>", "\"\<vol\>\"", "<>", "fn", "<>", 
                    "\"\<.dat\>\""}], ",", "\"\<Table\>\""}], "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], "]"}], ",", 
              RowBox[{"Srot", "[", 
               RowBox[{"T", ",", "nMol", ",", 
                RowBox[{
                "dir", "<>", "\"\<rot\>\"", "<>", "fn", "<>", 
                 "\"\<.dat\>\""}], ",", 
                RowBox[{"nMol", "/", 
                 RowBox[{
                  RowBox[{"Import", "[", 
                   RowBox[{
                    RowBox[{
                    "dir", "<>", "\"\<vol\>\"", "<>", "fn", "<>", 
                    "\"\<.dat\>\""}], ",", "\"\<Table\>\""}], "]"}], "[", 
                  RowBox[{"[", 
                   RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], "]"}]}], 
             "]"}]}], ";", 
           RowBox[{"Join", "[", 
            RowBox[{"res", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"res", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "+", 
               RowBox[{"res", "[", 
                RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], "]"}]}]}], "]"}], 
        ",", 
        RowBox[{"Range", "[", 
         RowBox[{"0", ",", "80", ",", "20"}], "]"}]}], "]"}]}], ";", 
     RowBox[{"Print", "[", 
      RowBox[{
       RowBox[{"ToString", "[", "T", "]"}], "<>", "\"\< \>\"", " ", "<>", 
       RowBox[{"ToString", "[", 
        RowBox[{"Mean", "[", "l", "]"}], "]"}], "<>", "\"\< \>\"", " ", "<>", 
       RowBox[{"ToString", "[", 
        RowBox[{"StandardDeviation", "[", "l", "]"}], "]"}]}], "]"}]}]}], 
   "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.5158257676481066`*^9, 3.5158257753245454`*^9}, 
   3.5158274861714*^9, {3.5160720046207447`*^9, 3.5160720113361287`*^9}, {
   3.5160722581812477`*^9, 3.516072402909526*^9}, {3.5160814600290403`*^9, 
   3.5160814605160675`*^9}, {3.51608172280807*^9, 3.516081722910076*^9}, {
   3.516082693687601*^9, 3.516082693813608*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"300 {16.3253, 0.336626, 0.00527844, 3.95169, 0.0783676, \
0.481127, 20.277} {0.0570865, 0.00892855, 0.000303707, 0.00842225, 0.0014217, \
0.0157857, 0.0612437}\"\>"], "Print",
 CellChangeTimes->{3.5160827063853273`*^9, 3.5166823408027315`*^9, 
  3.51668239952409*^9}],

Cell[BoxData["\<\"360 {22.7605, 0.45582, 0.011678, 6.61853, 0.109126, \
0.987198, 29.3791} {0.074392, 0.00577794, 0.000349161, 0.0142934, \
0.000999245, 0.017179, 0.0832604}\"\>"], "Print",
 CellChangeTimes->{3.5160827063853273`*^9, 3.5166823408027315`*^9, 
  3.516682402943286*^9}]
}, Open  ]]
}, Open  ]],

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nMol", "=", "988"}], ";", 
  RowBox[{
  "dir", "=", 
   "\"\<c:\\\\Users\\\\rschulz\\\\Documents\\\\work\\\\lignin_entropie\\\\\
water\\\\\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{"Function", "[", 
    RowBox[{"T", ",", 
     RowBox[{"T", "\[Rule]", 
      RowBox[{
       RowBox[{"densityF", "[", 
        RowBox[{"[", "T", "]"}], "]"}], "*", 
       RowBox[{"nMol", "/", 
        RowBox[{"Mean", "[", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{"Function", "[", 
            RowBox[{"i", ",", 
             RowBox[{
              RowBox[{"fn", "=", 
               RowBox[{
                RowBox[{"ToString", "[", "T", "]"}], "<>", "\"\<_\>\"", "<>", 
                RowBox[{"ToString", "[", "i", "]"}]}]}], ";", 
              RowBox[{
               RowBox[{"Import", "[", 
                RowBox[{
                 RowBox[{
                 "dir", "<>", "\"\<vol\>\"", "<>", "fn", "<>", 
                  "\"\<.dat\>\""}], ",", "\"\<Table\>\""}], "]"}], "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], "]"}], ",", 
           RowBox[{"Range", "[", 
            RowBox[{"0", ",", "80", ",", "20"}], "]"}]}], "]"}], 
         "]"}]}]}]}]}], "]"}], ",", 
   RowBox[{"Range", "[", 
    RowBox[{"300", ",", "480", ",", "60"}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"density", "=", 
   RowBox[{"SparseArray", "[", "%", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5111087168991737`*^9, 3.511108971022709*^9}, {
   3.511109008829871*^9, 3.511109091014572*^9}, {3.5111091532001286`*^9, 
   3.5111091554012547`*^9}, {3.515193979853856*^9, 3.515193984920146*^9}, {
   3.5158778114044933`*^9, 3.51587782061002*^9}, {3.5158779919258184`*^9, 
   3.5158780035694847`*^9}, 3.515878036541371*^9, {3.5158780795958333`*^9, 
   3.5158780811919246`*^9}, {3.5158781185840635`*^9, 3.515878122653296*^9}, {
   3.5158803247432485`*^9, 3.5158803261403284`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"300", "\[Rule]", "32.043038224355534`"}], ",", 
   RowBox[{"360", "\[Rule]", "29.460475229072838`"}], ",", 
   RowBox[{"420", "\[Rule]", "26.018199487587246`"}], ",", 
   RowBox[{"480", "\[Rule]", "21.75889809729546`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5111087884612665`*^9, {3.5111088316907396`*^9, 3.511108971874758*^9}, {
   3.511109015872274*^9, 3.511109044593917*^9}, {3.5111090845912046`*^9, 
   3.5111090915856047`*^9}, 3.5111091568863397`*^9, 3.5111158321311417`*^9, 
   3.51114881082753*^9, 3.5151939857051907`*^9, 3.515482319355993*^9, 
   3.5154832064637327`*^9, 3.515511248762562*^9, 3.5158255846356387`*^9, 
   3.5158280211930017`*^9, 3.5158303255208015`*^9, 3.515877815924752*^9, 
   3.5158780822909875`*^9, 3.5158782810143538`*^9, {3.515880319949974*^9, 
   3.515880326775365*^9}, 3.5160813620944386`*^9, 3.516081881299135*^9, 
   3.5166824074525433`*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.515827530983963*^9, 3.5158275431866612`*^9}, 
   3.5160820570461874`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "dir", "=", 
   "\"\<c:\\\\Users\\\\rschulz\\\\Documents\\\\work\\\\lignin_entropie\\\\\>\"\
"}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"new", " ", "data"}], " ", "-", " ", 
   RowBox[{"absolute", " ", "value"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.5158276060562572`*^9, 3.5158276062352676`*^9}, 
   3.5160813863158236`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"T", "=", "300"}], ",", 
     RowBox[{"T", "\[LessEqual]", "300"}], ",", 
     RowBox[{"T", "+=", "60"}], ",", " ", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"l", "=", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{"Function", "[", 
            RowBox[{"i", ",", 
             RowBox[{
              RowBox[{"fn", "=", 
               RowBox[{
                RowBox[{"ToString", "[", "T", "]"}], "<>", "\"\<_\>\"", "<>", 
                RowBox[{"ToString", "[", "i", "]"}]}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"nMol", "=", 
               RowBox[{
                RowBox[{
                 RowBox[{"Import", "[", 
                  RowBox[{
                   RowBox[{
                   "dir", "<>", "\"\<size\>\"", "<>", "fn", "<>", 
                    "\"\<.dat\>\""}], ",", "\"\<Table\>\""}], "]"}], "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", "3"}]}], ";", 
              RowBox[{"res", "=", 
               RowBox[{"Join", "[", 
                RowBox[{
                 RowBox[{"S", "[", 
                  RowBox[{"T", ",", "nMol", ",", 
                   RowBox[{
                   "dir", "<>", "\"\<corr\>\"", "<>", "fn", "<>", 
                    "\"\<.dat\>\""}], ",", 
                   RowBox[{"density", "[", 
                    RowBox[{"[", "T", "]"}], "]"}]}], "]"}], ",", 
                 RowBox[{"Srot", "[", 
                  RowBox[{"T", ",", "nMol", ",", 
                   RowBox[{
                   "dir", "<>", "\"\<rot\>\"", "<>", "fn", "<>", 
                    "\"\<.dat\>\""}], ",", 
                   RowBox[{"density", "[", 
                    RowBox[{"[", "T", "]"}], "]"}]}], "]"}]}], "]"}]}], ";", 
              RowBox[{"Join", "[", 
               RowBox[{"res", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"res", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "+", 
                   RowBox[{"res", "[", 
                    RowBox[{"[", "4", "]"}], "]"}]}], ",", 
                  RowBox[{"(", 
                   RowBox[{"20.277", "-", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"res", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "+", 
                    RowBox[{"res", "[", 
                    RowBox[{"[", "4", "]"}], "]"}]}], ")"}]}], ")"}], ",", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"20.277", "-", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"res", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "+", 
                    RowBox[{"res", "[", 
                    RowBox[{"[", "4", "]"}], "]"}]}], ")"}]}], ")"}], "*", 
                   "nMol"}]}], "}"}]}], "]"}]}]}], "]"}], ",", 
           RowBox[{"Range", "[", 
            RowBox[{"p", ",", 
             RowBox[{"p", "+", "2"}]}], "]"}]}], "]"}]}], ";", 
        RowBox[{"Print", "[", 
         RowBox[{
          RowBox[{"ToString", "[", "T", "]"}], "<>", "\"\< \>\"", " ", "<>", 
          RowBox[{"ToString", "[", 
           RowBox[{"Mean", "[", "l", "]"}], "]"}], "<>", "\"\< \>\"", " ", "<>", 
          RowBox[{"ToString", "[", 
           RowBox[{"StandardDeviation", "[", "l", "]"}], "]"}]}], "]"}]}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"p", ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}]}], "}"}]}], "]"}]}], "]"}], ";"}], 
  "  "}]], "Input",
 CellChangeTimes->{{3.5158257370593567`*^9, 3.5158257417316236`*^9}, 
   3.5160821235519915`*^9, {3.516082296751898*^9, 3.516082332392936*^9}, {
   3.5160823888191633`*^9, 3.516082398880739*^9}, {3.5160824308525677`*^9, 
   3.5160824366168976`*^9}, {3.5160826764696164`*^9, 
   3.5160826840180483`*^9}, {3.5166836604672117`*^9, 3.516683661471269*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"300 {15.7934, 0.298492, 0.00412269, 3.95086, 0.0735273, \
0.431545, 19.7443, 0.532721, 333.423} {0.0277808, 0.0122975, 0.000351927, \
0.00874696, 0.00164392, 0.017546, 0.0362809, 0.0362809, 21.6832}\"\>"], \
"Print",
 CellChangeTimes->{3.51668241473696*^9, 3.5166836650964766`*^9}],

Cell[BoxData["\<\"300 {15.7645, 0.291369, 0.00391854, 3.92533, 0.0711261, \
0.40631, 19.6898, 0.587151, 423.97} {0.0798232, 0.0100396, 0.000283918, \
0.00643569, 0.000621411, 0.0064028, 0.086065, 0.086065, 34.0599}\"\>"], \
"Print",
 CellChangeTimes->{3.51668241473696*^9, 3.516683667897637*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1902, 918},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 1439, 33, 132, "Input"],
Cell[2009, 57, 186, 3, 30, "Output"],
Cell[2198, 62, 181, 3, 30, "Output"]
}, Open  ]],
Cell[2394, 68, 503, 12, 31, "Input"],
Cell[2900, 82, 92, 1, 31, "Input"],
Cell[2995, 85, 464, 9, 52, "Input"],
Cell[3462, 96, 10054, 274, 132, "Input"],
Cell[13519, 372, 9182, 262, 132, "Input"],
Cell[22704, 636, 198, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[22927, 646, 3038, 73, 112, "Input"],
Cell[CellGroupData[{
Cell[25990, 723, 285, 4, 23, "Print"],
Cell[26278, 729, 282, 4, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[26587, 737, 94, 1, 31, "Input"],
Cell[CellGroupData[{
Cell[26706, 742, 2022, 49, 72, "Input"],
Cell[28731, 793, 934, 16, 30, "Output"]
}, Open  ]],
Cell[29680, 812, 122, 2, 31, "Input"],
Cell[29805, 816, 151, 5, 31, "Input"],
Cell[29959, 823, 246, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[30230, 833, 4047, 96, 72, "Input"],
Cell[CellGroupData[{
Cell[34302, 933, 299, 4, 23, "Print"],
Cell[34604, 939, 295, 4, 23, "Print"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)