(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 48809, 1124] NotebookOptionsPosition[ 47756, 1084] NotebookOutlinePosition[ 48116, 1100] CellTagsIndexPosition[ 48073, 1097] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Mass Spectrum Plot", "Title", CellChangeTimes->{{3.4778877730245256`*^9, 3.477887776684634*^9}, { 3.477887824304772*^9, 3.477887824627327*^9}}], Cell[TextData[{ "Kristjan Kannike, created: 2010-03-15, changed: 2010-03-22. See also ", ButtonBox["Drawing Mass Spectrum Plots", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.physic.ut.ee/~kkannike/english/prog/mathematica/index.\ html#mass_spectrum_plot"], None}, ButtonNote-> "http://www.physic.ut.ee/~kkannike/english/prog/mathematica/index.html#\ mass_spectrum_plot"], "." }], "Input", CellChangeTimes->{{3.4781732830643263`*^9, 3.478173322369115*^9}, { 3.478174160964122*^9, 3.4781741719141493`*^9}, {3.47817424571621*^9, 3.478174281969431*^9}, {3.478234119459716*^9, 3.4782341195918694`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "massSpectrumPlot", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"showPhase", "\[Rule]", "True"}], ",", RowBox[{"showPhaseDisk", "\[Rule]", "False"}], ",", RowBox[{"lineLength", "\[Rule]", "100"}], ",", RowBox[{"lineThickness", "\[Rule]", "Thick"}], ",", RowBox[{"labelOffset", "->", "0.1"}], ",", RowBox[{"arrowProportion", "\[Rule]", "0.03"}], ",", RowBox[{"arrowheadSize", "\[Rule]", "Small"}], ",", RowBox[{"arrowColor", "\[Rule]", "Black"}], ",", RowBox[{"labelStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontSize", "\[Rule]", "10"}], "}"}]}], ",", RowBox[{"showOptions", "\[Rule]", RowBox[{"{", RowBox[{"ImageSize", "\[Rule]", "Small"}], "}"}]}], ",", RowBox[{"colors", "->", RowBox[{"{", RowBox[{ RowBox[{"{", "Black", "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "67", "]"}], ",", RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "144", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "67", "]"}], ",", RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "144", "]"}], ",", RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "59", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "67", "]"}], ",", RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "144", "]"}], ",", RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "24", "]"}], ",", RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "59", "]"}]}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"massSpectrumPlot", "[", RowBox[{"pts_", ",", RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"First", "[", "#", "]"}], ",", RowBox[{"Sequence", "@@", RowBox[{"OptionValue", "[", "labelStyle", "]"}]}]}], " ", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"OptionValue", "[", "labelOffset", "]"}]}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "Right"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"m", "=", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"coeffs", "=", RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"accs", "=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"acc", "=", RowBox[{"Accumulate", "[", " ", RowBox[{"Abs", "@", RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "]"}]}], "}"}], ",", RowBox[{ RowBox[{"OptionValue", "[", "lineLength", "]"}], " ", RowBox[{"Partition", "[", RowBox[{ RowBox[{"Prepend", "[", RowBox[{ RowBox[{"acc", "/", RowBox[{"Last", "[", "acc", "]"}]}], ",", "0"}], "]"}], ",", "2", ",", "1"}], "]"}]}]}], "]"}]}], ",", RowBox[{"cols", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "#", "]"}], "\[Equal]", "4"}], ",", RowBox[{"#", "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{ RowBox[{"OptionValue", "[", "colors", "]"}], "[", RowBox[{"[", RowBox[{"Length", "@", RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "]"}], "]"}]}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"MapThread", "[", RowBox[{ RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"#1", ",", RowBox[{"OptionValue", "[", "lineThickness", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"First", "[", "#2", "]"}], ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Last", "[", "#2", "]"}], ",", "m"}], "}"}]}], " ", "}"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"OptionValue", "[", "showPhaseDisk", "]"}], ",", RowBox[{ RowBox[{"Arg", "[", "#3", "]"}], "\[NotEqual]", "0"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"#1", ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", "#2", "]"}], ",", "m"}], "}"}], ",", RowBox[{ RowBox[{"OptionValue", "[", "arrowProportion", "]"}], " ", RowBox[{"OptionValue", "[", "lineLength", "]"}]}]}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Arg", "[", "#3", "]"}], "\[NotEqual]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "[", RowBox[{"OptionValue", "[", "arrowheadSize", "]"}], "]"}], ",", RowBox[{"OptionValue", "[", "lineThickness", "]"}], ",", RowBox[{"OptionValue", "[", "arrowColor", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Translate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", "#2", "]"}], ",", "m"}], "}"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mean", "[", "#2", "]"}], ",", "m"}], "}"}], "+", RowBox[{ RowBox[{"OptionValue", "[", "arrowProportion", "]"}], " ", RowBox[{"OptionValue", "[", "lineLength", "]"}], " ", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"Arg", "[", "#3", "]"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"Arg", "[", "#3", "]"}], "]"}]}], "}"}]}]}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"OptionValue", "[", "showPhaseDisk", "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "2"}], " ", RowBox[{"OptionValue", "[", "arrowProportion", "]"}], " ", RowBox[{"OptionValue", "[", "lineLength", "]"}], " ", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", RowBox[{"Arg", "[", "#3", "]"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"Arg", "[", "#3", "]"}], "]"}]}], "}"}]}]}], " ", "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", RowBox[{"Graphics", "[", "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], "&"}], ",", RowBox[{"{", RowBox[{"cols", ",", "accs", ",", "coeffs"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], "}"}], "&"}], "/@", "pts"}], " ", ",", "\[IndentingNewLine]", RowBox[{"Sequence", "@@", RowBox[{"OptionValue", "[", "showOptions", "]"}]}]}], " ", "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.477631015949967*^9, 3.477631045789658*^9}, { 3.4776311082902393`*^9, 3.477631108455739*^9}, {3.477631527219111*^9, 3.477631532630026*^9}, {3.477631847595997*^9, 3.4776318565364847`*^9}, { 3.477631915689488*^9, 3.4776319160799932`*^9}, {3.4776327026600122`*^9, 3.477632762301531*^9}, {3.477633784050205*^9, 3.4776338621365213`*^9}, { 3.4776344600656853`*^9, 3.477634460719556*^9}, {3.477634741352871*^9, 3.477634751002178*^9}, {3.477635102810215*^9, 3.4776351042667303`*^9}, { 3.477635399646933*^9, 3.477635403555756*^9}, {3.4776360874883137`*^9, 3.477636158333556*^9}, {3.477636569914776*^9, 3.477636612147729*^9}, { 3.477649921250371*^9, 3.477649927467039*^9}, 3.477656023376545*^9, { 3.4776588249762793`*^9, 3.4776589338661203`*^9}, {3.477676788235854*^9, 3.477676794424781*^9}, {3.477709373765439*^9, 3.477709500591798*^9}, { 3.4777138518091*^9, 3.4777138522316837`*^9}, {3.477713960563953*^9, 3.477713969523325*^9}, {3.47771417768368*^9, 3.477714211968801*^9}, { 3.477714244910452*^9, 3.477714343141061*^9}, {3.477714386811038*^9, 3.477714420231234*^9}, {3.47771480856001*^9, 3.4777148159669867`*^9}, { 3.477724375017425*^9, 3.4777244981951923`*^9}, {3.4777245349015427`*^9, 3.4777246200757723`*^9}, {3.4777246758512163`*^9, 3.47772470097198*^9}, { 3.4777247511586437`*^9, 3.477724761244334*^9}, {3.477724799794648*^9, 3.477724807167692*^9}, {3.477724896571712*^9, 3.4777249016150084`*^9}, { 3.477725048164476*^9, 3.477725050882464*^9}, {3.4777251316374283`*^9, 3.477725208602312*^9}, {3.4777252711744633`*^9, 3.477725310712125*^9}, { 3.477725349252399*^9, 3.4777253543391037`*^9}, {3.477732052262086*^9, 3.477732081840919*^9}, {3.4777324383813562`*^9, 3.4777325527075977`*^9}, { 3.4777343855384903`*^9, 3.47773439069915*^9}, {3.4777344235853024`*^9, 3.4777344323806963`*^9}, {3.477734577630087*^9, 3.477734578070808*^9}, { 3.477734616878929*^9, 3.477734688432312*^9}, {3.477734732643343*^9, 3.477734837162705*^9}, {3.477734874369721*^9, 3.477734891642686*^9}, { 3.477734936487701*^9, 3.4777349440120373`*^9}, {3.477735182592024*^9, 3.477735246578973*^9}, {3.47773680798458*^9, 3.477736809599085*^9}, { 3.477736871302367*^9, 3.4777369608487873`*^9}, {3.477736994383452*^9, 3.477736995027055*^9}, {3.47773994047549*^9, 3.477739960612591*^9}, { 3.4777501325001907`*^9, 3.477750150865*^9}, {3.477750222383358*^9, 3.4777502513951406`*^9}, {3.477751056771473*^9, 3.47775106028941*^9}, { 3.47776355084482*^9, 3.477763582340521*^9}, {3.477811518994749*^9, 3.477811760077125*^9}, {3.4778118163964567`*^9, 3.47781182323028*^9}, 3.47788783561415*^9, {3.477887896190461*^9, 3.477887896275276*^9}, { 3.478069487799993*^9, 3.478069547470109*^9}, {3.478069593239616*^9, 3.478069618064611*^9}, 3.4780697177459908`*^9, {3.47806977659794*^9, 3.478069777117187*^9}, {3.478072602666483*^9, 3.4780726063048897`*^9}, { 3.47807270421978*^9, 3.478072742140486*^9}, {3.4780737024762383`*^9, 3.4780737121750298`*^9}, {3.478073762923587*^9, 3.478073780078143*^9}, { 3.4780738138198147`*^9, 3.478073838734708*^9}, {3.4780738863623323`*^9, 3.47807388854701*^9}, {3.478073919011896*^9, 3.478073923264353*^9}, { 3.478084272867386*^9, 3.47808427523811*^9}, {3.478084326189348*^9, 3.478084328307083*^9}, {3.4780844031614122`*^9, 3.478084408103468*^9}, { 3.47810551231469*^9, 3.478105516257806*^9}, {3.4781055475027246`*^9, 3.478105552340671*^9}, {3.478105657532448*^9, 3.478105836813694*^9}, { 3.478105881760029*^9, 3.478105920690654*^9}, {3.478106102044827*^9, 3.4781061023057547`*^9}, {3.4781062239452057`*^9, 3.478106297484911*^9}, { 3.478106330130574*^9, 3.478106349723341*^9}, {3.47810640992108*^9, 3.478106572457357*^9}, {3.478106627461965*^9, 3.478106654166975*^9}, { 3.478173377736622*^9, 3.4781734106504803`*^9}, {3.478173499952824*^9, 3.478173510571299*^9}, {3.478173541921062*^9, 3.478173584962863*^9}, { 3.47817449290486*^9, 3.478174493351481*^9}, {3.478174606402076*^9, 3.478174610669313*^9}, {3.4781747464886103`*^9, 3.478174773064996*^9}, { 3.4781748674645853`*^9, 3.478174867517905*^9}, {3.478174998242571*^9, 3.4781750023537397`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"massSpectrumPlot", "[", RowBox[{ RowBox[{"{", " ", RowBox[{"{", RowBox[{"m1", ",", "10", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}], " ", "}"}], ",", RowBox[{"showOptions", "\[Rule]", RowBox[{"{", RowBox[{"ImageSize", "\[Rule]", "Medium"}], "}"}]}], ",", RowBox[{"showPhaseDisk", "\[Rule]", "True"}], ",", RowBox[{"arrowheadSize", "\[Rule]", "Medium"}], ",", RowBox[{"arrowProportion", "\[Rule]", "0.04"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"massSpectrumPlot", "[", RowBox[{ RowBox[{"{", " ", RowBox[{"{", RowBox[{"m1", ",", "10", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "I", ",", RowBox[{"1", "+", "I"}]}], "}"}]}], "}"}], " ", "}"}], ",", RowBox[{"showOptions", "\[Rule]", RowBox[{"{", RowBox[{"ImageSize", "\[Rule]", "Medium"}], "}"}]}], ",", RowBox[{"showPhaseDisk", "\[Rule]", "True"}], ",", RowBox[{"arrowheadSize", "\[Rule]", "Medium"}], ",", RowBox[{"arrowProportion", "\[Rule]", "0.04"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"massSpectrumPlot", "[", RowBox[{ RowBox[{"{", " ", RowBox[{"{", RowBox[{"m1", ",", "10", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "I", ",", RowBox[{"1", "+", "I"}], ",", RowBox[{"1", "-", "I"}]}], "}"}]}], "}"}], " ", "}"}], ",", RowBox[{"showOptions", "\[Rule]", RowBox[{"{", RowBox[{"ImageSize", "\[Rule]", "Medium"}], "}"}]}], ",", RowBox[{"showPhaseDisk", "\[Rule]", "True"}], ",", RowBox[{"arrowheadSize", "\[Rule]", "Medium"}], ",", RowBox[{"arrowProportion", "\[Rule]", "0.04"}]}], "]"}]}], "Input", CellChangeTimes->{{3.478084344522457*^9, 3.478084350896503*^9}, { 3.478105847240851*^9, 3.478105852856591*^9}, {3.478105961432893*^9, 3.478106012016423*^9}, {3.47810606374771*^9, 3.478106081359892*^9}, { 3.478106763843614*^9, 3.478106765967885*^9}, 3.478173595320669*^9}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["m1", StripOnInput->False, FontSize->10], {-0.1, 10}, Right], {RGBColor[0.889996, 0.069994, 0.189993], Thickness[Large], LineBox[{{0, 10}, {50, 10}}]}, {RGBColor[0.889996, 0.069994, 0.189993], DiskBox[{25, 10}, 4.]}, {GrayLevel[0], Thickness[Large], Arrowheads[Medium], GeometricTransformationBox[ArrowBox[{{25, 10}, {21., 10}}], {0, 0}]}, {RGBColor[0.039995, 0.790002, 0.170003], Thickness[Large], LineBox[{{50, 10}, {100, 10}}]}, {}, {}}, ImageSize->Medium]], "Output", CellChangeTimes->{{3.478105976323934*^9, 3.478106012599229*^9}, 3.478106103815312*^9, 3.47810619572493*^9, {3.478106238704953*^9, 3.478106298659566*^9}, {3.478106331095665*^9, 3.478106351019147*^9}, { 3.478106411346861*^9, 3.47810656387475*^9}, {3.4781066306263847`*^9, 3.478106655545629*^9}, 3.478106766519189*^9, 3.478172512128646*^9, 3.478173416365497*^9, {3.4781735865010633`*^9, 3.478173595787801*^9}, 3.478174495560495*^9}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["m1", StripOnInput->False, FontSize->10], {-0.1, 10}, Right], {RGBColor[0.889996, 0.069994, 0.189993], Thickness[Large], LineBox[NCache[{{0, 10}, {100/(2 + 2^Rational[1, 2]), 10}}, {{0, 10}, { 29.28932188134525, 10}}]]}, {RGBColor[0.889996, 0.069994, 0.189993], DiskBox[NCache[{50/(2 + 2^Rational[1, 2]), 10}, { 14.644660940672624`, 10}], 4.]}, {GrayLevel[0], Thickness[Large], Arrowheads[Medium], GeometricTransformationBox[ ArrowBox[NCache[{{50/(2 + 2^Rational[1, 2]), 10}, { 10.644660940672624`, 10}}, {{14.644660940672624`, 10}, { 10.644660940672624`, 10}}]], {0, 0}]}, {RGBColor[0.039995, 0.790002, 0.170003], Thickness[Large], LineBox[NCache[{{100/(2 + 2^Rational[1, 2]), 10}, { 200/(2 + 2^Rational[1, 2]), 10}}, {{29.28932188134525, 10}, { 58.5786437626905, 10}}]]}, {RGBColor[0.039995, 0.790002, 0.170003], DiskBox[NCache[{150/(2 + 2^Rational[1, 2]), 10}, { 43.933982822017875`, 10}], 4.]}, {GrayLevel[0], Thickness[Large], Arrowheads[Medium], GeometricTransformationBox[ ArrowBox[NCache[{{150/(2 + 2^Rational[1, 2]), 10}, { 150/(2 + 2^Rational[1, 2]), 14.}}, {{43.933982822017875`, 10}, { 43.933982822017875`, 14.}}]], {0, 0}]}, {RGBColor[0.117603, 0.564699, 1.], Thickness[Large], LineBox[NCache[{{200/(2 + 2^Rational[1, 2]), 10}, {100, 10}}, {{ 58.5786437626905, 10}, {100, 10}}]]}, {RGBColor[0.117603, 0.564699, 1.], DiskBox[NCache[{Rational[1, 2] (100 + 200/(2 + 2^Rational[1, 2])), 10}, { 79.28932188134524, 10}], 4.]}, {GrayLevel[0], Thickness[Large], Arrowheads[Medium], GeometricTransformationBox[ ArrowBox[NCache[{{ Rational[1, 2] (100 + 200/(2 + 2^Rational[1, 2])), 10}, { 82.11774900609143, 12.82842712474619}}, {{79.28932188134524, 10}, { 82.11774900609143, 12.82842712474619}}]], {0, 0}]}}, ImageSize->Medium]], "Output", CellChangeTimes->{{3.478105976323934*^9, 3.478106012599229*^9}, 3.478106103815312*^9, 3.47810619572493*^9, {3.478106238704953*^9, 3.478106298659566*^9}, {3.478106331095665*^9, 3.478106351019147*^9}, { 3.478106411346861*^9, 3.47810656387475*^9}, {3.4781066306263847`*^9, 3.478106655545629*^9}, 3.478106766519189*^9, 3.478172512128646*^9, 3.478173416365497*^9, {3.4781735865010633`*^9, 3.478173595787801*^9}, 3.478174495565029*^9}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["m1", StripOnInput->False, FontSize->10], {-0.1, 10}, Right], {RGBColor[0.889996, 0.069994, 0.189993], Thickness[Large], LineBox[NCache[{{0, 10}, {100/(2 + 2 2^Rational[1, 2]), 10}}, {{0, 10}, { 20.710678118654755`, 10}}]]}, {RGBColor[0.889996, 0.069994, 0.189993], DiskBox[NCache[{50/(2 + 2 2^Rational[1, 2]), 10}, { 10.355339059327378`, 10}], 4.]}, {GrayLevel[0], Thickness[Large], Arrowheads[Medium], GeometricTransformationBox[ ArrowBox[NCache[{{50/(2 + 2 2^Rational[1, 2]), 10}, { 6.3553390593273775`, 10}}, {{10.355339059327378`, 10}, { 6.3553390593273775`, 10}}]], {0, 0}]}, {RGBColor[0.039995, 0.790002, 0.170003], Thickness[Large], LineBox[NCache[{{100/(2 + 2 2^Rational[1, 2]), 10}, { 200/(2 + 2 2^Rational[1, 2]), 10}}, {{20.710678118654755`, 10}, { 41.42135623730951, 10}}]]}, {RGBColor[0.039995, 0.790002, 0.170003], DiskBox[NCache[{150/(2 + 2 2^Rational[1, 2]), 10}, { 31.066017177982133`, 10}], 4.]}, {GrayLevel[0], Thickness[Large], Arrowheads[Medium], GeometricTransformationBox[ ArrowBox[NCache[{{150/(2 + 2 2^Rational[1, 2]), 10}, { 150/(2 + 2 2^Rational[1, 2]), 14.}}, {{31.066017177982133`, 10}, { 31.066017177982133`, 14.}}]], {0, 0}]}, {RGBColor[1., 0.380001, 0.009995], Thickness[Large], LineBox[NCache[{{200/(2 + 2 2^Rational[1, 2]), 10}, { 100 (2 + 2^Rational[1, 2])/(2 + 2 2^Rational[1, 2]), 10}}, {{ 41.42135623730951, 10}, {70.71067811865476, 10}}]]}, {RGBColor[1., 0.380001, 0.009995], DiskBox[NCache[{ Rational[1, 2] (200/(2 + 2 2^Rational[1, 2]) + 100 (2 + 2^Rational[1, 2])/(2 + 2 2^Rational[1, 2])), 10}, { 56.06601717798213, 10}], 4.]}, {GrayLevel[0], Thickness[Large], Arrowheads[Medium], GeometricTransformationBox[ ArrowBox[NCache[{{ Rational[1, 2] (200/(2 + 2 2^Rational[1, 2]) + 100 (2 + 2^Rational[1, 2])/(2 + 2 2^Rational[1, 2])), 10}, { 58.894444302728324`, 12.82842712474619}}, {{56.06601717798213, 10}, { 58.894444302728324`, 12.82842712474619}}]], {0, 0}]}, {RGBColor[0.117603, 0.564699, 1.], Thickness[Large], LineBox[NCache[{{ 100 (2 + 2^Rational[1, 2])/(2 + 2 2^Rational[1, 2]), 10}, {100, 10}}, {{70.71067811865476, 10}, {100, 10}}]]}, {RGBColor[0.117603, 0.564699, 1.], DiskBox[NCache[{ Rational[1, 2] (100 + 100 (2 + 2^Rational[1, 2])/(2 + 2 2^Rational[1, 2])), 10}, { 85.35533905932738, 10}], 4.]}, {GrayLevel[0], Thickness[Large], Arrowheads[Medium], GeometricTransformationBox[ ArrowBox[NCache[{{ Rational[1, 2] (100 + 100 (2 + 2^Rational[1, 2])/(2 + 2 2^Rational[1, 2])), 10}, { 88.18376618407356, 7.17157287525381}}, {{85.35533905932738, 10}, { 88.18376618407356, 7.17157287525381}}]], {0, 0}]}}, ImageSize->Medium]], "Output", CellChangeTimes->{{3.478105976323934*^9, 3.478106012599229*^9}, 3.478106103815312*^9, 3.47810619572493*^9, {3.478106238704953*^9, 3.478106298659566*^9}, {3.478106331095665*^9, 3.478106351019147*^9}, { 3.478106411346861*^9, 3.47810656387475*^9}, {3.4781066306263847`*^9, 3.478106655545629*^9}, 3.478106766519189*^9, 3.478172512128646*^9, 3.478173416365497*^9, {3.4781735865010633`*^9, 3.478173595787801*^9}, 3.478174495603015*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"massSpectrumPlot", "[", RowBox[{ RowBox[{"{", " ", RowBox[{"{", RowBox[{"m1", ",", "10", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"0.5", " ", "I"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "45", "]"}], ",", RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "49", "]"}]}], "}"}]}], "}"}], " ", "}"}], ",", RowBox[{"showOptions", "\[Rule]", RowBox[{"{", RowBox[{"ImageSize", "\[Rule]", "Medium"}], "}"}]}], ",", RowBox[{"showPhaseDisk", "\[Rule]", "True"}], ",", RowBox[{"arrowheadSize", "\[Rule]", "Medium"}], ",", RowBox[{"arrowProportion", "\[Rule]", "0.04"}]}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"massSpectrumPlot", "[", RowBox[{ RowBox[{"{", " ", RowBox[{"{", RowBox[{"m1", ",", "10", ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "I", ",", RowBox[{"1", "+", "I"}]}], "}"}]}], "}"}], " ", "}"}], ",", RowBox[{"showOptions", "\[Rule]", RowBox[{"{", RowBox[{"ImageSize", "\[Rule]", "Medium"}], "}"}]}], ",", RowBox[{"showPhaseDisk", "\[Rule]", "False"}], ",", RowBox[{"arrowheadSize", "\[Rule]", "Medium"}], ",", RowBox[{"arrowProportion", "\[Rule]", "0.04"}]}], "]"}]}], "Input", CellChangeTimes->{{3.4778878652956543`*^9, 3.4778878742596893`*^9}, { 3.477887908111121*^9, 3.477887931375877*^9}, {3.478069709519957*^9, 3.478069710015958*^9}, {3.478073899576139*^9, 3.478073970691885*^9}, { 3.478074001842025*^9, 3.4780740083833637`*^9}, {3.478082858593988*^9, 3.478082896611493*^9}, {3.478082941735097*^9, 3.478082964127247*^9}, 3.478105481885146*^9, {3.4781055642220917`*^9, 3.478105597971644*^9}, { 3.4781056320113773`*^9, 3.4781056323611193`*^9}, {3.478106770107932*^9, 3.4781067716558027`*^9}, {3.478106880281505*^9, 3.4781068853282557`*^9}, { 3.478155911361841*^9, 3.478155916434452*^9}, {3.478175610009618*^9, 3.478175630370996*^9}, {3.478175853235321*^9, 3.478175856775251*^9}}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["m1", StripOnInput->False, FontSize->10], {-0.1, 10}, Right], {RGBColor[0.599994, 0.196097, 0.799997], Thickness[Large], LineBox[{{0, 10}, {47.21359549995794, 10}}]}, {RGBColor[0.599994, 0.196097, 0.799997], DiskBox[{23.60679774997897, 10}, 4.]}, {GrayLevel[0], Thickness[Large], Arrowheads[Medium], GeometricTransformationBox[ ArrowBox[{{23.60679774997897, 10}, {19.60679774997897, 10}}], {0, 0}]}, {RGBColor[0., 0.807794, 0.819605], Thickness[Large], LineBox[{{47.21359549995794, 10}, {100., 10}}]}, {RGBColor[0., 0.807794, 0.819605], DiskBox[{73.60679774997897, 10}, 4.]}, {GrayLevel[0], Thickness[Large], Arrowheads[Medium], GeometricTransformationBox[ ArrowBox[{{73.60679774997897, 10}, {70.0290889859793, 11.788854381999833`}}], {0, 0}]}}, ImageSize->Medium]], "Output", CellChangeTimes->{{3.477887927301097*^9, 3.477887931616946*^9}, { 3.478069597101519*^9, 3.4780696196589813`*^9}, 3.478069728358202*^9, 3.478069778179942*^9, 3.478072610148093*^9, 3.478072743653438*^9, 3.478073781481295*^9, {3.478073892552437*^9, 3.478073971145891*^9}, { 3.478074003143042*^9, 3.478074008815054*^9}, {3.478082861217978*^9, 3.478082897247046*^9}, {3.478082944873527*^9, 3.47808296553554*^9}, { 3.478105478303205*^9, 3.4781054824226847`*^9}, 3.478105527326157*^9, { 3.4781055585695667`*^9, 3.4781055983932953`*^9}, 3.478105632860949*^9, 3.478105945939357*^9, 3.47810677327782*^9, 3.4781068856798964`*^9, { 3.478155912474531*^9, 3.4781559166970167`*^9}, 3.478173420724017*^9, { 3.478175621172524*^9, 3.4781756308427773`*^9}, 3.478175860637949*^9}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["m1", StripOnInput->False, FontSize->10], {-0.1, 10}, Right], {RGBColor[0.889996, 0.069994, 0.189993], Thickness[Large], LineBox[NCache[{{0, 10}, {100/(3 + 2^Rational[1, 2]), 10}}, {{0, 10}, { 22.654091966098644`, 10}}]]}, {}, {}, {RGBColor[0.039995, 0.790002, 0.170003], Thickness[Large], LineBox[NCache[{{100/(3 + 2^Rational[1, 2]), 10}, { 200/(3 + 2^Rational[1, 2]), 10}}, {{22.654091966098644`, 10}, { 45.30818393219729, 10}}]]}, {}, {GrayLevel[0], Thickness[Large], Arrowheads[Medium], GeometricTransformationBox[ ArrowBox[NCache[{{150/(3 + 2^Rational[1, 2]), 10}, { 29.981137949147964`, 10}}, {{33.981137949147964`, 10}, { 29.981137949147964`, 10}}]], {2., 0}]}, {RGBColor[1., 0.380001, 0.009995], Thickness[Large], LineBox[NCache[{{200/(3 + 2^Rational[1, 2]), 10}, { 300/(3 + 2^Rational[1, 2]), 10}}, {{45.30818393219729, 10}, { 67.96227589829593, 10}}]]}, {}, {GrayLevel[0], Thickness[Large], Arrowheads[Medium], GeometricTransformationBox[ ArrowBox[NCache[{{250/(3 + 2^Rational[1, 2]), 10}, { 250/(3 + 2^Rational[1, 2]), 14.}}, {{56.63522991524661, 10}, { 56.63522991524661, 14.}}]], {0, -2.}]}, {RGBColor[0.117603, 0.564699, 1.], Thickness[Large], LineBox[NCache[{{300/(3 + 2^Rational[1, 2]), 10}, {100, 10}}, {{ 67.96227589829593, 10}, {100, 10}}]]}, {}, {GrayLevel[0], Thickness[Large], Arrowheads[Medium], GeometricTransformationBox[ ArrowBox[NCache[{{ Rational[1, 2] (100 + 300/(3 + 2^Rational[1, 2])), 10}, { 86.80956507389415, 12.82842712474619}}, {{83.98113794914796, 10}, { 86.80956507389415, 12.82842712474619}}]], {-1.414213562373095, -1.414213562373095}]}}, ImageSize->Medium]], "Output", CellChangeTimes->{{3.477887927301097*^9, 3.477887931616946*^9}, { 3.478069597101519*^9, 3.4780696196589813`*^9}, 3.478069728358202*^9, 3.478069778179942*^9, 3.478072610148093*^9, 3.478072743653438*^9, 3.478073781481295*^9, {3.478073892552437*^9, 3.478073971145891*^9}, { 3.478074003143042*^9, 3.478074008815054*^9}, {3.478082861217978*^9, 3.478082897247046*^9}, {3.478082944873527*^9, 3.47808296553554*^9}, { 3.478105478303205*^9, 3.4781054824226847`*^9}, 3.478105527326157*^9, { 3.4781055585695667`*^9, 3.4781055983932953`*^9}, 3.478105632860949*^9, 3.478105945939357*^9, 3.47810677327782*^9, 3.4781068856798964`*^9, { 3.478155912474531*^9, 3.4781559166970167`*^9}, 3.478173420724017*^9, { 3.478175621172524*^9, 3.4781756308427773`*^9}, 3.478175860691972*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"massSpectrumPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Subscript", "[", RowBox[{"m", ",", "1"}], "]"}], ",", "10", ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Subscript", "[", RowBox[{"m", ",", "2"}], "]"}], ",", "20", ",", RowBox[{"{", RowBox[{ RowBox[{"0.3", " ", RowBox[{"(", RowBox[{"1", "-", "I"}], ")"}]}], ",", "0.7"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Subscript", "[", RowBox[{"m", ",", "3"}], "]"}], ",", "25", ",", RowBox[{"{", RowBox[{ RowBox[{"1", "+", "I"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "45", "]"}], ",", RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "49", "]"}]}], "}"}]}], "}"}]}], "}"}], ",", RowBox[{"lineLength", "\[Rule]", "20"}], ",", RowBox[{"labelOffset", "\[Rule]", "1"}], ",", RowBox[{"arrowProportion", "\[Rule]", "0.1"}], ",", RowBox[{"labelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontSize", "\[Rule]", "14"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.478175901430964*^9, 3.4781759521273613`*^9}, { 3.478176037987255*^9, 3.478176045539319*^9}}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox[ SubscriptBox["m", "1"], StripOnInput->False, FontFamily->"Palatino", FontSize->14], {-1, 10}, Right], {GrayLevel[0], Thickness[Large], LineBox[{{0, 10}, {20, 10}}]}, {}, {}, InsetBox[ StyleBox[ SubscriptBox["m", "2"], StripOnInput->False, FontFamily->"Palatino", FontSize->14], {-1, 20}, Right], {RGBColor[0.889996, 0.069994, 0.189993], Thickness[Large], LineBox[{{0, 20}, {7.547409554732257, 20}}]}, {}, {GrayLevel[0], Thickness[Large], Arrowheads[Small], GeometricTransformationBox[ ArrowBox[{{3.7737047773661283`, 20}, {5.187918339739223, 18.585786437626904`}}], {-0.7071067811865476, 0.7071067811865475}]}, {RGBColor[0.039995, 0.790002, 0.170003], Thickness[Large], LineBox[{{7.547409554732257, 20}, {20., 20}}]}, {}, {}, InsetBox[ StyleBox[ SubscriptBox["m", "3"], StripOnInput->False, FontFamily->"Palatino", FontSize->14], {-1, 25}, Right], {RGBColor[0.599994, 0.196097, 0.799997], Thickness[Large], LineBox[NCache[{{0, 25}, { 20 (2^Rational[1, 2]/(1 + 2^Rational[1, 2])), 25}}, {{0, 25}, { 11.7157287525381, 25}}]]}, {}, {GrayLevel[0], Thickness[Large], Arrowheads[Small], GeometricTransformationBox[ ArrowBox[NCache[{{10 (2^Rational[1, 2]/(1 + 2^Rational[1, 2])), 25}, { 7.272077938642145, 26.414213562373096`}}, {{5.85786437626905, 25}, { 7.272077938642145, 26.414213562373096`}}]], {-0.7071067811865475, -0.7071067811865475}]}, {RGBColor[0., 0.807794, 0.819605], Thickness[Large], LineBox[NCache[{{20 (2^Rational[1, 2]/(1 + 2^Rational[1, 2])), 25}, {20, 25}}, {{11.7157287525381, 25}, {20, 25}}]]}, {}, {}}, ImageSize->Small]], "Output", CellChangeTimes->{ 3.478175683674953*^9, 3.47817590226684*^9, {3.47817593230868*^9, 3.478175952452475*^9}, 3.4781760461519213`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Mass Spectrum of Neutrinos", "Subsection", CellChangeTimes->{{3.478234042826593*^9, 3.4782340609479113`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Mass", " ", "squared", " ", "differences"}], " ", "*)"}], " ", RowBox[{ RowBox[{ RowBox[{"dm2atm", "=", RowBox[{"2.6", " ", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "3"}], ")"}]}]}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"dm2atm", " ", "=", " ", RowBox[{ RowBox[{"mn3", "^", "2"}], "-", RowBox[{"mn1", "^", "2"}]}]}], " ", "*)"}], "\[IndentingNewLine]", " ", RowBox[{"dm2sol", "=", RowBox[{"8.2", " ", RowBox[{"10", "^", RowBox[{"(", RowBox[{"-", "5"}], ")"}]}]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"dm2sol", " ", "=", " ", RowBox[{ RowBox[{"mn2", "^", "2"}], "-", RowBox[{"mn1", "^", "2"}]}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"mn1", "=", "0.01"}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"mn2", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"mn1", "^", "2"}], "+", "dm2sol"}], "]"}]}], ";", " ", RowBox[{"mn3", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"mn2", "^", "2"}], "+", "dm2atm"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Sines", " ", "and", " ", "cosines", " ", "of", " ", "the", " ", "mixing", " ", "angles"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s23", "=", RowBox[{"Sin", "[", RowBox[{"ArcTan", "[", "0.97", "]"}], "]"}]}], ";", " ", RowBox[{"s12", "=", RowBox[{"Sin", "[", RowBox[{"ArcTan", "[", RowBox[{"Sqrt", "[", "0.39", "]"}], "]"}], "]"}]}], ";", RowBox[{"s13", "=", "0.05"}], ";", RowBox[{"c23", "=", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{"s23", "^", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c12", "=", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{"s12", "^", "2"}]}], "]"}]}], ";", RowBox[{"c13", "=", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{"s13", "^", "2"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Dirac", " ", "and", " ", "Majorana", " ", "phases"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"del", "=", RowBox[{"Random", "[", RowBox[{"Real", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{ RowBox[{"phi1", " ", "=", " ", RowBox[{"Random", "[", RowBox[{"Real", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]}], ";", " ", RowBox[{"phi2", " ", "=", RowBox[{"Random", "[", RowBox[{"Real", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]}], ";"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"phi1", "=", "0"}], ";", RowBox[{"phi2", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Observed", " ", "mixing", " ", "matrix", " ", "at", " ", "low", " ", "energies"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"V", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"c12", " ", "c13"}], ",", " ", RowBox[{"s12", " ", "c13"}], ",", " ", RowBox[{"s13", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], " ", "del"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "s12"}], " ", "c23"}], "-", RowBox[{"c12", " ", "s23", " ", "s13", " ", RowBox[{"Exp", "[", RowBox[{"I", " ", "del"}], "]"}]}]}], ",", RowBox[{ RowBox[{"c12", " ", "c23"}], "-", RowBox[{"s12", " ", "s23", " ", "s13", " ", RowBox[{"Exp", "[", RowBox[{"I", " ", "del"}], "]"}]}]}], ",", RowBox[{"s23", " ", "c13"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"s12", " ", "s23"}], "-", RowBox[{"c12", " ", "c23", " ", "s13", " ", RowBox[{"Exp", "[", RowBox[{"I", " ", "del"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "c12"}], " ", "s23"}], "-", RowBox[{"s12", " ", "c23", " ", "s13", " ", RowBox[{"Exp", "[", RowBox[{"I", " ", "del"}], "]"}]}]}], ",", RowBox[{"c23", " ", "c13"}]}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Observed", " ", "mixing", " ", "matrix", " ", "at", " ", "low", " ", "energies", " ", "with", " ", "Majorana", " ", "phases", " ", "added"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U", "=", RowBox[{"V", ".", RowBox[{"DiagonalMatrix", "[", RowBox[{"{", RowBox[{ RowBox[{"Exp", "[", RowBox[{"I", " ", "phi1"}], "]"}], ",", RowBox[{"Exp", "[", RowBox[{"I", " ", "phi2"}], "]"}], ",", "1"}], "}"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Udagger", "=", RowBox[{"ConjugateTranspose", "[", "U", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"massSpectrumPlot", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"\"\<\>\"", ",", "0", ",", RowBox[{"{", "1", "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Subscript", "[", RowBox[{"m", ",", "1"}], "]"}], ",", "mn1", ",", RowBox[{"Udagger", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Subscript", "[", RowBox[{"m", ",", "2"}], "]"}], ",", "mn2", ",", RowBox[{"Udagger", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Subscript", "[", RowBox[{"m", ",", "3"}], "]"}], ",", "mn3", ",", RowBox[{"Udagger", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], " ", "}"}], ",", RowBox[{"showOptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"ImageSize", "\[Rule]", "400"}], ",", RowBox[{"Axes", "\[Rule]", "True"}], ",", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Automatic"}], "}"}]}], ",", RowBox[{"AxesLabel", "->", RowBox[{"{", RowBox[{ "\"\<\>\"", ",", "\"\<\!\(\*SubscriptBox[\(m\), \(i\)]\)/eV\>\""}], "}"}]}]}], "}"}]}], ",", RowBox[{"showPhaseDisk", "\[Rule]", "False"}], ",", RowBox[{"lineLength", "\[Rule]", "mn3"}], ",", RowBox[{"labelOffset", "\[Rule]", RowBox[{"0.5", " ", "mn1"}]}], ",", RowBox[{"arrowProportion", "\[Rule]", "0.04"}], ",", RowBox[{"arrowheadSize", "\[Rule]", "Small"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.477735527806942*^9, 3.4777355321051903`*^9}, { 3.4777358685703497`*^9, 3.477735930494236*^9}, {3.477735962998616*^9, 3.4777359686633577`*^9}, {3.477736022582995*^9, 3.477736023027768*^9}, { 3.477736058919938*^9, 3.4777360791120577`*^9}, {3.477736220414988*^9, 3.477736245731862*^9}, {3.477736487363765*^9, 3.477736487731694*^9}, { 3.4777367806129503`*^9, 3.4777367860555363`*^9}, {3.477737027870118*^9, 3.477737029093876*^9}, {3.477740009267171*^9, 3.477740009822153*^9}, { 3.47774046013485*^9, 3.477740491170987*^9}, {3.477740527208871*^9, 3.4777405338432617`*^9}, {3.477749856757732*^9, 3.477749865607749*^9}, { 3.477750328010306*^9, 3.4777503403960543`*^9}, {3.477750743764441*^9, 3.47775081160398*^9}, {3.4777508579474583`*^9, 3.477750900104814*^9}, 3.477763604310544*^9, {3.4781557692388573`*^9, 3.478155889549286*^9}, { 3.478172979031036*^9, 3.478173001055627*^9}, {3.478173047455904*^9, 3.478173095976384*^9}, {3.478173132255622*^9, 3.47817325701265*^9}, { 3.4781763025275707`*^9, 3.478176330823697*^9}}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"\"\>", StripOnInput->False, FontSize->10], {-0.005, 0}, Right], {GrayLevel[0], Thickness[Large], LineBox[{{0, 0}, {0.052744667976962374`, 0}}]}, {}, {}, InsetBox[ StyleBox[ SubscriptBox["m", "1"], StripOnInput->False, FontSize->10], {-0.005, 0.01}, Right], {RGBColor[0.889996, 0.069994, 0.189993], Thickness[Large], LineBox[{{0, 0.01}, {0.027994339170531585`, 0.01}}]}, {}, {}, {RGBColor[0.039995, 0.790002, 0.170003], Thickness[Large], LineBox[{{0.027994339170531585`, 0.01}, {0.04138860018159086, 0.01}}]}, {}, {GrayLevel[0], Thickness[Large], Arrowheads[Small], GeometricTransformationBox[ ArrowBox[{{0.03469146967606122, 0.01}, {0.032583335374013284`, 0.009916514884387464}}], {0.0010540671510239708`, 0.0000417425578062684}]}, {RGBColor[0.117603, 0.564699, 1.], Thickness[Large], LineBox[{{0.04138860018159086, 0.01}, {0.05274466797696237, 0.01}}]}, {}, {GrayLevel[0], Thickness[Large], Arrowheads[Small], GeometricTransformationBox[ ArrowBox[{{0.04706663407927661, 0.01}, {0.04917397714706284, 0.009898485495355049}}], {-0.0010536715338931163`, 0.0000507572523224758}]}, InsetBox[ StyleBox[ SubscriptBox["m", "2"], StripOnInput->False, FontSize->10], {-0.005, 0.013490737563232042`}, Right], {RGBColor[0.889996, 0.069994, 0.189993], Thickness[Large], LineBox[{{0, 0.013490737563232042`}, {0.016137969984576932`, 0.013490737563232042`}}]}, {}, {}, {RGBColor[0.039995, 0.790002, 0.170003], Thickness[Large], LineBox[{{0.016137969984576932`, 0.013490737563232042`}, { 0.03424024515072978, 0.013490737563232042`}}]}, {}, {GrayLevel[0], Thickness[Large], Arrowheads[Small], GeometricTransformationBox[ ArrowBox[{{0.025189107567653357`, 0.013490737563232042`}, { 0.027298593742049678`, 0.013455127451876214`}}], {-0.0010547430871981605`, 0.000017805055677913584`}]}, {RGBColor[0.117603, 0.564699, 1.], Thickness[Large], LineBox[{{0.03424024515072978, 0.013490737563232042`}, { 0.052744667976962374`, 0.013490737563232042`}}]}, {}, {GrayLevel[0], Thickness[Large], Arrowheads[Small], GeometricTransformationBox[ ArrowBox[{{0.04349245656384608, 0.013490737563232042`}, { 0.04138297553484814, 0.013454823940499292`}}], {0.0010547405144989703`, 0.000017956811366374368`}]}, InsetBox[ StyleBox[ SubscriptBox["m", "3"], StripOnInput->False, FontSize->10], {-0.005, 0.052744667976962374`}, Right], {RGBColor[0.889996, 0.069994, 0.189993], Thickness[Large], LineBox[{{0, 0.052744667976962374`}, {0.001803506648114452, 0.052744667976962374`}}]}, {}, {GrayLevel[0], Thickness[Large], Arrowheads[Small], GeometricTransformationBox[ ArrowBox[{{0.000901753324057226, 0.052744667976962374`}, { 0.002673178997087562, 0.05159869629976916}}], {-0.0008857128365151679, 0.0005729858385966056}]}, {RGBColor[0.039995, 0.790002, 0.170003], Thickness[Large], LineBox[{{0.001803506648114452, 0.052744667976962374`}, { 0.026886210449628408`, 0.052744667976962374`}}]}, {}, {}, {RGBColor[0.117603, 0.564699, 1.], Thickness[Large], LineBox[{{0.026886210449628408`, 0.052744667976962374`}, { 0.052744667976962374`, 0.052744667976962374`}}]}, {}, {}}, Axes->True, AxesLabel->{ FormBox["\"\"", TraditionalForm], FormBox[ "\"\\!\\(\\*SubscriptBox[\\(m\\), \\(i\\)]\\)/eV\"", TraditionalForm]}, ImageSize->400, Ticks->{None, Automatic}]], "Output", CellChangeTimes->{{3.478155814476158*^9, 3.478155832700091*^9}, { 3.478172990916511*^9, 3.478173001367782*^9}, {3.478173063464745*^9, 3.478173096466103*^9}, 3.478173169536478*^9, {3.4781732017617683`*^9, 3.478173257499317*^9}, {3.4781763032090693`*^9, 3.478176331080867*^9}}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1280, 752}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, ShowSelection->True, FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 152, 2, 95, "Title"], Cell[722, 26, 629, 14, 33, "Input"], Cell[1354, 42, 14519, 297, 566, "Input"], Cell[CellGroupData[{ Cell[15898, 343, 2150, 53, 167, "Input"], Cell[18051, 398, 1019, 19, 70, "Output"], Cell[19073, 419, 2458, 47, 70, "Output"], Cell[21534, 468, 3435, 67, 70, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[25006, 540, 2300, 52, 110, "Input"], Cell[27309, 594, 1702, 30, 70, "Output"], Cell[29014, 626, 2653, 47, 53, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31704, 678, 1566, 45, 72, "Input"], Cell[33273, 725, 1936, 43, 181, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35246, 773, 116, 1, 42, "Subsection"], Cell[CellGroupData[{ Cell[35387, 778, 8403, 218, 433, "Input"], Cell[43793, 998, 3923, 81, 488, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)