(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 9837, 260] NotebookOptionsPosition[ 8986, 237] NotebookOutlinePosition[ 9343, 253] CellTagsIndexPosition[ 9300, 250] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[CapitalLambda]", "[", RowBox[{"\[Beta]_", ",", "tR_"}], "]"}], ":=", RowBox[{"1", "-", RowBox[{"\[Beta]", "*", RowBox[{"Cos", "[", "tR", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"\[Beta]_", ",", "tR_"}], "]"}], ":=", RowBox[{"tR", "-", RowBox[{"\[Beta]", "*", RowBox[{"Sin", "[", "tR", "]"}]}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.762842825831101*^9, 3.762842889355*^9}},ExpressionUUID->"cdf5cb8c-c6f3-473d-9e18-a0f1585c5f7b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"\[Beta]", ",", "tR"}], "]"}], ",", RowBox[{"\[CapitalLambda]", "[", RowBox[{"\[Beta]", ",", "tR"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"tR", ",", "0", ",", RowBox[{"5", "*", "\[Pi]"}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"5", "*", "\[Pi]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Beta]", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.762842891795906*^9, 3.762843010608308*^9}},ExpressionUUID->"b1a866e5-3813-4546-8b64-\ fe2c1754924d"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Beta]$$ = 0.9, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Beta]$$], 0, 1}}, Typeset`size$$ = { 360., {180., 185.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Beta]$12106$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Beta]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Beta]$$, $CellContext`\[Beta]$12106$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ParametricPlot[{ $CellContext`t[$CellContext`\[Beta]$$, $CellContext`tR], $CellContext`\[CapitalLambda][$CellContext`\[Beta]$$, \ $CellContext`tR]}, {$CellContext`tR, 0, 5 Pi}, Frame -> True, PlotRange -> {{0, 5 Pi}, {0, 2}}, AspectRatio -> 1], "Specifications" :> {{$CellContext`\[Beta]$$, 0, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{405., {225., 231.}}, 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.7628429275280037`*^9, 3.762843011541847*^9}},ExpressionUUID->"b72db664-69dc-4b14-8fcb-\ f9cfef6c9f34"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ws", "[", RowBox[{"\[Gamma]_", ",", "w0_"}], "]"}], ":=", RowBox[{"1.5", "*", SuperscriptBox["\[Gamma]", "3"], "*", "w0"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Xi]", "[", RowBox[{"\[Gamma]_", ",", "w0_", ",", "w_"}], "]"}], ":=", FractionBox["w", RowBox[{"2", " ", RowBox[{"ws", "[", RowBox[{"\[Gamma]", ",", "w0"}], "]"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"potx", "[", RowBox[{"\[Gamma]_", ",", "w0_", ",", "w_"}], "]"}], ":=", RowBox[{ SuperscriptBox["\[Gamma]", "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox["w", RowBox[{"ws", "[", RowBox[{"\[Gamma]", ",", "w0"}], "]"}]], ")"}], "2"], "*", RowBox[{ RowBox[{"Abs", "[", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"2", "/", "3"}], ",", RowBox[{"\[Xi]", "[", RowBox[{"\[Gamma]", ",", "w0", ",", "w"}], "]"}]}], "]"}], "]"}], "^", "2"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pot\[Theta]", "[", RowBox[{"\[Gamma]_", ",", "w0_", ",", "w_"}], "]"}], ":=", RowBox[{ SuperscriptBox["\[Gamma]", "2"], "*", SuperscriptBox[ RowBox[{"(", FractionBox["w", RowBox[{"ws", "[", RowBox[{"\[Gamma]", ",", "w0"}], "]"}]], ")"}], "2"], "*", RowBox[{ RowBox[{"Abs", "[", RowBox[{"BesselK", "[", RowBox[{ RowBox[{"1", "/", "3"}], ",", RowBox[{"\[Xi]", "[", RowBox[{"\[Gamma]", ",", "w0", ",", "w"}], "]"}]}], "]"}], "]"}], "^", "2"}]}]}]}], "Input", CellChangeTimes->{{3.762847700714665*^9, 3.762847872047504*^9}, { 3.7628479372197657`*^9, 3.762847971626111*^9}, {3.762848043248234*^9, 3.762848081513117*^9}, {3.76285963322575*^9, 3.762859641488927*^9}},ExpressionUUID->"5f2af3fb-ab3a-4f64-a08e-\ 59de65eacc7c"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"LogLogPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"potx", "[", RowBox[{"\[Gamma]", ",", "1", ",", "w"}], "]"}], ",", RowBox[{"pot\[Theta]", "[", RowBox[{"\[Gamma]", ",", "1", ",", "w"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"w", ",", "0.1", ",", "100"}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Gamma]", ",", "1", ",", "5"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.762847977855665*^9, 3.762848032397716*^9}, { 3.7628481423244343`*^9, 3.762848143200877*^9}, {3.763142618081696*^9, 3.763142618609097*^9}, {3.7631430401374598`*^9, 3.76314305015462*^9}, { 3.763143142477727*^9, 3.763143157251575*^9}},ExpressionUUID->"0595a823-b269-4cbc-8a7a-\ 4b94f23786a6"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Gamma]$$ = 1.27, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`\[Gamma]$$], 1, 5}}, Typeset`size$$ = { 360., {109., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Gamma]$129180$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Gamma]$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`\[Gamma]$$, $CellContext`\[Gamma]$129180$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> LogLogPlot[{ $CellContext`potx[$CellContext`\[Gamma]$$, 1, $CellContext`w], $CellContext`pot\[Theta][$CellContext`\[Gamma]$$, 1, $CellContext`w]}, {$CellContext`w, 0.1, 100}, Frame -> True], "Specifications" :> {{$CellContext`\[Gamma]$$, 1, 5}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{405., {154., 160.}}, 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.76284803362129*^9, 3.762848052234132*^9}, 3.762848153256076*^9, {3.7631426028729*^9, 3.763142619040399*^9}, { 3.763143042015101*^9, 3.7631430508691483`*^9}, {3.7631431431900997`*^9, 3.7631431579386473`*^9}},ExpressionUUID->"1b1d0fa1-0829-41a0-b0a2-\ c9aa4ffd3436"] }, Open ]] }, WindowSize->{747, 690}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \ 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 580, 16, 80, "Input",ExpressionUUID->"cdf5cb8c-c6f3-473d-9e18-a0f1585c5f7b"], Cell[CellGroupData[{ Cell[1163, 40, 1005, 28, 80, "Input",ExpressionUUID->"b1a866e5-3813-4546-8b64-fe2c1754924d"], Cell[2171, 70, 1928, 38, 475, "Output",ExpressionUUID->"b72db664-69dc-4b14-8fcb-f9cfef6c9f34"] }, Open ]], Cell[4114, 111, 1895, 57, 183, "Input",ExpressionUUID->"5f2af3fb-ab3a-4f64-a08e-59de65eacc7c"], Cell[CellGroupData[{ Cell[6034, 172, 877, 21, 67, "Input",ExpressionUUID->"0595a823-b269-4cbc-8a7a-4b94f23786a6"], Cell[6914, 195, 2056, 39, 367, "Output",ExpressionUUID->"1b1d0fa1-0829-41a0-b0a2-c9aa4ffd3436"] }, Open ]] } ] *)