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

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

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     41846,       1194]
NotebookOptionsPosition[     39988,       1128]
NotebookOutlinePosition[     40330,       1143]
CellTagsIndexPosition[     40287,       1140]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Quit", "[", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.7311072152584*^9, 3.7311072163036003`*^9}}],

Cell[CellGroupData[{

Cell["Mec\[AAcute]nica Cl\[AAcute]sica 2018 1c - Turno A", "Chapter",
 CellChangeTimes->{{3.7311487609214*^9, 3.7311487993634*^9}, {
  3.7311557874128*^9, 3.7311557877404003`*^9}}],

Cell[CellGroupData[{

Cell[TextData[{
 "El problema es encontrar la superficie de revoluci\[OAcute]n de \
\[AAcute]rea m\[IAcute]nima definida por la curva ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "(", "x", ")"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " en el intervalo ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "\[Element]", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"-", "L"}], ",", " ", "L"}], "]"}]}], TraditionalForm]], 
  "Subtitle",
  FormatType->"TraditionalForm"],
 ", y tal que  ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"y", "(", 
     RowBox[{"\[PlusMinus]", "L"}], ")"}], " ", "=", " ", "1"}], 
   TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". \n\nVan dos ejemplos de tales superficies, la funci\[OAcute]n a la \
izquierda y la superficie de revoluci\[OAcute]n a la derecha."
}], "Subchapter",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.7323126020095997`*^9, 3.7323126560806*^9}, {
  3.7323129738016*^9, 3.7323129754486*^9}, {3.7323130741026*^9, 
  3.7323130846946*^9}, {3.7323155314262*^9, 3.732315531785*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{"#", ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", " ", "400"}]}], "]"}], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Sin", "[", 
         RowBox[{"\[Pi]", " ", 
          RowBox[{"(", 
           RowBox[{"x", "+", 
            FractionBox["1", "2"]}], ")"}]}], "]"}], " ", "+", "1"}], ")"}], 
      ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", 
        RowBox[{
         RowBox[{"-", "1"}], "/", "2"}], ",", " ", 
        RowBox[{"1", "/", "2"}]}], "}"}], ",", " ", 
      RowBox[{"PlotRange", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", "All"}], "}"}]}]}], "]"}], ",", " ", 
    RowBox[{"ParametricPlot3D", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x", ",", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"\[Pi]", " ", 
             RowBox[{"(", 
              RowBox[{"x", "+", 
               FractionBox["1", "2"]}], ")"}]}], "]"}], " ", "+", "1"}], 
          ")"}], "  ", 
         RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", "  ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Sin", "[", 
            RowBox[{"\[Pi]", " ", 
             RowBox[{"(", 
              RowBox[{"x", "+", 
               FractionBox["1", "2"]}], ")"}]}], "]"}], " ", "+", "1"}], 
          ")"}], "  ", 
         RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", 
        RowBox[{
         RowBox[{"-", "1"}], "/", "2"}], ",", " ", 
        RowBox[{"1", "/", "2"}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"\[Phi]", ",", " ", "0", ",", " ", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], ",", " ", 
      RowBox[{"BoxRatios", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"3", ",", " ", "1", ",", " ", "1"}], "}"}]}]}], "]"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.7323126582106*^9, 3.7323127786766*^9}, {
  3.7323128193506002`*^9, 3.7323128210676003`*^9}, {3.7323128826486*^9, 
  3.7323129074996*^9}, {3.7323129842396*^9, 3.7323130233126*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{"#", ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", " ", "400"}]}], "]"}], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["x", "2"], "+", "1"}], "2"], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", 
        RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", " ", 
      RowBox[{"PlotRange", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", "All"}], "}"}]}]}], "]"}], ",", 
    RowBox[{"ParametricPlot3D", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x", ",", " ", 
        RowBox[{
         FractionBox["1", "2"], 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x", "2"], "+", "1"}], ")"}], "  ", 
         RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", 
        RowBox[{
         FractionBox["1", "2"], "  ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x", "2"], "+", "1"}], ")"}], "  ", 
         RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", 
        RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"\[Phi]", ",", " ", "0", ",", " ", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], ",", " ", 
      RowBox[{"BoxRatios", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"3", ",", " ", "1", ",", " ", "1"}], "}"}]}]}], "]"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.7323129318596*^9, 3.7323129522595997`*^9}, {
  3.7323130282925997`*^9, 3.7323130518296003`*^9}, {3.7323155593758*^9, 
  3.7323155795048*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "El \[AAcute]rea de la superficie de revoluci\[OAcute]n es\n\n",
 Cell[BoxData[
  RowBox[{
   RowBox[{"A", "[", "y", "]"}], "=", " ", 
   RowBox[{"2", "\[Pi]", 
    RowBox[{
     SubsuperscriptBox["\[Integral]", 
      RowBox[{"-", "L"}], "L"], 
     RowBox[{"y", 
      RowBox[{"(", "x", ")"}], " ", 
      SqrtBox[
       RowBox[{"1", " ", "+", " ", 
        RowBox[{
         RowBox[{"y", "'"}], 
         SuperscriptBox[
          RowBox[{"(", "x", ")"}], "2"]}]}]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]]],
 ".\n\nVimos en clase que las soluciones catenarias del problema de \
extremizaci\[OAcute]n  son de la forma\n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"y", "(", "x", ")"}], "=", " ", 
    RowBox[{
     FractionBox["1", "\[Alpha]"], "Cosh", " ", 
     RowBox[{"(", 
      RowBox[{"\[Alpha]", " ", "x"}], ")"}]}]}], TraditionalForm]], 
  "Subtitle"],
 ".\n\nDebido a las condiciones en los extremos del intervalo, \[Alpha] debe \
ser soluci\[OAcute]n de la ecuaci\[OAcute]n\n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Alpha]", " ", "=", " ", 
    RowBox[{"Cosh", " ", 
     RowBox[{"(", 
      RowBox[{"\[Alpha]", " ", "L"}], ")"}]}]}], TraditionalForm]]],
 ".\n\nDependiendo del valor de ",
 Cell[BoxData[
  FormBox["L", TraditionalForm]]],
 ", esta ecuaci\[OAcute]n puede tener dos, una o ninguna soluci\[OAcute]n, \
como es f\[AAcute]cil de ver gr\[AAcute]ficamente:"
}], "Subchapter",
 CellChangeTimes->{{3.7323130920355997`*^9, 3.7323131750106*^9}, {
  3.7323156030053997`*^9, 3.7323156052704*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"L1", ",", " ", "L2", ",", " ", "L3"}], "}"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0.5", ",", " ", "0.6627", ",", "0.8"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Alpha]", ",", " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"\[Alpha]", " ", "L1"}], "]"}], ",", " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"\[Alpha]", " ", "L2"}], "]"}], ",", " ", 
     RowBox[{"Cosh", "[", 
      RowBox[{"\[Alpha]", " ", "L3"}], "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", ",", " ", "0", ",", " ", "5"}], "}"}], ",", " ", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Thick", ",", " ", "Gray"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", " ", "Orange"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Red"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"Thick", ",", "Green"}], "}"}]}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "5"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"Background", "\[Rule]", "Black"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ImageMargins", "\[Rule]", "20"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ImageSize", "\[Rule]", "500"}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"White", ",", " ", "Thick"}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}]}], 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.7323092342766*^9, 3.7323094723806*^9}, {
  3.7323096167876*^9, 3.7323096350456*^9}, {3.7323134306879997`*^9, 
  3.7323134321408*^9}, {3.7323136498616*^9, 3.7323136502984*^9}, {
  3.7323136924284*^9, 3.7323137040690002`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "El valor de ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["L", "c"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " que marca la transci\[OAcute]n entre ninguna o dos soluciones es tal que \
la recta ",
 Cell[BoxData[
  FormBox["\[Alpha]", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " es tangente al gr\[AAcute]fico de la funci\[OAcute]n ",
 Cell[BoxData[
  FormBox[
   RowBox[{"Cosh", " ", 
    RowBox[{"(", 
     RowBox[{"\[Alpha]", " ", "L"}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "). Eso da dos ecuaciones. En particular, el producto ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "c"], " ", "=", " ", 
    RowBox[{
     SubscriptBox["L", "c"], 
     SubscriptBox["\[Alpha]", "c"]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " satisface la ecuaci\[OAcute]n\n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["x", "c"], " ", "=", " ", 
    RowBox[{"Coth", " ", 
     RowBox[{
      SubscriptBox["x", "c"], "."}]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "\n\nLa soluci\[OAcute]n para ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["x", "c"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " puede hallarse mediante FindRoot o usando el comando FixedPoint, ya que el \
problema est\[AAcute] expresado como ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", " ", "=", " ", 
    RowBox[{"f", "(", "x", ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "."
}], "Subchapter",
 CellChangeTimes->{{3.7323096647436*^9, 3.7323097097416*^9}, {
  3.7323099236876*^9, 3.7323100445916*^9}, {3.7323156487576*^9, 
  3.7323156757692003`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"FindRoot", "[", 
    RowBox[{
     RowBox[{"x", " ", "\[Equal]", " ", 
      RowBox[{"Coth", "[", "x", "]"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "1"}], "}"}]}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], "[", 
  RowBox[{"[", "2", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7323100466266003`*^9, 3.7323100555866003`*^9}, {
  3.7323100885906*^9, 3.7323101081745996`*^9}, {3.7323101599236*^9, 
  3.7323101839826*^9}, {3.7323103054556*^9, 3.7323103169066*^9}}],

Cell[BoxData[
 RowBox[{"xc", " ", "=", " ", 
  RowBox[{"FixedPoint", "[", 
   RowBox[{"Coth", ",", " ", "1."}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7323100616366*^9, 3.7323100779625998`*^9}, {
  3.7323101138386*^9, 3.7323101199316*^9}, {3.7323101725116*^9, 
  3.7323102040626*^9}, {3.7323103098546*^9, 3.7323103102855997`*^9}, {
  3.7323114404406*^9, 3.7323114414986*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Este valor del producto ",
 Cell[BoxData[
  FormBox[
   RowBox[{"L", " ", "\[Alpha]"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " corresponde a \n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["L", "c"], "\[TildeEqual]"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " 0.662743\n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Alpha]", "c"], "\[TildeEqual]", "1.8101705806989774`", 
    " "}], TraditionalForm]],
  FormatType->"TraditionalForm"]
}], "Subchapter",
 CellChangeTimes->{{3.7323113443816*^9, 3.7323114236726*^9}, 
   3.7323132863356*^9, 3.7323156891102*^9}],

Cell["En efecto:", "Text",
 CellChangeTimes->{{3.7323132913668003`*^9, 3.7323132943464003`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"xc", " ", "=", " ", 
   RowBox[{"FixedPoint", "[", 
    RowBox[{"Coth", ",", " ", "1."}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Lc", " ", "=", " ", 
  SqrtBox[
   RowBox[{
    SuperscriptBox["xc", "2"], "-", "1"}]]}], "\[IndentingNewLine]", 
 RowBox[{"\[Alpha]c", " ", "=", " ", 
  RowBox[{"xc", "/", "Lc"}]}]}], "Input",
 CellChangeTimes->{{3.7323114335386*^9, 3.7323114701736*^9}, {
  3.732317117318*^9, 3.7323171191588*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Podemos definir funciones que encuentren num\[EAcute]ricamente las ra\
\[IAcute]ces de la ecuaci\[OAcute]n \n\n\[Alpha] - Cosh (\[Alpha] L) = 0, \n\n\
en el caso en que existan. Como hay dos ra\[IAcute]ces ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Alpha]", "1"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " y ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Alpha]", "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", tales que ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Alpha]", "1"], "<", " ", 
    SubscriptBox["\[Alpha]", "c"], "<", " ", 
    SubscriptBox["\[Alpha]", "2"]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", el problema se complica un poco, porque el ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " busca una sola ra\[IAcute]z, y a veces puede ir a parar a una, y a veces a \
la otra. \n\nSi el valor tentativo para iniciar la b\[UAcute]squeda se fija \
en ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Alpha]", "pr"], "=", " ", "1"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", FindRoot encuentra siempre la ra\[IAcute]z m\[AAcute]s peque\[NTilde]a, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Alpha]", "1"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Para encontrar la segunda ra\[IAcute]z, podemos definir una nueva funci\
\[OAcute]n que no tenga una ra\[IAcute]z en ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Alpha]", "1"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " pero que s\[IAcute] la siga teniendo en ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Alpha]", "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Eso puede conseguirse buscando las ra\[IAcute]ces de \n",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[IndentingNewLine]", 
    RowBox[{
     FractionBox[
      RowBox[{"\[Alpha]", " ", "-", " ", 
       RowBox[{"Cosh", " ", 
        RowBox[{"(", 
         RowBox[{"\[Alpha]", " ", "L"}], ")"}]}]}], 
      RowBox[{"\[Alpha]", "-", 
       SubscriptBox["\[Alpha]", "1"]}]], " ", "=", " ", "0"}]}], 
   TraditionalForm]],
  FormatType->"TraditionalForm"],
 "\n\n(Est\[AAcute]mos usando impl\[IAcute]citamente que el cero de la funci\
\[OAcute]n \[Alpha] - ",
 Cell[BoxData[
  FormBox[
   RowBox[{"Cosh", "(", 
    RowBox[{"\[Alpha]", " ", "L"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ") es simple, de modo que en la vecindad de ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Alpha]", "1"], " "}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "la funci\[OAcute]n ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Alpha]", " ", "-", " ", 
    RowBox[{"Cosh", "(", 
     RowBox[{"\[Alpha]", " ", "L"}], ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " se comporta linealmente).\n\nAs\[IAcute], para encontrar la segunda ra\
\[IAcute]z tenemos que usar el resultado obtenido para la primera."
}], "Subchapter",
 CellChangeTimes->{{3.7323118127216*^9, 3.7323123003546*^9}, {
  3.732315705383*^9, 3.732315709049*^9}, {3.7323157539849997`*^9, 
  3.7323157734236*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "Auxiliare", "*)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"xc", " ", "=", " ", 
     RowBox[{"FixedPoint", "[", 
      RowBox[{"Coth", ",", " ", "1."}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Lc", " ", "=", " ", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["xc", "2"], "-", "1"}]]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Alpha]c", " ", "=", " ", 
     RowBox[{"xc", "/", "Lc"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"La", " ", "primera", " ", "ra\[IAcute]z"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"?", 
     RowBox[{
     "NumericQ", " ", "incluido", " ", "en", " ", "la", " ", 
      "definici\[OAcute]n", " ", "de", " ", "la", " ", "funci\[OAcute]n", " ",
       "hace", " ", "que", " ", "no", " ", "intente", " ", "evaluarla", " ", 
      "a", " ", "menos", " ", "que", " ", "x", " ", "sea", " ", "un", " ", 
      RowBox[{"n\[UAcute]mero", ".", " ", "Es"}], " ", "necesario", " ", 
      "porque", " ", "FindRoot", " ", "no", " ", "opera", " ", 
      RowBox[{"simb\[OAcute]licamente", ".", " ", "Es"}], " ", "un", " ", 
      "comando", " ", "que", " ", "necesita", " ", "ser", " ", "alimentado", 
      " ", "por", " ", "n\[UAcute]meros", " ", "contantes", " ", "y", " ", 
      RowBox[{"sonantes", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Alpha]1", "[", 
      RowBox[{"x_", "?", "NumericQ"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Alpha]", ",", " ", 
         RowBox[{"y", " ", "=", " ", "x"}]}], "}"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Alpha]", " ", "-", " ", 
             RowBox[{"Cosh", "[", 
              RowBox[{"\[Alpha]", " ", "y"}], "]"}]}], " ", "\[Equal]", " ", 
            "0"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"\[Alpha]", ",", " ", "1"}], "}"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";"}], " ", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"La", " ", "segunda", " ", "ra\[IAcute]z"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Alpha]2", "[", 
      RowBox[{"x_", "?", "NumericQ"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Alpha]", ",", " ", 
         RowBox[{"y", " ", "=", " ", "x"}]}], "}"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"FindRoot", "[", 
          RowBox[{
           RowBox[{
            FractionBox[
             RowBox[{"\[Alpha]", "-", " ", 
              RowBox[{"Cosh", "[", 
               RowBox[{"\[Alpha]", " ", "y"}], "]"}]}], 
             RowBox[{"\[Alpha]", " ", "-", " ", 
              RowBox[{"\[Alpha]1", "[", "x", "]"}]}]], " ", "\[Equal]", " ", 
            "0"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"\[Alpha]", ",", " ", "\[Alpha]c"}], "}"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Las", " ", "\[AAcute]reas", " ", "de", " ", "la", " ", "superficie", " ",
      "de", " ", "revoluci\[OAcute]n", " ", "correspondientes", " ", "a", " ",
      "cada", " ", 
     RowBox[{"ra\[IAcute]z", " ", "[", 
      RowBox[{"\[DownExclamation]demostrarlo", "!"}], "]"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A1", "[", "L_", "]"}], ":=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"2", "\[Pi]"}], 
       RowBox[{"\[Alpha]1", "[", "L", "]"}]], 
      RowBox[{"(", 
       RowBox[{"L", " ", "+", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Alpha]1", "[", "L", "]"}], "2"], "-", "1"}]]}], 
       ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"A2", "[", "L_", "]"}], ":=", " ", 
     RowBox[{
      FractionBox[
       RowBox[{"2", "\[Pi]"}], 
       RowBox[{"\[Alpha]2", "[", "L", "]"}]], 
      RowBox[{"(", 
       RowBox[{"L", " ", "+", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Alpha]2", "[", "L", "]"}], "2"], "-", "1"}]]}], 
       ")"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Ac", " ", "=", " ", 
     RowBox[{"A1", "[", "Lc", "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.732215526431773*^9, 3.732215564886773*^9}, 
   3.732215639523773*^9, {3.7322653796*^9, 3.7322653807746*^9}, {
   3.7323123160796003`*^9, 3.7323123823436003`*^9}, {3.7323124133556004`*^9, 
   3.7323124214976*^9}, {3.7323124564175997`*^9, 3.7323124801236*^9}, {
   3.7323125171296*^9, 3.7323125240796003`*^9}, {3.7323125652785997`*^9, 
   3.7323125834286003`*^9}, {3.7323133078112*^9, 3.7323133118048*^9}, {
   3.7323157870327997`*^9, 3.7323158782846003`*^9}, {3.7323160084351997`*^9, 
   3.732316012304*^9}, {3.7323197249346*^9, 3.7323197713792*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Abajo, el gr\[AAcute]fico de las \[AAcute]reas ra\[IAcute]ces ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Alpha]", "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " y ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Alpha]", "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " como funciones de ",
 Cell[BoxData[
  FormBox["L", TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Notar que m\[AAcute]s all\[AAcute] de ",
 Cell[BoxData[
  FormBox[
   RowBox[{"L", " ", "=", " ", 
    SubscriptBox["L", "c"]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " no existen soluciones."
}], "Subchapter",
 CellChangeTimes->{{3.7323133312307997`*^9, 3.7323133947064*^9}, {
  3.7323138877622004`*^9, 3.732313896625*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Yellow", ",", " ", 
      RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", "Dashed", ",", "  ", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Lc", ",", " ", "0"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"Lc", ",", " ", 
           RowBox[{"\[Alpha]1", "[", "Lc", "]"}]}], "}"}]}], "}"}], "]"}]}], 
     "}"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Alpha]1", "[", "L", "]"}], ",", 
       RowBox[{"\[Alpha]2", "[", "L", "]"}]}], "}"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"L", ",", " ", "0.01", ",", " ", "Lc"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Thick", ",", " ", "Gray"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", " ", "Orange"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Red"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Yellow"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Background", "\[Rule]", "Black"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ImageMargins", "\[Rule]", "20"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ImageSize", "\[Rule]", "500"}], ",", "\[IndentingNewLine]", 
   RowBox[{"AspectRatio", "\[Rule]", " ", "1"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "8"}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"White", ",", " ", "Thick"}], "]"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.7323139073578*^9, 3.7323139561022*^9}}],

Cell[CellGroupData[{

Cell["\<\
Manipulemos: variando L se ve c\[OAcute]mo aparecen, se funden y desaparecen \
las dos ra\[IAcute]ces.\
\>", "Subsection",
 CellChangeTimes->{{3.7323143262506*^9, 3.7323143304792*^9}, {
  3.7323145406212*^9, 3.7323145703618*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Show", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"L", " ", "<", " ", "Lc"}], ",", " ", 
       RowBox[{"Graphics", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsolutePointSize", "[", "10", "]"}], ",", "Green", ",", 
          RowBox[{"Point", "[", 
           RowBox[{
            RowBox[{"\[Alpha]1", "[", "L", "]"}], 
            RowBox[{"{", 
             RowBox[{"1", ",", " ", "1"}], "}"}]}], "]"}]}], "}"}], "]"}], 
       ",", " ", 
       RowBox[{"Graphics", "[", "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"L", " ", "<", " ", "Lc"}], ",", " ", 
       RowBox[{"Graphics", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"AbsolutePointSize", "[", "10", "]"}], ",", "Yellow", ",", 
          " ", 
          RowBox[{"Point", "[", 
           RowBox[{
            RowBox[{"\[Alpha]2", "[", "L", "]"}], 
            RowBox[{"{", 
             RowBox[{"1", ",", " ", "1"}], "}"}]}], "]"}]}], "}"}], "]"}], 
       ",", 
       RowBox[{"Graphics", "[", "]"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", " ", 
         RowBox[{"Cosh", "[", 
          RowBox[{"L", " ", "x"}], "]"}]}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"x", ",", " ", "0", ",", " ", "10"}], "}"}]}], "]"}], ",", 
     " ", "\[IndentingNewLine]", 
     RowBox[{"ImageMargins", "\[Rule]", "20"}], ",", "\[IndentingNewLine]", 
     RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"AxesStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"White", ",", " ", "Thick"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "10"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "10"}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"AspectRatio", "\[Rule]", " ", "1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Background", "\[Rule]", " ", "Black"}]}], "\[IndentingNewLine]",
     "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"L", ",", " ", "0.4"}], "}"}], ",", " ", "0.25", ",", " ", 
     RowBox[{"2", "Lc"}], ",", " ", "0.001", ",", " ", 
     RowBox[{"Appearance", "\[Rule]", " ", "\"\<Open\>\""}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.732213064041773*^9, 3.732213122758773*^9}, {
  3.7322131663787727`*^9, 3.732213219133773*^9}, {3.732213302657773*^9, 
  3.7322134750437727`*^9}, {3.732213951683773*^9, 3.7322140957527733`*^9}, {
  3.732215475618773*^9, 3.7322154757787733`*^9}, {3.7323139907320004`*^9, 
  3.732314046299*^9}, {3.7323140832508*^9, 3.7323141534114*^9}, {
  3.7323142680193996`*^9, 3.732314298852*^9}, {3.7323143335866003`*^9, 
  3.7323143695526*^9}, {3.7323159093864*^9, 3.7323159141288*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Abajo, el gr\[AAcute]fico de las \[AAcute]reas ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["A", "1"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " y ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["A", "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " como funciones de ",
 Cell[BoxData[
  FormBox["L", TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Notar que m\[AAcute]s all\[AAcute] de ",
 Cell[BoxData[
  FormBox[
   RowBox[{"L", " ", "=", " ", 
    SubscriptBox["L", "c"]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " no existen soluciones."
}], "Subchapter",
 CellChangeTimes->{{3.7323133312307997`*^9, 3.7323133947064*^9}, {
  3.7323151313052*^9, 3.7323151342566*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Yellow", ",", " ", 
      RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", "Dashed", ",", "  ", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Lc", ",", " ", "0"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"Lc", ",", " ", "Ac"}], "}"}]}], "}"}], "]"}]}], "}"}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"A1", "[", "L", "]"}], ",", 
       RowBox[{"A2", "[", "L", "]"}]}], "}"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"L", ",", " ", "0.01", ",", " ", "0.66"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Thick", ",", " ", "Gray"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", " ", "Orange"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Background", "\[Rule]", "Black"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ImageMargins", "\[Rule]", "20"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ImageSize", "\[Rule]", "500"}], ",", "\[IndentingNewLine]", 
   RowBox[{"AspectRatio", "\[Rule]", " ", "1"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"White", ",", " ", "Thick"}], "]"}]}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.732220921674573*^9, 3.7322210054777727`*^9}, {
   3.7322222979489727`*^9, 3.732222323361373*^9}, 3.7322664148578*^9, {
   3.7322664557472*^9, 3.7322664663968*^9}, {3.7323123885406*^9, 
   3.7323124360296*^9}, {3.7323124675746*^9, 3.7323125316476*^9}, {
   3.7323133246914*^9, 3.7323133257209997`*^9}, {3.7323134014788*^9, 
   3.7323134200176*^9}, {3.7323136726893997`*^9, 3.7323138391074*^9}, {
   3.7323152888710003`*^9, 3.7323152890425997`*^9}, {3.732316019325*^9, 
   3.7323160196057997`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "La soluci\[OAcute]n de Goldschmidt: la \"funci\[OAcute]n\" ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["y", "G"], TraditionalForm]]],
 "(x) que consiste en los segmentos\n\n ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "L"}], ",", "1"}], "}"}], "\[Rule]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "L"}], ",", "0"}], "}"}], "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"L", ",", " ", "0"}], "}"}]}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"L", ",", " ", "1"}], "}"}], " "}], TraditionalForm]]],
 " \n ",
 Cell[BoxData[
  GraphicsBox[
   {RGBColor[1, 0, 0], AbsoluteThickness[2], 
    LineBox[{{-1, 1}, {-1, 0}, {1, 0}, {1, 1}}]},
   Axes->True,
   PlotRange->{-0.125, 1.25},
   Ticks->False]],
  CellChangeTimes->{{3.732314809717*^9, 3.7323148770938*^9}}],
 "\ngenera una superficie de revoluci\[OAcute]n que consiste en dos discos de \
radio 1 unidos por un filamento sobre el eje ",
 Cell[BoxData[
  FormBox["x", TraditionalForm]]],
 ". Independientemente del valor de ",
 Cell[BoxData[
  FormBox["L", TraditionalForm]]],
 ", el \[AAcute]rea de esta superficie es ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["A", 
     RowBox[{"G", " "}]], "=", " ", 
    RowBox[{"2", "\[Pi]"}]}], TraditionalForm]]],
 ", el \[AAcute]rea de los dos discos de radio 1.\n\nLa funci\[OAcute]n ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["y", "G"], TraditionalForm]]],
 " queda afuera de la familia de funciones continuas y derivables \
contempladas en el c\[AAcute]lculo variacional, pero genera de todos modos \
una superficie admisible. \n\nSi graficamos ahora las tres \[AAcute]reas, ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["A", "1"], TraditionalForm]]],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["A", "2"], TraditionalForm]]],
 " y ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["A", "G"], TraditionalForm]]],
 ", nos encontramos con una situaci\[OAcute]n no prevista: existe un ",
 Cell[BoxData[
  FormBox["L", TraditionalForm]]],
 " m\[AAcute]ximo, menor que ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["L", "c"], TraditionalForm]]],
 ", tal que la soluci\[OAcute]n de Goldschmidt da un \[AAcute]rea menor que \
la de las catenarias. "
}], "Subchapter",
 CellChangeTimes->{{3.7323145862114*^9, 3.7323146158115997`*^9}, {
  3.7323146986316*^9, 3.7323147837848*^9}, {3.7323148857236*^9, 
  3.7323152135226*^9}, {3.7323159423854*^9, 3.7323159742486*^9}, {
  3.7323212775772*^9, 3.7323212839264*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"AG", "[", "L_", "]"}], ":=", " ", 
   RowBox[{"2", "\[Pi]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Yellow", ",", " ", 
      RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", "Dashed", ",", "  ", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Lc", ",", " ", "0"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"Lc", ",", " ", "Ac"}], "}"}]}], "}"}], "]"}]}], "}"}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"AG", "[", "L", "]"}], ",", " ", 
       RowBox[{"A1", "[", "L", "]"}], ",", 
       RowBox[{"A2", "[", "L", "]"}]}], "}"}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"L", ",", " ", "0.01", ",", " ", "0.66"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Green", ",", " ", 
          RowBox[{"Thickness", "[", "0.006", "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", " ", "Orange"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"Thick", ",", "Red"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Background", "\[Rule]", "Black"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ImageMargins", "\[Rule]", "20"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ImageSize", "\[Rule]", "500"}], ",", "\[IndentingNewLine]", 
   RowBox[{"AspectRatio", "\[Rule]", " ", "1"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"White", ",", " ", "Thick"}], "]"}]}]}], "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->{{3.732315225598*^9, 3.7323152413746*^9}, {
  3.7323152791034*^9, 3.732315349488*^9}, {3.7323160023336*^9, 
  3.7323160025987997`*^9}, {3.7323160380011997`*^9, 3.7323160428226*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "El valor del ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["L", "m\[AAcute]x"], " "}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "se encuentra num\[EAcute]ricamente:"
}], "Subchapter",
 CellChangeTimes->{{3.732315389508*^9, 3.732315406362*^9}}],

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"A1", "[", "L", "]"}], " ", "\[Equal]", " ", 
    RowBox[{"2", "\[Pi]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"L", ",", " ", "0.5"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7323154091076*^9, 3.7323154216228*^9}}],

Cell[TextData[{
 "En el experimento con las pel\[IAcute]culas de jab\[OAcute]n, \[EAcute]sta \
ser\[IAcute]a la m\[AAcute]xima relaci\[OAcute]n entre la separaci\[OAcute]n ",
 Cell[BoxData[
  FormBox["L", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " y el radio de los anillos antes de que la superficie catenoide colapse en \
dos discos.\n\nM\[AAcute]s info: \n\n",
 "http://mathworld.wolfram.com/MinimalSurfaceofRevolution.html"
}], "Text",
 CellChangeTimes->{{3.7323160608456*^9, 3.7323161767595997`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Extra: la soluci\[OAcute]n del problema de la part\[IAcute]cula en el campo \
gravitatorio usando funciones de prueba que son combinaciones lineales de \
Sin[n \[Pi] t].\
\>", "Title",
 CellFrame->{{0, 0}, {0, 2}},
 CellChangeTimes->{{3.732314426834*^9, 3.7323144759266*^9}, {
  3.7323154449518003`*^9, 3.7323154524252*^9}},
 FontSize->36],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"y", "[", 
    RowBox[{"t_", ",", " ", "nmax_"}], "]"}], ":=", "  ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "n", "}"}], ",", " ", 
     RowBox[{
      FractionBox["4", 
       SuperscriptBox["\[Pi]", "3"]], " ", 
      RowBox[{"Sum", "[", 
       RowBox[{
        FractionBox[
         RowBox[{"Sin", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", "n"}], "+", "1"}], ")"}], " ", "\[Pi]", " ", "t"}], 
          "]"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "n"}], "+", "1"}], ")"}], "3"]], ",", " ", 
        RowBox[{"{", 
         RowBox[{"n", ",", " ", "0", ",", " ", "nmax"}], "}"}]}], "]"}]}]}], 
    "]"}]}], ";", " ", 
  RowBox[{"(*", "Demostrarlo", "*)"}]}]], "Input",
 CellChangeTimes->{{3.732232112736573*^9, 3.732232203950573*^9}, {
  3.7322323236123734`*^9, 3.732232338272373*^9}, {3.7322323973257732`*^9, 
  3.7322324453773727`*^9}, {3.732232503431773*^9, 3.732232504277773*^9}, {
  3.7323162013824*^9, 3.7323162050036*^9}}],

Cell["\<\
Aumentar el \"n\" en el argumento de y[t, n] para obtener funciones que \
incluyen cada vez m\[AAcute]s t\[EAcute]rminos.\
\>", "Text",
 CellChangeTimes->{{3.7323144887860003`*^9, 3.7323145157488003`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"npr", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], "t", 
       RowBox[{"(", 
        RowBox[{"1", " ", "-", " ", "t"}], ")"}]}], ",", " ", 
      RowBox[{"y", "[", 
       RowBox[{"t", ",", " ", "npr"}], "]"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"t", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
    RowBox[{"PlotRange", "\[Rule]", " ", "All"}], ",", " ", 
    RowBox[{"ImageSize", "\[Rule]", "800"}], ",", " ", 
    RowBox[{"Background", "\[Rule]", "Black"}]}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "Comparaci\[OAcute]n", " ", "con", " ", "la", " ", "soluci\[OAcute]n", " ",
     "exacta"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.732232205766773*^9, 3.732232212939773*^9}, 
   3.7322322485999727`*^9, {3.732232453691573*^9, 3.7322324624313726`*^9}, {
   3.732232513253573*^9, 3.732232528933573*^9}, {3.7322687727122*^9, 
   3.732268824047*^9}, {3.732314414899*^9, 3.7323144183154*^9}, {
   3.7323162119456*^9, 3.732316232992*^9}}]
}, Open  ]]
},
WindowSize->{1440, 830},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"10.0 for Microsoft Windows (32-bit) (July 1, 2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 136, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[719, 27, 180, 2, 64, "Chapter"],
Cell[CellGroupData[{
Cell[924, 33, 1061, 30, 169, "Subchapter"],
Cell[1988, 65, 2235, 64, 82, "Input"],
Cell[4226, 131, 1668, 47, 85, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5931, 183, 1557, 44, 518, "Subchapter"],
Cell[7491, 229, 2047, 49, 212, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9575, 283, 1657, 52, 290, "Subchapter"],
Cell[11235, 337, 537, 13, 31, "Input"],
Cell[11775, 352, 377, 7, 31, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12189, 364, 639, 21, 191, "Subchapter"],
Cell[12831, 387, 96, 1, 30, "Text"],
Cell[12930, 390, 475, 12, 82, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13442, 407, 3101, 87, 617, "Subchapter"],
Cell[16546, 496, 5299, 133, 463, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21882, 634, 768, 24, 94, "Subchapter"],
Cell[22653, 660, 2099, 49, 232, "Input"],
Cell[CellGroupData[{
Cell[24777, 713, 239, 5, 43, "Subsection"],
Cell[25019, 720, 3187, 74, 292, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[28255, 800, 736, 24, 94, "Subchapter"],
Cell[28994, 826, 2203, 48, 212, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31234, 879, 2534, 75, 666, "Subchapter"],
Cell[33771, 956, 2188, 51, 232, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35996, 1012, 286, 9, 62, "Subchapter"],
Cell[36285, 1023, 303, 8, 31, "Input"],
Cell[36591, 1033, 518, 10, 106, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37158, 1049, 349, 8, 136, "Title"],
Cell[37510, 1059, 1108, 31, 49, "Input"],
Cell[38621, 1092, 215, 4, 30, "Text"],
Cell[38839, 1098, 1133, 27, 67, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)