(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 48185, 1456] NotebookOptionsPosition[ 43318, 1300] NotebookOutlinePosition[ 43790, 1320] CellTagsIndexPosition[ 43747, 1317] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{ "Import", "[", "\"\\"", "]"}], ";"}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4203993453655987`*^9, 3.420399345969541*^9}, { 3.4203993766986322`*^9, 3.420399402179747*^9}, {3.420399464287936*^9, 3.420399516024436*^9}, {3.420399578211718*^9, 3.420399605251391*^9}, { 3.4204011705801153`*^9, 3.420401185643045*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MITM", " ", "=", RowBox[{"Simplify", "[", " ", RowBox[{ RowBox[{"(", GridBox[{ {"1", "0"}, { RowBox[{ RowBox[{"-", "1"}], "/", "f"}], "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0"}, { RowBox[{"2", "/", "Rm"}], "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0"}, { RowBox[{ RowBox[{"-", "1"}], "/", "f"}], "1"} }], ")"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.436287928969017*^9, 3.436288006598441*^9}, 3.4362894844204073`*^9, {3.4362895178038816`*^9, 3.436289529598868*^9}, 3.436290732824205*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["2", "f"]}], "+", FractionBox["2", "Rm"]}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.4362879876300707`*^9, 3.436288007304295*^9}, 3.4362895306422367`*^9, 3.43629073532054*^9, 3.4366437029257174`*^9, 3.43664380997586*^9, 3.436644769161483*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"RrefInv", " ", "=", " ", RowBox[{"FullSimplify", "[", RowBox[{"ComplexExpand", "[", RowBox[{"Re", "[", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"1", "/", "Rin"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["w", "2"]}]}]}], ")"}], ",", " ", "MITM"}], "]"}], "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.4362880217731037`*^9, 3.436288177149283*^9}, { 3.436289090838009*^9, 3.436289096621056*^9}, {3.436643682513506*^9, 3.436643683015567*^9}, {3.4366438296333437`*^9, 3.4366438510061483`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["2", "f"]}], "+", FractionBox["1", "Rin"], "+", FractionBox["2", "Rm"]}]], "Output", CellChangeTimes->{3.436643852380468*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"R111", " ", "=", " ", RowBox[{"FullSimplify", "[", RowBox[{"ComplexExpand", "[", RowBox[{"Re", "[", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"1", "/", "Rin"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["w", "2"]}]}]}], ")"}], ",", " ", RowBox[{"(", GridBox[{ {"1", "0"}, { RowBox[{ RowBox[{"-", "1"}], "/", "f"}], "1"} }], ")"}]}], "]"}], "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.436643867528865*^9, 3.436643873551505*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "f"]}], "+", FractionBox["1", "Rin"]}]], "Output", CellChangeTimes->{3.436643874755663*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"R222", " ", "=", " ", RowBox[{"FullSimplify", "[", RowBox[{"ComplexExpand", "[", RowBox[{"Re", "[", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"1", "/", "Rin"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["w", "2"]}]}]}], ")"}], ",", " ", RowBox[{ RowBox[{"(", GridBox[{ {"1", "0"}, { RowBox[{"2", "/", "Rm"}], "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0"}, { RowBox[{ RowBox[{"-", "1"}], "/", "f"}], "1"} }], ")"}]}]}], "]"}], "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.436643887306294*^9, 3.436643920295314*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "f"]}], "+", FractionBox["1", "Rin"], "+", FractionBox["2", "Rm"]}]], "Output", CellChangeTimes->{{3.436643892774702*^9, 3.436643921562788*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"R111", " ", "=", " ", RowBox[{"FullSimplify", "[", RowBox[{"ComplexExpand", "[", RowBox[{"Re", "[", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"1", "/", "Rin"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["w", "2"]}]}]}], ")"}], ",", RowBox[{"(", GridBox[{ {"1", "0"}, { RowBox[{"2", "/", "Rm"}], "1"} }], ")"}]}], "]"}], "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.43664393325955*^9, 3.436643940834216*^9}}], Cell[BoxData[ RowBox[{ FractionBox["1", "Rin"], "+", FractionBox["2", "Rm"]}]], "Output", CellChangeTimes->{3.436643942069713*^9}] }, Open ]], Cell[CellGroupData[{ Cell["eLIGO OMC", "Section", CellChangeTimes->{{3.436644823199924*^9, 3.436644825294526*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"MMT2", "=", RowBox[{ RowBox[{"Mprop", "[", "0.27", "]"}], ".", RowBox[{"Mlens2", "[", RowBox[{"4", ",", "1.45"}], "]"}], ".", RowBox[{"Mprop", "[", "1.78", "]"}], ".", RowBox[{"Mlens2", "[", RowBox[{"5", ",", "1.45"}], "]"}], ".", RowBox[{"Mprop", "[", "20", "]"}]}]}], "\n", RowBox[{ RowBox[{"\[Lambda]MM", " ", "=", " ", RowBox[{"1.064", " ", SuperscriptBox["10", RowBox[{"-", "6"}]]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ROCPRM", " ", "=", " ", RowBox[{"14.2", " ", SuperscriptBox["10", "3"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"wITM", " ", "=", " ", RowBox[{"w1FP", "[", RowBox[{"ROCPRM", ",", " ", RowBox[{"7.4", " ", SuperscriptBox["10", "3"]}], ",", " ", "4000"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"wETM", " ", "=", " ", RowBox[{"w2FP", "[", RowBox[{"ROCPRM", ",", " ", RowBox[{"7.4", " ", SuperscriptBox["10", "3"]}], ",", " ", "4000"}], "]"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.436644038914901*^9, 3.436644101821681*^9}, { 3.4366441641942873`*^9, 3.4366441946004457`*^9}, 3.436644990464517*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.219741075`", ",", "26.498889`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.22052249999999998`", ",", "5.6107`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.436644196372778*^9, 3.436644802135881*^9, 3.436644992287709*^9}], Cell[BoxData["0.0363828375266124`"], "Output", CellChangeTimes->{3.436644196372778*^9, 3.436644802135881*^9, 3.436644992290782*^9}], Cell[BoxData["0.04549135596271137`"], "Output", CellChangeTimes->{3.436644196372778*^9, 3.436644802135881*^9, 3.436644992292437*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"onOMC", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "ROCPRM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wITM", "2"]}]}]}], ",", " ", "MMT2"}], "]"}]}], "\n", RowBox[{"ROCOMC", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wOMC", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}], " ", "]"}]}]}], "Input", CellChangeTimes->{{3.436644452719702*^9, 3.436644505203726*^9}, 3.436645087354423*^9}], Cell[BoxData[ RowBox[{"0.1808427317669662`", "\[InvisibleSpace]", "-", RowBox[{"0.00017144391710965717`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{3.436644506588353*^9, 3.4366447805737247`*^9, 3.436644830870035*^9, 3.436644998653677*^9, 3.4366450891279163`*^9}], Cell[BoxData["5.529666524218397`"], "Output", CellChangeTimes->{3.436644506588353*^9, 3.4366447805737247`*^9, 3.436644830870035*^9, 3.436644998653677*^9, 3.436645089129607*^9}], Cell[BoxData["0.04444622057556395`"], "Output", CellChangeTimes->{3.436644506588353*^9, 3.4366447805737247`*^9, 3.436644830870035*^9, 3.436644998653677*^9, 3.436645089131727*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"onOMC", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"2", "/", "ROCPRM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wITM", "2"]}]}]}], ",", " ", "MMT2"}], "]"}]}], "\n", RowBox[{"ROCOMC", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wOMC", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}], " ", "]"}]}]}], "Input", CellChangeTimes->{{3.436644452719702*^9, 3.436644505203726*^9}, { 3.436645087354423*^9, 3.4366450981954813`*^9}}], Cell[BoxData[ RowBox[{"0.18088984528147337`", "\[InvisibleSpace]", "-", RowBox[{"0.00017092133777959324`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{3.436645099277903*^9}], Cell[BoxData["5.528226299513671`"], "Output", CellChangeTimes->{3.436645099288653*^9}], Cell[BoxData["0.04451411423384399`"], "Output", CellChangeTimes->{3.4366450992896214`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mlens2", "[", RowBox[{"5", ",", "1.45"}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.09`", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.436645156950622*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ROC3", " ", "=", " ", "3.048"}], ";", " ", RowBox[{"ROC4", " ", "=", " ", RowBox[{"-", "0.381"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f3", " ", "=", " ", RowBox[{"ROC3", " ", "/", " ", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f4", " ", "=", " ", RowBox[{"ROC4", " ", "/", " ", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L34", " ", "=", " ", RowBox[{"f3", " ", "+", " ", "f4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L3", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{"Mprop", "[", "L3", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onMSM", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"2", "/", "ROCPRM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wITM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCMSM", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wMSM", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mrefl", "[", "ROC3", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onMSM", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "ROCPRM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wITM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCMSM", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wMSM", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mprop", "[", "L34", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onMSM", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "ROCPRM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wITM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCMSM", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wMSM", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mrefl", "[", "ROC4", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onMSM", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "ROCPRM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wITM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCMSM", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wMSM", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}], " ", "]"}]}], "\n", RowBox[{"1", "/", "onMSM"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.436649393358921*^9, 3.436649492085587*^9}, 3.436649549703745*^9, {3.436649585015952*^9, 3.436649675435905*^9}, { 3.4366497171021233`*^9, 3.436649906799396*^9}, {3.43670509025916*^9, 3.436705123336369*^9}}], Cell[BoxData["7088.549813943695`"], "Output", CellChangeTimes->{ 3.436649913969143*^9, 3.4366504487841587`*^9, {3.436705096916109*^9, 3.436705124956789*^9}}], Cell[BoxData["0.036408488993929955`"], "Output", CellChangeTimes->{ 3.436649913969143*^9, 3.4366504487841587`*^9, {3.436705096916109*^9, 3.436705124967682*^9}}], Cell[BoxData[ RowBox[{"-", "1.5241642812378184`"}]], "Output", CellChangeTimes->{ 3.436649913969143*^9, 3.4366504487841587`*^9, {3.436705096916109*^9, 3.4367051249690228`*^9}}], Cell[BoxData["0.036395678146117855`"], "Output", CellChangeTimes->{ 3.436649913969143*^9, 3.4366504487841587`*^9, {3.436705096916109*^9, 3.436705124970296*^9}}], Cell[BoxData[ RowBox[{"-", "0.19066590007707385`"}]], "Output", CellChangeTimes->{ 3.436649913969143*^9, 3.4366504487841587`*^9, {3.436705096916109*^9, 3.436705124971628*^9}}], Cell[BoxData["0.004552909206320915`"], "Output", CellChangeTimes->{ 3.436649913969143*^9, 3.4366504487841587`*^9, {3.436705096916109*^9, 3.4367051249729137`*^9}}], Cell[BoxData["218.93813797643517`"], "Output", CellChangeTimes->{ 3.436649913969143*^9, 3.4366504487841587`*^9, {3.436705096916109*^9, 3.4367051249741917`*^9}}], Cell[BoxData["0.004552909206320914`"], "Output", CellChangeTimes->{ 3.436649913969143*^9, 3.4366504487841587`*^9, {3.436705096916109*^9, 3.436705124975462*^9}}], Cell[BoxData[ RowBox[{"15.869812499999995`", "\[InvisibleSpace]", "+", RowBox[{"56.768444139327954`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{ 3.436649913969143*^9, 3.4366504487841587`*^9, {3.436705096916109*^9, 3.4367051249768143`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ROC1", " ", "=", " ", "5"}], ";", " ", RowBox[{"ROC2", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{"Mprop", "[", "20", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onOMC", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "ROCMSM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wMSM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCOMC", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wOMC", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mrefl", "[", "ROC1", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onOMC", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "ROCMSM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wMSM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCOMC", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wOMC", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mprop", "[", "1.78", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onOMC", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "ROCMSM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wMSM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCOMC", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wOMC", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mrefl", "[", "ROC2", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onOMC", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "ROCMSM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wMSM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCOMC", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wOMC", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mprop", "[", "0.27", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onOMC", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "ROCMSM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wMSM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCOMC", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wOMC", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}], " ", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onOMC1", " ", "=", " ", "onOMC"}], ";"}]}], "Input", CellChangeTimes->{{3.436644452719702*^9, 3.436644505203726*^9}, 3.436645087354423*^9, {3.436645291675655*^9, 3.436645351813755*^9}, 3.4366454180377703`*^9, 3.436645620149555*^9, {3.436645894722775*^9, 3.436646088667162*^9}, {3.436649971819621*^9, 3.436650075605196*^9}, { 3.4366504570666437`*^9, 3.436650465239758*^9}}], Cell[BoxData["125.50272011944877`"], "Output", CellChangeTimes->{3.4366461023704147`*^9, 3.436650084407811*^9, 3.436650466510955*^9}], Cell[BoxData["0.005192579447676719`"], "Output", CellChangeTimes->{3.4366461023704147`*^9, 3.436650084407811*^9, 3.436650466519738*^9}], Cell[BoxData[ RowBox[{"-", "2.5508118844358125`"}]], "Output", CellChangeTimes->{3.4366461023704147`*^9, 3.436650084407811*^9, 3.436650466521014*^9}], Cell[BoxData["0.005192579447676717`"], "Output", CellChangeTimes->{3.4366461023704147`*^9, 3.436650084407811*^9, 3.436650466522251*^9}], Cell[BoxData[ RowBox[{"-", "0.7768735031719581`"}]], "Output", CellChangeTimes->{3.4366461023704147`*^9, 3.436650084407811*^9, 3.4366504665235023`*^9}], Cell[BoxData["0.001573398270737482`"], "Output", CellChangeTimes->{3.4366461023704147`*^9, 3.436650084407811*^9, 3.436650466524749*^9}], Cell[BoxData[ RowBox[{"-", "0.5595310713898587`"}]], "Output", CellChangeTimes->{3.4366461023704147`*^9, 3.436650084407811*^9, 3.436650466526005*^9}], Cell[BoxData["0.0015733982707374816`"], "Output", CellChangeTimes->{3.4366461023704147`*^9, 3.436650084407811*^9, 3.436650466527256*^9}], Cell[BoxData[ RowBox[{"-", "0.2926053960822836`"}]], "Output", CellChangeTimes->{3.4366461023704147`*^9, 3.436650084407811*^9, 3.436650466545195*^9}], Cell[BoxData["0.0008162315390858583`"], "Output", CellChangeTimes->{3.4366461023704147`*^9, 3.436650084407811*^9, 3.4366504665803337`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ROC3", " ", "=", " ", "3.048"}], ";", " ", RowBox[{"ROC4", " ", "=", " ", RowBox[{"-", "0.381"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f3", " ", "=", " ", RowBox[{"ROC3", " ", "/", " ", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f4", " ", "=", " ", RowBox[{"ROC4", " ", "/", " ", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L34", " ", "=", " ", RowBox[{"f3", " ", "+", " ", "f4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L3", " ", "=", " ", RowBox[{"9", " ", "+", " ", "5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{"Mprop", "[", "L3", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onMSM", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"2", "/", "ROCPRM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wITM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCMSM", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wMSM", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mrefl", "[", "ROC3", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onMSM", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"2", "/", "ROCPRM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wITM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCMSM", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wMSM", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mprop", "[", "L34", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onMSM", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"2", "/", "ROCPRM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wITM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCMSM", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wMSM", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mrefl", "[", "ROC4", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onMSM", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"2", "/", "ROCPRM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wITM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCMSM", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wMSM", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}], " ", "]"}]}], "\n"}], "Input", CellChangeTimes->{{3.436649393358921*^9, 3.436649492085587*^9}, 3.436649549703745*^9, {3.436649585015952*^9, 3.436649675435905*^9}, { 3.4366497171021233`*^9, 3.436649906799396*^9}, {3.436650132544492*^9, 3.4366501391910686`*^9}}], Cell[BoxData["7068.18843049077`"], "Output", CellChangeTimes->{3.436650147548147*^9, 3.436650470889144*^9}], Cell[BoxData["0.03645481128314807`"], "Output", CellChangeTimes->{3.436650147548147*^9, 3.436650470910194*^9}], Cell[BoxData[ RowBox[{"-", "1.5243286665190974`"}]], "Output", CellChangeTimes->{3.436650147548147*^9, 3.436650470944586*^9}], Cell[BoxData["0.03645481128314808`"], "Output", CellChangeTimes->{3.436650147548147*^9, 3.436650470977838*^9}], Cell[BoxData[ RowBox[{"-", "0.19083027401474906`"}]], "Output", CellChangeTimes->{3.436650147548147*^9, 3.4366504710120993`*^9}], Cell[BoxData["0.004563745870874552`"], "Output", CellChangeTimes->{3.436650147548147*^9, 3.43665047104539*^9}], Cell[BoxData["110.06971658800911`"], "Output", CellChangeTimes->{3.436650147548147*^9, 3.436650471078765*^9}], Cell[BoxData["0.004563745870874552`"], "Output", CellChangeTimes->{3.436650147548147*^9, 3.436650471112069*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"1", "/", "onMSM"}]], "Input", CellChangeTimes->{{3.4367048641626873`*^9, 3.4367048649934807`*^9}}], Cell[BoxData[ RowBox[{"26.184856104651143`", "\[InvisibleSpace]", "+", RowBox[{"46.86697132432888`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{3.436704866510524*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ROC1", " ", "=", " ", "5"}], ";", " ", RowBox[{"ROC2", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{"Mprop", "[", "20", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onOMC", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "ROCMSM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wMSM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCOMC", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wOMC", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mrefl", "[", "ROC1", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onOMC", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "ROCMSM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wMSM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCOMC", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wOMC", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mprop", "[", "1.78", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onOMC", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "ROCMSM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wMSM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCOMC", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wOMC", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mrefl", "[", "ROC2", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onOMC", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "ROCMSM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wMSM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCOMC", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wOMC", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mprop", "[", "0.27", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onOMC", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1", "/", "ROCMSM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wMSM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCOMC", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wOMC", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onOMC"}], "]"}], " ", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onOMC2", " ", "=", " ", "onOMC"}], ";"}]}], "Input", CellChangeTimes->{{3.436644452719702*^9, 3.436644505203726*^9}, 3.436645087354423*^9, {3.436645291675655*^9, 3.436645351813755*^9}, 3.4366454180377703`*^9, 3.436645620149555*^9, {3.436645894722775*^9, 3.436646088667162*^9}, {3.436649971819621*^9, 3.436650075605196*^9}, { 3.436650474610347*^9, 3.436650481127284*^9}}], Cell[BoxData["93.74401697197841`"], "Output", CellChangeTimes->{3.43665014781714*^9, 3.4366504823715687`*^9}], Cell[BoxData["0.005593504736333291`"], "Output", CellChangeTimes->{3.43665014781714*^9, 3.436650482372897*^9}], Cell[BoxData[ RowBox[{"-", "2.568497641899298`"}]], "Output", CellChangeTimes->{3.43665014781714*^9, 3.43665048237389*^9}], Cell[BoxData["0.005593504736333294`"], "Output", CellChangeTimes->{3.43665014781714*^9, 3.4366504823748703`*^9}], Cell[BoxData[ RowBox[{"-", "0.7929878156392883`"}]], "Output", CellChangeTimes->{3.43665014781714*^9, 3.4366504823758497`*^9}], Cell[BoxData["0.001720517190799827`"], "Output", CellChangeTimes->{3.43665014781714*^9, 3.4366504823768253`*^9}], Cell[BoxData[ RowBox[{"-", "0.5678419441710173`"}]], "Output", CellChangeTimes->{3.43665014781714*^9, 3.4366504823778057`*^9}], Cell[BoxData["0.0017205171907998264`"], "Output", CellChangeTimes->{3.43665014781714*^9, 3.436650482378785*^9}], Cell[BoxData[ RowBox[{"-", "0.30002302967524924`"}]], "Output", CellChangeTimes->{3.43665014781714*^9, 3.4366504823797703`*^9}], Cell[BoxData["0.0009040018223958089`"], "Output", CellChangeTimes->{3.43665014781714*^9, 3.4366504823807487`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"zz01", " ", "=", " ", RowBox[{"1", "/", "onOMC1"}]}], "\[IndentingNewLine]", RowBox[{"zz02", " ", "=", " ", RowBox[{"1", "/", "onOMC2"}]}]}], "Input", CellChangeTimes->{{3.4366504980561047`*^9, 3.436650509045862*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "0.2862714733921317`"}], "+", RowBox[{"0.04258193726055256`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{3.436650510437666*^9}], Cell[BoxData[ RowBox[{ RowBox[{"-", "0.29545522892304105`"}], "+", RowBox[{"0.036736638617577935`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{3.436650510464686*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"onOMC1", "/", "onOMC2"}]], "Input", CellChangeTimes->{{3.436650525194525*^9, 3.4366505432480297`*^9}}], Cell[BoxData[ RowBox[{"1.0284146729782335`", "\[InvisibleSpace]", "+", RowBox[{"0.024645314398297258`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{{3.4366505305448513`*^9, 3.436650543863452*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"0.04258193726055256`", " ", "/", " ", "0.036736638617577935`", " "}]], "Input", CellChangeTimes->{{3.436650563065579*^9, 3.436650568466886*^9}}], Cell[BoxData["1.159113595117484`"], "Output", CellChangeTimes->{3.4366505695126953`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"RITMLLO", " ", "=", " ", RowBox[{"14.64", " ", SuperscriptBox["10", "3"]}]}], ";", " ", RowBox[{"RETMLLO", " ", "=", " ", RowBox[{"8.72", " ", SuperscriptBox["10", "3"]}]}], ";", " ", RowBox[{"LLLO", " ", "=", " ", "3995"}], ";"}]], "Input", CellChangeTimes->{{3.436704256238153*^9, 3.436704308262166*^9}, { 3.436704347224559*^9, 3.436704380282806*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"w0FP", "[", " ", RowBox[{"RITMLLO", ",", " ", "RETMLLO", ",", " ", "LLLO"}], " ", "]"}], "\[IndentingNewLine]", RowBox[{"z1FP", "[", " ", RowBox[{"RITMLLO", ",", " ", "RETMLLO", ",", " ", "4000"}], " ", "]"}]}], "Input", CellChangeTimes->{{3.436704198724003*^9, 3.4367042445719624`*^9}, { 3.436704314667781*^9, 3.436704341103334*^9}, {3.436704398938416*^9, 3.4367044220260363`*^9}}], Cell[BoxData["0.0370748484783391`"], "Output", CellChangeTimes->{{3.436704230544567*^9, 3.4367042454309807`*^9}, { 3.436704322912588*^9, 3.4367043551689653`*^9}, {3.43670438660747*^9, 3.436704422533971*^9}}], Cell[BoxData["1229.1666666666667`"], "Output", CellChangeTimes->{{3.436704230544567*^9, 3.4367042454309807`*^9}, { 3.436704322912588*^9, 3.4367043551689653`*^9}, {3.43670438660747*^9, 3.436704422535383*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"w1FP", "[", " ", RowBox[{"RITMLLO", ",", " ", "RETMLLO", ",", " ", "LLLO"}], " ", "]"}]], "Input", CellChangeTimes->{{3.4367146635312643`*^9, 3.436714665098143*^9}}], Cell[BoxData["0.03873515278747813`"], "Output", CellChangeTimes->{3.436714665805532*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]", " ", SuperscriptBox["0.0387352", "2"]}], RowBox[{"1.064", " ", SuperscriptBox["10", RowBox[{"-", "6"}]]}]], FractionBox["1", RowBox[{"4", " ", "RITMLLO"}]]}]], "Input", CellChangeTimes->{{3.436744190214697*^9, 3.436744234716298*^9}, { 3.436744275119965*^9, 3.436744284400358*^9}}], Cell[BoxData["0.1513034314868469`"], "Output", CellChangeTimes->{3.436744286835816*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ROC3", " ", "=", " ", "3.048"}], ";", " ", RowBox[{"ROC4", " ", "=", " ", RowBox[{"-", "0.381"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f3", " ", "=", " ", RowBox[{"ROC3", " ", "/", " ", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f4", " ", "=", " ", RowBox[{"ROC4", " ", "/", " ", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L34", " ", "=", " ", RowBox[{"f3", " ", "+", " ", "f4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L3", " ", "=", " ", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{"Mprop", "[", "L3", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onMSM", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1.45", "/", "ROCPRM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wITM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCMSM", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wMSM", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mrefl", "[", "ROC3", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onMSM", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1.45", "/", "ROCPRM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wITM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCMSM", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wMSM", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mprop", "[", "L34", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onMSM", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1.45", "/", "ROCPRM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wITM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCMSM", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wMSM", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}], " ", "]"}]}], "\n", RowBox[{ RowBox[{"MMT", " ", "=", " ", RowBox[{ RowBox[{"Mrefl", "[", "ROC4", "]"}], ".", "MMT"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"onMSM", " ", "=", " ", RowBox[{"qinvNew", "[", RowBox[{ RowBox[{ RowBox[{"1.45", "/", "ROCPRM"}], " ", "-", " ", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"\[Lambda]MM", " ", "/", " ", "\[Pi]"}], " ", "/", " ", SuperscriptBox["wITM", "2"]}]}]}], ",", " ", "MMT"}], "]"}]}], ";"}], "\n", RowBox[{"ROCMSM", " ", "=", " ", RowBox[{"1", "/", RowBox[{"RinvQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"wMSM", " ", "=", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"wSqQ", "[", RowBox[{"1", "/", "onMSM"}], "]"}], " ", "]"}]}], "\n", RowBox[{"1", "/", "onMSM"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.436649393358921*^9, 3.436649492085587*^9}, 3.436649549703745*^9, {3.436649585015952*^9, 3.436649675435905*^9}, { 3.4366497171021233`*^9, 3.436649906799396*^9}, {3.436650132544492*^9, 3.4366501391910686`*^9}, {3.436704960091475*^9, 3.436704976261181*^9}, { 3.436705017468836*^9, 3.436705017595001*^9}, {3.436705205108025*^9, 3.4367052104754143`*^9}}], Cell[BoxData["9766.828465252667`"], "Output", CellChangeTimes->{3.4367049808870277`*^9, 3.436705019070804*^9, 3.436705211734823*^9}], Cell[BoxData["0.036401443027632395`"], "Output", CellChangeTimes->{3.4367049808870277`*^9, 3.436705019070804*^9, 3.43670521173625*^9}], Cell[BoxData[ RowBox[{"-", "1.5242378395889515`"}]], "Output", CellChangeTimes->{3.4367049808870277`*^9, 3.436705019070804*^9, 3.436705211769368*^9}], Cell[BoxData["0.036401443027632395`"], "Output", CellChangeTimes->{3.4367049808870277`*^9, 3.436705019070804*^9, 3.436705211802791*^9}], Cell[BoxData[ RowBox[{"-", "0.19073945701319164`"}]], "Output", CellChangeTimes->{3.4367049808870277`*^9, 3.436705019070804*^9, 3.436705211836306*^9}], Cell[BoxData["0.004555167294161277`"], "Output", CellChangeTimes->{3.4367049808870277`*^9, 3.436705019070804*^9, 3.4367052118703938`*^9}], Cell[BoxData["151.7427536437825`"], "Output", CellChangeTimes->{3.4367049808870277`*^9, 3.436705019070804*^9, 3.4367052119035482`*^9}], Cell[BoxData["0.004555167294161277`"], "Output", CellChangeTimes->{3.4367049808870277`*^9, 3.436705019070804*^9, 3.436705211937131*^9}], Cell[BoxData[ RowBox[{"21.26874649771278`", "\[InvisibleSpace]", "+", RowBox[{"52.67844514154269`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{3.4367049808870277`*^9, 3.436705019070804*^9, 3.436705211970069*^9}] }, Open ]] }, Open ]] }, AutoGeneratedPackage->Automatic, WindowToolbars->"EditBar", WindowSize->{799, 893}, WindowMargins->{{Automatic, 135}, {254, Automatic}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, ShowSelection->True, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (May 21, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 437, 10, 27, "Input", InitializationCell->True], Cell[CellGroupData[{ Cell[1030, 35, 668, 23, 45, "Input"], Cell[1701, 60, 459, 13, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2197, 78, 729, 17, 33, "Input"], Cell[2929, 97, 187, 6, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3153, 108, 716, 20, 45, "Input"], Cell[3872, 130, 155, 5, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4064, 140, 877, 26, 45, "Input"], Cell[4944, 168, 211, 6, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5192, 179, 683, 19, 45, "Input"], Cell[5878, 200, 137, 4, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6052, 209, 94, 1, 67, "Section"], Cell[CellGroupData[{ Cell[6171, 214, 1196, 32, 120, "Input"], Cell[7370, 248, 308, 9, 27, "Output"], Cell[7681, 259, 135, 2, 27, "Output"], Cell[7819, 263, 136, 2, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7992, 270, 746, 19, 64, "Input"], Cell[8741, 291, 283, 4, 27, "Output"], Cell[9027, 297, 180, 2, 27, "Output"], Cell[9210, 301, 182, 2, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9429, 308, 771, 19, 64, "Input"], Cell[10203, 329, 189, 3, 27, "Output"], Cell[10395, 334, 87, 1, 27, "Output"], Cell[10485, 337, 91, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10613, 343, 85, 2, 27, "Input"], Cell[10701, 347, 217, 7, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10955, 359, 4111, 114, 382, "Input"], Cell[15069, 475, 164, 3, 27, "Output"], Cell[15236, 480, 167, 3, 27, "Output"], Cell[15406, 485, 184, 4, 27, "Output"], Cell[15593, 491, 167, 3, 27, "Output"], Cell[15763, 496, 183, 4, 27, "Output"], Cell[15949, 502, 169, 3, 27, "Output"], Cell[16121, 507, 167, 3, 27, "Output"], Cell[16291, 512, 167, 3, 27, "Output"], Cell[16461, 517, 263, 5, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16761, 527, 4592, 128, 373, "Input"], Cell[21356, 657, 137, 2, 27, "Output"], Cell[21496, 661, 139, 2, 27, "Output"], Cell[21638, 665, 154, 3, 27, "Output"], Cell[21795, 670, 139, 2, 27, "Output"], Cell[21937, 674, 156, 3, 27, "Output"], Cell[22096, 679, 139, 2, 27, "Output"], Cell[22238, 683, 154, 3, 27, "Output"], Cell[22395, 688, 140, 2, 27, "Output"], Cell[22538, 692, 154, 3, 27, "Output"], Cell[22695, 697, 142, 2, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22874, 704, 4093, 114, 367, "Input"], Cell[26970, 820, 108, 1, 27, "Output"], Cell[27081, 823, 111, 1, 27, "Output"], Cell[27195, 826, 127, 2, 27, "Output"], Cell[27325, 830, 111, 1, 27, "Output"], Cell[27439, 833, 130, 2, 27, "Output"], Cell[27572, 837, 111, 1, 27, "Output"], Cell[27686, 840, 110, 1, 27, "Output"], Cell[27799, 843, 112, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27948, 849, 123, 2, 27, "Input"], Cell[28074, 853, 183, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28294, 861, 4590, 128, 373, "Input"], Cell[32887, 991, 110, 1, 27, "Output"], Cell[33000, 994, 111, 1, 27, "Output"], Cell[33114, 997, 124, 2, 27, "Output"], Cell[33241, 1001, 113, 1, 27, "Output"], Cell[33357, 1004, 128, 2, 27, "Output"], Cell[33488, 1008, 113, 1, 27, "Output"], Cell[33604, 1011, 128, 2, 27, "Output"], Cell[33735, 1015, 112, 1, 27, "Output"], Cell[33850, 1018, 129, 2, 27, "Output"], Cell[33982, 1022, 114, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34133, 1028, 251, 5, 43, "Input"], Cell[34387, 1035, 182, 4, 27, "Output"], Cell[34572, 1041, 184, 4, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34793, 1050, 127, 2, 27, "Input"], Cell[34923, 1054, 212, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35172, 1062, 172, 3, 27, "Input"], Cell[35347, 1067, 89, 1, 27, "Output"] }, Open ]], Cell[35451, 1071, 415, 10, 30, "Input"], Cell[CellGroupData[{ Cell[35891, 1085, 427, 9, 43, "Input"], Cell[36321, 1096, 213, 3, 27, "Output"], Cell[36537, 1101, 213, 3, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36787, 1109, 196, 4, 27, "Input"], Cell[36986, 1115, 89, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37112, 1121, 379, 11, 50, "Input"], Cell[37494, 1134, 88, 1, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37619, 1140, 4273, 116, 382, "Input"], Cell[41895, 1258, 136, 2, 27, "Output"], Cell[42034, 1262, 138, 2, 27, "Output"], Cell[42175, 1266, 154, 3, 27, "Output"], Cell[42332, 1271, 139, 2, 27, "Output"], Cell[42474, 1275, 155, 3, 27, "Output"], Cell[42632, 1280, 141, 2, 27, "Output"], Cell[42776, 1284, 138, 2, 27, "Output"], Cell[42917, 1288, 139, 2, 27, "Output"], Cell[43059, 1292, 231, 4, 27, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)