(* 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[     23191,        594]
NotebookOptionsPosition[     22340,        559]
NotebookOutlinePosition[     22682,        574]
CellTagsIndexPosition[     22639,        571]
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}}],

Cell[CellGroupData[{

Cell["\<\
Notebook m\[IAcute]nimo para el problema del p\[EAcute]ndulo con soporte m\
\[OAcute]vil (problema 1-17).\
\>", "Subchapter",
 CellChangeTimes->{{3.7311063738304*^9, 3.7311063883248*^9}, {
  3.7311064338942003`*^9, 3.73110644073*^9}, {3.7311465355238*^9, 
  3.7311465386282*^9}, {3.731148743619*^9, 3.7311487468482*^9}, {
  3.7311936253642*^9, 3.7311936262032003`*^9}, {3.7311945211392*^9, 
  3.7311945234342003`*^9}}],

Cell[CellGroupData[{

Cell["Sistema y coordenadas:", "Subsection",
 CellChangeTimes->{{3.7311946830312*^9, 3.7311946850172*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.87, 0.94, 1], AbsoluteThickness[1], 
    ArrowBox[{{-1.5, 0}, {1.5, 0}}], ArrowBox[{{0, 1.5}, {0, -1.5}}]}, {
    {RGBColor[0, 1, 0], Opacity[1], DiskBox[{-0.95, 0}, 0.05]}, 
    {RGBColor[1, 0, 0], Opacity[1], 
     DiskBox[NCache[{-0.44999999999999996`, Rational[-1, 2] 
        3^Rational[1, 2]}, {-0.44999999999999996`, -0.8660254037844386}], 
      0.05]}}, 
   {RGBColor[1, 0.5, 0], AbsoluteThickness[3], Arrowheads[0.03], 
    ArrowBox[{{0.75, -0.25}, {0.75, -0.75}}]}, 
   {GrayLevel[1], AbsoluteThickness[4], 
    ArrowBox[NCache[{{-0.95, 0}, {-0.44999999999999996`, Rational[-1, 2] 
        3^Rational[1, 2]}}, {{-0.95, 
        0}, {-0.44999999999999996`, -0.8660254037844386}}]]}, 
   {GrayLevel[1], AbsoluteThickness[1], Dashing[{Small, Small}], 
    LineBox[{{-0.95, 0}, {-0.95, -1.5}}]}, 
   {RGBColor[1, 1, 0], AbsoluteThickness[2], 
    ArrowBox[{{-0.9500000000000002, -1.}, {-0.900020830729322, \
-0.9987502603949663}, {-0.8501665833531723, -0.9950041652780258}, \
{-0.8005618675264006, -0.9887710779360422}, {-0.7513306692049387, \
-0.9800665778412416}, {-0.7025960407454772, -0.9689124217106448}, \
{-0.6544797933386608, -0.9553364891256061}, {-0.6071021925445491, \
-0.9393727128473791}, {-0.5605816576913494, -0.921060994002885}, \
{-0.5150344658887698, -0.9004471023526769}, {-0.4705744613957971, \
-0.8775825618903728}}]}, {
    {GrayLevel[1], InsetBox[
      StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(m\\), \\(1\\)]\\)\"\>",
       StripOnInput->False,
       FontSize->25], {-0.95, 0.25}]}, 
    {RGBColor[1, 0.5, 0], InsetBox[
      StyleBox["\<\"\\!\\(\\*OverscriptBox[\\(g\\), \\(\\(\[Rule]\\)\\(\\\\ \
\\)\\)]\\)\"\>",
       StripOnInput->False,
       FontSize->24], {0.95, -0.45}]}, 
    {GrayLevel[1], InsetBox[
      StyleBox["\<\"\[ScriptL]\"\>",
       StripOnInput->False,
       FontSize->30], {-0.51, -0.4330127018922193}]}, 
    {GrayLevel[1], InsetBox[
      StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(m\\), \\(2\\)]\\)\"\>",
       StripOnInput->False,
       FontSize->25], {-0.24999999999999994`, -0.7160254037844386}]}, 
    {GrayLevel[1], InsetBox[
      StyleBox["\<\"\[ScriptX]\"\>",
       StripOnInput->False,
       FontSize->30], {0.2, -1.35}]}, 
    {GrayLevel[1], InsetBox[
      StyleBox["\<\"\[ScriptY]\"\>",
       StripOnInput->False,
       FontSize->30], {1.35, 0.2}]}, 
    {RGBColor[1, 1, 0], InsetBox[
      StyleBox["\<\"y\"\>",
       StripOnInput->False,
       FontSize->30], {-1.15, -0.12}]}, 
    {RGBColor[1, 1, 0], InsetBox[
      StyleBox["\<\"\[Phi]\"\>",
       StripOnInput->False,
       FontSize->25], {-0.6911809548974792, -1.1459258262890681`}]}}},
  AspectRatio->Automatic,
  Axes->False,
  Background->GrayLevel[0],
  ImageSize->400,
  PlotRange->{{-1.6500000000000001`, 
   1.6500000000000001`}, {-1.6500000000000001`, 1.6500000000000001`}},
  Ticks->False]], "Text",
 CellChangeTimes->{{3.7311476853638*^9, 3.7311476879378*^9}, {
  3.7311946400442*^9, 3.7311946802181997`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Preliminares (necesarios para los gr\[AAcute]ficos)", "Subsection",
 CellChangeTimes->{{3.7311943402402*^9, 3.7311943495722*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ejes", " ", "=", " ", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", " ", "White", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", " ", "0"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"2", ",", " ", "0"}], "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", " ", 
            RowBox[{"-", "2"}]}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"0", ",", "2"}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], 
   ";"}], " ", 
  RowBox[{"(*", " ", "ejes", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"config", "[", 
     RowBox[{"y_", ",", " ", "\[Phi]_"}], "]"}], ":=", " ", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"AbsoluteThickness", "[", "4", "]"}], ",", " ", "Blue", ",", 
         " ", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"y", ",", " ", "0"}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"y", " ", "+", " ", 
               RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", " ", 
              RowBox[{"-", 
               RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], "}"}]}], "}"}], 
          "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Green", ",", " ", 
         RowBox[{"Disk", "[", " ", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"y", " ", "+", " ", 
              RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", " ", 
             RowBox[{"-", 
              RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], "}"}], ",", " ", 
           "0.1"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"Red", ",", " ", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"f", ",", " ", "0"}], "}"}], ",", " ", "0.1"}], "]"}]}], 
        "}"}]}], "}"}], "]"}]}], ";"}], " "}]}], "Input",
 CellChangeTimes->{{3.7311947133052*^9, 3.7311947233852*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Soluci\[OAcute]n num\[EAcute]rica de las ecuaciones de movimiento. Impl\
\[IAcute]citamente, ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["P", "y"], "=", " ", "0"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["m", "2"], "=", " ", "1"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " y g/l = 1. \nExperimenten cambiando los valores de ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["m", "1"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " y de las condiciones iniciales.",
 Cell[BoxData[" "]]
}], "Subsection",
 CellChangeTimes->{{3.7311943550172*^9, 3.7311943635792*^9}, {
  3.7311945397172003`*^9, 3.7311945811322002`*^9}, {3.7311947578742*^9, 
  3.7311948195341997`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"\[Phi]", ",", " ", "y"}], "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"Condiciones", " ", "iniciales"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y0", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Phi]0", " ", "=", 
   RowBox[{"\[Pi]", "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Phi]p0", " ", "=", " ", "0.6"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"m1", " ", "=", " ", "0.4"}], ";"}], "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tmax", " ", "=", " ", "30"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"sol", ",", " ", "CrucesPorCero"}], "}"}], " ", "=", " ", 
    "\[IndentingNewLine]", 
    RowBox[{"Reap", "[", 
     RowBox[{"NDSolve", "[", " ", 
      RowBox[{
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", 
              FractionBox[
               SuperscriptBox[
                RowBox[{"Cos", "[", 
                 RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"], 
               RowBox[{"1", "+", "m1"}]]}], ")"}], " ", 
            RowBox[{
             RowBox[{"\[Phi]", "''"}], "[", "t", "]"}]}], " ", "+", 
           FractionBox[
            RowBox[{" ", 
             RowBox[{
              RowBox[{"Sin", "[", 
               RowBox[{"2", 
                RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
              SuperscriptBox[
               RowBox[{
                RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], "2"]}]}], 
            RowBox[{"2", 
             RowBox[{"(", 
              RowBox[{"1", "+", "m1"}], ")"}]}]], "+", " ", 
           RowBox[{"Sin", "[", 
            RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], "\[Equal]", " ", 
          "0"}], ",", " ", 
         RowBox[{"(*", " ", 
          RowBox[{"Ecuaci\[OAcute]n", " ", "para", " ", 
           RowBox[{"\[Phi]", ".", " ", "\[DownExclamation]Deducir"}], " ", 
           "y", " ", 
           RowBox[{"revisar", "!"}]}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"y", "'"}], "[", "t", "]"}], " ", "\[Equal]", 
          RowBox[{
           RowBox[{"-", 
            FractionBox["1", 
             RowBox[{"1", "+", "m1"}]]}], 
           RowBox[{"Cos", "[", 
            RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], " ", 
           RowBox[{
            RowBox[{"\[Phi]", "'"}], "[", "t", "]"}]}]}], ",", " ", 
         RowBox[{"(*", " ", 
          RowBox[{
           RowBox[{"Ecuaci\[OAcute]n", " ", "para", " ", "y"}], ",", " ", 
           RowBox[{
            RowBox[{
            "habiendo", " ", "tomado", " ", "que", " ", "el", " ", "impulso", 
             " ", "total", " ", 
             SubscriptBox["P", "y"]}], " ", "=", " ", "0"}]}], " ", "*)"}], 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"\[Phi]", "[", "0", "]"}], " ", "\[Equal]", " ", 
          "\[Phi]0"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Phi]", "'"}], "[", "0", "]"}], " ", "\[Equal]", " ", 
          "\[Phi]p0"}], ",", " ", 
         RowBox[{
          RowBox[{"y", "[", "0", "]"}], " ", "\[Equal]", " ", "y0"}], ",", 
         " ", 
         RowBox[{"(*", " ", 
          RowBox[{"Condiciones", " ", "iniciales"}], "*)"}], 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"WhenEvent", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{
              RowBox[{"\[Phi]", "[", "t", "]"}], "/", "2"}], "]"}], " ", 
            "\[Equal]", " ", "0"}], " ", ",", 
           RowBox[{"Sow", "[", 
            RowBox[{"{", 
             RowBox[{"t", ",", " ", 
              RowBox[{"Sign", "[", 
               RowBox[{
                RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], "]"}]}], "}"}], 
            "]"}]}], "]"}]}], " ", 
        RowBox[{"(*", " ", 
         RowBox[{
         "Guarda", " ", "los", " ", "tiempos", " ", "y", " ", "la", " ", 
          "direcci\[OAcute]n", " ", "de", " ", "movimiento", " ", "cuando", 
          " ", "la", " ", "barra", " ", "cruza", " ", "el", " ", "eje", " ", 
          "x"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
        "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"\[Phi]", ",", " ", "y"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"t", ",", " ", "0", ",", " ", "tmax"}], "}"}]}], " ", "]"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Phi", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"sol", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Y", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"sol", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cruces", " ", "=", " ", 
    RowBox[{
     RowBox[{"CrucesPorCero", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", " ", "1"}], "]"}], "]"}]}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "Esta", " ", "lista", " ", "guarda", " ", "los", " ", "tiempos", " ", 
      "en", " ", "los", " ", "que", " ", "la", " ", "barra", " ", "cruza", 
      " ", "por", " ", "\[Phi]"}], " ", "=", " ", "0"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"sentido", " ", "=", " ", 
    RowBox[{
     RowBox[{"CrucesPorCero", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", " ", "2"}], "]"}], "]"}]}], ";", " ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "Esta", " ", "lista", " ", "guarda", " ", "el", " ", "sentido", " ", 
      "en", " ", "que", " ", "se", " ", "mueve", " ", "la", " ", "barra", " ",
       "en", " ", "cada", " ", "paso", " ", "por", " ", "\[Phi]"}], " ", "=", 
     " ", "0"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"T", " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Differences", "[", "cruces", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], "\[Times]", " ", 
     RowBox[{"Length", "[", 
      RowBox[{"Tally", "[", "sentido", "]"}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Phi", "[", "t", "]"}], ",", " ", 
     RowBox[{"Y", "[", "t", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", " ", "0", ",", 
     RowBox[{"2", "T"}]}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}], ",", " ", 
   RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", " ", 
   RowBox[{"ImageMargins", "\[Rule]", "25"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7309299208972*^9, 3.7309299302468*^9}, {
   3.7309300836935997`*^9, 3.7309301202862*^9}, {3.7309302411535997`*^9, 
   3.730930276576*^9}, {3.7309303131898003`*^9, 3.7309303625973997`*^9}, {
   3.7309877890039997`*^9, 3.7309879280081997`*^9}, {3.7309879602634*^9, 
   3.7309884510758*^9}, {3.7309885755596*^9, 3.7309887892925997`*^9}, 
   3.7309888221022*^9, {3.7309896759948*^9, 3.730989712383*^9}, {
   3.7309897723873997`*^9, 3.7309897942402*^9}, {3.7309902840242*^9, 
   3.7309904315088*^9}, {3.7309904869948*^9, 3.730990530172*^9}, {
   3.7309912317482*^9, 3.7309913086118*^9}, {3.730991460476*^9, 
   3.7309915676963997`*^9}, {3.7309918236628*^9, 3.7309918245364*^9}, {
   3.7309919542376003`*^9, 3.7309919669254*^9}, {3.7310048663722*^9, 
   3.7310048806436*^9}, {3.7310049240706*^9, 3.7310049382806*^9}, {
   3.731005038652*^9, 3.7310050478803997`*^9}, 3.7310051689264*^9, {
   3.7310052402282*^9, 3.7310052499528*^9}, {3.7310052999700003`*^9, 
   3.731005323466*^9}, {3.7310053652816*^9, 3.731005402766*^9}, {
   3.7310054383266*^9, 3.7310054777248*^9}, {3.7310201669844*^9, 
   3.7310202546912003`*^9}, {3.7310208508118*^9, 3.7310208562292*^9}, {
   3.7310210031142*^9, 3.7310210057124*^9}, {3.7310211439642*^9, 
   3.7310212229154*^9}, {3.7310212747418003`*^9, 3.7310212831232*^9}, 
   3.7310213572518*^9, 3.7310213998722*^9, {3.7310214398154*^9, 
   3.7310214537088003`*^9}, {3.7310214842342*^9, 3.731021529708*^9}, 
   3.7310215686324*^9, {3.731021608182*^9, 3.7310217440572*^9}, 
   3.7310217752282*^9, {3.7310218076730003`*^9, 3.7310218239502*^9}, {
   3.731096973901*^9, 3.7310971095478*^9}, {3.7310972051238003`*^9, 
   3.7310972367676*^9}, {3.7310972732720003`*^9, 3.7310973049374*^9}, {
   3.731097416513*^9, 3.7310974461102*^9}, {3.7310981634421997`*^9, 
   3.7310982263613997`*^9}, {3.7311015262752*^9, 3.7311016212054*^9}, {
   3.7311016685987997`*^9, 3.7311016985492*^9}, {3.7311032200559998`*^9, 
   3.7311032228016*^9}, {3.7311064817418003`*^9, 3.7311065164734*^9}, {
   3.731106586704*^9, 3.7311066293644*^9}, {3.7311067226996*^9, 
   3.7311067688378*^9}, 3.7311068140692*^9, {3.7311070695868*^9, 
   3.7311071611466*^9}, {3.7311071982846003`*^9, 3.7311072027462*^9}, {
   3.731147839255*^9, 3.7311482671744003`*^9}, {3.7311483005352*^9, 
   3.731148489242*^9}, {3.7311485599561996`*^9, 3.7311485647942*^9}, 
   3.7311487044997997`*^9, 3.7311488359006*^9, {3.7311488871424*^9, 
   3.731148901959*^9}, {3.7311489709914*^9, 3.7311489916354*^9}, {
   3.7311490935078*^9, 3.7311491563164*^9}, {3.7311491974746*^9, 
   3.7311492280506*^9}, {3.7311493247216*^9, 3.7311493418698*^9}, 
   3.7311493847198*^9, 3.7311494727688*^9, {3.7311495263213997`*^9, 
   3.731149589682*^9}, {3.7311497088964*^9, 3.7311497593938*^9}, {
   3.7311498525612*^9, 3.7311498668968*^9}, {3.731149908384*^9, 
   3.731149940241*^9}, 3.7311500198564*^9, {3.7311500521774*^9, 
   3.7311500669912*^9}, {3.7311501537106*^9, 3.73115018159*^9}, {
   3.7311502274632*^9, 3.7311502576261997`*^9}, {3.7311503743092003`*^9, 
   3.7311503894952*^9}, {3.7311504529782*^9, 3.7311504580671997`*^9}, {
   3.7311504988512*^9, 3.7311506468356*^9}, {3.7311507386521997`*^9, 
   3.7311508071878*^9}, {3.731150844767*^9, 3.7311513001244*^9}, {
   3.7311513330313997`*^9, 3.7311514635643997`*^9}, {3.7311515212578*^9, 
   3.7311515488534*^9}, {3.7311517390446*^9, 3.7311520067778*^9}, {
   3.7311520468845997`*^9, 3.731152223538*^9}, {3.7311522910048*^9, 
   3.7311526262757998`*^9}, {3.7311526613122*^9, 3.7311526734184*^9}, {
   3.7311527757356*^9, 3.7311528081542*^9}, {3.7311528419638*^9, 
   3.73115292465*^9}, {3.7311529554646*^9, 3.7311530397338*^9}, {
   3.731153080844*^9, 3.731153081*^9}, {3.73115325234*^9, 
   3.7311534239323997`*^9}, {3.7311537065114*^9, 3.731153729933*^9}, 
   3.7311538376202*^9, {3.7311936644962*^9, 3.7311936684132*^9}, {
   3.7311938146731997`*^9, 3.7311939015262003`*^9}, {3.7311939325572*^9, 
   3.7311941105712*^9}, {3.7311944781022*^9, 3.7311944961722*^9}, {
   3.7311945563842*^9, 3.7311945569672003`*^9}, {3.7311946018032*^9, 
   3.7311946050271997`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["La animaci\[OAcute]n:", "Subchapter",
 CellChangeTimes->{{3.7311017159926*^9, 3.7311017198450003`*^9}, 
   3.7311943846991997`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Ncuadros", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalDelta]", " ", "=", " ", 
    RowBox[{"T", "/", "Ncuadros"}]}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"orb", " ", "=", " ", 
    RowBox[{"ParametricPlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"Y", "[", "\[Tau]", "]"}], "+", 
         RowBox[{"Sin", "[", 
          RowBox[{"Phi", "[", "\[Tau]", "]"}], "]"}]}], ",", " ", 
        RowBox[{"-", 
         RowBox[{"Cos", "[", 
          RowBox[{"Phi", "[", "\[Tau]", "]"}], "]"}]}]}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"\[Tau]", ",", " ", "0", ",", " ", "T"}], "}"}], ",", " ", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Dotted", ",", "Orange", ",", " ", "Thick"}], "}"}]}]}], 
     "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"\[OAcute]rbita", " ", "de", " ", "la", " ", "masa", " ", 
    SubscriptBox["m", "2"]}], " ", "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"f", ",", " ", "g"}], "}"}], "  ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Y", "[", "t", "]"}], ",", 
       RowBox[{"Phi", "[", "t", "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Show", "[", "\[IndentingNewLine]", 
     RowBox[{"ejes", ",", "orb", ",", 
      RowBox[{"config", "[", 
       RowBox[{"f", ",", " ", "g"}], "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"AspectRatio", "\[Rule]", " ", "Automatic"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", " ", 
       RowBox[{"2", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], "}"}]}]}], ",", 
      RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", 
      RowBox[{"Background", "\[Rule]", " ", "Black"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", " ", "500"}]}], "\[IndentingNewLine]", 
     "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"t", ",", " ", "0", ",", " ", 
     RowBox[{"T", "-", "\[CapitalDelta]"}], ",", " ", "\[CapitalDelta]", ",", 
     " ", 
     RowBox[{"Appearance", "\[Rule]", " ", "\"\<Open\>\""}]}], "}"}], ",", 
   RowBox[{"TrackedSymbols", "\[RuleDelayed]", " ", 
    RowBox[{"{", "t", "}"}]}]}], "   ", "\[IndentingNewLine]", 
  "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQzR7/Rc3nzGtH//VTPEE0k7Z4Gog+luuRAaLvTb68
H0RfuhdyAET//dYpGg2k/1j56IFomZqftiDaQXilK4gOCZp8D0T/ilkIpt/V
HH4MojMmngTTqZKv7jUA6WWVza9BdMjjrx9BtFDzmS8gmnurG3MzkL6T0cIH
ov0uskqD6JoL8+VA9D/nrLQWkHsYzmWC6NXndQtBdMbmqBIQvc59ZmYr2N31
RSBaep5cSyvYnZXdILqjdVU/iBb3qJgHol+pvXw6E0gnLdz3EURveHjTfQ6Q
/nLbOgVEu97IqQbR6VfbwXSZ/7UP64G0Us4dMM3yPEJ5A5BuqVlhDaJLVLY7
gegzscw+IBoAI23JWA==
  "]]
}, Open  ]]
}, 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, 131, 1, 64, "Chapter"],
Cell[CellGroupData[{
Cell[875, 32, 428, 8, 62, "Subchapter"],
Cell[CellGroupData[{
Cell[1328, 44, 106, 1, 43, "Subsection"],
Cell[1437, 47, 2998, 67, 414, "Text"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4472, 119, 135, 1, 43, "Subsection"],
Cell[4610, 122, 2378, 68, 72, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7025, 195, 794, 24, 72, "Subsection"],
Cell[7822, 221, 11231, 248, 608, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19102, 475, 137, 2, 62, "Subchapter"],
Cell[19242, 479, 3070, 76, 252, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)