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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     35187,       1038]
NotebookOptionsPosition[     32867,        961]
NotebookOutlinePosition[     33288,        977]
CellTagsIndexPosition[     33245,        974]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
F\[IAcute]sica Te\[OAcute]rica 3 - Segundo cuatrimestre de 2014
Problema 2 de la Gu\[IAcute]a 7.\
\>", "Subtitle",
 CellChangeTimes->{{3.6112434065086*^9, 3.6112434269186*^9}, {
  3.6228348867460003`*^9, 3.6228348874309998`*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "Una comparaci\[OAcute]n entre las funciones PolyLog, que son las funciones ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["g", "\[Nu]"], TraditionalForm]]],
 ", y la funci\[OAcute]n Log[2/(2-x)] que aparece en el problema."
}], "Section",
 CellChangeTimes->{{3.6112405047096*^9, 3.6112405480396*^9}, {
  3.6112426109372*^9, 3.6112426224222*^9}, {3.6228349507882*^9, 
  3.6228349521542*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Todas", " ", "las", " ", "celdas", " ", "que", " ", "tienen", " ", "el", 
     " ", "fondo", " ", "de", " ", "este", " ", "mismo", " ", "color", " ", 
     "son", " ", "ejecutables"}], " ", "-", " ", 
    RowBox[{"con", " ", "shift"}], "+", 
    RowBox[{
    "enter", " ", "o", " ", "el", " ", "enter", " ", "del", " ", "teclado", 
     " ", "num\[EAcute]rico"}]}], "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PolyLog", "[", 
       RowBox[{
        RowBox[{"5", "/", "2"}], ",", " ", "x"}], "]"}], ",", " ", 
      RowBox[{"PolyLog", "[", 
       RowBox[{
        RowBox[{"3", "/", "2"}], ",", " ", "x"}], "]"}], ",", 
      RowBox[{"Log", "[", 
       FractionBox["2", 
        RowBox[{"2", "-", "x"}]], "]"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
    RowBox[{"PlotStyle", "\[Rule]", " ", 
     RowBox[{"{", 
      RowBox[{"Thin", ",", " ", "Thin", ",", " ", "Thick"}], "}"}]}], ",", 
    " ", 
    RowBox[{"PlotLabel", "\[Rule]", " ", 
     RowBox[{"Style", "[", 
      RowBox[{
      "\"\<\!\(\*SubscriptBox[\(g\), \(5/2\)]\)[x],   \
\!\(\*SubscriptBox[\(g\), \(3/2\)]\)[x],   Log[\!\(\*FractionBox[\(2\), \(2 - \
x\)]\)]\>\"", ",", " ", "20"}], "]"}]}], ",", " ", 
    RowBox[{"Background", "\[Rule]", "LightGray"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6109737841478*^9, 3.6109738032818003`*^9}, {
  3.610975362054*^9, 3.610975472599*^9}, {3.610977145066*^9, 
  3.610977146197*^9}, {3.610977275898*^9, 3.6109772804049997`*^9}, {
  3.6112429798482*^9, 3.6112430139862003`*^9}, {3.622832962024*^9, 
  3.6228329734202003`*^9}, {3.6228331134077997`*^9, 3.6228331221354*^9}, {
  3.6228336093006*^9, 3.6228336578084*^9}, {3.6228337886328*^9, 
  3.6228338007454*^9}}],

Cell[TextData[{
 "La funci\[OAcute]n Log[2/(2-x)] tiene las caracter\[IAcute]sticas \
cualitativas de una ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["g", "v"], " "}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "para ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Nu]", ">", "1."}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "Converge en z = 1 y todas sus derivadas son mayores que cero en el \
intervalo 0, 1."
}], "Text",
 CellChangeTimes->{{3.6228349389692*^9, 3.622834999449*^9}, {
  3.6228350692539997`*^9, 3.6228350737642*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Las funciones termodin\[AAcute]micas intensivas y n.\
\>", "Section",
 CellChangeTimes->{{3.6112405624926*^9, 3.6112405786396*^9}, {
  3.622895990325465*^9, 3.622895990824665*^9}}],

Cell["\<\
p = presi\[OAcute]n
u = energ\[IAcute]a por part\[IAcute]cula
p0 = presi\[OAcute]n de las part\[IAcute]culas en el nivel fundamental
v = volumen por part\[IAcute]cula
T = temperatura
n = n\[UAcute]mero de part\[IAcute]culas
(constante de Bolztman = 1)\
\>", "Text",
 CellChangeTimes->{{3.6112406169986*^9, 3.6112406214236*^9}, {
  3.6112426365172*^9, 3.6112426713002*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"p", "[", 
    RowBox[{"z_", ",", " ", "T_", ",", " ", "n_", ",", " ", "v_"}], "]"}], ":=",
    " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["T", 
       RowBox[{"n", " ", "v"}]]}], 
     RowBox[{"Log", "[", 
      RowBox[{"1", "-", "z"}], "]"}]}], " ", "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["T", 
      RowBox[{"5", "/", "2"}]], 
     RowBox[{"Log", "[", 
      FractionBox["2", 
       RowBox[{"2", "-", "z"}]], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"u", "[", 
    RowBox[{"z_", ",", " ", "T_", ",", "  ", "v_"}], "]"}], ":=", " ", 
   RowBox[{"3", " ", "v", " ", 
    SuperscriptBox["T", 
     RowBox[{"5", "/", "2"}]], " ", 
    RowBox[{"Log", "[", 
     FractionBox["2", 
      RowBox[{"2", "-", "z"}]], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"p0", "[", 
    RowBox[{"z_", ",", "T_", ",", "  ", "n_", ",", " ", "v_"}], "]"}], ":=", 
   "  ", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["T", 
      RowBox[{"n", " ", "v"}]]}], 
    RowBox[{"Log", "[", 
     RowBox[{"1", "-", "z"}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.61097719776*^9, 3.610977426013*^9}, {3.610977459469*^9, 
  3.610977469858*^9}, {3.6109789845196*^9, 3.6109789989203997`*^9}, {
  3.610979099924*^9, 3.6109791218702*^9}, {3.610981862233*^9, 
  3.610981891685*^9}, {3.6109819287724*^9, 3.6109819399764*^9}, {
  3.6109820102204*^9, 3.610982033227*^9}, {3.6112406293556004`*^9, 
  3.6112406322455997`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
La ecuaci\[OAcute]n que satisface la fugacidad.\
\>", "Section",
 CellChangeTimes->{{3.6112406341612*^9, 3.6112406411071997`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ec", "[", 
    RowBox[{"z_", ",", " ", "T_", ",", " ", "n_", ",", " ", "v_"}], "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{"n", " ", "\[Equal]", "  ", 
     RowBox[{
      FractionBox["z", 
       RowBox[{"1", "-", "z"}]], " ", "+", 
      RowBox[{"n", "  ", "v", " ", 
       SuperscriptBox["T", 
        RowBox[{"3", "/", "2"}]], "  ", 
       FractionBox[
        RowBox[{"2", "z"}], 
        RowBox[{"2", "-", "z"}]]}]}]}], ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6112407787708*^9, 3.6112407991028*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "La soluci\[OAcute]n, en t\[EAcute]rminos de un par\[AAcute]metro a = ",
 Cell[BoxData[
  FormBox[
   RowBox[{"v", " ", 
    RowBox[{
     SuperscriptBox["T", 
      RowBox[{"3", "/", "2"}]], "."}]}], TraditionalForm]],
  FormatType->"TraditionalForm"]
}], "Subsection",
 CellChangeTimes->{{3.6112405852226*^9, 3.6112406156015997`*^9}, {
  3.6112406736502*^9, 3.6112406766782*^9}, {3.6112407133008003`*^9, 
  3.6112407592918*^9}}],

Cell[BoxData[
 RowBox[{"sol", " ", "=", " ", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"ec", "[", 
     RowBox[{"z", ",", " ", "T", ",", " ", "n", ",", " ", 
      FractionBox["a", 
       SuperscriptBox["T", 
        RowBox[{"3", "/", "2"}]]]}], "]"}], ",", " ", "z"}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.6112406793442*^9, {3.6112407854838*^9, 3.6112407862888002`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Cada soluci\[OAcute]n de la cuadr\[AAcute]tica por separado, para investigar \
cu\[AAcute]l corresponde al caso f\[IAcute]sico con 0 < z < 1.\
\>", "Subsection",
 CellChangeTimes->{{3.6112406917658*^9, 3.6112407208227997`*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"sol1", "[", 
      RowBox[{"n_", ",", " ", "a_"}], "]"}], ":=", " ", 
     FractionBox[
      RowBox[{
       RowBox[{"-", "2"}], "-", 
       RowBox[{"3", " ", "n"}], "-", 
       RowBox[{"2", " ", "a", " ", "n"}], "+", 
       SqrtBox[
        RowBox[{"4", "+", 
         RowBox[{"4", " ", "n"}], "+", 
         RowBox[{"8", " ", "a", " ", "n"}], "+", 
         SuperscriptBox["n", "2"], "-", 
         RowBox[{"4", " ", "a", " ", 
          SuperscriptBox["n", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["n", "2"]}]}]]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "-", "n", "-", 
         RowBox[{"2", " ", "a", " ", "n"}]}], ")"}]}]]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"sol2", "[", 
      RowBox[{"n_", ",", " ", "a_"}], "]"}], ":=", 
     FractionBox[
      RowBox[{"2", "+", 
       RowBox[{"3", " ", "n"}], "+", 
       RowBox[{"2", " ", "a", " ", "n"}], "+", 
       SqrtBox[
        RowBox[{"4", "+", 
         RowBox[{"4", " ", "n"}], "+", 
         RowBox[{"8", " ", "a", " ", "n"}], "+", 
         SuperscriptBox["n", "2"], "-", 
         RowBox[{"4", " ", "a", " ", 
          SuperscriptBox["n", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["n", "2"]}]}]]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "n", "+", 
         RowBox[{"2", " ", "a", " ", "n"}]}], ")"}]}]]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.610977515263*^9, 3.610977526227*^9}, {3.610977585153*^9,
    3.610977622258*^9}, {3.6109777155550003`*^9, 3.610977739468*^9}, 
   3.6112406718311996`*^9, {3.6112407232237997`*^9, 3.6112407251008*^9}}],

Cell[TextData[{
 "Las dos soluciones graficadas como funci\[OAcute]n del par\[AAcute]metro ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", " ", "=", " ", 
    RowBox[{"v", " ", 
     SuperscriptBox["T", 
      RowBox[{"3", "/", "2"}]]}]}], TraditionalForm]]],
 ", permitiendo variar ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]]],
 ", en este caso escrito como ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", " ", "=", " ", 
    SuperscriptBox["10", "x"]}], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.6112408515348*^9, 3.6112409062528*^9}, 
   3.6112427082452*^9}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"sol1", "[", 
        RowBox[{
         SuperscriptBox["10", "x"], ",", " ", "a"}], "]"}], ",", " ", 
       RowBox[{"sol2", "[", 
        RowBox[{
         SuperscriptBox["10", "x"], ",", " ", "a"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"a", ",", " ", "0", ",", " ", "3"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", " ", "Red"}], "}"}]}], ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<Las dos soluciones para z\>\"", ",", " ", "20"}], "]"}]}],
      ",", " ", 
     RowBox[{"Background", "\[Rule]", "LightGray"}], ",", " ", 
     RowBox[{"AxesLabel", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{
         "\"\<\!\(TraditionalForm\`\(\(\\\ \)\(v\\\ \*SuperscriptBox[\(T\), \
\(3/2\)]\)\)\)\>\"", ",", " ", "20"}], "]"}], ",", " ", "None"}], "}"}]}]}], 
    "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "2"}], "}"}], ",", " ", "0", ",", "4", ",", " ", 
     RowBox[{"Appearance", "\[Rule]", " ", "\"\<Open\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.610977575104*^9, 3.610977575668*^9}, {3.610977625436*^9,
   3.610977691118*^9}, {3.610977748758*^9, 3.610977782815*^9}, {
  3.6112408202918*^9, 3.6112408322497997`*^9}, {3.6112409128278*^9, 
  3.6112409227158003`*^9}, {3.6112413599326*^9, 3.6112413662186003`*^9}, {
  3.6112430535636*^9, 3.6112430613185997`*^9}, {3.6228331283344*^9, 
  3.6228331388174*^9}, {3.6228336778206*^9, 3.6228336849136*^9}, {
  3.6228351077446003`*^9, 3.6228351499296*^9}}],

Cell[TextData[{
 "La soluci\[OAcute]n f\[IAcute]sica es la funci\[OAcute]n antes llamada \
sol1. Notar c\[OAcute]mo la soluci\[OAcute]n tiende a 1 de manera abrupta por \
debajo del valor cr\[IAcute]tico  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["a", "crit"], " ", "=", " ", 
    RowBox[{"1", "/", "2"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Cuanto mayor es ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", m\[AAcute]s marcada es la transici\[OAcute]n."
}], "Text",
 CellChangeTimes->{{3.6112409400438004`*^9, 3.6112410187827997`*^9}, {
  3.6112413726586*^9, 3.6112413738076*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"zeta", "[", 
    RowBox[{"n_", ",", " ", "a_"}], "]"}], ":=", " ", 
   RowBox[{"sol1", "[", 
    RowBox[{"n", ",", " ", "a"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6112413763226*^9, 3.6112413871605997`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "La fracci\[OAcute]n de part\[IAcute]culas en el nivel fundamental como \
funci\[OAcute]n de la temperatura para ",
 Cell[BoxData[
  FormBox[
   RowBox[{"v", " ", "=", " ", "1."}], TraditionalForm]]]
}], "Section",
 CellChangeTimes->{{3.6112410294098*^9, 3.6112410748268003`*^9}, {
   3.6112415910354*^9, 3.6112415965654*^9}, 3.6112427360792*^9, {
   3.623250919058*^9, 3.623250926027*^9}}],

Cell[TextData[{
 "La barra del gr\[AAcute]fico de abajo permite variar el n\[UAcute]mero de \
part\[IAcute]culas, escrito aqu\[IAcute] como ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["10", "x"], TraditionalForm]]],
 ". "
}], "Text",
 CellChangeTimes->{{3.6112410942108*^9, 3.6112411086598*^9}, {
  3.6228330674342003`*^9, 3.6228330675072002`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"n0", "[", 
    RowBox[{"z_", ",", " ", "n_"}], "]"}], ":=", 
   RowBox[{
    FractionBox["1", "n"], " ", 
    FractionBox["z", 
     RowBox[{"1", "-", "z"}]]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6109785412352*^9, 3.6109785417288*^9}, {
   3.6109787145802*^9, 3.6109787353646*^9}, 3.6112427438132*^9}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n0", "[", 
       RowBox[{
        RowBox[{"zeta", "[", 
         RowBox[{
          SuperscriptBox["10", "x"], ",", " ", 
          SuperscriptBox["T", 
           RowBox[{"3", "/", "2"}]]}], "]"}], ",", " ", 
        SuperscriptBox["10", "x"]}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"T", ",", " ", "0", ",", "2"}], "}"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "1"}], "}"}]}], ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<\!\(\*SubscriptBox[\(n\), \(0\)]\)\>\"", ",", " ", "20"}],
        "]"}]}], ",", " ", 
     RowBox[{"Background", "\[Rule]", "LightGray"}], ",", " ", 
     RowBox[{"AxesLabel", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\!\(\*
StyleBox[\"T\",
FontSlant->\"Italic\"]\)\>\"", ",", " ", "20"}], "]"}], ",", " ", "None"}], 
       "}"}]}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "2"}], "}"}], ",", " ", "0", ",", " ", "6", ",", 
     " ", 
     RowBox[{"Appearance", "\[Rule]", " ", "\"\<Open\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6109787502785997`*^9, 3.6109787876486*^9}, {
   3.6109788373862*^9, 3.6109788421442003`*^9}, {3.6109862320109997`*^9, 
   3.6109862656302*^9}, {3.6112411120358*^9, 3.6112411244748*^9}, 
   3.6112413061216*^9, {3.6112413914456*^9, 3.6112413920396*^9}, {
   3.6112427527532*^9, 3.6112427531312*^9}, {3.6228330751642*^9, 
   3.622833105685*^9}, {3.6228331505984*^9, 3.6228331555474*^9}, {
   3.6228332055776*^9, 3.6228332383557997`*^9}, 3.6228333198634*^9, {
   3.6228337235606003`*^9, 3.6228337468012*^9}}],

Cell[TextData[{
 "Dado que el valor cr\[IAcute]tico de ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", " ", "=", " ", 
    RowBox[{"v", " ", 
     SuperscriptBox["T", 
      RowBox[{"3", "/", "2"}]]}]}], TraditionalForm]]],
 " es 1/2, el valor cr\[IAcute]tico de la temperatura para ",
 Cell[BoxData[
  FormBox[
   RowBox[{"v", " ", "=", " ", "1"}], TraditionalForm]]],
 " es ",
 Cell[BoxData[
  FormBox[
   RowBox[{"T", " ", "=", " ", 
    RowBox[{
     RowBox[{"1", "/", 
      SuperscriptBox["2", 
       RowBox[{"2", "/", "3"}]]}], "=", " "}]}], TraditionalForm]]],
 "0.6299... Notar lo que ocurre con n0 al aumentar n."
}], "Text",
 CellChangeTimes->{{3.6112411412298*^9, 3.6112413004846*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
La presi\[OAcute]n de las part\[IAcute]culas en el nivel fundamental, p0[z, \
T,  n, v].\
\>", "Section",
 CellChangeTimes->{{3.6112413217806*^9, 3.6112413292966003`*^9}, 
   3.6112415026921997`*^9, {3.6112415732414*^9, 3.6112415830854*^9}}],

Cell[TextData[{
 "Se grafica ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["p", "0"], " ", "v"}], TraditionalForm]]],
 " para ",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"T", " ", "=", " ", "1."}]}], TraditionalForm]]],
 " En tal caso la variable independiente es el par\[AAcute]metro ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", " ", "=", " ", "v"}], TraditionalForm]]],
 ". Por comodidad, el n\[UAcute]mero de part\[IAcute]culas est\[AAcute] \
escrito como ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["10", "n"], TraditionalForm]]],
 "."
}], "Text",
 CellChangeTimes->{{3.6112415073852*^9, 3.6112415553304*^9}, {
  3.611242148139*^9, 3.6112421614432*^9}, {3.622833845822*^9, 
  3.62283384937*^9}, {3.6228351830018*^9, 3.6228351846338*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", " ", 
       RowBox[{"p0", "[", 
        RowBox[{
         RowBox[{"zeta", "[", 
          RowBox[{
           SuperscriptBox["10", "n"], ",", " ", "a"}], "]"}], ",", "1", ",", 
         "  ", 
         SuperscriptBox["10", "n"], ",", " ", "a"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"a", ",", " ", "0", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", " ", "All"}], ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<\!\(\*
StyleBox[SubscriptBox[\"p\", \"0\"],
FontSlant->\"Italic\"]\)\!\(\*
StyleBox[\"v\",
FontSlant->\"Italic\"]\)\>\"", ",", " ", "20"}], "]"}]}], ",", " ", 
     RowBox[{"Background", "\[Rule]", "LightGray"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\!\(\*
StyleBox[\"v\",
FontSlant->\"Italic\"]\)\>\"", ",", " ", "20"}], "]"}], ",", " ", "None"}], 
       "}"}]}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "2"}], "}"}], ",", " ", "0", ",", " ", "6", ",", "  ", 
     RowBox[{"Appearance", "\[Rule]", " ", "\"\<Open\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6109790161698*^9, 3.6109790162946*^9}, {
   3.6109791676442003`*^9, 3.6109791977911997`*^9}, {3.6109792446828003`*^9, 
   3.6109792449217997`*^9}, {3.6112414001415997`*^9, 3.6112414006986*^9}, 
   3.6112416038254004`*^9, {3.6112430822236*^9, 3.6112430823736*^9}, {
   3.6228332882466*^9, 3.6228333116736*^9}, {3.62283381362*^9, 
   3.6228338294904003`*^9}, {3.6228341568136*^9, 3.6228341570408*^9}, {
   3.6228342919494*^9, 3.6228342957214003`*^9}}],

Cell[TextData[{
 "Notar como al aumentar ",
 Cell[BoxData[
  FormBox["n", TraditionalForm]]],
 " el valor m\[AAcute]ximo de la presi\[OAcute]n de las part\[IAcute]culas en \
el nivel fundamental decrece fuertemente. (Prestar antenci\[OAcute]n a la \
escala vertical.) Adem\[AAcute]s, notar que se est\[AAcute] graficando ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["p", "0"], "v"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Ustedes pueden graficar ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["p", "0"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " por separado. Les va a convenir usar escala logar\[IAcute]tmica."
}], "Text",
 CellChangeTimes->{{3.6112416327494*^9, 3.6112416693733997`*^9}, {
  3.6228333388212*^9, 3.6228333444622*^9}, {3.6228342614898*^9, 
  3.6228343585774*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
La presi\[OAcute]n total p[z, T, v, n] \
\>", "Section",
 CellChangeTimes->{{3.6112416907684*^9, 3.611241716755*^9}}],

Cell[TextData[{
 "Se grafica ",
 Cell[BoxData[
  FormBox[
   RowBox[{"p", " ", "v"}], TraditionalForm]]],
 " para ",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{"T", " ", "=", " ", "1."}]}], TraditionalForm]]],
 " En tal caso, la variable independiente es el par\[AAcute]metro ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", " ", "=", " ", "v"}], TraditionalForm]]],
 ". El valor cr\[IAcute]tico del volumen por part\[IAcute]cula es 1/2. Por \
comparaci\[OAcute]n tambi\[EAcute]n se muestra la presi\[OAcute]n del \
fundamental. "
}], "Text",
 CellChangeTimes->{{3.6112415073852*^9, 3.6112415553304*^9}, {
  3.6112417908705997`*^9, 3.6112417965566*^9}, {3.6112431794556*^9, 
  3.6112431820056*^9}, {3.6228334136001997`*^9, 3.6228334349484*^9}, {
  3.6228335502334003`*^9, 3.6228335545123997`*^9}, {3.6228352016808*^9, 
  3.6228352017678003`*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", " ", 
        RowBox[{"p", "[", 
         RowBox[{
          RowBox[{"zeta", "[", 
           RowBox[{
            SuperscriptBox["10", "n"], ",", " ", "a"}], "]"}], ",", "1", ",", 
          "  ", 
          SuperscriptBox["10", "n"], ",", " ", "a"}], "]"}]}], ",", 
       RowBox[{"a", " ", 
        RowBox[{"p0", "[", 
         RowBox[{
          RowBox[{"zeta", "[", 
           RowBox[{
            SuperscriptBox["10", "n"], ",", " ", "a"}], "]"}], ",", "1", ",", 
          "  ", 
          SuperscriptBox["10", "n"], ",", " ", "a"}], "]"}]}]}], "}"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"a", ",", " ", "0.01", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", " ", "All"}], ",", " ", 
     RowBox[{"PlotLabel", "\[Rule]", " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<\!\(\*
StyleBox[SubscriptBox[\"vp\", \"total\"],
FontSlant->\"Italic\"]\)  vs   \!\(\*
StyleBox[SubscriptBox[\"vp\", \"0\"],
FontSlant->\"Italic\"]\)\>\"", ",", " ", "20"}], "]"}]}], ",", " ", 
     RowBox[{"Background", "\[Rule]", "LightGray"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\!\(\*
StyleBox[\"v\",
FontSlant->\"Italic\"]\)\>\"", ",", " ", "20"}], "]"}], ",", " ", "None"}], 
       "}"}]}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", " ", "1."}], "}"}], ",", " ", "0", ",", " ", "6", ",",
      " ", 
     RowBox[{"Appearance", "\[Rule]", " ", "\"\<Open\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.6109792823866*^9, {3.6109793283668003`*^9, 3.6109793288972*^9}, {
   3.6112414041566*^9, 3.6112414047785997`*^9}, {3.611241746198*^9, 
   3.6112417499960003`*^9}, {3.6112428063571997`*^9, 3.6112428070042*^9}, {
   3.6228333578222*^9, 3.6228334043546*^9}, {3.6228334419924*^9, 
   3.6228334708654003`*^9}, {3.622833859514*^9, 3.6228338689632*^9}, {
   3.6228341099642*^9, 3.6228341342404003`*^9}, {3.6228342250128*^9, 
   3.6228342408784*^9}, {3.6228352198738003`*^9, 3.6228352470074*^9}}],

Cell[TextData[{
 "Notar que a medida que aumenta n, el cambio en la derivada de la presi\
\[OAcute]n cerca del valor cr\[IAcute]tico del volumen se hace cada vez m\
\[AAcute]s abrupto. Abajo se grafica la derivada de ",
 Cell[BoxData[
  FormBox[
   RowBox[{"p", " ", "v"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " respecto de ",
 Cell[BoxData[
  FormBox["v", TraditionalForm]],
  FormatType->"TraditionalForm"],
 "."
}], "Text",
 CellChangeTimes->{{3.611241757615*^9, 3.6112418136806*^9}, {
  3.6112428232262*^9, 3.6112428288732*^9}, {3.6228338794258003`*^9, 
  3.6228339087390003`*^9}, {3.6228343681616*^9, 3.6228345331274*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"derivada", "[", 
   RowBox[{"n_", ",", " ", "a_"}], "]"}], ":=", " ", 
  RowBox[{"Evaluate", "[", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"p", "[", 
       RowBox[{
        RowBox[{"zeta", "[", 
         RowBox[{
          SuperscriptBox["10", "n"], ",", " ", "a"}], "]"}], ",", "1", ",", 
        "  ", 
        SuperscriptBox["10", "n"], ",", " ", "a"}], "]"}]}], ",", "a"}], 
    "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6112419563887997`*^9, 3.6112420105564003`*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"derivada", "[", 
      RowBox[{"n", ",", " ", "a"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"a", ",", " ", "0", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", " ", "All"}], ",", "  ", 
     RowBox[{"PlotLabel", "\[Rule]", " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<\!\(\*FractionBox[
RowBox[{
StyleBox[
RowBox[{\"d\", 
StyleBox[\"pv\",
FontSlant->\"Italic\"]}]], 
StyleBox[\" \",
FontSlant->\"Italic\"]}], 
StyleBox[
RowBox[{\"d\", 
StyleBox[\"v\",
FontSlant->\"Italic\"]}]]]\)\>\"", ",", " ", "20"}], "]"}]}], ",", " ", 
     RowBox[{"Background", "\[Rule]", "LightGray"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\!\(\*
StyleBox[\"v\",
FontSlant->\"Italic\"]\)\>\"", ",", " ", "20"}], "]"}], ",", " ", "None"}], 
       "}"}]}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", " ", "2"}], "}"}], ",", " ", "0", ",", " ", "6", ",", 
     "  ", 
     RowBox[{"Appearance", "\[Rule]", " ", "\"\<Open\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.6109792823866*^9, {3.6109793283668003`*^9, 3.6109793288972*^9}, {
   3.6112414041566*^9, 3.6112414047785997`*^9}, {3.611241746198*^9, 
   3.6112417499960003`*^9}, {3.6112418369035997`*^9, 3.6112419470758*^9}, {
   3.6112420258873997`*^9, 3.6112420487674*^9}, {3.6112433319406*^9, 
   3.6112433320936003`*^9}, {3.6228335019484*^9, 3.6228335162106*^9}, {
   3.6228335646654*^9, 3.6228335664336*^9}, {3.6228345757648*^9, 
   3.6228346064245996`*^9}, {3.6228346873394003`*^9, 3.6228346875594*^9}, 
   3.6228352660123997`*^9}],

Cell[TextData[{
 "Esto est\[AAcute] relacionado con la compresibilidad. No es directamente el \
inverso de la compresibilidad porque se calcula la derivada de ",
 Cell[BoxData[
  FormBox[
   RowBox[{"p", " ", "v"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " respecto de ",
 Cell[BoxData[
  FormBox["v", TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Piensen que en el caso de un gas ideal cl\[AAcute]sico, eso da cero, y es \
lo que se ve en el gr\[AAcute]fico de arriba para valores grandes de ",
 Cell[BoxData[
  FormBox["v", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " donde todas las cosas tienden a ser cl\[AAcute]sicas."
}], "Text",
 CellChangeTimes->{{3.6228345452518*^9, 3.6228345557408*^9}, {
  3.622834618076*^9, 3.6228346412525997`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
La energ\[IAcute]a por part\[IAcute]cula u[z, T, v].\
\>", "Section",
 CellChangeTimes->{{3.6112420601344*^9, 3.6112420893894*^9}}],

Cell[TextData[{
 "Se grafica como funci\[OAcute]n de la temperatura para ",
 Cell[BoxData[
  FormBox[
   RowBox[{"v", " ", "=", " ", "1"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". La barra permite variar el n\[UAcute]mero de part\[IAcute]culas, definido \
como ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["10", "n"], TraditionalForm]],
  FormatType->"TraditionalForm"]
}], "Text",
 CellChangeTimes->{{3.6112420916684*^9, 3.6112421306464*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{"u", "[", 
       RowBox[{
        RowBox[{"zeta", "[", 
         RowBox[{
          SuperscriptBox["10", "n"], ",", " ", "a"}], "]"}], ",", 
        SuperscriptBox["a", 
         RowBox[{"2", "/", "3"}]], ",", "  ", "1"}], "]"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"a", ",", " ", "0", ",", " ", ".8"}], "}"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", " ", "All"}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<energ\[IAcute]a/part\[IAcute]cula\>\"", ",", " ", "20"}], 
       "]"}]}], ",", " ", 
     RowBox[{"Background", "\[Rule]", "LightGray"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\!\(\*
StyleBox[\"T\",
FontSlant->\"Italic\"]\)\>\"", ",", " ", "20"}], "]"}], ",", " ", "None"}], 
       "}"}]}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", " ", "2"}], "}"}], ",", " ", "0", ",", " ", "8", ",", 
     "  ", 
     RowBox[{"Appearance", "\[Rule]", " ", "\"\<Open\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6109820414776*^9, 3.6109820933732*^9}, {
  3.6112414074566*^9, 3.6112414080716*^9}, {3.611242168451*^9, 
  3.6112421962251997`*^9}, {3.6112433461015997`*^9, 3.6112433504116*^9}, {
  3.6228346638176003`*^9, 3.6228346986717997`*^9}, {3.6228347573904*^9, 
  3.6228348557328*^9}, {3.623251067281*^9, 3.623251070256*^9}}],

Cell[TextData[{
 "Notar que al aumentar n, el cambio en la derivada de u respecto de la \
temperatura se hace cada vez m\[AAcute]s marcado. Esa derivada es el calor \
espec\[IAcute]fico, que en el l\[IAcute]mite en que ",
 Cell[BoxData[
  FormBox[
   RowBox[{"n", "\[Rule]", " ", "\[Infinity]"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " tiene una discontinuidad."
}], "Text",
 CellChangeTimes->{{3.6112422068712*^9, 3.6112422759172*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["El calor espec\[IAcute]fico", "Section",
 CellChangeTimes->{{3.6112422797272*^9, 3.6112422844712*^9}}],

Cell[TextData[{
 "El gr\[AAcute]fico muestra el calor espec\[IAcute]fico como funci\[OAcute]n \
de ",
 Cell[BoxData[
  FormBox["T", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " para ",
 Cell[BoxData[
  FormBox[
   RowBox[{"v", " ", "=", " ", "1."}], TraditionalForm]],
  FormatType->"TraditionalForm"]
}], "Text",
 CellChangeTimes->{{3.6112425244611998`*^9, 3.6112425455692*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"cv", "[", 
    RowBox[{"n_", ",", " ", "T_", ",", " ", "v_"}], "]"}], ":=", " ", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"u", "[", 
       RowBox[{
        RowBox[{"zeta", "[", 
         RowBox[{"n", ",", " ", 
          RowBox[{"v", " ", 
           SuperscriptBox["T", 
            RowBox[{"3", "/", "2"}]]}]}], "]"}], ",", "  ", "T", ",", " ", 
        "v"}], "]"}], ",", " ", "T"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6112422918792*^9, 3.6112424397539997`*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{"cv", "[", 
       RowBox[{
        SuperscriptBox["10", "n"], ",", "T", ",", "  ", "1"}], "]"}], "}"}], 
     ",", " ", 
     RowBox[{"{", 
      RowBox[{"T", ",", " ", "0", ",", " ", "1.5"}], "}"}], ",", " ", 
     RowBox[{"PlotRange", "\[Rule]", " ", "All"}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", " ", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<calor espec\[IAcute]fico\>\"", ",", " ", "20"}], "]"}]}], 
     ",", " ", 
     RowBox[{"Background", "\[Rule]", "LightGray"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<\!\(\*
StyleBox[\"T\",
FontSlant->\"Italic\"]\)\>\"", ",", " ", "20"}], "]"}], ",", " ", "None"}], 
       "}"}]}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", " ", "2"}], "}"}], ",", " ", "0", ",", " ", "8", ",", 
     " ", 
     RowBox[{"Appearance", "\[Rule]", " ", "\"\<Open\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6112424530620003`*^9, 3.6112424772382*^9}, {
  3.6112425131972*^9, 3.6112425135872*^9}, {3.6112433650586*^9, 
  3.6112433743115997`*^9}, {3.6228347228976*^9, 3.6228347494886*^9}}],

Cell["\<\
Notar como va apareciendo la discontiuidad en el valor cr\[IAcute]tico de la \
temperatura a medida que aumenta el n\[UAcute]mero de part\[IAcute]culas.\
\>", "Text",
 CellChangeTimes->{{3.6112425566152*^9, 3.6112425944542*^9}}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1424, 779},
WindowMargins->{{-4, Automatic}, {Automatic, 0}},
FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 239, 5, 57, "Subtitle"],
Cell[CellGroupData[{
Cell[843, 31, 406, 9, 115, "Section"],
Cell[1252, 42, 1909, 45, 124, "Input"],
Cell[3164, 89, 566, 17, 30, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3767, 111, 190, 4, 81, "Section"],
Cell[3960, 117, 382, 10, 144, "Text"],
Cell[4345, 129, 1552, 45, 129, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5934, 179, 140, 3, 81, "Section"],
Cell[6077, 184, 561, 16, 55, "Input"],
Cell[CellGroupData[{
Cell[6663, 204, 447, 12, 31, "Subsection"],
Cell[7113, 218, 386, 10, 54, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7536, 233, 237, 4, 31, "Subsection"],
Cell[7776, 239, 1877, 52, 133, "Input"],
Cell[9656, 293, 579, 19, 32, "Text"],
Cell[10238, 314, 1806, 43, 64, "Input"],
Cell[12047, 359, 660, 17, 30, "Text"],
Cell[12710, 378, 265, 7, 40, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13024, 391, 407, 9, 81, "Section"],
Cell[13434, 402, 351, 9, 30, "Text"],
Cell[13788, 413, 354, 10, 55, "Input"],
Cell[14145, 425, 1870, 46, 64, "Input"],
Cell[16018, 473, 695, 22, 35, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16750, 500, 251, 5, 81, "Section"],
Cell[17004, 507, 770, 24, 30, "Text"],
Cell[17777, 533, 1825, 45, 64, "Input"],
Cell[19605, 580, 823, 21, 49, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20465, 606, 127, 3, 81, "Section"],
Cell[20595, 611, 854, 22, 30, "Text"],
Cell[21452, 635, 2233, 57, 64, "Input"],
Cell[23688, 694, 645, 16, 30, "Text"],
Cell[24336, 712, 547, 16, 42, "Input"],
Cell[24886, 730, 1781, 48, 84, "Input"],
Cell[26670, 780, 784, 19, 49, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27491, 804, 141, 3, 81, "Section"],
Cell[27635, 809, 462, 13, 30, "Text"],
Cell[28100, 824, 1600, 40, 64, "Input"],
Cell[29703, 866, 453, 10, 30, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30193, 881, 108, 1, 81, "Section"],
Cell[30304, 884, 390, 12, 30, "Text"],
Cell[30697, 898, 573, 16, 42, "Input"],
Cell[31273, 916, 1325, 35, 64, "Input"],
Cell[32601, 953, 238, 4, 30, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)