(* 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[     19766,        523]
NotebookOptionsPosition[     18794,        484]
NotebookOutlinePosition[     19136,        499]
CellTagsIndexPosition[     19093,        496]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

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[BoxData[
 RowBox[{
  RowBox[{"Quit", "[", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.7311867006212*^9, 3.7311867024292*^9}}],

Cell[CellGroupData[{

Cell["Problema 1.5. Soluci\[OAcute]n num\[EAcute]rica. Versi\[OAcute]n m\
\[IAcute]nima.", "Subchapter",
 CellChangeTimes->{{3.7311864437752*^9, 3.7311864588512*^9}, {
  3.7311867095411997`*^9, 3.7311867102372*^9}}],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{
  GraphicsBox[{
    {RGBColor[0.87, 0.94, 1], AbsoluteThickness[2], 
     ArrowBox[{{-1.5, 0}, {1.5, 0}}], ArrowBox[{{0, 1.5}, {0, -1.5}}]}, 
    {RGBColor[0, 0, 1], AbsoluteThickness[2], 
     LineBox[NCache[{{Rational[-1, 2], 0}, {
        0, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0}, {
        0, -0.8660254037844386}}]]}, {
     {RGBColor[0, 1, 0], 
      DiskBox[NCache[{Rational[-1, 2], 0}, {-0.5, 0}], 0.05]}, 
     {RGBColor[1, 0, 0], 
      DiskBox[NCache[{0, Rational[-1, 2] 3^Rational[1, 2]}, {
        0, -0.8660254037844386}], 0.05]}}, {
     {GrayLevel[1], InsetBox[
       StyleBox["\<\"\[ScriptL]\"\>",
        StripOnInput->False,
        FontSize->40], {-0.42320508075688773`, -0.5330127018922193}]}, 
     {GrayLevel[1], InsetBox[
       StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(m\\), \\(1\\)]\\)\"\>",
        StripOnInput->False,
        FontSize->30], NCache[{Rational[-1, 2], 0.25}, {-0.5, 0.25}]]}, 
     {GrayLevel[1], InsetBox[
       StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(m\\), \\(2\\)]\\)\"\>",
        StripOnInput->False,
        FontSize->30], 
       NCache[{0.33, Rational[-1, 2] 3^Rational[1, 2]}, {
        0.33, -0.8660254037844386}]]}, 
     {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}]}}},
   AspectRatio->Automatic,
   Axes->False,
   Background->GrayLevel[0],
   ImageSize->400,
   PlotRange->{{-1.6500000000000001`, 
    1.6500000000000001`}, {-1.6500000000000001`, 1.6500000000000001`}},
   Ticks->False], 
  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[0.6], 
      DiskBox[NCache[{Rational[-1, 2], 0}, {-0.5, 0}], 0.05]}, 
     {RGBColor[1, 0, 0], Opacity[0.6], 
      DiskBox[NCache[{0, Rational[-1, 2] 3^Rational[1, 2]}, {
        0, -0.8660254037844386}], 0.05]}}, 
    {GrayLevel[1], AbsoluteThickness[4], 
     ArrowBox[NCache[{{Rational[-1, 2], 0}, {
        0, Rational[-1, 2] 3^Rational[1, 2]}}, {{-0.5, 0}, {
        0, -0.8660254037844386}}]]}, 
    {GrayLevel[1], AbsoluteThickness[1], Dashing[{Small, Small}], 
     LineBox[NCache[{{Rational[-1, 2], 0}, {
        Rational[-1, 2], -1.5}}, {{-0.5, 0}, {-0.5, -1.5}}]]}, 
    {RGBColor[1, 1, 0], AbsoluteThickness[2], 
     ArrowBox[{{-0.5000000000000002, -1.}, {-0.45002083072932203`, \
-0.9987502603949663}, {-0.4001665833531724, -0.9950041652780258}, \
{-0.3505618675264006, -0.9887710779360422}, {-0.3013306692049388, \
-0.9800665778412416}, {-0.25259604074547726`, -0.9689124217106448}, \
{-0.2044797933386608, -0.9553364891256061}, {-0.15710219254454916`, \
-0.9393727128473791}, {-0.11058165769134937`, -0.921060994002885}, \
{-0.06503446588876982, -0.9004471023526769}, {-0.02057446139579716, \
-0.8775825618903728}}]}, {
     {GrayLevel[1], InsetBox[
       StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(r\\), \\(1\\)]\\)\"\>",
        StripOnInput->False,
        FontSize->30], NCache[{Rational[-1, 2], 0.25}, {-0.5, 0.25}]]}, 
     {GrayLevel[1], InsetBox[
       StyleBox["\<\"\\!\\(\\*SubscriptBox[\\(r\\), \\(2\\)]\\)\"\>",
        StripOnInput->False,
        FontSize->30], 
       NCache[{0.33, Rational[-1, 2] 3^Rational[1, 2]}, {
        0.33, -0.8660254037844386}]]}, 
     {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["\<\"\[Phi]\"\>",
        StripOnInput->False,
        FontSize->25], 
       NCache[{Rational[-1, 2] + (Rational[1, 2] 2^Rational[-1, 2]) (-1 + 
           3^Rational[
             1, 2]), -1.1159258262890681`}, {-0.24118095489747932`, \
-1.1159258262890681`}]]}}},
   AspectRatio->Automatic,
   Axes->False,
   Background->GrayLevel[0],
   ImageSize->400,
   PlotRange->{{-1.6500000000000001`, 
    1.6500000000000001`}, {-1.6500000000000001`, 1.6500000000000001`}},
   Ticks->False]}]], "Input",
 CellChangeTimes->{{3.7311862338492002`*^9, 3.7311862338702*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Preliminares (ejecutar):", "Subsection",
 CellChangeTimes->{{3.7311859641122*^9, 3.7311859716632*^9}, {
  3.7311869330671997`*^9, 3.7311869369312*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ejes", " ", "=", " ", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", " ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", " ", "LightBlue", 
         ",", " ", 
         RowBox[{"Arrow", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1.5"}], ",", " ", "0"}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"1.5", ",", " ", "0"}], "}"}]}], "}"}], "]"}], ",", " ", 
         RowBox[{"Arrow", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", " ", "1.5"}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"White", ",", 
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[ScriptX]\>\"", ",", " ", "30"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0.2", ",", 
             RowBox[{
              RowBox[{"-", "0.9"}], "\[Times]", "1.5"}]}], "}"}]}], "]"}]}], 
        "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"White", ",", 
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[ScriptY]\>\"", ",", " ", "30"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"0.9", " ", "1.5"}], ",", "0.2"}], "}"}]}], "]"}]}], 
        "}"}]}], "}"}], "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"discos", "[", "\[Phi]_", "]"}], ":=", " ", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", " ", "Blue", ",", 
        " ", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", " ", "0"}], "}"}], 
           ",", " ", 
           RowBox[{"{", 
            RowBox[{"0", ",", " ", 
             RowBox[{"-", 
              RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], "}"}]}], "}"}], 
         "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Green", ",", " ", 
        RowBox[{"Disk", "[", " ", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", " ", "0"}], "}"}], 
          ",", " ", "0.05"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", " ", 
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", " ", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], "}"}], ",", " ", 
          "0.05"}], "]"}]}], "}"}]}], "}"}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7311860000632*^9, 3.7311860366292*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Soluci\[OAcute]n num\[EAcute]rica de las ecuaciones de movimiento..\n\
Experimenten cambiando los valores de ",
 Cell[BoxData[
  FormBox["\[Mu]", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " y de las condiciones iniciales.",
 Cell[BoxData[" "]]
}], "Subsection",
 CellChangeTimes->{{3.7311859449152*^9, 3.7311859487771997`*^9}, {
  3.7311948398092003`*^9, 3.7311948562092*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Condiciones", " ", "iniciales"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Phi]0", " ", "=", " ", 
     FractionBox[
      RowBox[{"5", "\[Pi]"}], "6"]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Phi]p0", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
     "Relaci\[OAcute]n", " ", "entre", " ", "las", " ", "masas", " ", 
      "\[Mu]"}], " ", "=", " ", 
     RowBox[{
      SubscriptBox["m", "2"], "/", 
      SubscriptBox["m", "1"]}]}], " ", "*)"}], "  ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Mu]", " ", "=", " ", "15"}], ";"}], " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tmax", " ", "=", " ", "50"}], ";"}], " ", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sol2", " ", "=", 
     RowBox[{"Reap", "[", " ", "\[IndentingNewLine]", 
      RowBox[{"NDSolve", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"\[Mu]", " ", "+", " ", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "-", "\[Mu]"}], ")"}], " ", 
                SuperscriptBox[
                 RowBox[{"Sin", "[", 
                  RowBox[{"\[Phi]", "[", "t", "]"}], "]"}], "2"]}]}], ")"}], 
             " ", 
             RowBox[{
              RowBox[{"\[Phi]", "''"}], "[", "t", "]"}]}], " ", "+", " ", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Mu]"}], ")"}], " ", 
             RowBox[{"Sin", "[", 
              RowBox[{"2", 
               RowBox[{"\[Phi]", "[", "t", "]"}]}], "]"}], " ", 
             SuperscriptBox[
              RowBox[{
               RowBox[{"\[Phi]", "'"}], "[", "t", "]"}], "2"]}], "+", " ", 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Phi]", "[", "t", "]"}], "]"}]}], " ", "\[Equal]", " ",
            "0"}], ",", " ", 
          RowBox[{"(*", 
           RowBox[{"Ecuaci\[OAcute]n", " ", "de", " ", "movimiento"}], " ", 
           "*)"}], "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"\[Phi]", "[", "0", "]"}], " ", "\[Equal]", " ", 
           "\[Phi]0"}], ",", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Phi]", "'"}], "[", "0", "]"}], " ", "\[Equal]", " ", 
           "\[Phi]p0"}], ",", " ", 
          RowBox[{"(*", " ", 
           RowBox[{"Condiciones", " ", "iniciales"}], " ", "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{"WhenEvent", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"\[Phi]", "[", "t", "]"}], "/", "2"}], "]"}], " ", 
             "\[Equal]", " ", "0"}], ",", " ", 
            RowBox[{"Sow", "[", "t", "]"}]}], "]"}]}], "  ", 
         RowBox[{"(*", " ", 
          RowBox[{
           RowBox[{
           "Registra", " ", "los", " ", "tiempos", " ", "de", " ", "paso", 
            " ", "de", " ", "la", " ", "barra", " ", "por", " ", "\[Phi]"}], 
           " ", "=", " ", "0"}], " ", "*)"}], "\[IndentingNewLine]", "}"}], 
        ",", "\[IndentingNewLine]", "\[Phi]", ",", " ", 
        RowBox[{"{", 
         RowBox[{"t", ",", " ", "0", ",", " ", "tmax"}], "}"}]}], "  ", 
       "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Phi", " ", "=", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"sol2", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], ";", " ", 
    RowBox[{"(*", " ", 
     RowBox[{"Soluci\[OAcute]n", " ", "num\[EAcute]rica", " ", "\[Phi]", 
      RowBox[{"(", "t", ")"}], " ", "asignada", " ", "a", " ", "la", " ", 
      "variable", " ", "Phi"}], " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Tiempos0", " ", "=", " ", 
     RowBox[{
      RowBox[{"sol2", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";", "   ", 
    RowBox[{"(*", " ", 
     RowBox[{
      RowBox[{
      "Tiempos", " ", "de", " ", "cruce", " ", "de", " ", "la", " ", "barra", 
       " ", "por", " ", "\[Phi]"}], " ", "=", " ", "0"}], "  ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Periodo", " ", "=", 
     RowBox[{"2", " ", 
      RowBox[{
       RowBox[{"Differences", "[", "Tiempos0", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "   "}]}]], "Input",
 CellChangeTimes->{{3.7310957991436*^9, 3.7310958959021997`*^9}, {
   3.7310960055718*^9, 3.7310960158064003`*^9}, {3.7310960853964*^9, 
   3.7310960859424*^9}, {3.7310963548986*^9, 3.7310963607516003`*^9}, 
   3.7310965000408*^9, {3.7310965720966*^9, 3.7310965825038*^9}, {
   3.731096630987*^9, 3.7310966310962*^9}, {3.7311551514779997`*^9, 
   3.7311551883529997`*^9}, {3.7311671718556004`*^9, 3.7311671725046*^9}, {
   3.7311851968282003`*^9, 3.7311852011772003`*^9}, {3.7311857405422*^9, 
   3.7311857803182*^9}, {3.7311859192981997`*^9, 3.7311859197812*^9}, {
   3.7311861005151997`*^9, 3.7311861228372*^9}, {3.7311862682272*^9, 
   3.7311863799681997`*^9}, {3.7311864116731997`*^9, 3.7311864248632*^9}, {
   3.7311867185481997`*^9, 3.7311867632532*^9}, {3.7311868141982*^9, 
   3.7311868217522*^9}, {3.7311869459821997`*^9, 3.7311869985782003`*^9}, {
   3.7311870463892*^9, 3.7311871460782003`*^9}, {3.7311871812302*^9, 
   3.7311871914542*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Animaci\[OAcute]n:", "Subsection",
 CellChangeTimes->{{3.7311859394902*^9, 3.7311859409812*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Ncuadros", " ", "=", " ", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalDelta]", " ", "=", " ", 
    RowBox[{"Periodo", "/", "Ncuadros"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Phi]pr", " ", "=", " ", 
     RowBox[{"Phi", "[", "t", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{"ejes", ",", " ", 
      RowBox[{"discos", "[", "\[Phi]pr", "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"AspectRatio", "\[Rule]", " ", "Automatic"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"1.6", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], "}"}]}]}], ",", 
      RowBox[{"Axes", "\[Rule]", " ", "False"}], ",", " ", 
      RowBox[{"Background", "\[Rule]", " ", "Black"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", " ", "400"}]}], "\[IndentingNewLine]", 
     "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"t", ",", " ", "0", ",", " ", 
     RowBox[{"Periodo", "-", "\[CapitalDelta]"}], ",", "\[CapitalDelta]", ",",
      " ", 
     RowBox[{"Appearance", "\[Rule]", " ", "\"\<Open\>\""}]}], "}"}]}], " ", 
  "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.7310967218724003`*^9, 3.7310967310608*^9}, {
   3.7311553100690002`*^9, 3.731155339758*^9}, {3.7311668791654*^9, 
   3.7311668868445997`*^9}, 3.7311670325176*^9, 3.7311857748082*^9, {
   3.7311858180982*^9, 3.7311858290931997`*^9}, {3.7311859351092*^9, 
   3.7311859828202*^9}, {3.7311860249922*^9, 3.7311860846692*^9}, {
   3.7311863892152*^9, 3.7311863953872004`*^9}, {3.7311865210622*^9, 
   3.7311865493812*^9}, {3.7311866051492*^9, 3.7311866596382*^9}, {
   3.7311868494742002`*^9, 3.7311868683072*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["La funci\[OAcute]n \[Phi][t]", "Subsection",
 CellChangeTimes->{{3.7311864805411997`*^9, 3.7311864837832003`*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Phi", "[", "t", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", " ", "0", ",", " ", "tmax"}], "}"}], ",", 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Background", "\[Rule]", "Black"}], ",", "\[IndentingNewLine]", 
   RowBox[{"AxesStyle", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", 
   RowBox[{"TicksStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"White", ",", " ", "16"}], "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"ImageSize", "\[Rule]", "600"}], ",", " ", "\[IndentingNewLine]", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<t\>\"", ",", " ", "\"\<\[Phi]\>\""}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"LabelStyle", "\[Rule]", "20"}], ",", "\[IndentingNewLine]", 
   RowBox[{"ImageMargins", "\[Rule]", "40"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.7311864856902*^9, 3.7311865089611998`*^9}, {
  3.7311868383192*^9, 3.7311868384512*^9}}]
}, Open  ]]
}, 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[CellGroupData[{
Cell[580, 22, 180, 2, 64, "Chapter"],
Cell[763, 26, 132, 3, 31, "Input"],
Cell[CellGroupData[{
Cell[920, 33, 215, 3, 62, "Subchapter"],
Cell[CellGroupData[{
Cell[1160, 40, 106, 1, 43, "Subsection"],
Cell[1269, 43, 4353, 100, 417, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5659, 148, 157, 2, 43, "Subsection"],
Cell[5819, 152, 3281, 92, 232, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9137, 249, 406, 10, 68, "Subsection"],
Cell[9546, 261, 5703, 134, 485, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15286, 400, 102, 1, 43, "Subsection"],
Cell[15391, 403, 2032, 44, 212, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17460, 452, 120, 1, 43, "Subsection"],
Cell[17583, 455, 1171, 24, 252, "Input"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)