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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      5580,        148]
NotebookOptionsPosition[      4865,        128]
NotebookOutlinePosition[      5314,        145]
CellTagsIndexPosition[      5271,        142]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"phiL", "[", "R_", "]"}], ":=", 
  RowBox[{"25.68", "*", 
   RowBox[{"Log", "[", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"2", "/", "R"}], "+", "1"}], "]"}], "]"}], 
   "\[AliasDelimiter]"}]}]], "Input",
 CellChangeTimes->{{3.809232077642836*^9, 3.8092321426400175`*^9}, {
   3.8092364404532566`*^9, 3.809236444130684*^9}, 
   3.809236523752838*^9},ExpressionUUID->"117f1b7b-e475-41e8-b35a-\
5f66da71b6a9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"X", "[", 
   RowBox[{"R_", ",", "phi_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"R", "/", "2"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"phi", "/", "25.68"}], "]"}], "-", "1"}], ")"}]}], "+", 
   RowBox[{"3", "*", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"R", "/", "2"}]}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "phi"}], "/", "25.68"}], "]"}], "-", "1"}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.809232161291504*^9, 3.809232270880117*^9}, {
  3.809235398389744*^9, 3.8092354040352936`*^9}, {3.809236482704516*^9, 
  3.8092364911561193`*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"9aac5c11-7bfc-4f28-b472-f70680cb9c48"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"X", "[", 
      RowBox[{"R", ",", "phi"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"phi", ",", "0", ",", 
       RowBox[{"phiL", "[", "R", "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "0"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"R", ",", "0.001", ",", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8092322888668714`*^9, 3.809232419320428*^9}, {
  3.8092324702824945`*^9, 3.8092324714892216`*^9}, {3.8092340876735196`*^9, 
  3.809234089347645*^9}, {3.809234309941141*^9, 3.8092343572095766`*^9}, {
  3.809234483523404*^9, 3.80923453735501*^9}, {3.809235090747837*^9, 
  3.8092351941819963`*^9}, {3.809236519181259*^9, 3.8092365432174873`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"484cd9c1-4f5b-444e-89fc-481ebf8e91ee"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`R$$ = 0.001, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`R$$], 0.001, 100}}, Typeset`size$$ = {
    450., {136., 142.9090874810455}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`R$$ = 0.001}, 
      "ControllerVariables" :> {}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        $CellContext`X[$CellContext`R$$, $CellContext`phi], {$CellContext`phi,
          0, 
         $CellContext`phiL[$CellContext`R$$]}, PlotRange -> {-3, 0}], 
      "Specifications" :> {{$CellContext`R$$, 0.001, 100}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{507., {186.9, 194.1}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.8092324256804276`*^9, 3.8092324854808593`*^9, 3.8092340998603897`*^9, {
   3.8092343405290346`*^9, 3.809234363315008*^9}, 3.8092344895060067`*^9, {
   3.8092345223770266`*^9, 3.8092345393794494`*^9}, 3.8092350955800037`*^9, {
   3.8092351271544857`*^9, 3.809235197612635*^9}, 3.8092354083345613`*^9, 
   3.8092365030661354`*^9, 3.8092365459526033`*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"b91925b4-5acd-4f14-8191-0d20bdc2f65b"]
}, Open  ]]
},
WindowSize->{Full, Full},
WindowMargins->{{Automatic, 46.200000000000045`}, {Automatic, 75}},
Magnification:>1.25 Inherited,
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (March 18, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6f965edf-3075-4229-8316-06640571b981"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 454, 12, 35, "Input",ExpressionUUID->"117f1b7b-e475-41e8-b35a-5f66da71b6a9"],
Cell[1015, 34, 805, 24, 35, "Input",ExpressionUUID->"9aac5c11-7bfc-4f28-b472-f70680cb9c48"],
Cell[CellGroupData[{
Cell[1845, 62, 944, 21, 35, "Input",ExpressionUUID->"484cd9c1-4f5b-444e-89fc-481ebf8e91ee"],
Cell[2792, 85, 2057, 40, 424, "Output",ExpressionUUID->"b91925b4-5acd-4f14-8191-0d20bdc2f65b"]
}, Open  ]]
}
]
*)