(*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 0, 0] NotebookDataLength[ 605831, 12153] NotebookOptionsPosition[ 595472, 11808] NotebookOutlinePosition[ 595988, 11828] CellTagsIndexPosition[ 595945, 11825] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["OmegaRatio002", "Title", CellChangeTimes->{{3.434821137059203*^9, 3.434821141595529*^9}, { 3.4348213538771276`*^9, 3.4348213547887*^9}, {3.434821747227865*^9, 3.434821747753791*^9}, {3.434982822102849*^9, 3.434982822653002*^9}, { 3.4353409145088263`*^9, 3.435340914885222*^9}, {3.435619154645805*^9, 3.435619155573738*^9}, {3.436221571896102*^9, 3.436221572545644*^9}, { 3.44032703720224*^9, 3.440327038048905*^9}, {3.440345112121606*^9, 3.440345115902461*^9}, {3.440767166257166*^9, 3.4407671666088448`*^9}, { 3.442163074211053*^9, 3.4421630744385033`*^9}}], Cell["\<\ \[CapitalOmega] Ratio (2009-01-12) Examples & graphics for paper.\ \>", "Subtitle", CellChangeTimes->{{3.434821150339471*^9, 3.43482117858146*^9}, { 3.434845691116384*^9, 3.434845693240677*^9}, {3.434982826638051*^9, 3.4349828404621067`*^9}, {3.435619163261652*^9, 3.435619170033519*^9}, { 3.4361165245810137`*^9, 3.4361165415056877`*^9}, {3.436189477551544*^9, 3.436189485671063*^9}, {3.436221590007202*^9, 3.436221608992214*^9}, { 3.44076717389639*^9, 3.440767189455641*^9}, {3.442163452439108*^9, 3.442163495935235*^9}}], Cell["\<\ Robert J. Frey, Research Professor, Applied Mathematics & Statisitcs, Stony \ Brook University Copyright \[Copyright] 2009 by Robert J Frey \ \>", "Subsubtitle", CellChangeTimes->{{3.4348213254036493`*^9, 3.434821345276597*^9}, { 3.4353409176212053`*^9, 3.435340918145596*^9}, {3.435619159234314*^9, 3.435619159650917*^9}, {3.436221581994009*^9, 3.43622158260529*^9}, { 3.440327043627841*^9, 3.440327059137796*^9}, {3.4407671530487823`*^9, 3.440767162206921*^9}, {3.44106869107635*^9, 3.441068724801956*^9}, { 3.442163417688807*^9, 3.4421634485629168`*^9}, 3.44216350863559*^9}], Cell[TextData[StyleBox["Warning: The cells of this notebook are intended to \ run in the order shown. In several instances symbols have been reused. \ Executing the cells out of sequence can have unpredictable results.", FontSlant->"Italic", FontColor->RGBColor[1, 0, 0]]], "Subsubtitle", CellChangeTimes->{{3.44106860943277*^9, 3.441068678714417*^9}, 3.4410687345874643`*^9}], Cell[CellGroupData[{ Cell["Set-Up", "Section", CellChangeTimes->{{3.434825534038052*^9, 3.4348255364060783`*^9}, { 3.442163204295093*^9, 3.442163204872149*^9}}], Cell[CellGroupData[{ Cell["Standard Package", "Subsection", CellChangeTimes->{{3.442002766853753*^9, 3.4420027711634197`*^9}}], Cell[BoxData[ RowBox[{"<<", "MultivariateStatistics`"}]], "Input", CellChangeTimes->{{3.441131009378895*^9, 3.4411310174918423`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Environment", "Subsection", CellChangeTimes->{{3.436221668051403*^9, 3.4362216706031303`*^9}}], Cell["\<\ This idiom determines the directory path to save various graphics objects.\ \>", "Text", CellChangeTimes->{{3.441068784551456*^9, 3.4410688689336443`*^9}, { 3.441068910682231*^9, 3.441068916456905*^9}, {3.4410708192969103`*^9, 3.441070838145891*^9}, {3.4421631149740267`*^9, 3.4421631543207207`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"vsIamgesPath", "=", RowBox[{"Append", "[", RowBox[{ RowBox[{"Most", "[", RowBox[{"First", "[", RowBox[{"\"\\"", "/.", RowBox[{"NotebookInformation", "[", RowBox[{"EvaluationNotebook", "[", "]"}], "]"}]}], "]"}], "]"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.433883884306004*^9, 3.433883953431157*^9}, { 3.43404088343556*^9, 3.4340408857901783`*^9}, 3.4348202542410383`*^9, { 3.4410689418716183`*^9, 3.441068950819174*^9}, {3.442010143678721*^9, 3.4420101564130774`*^9}, {3.4420103058473597`*^9, 3.4420103103835783`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"/\"\>", ",", "\<\"Users\"\>", ",", "\<\"robertjfrey\"\>", ",", "\<\"Documents\"\>", ",", "\<\"Work\"\>", ",", "\<\"Stony Brook University\"\>", ",", "\<\"AMS\"\>", ",", "\<\"QF\"\>", ",", "\<\"Research\"\>", ",", "\<\"Omega Ratio\"\>", ",", "\<\"Images\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.43534145199197*^9, 3.435342746745446*^9, 3.4353583984041986`*^9, 3.4355989696834927`*^9, 3.435807520197072*^9, 3.435937009284616*^9, 3.436020113965929*^9, 3.436189232962487*^9, 3.4362216423307323`*^9, 3.436225406151383*^9, 3.4362971897458982`*^9, 3.43630200802719*^9, 3.436622610563972*^9, 3.437159119071207*^9, 3.4379628568922462`*^9, 3.438366086411517*^9, 3.4383666665716267`*^9, 3.440272917237111*^9, 3.440327124601986*^9, 3.440345206214712*^9, 3.440459690932331*^9, 3.44076408338265*^9, 3.440768323355163*^9, 3.4407895389856157`*^9, 3.4408692504787416`*^9, 3.441058076325987*^9, 3.441068951441901*^9, 3.441124258430828*^9, 3.441131299490765*^9, 3.4413826195024*^9, 3.441910670404375*^9, 3.441978665777768*^9, 3.441989159527266*^9, 3.44201015808945*^9, {3.4420102853501472`*^9, 3.442010321232421*^9}, 3.4429347154410753`*^9, 3.442936322668147*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Functions", "Subsection", CellChangeTimes->{{3.43602019693091*^9, 3.4360201993217916`*^9}}], Cell[CellGroupData[{ Cell["xEmpiricalCDF[] - Empirical CDF from a sample", "Subsubsection", CellChangeTimes->{3.4410705243435497`*^9}], Cell[TextData[{ "Input:\t\tA numerical sample vector.\n\t\nOutput:\t\tA numerical matrix \ whose first column is the sample value and second is the value of the CDF.\n\t\ \nNotes:\t\tIntelligently handles duplicate sample values. Uses \"centered\" \ ranks, ", StyleBox["i.e.", FontSlant->"Italic"], ", for a sample of length ", StyleBox["L", FontSlant->"Italic"], " the ", Cell[BoxData[ FormBox[ SuperscriptBox["i", "th"], TraditionalForm]], FormatType->"TraditionalForm"], " ordered element has a CDF value of ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"i", "-", "0.5"}], ")"}], "/", "L"}], TraditionalForm]], FormatType->"TraditionalForm"], "." }], "Text", CellMargins->{{60.66666666666664, 10.}, {7., 7.}}, CellChangeTimes->{{3.441068982543077*^9, 3.441068994503899*^9}, { 3.441069046150517*^9, 3.441069186748043*^9}, {3.441069273520768*^9, 3.441069273720112*^9}, {3.441069344430724*^9, 3.441069608699478*^9}, 3.441069673259445*^9, {3.441069848054161*^9, 3.441069852377267*^9}, { 3.441070521457653*^9, 3.441070528841197*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"xEmpiricalCDF", "[", RowBox[{"vnSample_", "?", RowBox[{"(", RowBox[{ RowBox[{"VectorQ", "[", RowBox[{"#", ",", "NumericQ"}], "]"}], "&"}], ")"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"First", "/@", "#"}], ",", RowBox[{ RowBox[{ FractionBox[ RowBox[{"#", "-", "0.5"}], RowBox[{"Last", "[", "#", "]"}]], "&"}], "[", RowBox[{"Accumulate", "[", RowBox[{"Last", "/@", "#"}], "]"}], "]"}]}], "}"}], "\[Transpose]"}], "&"}], "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"First", "[", "#", "]"}], ",", RowBox[{"Length", "[", "#", "]"}]}], "}"}], "&"}], "/@", RowBox[{"Split", "[", RowBox[{ RowBox[{"Sort", "[", "#", "]"}], ",", RowBox[{ RowBox[{"#1", "\[Equal]", "#2"}], "&"}]}], "]"}]}], "]"}], "&"}], "[", "vnSample", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.436029399935194*^9, 3.436029438341522*^9}, { 3.436032528718828*^9, 3.436032529629307*^9}, {3.436101065101677*^9, 3.4361010672370977`*^9}, 3.436103640654798*^9, {3.4361036924044437`*^9, 3.436103693340055*^9}, {3.436225212231105*^9, 3.436225237516548*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["xInterpolatedCDF[] - Interpolation function from an \ empirical CDF", FontSize->12]], "Subsubsection", CellChangeTimes->{3.4410705713598843`*^9}, FontSize->10], Cell[TextData[{ "Input:\t\tAn empirical CDF as output by xEmpiricalCDF[].\n\nOutput:\t\tA \ function ", Cell[BoxData[ FormBox[ RowBox[{"x", "\[RightArrow]", RowBox[{"F", "[", "x", "]"}]}], TraditionalForm]]], " which produces linearly interpolated values of the CDF.\n\nNotes:\t\t\ Results outside the range of the values covered by the input are interpolated \ to 0 or 1 below and above the range, respectively." }], "Text", CellChangeTimes->{{3.4410696494579773`*^9, 3.441069780116601*^9}, { 3.441069838283263*^9, 3.4410698596268883`*^9}, {3.441069933826723*^9, 3.441070043821068*^9}, 3.44107031470714*^9, {3.441070559518465*^9, 3.441070594279315*^9}, {3.4410706482891283`*^9, 3.4410706765886993`*^9}, { 3.442003002394642*^9, 3.4420030040309963`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"xInterpolatedCDF", "[", RowBox[{"mnCDF_", "?", RowBox[{"(", RowBox[{ RowBox[{"MatrixQ", "[", RowBox[{"#", ",", "NumericQ"}], "]"}], "&"}], ")"}]}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"max", ",", "min", ",", "cdf"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"cdf", "=", RowBox[{"Interpolation", "[", RowBox[{"mnCDF", ",", RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"min", ",", "max"}], "}"}], "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Min", "[", "#", "]"}], ",", RowBox[{"Max", "[", "#", "]"}]}], "}"}], "&"}], "[", RowBox[{"First", "/@", "mnCDF"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Function", "[", RowBox[{"x", ",", RowBox[{"Which", "[", RowBox[{ RowBox[{"x", "<", "#1"}], ",", "0", ",", RowBox[{"#1", "\[LessEqual]", "x", "\[LessEqual]", "#2"}], ",", RowBox[{"#3", "[", "x", "]"}], ",", RowBox[{"#2", "<", "x"}], ",", "1"}], "]"}]}], "]"}], "&"}], "[", RowBox[{"min", ",", "max", ",", "cdf"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQAWIQLe1xwZRh5kvHRocIKxC9h63bFURnfJ8Hpp8/fNO2 EUiXHd07A0T3vk2eD6JVX8wE08wX3h4A0Xe0lh0E0XEfl58H0Xsmrb0Non24 Zj8F0fYnRJ+D6Lx1q3+AaA316wybgLTAZ2NWEO0d9VYSREtJL1AC0a3Tz6iA 6P0PGTRB9MSjF8F0yMV1xiC676anLYi+FCo5ewuQvnFi2UYQvYPPdT+IXhbK fgREt+2ZegJESwh/AdN7RHWiBGe9dDzH/iMGRP9bItcMolPS5HpANIPU2Rkg +sDaFXPB6pJurwTRrTFPwXTVdd0EESDN/PodmAYAw/+t6w== "]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ xEmpiricalOmegaRatio[] - Empirical \[CapitalOmega]-ratio from an empirical CDF\ \>", "Subsubsection", CellChangeTimes->{3.4410706199687033`*^9}], Cell["\<\ Input:\t\tAn empirical CDF as output by xEmpiricalCDF[]. \t Output:\t\tA numerical matrix whose first column is the sample value and \ second is the value of the \[CapitalOmega]-ratio. \t Notes:\t\tDoes not check that the input represents a valid CDF. Uses an \ embarassingly simple (trapezoidal) numerical integration scheme. \ \>", "Text", CellMargins->{{60.66666666666664, 10.}, {7., 7.}}, CellChangeTimes->{{3.441068982543077*^9, 3.441068994503899*^9}, { 3.441069046150517*^9, 3.441069186748043*^9}, {3.441069273520768*^9, 3.441069273720112*^9}, {3.441069344430724*^9, 3.441069608699478*^9}, 3.441069673259445*^9, {3.441069848054161*^9, 3.441069852377267*^9}, { 3.441070130793046*^9, 3.44107022009167*^9}, 3.4410703181006527`*^9, 3.441070418434989*^9, {3.441070615803966*^9, 3.441070627028221*^9}, { 3.441070712937566*^9, 3.441070728824554*^9}, {3.441072758284609*^9, 3.4410728290583687`*^9}, {3.4410728752933397`*^9, 3.441072879993288*^9}, { 3.442002693818944*^9, 3.44200270432974*^9}, {3.442002944171904*^9, 3.4420029464470654`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"xEmpiricalOmegaRatio", "[", RowBox[{"mnCDF_", "?", RowBox[{"(", RowBox[{ RowBox[{"MatrixQ", "[", RowBox[{"#", ",", "NumericQ"}], "]"}], "&"}], ")"}]}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Most", "[", RowBox[{"First", "/@", "#"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Reverse", "[", RowBox[{ RowBox[{ RowBox[{"Accumulate", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Rest", "[", "#", "]"}], "+", RowBox[{"Most", "[", "#", "]"}]}], "2"], "&"}], "[", RowBox[{"Last", "/@", "#"}], "]"}], RowBox[{"Differences", "[", RowBox[{"-", RowBox[{"First", "/@", "#"}]}], "]"}]}], "]"}], "&"}], "[", RowBox[{"Reverse", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{"1", "-", RowBox[{ "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]}], "}"}], "&"}], "/@", "#"}], "]"}], "]"}], "]"}], "/", RowBox[{ RowBox[{ RowBox[{"Accumulate", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Rest", "[", "#", "]"}], "+", RowBox[{"Most", "[", "#", "]"}]}], "2"], "&"}], "[", RowBox[{"Last", "/@", "#"}], "]"}], RowBox[{"Differences", "[", RowBox[{"First", "/@", "#"}], "]"}]}], "]"}], "&"}], "[", "#", "]"}]}]}], "\[IndentingNewLine]", "}"}], "]"}], "&"}], "[", "mnCDF", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.43560963688393*^9, 3.43560966249056*^9}, { 3.435609720051032*^9, 3.435609789307971*^9}, {3.435609867157557*^9, 3.435609921148184*^9}, {3.435610689731317*^9, 3.435610703742488*^9}, { 3.435611073369532*^9, 3.4356111551277113`*^9}, {3.435611334611158*^9, 3.4356113365712633`*^9}, {3.435611445394051*^9, 3.435611457867244*^9}, { 3.435611667289954*^9, 3.435611688723133*^9}, {3.435611794257553*^9, 3.4356118162698727`*^9}, {3.4356118996562443`*^9, 3.435611923656142*^9}, { 3.435612003314765*^9, 3.435612071838175*^9}, {3.4356124610383673`*^9, 3.43561251407257*^9}, {3.43561273529219*^9, 3.435612767978047*^9}, { 3.435612836851424*^9, 3.435612852137465*^9}, {3.435612896287405*^9, 3.435612903185549*^9}, {3.435613588064464*^9, 3.4356136389016457`*^9}, { 3.435614921672707*^9, 3.435614925172271*^9}, {3.4360200860000057`*^9, 3.436020103825885*^9}, {3.436020276817487*^9, 3.436020281963941*^9}, { 3.436020484753215*^9, 3.436020485314527*^9}, {3.436020938664304*^9, 3.436020944036706*^9}, {3.436022161174686*^9, 3.436022215920905*^9}, { 3.436022462941072*^9, 3.436022515389936*^9}, {3.4360226003454933`*^9, 3.436022631657584*^9}, {3.436022723935286*^9, 3.436022795739937*^9}, { 3.436029628110496*^9, 3.4360296447328978`*^9}, {3.436029675935588*^9, 3.436029688182063*^9}, {3.436029722451541*^9, 3.436029758230626*^9}, { 3.4360298002705917`*^9, 3.436029947080111*^9}, {3.436029985897489*^9, 3.4360299861872873`*^9}, {3.436030157758729*^9, 3.4360301644944468`*^9}, { 3.4360302713665247`*^9, 3.436030345100872*^9}, {3.436030567195841*^9, 3.4360305833461313`*^9}, {3.436115391832176*^9, 3.436115404588114*^9}, { 3.4361154366942883`*^9, 3.436115460169746*^9}, {3.4361157942107677`*^9, 3.436115925181501*^9}, {3.436115958855919*^9, 3.436115988804756*^9}, { 3.436217650738111*^9, 3.436217689500621*^9}, {3.436217903047243*^9, 3.4362179468748198`*^9}, {3.43621798326293*^9, 3.4362180730097857`*^9}, { 3.436218258793519*^9, 3.4362182595415173`*^9}, {3.436218327317697*^9, 3.4362183595502033`*^9}, {3.4362184671643476`*^9, 3.436218512533263*^9}, { 3.436218552045467*^9, 3.4362185638690166`*^9}, 3.4362186416425457`*^9, { 3.436218773575952*^9, 3.436218793086411*^9}, {3.4362195253257933`*^9, 3.4362195342628613`*^9}, {3.4362200025230103`*^9, 3.436220013572402*^9}, 3.4362253000316133`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ xInterpolatedOmegaRatio[] - Interpolation function from an empirical \ \[CapitalOmega]-ratio\ \>", "Subsubsection", CellChangeTimes->{3.441070788785746*^9}], Cell[TextData[{ "Input:\t\tAn empirical \[CapitalOmega]-ratio as output by \ xEmpiricalOmegaRatio[].\n\nOutput:\t\tA function ", Cell[BoxData[ FormBox[ RowBox[{"x", "\[RightArrow]", RowBox[{"\[CapitalOmega]", "[", "x", "]"}]}], TraditionalForm]]], " which produces linearly interpolated values of the \[CapitalOmega]-ratio.\n\ \nNotes:\t\tDoes not check that the input represents a valid \ \[CapitalOmega][x].\n\t\tResults outside the range of the values covered by \ the input are interpolated to \[Infinity] or 0 below and above the range, \ respectively." }], "Text", CellChangeTimes->{{3.4410696494579773`*^9, 3.441069780116601*^9}, { 3.441069838283263*^9, 3.4410698596268883`*^9}, {3.441069933826723*^9, 3.441070043821068*^9}, {3.441070327602489*^9, 3.4410703879598103`*^9}, { 3.441070474109767*^9, 3.441070478483116*^9}, {3.441070751099081*^9, 3.4410707968718987`*^9}, {3.442002657592877*^9, 3.442002684154298*^9}, { 3.4420027236930313`*^9, 3.4420027340401506`*^9}, {3.442002984958606*^9, 3.4420029872452297`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"xInterpolatedOmegaRatio", "[", RowBox[{"mnOmegaRatio_", "?", RowBox[{"(", RowBox[{ RowBox[{"MatrixQ", "[", RowBox[{"#", ",", "NumericQ"}], "]"}], "&"}], ")"}]}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"max", ",", "min", ",", "ratio"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ratio", "=", RowBox[{"Interpolation", "[", RowBox[{"mnOmegaRatio", ",", RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"min", ",", "max"}], "}"}], "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Min", "[", "#", "]"}], ",", RowBox[{"Max", "[", "#", "]"}]}], "}"}], "&"}], "[", RowBox[{"First", "/@", "mnOmegaRatio"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Function", "[", RowBox[{"x", ",", RowBox[{"Which", "[", RowBox[{ RowBox[{"x", "<", "#1"}], ",", "\[Infinity]", ",", RowBox[{"#1", "\[LessEqual]", "x", "\[LessEqual]", "#2"}], ",", RowBox[{"#3", "[", "x", "]"}], ",", RowBox[{"#2", "<", "x"}], ",", "0"}], "]"}]}], "]"}], "&"}], "[", RowBox[{"min", ",", "max", ",", "ratio"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.436219554455058*^9, 3.436219579085403*^9}, { 3.436219643101828*^9, 3.436219690569466*^9}, {3.436219736890353*^9, 3.4362197417306213`*^9}, 3.436225303826868*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ x\[CapitalOmega]Normal[] - Analytic solution for the \[CapitalOmega]-ratio of \ a Normal distribution\ \>", "Subsubsection", CellChangeTimes->{{3.4410708783316193`*^9, 3.441070921592375*^9}, { 3.4410711767743063`*^9, 3.441071190772275*^9}}], Cell["\<\ Input:\t\tA threshold for the \[CapitalOmega]-ratio and the mean and standard \ deviation of the subject Normal distribution. Output:\t\tThe \[CapitalOmega]-ratio. Notes:\t\tNo error checking of the inputs is done. Works with symbolic inputs.\ \>", "Text", CellChangeTimes->{{3.441070891131424*^9, 3.4410708930568132`*^9}, { 3.441070924780747*^9, 3.4410710751504993`*^9}, 3.441073047288291*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"\[Tau]_", ",", "\[Mu]_", ",", "\[Sigma]_"}], "]"}], ":=", RowBox[{ RowBox[{ FractionBox[ RowBox[{ SqrtBox["2"], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ SuperscriptBox["#", "2"], "2"]], " ", SqrtBox["\[Pi]"], " ", "#", " ", RowBox[{"Erfc", "[", FractionBox["#", SqrtBox["2"]], "]"}]}]}], RowBox[{ SqrtBox["2"], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ SuperscriptBox["#", "2"], "2"]], " ", SqrtBox["\[Pi]"], " ", "#", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Erf", "[", FractionBox["#", SqrtBox["2"]], "]"}]}], ")"}]}]}]], "&"}], "[", FractionBox[ RowBox[{"\[Tau]", "-", "\[Mu]"}], "\[Sigma]"], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.436321563155161*^9, 3.4363216097536373`*^9}, { 3.436321784684671*^9, 3.436321800433707*^9}, {3.43632183383461*^9, 3.4363218370827293`*^9}, {3.436321893106781*^9, 3.436321956654174*^9}, { 3.4363225030501842`*^9, 3.436322503549719*^9}, {3.441064656009872*^9, 3.441064664981761*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ xFiniteMixtureMomentSummary - Moment summary for a finite mixture of Normal \ distributions\ \>", "Subsubsection", CellChangeTimes->{{3.441072001045785*^9, 3.441072036944562*^9}}], Cell["\<\ Input:\t\tThe weight vector, mean vector and standard deviation vector for \ the component of a finite mixture of Normal distributions. Output:\t\tThe mean, standard deviation, skewness and kurtosis of the finite \ mixture. Notes:\t\tNo error checking of the inputs is done. Works with symbolic inputs.\ \>", "Text", CellChangeTimes->{{3.441072049219665*^9, 3.441072053106573*^9}, { 3.441072095555319*^9, 3.44107216097878*^9}, {3.441072212077528*^9, 3.441072219954321*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"xFiniteMixtureMomentSummary", "[", RowBox[{"vnWeights_", ",", " ", "vnMeans_", ",", " ", "vnSdevs_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "nMean", ",", " ", "nSdev", ",", " ", "nSkew", ",", " ", "nKurt"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nMean", " ", "=", " ", RowBox[{"vnWeights", ".", "vnMeans"}]}], ";", "\[IndentingNewLine]", RowBox[{"nSdev", " ", "=", " ", SqrtBox[ RowBox[{"vnWeights", ".", RowBox[{"(", RowBox[{ SuperscriptBox["nMean", "2"], "-", " ", RowBox[{"2", " ", "nMean", " ", "vnMeans"}], "+", SuperscriptBox["vnMeans", "2"], "+", " ", SuperscriptBox["vnSdevs", "2"]}], ")"}]}]]}], ";", "\[IndentingNewLine]", RowBox[{"nSkew", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"vnWeights", ".", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"vnMeans", "-", "nMean"}], ")"}], RowBox[{"(", RowBox[{ SuperscriptBox["nMean", "2"], "-", RowBox[{"2", " ", "nMean", " ", "vnMeans"}], "+", SuperscriptBox["vnMeans", "2"], " ", "+", RowBox[{"3", " ", SuperscriptBox["vnSdevs", "3"]}]}], ")"}]}], ")"}]}], ")"}], "/", SuperscriptBox["nSdev", "3"]}]}], ";", "\[IndentingNewLine]", RowBox[{"nKurt", " ", "=", RowBox[{ RowBox[{"(", RowBox[{"vnWeights", ".", RowBox[{"(", RowBox[{ SuperscriptBox["nMean", "4"], "-", RowBox[{"4", " ", SuperscriptBox["nMean", "3"], "vnMeans"}], "+", SuperscriptBox["vnMeans", "4"], "+", RowBox[{"6", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"vnMeans", " ", "vnSdevs"}], ")"}], "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["vnSdevs", "4"]}], "+", RowBox[{"6", " ", SuperscriptBox["nMean", "2"], RowBox[{"(", RowBox[{ SuperscriptBox["vnMeans", "2"], "+", SuperscriptBox["vnSdevs", "2"]}], ")"}]}], "-", RowBox[{"4", " ", "nMean", RowBox[{"(", RowBox[{ SuperscriptBox["vnMeans", "3"], "+", RowBox[{"3", " ", "vnMeans", " ", SuperscriptBox["vnSdevs", "2"]}]}], ")"}]}]}], ")"}]}], ")"}], "/", SuperscriptBox["nSdev", "4"]}]}], ";", "\n", " ", RowBox[{"{", RowBox[{ "nMean", ",", " ", "nSdev", ",", " ", "nSkew", ",", " ", "nKurt"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4364903206355257`*^9, 3.436490392674342*^9}, 3.440460906037551*^9, {3.441071228944557*^9, 3.441071475171433*^9}, { 3.441071505534913*^9, 3.4410719166550007`*^9}, {3.441072196946612*^9, 3.4410722075846453`*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Analyses & Plots", "Section", CellChangeTimes->{{3.43623954620035*^9, 3.436239549223791*^9}, { 3.4407737847892103`*^9, 3.440773785733837*^9}, {3.4407974279172287`*^9, 3.4407974319756327`*^9}}], Cell[CellGroupData[{ Cell["\[CapitalOmega]-ratio definition", "Subsection", CellChangeTimes->{{3.4407729834487743`*^9, 3.440773022070263*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gOmegaComponents", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0.1", ",", "0.12"}], "]"}], ",", "x"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"0.1", "-", RowBox[{"3", " ", "0.12"}]}], ",", "0.12"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "\[Rule]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"Opacity", "[", RowBox[{"0.2", ",", "Red"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\!\(\* StyleBox[\"x\", FontSlant->\"Italic\"]\)\>\"", ",", "\"\<\!\(\* StyleBox[\"F\", FontSlant->\"Italic\"]\)[\!\(\* StyleBox[\"x\", FontSlant->\"Italic\"]\)]\>\"", ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0.1", ",", "0.12"}], "]"}], ",", "x"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "0.12", ",", RowBox[{"0.1", "+", RowBox[{"3", " ", "0.12"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "\[Rule]", "1"}], ",", "\[IndentingNewLine]", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"Opacity", "[", RowBox[{"0.2", ",", "Blue"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Thick"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.12", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.12", ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Dashed", ",", "Black"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"\"\<\[LeftArrow] \[Tau]\>\"", ",", RowBox[{"{", RowBox[{"0.132", ",", "0.2"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*UnderoverscriptBox[\(\[Integral]\), \(\[Tau]\), \ \(\[Infinity]\)]\)(1-\!\(\* StyleBox[SubscriptBox[ StyleBox[\"F\", FontSlant->\"Italic\"], \"X\"], FontSlant->\"Italic\"]\)[\!\(\* StyleBox[\"x\", FontSlant->\"Italic\"]\)])\[DifferentialD]\!\(\* StyleBox[\"x\", FontSlant->\"Italic\"]\)\>\"", ",", RowBox[{"{", RowBox[{"0.175", ",", "0.875"}], "}"}], ",", RowBox[{"Background", "\[Rule]", " ", RowBox[{"Opacity", "[", RowBox[{"0", ",", "Blue"}], "]"}]}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{ "\"\<\!\(\*UnderoverscriptBox[\(\[Integral]\), \(-\[Infinity]\), \(\ \[Tau]\)]\)\!\(\* StyleBox[SubscriptBox[ StyleBox[\"F\", FontSlant->\"Italic\"], \"X\"], FontSlant->\"Italic\"]\)[\!\(\* StyleBox[\"x\", FontSlant->\"Italic\"]\)]\[DifferentialD]\!\(\* StyleBox[\"x\", FontSlant->\"Italic\"]\)\>\"", ",", RowBox[{"{", RowBox[{"0.055", ",", "0.16"}], "}"}], ",", RowBox[{"Background", "\[Rule]", " ", RowBox[{"Opacity", "[", RowBox[{"0", ",", "Blue"}], "]"}]}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"Framed", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[CapitalOmega]\), \(X\)]\)[\[Tau]] = \ \!\(\*FractionBox[ RowBox[{\"(\", RowBox[{UnderoverscriptBox[\"\[Integral]\", \"\[Tau]\", \"\[Infinity]\"], RowBox[{ RowBox[{\"(\", RowBox[{\"1\", \"-\", RowBox[{ StyleBox[SubscriptBox[ StyleBox[\"F\", FontSlant->\"Italic\"], \"X\"], FontSlant->\"Italic\"], \"[\", StyleBox[\"x\", FontSlant->\"Italic\"], \"]\"}]}], \")\"}], RowBox[{\"\[DifferentialD]\", StyleBox[\"x\", FontSlant->\"Italic\"]}]}]}], StyleBox[\")\", FontSlant->\"Italic\"]}], RowBox[{ StyleBox[\"(\", FontSlant->\"Italic\"], RowBox[{UnderoverscriptBox[\"\[Integral]\", RowBox[{\"-\", \"\[Infinity]\"}], \"\[Tau]\"], RowBox[{ RowBox[{ StyleBox[SubscriptBox[ StyleBox[\"F\", FontSlant->\"Italic\"], \"X\"], FontSlant->\"Italic\"], \"[\", StyleBox[\"x\", FontSlant->\"Italic\"], \"]\"}], RowBox[{\"\[DifferentialD]\", StyleBox[\"x\", FontSlant->\"Italic\"]}]}]}], StyleBox[\")\", FontSlant->\"Italic\"]}]]\)\>\"", ",", RowBox[{"FrameMargins", "\[Rule]", "10"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09"}], ",", "0.6"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"ImageMargins", "\[Rule]", "5"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdzEEoQwEAxvHFiIORg5osthVvtrIyttHkZZOyDdMcWMJmRa2VC4qU2oo2 B2U125hlOMxadsKUEw5qB8XlRWlWD7HLmDh43zt8/Q7/+oRTTtN0EYfDqWMG /1RnT8ptmqQn0zwVo7MoWg03l0YE0JzQiaG09UcN9U3LXdByle+HlDQ1BEuV oQlYcMRscN8YdsDa2vAavP0wBGCf3pWHqpqlL7ZraI+a8XXs2Qvv6yv9UGLo DsCjF+suTLQoIlBY8nnAdkv6EM5ndUmYpWZZMwvEKeS6O8/g1soDf4NRu2gW s85YZXBw7lIBMwM3HTBZbtNBt+idXwgwf1mXBOaGm7f+GHs9d35IReTjZUGa bCQsrLzCqBWecOdsMH6sOZfs0KS9zH4N278pUW6PJlc738RQcNFGQKlRy1rs c8tgKhZljZvScvg4f9oDq/pt6xVRmvT9kl5ofyWCkGhwheA/NE/iSQ== "]], Cell[BoxData[ GraphicsBox[{GraphicsComplexBox[CompressedData[" 1:eJw1lXk41HkcxzOVI3KkdRVSOctRWllHHzvdJhthCGlcM7S2GKUNWxLWtTXE rNaxSKoxIzQxmJnvaJQjc1AMspvfT2nLXdptW0+2fZ7t/Tzv5/28/n0/z/t5 m4WfOhJFWLZsGe2T/8vhtldKiuty1GHtcQA3JoP7Pb5dlbUcsf/mWTjoBoOl 6lgDyVOGDmwNffq8mwKeCR52+BEpGnxFd7tLj4S770YNfCkSdMtIc76YFw2E TS4fdxztRYlfa2TQPE5Cp3G+ek3EI+Sg9belaBsd6OJbullHe9DWy8M2azcl QkTqYvYev27koN6cVNqaBD2rPK0YlC40FeJ/I0l0AfQ9AtsPBXaiD+Zv94Rr XYIRIiWtOOwhUt3xY+tSRiaMh1Q3CE89QE/01n+hHJcD/Wa3n/rHdKDU3iNs V/IV2Mm9aZtyWoxSfxUHdJMKIG2emqT77X1Uoe14n3ylCHT3hX+ZQW1HGywd TJdcroFRdIBBZoIIUbTFB0bXl4HmCaOpWYUQxVlYaDbNVsBA+bm/5if5qCKv eXFf3HWgWQe9HxhsRX/UG2rGJ9dABt44cPIRDwUu193lN3AbGE5LBIvxJpTV tnek6RsOUMd6zVEfF9W3MONJgnqwMr9cnDjeiAoTygf9xxvhbHHnS/xjPZIf fLo6dts9MBOvOBqOc1DqRqcY8+lmsM0NS3NdzUKLLl8e2sNtBdlHEXPoxQ20 NivoYvZ7AeTItCOf9VWiQHZbYj9PBG7sK1V7VUuRN751JjHxPuRrL/f167qK XH7amfomuQO2tWdn8qyz0FxhvJ77hYdArC0r+n0DHW33mjlLZ3aBf3mGrvX+ 76DrH0NO7GIP0CQLfjolmaCqNisTBUgg7v75kGrmVTAQDdxeIMjhXCNXus+3 BDLtI1e1+vSB9UL6y5zTlfDemZhbV9MPF8bZKXX5N0CNNer80PwJLJZOxxdF 34ZVnaPTdcwBGGdtSeHlc8CuyMIpZZsChjn8Cd7jeojsnRijS4fAd/IUnG1r hBScNaEgjwDhcWWVby8XSmL7WGeUR6HDdOyeTmsTaAWTc/PLfoMP7jVTRuU8 8PDSExPsn0GU8qQtsbYVbNxnbO/Gj8G4o5spqYgPKYJzzb+5YfATyanHhyeE KdepVFsTHHKdfYv5VDl6p6TI2J8cCN4tbJUuqQzN2rfPSGxCgeeuPceUStG7 fvV1UdnhcJ57+fovwxK0+5pa+q7zVAjKy1XvGO1Fz73ftNBCvgUetJyW1ghg Q5oB6uRgsD3JRHIwQ45uKKlGMPYGwJusg4aXVOWIX2qcQywKgbmN773jNWTI vix986/VYfD86svoXXpSZEz0Oj5IjwLlr3cU5JpIkCC9z6CHcAKkLR+6NUwE EPa40iTsDAZVD86aMuyFoNHueGj1BAbK69JpjEI5KtisEqNUTwYD0+XVawzl CPPc2aDoC4a8L2Ivhm6RoSQZc0jZKQx+Xl5IYuyQos2WxZPh85EQUpLlfwok yF8oZkuCY2AosWShdpgPeYOPhRuPYsBJM/C0nxSAvrhgaqYbg2JVxcJcghA4 5df8NxJwiJts4jqWypGIXLiUTiWDzevjMUFmcqSGJ9tMxwfDiGaN4YCLDJGs 1ipuLlEgzvW1W8tuKXp7xy/ubkMkZHVt34kdliDa7sTcNrUYCB2YzE5u5gOr Lk5FifSpTyz62ccuAby+uJI22oaBMc0yR+QjhNSXdisMFzBYw8o8bsYUwgf4 wd5aG4dqX+/glRVyFCqryjcgkoF7WPPQeXM5+ubm8NYYYjCkqoujGEQZuhTm MN/4nALHAorueZGkKNZ14kfjgkgweaZiZRQoQbWFpxM0sGioWFHoF1HDhxdU ev7sbgzOaOuwJpoFULvhILmfiwGFKfO75SGEvPK3CbrTGPgP29moZQjBMzx3 jYUaDvKk3wu/uikEgsyHtUUfB6FKmd1MpRwxukbYf9qT4fu0KHeGpRxddaT6 iG2C4Ul2n/rJfTJ05lig1n4FBfxevJ7XPyxFJbZD8+FpkRB9gl7hFCJBx38m 7XnUGw3E9X98pSjjg1t9fz3VAwM9q6grQXcEoKN/bJ1XAwZKdZtc1jsLwZmI 0xmvMPhzLk3rhxQhTFTM7a9eiUN8wfYkTrkQtAleF1m6ONhF5Nx5cOcT6xxg sY1w+Pwny/7X5z195n8BS0swMw== "], {{{}, {RGBColor[1, 0, 0], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{1, 102, 103, 50, 101, 90, 100, 80, 89, 99, 71, 79, 88, 98, 63, 70, 78, 87, 97, 56, 62, 69, 77, 86, 96, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 55, 61, 68, 76, 85, 95, 5, 54, 60, 67, 75, 84, 94, 4, 53, 59, 66, 74, 83, 93, 3, 52, 58, 65, 73, 82, 92, 2, 51, 57, 64, 72, 81, 91}}]]}, {}, {}}, {{}, {}, {GrayLevel[0], Thickness[Large], LineBox[{1, 91, 81, 72, 64, 57, 51, 2, 92, 82, 73, 65, 58, 52, 3, 93, 83, 74, 66, 59, 53, 4, 94, 84, 75, 67, 60, 54, 5, 95, 85, 76, 68, 61, 55, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 96, 86, 77, 69, 62, 56, 97, 87, 78, 70, 63, 98, 88, 79, 71, 99, 89, 80, 100, 90, 101, 50}]}}}], GraphicsComplexBox[CompressedData[" 1:eJxFlGlQk1cUhoNFCgxN2awKErQs1UaFQt0q9hUsCggqSbHYQrAgmFIVBguy 1UCEiAWNiqKNigqOCCIthGoKGoRCkLIYlshiPiMpsib5ZJGxCNhPZ5zemTtn nrnnfc6PM3OXhEaxwufQaLTt1H1Tw0NZRiyJFLyMBtEKhhojMRfCulbfh6vL q/pUuRoJeajX2FXD6vIRVqDwH0hMMp226tWAsWR3ef6XfTA6/2jUv6cG+i1z RF4DfVhp1iG5V/cXEtaSntaiZ9Cvi087eLUW0bltySVu/SiJePj1CWEdPt3z rFc80I8flzny/BNkUIGgTR4bQLejfQmHXY+krJioMetBWJt39MrxAITcYtf8 8kHQ1zKtji9qALec8YGN2xAsePzi0YkGsHPSnAoqh6ARZ26qVP2Nvq7If8Mw jDg7N1VLRSOqQ3lpM+JhKFJyeVtuNMH0tlVWNHMEm1/TErmnmmF3p+dFya8j 4EqME9ojW2CfkRnvOTUCTogsOX/nQ9Qxz/HZQRrwr5yp4SyUo4gt23mzVAMY 2nrnnpRjZeqEIPt9LdJTCqdL57Zi9sHSOQkBWtjnHC0bjmmFiedGh5zzWtzK kw4HDLXitw2xNsceayH09Xbo/6YNpkG+vDZLHaYMOrJ8atugKz56k+2lw3bJ nbjede24xzHApiQdpg3I0EsF7ajZkxG877oO2b681kxGBx4Y7LW8K9dBnPfh /m3ZHTh9zT+XPqnD8pxx49U0Bcbcbo5z5pEQpjgzd8QpYNwZ0NrkSmKrYbWf sE+BzlGenqMfiZNX/C/l7XiEBcvFqcFhJKqc1kcN1j2C+RbDpbJ4EpuD4jex XTtx1sJmb/QvJCQ8uuh5YSdM/Dw02y6Q4G98OVa2oAuzZ4JJ20ISCjN1vHd6 F04wvfYb/UHCvMc+1fxVF25nhPj43ydxA5WZtB+6EWi62CW+gcTSi0ULljzt RnH22XB6G4nPjERt8wJ6sLPIpmVrN4lsC+KEU00PVvB6zGxUJFSWCc1Jax+j 2TNPIOgjcUTMpWuvPwaDCELnIInfQwOTXSyU0PvITHZIQ6Le8Oq+ogwldPlt IjlJYo3vhpAtk0ocLigTxI6RSNfkPMyPJlCi/5Q+OkGCce0rrl52FX5uiOOe PaQGZ1HkuVhXAgLntBfV4yQ8jjRKCh2qUDy2SEX6qOFTzk56YkmgwvK40JZ6 j0lLEZuwCHw8LDMIpnwdY/TeGZ0UZi4mLqc/V2Njipf29FwCTfMT0xqp+dwd sQ7VHgSW14+HmVL9yZJM98DvCUSN7RoooPhikfOLgnYpWsv2VO1epoZbv4ej dkYJD2Nh7RUqH3Y7imO9noCIlEUMUfMPMQSJZbsIFHvXlvCpfArrlOEsl0AE 7VZp0xsWuL+erpNC0twYWm+nxhcL73tYTSmRtf/gqkzKt3tIk+i1hoAvp/Ku gvL95P/eOVUAAePp2sEoKn84ne7ADCdw+My6byso5ttaauT7CMwe7NI+oThm wjvtkyopZkSOWVOL1ZCUzcqdXyrxHYxDUyi/is80CllF4MDlemUj5R8fdneY ZBPYbO2VFEHlZxh+Yvcwah/CdfalFOv9yUociCQwEbesXUGxvkARXHGAwPN4 qd7gxP/7o709z/Huf3vH/wFNAIgv "], {{ {RGBColor[0, 0, 1], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{50, 78, 79, 1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77}}]]}, {}, {}, {}}, {{}, {}, {GrayLevel[0], Thickness[Large], LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}]}}}], {GrayLevel[0], Dashing[{Small, Small}], LineBox[{{0.12, 0.}, {0.12, 1.}}]}, InsetBox["\<\"\[LeftArrow] \[Tau]\"\>", {0.132, 0.2}], InsetBox["\<\"\\!\\(\\*UnderoverscriptBox[\\(\[Integral]\\), \\(\[Tau]\\), \ \\(\[Infinity]\\)]\\)(1-\\!\\(\\*\\nStyleBox[SubscriptBox[\\n StyleBox[\\\"F\ \\\",\\nFontSlant->\\\"Italic\\\"], \ \\\"X\\\"],\\nFontSlant->\\\"Italic\\\"]\\)[\\!\\(\\*\\nStyleBox[\\\"x\\\",\\\ nFontSlant->\\\"Italic\\\"]\\)])\[DifferentialD]\\!\\(\\*\\nStyleBox[\\\"x\\\"\ ,\\nFontSlant->\\\"Italic\\\"]\\)\"\>", {0.175, 0.875}, Background->Opacity[0, RGBColor[0, 0, 1]]], InsetBox["\<\"\\!\\(\\*UnderoverscriptBox[\\(\[Integral]\\), \\(-\ \[Infinity]\\), \\(\[Tau]\\)]\\)\\!\\(\\*\\nStyleBox[SubscriptBox[\\n \ StyleBox[\\\"F\\\",\\nFontSlant->\\\"Italic\\\"], \\\"X\\\"],\\nFontSlant->\\\ \"Italic\\\"]\\)[\\!\\(\\*\\nStyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"]\ \\)]\[DifferentialD]\\!\\(\\*\\nStyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\ \"]\\)\"\>", {0.055, 0.16}, Background->Opacity[0, RGBColor[0, 0, 1]]], InsetBox[ FrameBox["\<\"\\!\\(\\*SubscriptBox[\\(\[CapitalOmega]\\), \\(X\\)]\\)[\ \[Tau]] = \\!\\(\\*FractionBox[\\n RowBox[{\\\"(\\\", \\n \ RowBox[{UnderoverscriptBox[\\\"\[Integral]\\\", \\\"\[Tau]\\\", \\\"\ \[Infinity]\\\"], \\n RowBox[{\\n RowBox[{\\\"(\\\", \\n \ RowBox[{\\\"1\\\", \\\"-\\\", \\n RowBox[{\\n \ StyleBox[SubscriptBox[\\n StyleBox[\\\"F\\\",\\nFontSlant->\\\"Italic\ \\\"], \\\"X\\\"],\\nFontSlant->\\\"Italic\\\"], \\\"[\\\", \\n \ StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"]\\\"}]}], \\\")\\\"}], \ \\n RowBox[{\\\"\[DifferentialD]\\\", \\n \ StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"]}]}]}], \\n StyleBox[\\\")\\\ \",\\nFontSlant->\\\"Italic\\\"]}], \\n RowBox[{\\n \ StyleBox[\\\"(\\\",\\nFontSlant->\\\"Italic\\\"], \\n \ RowBox[{UnderoverscriptBox[\\\"\[Integral]\\\", \\n RowBox[{\\\"-\\\", \ \\\"\[Infinity]\\\"}], \\\"\[Tau]\\\"], \\n RowBox[{\\n RowBox[{\\n \ StyleBox[SubscriptBox[\\n StyleBox[\\\"F\\\",\\nFontSlant->\\\"Italic\\\ \"], \\\"X\\\"],\\nFontSlant->\\\"Italic\\\"], \\\"[\\\", \\n StyleBox[\\\ \"x\\\",\\nFontSlant->\\\"Italic\\\"], \\\"]\\\"}], \\n RowBox[{\\\"\ \[DifferentialD]\\\", \\n \ StyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"]}]}]}], \\n StyleBox[\\\")\\\ \",\\nFontSlant->\\\"Italic\\\"]}]]\\)\"\>", FrameMargins->10, StripOnInput->False], {-0.09, 0.6}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->False, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox[ "\"\\!\\(\\*\\nStyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"]\\)\"", TraditionalForm], FormBox[ "\"\\!\\(\\*\\nStyleBox[\\\"F\\\",\\nFontSlant->\\\"Italic\\\"]\\)[\\!\\(\ \\*\\nStyleBox[\\\"x\\\",\\nFontSlant->\\\"Italic\\\"]\\)]\"", TraditionalForm], FormBox[ StyleBox[ "\"Components of the \[CapitalOmega] Ratio\"", FontSize -> 14, StripOnInput -> False], TraditionalForm]}, ImageMargins->5, ImageSize->600, Method->{"AxesInFront" -> True}, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.436297987850101*^9, {3.436298028407065*^9, 3.436298202637154*^9}, { 3.436298237831656*^9, 3.436298309030498*^9}, 3.436298359327627*^9, 3.436298393333445*^9, {3.4362984446995773`*^9, 3.436298475281155*^9}, { 3.436298522968997*^9, 3.4362985724583597`*^9}, {3.4362986232910137`*^9, 3.4362986429530993`*^9}, {3.436298686076828*^9, 3.436298704168192*^9}, { 3.4362987413033*^9, 3.436298799506061*^9}, {3.43629883724516*^9, 3.436298848648706*^9}, {3.436298903490275*^9, 3.4362989174529343`*^9}, { 3.436298948201789*^9, 3.436299013293922*^9}, {3.436299057185182*^9, 3.43629911736198*^9}, {3.436299399056965*^9, 3.436299482769124*^9}, 3.436300212579908*^9, {3.4363015194749737`*^9, 3.43630153076617*^9}, 3.4363015699906807`*^9, 3.436301631271649*^9, 3.436301724021137*^9, { 3.436301769969392*^9, 3.436301778428755*^9}, 3.43630187635955*^9, 3.436302072742128*^9, {3.4364745753944893`*^9, 3.436474580428199*^9}, { 3.436474612917349*^9, 3.436474650955592*^9}, {3.436474760942465*^9, 3.4364747905221987`*^9}, {3.436474855214603*^9, 3.4364749234176826`*^9}, 3.436488310807427*^9, 3.436622819476789*^9, 3.437159315549911*^9, { 3.437216053487208*^9, 3.437216076568707*^9}, {3.437225146624345*^9, 3.437225167708234*^9}, 3.4372492677005787`*^9, {3.4372493082984447`*^9, 3.4372493159401608`*^9}, 3.437963047573482*^9, {3.4383662071860437`*^9, 3.438366268520124*^9}, 3.438366908412299*^9, 3.440273067201985*^9, 3.440327131270569*^9, 3.440345217850893*^9, {3.440345369661952*^9, 3.4403453759493847`*^9}, 3.440345410855455*^9, 3.440345630794179*^9, 3.4404596993862257`*^9, 3.4407641001970053`*^9, 3.440771180137581*^9, 3.440771664990387*^9, 3.440773789838395*^9, 3.440789540954397*^9, 3.4408692510425653`*^9, 3.4410580771854897`*^9, 3.4411242592294188`*^9, 3.4411313002249002`*^9, 3.441382620096187*^9, 3.4419106713701468`*^9, 3.441978607971583*^9, 3.4419891597596397`*^9, 3.442010285566806*^9, 3.442010321512542*^9, 3.4429347161444902`*^9, 3.4429363229695873`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gOmegaComponents", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, 3.442010174314849*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gOmegaComponents.png\"\>"], \ "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAOKEV5v+Wsx66SgefpPfEkgLdES0gGgxswWrQLTOM7Et IDpmxYtdIFqorPo+iP5kwnF+CpCOkJhRcw1IK/lfKroz+6WjRHDCwj9AuuD2 kVSOOS8dFz4LeJoy96Wjb2bZR815Lx1TV7wQ1wLSRa6Hr55Z+NLx3rEz1s+B dEqYtuAHIN2047oKiJZbeUcDRAsn3XAF0ae9T35TX/TSMWzXwRl7gLRWpBHf ASDdJz7bC0Sn7HsZfBBI55nwsp4E0nPubPjwHkizveJX8VkMtMfmfEkOkHbJ //EkH0hvePlg9isgbXE9oujNEqA5TiFLeJe+dFy+IW4tiP5lrHJUCEgbPN4u Kguk5ebGSYFoneR35Q+WvXSsa97l8BBIAwD8Qq2P "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gOmegaPlotStandardNormal", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "0", ",", "1"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[Tau]\>\"", ",", "\"\<\[CapitalOmega][\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[CapitalOmega] Ratio\>\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.4363029468229113`*^9, 3.436302973595253*^9}, { 3.436303151140587*^9, 3.43630315740193*^9}, {3.436303197826992*^9, 3.4363032915984583`*^9}, {3.4363034594575157`*^9, 3.436303469480824*^9}, { 3.436304216345395*^9, 3.436304298404512*^9}, {3.4363044191246*^9, 3.436304420887752*^9}, {3.436305116453864*^9, 3.436305118630187*^9}, { 3.436305787685955*^9, 3.436305789009193*^9}, {3.436305833883243*^9, 3.436305854931978*^9}, {3.4363058989465303`*^9, 3.436305901868067*^9}, { 3.436316042551641*^9, 3.4363161855915194`*^9}, {3.4363162176292267`*^9, 3.436316300264286*^9}, {3.436316333613159*^9, 3.436316335913072*^9}, 3.4363168746349583`*^9, {3.436318039472857*^9, 3.436318082017715*^9}, { 3.436318516105275*^9, 3.436318516654269*^9}, {3.436319047926125*^9, 3.436319050999082*^9}, {3.436319286518778*^9, 3.436319291691661*^9}, { 3.436320402232518*^9, 3.4363204281449137`*^9}, {3.436320669500977*^9, 3.436320670013652*^9}, {3.436321066389307*^9, 3.436321080837084*^9}, { 3.436472061333077*^9, 3.4364721082283278`*^9}, {3.436475007081602*^9, 3.4364750645555143`*^9}, {3.436477068876782*^9, 3.436477084038415*^9}, { 3.4364771258750877`*^9, 3.436477135821993*^9}, {3.436477177260016*^9, 3.436477190244368*^9}, {3.437215812098621*^9, 3.4372158125714197`*^9}, { 3.4403528690182447`*^9, 3.4403528706400757`*^9}, {3.440460066658639*^9, 3.440460079406454*^9}, {3.440771706159986*^9, 3.440771735360202*^9}, { 3.440772142146188*^9, 3.440772183095718*^9}, {3.441910721703027*^9, 3.441910839879116*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwVV3c0F+4Xtj+Ryl7ZIlv2dl9EKFFkRJGKbxQSoSFlFiLZKwkpQkoUeWWP skmy9+Zjb79+/9x77nnuufc595x7nnv57FzOXycjISFh+Wf+7w8pn9Cz0l3H cj6eXyWndVGC7M2ZV+zreONXdkuZtC4qybjuYMy4jv1DyBLK2HRRL6vNCMmh dZzT3CfWu6+DuHfO/b1Cso4ViDSMrk06KK1KsVFgYg3vNj8eWLupg95dIM9+ +3kNq6vcemmbdxIVeyY45hmt4dv1dJJ5etqI/9rtjG69NTzN9FXGTFobhRnr DZJqreFW3QqWoxzayE5k7YKp3BpuHDT6uzujhQ7+Pae5ybaG6emt1vlfaKHL GtRs2sOrmJM/S61+UBORU3pVd7mv4rbX8nKPohByJp4lIXFexY3O3guxvgh1 9wmqijisYq73y6P1NxHK+dKef99yFX/kO7/upYOQ2X9SSbwaq3jklZgAySKg rMZxN0fCKhYSyJ0SrdRAZyMv8O7Fr+BjUSp7pKFq6J7MEf1TL1dw35E1pnRH NZTZVnc7InQFC4trGbnoq6E9BrVK/kcruCOdycKXoIY+vOS3P3VtBdPWec4F Bqgi2uiF7AjJFfxWjj17I1gFNcQ+VRSoXMb4MtcwXY4SWlPUtr1ZuozN54Nq 3MOVEH/3TnBh4TJmG+NM3XZTQvfYXHtOZS3jVi95n9sqSkgk3uzhzbBl3HAg mXyzQREFJwhUFpov4+Kv7GPGSwroVPL3s3qzS1jfi+i/ayGPFsN6dyjGl3A5 +8VcBi15lOCz/f7HwBL+0JVaqikmj2ZtlAmq7Uu4OoCPdm5XDkXyF2KJb0uY /cUgl0e6HOp/m3OCMXgJ88rf+HFiTRbdLUhk6BdYwm2OJQYh2TKI98238gSu JVy0Srb0JlYG1b/842zOuoRlTQsm2vxkEKcHa2MLzRIO33hvesdaBlUovvSr JBJxvMC0RclhGXT4+7OVLEzEYjISUec8pVFmrXfXHSsi9lhKi5wyP4HiZe5q vzMlYu97kpeEdE6g0GS3/H5DIh6s3aryljmB3O44PdNHRKw1qrF59dAJpM5z SYNHkIjJD4blBgRLoY67KLNhfhGTmTzdELgpiciECHf5nixinzguGvfz4mg1 gnzE7P4iZhvsXRSVEUeT2/tGoe6LuLQv7eYBBnHU1Lohsm6/iDeS820V2sRQ /MPpvp+nFzGn1vqahakYOtH5S8eLeRH7bVWFhduIotIDImIp5xawZoXQU/8I YZT8aPbI4skFHPBe6XHoXWHks5a3oqm0gNuJl+Q/WgsjNKpQNsa9gPkf1Z02 FhFGVfjkOYnZeawQejN8qPI4+nnX1rM0cB5PqkRMye4Jod7R2Mqekjl8UW/3 S0mgIPpuZZUlnjeHGT8oSHG5CqKUNu4wn7Q53JDW8DDWUhDZlmeY8T+dw2fv HBHrEhdEo4mfpm6YzeFKO6Z3Xh3H0Oz55iObi7OYxvFBqbLwMbRdTmXNKjSL h0sp/lsY5Ee2r8I537HPYqZ0zuT4X/yo6iFbn8qhWfzw/ew9i2/8KFRF9PLl lRm8LlbWzhjFjzg/G9pmVMzgAD9nDx89fqT2NuqarM0M/m5+NudIIR96GMZ/ yyhuGqc1l00GJ/GiYadsiaGQaex9hE4oOYQX6RrIzbs9msZ2Vllmlfd40WGC rkuM/TT+whCmqWPJi1J8b9zuk5vGedUODFysvKjsTr6HU+sU5kji4GIV50H7 lho+QTRTePm6G0k54kJr4k9KaXYn8d/WfrtYXi40u1+9FbYwiTmMVQJeknCh ngxDz6iOSdz9R8Fys5wTfSFau75OmcTtunV372pzoptP79uVyExiZ+dYEnqj o+hPcbHuwsUJ7CiivpnxiB21hOz4uxlOYGrqGx2VV9lRzWVUuQoT2HS53ZhU jx19pqiDnWMT+HZxeUwPHTuKMP6tRL0wjvvelmuRpbMh3clVUQG/cbzcLspA 1cKKPrHKHjHPHsOuHLS+k+osKDNE0+JHyhjefKOffv44C4rbN3otFjmGJ17V BnTQsaAHEzdlSbzHcC7vACvPKDM6WZRp/k53DDcEx6X9DGFGHWYcqdtDo7gk XZXyzgATWokmlU5lG8VztlMhKJYRjVPT3aOhHcV9fPYdt/0YUfdD7kr3/RH8 bfHazyIXRlR6XfWC/vgIFtK/6fpYjxH5y3t4L30awbWlc0zU2wyIuXPyx0mj EaybbxDYdZUBKTC1nJ8KGMa06SM9Hdr0qORBPLuO1zCWylNV3T1Bj9CY3WCq 4zBOdGX+pcJNj/S/rN6yMBrGNHcS+FY36JC1xdGntWzD2Dm8vOdqHh3yS7LH GdlDeNu2wpyJlw61HNsVs2sdxIzO5B9UeQ+jC2E1S98rB7GGxenUB/uHUM9q +Ff2L4P4YvxbseH+Q2ikhv9Ua8Igrk3vtuFIOYTW/tOzQ9cG8dimTIoK9yGk fPG4tPr8AObHMZwsgrSozdGU5otyPz4qv5TDe4YGDdO4Gc1x9+NssYhPoido 0NL78KhjFP14/kORggkTDaKfaeB+2dSHs/3phPd7qZGxk6as69U+zEmxvFrm Qo2anCStRcN6saHgrdLyhAOo4eaB3JTBHpz5e3x3kpKAemiFljurezCNH+vN J3NUaDpHW+lQdg8u7nxnqNBJhajnfCrue/Tg7abXy7PpVEjv1mqXBU0PDjt/ OTxShwrV3BreZ5D7gwsMhZIyQijRD+fSc0FBvzETV8pbIVEKVGfskhPq/Bvf viAlqstCgZpk+AmRF37jaysh77zJKFDPWlBpksC/eFf0NOdfcrTkY3K8AHdh Xc+ELsMwcnQsfHqnd70TX3xFq268SoaC89iyZP7rwMwBpep67aTo+YtGMiWj DpzTYxJW/oMURd3xuaSu0IHNtXIdDPJJ0WvFUQY9ig7sSz52JzKMFH3DeQ8v pbZjryJVIlGPFM0265oEd7fhp6RJa/0VJMho0X2vT68VR11zf0EM2Id7Jcmm NRKtOOxTa9C1a/uQGVjzPpehFYfLb5dsa+3DHieb+aPeFkzLX6oaQ7IPH/RL 8nhdWzCNbZS858M9YNYlr6iRbMYZpB8iah7uQmg2Z1BrYyMunL3BHRG7DaOa zrJp0Y04J6ilDO5tg2o3HnCzacQopnLk8KVtmKa4qsS03IB3jG9JHRTYBr3L 76bMOBrw6Sv+5F75W0BOr3Cm9786XGQa00zRugn37hrRT1BW4wPM9+9QCG9A WUTjpEl7Fe6xyqZho9sA8uxT5eWpVZjI6PtMe2MdQgfAJUG1CnPI5g0N1a1D st6JX4a3K/FxLjZtZad1KOegf/q59wf+waPXrP55DWh9MkgpHL5j+5NE0W2z VYguSM7vI/2Odd6eYujXXAXuiWiboqRSLLrksd8pvgpSxoHfHdtKMDy1iKYg X4Xz/A7ererf8N4BqYsX81cgrkaYmMJUhFv4JaY7D6+A4JGcQeWKfDxYtlPk 07MEJyfvP3xlmo+154gXztQsQfWTWDmapjzMp/D0vVTBEqCJrreprLn43CKR VfHZEijkX3j+6/17fEtjw0lXdQn4tUysjre+wR2nll6ef02E2VjlTifPYDw0 Scnj92ARhm2LS+JoAvBoKJX0X8dF6BZRTKtOfoy1WBwldS0X4annjX6NYA+c rvMwzlRhEdjIH39x8DaHw4+nO18PL0BB95+K6gvPYVRkvtSpcx5Mz5d0fdfL gHdXv8UYd87C2PHqwRWeTIhZQhf2vszC3d2mabH1TJB99nO4MW4W4rOG9+Iz suDrJnG42noW+veoj98ly4FN9o+10uMz8PlCjirr5Y9wIXOA++feNGiQbYc0 sxaDiN70GVHdKaCa26dz8iuGknvU5ZFiU9D8myKGaqEYLKJECaz0U2D74XCq es1XSLdlS3TrnQQ/C/7P2e4lMHbCMN3NfRLqcvV7g1rL4Jr+wNaDdxPwTuIM S2p1BdC9XWZZFxoHXp70D63rFUCeKrArQz8OcXQ7J8lFK6GR0Mzmvz0GgcvZ d+yfV0IJ5Z+k6y1jcO3rwVZx8ypIWBePFLg/Btw6jSFfJ6vh4Ns0A++OUYiy NiBtP1gPHmusiyQxI0B7Ni2OQqMexP7q+JQ+GQE/2JJScK2Hb0SpxmcuI+DG //5yfEc9qHMFmdvoj4DRJHWpTXID8P59oDK+Oww07vV3ZyV/wvHEEQcrx2Hw DdGbpTzfDCStR8hvGA9BzvvPobeDm+EhnQTzjPoQ/Knnlegra4aOmbnXvmJD wO6/o9DD3AIjL/O6x6iGwK2iw/PjkxbIKb37MKZsEAQgYNPGuhW8glX2faQH IVBpfKf0SDv4Ul67WKffD5x6nL+WRNthSG/07GWRfigwP58srNsOx5XSbFmo +2Hgbpl61IN2MNnPPD1b1wdKhTE+TlPt4LROby5m0AdT0qdIOCo7YCN39P7v 871wRiyL3PNuF0Q49rpt3u+B2Q29sv7wLvAyl4m5faUHQmumvHTfdYHlL616 8lM90HhFbJ65twtWMMuGB0MPGMTldn/W/A07H2rzn7//A6coCz8s0XaD3H+V b+4PdIPWwA9z5zd/gHadziTe6jcM59gxdJX+gd4k4XSBk7/hyT3yX+pdfyCt wZOkWvw3/GDW0TpE3QMpjPa+Z/a6AJ2pE89x7gFNehbRm2ldoPG1iXRa+S80 Rya39cx3gvLLv9nXW3rBYSTq0kBsB7S9IOYaTvVCCRUVzVO/DrgZQSiQJ+sD 3t5VQ12XDkgNky2mlOsDdkflc9u6HUAVHFKVEdsHYazvVA3X26HtgWrf2OV+ aOw2ee5r1Q437RMP288NgKAqvWqWdBv4FXQfOE4+CO9Mxetf87RBy8erNIlH BmHwTFFRzqE2uJHvfchPeBDM+N/fWZtqhaQPGYwmFwfhxbhDvPmbViDL2uVZ /j4IzHK5V7XYW6E56YOSbMAQZGuOXT5N3wLP3j4sLYwcgkxfE/OF/WY4WWCI lFKH4ECgruLNvmYorp07pV4yBGamJ+Xa4pohdUnC/BRxCMzzJOhO0zeDq16u h9WlYbAdeazacqAJ6FZyC/zkR6BUscdHiv4nNOz5KFBpj8C7EP29hqVG8Kc2 +hZsPALFXcxWgR2NsMG98CPMaQT+q+cQsY5rhEF9qdbY1yOg7JHr78vXCPmv 8hayD41CuXsPa4RyA5w7nS/eMTYKdre3bBcf1QFdYWGGy9IovFTNOkrvUAdN 3CXcB/dHoaPaRdngbB2cWaqm02IbA7UUa0TJVQd68X9X8gzGgIL56EJiSS1o TFB9D8n7t+fj5woVd2tA1O+Sobb3OGQYi4eFvqiGqVm7mv6AcVDZU28Ku18N WWb/wb3IccgVrMtJv14NgqJ3pD9mj4N+ANMCg0o18LYGM/P0j8PxhljdhZEq YOX53LelNQE3nNLcolWrgKKExrmAdhJais9pHtqqgBMnLtyw5piE5eDS3a3R CrDOeHWNSngSvo91Ke83V8DncDmri9qTkENu1G6QWQHXrl3WI7s3Cfw+zCSz JhVQfaiA//zEJHRxGiloffoBgbaWv4k/psD7YHRE2uNyKOh805bYPAUfvsVH y7mUQ7/B/C+dvinguFVp0WNdDgryflXxG1MwkKBQa6tUDuPUHz5qSk1D94wy Q+4gBt1PJKEvkqahwpOfKa+2DAhUWUjacwZ8/z7Yh4+lkM8oYZvoPwNmeFYq +UUpWPAVPKKMnIGjAW3VR91K4b1aadmfnBl4cFs5/oFsKZy906L2ZHgGWI1f C9cXlUDM4IZSu+Es7I98zHat+QZCJfrSHsfmoL9YQ5xluxia65qMB6TnYGnh oYHtQDF4dZm46sMcLMs01tZWFkMD8VIe18U5KGwWdJgPLQZnYTeJmvA5SBNJ XYnhLYYv0QkirNtzwKITFqJqWAQ6rjN8X1vnIaxTv5CmpBCWejMU1Prn4Zwc T+SN9EJI1bc9jafnYcz/2WR/WCHs8He6V5MvgDIDbQ7tlcJ/8yyrbZVfALKc Z4puBwqBVzXy1nT8AujUlSyet/oMe0+Seg9JLwLW8nL7S/cJLnzdtDdSXAQL G2GdoZ0CyFkwI0aoL8LHv2xU25MFcNGanorJYBH60jSoHH8UQKF8oBTH1UWo nROalb1TADcnXZ4IRS/+05vDc/Y9H6HHUFsYNv/lV6TqNXzJh0nqymUCCRE2 7pkNf3iTD6vVWriFigj7B2W0MiPygU5Dy8yOiQhG34t3OxzzQVdS0z9Aigiv VR1phHnzoeAwDDZeJ4L+uSPTAlx58KxZJc6ijQhkBDHfhuUciAv5dpXvDxGu fCl64NaWAxmnVKSmB4hQ+DZsVuNjDpRj5Zr7c0R4oZgadtIlB9bylFZSDizB ccl3BXuz2WAXoWA8prEEykUnFw8tvAflczIH3LKXQHr3skAi7TuoKz1ztvbj EvR24mtexCywEHaI4ixegj+ns5/c7soCr/1E3tqqJVgcWR7/kpoFxR8olTn7 lyCUq/BiiEIWKNL8uVFDtwzezdbPtR3egnzlo0aOu8vAdsX9pGpvBlRJJtC7 PliGCmZ9xitVGWCa8Nm8+skyMLtQBLzKyQD321MjLuHLUHRWf/H6wwz4zGOy U5W1DE8Gf55k4c0A2QdCEi5/l0HzxC2hxRvpIC3/63klWgE8xnNl4vAbIJmj mNjQXQF9c528S1tp0JSuBpKGK3AwL3Z6ciwNHJlyFuIsV+Bx2vff6t/TIH35 mbGz2wrcOUdjOXAzDVgK9BjY01cgeLI2aaH5NexIVkU7E1bh4cQlurL0VGgY 3557c2gVPl0S4s+JTIX4FFndP4yrwPGktiTHNxUUDr9Z0+Zdhavufhpj1qng MvfYnF15FRS1ucKkWVJhOBvYqxxXwUXjSZkR2yuoFS5JYm9ahQA1W1shmmQ4 Y8+s0NWxCqu5Bh65E0nQ8salOfLvKuy8fid4qToJeriPkdFOrYJ6GHuhxOMk mGcKc9gjXwNeB0Hu2K1EYCG1kRlRXoPPt0M5/ltJAPs/ZHU5GWvgeURub4ks HmZYLl25kbMGczF2imRjceBqWrQl+GkNhGeoVGVr4+Bes5PEq/I1cPZ7Rb8V EgfPqzsiX/xdA026eEZW1jj48jHz0l36dWhbfZXsIhsLlM8MluHhOiznSr7K 9osGWk8gPPVbBzd2yxe3nKKB6Zrc0ban63Cvmw30TaKBX4Nb+1rMOggIXLA3 FIgGtESMDM5bhxZdAltgVRTcuxgv0zq0DmcUKbfSDkbBoujkbTvdDbBOa+Qb yI6EDda+gOwzG1D/IuB6Vkwk7FO0xa+c3wAKUaJl8ONIODxQ8iPQZgOwh/dm iHkkiL0Mp8/22gBdsIx7RREJ9tsKH5ffb4AVh2vVqN0L+NsYsOh/ZBPux628 PisVAXEayToXWDZhnvPOcfmjEWD28XOCINcmDDOeFpElREBbzMjJGtFNaD3x wWO6LBwarmjGE3Q3QX235gUXfzh8W9/RfPZgE27ZNBHIiWGQIOD+MnxqEz4p XPnsnhcCFjEhkzaLm1CJFr+Wh4YAC/Ub9RPr//oHf38r7xgCkfOtEy0UWxCy uhcYLxgCz75KqTHwbsENw0nHkynP4J7RzGiU2RbIW9eyksQ+Bcv7dgoJlVsw K8fQPZweBAnJTFTr9VuwJcheQgwOgh5c02nSsgXrpTJZPLeC4CKFmMehvi34 Nq7H0y0fBNZhy59817ZAkSt5r6guEC6/8pd2ENmGY95PO1lXAuBaZaa4XPg2 lHtN1fna+kP6mMVORPQ2fHk19EJOzx/GCAd/ziVug9PXj1HkJ/zB/oyL09us bSD7Hdy5tO8HDp2K7zkqtuHVPUpRxtd+4DhRd5x0dRsi6I+905p8Aq4HZ/ib Lu7A5cCamZSnj2HB+xvFwSs7MBxFODnv/hicJ5+On3LYAdtzk89MbR+DU7Xw +x93dqBO1ybguuJjsH9kL10YugN5F47ExYz7wqXlIUgq2wF1lt4uXn1fMPjb be3IvwsawbjaWc0H6vWzNN4K78If80/armw+oFfsyTsquQuUP1NIE1Yegk40 y+gl1d1/d+VG1PUPDwEZmTqdM92FELvdoG7eh6BQ2eytFLgL7e0HY6mPPACB 7JoYquldcJwbQb6Ee2Dxqvhrw+IuyHy7VxYz5g3PX77vfb6+CyX1LKVdld6w cf85PyvlHhRZ+ni3+XpD0xmz3OO8e/Dny37Xpx0vuDc/Vq1ntge7fXkRq9ue 0CpNufqsYg/mzwalqbDeBSqhdVaj+j0Y25j+JbzlAWocUyqMLXtAciN0QqXP AzLJfvkm9u3Bj+0oaHjjAQ/ao2hzNvbA7WQ32QsZDxD2OHbsl+Q+eLTkOSSa ucOjYm2TI4n7QPMljfpFkRsoWLcs2rzeh+i486/NU91gft/6ef7bfahLvGOg /NQNLp+6W3/u8z7Is0hbGVq5gcY/TYj6tQ9+h1VOFpK4wd4mVQwtCQl67WlM 5mR8G76z3nzyQoYE+dJeCnxP5gpxN2Rav8qTIMgNLVXqcwH3kg2eYaV/+KH6 V6cLXUDcJuC7DJAgc2Um6b3rLpCUmbLRfpoE6Rmn9EfUO8MD+VZnluskKEP8 5WEUfwtUTBSsEmNJUMOtb0G3LJ2AOBFmQEgkQYduvaFZkXWCrAdjyndSSBAn 7c7P94edgDUziu10BgmyKWYUzqpyhJWNpc6tAhK0W/Fu/q+MI+Sm5BlfbCJB gnGuOmusN4BvWliXnZIUZagb8XiSO0C3j698wAFSFC2aMxw/Yg8RjN3HiAdJ EcsVZq7xSnvYUwsir2cgRezNryS2/O2hJ3ys3IuXFOmwUuodpLaHKPk01W5V UtR/3O5WJtt1OPD4qHSsGyk6vjhJcDe9Cv0lj0WWPUiR6UkpunHlq1C4NsFn 5E2KPhP5rt3juQp2Nz8zEHxJUYv3J33qGTsoNTdcuRtGiq7syEWU+NmBi+Sj IrMsUlR3pLH6bMkV6Po7rM7ST4o8t5UaubVsIYdFX8FtiBRVMET6h4nZgt+5 PMmmUVIkYVT4iZ3ZFk7U3ucJnCFFHpuhtYytNvCsgIl0bYMU5bY1G4bw2YDG U92qTkYydJBKWIHt1yXIUHhvEK1Phg7EbEY1n7ECtfpLvkVnyFB4ui05i4gV dFjRf/ljRIbcpW/dCqa0AorHXnzcZmToZYSm42LZRbBr1N3ItCNDpddEQ2pl LwKv7UhG8X0ypMjBruogaAkJTzlJez+QIbrM10+4jpuDDGeLwl7+v/qXbU0D DphDfa7fTd7PZGhnR16WcdoMNtqnf1/7RoZaZewcUj+YgTn319y5GjL0wbux /76CGTB9umC9P0CGRA9cO0NvdAGe9z4v4mcgR44pGckvEkyAtKA9LJiZHEmZ VXXK+5iAexDbtXk2cuRrSZlHYmcCF2XS6L7xkKOZc+a+1KImIBRceOOcBDnq MqsxGC45D99le4/66pEjIe33Kf9+GJh9JuLb50OO2mhYs83MjMHG1tlM+wk5 0i3RXr+jYQxt8p/E3wWQozO7TKIFQsZQPKj2xz2UHMWqBcvxLRiBv4KxDG0C OcqRu82ZJm8EnMN3R1UKyVHvw73rXk2GcFq5Si9uhhydbriarS9xGnztzayr 5snRpLo/ZQPhNHx+OemySCRHPm33Be8PGwDnPG2s3sY//h5f653jDGA27cLY BgUF+qgTKh9NZQDPaSceW3JToFyRSfKcGT1oGaAu4ThHgT7RFq95/9YFikNJ Tbqm//A9wnJ6kS4oqUgOu5lTIBqsWLMZqwupUeepGy9RoK913gK8lrpwWz/R /L4jBbrQLCV0sU8HGD6Jr/z1o0AHuG65mM+dBNNAI4nkLxQo2q3kq4CoNmRZ Lup//UqB2u9rPft4RBu2xV/Yd5ZSoEQX7sYrq1qQ1t726lAlBXIqWl0V/qEF C7xmDD7NFOhl//Wrhhe14FmJ9frlSQrUFkfe2hCpCeWLN37wclCi4WhS4pOj CJiqaPrVuCiRzKvyUTpKBA6x2VsWvJRowWX6h1cfwGGNOdkXQpTIyNqpossf wCrENZNUlhIFhnZwn+7SgDVBz5Dh05Roj21T8befOohb+V9If0iJXE+LTCUR VMHq9hcGiseUSGR0mMeqXwWeBU02X/WnRAHFpF2mhSow8emMgUAIJSr2m/TZ vKoCabTMkBZHiRKGig7vVyoDa1mGcOonShTMJ1n75bkSkPHVbidOUaK4K0Ku 9WcUQFpxs3h7lhKd8MJHrooqgK2h2F2rRUpU+m2kR/KAAnz3Dl/kWKdEgmHO Q1ZV8uDVZj4WT0GFeE7sa1KAPMz5TTbF8lChIwSRPRN1Oegep057eYEKNdbJ j0tYy0Cd6dOkrxZUiCKrkMRTUwaKKw7EDlhRobYOjaFRIRmISyGEitlRIYbx uwqSS9JgbkZ5t9L5X7ynTOv2TBq6qkkMloOoUGWexXL0jxPQkb5OPP+NCgkG 1RWKR0pCFYPnrNd3KrRpuRKFrkvCZ9+18ZRyKnRHL58YqSQJUdarf6drqJBs vkMfcUACTJiWq5+0UyEp4VuZ4dIS0OY3H18wS4VGLNX8KQfFoMVuTJOBh4Dk hSY5KhxEYITi7UY0PwEdNZfJyFMXgbXM//LYhQgozUPhxACjCBydmeHkkyCg wAaLSrIfwmB/Z2ldSpWAFpyzzM9xC8O23/4HQ3MC0pFT+/x1VAiEMtg5noYT 0NUUOgX1lGOgfOpvC+1LAmKT7Jsuun8MzkwlBUXEEJA1y0/HG5bH4LYE72ps MgHZHiAJcGE+BqWFQi2Z2QSUHn3MYD9cAM7XyAZW1RLQ7wjLHxPP+eH6f6tq eo3/+KTmlr5z4QcvmqLlxiYCUnS8Gp9szA/JZ1WutHcS0INE40Z2Rn6Y7EJq wyMERFgaWbNK4IMtL7Ll6xP/+FVtDKQ/4INDR6veTU0TkOvjhktcNnwgY3OK lUgkoEfpyxuJx/hAh5S6yX2VgNQr5oNeE/jA4k2D/8bGv/nIzD3vnOYFR51Q 1Qc7BHS95lutYhPvv7/HcGl/n4D4bAJnaz/ywv8A1d47IA== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->False, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox["\"\[CapitalOmega][\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[CapitalOmega] Ratio\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Standard Normal Distribution ~ N[0, 1]\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, PlotRange->{{-2, 3}, {0., 45.82955091795557}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.441910805591494*^9, 3.441910840310299*^9}, 3.4419891613414097`*^9, 3.442010285810914*^9, 3.442010323365037*^9, 3.442934719658516*^9, 3.442936326013485*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gOmegaPlotStandardNormal", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.4419108680275707`*^9, 3.441910870752068*^9}, 3.442010178014595*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega \ Ratio/Images/gOmegaPlotStandardNormal.png\"\>"], "Output", CellChangeTimes->{3.441910873147806*^9, 3.441989162770784*^9, 3.442010285884811*^9, 3.442010324969911*^9, 3.44293472102414*^9, 3.442936327422168*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Normal distribution w & w/o leverage", "Subsection", CellChangeTimes->{{3.440773153179531*^9, 3.440773165978078*^9}}], Cell[TextData[{ "The ", StyleBox["Mathematica", FontSlant->"Italic"], " package for inserting legends into plots is a bit buggy. The code snippet \ below and the symbol gLegend are reused several times to create a legend \ graphic which is then inserted into the plot as a separate graphic element." }], "Text", CellChangeTimes->{{3.441072364810376*^9, 3.44107246701866*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gLegend", "=", "\[IndentingNewLine]", RowBox[{"Framed", "[", "\[IndentingNewLine]", RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "0.1"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"70", ",", "Automatic"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontColor", "\[Rule]", "Red"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Dashed", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "0.1"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"70", ",", "Automatic"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "->", "Left"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.440768378762293*^9, 3.440768561516054*^9}, { 3.440768624541299*^9, 3.440768677937708*^9}, {3.440768745237956*^9, 3.440768783247244*^9}, {3.4407698053902187`*^9, 3.440769866762312*^9}, { 3.440770143074379*^9, 3.440770145175685*^9}, {3.440770204116376*^9, 3.440770370246828*^9}, {3.440770426726913*^9, 3.440770620588566*^9}, { 3.440770900955824*^9, 3.440770901429399*^9}, {3.440771784853125*^9, 3.440771808151024*^9}}], Cell[BoxData[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"Unleveraged (\[Lambda] = 0)\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"Leveraged (\[Lambda] = 1.5)\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False]], "Output", CellChangeTimes->{3.440771809422571*^9, 3.44077379158151*^9, 3.440789544601956*^9, 3.440795347967516*^9, 3.440869253771008*^9, 3.4410580808338547`*^9, 3.441064304801847*^9, 3.441124262657426*^9, 3.441131304298971*^9, 3.4413826232146807`*^9, 3.44191067513325*^9, 3.441989162952948*^9, 3.442010285961493*^9, 3.442010325160007*^9, 3.442934721173267*^9, 3.442936327636031*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gDistributionPlotLeverage", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0.1", ",", "0.12"}], "]"}], ",", "x"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.2"}], ",", "0.3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[Tau]\>\"", ",", "\"\<\[CapitalOmega][\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ RowBox[{"1.5", " ", "0.1"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "1.5"}], ")"}], "0.03"}]}], ",", RowBox[{"1.5", " ", "0.12"}]}], "]"}], ",", "x"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.2"}], ",", "0.3"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick", ",", "Dashed"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"\"\<\[LeftArrow] \[Tau] = \!\(\* StyleBox[SubscriptBox[\"r\", \"f\"], FontSlant->\"Italic\"]\) = 0.03\>\"", ",", RowBox[{"{", RowBox[{"0.062", ",", "0.075"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"gLegend", ",", RowBox[{"{", RowBox[{"0.2", ",", "0.25"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.03", ",", "0."}], "}"}], ",", RowBox[{"{", RowBox[{"0.03", ",", "0.95"}], "}"}]}], "}"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.4363029468229113`*^9, 3.436302973595253*^9}, { 3.436303151140587*^9, 3.43630315740193*^9}, {3.436303197826992*^9, 3.4363032915984583`*^9}, {3.4363034594575157`*^9, 3.436303469480824*^9}, { 3.436304216345395*^9, 3.436304298404512*^9}, {3.4363044191246*^9, 3.436304420887752*^9}, {3.436305116453864*^9, 3.436305118630187*^9}, { 3.436305787685955*^9, 3.436305789009193*^9}, {3.436305833883243*^9, 3.436305854931978*^9}, {3.4363058989465303`*^9, 3.436305901868067*^9}, { 3.436316042551641*^9, 3.4363161855915194`*^9}, {3.4363162176292267`*^9, 3.436316300264286*^9}, {3.436316333613159*^9, 3.436316335913072*^9}, 3.4363168746349583`*^9, {3.436318039472857*^9, 3.436318082017715*^9}, { 3.436318516105275*^9, 3.436318516654269*^9}, {3.436319047926125*^9, 3.436319050999082*^9}, {3.436319286518778*^9, 3.436319291691661*^9}, { 3.436320402232518*^9, 3.4363204281449137`*^9}, {3.436320669500977*^9, 3.436320670013652*^9}, {3.436321066389307*^9, 3.436321080837084*^9}, { 3.436472061333077*^9, 3.4364721082283278`*^9}, {3.436475007081602*^9, 3.4364750645555143`*^9}, {3.436477068876782*^9, 3.436477084038415*^9}, { 3.4364771258750877`*^9, 3.436477135821993*^9}, {3.436477177260016*^9, 3.436477190244368*^9}, {3.437215812098621*^9, 3.4372158125714197`*^9}, { 3.4403528690182447`*^9, 3.4403528706400757`*^9}, {3.440460066658639*^9, 3.440460079406454*^9}, {3.440771706159986*^9, 3.440771735360202*^9}, { 3.440772142146188*^9, 3.440772183095718*^9}, {3.4410641513921413`*^9, 3.441064299398954*^9}, {3.441064330548943*^9, 3.44106441328664*^9}, { 3.441064721312347*^9, 3.441064731183572*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwVknk81HkDx62dHJFKrtL2MHrKWVllexx9VMuiVxhRrhXCRHIlPcSaaiap xlhDrs2qTc7IJo3t+Aqjkfs3yn2UVkI/7NoWHfv0/PF5vV/v1/vfj25AhGuQ rIyMzLHP+z8lvZXncnKayYNW1iOniDgoCh/qCjOaCYfhvfXZ+Tg47m8hlwXN RBi8eyw8Pw6tj8ffJ/GaSd/OfPvBtjh0lX4VExzVTCbn+xMLTOLRn3Ap0Myh mfQ0JDj2z8ZjWodt27YgITNfyQuizydgdcgG+S88JGRMhcm0nUvCJt6qqFRX CelIiC6wUODA6prsgPZ+CSm5479mVJOD4L7xCvM9EhKW/6XjgW84eOBQeTDM WELSNqyVG4zl4Kihzc0eGQnZNntkc9ICB3VT/rYVJU/IOpIc5yJ3FuHhhee8 3zeRJFNmsqsTF9qfnDxs3zURm91srqMfFxL+gvHWuSZywbnG3yWaC+atfc9l XzeRXT5HRnhXuOiZmtMvpZoIw8B3MHuEC5uQXe0LJU3k6Ik1GcExPKgG9mhd 8WgirL7ckyPF53HPU7Gi866YXFAfGrdDCoLL21d03xaToNObW9PcUqD2j/B4 T5mYJOVaWE2GpCDyxgaT4Wti8vbCuhctGSkwnDErn+KLieuclvW+qRRc5fqW ygWLif5A3d49eRdxrvLOTSsNMeFXtrBd5S/DeZnvz8WxjYTTE/1AWVUAqla+ BVGNxEbL1qXcRAC38Kp3z481koLq5Ut+DgJ49TCclvk3kjqiXK94RoDAkrIP /vs+e6BRstecAPH7Fz21dRqJy141edljabiRmaGW2txAVgm6cycO/Yilf7ek nFjfQFy6K/lr3YRQczLWYWs2EL9DqXHXjwixNZZf46XaQNL+817W/IQQgU3O Y7sVPvdxMSMxXYi24G6rVfP1pPM7b79LXUIUFA3NlLfUk9FMR98KVgbsDGbd x+Pryez37IXtXplIN1ZnevY9JmlH1MN4/CxYF5+6Y3q6jqTF/yUufP8TwiWZ mv12j4gW91WXTuE1WCq/0zsvvk8mht7Z7VhTiC0WyUwtlVoiEizTrwkowZIZ lTDCrSEeGmV7OxgVCKz4FBimUE3W/+Vra5hVhXlVH4y4V5EwNw/LyoZq/HZ+ fFLll1tkQm4g+8BaEfrux1oabSkmOv3LOmI2PoDZH81FFHWdrLJmb7ayr0Mi RzeruSiP9Eau/ucAvx4m4ugiXlcaGfxWgpxdYjB+L8/16YwnF67n68YvPoFd cYDtJ7koeHwMNThr2IJB9Vt6Moqp8P3hbopbcjuCrY7rHVPJgfHQlkeb6E5c Z+qYH164hgB1c9brZxQOr9TQ27CiCLJzX67489duvFyyn2cplCP0xeIObvZz KCvyZwfv3QZjca+CpagX7RLLS97Wd0DRYB+o60dofq3Z/MJdxLNKp999HMTR P92dnhSJUJL125zSNyPgJ+xcEaR/H20Zm6KLCkdxWXuyb/3IQ4z6Hdb7u/EF PP+OLOwwqwMtYEwotb9Evs4HjYqoxxAU6R3e2zaGju5wQc7TerAdtfZsHXgF tV8YXqHKjRDGj/BH23+H3YczRvYhYpzT/LEyq3UclyKYzkqVTahlyW0Pq3iN s0yq7Bj9BNmWQwMxnAkE+YWs7LNvxt10ldtVB9/AR6QnNrr8FDwlA1Wn1ZOw yROfuTTZgmtZLMPM1kk8exh76sKeNng7ln1tcHIKPyw5ktBz7bA3StKkGNNY Uy+n4jXSAX1zywT59GkMdUUf0kzvROCT3ohshbe4+DLkWxfTLriNPdOYiHyL W6Lu6pXDXaCq/K1Dn71FvzarfXcShSSeaYySPo2aTpFw9VkKE06B64MMaKTz dDxfcCmEnXb++NCQhsPMzBjnIgU73YDQ4yY0RPWpiySTQtrFLxbrv6ZxJaR1 465yCo3DuRsdrGm43vvutEUfBY9hu7wGFo0tYZU2ywcpmPWKRhkHaCzX1ZTr H6bwR6aQbetG4/HF8bS4VxS2W/xk0XiQxjZf3k3RDAVH09KPIm8aKssauszl pMjrdN+RFERjstYwS05RildmLr9WB9NoCk/3ea4kRUDtupNv2DQSe/1fn1wt BV/Lss0llMZ0mczH6vVSfDJld2hE0JD4Ha3n/kuK7YkFZ+0iadxQ70x2Y0qR EjeaeDKKhnfSz6rzm6UYdUjb33WChvl2+d4GQ+nn36YyP8XQUH0TflVoIkXV 0Qobw1ga9NXnAUe2ScH6fmex+ykaT1136ZuZSRG8FO3J+S+N/wGx2Fqf "]]}}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwVxX041AcAB/BbTx2HLqy8lOScyjJ2ujIRX/WUpFFZnhKVREhdWCnLVELl LVHJPHKpnHFeKnSIH6eLO+H8rpR3yUv3y2jNIsK2Pz7Ph+Vz0s1vHo1Gc/nP /ze8KbqUni4lipsjo78w+WCkVrFSb0gJTdeUld06fDi7NBIJ16TE5GTxVJ0h Hy9qh6bPx0gJvW3iLRkWfLTmLT91NERK5Pbohwa78tEREe/L3S4lgidnaWVJ fIwY+W9tmmwgks1ZvBKtu9AKNFT5Zl8D0ed4QviIlQ0e78Elz+nnhObmHC3b rPt44sEolJdKiAsutpSKpQA7FxzMyg17Rmh2WKX5j/+BqZWNV38xqCOCxZFt E3YFSPl+ibFHey2R7KjPuPhTMexyzzy2PFdDiITX9R2dHoHXcFO3w7GaEK16 qsjxL4Gtxmd2rKSSOMsYSHRLKIOFzWVjPWY50ccqCOQzyzHFJSN6o8uIhGGz 0lU3KuFbOOt7XLWE8B3T+XHNhmqMa3uh1/0hQVs8KDV5UIOK2CGKea+A6ApY UJNgJkZ7ZZitmUUu4VBzfceuP+vA/SQVkGQ2sUWfM9dTK8FvF1hpUkEGsepj /pHRpHqYS0IFMa3JREVQGEc9U4r5g8LfveS/Ems/jBaa8xvhmOuzdZYeguRt P2+YHm5C15ICNo2RBLaBeq/hCjmObjzBDmKmw/MEe9eIQyuyjY2sDk3eheup 8RT7WBKHFumwDRcKoMHh7W8gFOifchrfrSqEdVqGLH/6JTQYiR+7nhRDLYAl 0PBsQ3ODbbyn3WOIOeHBDnmvcexOOXd8shSDpb5FZwzaEfC3u2u9QATdrDxl S2IHEiOsF/qZVsL5pFwtlupEwjKq3aC3Co0CjddLA7rhMRH8oIVbg3nzj+cc be7BHaOvOoUhtbgtsovcqtuHlpe8a+kyMUw/rq+xbevD4nvz9x/TeAalMGum 9vJbOH69aOYUKAF9bWNVn2M/4k8a71Qveg53oXvWlYl+RBmT+UGj9fjQbqmM yX4HP+/ARe1OUozSpu5P7xuAl4gtMUuQ4QDj0dw/cwNwyJBcjKcaES7XtJcW D+JVVdiZK5ubIJi4u6PKYwiRU87EsUvN2M4ZVm3+NIRvxXTm/t4W1H3V6w1J HUZ3a+he3RQ5HrsLKpaZvEdcf+CWXZatsGTkyEqE71EgelmyqKcVeTKXoFc2 SnQs29286TyJmrgK2q1yJcrkolStKBJz+X8NVlcqkRJj5PE2msRMVObe4Sol to+NvbsQR8IslNNnJVZCJE76Qtwk0ZnpFiOXKXEr8IWJvZCEPHK93minEm5P tp2zaSfxsJr5HTmjhMXxIge1LhJ+d5YnjswpocbSpXf0kHjfIIigz6NQGzeU HD5AIqBTe9aaToFzMCZHNEZC+8DVq7eZFJgL6lqt6AqEOrtXbVpBgSpfk0Zn KGB2Vq1tD4vCc16KV5u6Airur8L92RR+e3N4+LSWAhGNN3ziV1MYyafNlBgo sE62VNT0A4UG7wBx9AoFuCu7TbstKdxfIr+8x1gBNf0rJiNcCp7ns7THVyuw 0zvqqao1Bat1Km/q1ihgYFK/T8eGgraSl5lqrkD44d7z7I0URjPbfI5wFPD+ LLHk2FOQudmbcrkKDLec5m10oPAv5CBxeA== "]]}}, InsetBox["\<\"\[LeftArrow] \[Tau] = \ \\!\\(\\*\\nStyleBox[SubscriptBox[\\\"r\\\", \ \\\"f\\\"],\\nFontSlant->\\\"Italic\\\"]\\) = 0.03\"\>", {0.062, 0.075}], InsetBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"Unleveraged (\[Lambda] = 0)\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"Leveraged (\[Lambda] = 1.5)\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False], {0.2, 0.25}], {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[{{0.03, 0.}, {0.03, 0.95}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->False, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox["\"\[CapitalOmega][\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"Effects of Leverage on CDF\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Unleveraged Return ~ N[0.10, 0.12]\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, PlotRange->{{-0.2, 0.3}, {0., 0.9522096392682442}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.44106419899664*^9, {3.441064232672173*^9, 3.441064264499173*^9}, { 3.441064301042541*^9, 3.441064413652155*^9}, {3.441064722111196*^9, 3.441064731639977*^9}, 3.441064837278933*^9, 3.441124262821535*^9, 3.44113130436311*^9, 3.4413826232785673`*^9, 3.441910675242776*^9, 3.441989163059519*^9, 3.442010286028825*^9, 3.442010325236659*^9, 3.442934721270689*^9, 3.442936327789177*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gDistributionPlotLeverage", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.436306043259387*^9, 3.43630608145682*^9}, { 3.436306112670165*^9, 3.436306121457307*^9}, {3.436320768005124*^9, 3.436320775928322*^9}, {3.4410648289525623`*^9, 3.4410648324639606`*^9}, 3.442010186276639*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gDistributionPlotLeverage.png\"\ \>"], "Output", CellChangeTimes->{3.441064841312274*^9, 3.441124264536888*^9, 3.4411313062100554`*^9, 3.4413826247729588`*^9, 3.441910677035676*^9, 3.441989164590918*^9, 3.4420102861168137`*^9, 3.442010326805345*^9, 3.44293472266866*^9, 3.442936329306765*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gOmegaPlotLeverage", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "0.1", ",", "0.12"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "0.", ",", "0.12"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[Tau]\>\"", ",", "\"\<\[CapitalOmega][\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", RowBox[{ RowBox[{"1.5", " ", "0.1"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "1.5"}], ")"}], "0.03"}]}], ",", RowBox[{"1.5", " ", "0.12"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "0.", ",", "0.12"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick", ",", "Dashed"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"\"\<\[LeftArrow] \[Tau] = \!\(\* StyleBox[SubscriptBox[\"r\", \"f\"], FontSlant->\"Italic\"]\) = 0.03\>\"", ",", RowBox[{"{", RowBox[{"0.03743", ",", "2"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"gLegend", ",", RowBox[{"{", RowBox[{"0.09", ",", "5"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.03", ",", "0."}], "}"}], ",", RowBox[{"{", RowBox[{"0.03", ",", "4.37"}], "}"}]}], "}"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.4363029468229113`*^9, 3.436302973595253*^9}, { 3.436303151140587*^9, 3.43630315740193*^9}, {3.436303197826992*^9, 3.4363032915984583`*^9}, {3.4363034594575157`*^9, 3.436303469480824*^9}, { 3.436304216345395*^9, 3.436304298404512*^9}, {3.4363044191246*^9, 3.436304420887752*^9}, {3.436305116453864*^9, 3.436305118630187*^9}, { 3.436305787685955*^9, 3.436305789009193*^9}, {3.436305833883243*^9, 3.436305854931978*^9}, {3.4363058989465303`*^9, 3.436305901868067*^9}, { 3.436316042551641*^9, 3.4363161855915194`*^9}, {3.4363162176292267`*^9, 3.436316300264286*^9}, {3.436316333613159*^9, 3.436316335913072*^9}, 3.4363168746349583`*^9, {3.436318039472857*^9, 3.436318082017715*^9}, { 3.436318516105275*^9, 3.436318516654269*^9}, {3.436319047926125*^9, 3.436319050999082*^9}, {3.436319286518778*^9, 3.436319291691661*^9}, { 3.436320402232518*^9, 3.4363204281449137`*^9}, {3.436320669500977*^9, 3.436320670013652*^9}, {3.436321066389307*^9, 3.436321080837084*^9}, { 3.436472061333077*^9, 3.4364721082283278`*^9}, {3.436475007081602*^9, 3.4364750645555143`*^9}, {3.436477068876782*^9, 3.436477084038415*^9}, { 3.4364771258750877`*^9, 3.436477135821993*^9}, {3.436477177260016*^9, 3.436477190244368*^9}, {3.437215812098621*^9, 3.4372158125714197`*^9}, { 3.4403528690182447`*^9, 3.4403528706400757`*^9}, {3.440460066658639*^9, 3.440460079406454*^9}, {3.440771706159986*^9, 3.440771735360202*^9}, { 3.440772142146188*^9, 3.440772183095718*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwVynk41HkAx3FpwqxyLoYxDdLyKClHifh8UXJMrUi1pQOVSqFdHVupVpdY 91UUU3bCEBrHjEk/S7QeNsdaTzYs0g8TIqWSYts/3s/rn7dhQKj3AXk5OblN X/tf09LTk37MpY52+Z1J98oNiOdhXimTNx/rcN7SWmRAdl5O4vd6aiJrPRVf W2RA+hNt0hs9l6Bh2j+yP9eACFjXNH73tMJwW5SLaYYBUey2aJV6umBgdEb1 n/MGROLAsJB4+qBseVPeEzcDkhAS8m+FZyCC5e2DEx9xiYeTWfBJdjjaXgm4 M4zF5Oo6qZDfG4FTfbGO8y7qk20xz2V7Ky+h7CZbGqHNJgm+XTdaXkUhNlU3 mZejS4JuCGVXH8fCr3kD+9QuFrG6dd5MNTIRzc3SFR7KOmQ0J1KPpZ2C79Vj TM+2a5GpoWNddRFpKKx9oTNX/S1JeJ6R7697EzHnrtuxBJrkLLPY7W5UJjRX 8g4qFWgQ7gTHiD9yGwey7Lx9a9VJgXMQY6MTHy/YoaOK7WokdJlVX/zJO+Dn 7s94MatKzo1k17bW30W33qc3rjwVEqRo5zyh8huM38eG50kWkp9rNgr7nQSY f7xHUOSjTDq837Oa4u6h7ZJoafxLJtkRyQq7Wp+L5LzuLnG2Ell6vevpWu18 ZG6wTNL2ViQtI00NTfuEkPFWerD0FQh/1KLQIrUAlweEqVXMBeRhnXVazEAh IhqFxSnj88kXu/uHKtlFiF4mCK+ZkiecRT6d9ZuKEagUpzO2UJ64dPFMaF4J Zri2s2aceUR5Ln9b61AJGgTyy5+5yZHTcduvi+MfILT9yOzn7ln83ZT5TZy1 CMXZpdwO1y9w6dS9uKlZhDUyL4FW7wy2ew1/VDpRikWaRwILj37ChfSJA/fV yiAfw7l4wngaab/GGzrll6EgvPmvLZMf4D12vq91czlSzM/1iCvew5CTl+wu K4caV8uGmT2FVImhB5VQAT/BvCHOhXfgLOl4xzYXoyLejNl34S2S7bmvDz0R 40ibXBOVOImi6spXD45K4B61VdHr1hv0aMR1DShWYltFgFRcO4EHbaIW9ZJK +PBNbaPrx/GTY4iGha8UC8b9amKNX8P9TKC7zbgUjImxPZ2iUdQZ5l9ak/YQ 16yGN8tsRuB9w1RkZFmFR59qtqq+lKGlytHiS2MV1D74/1iSN4w3PEFxe9gj zCo0fPYPHIJJ4QbjZGUKriV/9PY4D8I23ZbrqkJB2m8YNuUwCLfIZXrTahSY 9faaKmsHcWiHutpebQr2MmmCs8UghIyeGTNDCodLECBhD8J8d3h77WoK3bwf zJ69o2GlkhM56U8he843vzeXxvrp1AjBfgqtjnx93RwaW19Gnd4RRGFq8LtM nywa4dKQEOoohfo7nyVNKTQqDtrtjD5FwVrJ53jDLzTWVretMoql4EWM7rzd RcNDWLe8I55Cc3lcocN2GjtTxSZRSRT2nYiujvKmcSb4Nud1OoWTAa4zhu40 qnQOM6V3KTxtCXu8bzWNP+X9GMcEX3/Nj4zSVTR6xjbPcfMoMPQdeArmNGYf W09duU9hj5g1UryEhkqxyYRtCYWHUfbOClwaizP0RkZEFMJuWWft1qOx4sqi waxyCnOWjbPlWjQQJte/RUKBk1EbqKpO4z8LcUwn "]]}}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwVjn8803kcx+fHxahhnR8b0jjp0nLXdC2q98ePig0XLlPp0eW31HKXRJo6 vxKFyDid3y22/JwyW/r6ESlq05V0nLOd8rMfalNUcu6P1+P5eP7xfDxelMBj PiHqOBzOc2n/c21j7LsAvPV2s6KMOMsRMmJGeDTiPTTAf2755dghMtqXnFM6 wlwJ1Eg/mmyAjBSXNuX3MK1gPOXdIqePjHgm54htTBqsbF8jU7STkdbfdn0S pgtE4F3sO66SUfM2Tbtmpi98VulkvzhMRtls9j9NzCBQ9I57CudIiOG0LjLG NBrKkoKaxrVIKHWrRFA6wgHHONtqRzsT5JcxOHlQnARM6upAaqAxyt4zVCCb SoPu4v1utRlGKKxAMJl65yI8aftrWU2PIaL9kbBOL/ESvOh+eg2vZoheViSS TYwug+HEgdVhzl+j2fGjQ50cLoRe3sGQc1ei7MFC/iHS72C7f9iMM0pE8fg6 t/K0K2CxlVu26EREFjPmlqXTRSCO/EA15Bug685hmrucSqG7f71qQdsAHbOl ybNiymCbqqpSEauPTk+XdPR1lUNOYZtjaKceCtNycJ4hXAVWR/VD70oCimvf JVA48YD61hNrurYC9fu8N+nNvAZlwR3RlMLlyD/RJCq1qxKe0Vb1Q5Uusj4/ 9HCLER+czB6EhFzXQbLp3nu9PwuA0Dpra9OCR6Uv7art8q5DaKPcoOm5NrrV ac/NGK2G4fvCDlcNbbTgUBMuNq2F5CqcYg1dC5mv8H3W5VkHVrdlVXUnlyGX IQ+bFx718DRmmath7VdId5Hv1zdeD9KBXXoxc5ooNpN1XpTVAEVZFqwTDpro Se8VnUx7IVR8K40vSNVALs9IZz2lQjBOyDia+1wdsXZPzGmfaAS3StLuSQd1 dCZ/JqRG/wY4t1ccxpWrIe6FLIoT/wbs9ZIKlhuoIZ9XCfI+r5sQ312eYxqH QxTzqlz3yZuglxfhd1C+CHnNFAaW3QSkvL1nG9q/gLlVv8qUKoI1f7rtcWhd gFxHi9fhd0UQRellU3s+Q22reKrhSDMkdh+mBd//BMPEzKFRLTFYN/p2jis+ QsMjocygXgwfpWMDV9/Mw/HtbKLdHgmweCP3NujMg/upIPdNbySQ4C1J3e84 B50UftJm7i3oTheLhIEfwKdgrdByYwvUBrS7eJe8B1nLdruFnhZIJnhNaYzN wlsPXt3jqNuws4DYKLKaBZvqHd/k6mJQ8pux67loFdDz6RY7CRjEev1omvqL CtwSbcnz+hjwOauDU9gqCPc30D9ohIGCwGCkhKtAoDn8aR0Fg40TA6HpASqg Hoh+3PEDBtndTx/xXVVAI1QkvjuEweYY4Yethipwnc/j8IKX+hujcneiCn56 nhbrH4ZB678ZW1h6KoiWsNnYEQyKf12gH8eroCnUYV/6SQzody+w6xeUsKX1 0feWF5d6s1IejCmBIehc35+FQe3g3gTfUSXsyxPZpOVgcJ7F6QqTK+FUZJH5 6/wlL8GKLw0qocU4Ai8px0D3hF/8lFQJD9QDNI/yltw6vUvtgRKGX3ktWlQt /f1UxiHdV8KXO/azKTUYTJxx3My4owRCnc0MvR6D6fEr9KA2JawqJE9PCzEw mSyqPH1bCRtSVowV38Tg7th3yVyJEiAKp/BuxmBsp6u0XqSE/wAZlU+V "]]}}, InsetBox["\<\"\[LeftArrow] \[Tau] = \ \\!\\(\\*\\nStyleBox[SubscriptBox[\\\"r\\\", \ \\\"f\\\"],\\nFontSlant->\\\"Italic\\\"]\\) = 0.03\"\>", {0.03743, 2}], InsetBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"Unleveraged (\[Lambda] = 0)\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"Leveraged (\[Lambda] = 1.5)\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False], {0.09, 5}], {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[{{0.03, 0.}, {0.03, 4.37}}]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->False, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox["\"\[CapitalOmega][\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"Effects of Leverage on \[CapitalOmega] Ratio\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Unleveraged Return ~ N[0.10, 0.12]\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, PlotRange->{{0., 0.12}, {0., 8.354786480853921}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.436316869635981*^9, 3.4363175354632463`*^9, 3.4363180736726933`*^9, 3.4363183281191273`*^9, 3.436318776072473*^9, 3.436319265468109*^9, 3.436319490017054*^9, 3.436320835123266*^9, 3.4363213527645197`*^9, 3.436322537646687*^9, 3.4364721103464518`*^9, {3.436475016583679*^9, 3.436475065257543*^9}, {3.436477070096653*^9, 3.4364770843592167`*^9}, { 3.436477126193597*^9, 3.436477136093145*^9}, {3.436477185384139*^9, 3.436477190835518*^9}, 3.436484718068424*^9, 3.436488317682661*^9, 3.436622826040077*^9, 3.437159323529983*^9, 3.4372158152289457`*^9, 3.437963055049054*^9, 3.43836691591166*^9, 3.440273074739583*^9, 3.440327139263496*^9, 3.4403469895596733`*^9, 3.4403528724339314`*^9, 3.440459707251793*^9, 3.440460080638196*^9, 3.440764106690959*^9, { 3.440771717643188*^9, 3.440771736052157*^9}, {3.440772157239175*^9, 3.440772183822589*^9}, 3.4407737917297077`*^9, 3.4407895447676277`*^9, 3.440795348154271*^9, 3.4408692538169737`*^9, 3.441058081017004*^9, 3.4411242646732807`*^9, 3.4411313063773823`*^9, 3.441382624930387*^9, 3.441910677209629*^9, 3.441989164794038*^9, 3.442010286179511*^9, 3.4420103269443827`*^9, 3.442934722797752*^9, 3.4429363294924498`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gOmegaPlotLeverage", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.436306043259387*^9, 3.43630608145682*^9}, { 3.436306112670165*^9, 3.436306121457307*^9}, {3.436320768005124*^9, 3.436320775928322*^9}, 3.442010190501893*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gOmegaPlotLeverage.png\"\>"], \ "Output", CellChangeTimes->{3.436320878428535*^9, 3.436321354194964*^9, 3.436322541451846*^9, 3.43647708957994*^9, 3.436477141168977*^9, 3.436484724332397*^9, 3.436488319187276*^9, 3.436622827540957*^9, 3.437159325089108*^9, 3.437963056480649*^9, 3.438366917378211*^9, 3.440273076192636*^9, 3.4403271408071127`*^9, 3.440346993526834*^9, 3.440352877155534*^9, 3.440459708735708*^9, 3.440460085770033*^9, 3.440764108070712*^9, 3.440772203280676*^9, 3.440772289309713*^9, 3.440773793385255*^9, 3.44078954653941*^9, 3.44079534968722*^9, 3.4408692552376747`*^9, 3.441058082917431*^9, 3.4411242661029863`*^9, 3.441131308111761*^9, 3.441382626352954*^9, 3.441910678740299*^9, 3.441989166325473*^9, 3.442010286251883*^9, 3.442010328508378*^9, 3.442934724176149*^9, 3.442936331013875*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Finite mixture (negatively skewed and leptokurtotic) w & w/o leverage\ \>", "Subsection", CellChangeTimes->{{3.436489867575593*^9, 3.436489876292828*^9}, { 3.436622425489932*^9, 3.436622438789132*^9}, {3.4407723548688173`*^9, 3.4407723640786552`*^9}, {3.4407730020464067`*^9, 3.440773028870425*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"mnCmx", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"0.95", " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0.13", ",", "0.085"}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{"0.05", " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{"-", "0.12"}], ",", "0.15"}], "]"}], ",", "x"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.6"}], ",", "0.6", ",", "0.001"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mn\[CapitalOmega]mx", "=", RowBox[{"xEmpiricalOmegaRatio", "[", "mnCmx", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x\[CapitalOmega]mx", "=", RowBox[{"xInterpolatedOmegaRatio", "[", "mn\[CapitalOmega]mx", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4364886364615*^9, 3.436488690706395*^9}, { 3.4364888237179527`*^9, 3.436488826252903*^9}, {3.43648886022647*^9, 3.4364888705011683`*^9}, {3.436488968596327*^9, 3.4364889716860027`*^9}, { 3.4364890212128487`*^9, 3.436489025097246*^9}, {3.4364892170090733`*^9, 3.4364892272275763`*^9}, {3.436489682276868*^9, 3.436489706799964*^9}, { 3.436491569352363*^9, 3.436491587727995*^9}, {3.436491713138064*^9, 3.436491717848775*^9}, {3.440793754946665*^9, 3.440793755144421*^9}, { 3.440793853631461*^9, 3.440793853966638*^9}, {3.441072548581415*^9, 3.441072549093808*^9}, {3.441073496389307*^9, 3.441073504526284*^9}, { 3.441073720556827*^9, 3.441073725069105*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"xFiniteMixtureMomentSummary", "[", RowBox[{ RowBox[{"{", RowBox[{"0.95", ",", "0.05"}], "}"}], ",", RowBox[{"{", RowBox[{"0.13", ",", RowBox[{"-", "0.12"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.085", ",", "0.15"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4364894768512497`*^9, 3.4364896448888197`*^9}, { 3.436490406950439*^9, 3.436490549797064*^9}, {3.436490628086287*^9, 3.436490656131239*^9}, 3.436491406134612*^9, {3.4364914438155813`*^9, 3.436491531603559*^9}, {3.4364917263620453`*^9, 3.436491729735001*^9}, { 3.4403497137828608`*^9, 3.4403497686056843`*^9}, {3.4403498026685667`*^9, 3.440349811041589*^9}, {3.44034986538018*^9, 3.440349865814947*^9}, { 3.44034990335264*^9, 3.440349904000802*^9}, {3.440793719077497*^9, 3.4407937193707*^9}, {3.440793856942738*^9, 3.4407938573786917`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.1175`", ",", "0.10467807793420741`", ",", RowBox[{"-", "0.6681065516803202`"}], ",", "6.421364103598786`"}], "}"}]], "Output", CellChangeTimes->{3.441071945106214*^9, 3.4411242681264133`*^9, 3.441131311023574*^9, 3.4413826283209267`*^9, 3.441382690576045*^9, 3.4413828628177223`*^9, 3.441391836872344*^9, 3.441910679059909*^9, 3.441989166646546*^9, 3.44201028649925*^9, 3.4420103288014917`*^9, 3.442934724451871*^9, 3.44293633132826*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "0.1175", ",", "0.104678"}], "]"}], "\[Equal]", RowBox[{"x\[CapitalOmega]mx", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0.15", ",", "0.1", ",", "0.2"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "0.1175", ",", "0.104678"}], "]"}], "\[Equal]", RowBox[{"x\[CapitalOmega]mx", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0.07", ",", "0.05", ",", "0.1"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.440460499948547*^9, 3.4404605021190357`*^9}, { 3.440460623080405*^9, 3.440460689076549*^9}, {3.440460763489147*^9, 3.440460766737821*^9}, {3.44077400105541*^9, 3.440774030565263*^9}, { 3.440775766024468*^9, 3.440775767510067*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", "0.11055384598626875`"}], "}"}]], "Output", CellChangeTimes->{3.440460709947742*^9, 3.4404607671377974`*^9, 3.4405480855607567`*^9, 3.440764094241436*^9, 3.440766364676755*^9, 3.440770730549038*^9, 3.440770983178273*^9, 3.440771359613757*^9, 3.440771396234087*^9, 3.440773795630351*^9, 3.440774031203144*^9, 3.440775769272832*^9, 3.440789548931707*^9, 3.440795401482976*^9, 3.4408692574126453`*^9, 3.441058085914893*^9, 3.441124268183297*^9, 3.4411313110869207`*^9, 3.441382628427991*^9, 3.4413826906392097`*^9, 3.441382862879842*^9, 3.441391836949196*^9, 3.441910679176558*^9, 3.441989166751526*^9, 3.442010286577982*^9, 3.442010328880598*^9, 3.442934724513438*^9, 3.4429363314447193`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", "0.057640376668346545`"}], "}"}]], "Output", CellChangeTimes->{3.440460709947742*^9, 3.4404607671377974`*^9, 3.4405480855607567`*^9, 3.440764094241436*^9, 3.440766364676755*^9, 3.440770730549038*^9, 3.440770983178273*^9, 3.440771359613757*^9, 3.440771396234087*^9, 3.440773795630351*^9, 3.440774031203144*^9, 3.440775769272832*^9, 3.440789548931707*^9, 3.440795401482976*^9, 3.4408692574126453`*^9, 3.441058085914893*^9, 3.441124268183297*^9, 3.4411313110869207`*^9, 3.441382628427991*^9, 3.4413826906392097`*^9, 3.441382862879842*^9, 3.441391836949196*^9, 3.441910679176558*^9, 3.441989166751526*^9, 3.442010286577982*^9, 3.442010328880598*^9, 3.442934724513438*^9, 3.4429363315092707`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"nL", "=", "1.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mnCmxl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"0.95", " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ RowBox[{"0.13", "nL"}], "+", RowBox[{"0.03", RowBox[{"(", RowBox[{"1", "-", "nL"}], ")"}]}]}], ",", RowBox[{"0.085", "nL"}]}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{"0.05", " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "0.12"}], "nL"}], "+", RowBox[{"0.03", RowBox[{"(", RowBox[{"1", "-", "nL"}], ")"}]}]}], ",", RowBox[{"0.15", "nL"}]}], "]"}], ",", "x"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.6"}], ",", "0.6", ",", "0.001"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"mn\[CapitalOmega]mxl", "=", RowBox[{"xEmpiricalOmegaRatio", "[", "mnCmxl", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"x\[CapitalOmega]mxl", "=", RowBox[{"xInterpolatedOmegaRatio", "[", "mn\[CapitalOmega]mxl", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4364886364615*^9, 3.436488690706395*^9}, { 3.4364888237179527`*^9, 3.436488826252903*^9}, {3.43648886022647*^9, 3.4364888705011683`*^9}, {3.436488968596327*^9, 3.4364889716860027`*^9}, { 3.4364890212128487`*^9, 3.436489025097246*^9}, {3.4364892170090733`*^9, 3.4364892272275763`*^9}, {3.436489682276868*^9, 3.436489706799964*^9}, { 3.436491569352363*^9, 3.436491587727995*^9}, {3.436491713138064*^9, 3.436491717848775*^9}, {3.4364934852936172`*^9, 3.436493557180175*^9}, { 3.436493751498308*^9, 3.4364937516593924`*^9}, {3.44054807242502*^9, 3.440548073384551*^9}, 3.441384932293827*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gLegend", "=", "\[IndentingNewLine]", RowBox[{"Framed", "[", "\[IndentingNewLine]", RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "0.1"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"70", ",", "Automatic"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontColor", "\[Rule]", "Red"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Dashed", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "0.1"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"70", ",", "Automatic"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"Darker", "[", "Green", "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Green", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"9", RowBox[{"{", RowBox[{"0.015", ",", "0.0", ",", "0.015"}], "}"}]}], "]"}], ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "0.1"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"70", ",", "Automatic"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "->", "Left"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.440768378762293*^9, 3.440768561516054*^9}, { 3.440768624541299*^9, 3.440768677937708*^9}, {3.440768745237956*^9, 3.440768783247244*^9}, {3.4407698053902187`*^9, 3.440769866762312*^9}, { 3.440770143074379*^9, 3.440770145175685*^9}, {3.440770204116376*^9, 3.440770370246828*^9}, {3.440770426726913*^9, 3.440770620588566*^9}, { 3.440770900955824*^9, 3.440770901429399*^9}, {3.441074588183249*^9, 3.441074594580447*^9}, {3.441075931663457*^9, 3.441075967963489*^9}, { 3.441076349303772*^9, 3.441076391477153*^9}, {3.441382446049185*^9, 3.44138245254772*^9}}], Cell[BoxData[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"C\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], GraphicsBox[ {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Dashing[{0.135, 0., 0.135}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False]], "Output", CellChangeTimes->{{3.440766143820293*^9, 3.440766156674638*^9}, { 3.440766191702936*^9, 3.4407661980243187`*^9}, 3.440766368386012*^9, 3.4407709019385157`*^9, 3.440771020854117*^9, 3.44077136329843*^9, 3.440771399899212*^9, 3.440773799024198*^9, 3.440789552928609*^9, 3.4407897055505533`*^9, 3.440795423093294*^9, 3.4408692607355556`*^9, 3.4410580900945044`*^9, 3.441124271683045*^9, 3.4411313153982983`*^9, 3.441382631831562*^9, {3.441382676209485*^9, 3.441382694625965*^9}, 3.441382866625506*^9, 3.4413830830126534`*^9, 3.441391837123032*^9, 3.441910679528184*^9, 3.44198916709398*^9, 3.442010286751519*^9, 3.4420103290526876`*^9, 3.442934724701527*^9, 3.442936331769136*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gMixturePDF", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0.1175", ",", "0.104678"}], "]"}], ",", "x"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.6"}], ",", "0.6"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[Tau]\>\"", ",", "\"\<\[CapitalOmega][\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"0.95", " ", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0.13", ",", "0.085"}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{"0.05", " ", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{"-", "0.12"}], ",", "0.15"}], "]"}], ",", "x"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.6"}], ",", "0.6"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick", ",", "Dashed"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"0.95", " ", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ RowBox[{"0.13", "nL"}], "+", RowBox[{"0.03", RowBox[{"(", RowBox[{"1", "-", "nL"}], ")"}]}]}], ",", RowBox[{"0.085", "nL"}]}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{"0.05", " ", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "0.12"}], "nL"}], "+", RowBox[{"0.03", RowBox[{"(", RowBox[{"1", "-", "nL"}], ")"}]}]}], ",", RowBox[{"0.15", "nL"}]}], "]"}], ",", "x"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.6"}], ",", "0.6"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Green", "]"}], ",", "Thick", ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.015", ",", "0.0", ",", "0.015"}], "}"}], "]"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"gLegend", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "3"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdzk8og3EAxvGhZoeNzEgscZqlWHpX/kS9YumN0hQpNKvJmrXSOLCQg6Kl FrZF0lhJ/tQ4kLYUU0pmB1mTAyWz2WE52No/fs97ePrcnr7VaoNSk8vhcMRk UKrbCa5vhmlz03II/smqY3Dfk2Vtzj9PbhCnJUyOlfjVPSGDbSkfBctvH7TQ 3rltgCJXiRGmn9+mYKmzyAQ/LXlzsEw2e2AjnkaOWaNWZuDHEaZntlSD8HKp vlmyG6azKxU0VAgcChg843TByaG7Hkg9CkZgKu5Xw6SvWANbsoXz8EgaWITj WnkCijOZvBoij9u+BgOubxtk9LV2JX7NwzuwatR/CKkP/RGUzwrdfcR4a8oD F4TWAzfxJFZ0DE2bTsZD9L4zvdAh7PBdEVUiyg9FDZYX6E2GWC+agqX3RO5Y hLXr5roS8vt9rKs8wV1kj/TzLffQ+Kp7gkt1jQGYjsZ/YZQpSMB/sGj1JQ== "]], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwtm3k4Vd/3x2XKeENComTIVBFlCGcdIRKJTJU5lUqSeaqISjKkEBKiFJnn eZvneeYa7r0KUcoYH9PP93l+f53n9ez9rLPOe62191p/nKM2DwxuUlNRUT2g oaL63/PQVdZjsrKT6GmRXb+z01+Vc1JZ+lLSk0jBoNJLYPivyl06/UeSJyZR jK88H35uQaU4J6JPSHQSmX44xr2fb1HFkInPn/PQJDLpndQo/LOk4k2qyGTj mURKi9u/U+4tqyQVWo6wHJhEry8YHHs5u6zy1yb5FN2+SWTNnRZpt7CiElwm QVqhnkRgrygdJbKmkhfexry4Q0E2pW/d95etqYzcdpCf36Sg+9WmOQcN11XE OHNDp1Yp6Ox0JP2B8P9U6u0VVQZnKWhG1unOScUtlV/niHa90xREJVytb/J7 S4Xz4KOIzu8U1JkzwF75eVvFpr5qrnGcgq6JZJf3sVNh2/xascU9FMQ//xK/ 920PJrL8sz6/k4IMHj30/85Njem0vFrIbqOgHgP7rJnn1FisW6dWagMFmU6h lHZ7Gky+0/hfTCkFubXE6FRdpcMsPq8JRhVRkKQk/4j6KB323Dv20pt8CioY OiXUb02P9YmOfw7KpCBDNxZ9K7e9mKPvTUPvJArKXdL0k2xkxN4Z7/V1T6Ag jfkLWQdsmbDK46nfnOMoyOI7p/BnWmaMZfgXtX0UBRFUXJcZ9Fmwr6dccsyC dvVQVrxpcHAf1rmXa8z0BQV93jKf6O7fh62OFTEYBVDQX8b7FcYX2TD1oA1L 3ccU9MHN4vgfDnaMTHlKwJwo6EkH/5tnlRzY/DHOS+sOFCSnonlPS3E/9t/d zyH59yjoofi/R3xF+zHOpUYWyZsURKTMa2qUc2JaNKzMPKa7ep6TlOmY58KM NOO1ew0pqMF8I1IngBuzeSUVFKpPQVLrF1485efBfPYbMNJdpKDSyvXRh9cP YllC7/YuquzGSwPR7WXgw8pvi2lmnKWg+JekqakKPqzpW8lzO/lde50bdec9 +DGK7CjdhDQFcSsoKa7+dxjjUj9K2yZEQW+HA9qS+Y9iQoG5ai8EKMi2q/ay ZPBRTLpNzf8cPwU9eCvneW/rKKZteIu6hIuCdmjUFkxnBLFHtt+oUhgpSLfw /Z1+sjAW9FUZt6anoK7pPmsWOxEs6lf7Ez4aCprOLeMKWRDBsl3+br/ZJKPs A18Cygmi2PeAM1tP/pDRtUNJVUIu4thCU4Oy0i8yGo/26FnhksC2WUx9VmfI iI8cu4QqJDCeSK8NewoZ/RE6e/cD93Hs4me0frWfjPzUSqTUd05ipj8vKx7o IaPmnxEssXVSmO0JikdXBxlVdV2NMdOUxh4X0K6dbyIjevOX45M8p7Dc+gur smVkNGZWp6RClMEQI/HMnyIyUl5fdCgwkMXadO1d0/LJ6ElAVMG+dllsqj90 WSCTjE4EVylkt5zGDk71LrJ+JKO54bChhDk5jJcx8TNVPBl5SNxucXWSx/iO 25suxZLRw/33GfQ35bEjTrSVQxFkJM8TI339oCImsn36ZXIgGbU8YWHM8FLC jh3doxz1jIx0c/d3xRxSxsTU2+cDn5LRzfwIIf4qZUwy6Kahgw8ZRbgdeSXP iWGnuKKOKDqSUV3QCYanrjgmo2jTI3mfjFYFh8Jc+3HstNnJZ4fvkpGF3k+J IHlVTD6pYZbGlox2prunNKjPYSon/xV0mOzq96Yp2ipPDcP0a+2qDcmIzpZZ IV9EHcNdwg7l65NRYuzKqdBYdUytVNQv5iIZPcX+28MarIFdOG+qYwtkdGS4 RKI9TBPTviO8Y6xMRod32BtnuLUwneC/ORcUyei6HJ8UdbIWptcTyC0lS0bE +BhRx5oLmJFFCWX9GBnF2BE9ecR0MGO/Z5G/hMhIODz+906zDmb6SV9rQmB3 /e76z4cPdLHrsz8z6njJ6LlK1sK5+kuYtRuvZxhhN96/CITbnZcxm5gpyafM ZPTr2w5tvJQ+ZlueO+7CQEYmV75z/w7Xx25TX1S/Rk1GZoExQnvMDbD7od77 RFZJqP3ixH5dgiHmmTL6uXSMhGZ4ts+nzZhgnENH0stHSOg66c6fkPumWDbj jdzKQRLqTK3SwVdMsRn7n5U13ST0XFf8tg7rNcxUdnWwpZ6EODoqonKszbBl W8XxthoScjpWcLd42wx7HeXzvQOR0CDH9xssCeZY4zr1Qk8JCQX4xnCTf1pg clX7mIgZJGQn+o/7UL8V1rNgwDaWRkIMRs81O05ZYw5CUVwTX0hIQABbe/ja Gkt5zic0+ZGEzp+/bpV3xQY7oCuuPBdJQoZD905oLN3AlofPOWw8IiGjTd+O sMTb2Gvm5y5bXrtM4PLwOmqHHVdp9tpxJ6HErugJts922I1EvRc0TiTEuDXO 75F/B+u5ZZbIfIuEFLvp6WtW7mEO0QkprDdI6PtXkaexIfYYUwslfZ8VCcG5 ZssIsfvYuRN3SvZfI6EwFr8Px+0csJwl155Dl0hI4cDldPILR0xHpGSI/yIJ nS3f9FUmO2IzxpvjR7RIyK3n21t75YeYQOnTOaFzJFR0w/Hvw7WH2GvfMNrj ciQkebrjuGCgM+bAmiqnfJiEFv79ccT3uWN/04mXt3hJqDmPzlU30h17qEO4 V8lNQsVHVQ7qHfbAXF45J+DsJHT42c7ph4qemDcjxqBBS0I3WJetmaK8sc2v joL0e0hIXEql9+0ZH2zz9XnP0I0JpJG83hM35INR72OnvJmfQMcYns56ij/G 9jGn5L3vm0DOkTsD5318MQ5t5hn+jgn0+OKeA0eIvhjXS0e+xMYJFJUX3cGg 7Ifx7VV69ql0Aq1Vf0tQoX2KidF0GWckTiAe1jlBlyx/7NzG+nql/QTSO1Gu fsTnBaZx1vKk6q0JxF7nV9m7JxDT8qyzqbWcQAFlv23vBgViev9CWxsNJlCK +QKPz6eXmNmS0IcuhQnk1vbh99LWK8xS5mW3gcwEmtQJDvSKC8ZsHs7T9UtO oHEFVZfbWAh250+xw/DhCYTeV9aUB4dibnO6OIV2Aqk+8yvITXuNeUrkudhu j+/WQ7loFEM45nOHJ3Xq3zh6T14R9bILx/ynKexzs+Mo6uZ7DYeTb7DXk+6T S13jSFWUtE+57y2WSvz4nO7DOHo8GiXTH/4Oixry+bgaNY5OEmddTFiisaf9 JuXTr8fR51HPe+deRmPXOlkXmwPG0V7pK75+QTEYS62neaj9OIrFGerWv73H 1pChx5Nb48j1umDuAaU47Ee51FtHq3F0uT5TarstDqss/NFkYDiOlsYzTt1b /4A5pumf5lYeRxLT4qNHlBIxsy/H9RjkxtEzuzDHT6GJ2IVPe++uS42jnsD1 5abJREwwviKBKDSOnNOIEuxvP2J94eLMiczjSDj3wogffTIm77mHIkYcQ7pi fX1PtFIwYbfRzYP9Y6iNe9V7pyQFY3Mu4mbuHEN7ZCu1Mk982T0P7uv+rhlD rh+nt2sOfcVirYaLc9LG0AObS/v/7U/Dnpvn9yZ9GkOxORzjfNFpmPO1sPm3 8WPo13iQQMvhb5iOoYaw25sxJJFqSTsnm45ta+aEnfUaQ63LG5xJjzOxWfXg NEmXMXR3r9+WOU8WNqh6u57PYQxtv/5vm74gC8tW4t/Yth5DwgvDZd+8szEb qZe3ai+MIbds/EB1Vw5Wz2WtonNwDP2ly8/81paPPfrD61vGMYZupgrcV1Ap wM409dVIsIyha57KFuzZBdhnTy0txp1RdOh76/mBuELs2ajUlYbvo2ijrSd6 620xplLwM/LM+Ci6GaM2psRTgq2EJA99GhxFr5l02MQTSrCbwG3h3zKKbHdu CpwvKMU0krbt8OxR9ErbUpWDtgLb8ir+lpU6ihhcOZN1EyqwgitO84eTR5GH KJdzmkolJkI35bwVOYoKyZfa6AMQRmfX/rjUexS10R75+YKvGqs/ERdxWnMU 9RaTw5rF67BH9MaDyfgoqk+ouWgfUYedmdjHu//sKIowpus6uace+/zaP2Hh +CgKJp7ZUibXY8+W7qZlcoyi8tzKSxnljZhKm/BvfpZRdOBVzx0fxSZs5dO4 VAjdKEqeuUJXV9yE3TQ2KLi3RkTWtoH0vyubMY0SxSqxcSIyLlCPpZ1rxbbC l6ijB4loTeLb12WfNqzgbobG3m4iUmELSatlb8dE+I62/qglouxIoqqcegdG 94RhICmViIgNgjR7bndh9eqDc3yuRJR2Jj39umovlnv2SX+aAxFx32fxo0ru xeKlRZGCHRFphO9b8qPvwzz43N8YXiciyW/nv6n09mESy1yKwapEpPq9dC4y YADjnq0U5FUior1LAsf4VgcwWtItlq+niSh8Np+x+c4gNtZaOFErSkROHIS/ lSZD2Otk4+cbrERkwviBDtMbwR7FbD94uZeI5FdzJQ71jmB3w1Kucu8hIi62 fz+crxIxNe/V47LLI4jk+vZow/1RbNUgqvfuyAj6rTo3e7ZwHLtOPSAwkjKC ROoOHKiaIWNaa4+Y7BJHECVx5amLKgU7PS+yvBIzgjrWUzk631MwwohrI3vI CGLG/EsijCaxqpwDDhecR9Ca69PzyuPfsYwvFSaD9iPoRacA44b6Dyz2w03V m7dGUAZyiknI+IE5vyzg9Ls6gq7Jz4aXB0xhx6yNyophBOFFvvvh4gy232Tr 03nFERTgdsZHuGYGo9L9HNonM4IuXLW1V1D6iQ0rrFj/FRlBahbap/afnsWC 2SIZxFhGEMBUZrbqL2wB9Rm9GxpGtqa3jlHd+4s1OC+KRPQMI8uIF8NUBX+x OFG21ddtw8jrz/xdVaoFTCvsYlRQ1TAKx18ORMUuYIkWNQOPvg6j8VQlBrGJ RcyNg5TilTSMJL8YmJXLLmE6DVtu7nG7/NCRrvzlErZ2QpH74ethpHJa4hvn 2WXs8laWia3HMPqNm4f3pq9gx3LaRa2dhpH/0HPVu6yr2Kbt3D9z+2Fkbpys /eHBKva17Vi0idUwuj9xPW9R4R+28/7DkLbWMNo77f+Mh7SGZZ59dfUUzzAi DTOvRjzfxALmv4qf5BhGTj8e1CrTbmHXkhrWJViGUeXfZt1V/y2Mnok6Vphq GBEsKD/Ry23MYthjhHtmCMVqluZ3mFDB6ZCoNE7KEOr7Z6donUAFTKr5Xuyj Q8jhhlv4kRkqKPz6h5e5awgpC/a5yDzaA6wet65vFw2hn6mX/5MvpAaKZIDk Rs4QWn72JiJrLw0UT3zc+PdtCCmST1zwukYDtppj7xcShpCegCDDYVpaKOcy HP3+YgiVqxZYyNnRgX2BqnmryRBSVc+WTfNgAIIGZnRefwitr+ntn51lgKy+ s7rV2kOo6KemvqglIywuyaoUqQwhrv0ZOWW6TOAhc4w/WWgI3aHuWwB1FuCt ETxwmH8IyUjHdJg3skCZ/hHWGK4hdPGeDn+VDitsO/JshTIOIaqUs2oeFgQI yGIa8/oziKQjtGRu6rHBMdjbvzIziATP1J0Li2WDxg6adkfKIFLnlCmgmWYD pvnN8lv9g0gkJk6f7M8Or4//iTMoG0SabfeZmTs44H1qr5nEi0HEKy6/e7ke AGXFLsPPvoNoz8hTu1pmLhhvatMR8BpEq/Qc+5cecIHATL0y1/1B9IlP9oqD CjekHCvmo74yiPz/pCrF/uYBrcJ8zkc6gwgpYvVnLQ7CT40cljWNQTSxdK0I dR2E4zfTNn8rDCLaa0dzI8t4ITc5bnT48CCSk1kJuJzKB4ayMX2GPIOoQdRw 36I4P6zURLZ1sg+imWrb5uJ0flCghJbX0w6i+HdKvkPFh6FSwC8uZ3YA+QiZ vzrhJgAtH26avSwcQPVa94xMvguC0dzgWefsASQ+n5F0Q0YISAraB83TBpDo WPD5JD8hWOk9OSAdP4BsFoUNm4SEQYBpTW/o2QAqERA/Le8uAmkmd0/WPBlA tQkd3kadInDm8yhLuucAystKPt0qdgy08ermJ/cHUHu6QGnXxDFwdQtSEzUa QN60L1h7LMSAqm7zKLveLnMp3VSsEYMg9gdUG1oD6KRxiMNRUXFITL9S0aE8 gE4NXQt8uSIOLRQ+eTfhATQW3R9m8lkSBPSyJOqX+lHwvuHbPMZS8C3uKGPW 737U+TSIT6NPCuRm305HT/ejMxKUSHEJabj4zOOTPbEf+bAJSHFnSINbmeph ztp+tDXpGN5deQraRPvYb7zpR/LqpKYFztNg4nr+r05wPyrZc1aryvY0UGqK O+Se96O/Az8GSwtOwz/zD6+YvPpRPaWiWP36GRCMuEWXa92Plq9Z2AsWyIE7 1foa1al+NPPo7Im5L4ogd+/qY0bJfiR8pB6CmM7Can8JDYdIP3I2C3EJczgL Lt+8CEIH+5FY7HWDibNK4GS8KaSxpx/Vcpo94/+hDA7pO5dedvehM8MX1jTO 4XCS26ovvLUP9R4Tvbz8BIffflVXY+v7UJSTmeWTShzsTfxsv5X0IRmxK1Ly mCrcoabxav/Yh5Lnvpn6ap0DW1P6z+xOfcjQdEz4xCt1EK69JcFr34eaLj2V 5xxSh8kTjVmCt/rQZEHKDaZjGmBDE1gqe60PMb2+vXaqXgMsMxm7jM7t7mc9 uNDNpgnXaFk3Yjj6UKvYm4p3pAvA++C+bxJLH+Ko+EsWw7VheLid7ht9H6rY fjxA91EbTLNC2cr/60VcGe2LebcugtE1tmPjlF60z9iJ6iq1LlzO3q8vmNeL tkR9jE3hMhBXDba/pveiUKZapZgnl+GWyptvUim96AyNSlRT1WXwaWGjV4np RUZucU93NPTh63fWMpMnvah6zMFQwswAdngYREIu9iKrTu0Ft1JDCLLU7Nmv 0YsUTI6RzzAbAWfK8yexWC9qEfpx+5C5EUjI0o18OdWLGPzkG+/QGoOxLnVY DXcvOsZ6Qd3f2gQy/TbX/k32IJcaUQPdq9dAsUkp5fFYD8JEx/2tK69BHcH7 Ct1gDxq5onGYJHwdRt6vZ3C09CDtpfMXpVavA33hqs2J7B7EfMOk6X2aOZjP /m2z8elB1B7aVi+yrGBGWtrrp2sPUmp8Uhw8bwVO7g9EHR/0oMv9giyOJ60h kHbe75FND6r/bT5JzLaG/MNzctFaPej12+aW6CobYLnyI7Gdc9c/yQsz5wk3 wdck9nQtoQf9yRs5esHkJixf12sqZuhBvKe+z8l9vAljtiV/kje7Uc/BQE6S /C3IdAvBvL53IwtJdt9Cx9ugF3tm9Fh+N3Ld5pD9j+Mu1MXPPuDL7Eb6waUY s/1dUEhOoOH42o369pTXyjXcBYF0Rsmt990og/cZzeyje/C3Ysyz178b0Wui VL4Ne3hDfsbte6UbTavmm/ZxOwL91NlvrrrdqEShXmRd1xG8Zv9g9zS70VCk YGZDgCPYLF29ZazUjVTXxe7dWHYEWbqTBceFulF4/NPlIeJD6BMbMBhe7EJR Ev9mHNqdQevEq6mOX12o0IcxjnGfC5Sfwr3qprqQ/MbM0fv6LvD5bNrHrJEu lFttdf3dkAu46Tz++6ymC1VOUyUV/nUFbsdjoTJvuhCv7epRIW0PML5ceiHl VRcSU2qlYk30gCjpS3S8z7oQ44/8acI/D+BacPXZ49GFrM4cyrz91RMOONXf 7TLvQrcX9Jibebxhv4utpoN4F3KR4OA6L/sYDAzXqCmCXSgheoZDPe4xvDkd XGnE14VGNC46hNM/AY6VvDMq+7pQ3XKctvjEExD8Ra/FM9uJHDMbnMy6fOHw X/U9hn6d6ILz7XC7/KcQn23voeTSiRiODBF1l58C/8OIP4K3O9G+ymn2jdP+ wLc4Obag04mU/h7fKij2B97lp6VhPJ3/mx95fjUHANdalXNrVgc6+uEMm/mB FxBVPDObm9SBjFrvsPfYvIADnmw2sZEdSP6T/NXTOS+A8z/Ly3e8O9AP5tC+ lsuBwLG5fXyvZgcSkyq0ffH+JbBSqUydG29HI3vQ63DrYFj9D/92u7sd/V27 kWxeEQzjK+qOwXXtaPzV/T553hDIntP5rz+tHe05LBp0dDAEDAfNCHfc29Ep 5zvXeCzCIDbTRy6MrR11KybuvNIPB/9U3408mnZ0O58bhQSGg/2ngKqh1TZ0 W2jP2ImqcMBig7UFx9qQWcqoi96pN0B+FmdRkNqGtGavhKofegti5uXPiefa 0JvNyHXbfZHAblp1kUquDW3n264T9CPhP4M6NhHxNvRPRXfo4dtIaNNqi3XY 14Y8Hi9cuMMbBQ9Oj2buGW1FseRZc/1T76CQeXNA1LUVfcEL/n0KiAG1UiVR ly8tKFFXlELojIdtackSt/ct6MtQUJC6SAKUfuG96BnWgtTmmRUMfBJAOnLd 4bF7C3LYmH34mCsRDjsWFQZqtqAj59M8rNsSYU1E9vyH6WbU8rC4jKibBHlx gkMJxGYkmHYg75hvEjjs57ib1NmMQu7Xkn7lJsEPqoWQL0XNiK1YmTJ/MBl6 iJn9OS+akUrKpV8/fidDRrjEzQbRZhT/aLA1MPMz2DHw/ms61Ixq0ou7qX9+ BuEnjC9b9zWjzEPvehmEUyDWfia9618TWhhUPlPxPgUCNVOWRxqb0IhdUM5U +Bew2Toa8Od2EzpMw0StHJsK3HcOJvN8bUS+2y371IQy4e67hgDu941oIPPK kIhHJpTXO9/iCm1EFzyxvJH2TLAS7BDndGlE4/NNhtXeWZBGfJq9D29EYqka Y0OO2YBd+lVBP9SAYnT55brncuC1T0wCXWsDkrZ6JHOWPxcm08770VY2oBWR KXFevVwI3PtRnfpTAzoq/TTrXH4u9FQZtW49aECXbN0n9ALy4KYsGlre24De XGNaPa5cAMXW9qVL/9WjZgFjL1fXAmB6fTBu8Xc9Yiti4lHPKoDMX86Wf3vr kb37ZJi7cCGsfRabmkuoR7dNFs9dOVAEwTxvlijy9Yhl2GIbsZdA3pYtoft2 HXKd5X9X5lMBQ1+2yjOu16Ejj/q6MmsrYFM/6l6QXh2KO1l58DRzJZxPaWxS k69Dd1aZHq+9r4SRSxL+hfR1aJJyQeVpHQLqxD//3n+uRQw8ZkWnD1aDqHZg ikdMLYrBHqu4qVaDzrKAkVFILdLvpsMZ7lZDlJZBLsG1FhnJ/Us+Ul4N4gv5 9n7qtajynaiFuG0NXD7nRb41WYNKXIm2B+pqwfUXx2u1wRr05OefmuiFWoiN +oYJtNaghPbpOy5H6uD77Oj74dwalDVn8VrOpw7c34KxztMa5LAX8GXFeoj/ Ttt66mgN+kpy42xoaIDfz8PyNy2q0eOfC2Em4i2QOvMjt1+/Gl15QnLMu90C N7WVczLVq1Hs2UjNoJQWGGP9mWElUY3uZFx9+k2kFdojzn2pW6lC61uucx3i bZCRtBITHFyFoL/nPyntDhjxKdpWcEEo9IdBHqNHNxjgthuzVxHyUl9vCUno hhYa9rU4QCjay1v4WmM3lAbdXaBiRui6cNRKG3cPxEbzf2/6WImmeLrchct7 4Fq+f7NpZwXy5/785wdHHxDn9CI8JMoRG7NFLs3GABwTLjj+ma0cHZ0w7bsk OQiOZrz13atlSN1Ku/rn9UGgb/++IlFbhg4I1J5kqxwE6UxPk7HrZSjdpzBd 9PkQPHdM5j0XUoqGbcqWakRGQGZlNZH5bzG6RZk6+PXTGDw6YaaoMFCMijCD N94TY9B0s7rbtrwYqYv86v7COw7mA6+oKwOLURjC0pnfjENgkYCt49FilBUy Prz32QSMe2qL9hsUoaXLqfdpK0nwcvtDRnxBAXpaQOM7OUgBj5MjE88/FKBP QrPihWsUsLPg4njwrAA1mNWF5R6cBK3KUDcwKkCedlpEMbNJoH/8BEjL+Sho lt2NdXISArasuo+ezkf0TyaW6te+w+NNoZVPubkoOkftvIX6NDgctxINic1F IqQX9S/uToOFWdxV16e5aEF4pnP09TSolHNWahjkIupZzjTG8WnY9KZ7MbWQ g/r4cs0eeM2A58YUj9ipHCR282CrY9lPmF6+4mlsmYVamXPE7Cx+gaBsLR+P ZBZSosnXKw/5BRYPZaqGVzORi0wiv3rFLxj4zbbXPDQT8T9mfD/P9xsaptoj blRkoKMhtc6Z47/h05BmtuOhdHTAy02v594fsC5Xmg4a/Ir4q7sxUeMFIPoL GSG9JKSRnfTDh7QMVjn48bXDSeghnWK06eYyTI2b05ya/4h6hqW3NXlWYFEx Oicp+COqNdd8a315BRj+shCeNyeiiKaXsY+qV8C++FdIzPN4dOuW+LTGl1UQ vPPmYf79aOTecZjBwXcN+CLLHva5B6IrWvpCvTab0AYnqPivvYB587uHplSo ccJ8+3heRxKEuBP+q0+mx5UZ35vz7yTB85vZ8S/z6PF7wnajz6WSoXwxJU2j lh5vukY9cvV1MjDc+eKTQqHHnzbK9e/of4LiugOf9x7di/9LTGi92P8Zwkr6 fhyP24uTrjwsniR+hY9fTe0lXjHghAeYvC5LKqzo8m5XxjDgKkHMhYXKqRDe UMur9ZUBj636nPfyQyq8mmrwkq9nwA1PjGRKWaYBa2KR34ttBryZXu2zN+Ub PJE3Pd3jwIjnlnC+2f8zE9bcHTxUNZjwgNXZ7lf8WXDGCB9SvcKEG8tWs9Ma ZAHRYPCmtDUTvpF+P3y5NAsCO9s8B32YcMHLN5runs8G87kb0RfymPC7auWN F3lyIJb7YFU8HzPea/1l+oVMDpBXxQ0fijPjyr5v9tbp5MC64MaklBwzTqiw 01T2y4FL5V8fOOox47lyBxqPz+aA9dP9oRu+zPh/4g4NrOW5EB4SKs1PYsZv aF2dujCQCzfVa2gS55jxtlvq9M//5kKDiEoLyz9mPD6Z9/y2cB4Mt3oUJLOy 4Of4G+vnQ/KAMfxeVq0iC/6KTaC+0zIffrGXyeaGsODLJ5l/MHvlQ+Njk5MN 71hwC91VWq2IfIgRuXq+5iMLLh3Upl7VlA8d9zusnApY8D4az7rsUwVQdO2B ThaRBef7110bTlMIR1japJ4JseK5ibRaV/gLgaO+9d+UJCt+QVu+jVO+EA4T i09Kn2bF3T7E9b27Wwjfd+6+9lBnxTvVbv/40F0I/amaNeM3WPFbv2PuWM4V AkMcf4LnPVZ8M6rttwBdEfxuvwEbTqy42Oyp1WSFIui/invm+rHiT19v0qcl FMFfmYDU+Q+sOM9ZqVf3Soogvf6Ge8UnVjxz0nrfid4isOGzvu/0jRUnyjVy Z9MXQ73eTmBoMSt+eixcrPB+MdhcLHgd0s2KT4uLatcolQCf78qV6G1W/HHv 1Q5/oxIIkxxOr6Yh4JyPgg00HpQAy28riS4GAo53LVxrSioBv7MSZnEcBDzW rfxeB2MpXHcXEPsrTMClBf78CRMqBeOAtFOq4gS8ofmoi75KKfg+H1pzO0HA l/he+PQ5loK8wP43r88QcJ1a/ZCRwVKYoZ6q8FIn4BT7APa4hVLo4H/g+1eT gHtyFUWaM5fByAZHuvZFAp5yhy+ehJWBcPq/g+n6BFx5v55gkmkZsM68184z JOA95X4pN5zKwIdZsDrehIDv7JvOnPpcBoKS45aC5gQ8quSg7FdUBlMdgx6l lgT8+A2dojvDZeD652yJnA0BNy3MQb9YysHTiRBJvEXA5y2/q2UeK4c2vi9C tHcI+DNG7qYHeDn0Ev5DbPcIeK6ZT9eiczm0czgwDzgQ8E+EodK1V+VwO5Uy 99CRgEdWyX7eTi6H4VnnuysPCfhzp7Aw2vJyyHvj42/lTMA9hOc8mfrKIYr6 jWyeCwG/M3Delu1XOUzrBbj/diXg1wKTLnHRVkD8ZQudfe67ep3dVuDjqwDh LzezeDwIuMqvq0KCpyvgQjtvPKMnAT8ZX8AqplMBeocVuSi7LHCZfe2EbQXs TBQeSPIi4OzU9ymyu30PSbs+9oI3AafOb2pTjKgA9/Cu5KFdXr4pvJtMFfBh 6omUng8B/8Ht+1GjrgJmnxYoZ+zyQDPx1cXRCpBKDW1Z3OUmb3k3/eUK2Jt2 Y+jIIwJeeuKtlQlLJbhNNd48vcvfJua1zYUr4WP3SyfpXY4L1z5zQ7kSIhdy t/fvcqhaypE7hpVwaOIF08SuvScre5ge2FfCN/XAqPBddvxivuwSUAl3Rx2S JXfZ5mrJuFdcJSjcPyWTsevvFeYDzb75lTDUQKXOtcvqFY55z9sqQbhCa+TW 7vfKPWj7EPy9EiwEs1fjd/UQPSoW+GazEvyqeN5X7urH0+vvFM2JoFY/obl+ V1+mZxNm8ccRMHq8D8h3I+Abckqan9QRPMtL6Ajajcd47OKhbBcEQf7Sh+ad CHinziX6wmAEtgQGYe/d+FZtp/4t+4Sgz+9R058HBDzZxrq+sQ+BuoX5Upg9 AY/grMhq/4XgXe20X9ldAq52g6X9DnUVhPzUK++wI+CnD9gVPeCtghfMPprp tgT8xHxkutOxKlChkk1y283PY421H11lqoDtSUa5mBUB5/Y8EuytXQWpVww0 1a8T8P9GB6xeeFUByaPZ7Orl3XoroDUOel4FN9KczW10CfivUJmLIW+qgH/p 5eUr2gR8DA898zatCiiv30r+Vtv1/5MGU8JIFSz61LzeI0fAix8573ycqoIV 1sltbRkCnmP8cfnTYhVketkl+pwk4EkMW+NpTNWw9OlyUvSx3fqwz88rPFsN DgnvM/MPEPCpEOGrFZrV4Jv18+4EGwHXyorYrjWsBnrPg4HzzAScZdHlQrdD NZz/OctXuoeAv3E/MzGXVA1c1G6aDL9Y8eXozwGLWdUwyjCaYDLFihuVHpBY 3+2bd+asu16Rds+/rRUX+sFqmJFa/i+pjxWPf1rIdJS5BgwcdS6FlrHiVJ+O ZYvy1MAX91oV+gJW3Lo+yuikSA2sLrGF3chkxYUZ3BOVoAbIz20/diSy4t9C 5OWMnWsg5xHxvV0AK14cXWz9ilgDi5Re/4rzrDhvqdjeNzM1wKj4tjcCY8W9 idHp0Ss1QJK6124gx4pjhz3/fd5XCy4833j9RVjxumTFkCq1WqAJ8/paRM2K d2eWFq98q4WLxWHNz4pZ8Nm68n1Wu32775cLl+w5WHDPu6ozgYF1MBDrsLiX gQVnYGuoyomoA2aHTevXW8z4seudD2ky6iDmOzud3czu/bhA7k0Z292v8X7f mQpmfJR/b/RvrB786J7om91gxjvc9AW89zQAvVCr5bskJjxHbEo66nkjmLx7 9mtskQEfeBta5vemEVillx83f2fAN7flzt+PbwS3p1PXUgcYcK3+F9fVCxsh uUP3xvlSBnzCT/z54o9GoByB72u+DDgr0Z54SaMJLDgM5K6yMOB3Qpae7aVt hq+Mo0z9h/biRxepiB5+LXBbbpkiLUyHt/RnRGpWtIPofz9P/pdHhd+jVAR1 W3XBCFu/z4TjOjxOGj9odrsL3PRP67BdXofXNjtfp+53QVTVoN0VqXUopOCN G15d8EJmUoh9fg2oJmtpjkV2gYGEZZWD/RpETDb7eDV3gW+NsXKP/T8o/97v ICTTDXJP2R8JPloB1unfBq40PTD3iT91lLwAcj+jN14z9oCYzOQv86YFsJpT +5S+rweSg8cGljMXIPdPzMrkoR4oSZpvvuGzAKZrGtEGp3tApzzfUJNnAZIY 48ekbvbA3l5rsxOGf0Hu+CW72YYeCEoZ6DEs+Q2WJ9fZ6Nt7QMvPYJ386jcE Sn8qOdrbA7bBo7JxFr+BePo/pqsTPRCz5rf5jvY3+KqkZDT+6wEpycc3Mwx+ Qeul7cVPYr3AotRoZvBvFqweZj6yDOoF3QesKf42M2BofO+J2etemKSOs3yk NAMXlMT8rkb1wkxkpV4S5wzI0CUFXEnqBU6XzoL7jdNAFxP5SrO0F0boSvMY paYhrconRmq2F6RKhMUv0U/B8r6LBTsX+uD2ZL56Qd8kzCzvLdrU6wPjNnyR Km8SxobriteN+qBd+KeGW/gkNCRj5UvWfWDtfylm7NIkxMjL1E579kEvJXol rpUCmOXB7s7UPnB8ONnT3kaGwMzpXwmM/bAo5fK6dWQCcorqGw6z9cMb2GD8 GjcBI1XJiR+4+oFUkqVMspiA472Whu+F+sGHb67D5vs4dP0bLItS6YcSdt63 qUtjcFC1KSjkYT98DT55k0ZoFNJ6v4p5D/fDA3cnu52aIegdfU7930Q/PBKK m+0IG4LNH7ajHlP9UBR/0XTBbAgurQm8dlvqh7Ip5roTa4OwyBfz7yHrwO59 y+TgIzMISrdeNtipDoA7iVhyvLAf2tbu2BqnDkCo/N6D33bjxKLeY3IrawBK 40xFqbp38yLs7EW3ggF4NcJUHZHWA60izDJR1btzKsupIG+LHmgxSN/pHx6A vn2yBxWau6E5fT7WiGn3PXpVEjJpXdBg5dxteG8Qxl5l7/so3Q706cQ624eD kDD20UVssQ3O/1MrdnEfhF+6CsyH89ugIYQzIcJ/EC7sv5Wjr9gG9aUF9n3v B0HyMybUptUKdZxrew3bdu39sKaJ9m6G6iYf7MqJIWgjZ9lOHW8AOQV6ph+y Q+DbE3yL5V89pH0J63c7OwRH7tOpJVbXw5vnSfaxmkOAIu6uEUzrwVa9KZZs PQQcmTtWqy/rgL5q/78HUUNwXeYysthTC15SH2r2fNidqxNmpg701MB8/LHQ t8lDkHZkpEE6uQYGHymKFGUPwdy04Zmw8zXwVcnyynbLEIj/EAgeC68G7aK0 rOCdIWAZp3svf7YKKo+d9j5MPwxe73rGSGxVIBNVcT6bZRgumvppNXUiOOTa NdZ7cBhoJE3QrxMIfsmsMh86PQwPp7t1nRYrIDRT1S7VbhjUXETK7N+XQc/n IYGG7mF4xiv0T+VmEXCsOWsoDg2DUZl71ZZoEehr77ubPj4MzOomX7R2+/Ku eY28N3PDMKncTvR2LoRO+TwNS7oRIAd2PlEOKoC25pC7awoj8CH6zlW9rjxg 4RMPuwcjMPM79JfO+zy46FCXN64xArRFpsYNt/KghWNjs85gBPL1rWjEd3Kh 6bpdWLj9CFw1tLoacSYX6n+fy5dIHIFLFqlWSsXZQIuPD31IGYEX7okVQUHZ oP7Gc4stYwT0No+3appnQ51c9vl/JSNgW2AXtZc2G2qe8A/X9o6A8vB+WtaM TKhkX9sy20sEm6ijghH86VB8JkMzzIEIqnIHEtpDvgChpefZWxcidDncrFDQ +wI3LdZq33kRATW/fCHP/gU4Xqjhic+JYFVU+GouKgXuDQ0r5MQTIc137gtr 6mc47E0v0dtBBEL1+rlz08ngsu+43WAfEcJvj52zyUmG1mT9FOIIEbD/NK1o fZLBoy1O8PsUESjrt5pbOJKhm1/20Mo2EdQ55p6rnU+CgCpLFm6pUSCxcz2i qUuEEcNn2ofOjMKatXd2a2QinPqZFnhEaRT2+nCz09slwjj7Kq2Y5ijc7+2M aGdNBPkbwVsKlqPA+7FY+lBFPMzSlcxfCxuFdMVXKixicaB3kaM7/s8oiJkE JrwLfwcjNFenhVdHYWvnk1qi1juwLU/YStschZkApS0XqnfgdeKERBHjGBzw 81v0coqClH1a/p1CYyDhuu5faxkJm72PzlCZjoECC4/NV/O38CK47uJzizFg Pfa+LlzgLXBoMNuw3ByD4w5if8W/vwHRwuhQHqcx+Ddo1G55/w0YROdNSweP QYqdW1jui3D4avYzxrpqDPzGuDtZC8JA9oB09nTDGHSxt2yf0AuDyna3hvvt YxBRsX3SYzYUejHaJc+RMbjCcDHisXAobAsc0XmzPAYVF3LnqVKCweiH4XaN 2DioBbleMBt9CaQP7zkvSI2DEYPAdPWLl3DXmCLReWYc9j92uCl8+iX4Nj4w IZ4bh4ll2bD+sEBITw3KXjIbhz4WmrREgxdA7VBlIxw+DuG5vMczaJ7BJ7vw N0rvxkFhVHJcvyYANG7Y1Bh8GIdLZufI2X4BEGhKK+iXOg794VtuUdQBQFDT Io9Vj8PWnCR9O4s/8PJ0Wb5bHAftXpUEc1U/KOf4GJa5Ng58P6bbu5n8wJzV CdVvj4MWn7/v9z5fSKTmPLLMNAHzZcJ7Ju76wrHfJuOXhSZAlPGb9prSE5Ct mTBjMpyAE1tHz1KBD/SVZwcfvba7LhpxUeO7N7gV+ZUrWE1AjXQ847sgbyhN F+K7bT8B3SzplkYjXoC/u02sDZgAakvXL3+feYKO/Z+rjwomwEGAt1WP2R3m b1W9jCibgChHliD+KjcIsw4v+VY9AWb6P3k6XN2gx1j24Ej7BAwkrlJ1TLqC qar7kNzUBBR5OefRt7iAzKsnkh7MJEguoPt2vcIJZtb/PnAhkCD3hraBu68T JNjZ5Duyk0D6iPQVbXUnYDmvoXKHmwSkdplwQsdDmKJi1rsmRAKGaa1LIz8d IcYtyklZadfeyn8Pq/wc4PKPvUUKGAnUN+k3BfgdgN7Qc+O0KgneGue2F5Tc B6dTZgEnNEmQEdI96rBqDzq/jkYdvkKCc82bgTWP7gGVTUYJ1T0SSL10vSZe bQeFXYe3N++T4KF3qL+Ogx3ch9fn1h1J8NV56ftDPjsY4XNuXXAjwb4V1qEi 79uQP6gwRnlKgib+wEayxi24rVtHVR9LgtYKhoN69LZwuPyMRvUHEnjzWl/Q qbkBfRJfXlYkkkCXNuw/gSc3AGcI4ihMIUGOkf0hzQ0b4K3VE/6SSwKqg5vX 1basoUOBqPmyhQRHs91410SsIF7R3KOhnQQiSP+AZq8lPDg78ZWmmwRlJrr3 1cwsgU15kvHxIAk4O0NucTtbwBWYa3X6TgJC4pmd93lmMKSxoWe2TYL0s+FL td5XIfX8I9+YPWTYv8TjzH3oKnhp7mQP0JLhwjb965oyUzh0gYZDn5kM/QFD +wh7TMFCh7lPg4cMB5hoNva8N4ZJg0OmUjJkcDq6I1rPYAj5Vz4E2p8hQ4Nn jsuHsisQYHikJFWBDN2LbMXBD67AMWMhXmEgQ5m9WuTHEQOwuyo5yqNDBsXV h9KqFfowb6lkRX2LDEwpRmMVNnpQaVXxGu7s+pMgbss2c2k3/6Dax54MO3TU 6yIPLoH0DTXBf05koC83vfT0qS4437r4fe4JGfw4XND1iouwZn/drj+GDMOx 1RIZj7WgLzRJhBhHBpEpw5/rQlqQnf2TQkogA+1hI0H/Fk2wW3Y3//WZDCNt EdtnD2nCkHeEAU0uGeTV5Hp6WjSgOKhd+VQLGbSWl5avW6pBRDrnf3LtZHDN iYr7wqUGjh3Xi5S7yDD/tq1zueMciHHMntIaIMP3Mf7I5+fOQXQMvaglhQx3 hjL+HD+jCp5fgT3kPzLoxYXbxr/CwLjlecebLTLgsjnBztwYyPxqfxVNRYH8 G0YWs59UYFbKjP4TPQWOv8jn+1KnDNeKPDZKOSiQ1ZUR2MilBGcbcn7MSFCA K5/O7cQeBeCaWUuaP0GBWPqszMxP8rDIiFstS1PgQUXkVb8L8pCm2zGyI0eB L2kuLIzv5IC3f7aTS40C1Jm3RUVVz8B/k0Kl6tcpu/P8WPtyuwx0vOx1/mRB ga93WlK4fGQgWcr/BK0NBSRTfX2CJGVAx5uSWGtHgYiuvIIroacgnuPji3Nu FNhkN/Eh20iDU/Fl1STPXXuteX17D0mDpgXVxp5HFLDrlTTM/SoFf1MtHar9 KfBCXla8P+IknFM9bISHUyDBtWIl+sVx4JpuJyRGUKCAlTcjjvE4zAU/atp5 R4G3RbFN2SGSEDE0qoTiKSCYa5vz870ETD14L4ilU6DYxcK2ulMMguJ5/io1 UuAkG//Oo1ARsFBvSn3fssuzE+3LJ0RAdtb9xkb7LnPwdNF3CsPomcGB0j4K SNwIKqQcEIaT7ZEVihQKrH43UWgtEARqZw33mB8U4CMyCdpbC8Igz4r0+gwF PsxSnXInCIKvreGn4j8UCF+b+JFvfxR6NjheyW9RIFgi6p6sogCkfKxRf0c1 Cdnc3pr7J46At6bT9irNJNjWS08pXzoCwm+7HxYyTcLyJRCekD0MbhKvTc/w TEI8zQclnUN8oN0FHJGHJkFp0j+xPfYQHHH707p8eHdO+VG29JjvEDRVX4J8 kUko+DrornuMFz7c3l7bLz4J4sKhDFczD4ITa2au8/FJ6E/ROP9Q4SCczzO3 75WahAw1hYKQOh74///bIAJ7+t9nAx74P/3PZtE= "]]}}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwtmnk0Ve/3xxVRMl0pQsoQESXKkNx9kIgihYiMGYooydgkfSTzHIpkCpnn TM81z/PsGu69plQkQ8j0vb+1fv+cs15rPWef/ey93+fZe63Db+F402ovDQ1N HvXyf3ceQ2ZhaelJJEp8XGDFqAHKZ3N0zkpOovB28PuF14AH+3Sen5aYRKbz 7NM9TzSgNC+iT1BkEnEZrnsRxjVAl5HXm4NnEh1xC6OR/KYJAeVipNW9k6jc UKRu9tV12DmmHlvaQ0Ga5lqbrLk34OTKXH1hJwU9qLoxPtV1A661+P/JbaOg 0ncF6ct/bkCsS6d6egMFZcXGGxDO64Bsp/5aTBkFydahhuOVOvDolZWuZyIF tVWolagO3wQy5TUL3omCvFvaT5Yp6cGCMIfWhgMFnVypbV94qAf/HqQEFtpR kFWDp+nTWD3gWG5kOm1FQU7r5SoeK3qgTst8kMuAgnbeZF99nKkPOYLvGZYU KegIsx2Hr7gBPL/3lSb1AAWFP/xXeeSxEfilXcLM6SnoFG1LaWCaEUT9an/J S0tBp69Lk21IRpDrvLgTtkVGHwcDmNR1jGHqzYXtl7/J6GSzm3iT7F3QTEEb hv1kVOF5K+YalykcneldYv5MRkOFg3WDkebAfSAhhSaejAaun3vKVmwOvOL2 BsuxZHTczmHj2YA5HHeiqxqKIKNdbu6QJU4LOLlz/l2SLxkVbXj+dzvOAs4d iTou/4iMvLNVB1TzLeHqFYNr94CM3j0OXcugtwaN+0K7+pfIKF6vJm9Wwhqu BSzmXZWn+hOI1zDXswbtHl/Os9LU598GqzGlWIOeyTfKhjAZPTaWJV5VswFz F273YBYymsHT2X95bwvuqaMpZWMkJNdT3cz1wA44ho5nVoyQ0MDwub7YaDvI PWCZXzVIQqv+eRtmjXbw3X6uqqabhBgilrrLTtqDgfTfwZZ6EjoQ+M0ma9oe ZAisjMQsEtranjPoc3KAlWFlh83nJGQ7dKZJivIIQg76OG97kFAHULZodx6B uGKzx64rCe2Nw8y3jj4GywTtt7ROJDT7asLS8uZj6LE2TjhoTULWBYf3stY/ hrzlpz08WiT0X8ik5958J3BgTpe5xEdCd/uUfgZ+dYbFTOKNbW4Synzpn2rb 6QyPr7HYVXGSUKvl/I7rsjM4+z/5hOFIqJzhgeOFS0/B8wB+vyodCS13W+ae 63oKrAdTCz70TSAZOvdDlntdQXlzY6PKfgKl4v+LuRrqDqoXTc8oWU8gwrsX HmIV7qDuXmdRazqB2mht7NVm3UF7Lai18eYEykmwdJXBe4DxsmBcl9wEyuqu Hf294AEuP69jFLoJ5ClaXrTP+BmkEz/77IsbR5VjItaO1i8haujZ579R4yib 5yjXZORLeN1/u2I2ZBydNg4cCq1/CXc6mZea34yjfIuktC72V8BU6343yH4c sft+GL3i/AoeZeic57w0jt4Im0ZNXfICWfc9lFPEMTSf9q4hevo1CLmMbh3t H0Ml7LEnL+zxBrYnJZwHO8cQ2fY3LPF6U/P78Pp8zRhSiphg6tT1hliz4dK8 jDHUZh7Xd7jBG3bU8oIveoyh4+5/3Ray30D9EXPFa0fHUJIBp/yLWB94/pv7 VTn7GAq4djiBrdIHLjT11YgxjSGJmYnz7RM+kOKurn5gdxR1CpyzqT/5Fv4b PXurYWoUXfLJsCkqeAuqiTu2WO4oIsfJu+YM+kK9xMeI82qjqGz5x8w05g/P 6fUHk7BRxF3BWfHP1h8uTLByH7o4imKltuMVQ/0hJcT70x/xUTQib7pPi+IP /y0/yMhmH0Wi/C3hH30CQPWbPOHUOBFdmX9vwzgUCPWXB3/yPiUiF//32W7a IZB/8WV/hgMRpdjsXOawDoF4SREkZ0tEir0NNY3PQsCN1zVM14iInp8vSHXJ CAGxlSPyAUpExJIgaL9KHwohSfo+m8xExJnYE+tVFwpGewdOjKSOoKbc38+E b4bDH9Sn935oGIWKCXssf4uChidLJyN6htGcMx3nQl8UfBRh+xvSNoycDPLK d39HgXqwZpQfYRg1FHictxV+DwkmNQPP04ZRzqnnb7Ui3sON7Zzb99yG0a9V jcCnztGQfdHf8BzXMEr0fOWjfSUW7IuU7rbeHkICjIEGm5LxwKKK17uiM4Q2 L+5TTtCNh5y+i9erNYaQBec9aXO3eFhallYsURxCHd+KJGQJ8eAmJXwsSXAI zZuoukrrfII3OYxjHr8H0UparbrMpQT4kN5rLPZ2EAl6c3LNPfwMLXFWxu+K B9AD9+NHiv4lgSvNxjrNuX70IMBMev1qOtzIPaQjUNCLTiQ6jYZy5QDTremE do4edPvK+YPbv/OB85FwkFRYF3pn8Zd7VLoYmGkUZ5TH2xF/R38Xa/E3UClT EHH+0oJirPiKl5kqYUfy9DeXDy1I4MfTUM2jlVD2hVvTPbgFPc0PyEk6WQmS kRsOL1xbEGP3+pYuvhL4HpUU+6q1oEXWuaVKx0pYPyl9JW62GTGvFVqW91RC VqiYVYNIM2pqU1Nmjq0CzvtHk7jSGpGT+21dX24CPHjf8IbzQyOSGGZoK+cn QEX9E+sjQY2o7Vya18opApgJdIhyODciBiz1gossATKIr3NZsUZUuOPXVKVL ALzWr0r6oQZk+ZCn2ieEAFbSaGiFoQHpsN5NEWSphlJz+7Llf/WIIGJhr32k GhhDjn5cmq9HpJq+wz581ZD964npYm89KpOyWuI4Ww3rKadmfn6qR/5fMiXQ jWoI4ApbpsjWI2+WQV7PqGoo2L7H0m1Th5KdV37aSNTA0JftiiyjOiRSqvW4 WqYGtnSi7Py065CT5tW101gNXEltbFKhHtZHQoDzwq0aGNES8y6mr0PioVo3 jnvUwN6E32sfUmrR1389ruGtNSCi4ZvqFlOLOHQ/VvIN1MC1lRN6eoG16EHT vVSq0xClfjOf5Wkt0hJJT1H5WwOifwrtvS7XovJ/9HZ3BWrhhrIH2XqyBi3Q vDAXfFkLT3+xh6gM1iBdzcY0Sf9aiI36ij/RWoPWv6MDhu9rYerH6Ifh/BqU VegfuZVTC67hoH/tdQ0Sidh6HEOphfgputZz/DWoldlJ6fX1Opj3CS7cMqlG 4xPNz2kV6yH9+3R+v041mqd7kvxBqx6sNC7lZV+uRrmkz52WZvUwxjyXZSZW jRY3+sp93tRDe4Tyl7pVAir2Pb9xqrMeshJXYwICCGh/4X5HZ4cGuE93Ldrq JQHdplFcM/JugJPWiVF4JwIqlbbRexHdAHGi2uGLtwmoPV7/hUttAwTmpgXo ChKQhjDpylXeRhh5VrIj54yQU8kGj9BII9zE7m3+MEQobbV58NByI7TQ4tY/ AkIZvy07NZiaoMzvwR+agwjZ+WRRvy5NEBt9bKrpcxUKN2i3+ZDeBHcKvZsN OiuRbyEdm1lAM/S4SjYwFlWi7K3+HLGMZtBQGKupiK1E26wp0RpNzXCxRqbi hHUlqotKog3a1wLcXXPZ37cq0NAnyV7FNy1A/Kkd4SZWgRzYTIN5wltBWKhI PIWtApnYmY0zFLfCI2Pu+u6/5UiZ39dfb7gV6NunVsVqy5Ft66klLv42kMx2 vz1mVI7ObU9OGxW1gc+jJG7lwDIUf6LrfMmfduhO21/g8KQM7ZPQ3pbi6QBe 8kPND4ZlaIJxPOGEagfk6cg9WzlZhjjW/Dv0YjtgVKp9LLXqG7pyaMjhikYn SK3+TTi4WIpANOB1nFkXPJcwlpcbKEWPRtI6xN27oMmquvteRSmK0ek6sBPa BXcH/PdW+ZYi3lPiX2zrusC35MS9R/ylaCj1F7ejeDeMu2uI9N8sQduOzSxN B3rg3U5cVnxREWod7C7et9MLbmdGJnziilDjVFpo6bE+sDU5wu74XxFVD55y xYp9oF4V5AJ6RUikOpo94kUf0L94CaSVQtTEuXVqjrYf3mybdfOfL0RMIyI+ T44NgLNEHC0jbyFaEC38wKE8AJZ3hy8s0Rai0dSLagdsBkC5Uie2prcAmb1y iPudNwB7nitbWj4pQBcd5fYQNAfhxZbganJ+Pmr68llhIXgIHMTNRAJj8xGl +7ohU9kQmBh/NHz6Oh/1SATyvJ0aAsUKjirVm/nIw9hnMOLiMGx57ns78ycP jYgOyvL/HAb3zRmuU+fyUO2y4NkXJkSYXbnlrm+ag+gkvUErbBwEpGt5uU7n IBvTWVZC+ziYPJYiDP/NRn0DkuaFByZgYJ6N4W5QNhJQMbIV8Z6Ahpn2CMvK LNRGWgo5iSdB8pBa7iOeTLQYKKPNcZkMpCMlt6Rmv6LE2U0mJmsy8OoJry3n f0UNYnJFGr5kCO+mw7tqfEWHSvtOxreT4XVLdetz9ww0eJ7l6BcjCphXKMz6 Daah+yQr/4D/JuHjvwy/a0lpSM5p5hlP5iQMyXGfYXFMQyYqlVl/eybhRtG6 cyh9GqK382UP558CLLtob/SFL+j15lyWfc0U8CWc5UsJT0F7Pi/bz7LPANFb UA9pJyKuZM9b/xa/g1keJr7Ol4jsuE7PWfHNwcz4XdpzC5+Rem94Ec+1OViS j85LDPiMKJ6nc6zT5mD/IhOLT3MCUj/dLfTy3g+wL/0VGOMTjzbiVyMnfvwE gfthjwsfRqMrDFF6pud+w5m6tuPCTNFoscdC2ITak8kfZ+h4n/EemSzLeH/9 9Btu9HuKec5GobdOc0diGBbhuZLVpJJ5JHpqZxi+7rYIQ0fl9Dp1w9Ax0fTQ E5Z/gDey/HGfqy9ytIZdIb1laPqz/DWg9C1yOue78Md5GZ5qic9c3vBBR2om KqYilqGDIe5Okcd/yIj/Yp9C/zK89HihEvX8NbpuQxrOvr0Cdei1WC69O3Iq eB0dZ7kKNHrTXK7Ec6iTjzQm/H4N2kCC5tidtyBZLBO5ar0F2fePtnwS9YUn 0WMLu2FbEBK+L0Jgwxf+VY2cOIO24NbsmMipaD+QXc7ZXuHchpGgIG3pgUBQ eaXyW6h1G1YWXDuFRMPAyib5e5vsLuzBD/MppERDsXwoOw3HHoxloX28oCMR hqJ4hG6L0GH53zjCDs1lw9mwv3m0+xixN39/dPsfy4FbnfqrhGOMmL50NY7u Zg6QJBjaH8swYpuZD0NXynJAQjpvKtOGERO4Ydn04Eou1Ln9MnnZzIg9UKlo 1OTKA8HFCH8Nv4PYP1GHBuaKfNCX5PI6scOEWaobzlwdyAf/0y4aGRzMWJv1 ZXqfRSpPE5d4TzNj8UncV3aECgCrNAosv82MKR9rrF8ILIC5A8HpfTnMmD/b ifpO00JQ4o5jkzBiwXjXumtDaYvh7eZ6jsxHViw/gU791rFiGHUeZ5/MZsWu asi2ccgWgyeeYuhYzYq5xH3se/+gGFgEB52EZ1ixThWb6bjuYkg6FfmclpMN ex2yRZ/xqQRMPkrszTBiw7gunvW3+1YCy8SY+gVLNix70pxVorcEhIUvaPPb s2FEmUbOXPpSUGoIP6f9jA07PxZ6qvhhKTSEhqe1fGDDZkVFNGoUvoHs0q1x oUE27EWvYYe33je4ENLKLzvOhnE8D7ip6vgN4oUYFS5Ms2FY1587TYnfgEHy 5LOVJTYs1qXCruNAGeS1bZ98xozDJE/8/h0sWAZ/2Cl7fxzCYQ3N/M46imWw 5FYyqMyNw5Z53z7re1QG/9y3dguFcdi1Wp3AkcEySOls9YzG4zCK/Rvcxz9l 0KD094rRZRzmfqQk8u7BcmBta4H9Gjgs9T5vPAlfDq0ztkYn9HDYLuts9kxK Odg3thRceYDD8o2fdS09qQDkntBlEILDklmGytb9K+C8mHHp/QgcFkmQTtlJ qgBJAfIz62gc5ib0052xrwIS7BjNBRNwmOIvQ0GB85XQlFlIn56Nw87EFzGf ulYJbjlfVTjzcdiJG7h1iXuVYL9PcuFREQ7bW9jUJh9RCZd04gxnynFYk6es i85KJZzJVro41IjDyiTCzW4zVUFtynhoQgsO+zqxoHFXqAquie9u3GrHYUEq qcfv61ZBenpbj2cPDnu5uofR0b4KguaKzy724bBHX+6uOL+pgoyaT0+1B3HY rYOHm18VVsGtFtHoDiIOu1z5qMCnrQoYp20sF8ZwmIxjW1zAVBUoEMdX1idw GFevt1M0BwIply2NjkkcxvjfhHG8OIIK9VSamGkctimjoJZ8GUFlVrCJ1iwO G49d4sl1RhA+5rHu9gOHdV7Toi8OQHC886fIwk8cRthJXyxPRnBv3mPm+jw1 3rn7iNUVCGbqEs9EL+CwJAvz+sY+6no+8c223zgsgqMyp/0XgsfHzqj9WsRh KpZM7ff3EkDBnIXl7x8cdunSxRp7FgJw83lp/ljCYecP25Y4UvtyZfl3m03L OExiITLTSZgA/8zcuMNWcJhwY+3np1IEUBT8nay6isP4Ev5EueEJ8Grv2PtJ KnO6Hw/w1CCAl++rRbu/OIzt5nWvF/oEuHnbJnOcyvtPe7p4WRDAXs6hWWEN h+2hS7d740CAH6LVqt5U/jc6YPbWgwCj94nHi6i8XESn7+dDgLKXb/W7qfwr SEozMIwA6yoT3wepPGVjhoXEEyB5WnOgicpjWNCF8AwCyC78x5dM5YGjFWJR xQRwUYmsvk/ljqW54zE1BHgo0o2OUrmxlfPwxw4CvJUhHS2k+kdIVmX8NEKA FsvSLjkqlz5/svt5hgBCy/HTX6j7y9P/vJK8RIDhx6fu7KFyxtnOuS87BGDL kpNUpcYncf/2eAZjNbil7n3whBq/D2Sxvizq3HHg7X7GAGp8I8oMmnMFqmE+ mOdQMDX+/9kXFhRfrAZ1SfmHutR8zQQKGVaqVUNWmOrqP2p+1XMidmp1q2Fv 6Dcx3184jGnJ+Wq3QzWk/swv1J/DYQ6HphcGPavh5MGiw9HU+uk8rxcx7lsN DCucigRqfYW5Xpj4mVgNxrcTturIOGwlOuXNUk41VHsnJX+m1qde2WGxjYpq MLevkbKi1i/X9qoz/WA1HBLMPPl5CIfFvy5m5D9YA70xK57zVL3QJAvninDV gLBEhs3eVhxmXh+ld+ZkDVTLbwbsUPUmtN81QQFq4OKvfcWZ1VS9BcrK6D+p Adk7KcvkAqr/OV+Ixq9q4DqzIo9ULtX/Lk4vy8AacDku8uN+Jg6TOrTe+uhL DShvP6wISabGP7rU3J9YAyFs2E5FOA7jLjvFEPa9Bs6Gc4peC8ZhnsTozOjV Gvi0aP+61g+H4fnc11JYayEr1/ugnRcOq0uSDySo1AKtCBbz6SEO684uK139 Wguk2uofuUrU93WJmWyV1sLzJZ6ANgVqfv7E0tI21ML9iNr87gs4zOC8pxYb qRbK9yosRYtS9flNYUqMow7Qvy9bx9hw2I+6ClazZ3Vwl5P08OgwG+b+QOm7 r28dWBUQs/V62LD9bA2EvIg64Phu0/mylQ0TNup8TJtVB7cOtbDGV7Jhln/I valjdfCq3AG/7zMbNnqMIXoeXw/5H1yDI+6xYR0uOic89zTAwf0xTLNVrNhd 3oH1JOYGGKUYLF7KYsV+Vd/pbjvaAITmHounH1gxRuZ7r/mkGmDpzIfpIFdW TC3JZaraogEOYGYsdmdYMULnh7T9dQ1g/M5DaieKBcs7NSMZ5dMIJ9Oq4rT0 mLGB8KByr7BG0PhknzmMMWNbOzJXHsY3ghnPLv8NcWZMvf+t0eXiRtD0ogca WmZswkvUZ2m6Ee4onZF2zmHCmIn2RC3VJpgra5yh0DFh9wOX/2OgawZ+PQ1S XBIjxr9EQ3TzaoGJnEyNhCoGrKU/K1Ktsh1KE7/86DLYg/kwZ9EaNrdDqglr d5rSHkxZNfPxg/52KLzSHOIntgcrL8y4HjjfDjmtmlftt2iwzPAv+3qPdQD+ 9H3VrAQaLFDn81OTFx1wUq6gNWxgF260R+g9hU7YsHqt8evQNjDti6j10eyE IRb6vq/ft6DpUvi56NudcF2+wMG3cguUMkOZyx07wUnGrTPGZguk/IPqaRI6 YZbBYkSwchP8hOq4r9B0QRk9smBw+Ad2lEq/buqc9Jixpunp9zV4kTh+1Nim Czjeu9T+rVyDEIvdtJmHXXCTUKj2OXwNiilY46ZHF9QZqGY8gTWgmaylFY7s gtcdim3sMX8hYrL5mUdzFxioJHaY6K5CxVS/g6BUN+RQy5Hn1xJ0JP/dzpLr Bu1t1fIjjUtAvscZKAfd4O01Lw2JS0A/bfD1+rVu0LV8d+io4RLcmCbOulp3 w6PcWP6lpj8wNU02a4vthuN5GRoqeYvAPDt/8yltD9C9HOc+cHUeZOaiN0Oo c5p742pfIss8mP1USc5k7YGw2pnGgL5fkP87ZnWSpwdaiYs8Oua/wGBdNfrm +R5Yu7UbG/PiJyQeiB87a9UDVTkQxNk0BzLiWrY/GnpAzUM8YU/UDJie2WCj b+8BAUzD28lqBnwlk7/x9/ZAXbzIzNkL1Png/D9Gw4kekNt19Ajun4ZXiqlZ jWs94Bf1a3z06DS0au0sJZ/qhV74rOOTOwlmj7Ofm/r1QuiFkchPHGTQ1bd7 aRzSC+x8z2hoF0hwVeGUl2FUL7B2qjxJbySB1L7EN7cSe8F+4u3rKk8S7IuJ 9Fcr64WVC79u7euYgAzCs5izP3pB+yXTiHv4GMSnyH8QX6TaT3E7aas1BuF+ fz+K/u2Fdb/9hX0HxuCZ7qMEwb19cMeFEiz8ehS0v1t+4eTug+ykg0PxbkRY YdUs2r3aB6cPH0y2fzYM31cYSra0+2DiXFkTDQzD2HBd6YZeHwjtaW1h3DsM DUn4imXzPpB65oV/8W4IYmSlamfd+yAw5kFRb9wg4E2Pdnem90HjUoBTFbEf fLNnf3060A8D00UGhWk9kFdS38DH1g9Zh99N/3LugRFCUkLckX7g3VVS+qDU A+K9profBPvBIGevv/5oN3StDZZHKfaDwLadkzRnNxxVavILfNwPtOs4rw6V TlDWSL3H5NYPdVeZsrV+dID9rTd4/xf9YDGfREgK7YAqK2zJ178fzLy2Vhso 7WDhV2r4JqUfFr8wGLcEtUFGb9opz+F+oGdQpwtkaoHeUZ+9/yb64ZzC890C 1Axb0/dG3Wb6QbztRnrMk2bQWj8R4rLcD/FOwlEfxppgiTdm7THzALx7KT59 q6wRFKzfNdgqDUA2jTX7g8h6aFu/f08/fQB4Ur7q0jZXA9PlntvWOQNA3lRV PhFZDdeCL2q6FA1AvY2qODKvhtaTB6WiqgdA7tuL3Rdb1HP+ZuZu//AA2Le0 Cf6UJUBz5kKsHuMg2F/wGZb3r4T96/pBVmyD8E+4aW+LVCWoqyCvp0cGQfNJ y0MgVkDTcLBtpMAg0G69TOs5Q2X6czL9FwdBQ5M3wIZE7aPNnnTr2g1CtYHl k292pUCfSay793gQbrleFqk/UQpX1lRKnV0HIV+1LyVmoAQaAjk+RXgPwpvv 7LJRl0ugvqzIvu/DIMjlPfuQLVoMdRzrDLptg/BRXbnl55FCoDMz27TsGQRx D8tzlYMFcPlr08KToUEolTmlrhhTALVKMf3hU4PwbOabjgpfAdQ4XEzq3RqE ZU2zNQXJfKhueoa/JTEEq+qTr0KcckFGjp5xWnoIjl70OS8pnwsZX4L7XS4O gbCnMs6LJhfCfBLtY9WG4GLWdy0TgRy4d7kplmw+BHse8tzgfJoF9IRDa45R Q8CwrWgdfDsDPM7G1eyJG4Lt0Kuq+hvpsBAvHBSeNASf85idr35Mh8Hn8idL cofgNSs7f9p0GqQpmN7aaRmC06o7Fb//+wIaJRk5AbtD8D3F9zPdv2SoEj7v yUc/DGlWHASBrGSQiqq8kss0DBpfnnkrmicDz9Ousd6jVF29SJi625YEv6T+ HuQ5T13P3tq1nZUIQdlKtum2w9C7wZxh9zEB9vK1Sis4DsOa2fbSIZMEcAnU 3W17OgxC8mLywScSwNTeJmrx9TCUXDoo90P7E0iKBdbJxg1DElPHIbdXcdCT MnSioXsYtA5B+UPRWGBff6IqPzQMz+52+tQ1xICOBuuDzPFh+GdMk2BvFQNd C6oFYT+HodVQd//n1GjolC1QNd03AozJ50fPyL2HtubAB+tyIyAbwK8aHxEB TLyiwXYwAjbXOM9eUY0ATYe6gnHVEfBPjmykWwuHFvbNrbqbI1A2fT6i9G44 NBnZBofaj0DVjtz9eNkwqJ9XLhRLGAEmtyt1H7lDgA4bH4pLHYERg9ZPRsXB cDnMfZstawRurhoeVZMPhjqZ3Ctr30bAQ4HmnuXlIKh5eWy4tncEYrkjdjgc A6AKt75tzEAEhawH4hm4d7BjGS7QxUyEcLvY7b5MX1AsPqOmwkEEx4b6JOer vlBxxypElJ8IOZ7KCrs+b6E8qUfg70Ui/F6z5q5i94HSC1lqwQ5EoO88+eaP rTewtPT8F+5MBIPZCtlIPm+wMlmvfe9BBDFyxBj0vwb2typYgg8RaA4fWfuo +hrshobl8uKJ4JU7yX5Mygv4POnFejuIECGSFMzs+AKcWcVtB/uI4JyRcvTq +nNoTdJJJY4QoZblM4OU93Nwa/soMDVDhBkOC4m/cc+g+5g0z+oO1Z45b0/e jAe8IZgycZ4dhVVRw1vuBFcY0f1Pg+fCKMQd4p47auEK5+YyfI8rjAJj6w0+ zn2uMI77S3dKbRQGOUkih7VdQNYyYFvOdBT00qW+Jy45Q9BanoKi1SgQrqlo fI13hin/QXclu1HY+BEmNK/pDCGFAn+vuo7CaenJRCZqh/Bj37eFO8GjkNzs y3/V2Qmw2HFx00gqt1arfRV1gqgzdHaWH0bB5LDgjDDpMajc1p61+zIKpxxL HxrdeAwf06YnnqFRmLU4YnhT8RFoa7J3x/8eBb7vPXS1AfYwQms4K/SXuj9e +Re+zPZwr+LTdsbWKNQxideYhdiBh4SEWAn1nBv9ULor+vEBpLKqe3cKjkGM 2SNftVZbONcUFKMnNgas2jdbW4xsoeJVfw5RcgzYIzPPCy3YQPcfi9FZxTHQ 8L3NpshlA1u9zy/QGFDtrYgbq3pZwduAOk0fkzHwYzIMKzluBeyqBy2YrMbg bMbXwGZ0D0SKo4O4nMZg+8970wK6e3AzumBWMmAMjun7CfxJsIA047kYc8IY iFV/ZvtzzAykD0vmzjaMAU9oWhT/F1OoandpeNg+Bokzidh3DlPoxdMtu4+M wbyJVRhl7S7snDh+LWxlDEgR9b0uI0bwbtjKgmtzDDz+k/cbMTACjrBMt/g9 49A1kE52Hb4DYrQXUzJYxuEEnFdWIBuC3rTuTs2pcThusb9g4YABkOI+cFw9 Ow7ep53vn4q5DQ/0KWKdF8aBVOKfqy92G141Ot4mKo/D5TMHqx/d1IfMdL/c ZeNxEHj3XoxQqgt7HQgWQqHjQKcdaKU7qAPJtqFhCu/HQfv+AtvsWx1QtbSo uRk3Djemop2a5XXA14BOwCt9HCr9vxfafr4BLCrq5LHqcaD9JvLuwK4W5Coe xa02jsOpn376bM5aoCP3A2PqGAfXJ1kFNj+vQ4REQMLFkXFYOxWsOUm6Btxc Xabvl8aB2+mN96EZDahg/xycvT4O/T/5HJLsNeAusxOq3xkHxgf2HxVXr0LC Xo7jK4wT0K4+s+HIdBWE52+P3xCcgLd/ihrmddRAumbCmFF3AqqCn5AKpS5D X0VuAP+dCfC/YFZ5fUAFXEq8KuTMJsDhO0u+h6cKlGUK8trYT8Bu5s8dlxZl wN7bEGvfTICwezF21UMJKKFyB4l+E5CQ9+Byj6gSeAccUFgKmYCN1jP7q0Yw aPD6GnsibgKmaauIqRgG1+x/Gz4vmoA3qi8+qsjhYcGa8C6ifAKSXVc/qmcq QrB56Lev1ROgyHIxs1xAEXr0pY+OtE8AZvjnZu2RS2Cg5DokMzMB9/vZ+y9z X6TOAy9Pux0kgZYJjeovHxn4vrHo6MxCgvM+S/vsj8vAJ1uLwkc4ElzPCCwt +nYBmK6oKt7nJIGfoDvzu+XzMENzUPuOIAk0b0m/uecpDR8dn4XrC5MgorqE 2ZZfGm6Nzw/eFCWBbt6hxK0mKSCUd5lpniWBPu7FqypeKYhxiXK6pECCj84f O/70S1L7e4YSOTwJuK3XM5vfSgK9rvvmeSUS9JyV1qNRkASnc8ZvJNRIwN6y bT2tcRau/eKP4rtFgiNtDPQfDkkAjUXWNxo7Emwwt/27xykKxV18O1sPSbD2 YsGm9/MpeAghyhuPSEBHw5tncOYUjPA+af3jQgImTDPH+7oIFA7KjVFekyBg d0DBOukkPLiSwT/xHwnqHyWaRiqeBP4iHmuiLwl2NF4XRA0LQVDYzkJvEAlK 5F4ILR4RApvrdTT1sSTYf5evSzhVAPgqLqhWx5HA5fErcVYtAegT+/KuMoEE gG+wDlzjB2y/H3txKglkJP+GnNXmB+5abaEv+SQQGfdqvM52AjrkiGrvWkjA UmJc2ZjGA/Hyd90a2kkwtLVPXYKbBxwvTqTRdpMgW6DhrWUQN7BdmjzwYpBq byrj08GXR+EW/Gx1miLB+l4PtpGXnCCEPdzKmSVBSEmF0S16TljBfovP/yCB iepjT5ngIxClvBxo84cEI7UcXAfTDsOQ6qa28Q4JPL+YVeSsHIL0K89fxewh Q5Gw3iG5wEPgobabO0BHhoG/wRbdIoeA5yotu85BMryWoAEWS3YwuXawT5WL DMVXTCLjF9lg8iaPwVkpMujx2DdIEZig8Facr/0FMjhGhExEijHBG93j39Ll yPDN0ytp+/1BENYX5BYCMlQfDR2P92QEW8PTo1zXyHCPVyIu9N5+kL+TxaSv TQbCvdueXtMMwGh0VjH8Jhlmv1u8prvPAF+NpeOZDclAHzSlEOJKDwumCmZ7 rcnw6C1B1jyPDqrMKkPgPhk6bvo88lelo+oHqp/ZkyGrz/3OLJEWJC1VBNac yFB2tayDgZUWnlhrTv18SQazngONKHAPrNsb2fbHkEGOJ8kgs2kb3xeUeJL4 kQzajbILU7Lb+NzcOQrpExkaxSZcKOlbeNsV17u/UsgQ5MR7Yy1yEz/kGXGT Np8MwQ9vLfEHbuAL44isB4rIkNSefo4bt4EPQQLtLKVk6Ncqu/7k/TpenTZP jbuK6r/WnDr31zV8qV/7pXMtZMi2xR2mn1/FR2Ry/JNpJ0N8atOLjter+Ecd RiWXusjAPzNv/pl7FX+K/cc59QEyaA6xscCNFXx0DL2IKYW63lrdWLtnCe+e BrjAf2RIeNeluC26iNdv8ekI2yaDxgK/9vXS33ipX+3+0TQUCLqwOvjp+G/8 j7PG9Mn0FCD1HbU/sDaPv1PitlnGToEVRGtv2fgTLzOMSgmHKbBv7GOZsPJP PPsmvUsDFwUaShgtPdEPfAs+crGbjwK2uH7j1Oo5/MWGvOnvYhS4s9qvlkOZ xR/5vp64IEGBxYKF3S+PZvFLBzCzFUkK/FmRVeilmcVnXO8Y2ZWhwCtWtBwp MoPn7v/ReUSFAtes+uvSAqfw/yYFyy4bUSD1r8NnnwIyvuNd75NkEwrEjAvy muqT8UlnvSXoLCigG/13VmaThL/mSUmotaXAl7nm26UaJHw8++e3yi4U4NLb SSvaHcM7ld5QSnSnAPvvNyX7LcfwaiY0m3ueUyBFso1Q1DyKX0w3daj2psB4 hG1YbwIRr6zEp4eFUiDQn6NL3HkYf2S2nSUhggL/ODJsjRaH8D8DnjftvqeA X39qkKHjED5iaFQBxVOAXu+AhM/TQfyM4wcBfCYFgg/rz+0k9OP94rkWFRop EHE9+s492x68yeWm9A8tFBCSbmycYuzBS/9wtdxsp4CGo8qySU43fvTC4EBZ HwUS3C8lc+x04c+0R1bKU6jxm21erLLoxO99ouoaM02BbJtpZab6Dvwg16rk xncKlCWWeqWLdeBf3dNNLv1NAQO5K5f8dtvwPZvs/rLbVP8GNw6vt7fgUz/X XH5PMwnSeUaa/eoteE81p52/tJOQ/V+XrXtDM14ovPtxMeMk9OEtm4aam/Au YiEGF7gm4RuHW8nt3w14jS5qa8UzCenz2drtLxrwx11+t67wTQJykOd5z9aA b6rWgsKTk5CorVe3fLEeH2ezs35IdBKezQqGP+ytwzsxZ+c/EZ8Ev7cfnA84 1OGvFNy17z07CXfvBwaXM9bh////V5i8XH3dLb0W/z+ljJPQ "]]}}, {{}, {}, {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Dashing[{0.015, 0., 0.015}], LineBox[CompressedData[" 1:eJwtmXk01P/3x2V7h0hFRVFZEu22FLnvZKu02aIkIbRJZSlbH8mSJRKylCVL CCHG7oVhxjaMfRvMjC0iS7YK/eZ7zu+v93mc8zr3vt73Pu+9r9d57bN8pH+H nY2NrXwDG9v/vrtM+fcrKAyj2ulDrUeX34LG0a9Xjx4bRmKcxxfLOcPgHtdV j4OHh5Ffi/EBg61hUJQb3iEpM4yseE9VhB0OA0Pe3d5Cu4aRnjNWaGMdBkGl cvRF9mG0cJJHx7I9DNbFdGOK2phor//PFxmEd8BgvhRQf8JEPnI7sv3DIkBk rH2eP5GBqgdyt2v8jYbnqbSUkgE6yn+jKSgVHAf2/OnKauJ0lOtVEX2YkAjp /Ym+XB8HkWPHpmjlwGSo3X77tJ7IAAq3/2DYYPAZajW7f+x26kfSmJYhepwB c6jD6H1PL2q6G+OxEpgFDwrO3Gy81oPS1Ly/RSnnQMPHO2avCV3oxds8tpmK XHBh+73CdrwTqTh4cr6R/gZXcrZdlfjWjqJfGeEzr/Jhk8FoAkWoDXkd7ni+ R4QA/12LUSQKtKEHr8XjbPYQYOHG5bqijW2IrU2YkCtNgAHr4pmk1Vb0j6Ly x0CeANnOwequI61olqf8XsMFAlyOUaLtz29FWQJ9wkEvCBDG8Nnxn0ErUp7B /rRNEoB77NQXp4utiJzG00CYI4Dr5Iz6fZ1WxNh8LDphhQCWv0xtjFVbUW/3 2gtf7kJQ4DpScEiyFVWKVfp8lCiEjgNd+r3zVPTP1iuVx6wQdjjsfyMfRkUv 90haPugoBOMrJedSA6no9+LOW0O0Qog8dolL1IeKWg0++JuNFsL2OSf3Dc+o qMlMiea0VAjCT2rvUW9S0SsVmVkZkSLY5mitYy9LRU6ZTospFkUgPqu5wdCr BfksEFNWVoogLufBM1XHFhT2VvjzHHsxiD0On5GwbUGbdJcP/d5UDLvnhwfm 9FrQRPgWa8V9xSC68LIkZGcLGrQkDN06XwzbVyqfNn5tRvkFG3i+xhcDP9vp MY1BCkolm8qbXyuBpT/4F9tWClK/acN5xqoEBhc1HYJqKGhrSr7kiUclkPND 709nBgWtONhymfuVgGG3mcBdFwpS/L3mE1tUAjHZ7sohghQ0stVAgG1PKRy4 Webbr9GEGh7OTnWslsIWk8oLbMpNKFee49RLvjL4o18jKC3bhBZ02y+eEy2D Jt2mGPvNTaivxvurtEoZPFKkZW+gNSKla6RCMacyIPCtdsk4NSKLIxY/1BfK 4GyJqozj5wZkkZB4/ffGClg/drDYObYBlZvYN+4QrYCSz6IXnoc0IIa+krvB wQo4FvHb3tOlAY1StntKXqoAcYdCgr9OA1LP2qd8KKICVqQVtD+O1yMXvg2c 22QRZL2Vu0OSqUdD3679nVKsBLuNost1u+qR4ZmCK6+hEqRe8Lxu3FyPPoh5 b1Y5XwkxD75nUpfrkJ91mh7lViX466Qu9JHrUIXDYeu+wEqwXNv3asa2DunG SHl9GK+EHXdFknamkdEFZvaF/OwquPee9GpHLBmllmS+Xy+rgrLapzbb35CR 889jpVaNVWAh0Swr5EhGHwU9z734XgUZ/S9zNuNkZDe2sYNNqhrUL02Vc/eQ kI8qtd8koRruKKCeBYyEekSe1lZ9JULR7Qclv/7UosIz3yzrqojAGyryYX66 Ft0DFa3ZdiJkTz29Ndtei3y5FguSV4iwknJg7Ed8LVrnFzdKPVsDQTvDfjFP 1KIEu8ns0/Qa+LZmLdBqW4O2eBqkXlEiQc/ntbKsGzUowz70yv3zJFi9Gnk/ 4HINClhw0E6/RQLtVHLd2RM1KMb2Cy0kgAR9l+S8Cdw1yIYwdZSfSQL2hJnl 2BQiGtm/v2XhPRmuaLgybIar0cv7gxhzbz04TW0NPdtdjcq8wx/Wn6qHmMgv 6nsbq5HDQ464PsN6GJmkxfbmVSNOZ98Tbq/rweUdGOu9rEZq27dB6UI9xI1w Nh7fV40WxhdCbNobYNo3JH/VvAo10/xuzeQ1Qfr30bzOq1XoHLHv8N7OJrhz Xi03W7MKCeoSNAKWm2CAfyLLQq4K8ZzisuY7TQFKuMbnmsVKdO+amF99AwWy Pi1GBwVVon9WpQSnuWbocy9cV3FEyPAkpaOBQAV93PrvpClCuFb7WdRIhQaO LSsfACF16bm/HXQqlATcm2PjQ6hZyWjQmq8VYqLERuoSK9DSZWqQqGUrXM/3 rjdpKUfcx44krQu3Qf+Py+HP5MqQTmji47yodtgvVXAoRbAM+eXe9fyU2w4O ZqK1rUulaHpR6HBhQztwU0YW5YilSEJIcf3SWjscy35+beBGKdJoLriiZt0B vg5JohrBJchfOTfx0MlOkF9cSuCbLUKnY3fRTdi6weOw2UmVriKUcfGPyj7x bqi7U9VqXVaE8Js33mxV64abXYHsFf5FiOqQXeDwrBv8C/daO+wrQh6Rgkni v7ph8Pl5mU79QrS52G2z+WwPvF7/mBVXUIDW7S87XuLrh2dH+oZ8Pxagb4ct v+481A925tu3PvIpQLN6RCHei/2gW/HGGYwK0JvHGpWWIf3A7fkC6Av56JdE Ev5TmAav1ixa9ynmI80rtMKXcgPguSq5mJyXhzYMt94+82QI7A9ZyATH5KFX LZa/xaKGwNzsg6nTyzxkEi4XJFUxBKfLhCq09PPQ68yl39e46LDqxuU3NpeL hJ8H/6Xr0+H537GdB47nopHOF41zc3QYXzB4bnzrK5LvND1wEWeChAJx986D X5HEmTHlymtMMH8sX9m7lI3EmZKqFx8xoWtaELv5JhuFm9N0C+KYQBqjhFuV Z6Eql/32FetMSO7RyXHYlYnkYq5uLCMOw+0y1fGA7jTU8+ze3Yjbo9DvLWmE Ln9CEl/LSwnT38EiFz+0Iv4JhTt+L27nmYCxwZscx38mInvab5mN+ydg/mRU 7qegRMQmLHKh0HwCNs5uEvCtT0CcngybI60T8KBoKjjaNw6tFL2X9yiZBIm7 YY/zH0ahwFCtYY+4KdgdUfq4w8UfvU+cvKBmNAtNcJhN7LoffFbaNuVVuwAC PymD35o/geIZBRXCvj+QVywUtm0iG2K4lw0o5v9g93Ir8S0HAbDCD6vcT9jx vAROXQMxAlD1e9ot3Nnxc+dPNAmdIMCqu6xngS877vzxQ8f7ewS4VFLDdzmW HW85azv6sZUA59z4z52pYcdfhq5yZ8QXglaN/BkhYQ58XFbmfLVqMSyfLDrL mceBe7abNnsbFcNX02bX6FIOXMgjSF/rUTGIKzT6ytRy4Dh17nrdp2JQLSoY PNzDgcc4l91v5ikB+4nTPYw1DlyPeDW4r7sEhsq9jHt1OPE8M3fq/NMy+Exd 3x/byYknC/SUrASWwbaZ7JroAU48olIhZT2pDFoc93iGjnLiz6R+POftKAPv 3RlCNouc+OkpU0kJxXJIeSbkkyPEhde5nXC+ulAOLlcvKBVd5cIHY+Z35Tgi iNmY16pRy4W36F3iJgQhqHjr5HOkiQuvXE+fLU1G4FouNinYzoUnWd6uJXcg CP7sHVtM58IVhe0KH4lWgnjLNpfov1z4H1qXhZ9rJUgLlK6+PsqN+zzI/0Y4 VQWXGDfhewg3PhYsZVquUwX+TcmZgpHcuO7X8HWiYRXElZrkHfrAjW+adzzX al8FjXZnTSGNGw9zURr68akKFh/r91IQNx73ksC7j68adova8fhOceNsyftz ZHZWg+EHpSbmHDd+uzbS6Ih0NQw6cLnKL3PjUhtdElShGv77rW+fsQHDvwSf UDZ+Wg0XhJSS/wpjeFFU0e3A/moQv1IzKqqG4aIlB7Cw79XQJyTbnIhjuFt/ VGbUYjVYRBfz7tLCcHXx58spm4mAiqZujlzE8Jqkk8GVZ4mgKDH+X6s5hu+v TZcnXyHCJ4sL4pOWGO43JtJDuUmErxR3yoINhp+X/SPR70KEfS9+naHbY3hr dknR4hci0AudswQ8MVyeKme+WkQEQUofe6EXhofPxXBwkFj+SKuHr/pguImi 2yVBOhEWK8wmrgdh+GCx6oicUA2EtTopEaMxfLKmbLOFew2IP+L0YuRi+PN7 Z777+9eA8n2Jt075GL5RkFSZG14DIv675lcJrP3eaHnMkVUDfdckI0ZLMdxq jtGeOlADE7a5E2K1GD4faZPZMsGau3txXj0yhr9U+/FqZbEGmgNbrj+sx/AE vwWl8wK1cGRZ0OM1BcNpYljUtHot3L0ebynTieH3iYEO2y/UgszivvifXRj+ x07wHFyrha4tm2bTejB8Z77In9BHtaA1NlC91I/hn03j2ordauFkxKB6wACG K/+T+ML0q4XJmmdEwSEMNzp/yEwxoRZCDd/3LzEwfGQmR/FmZi3MatPvGg9j uGOEEr9vUS24T19YShvB8DC6ekU3tRbevNzAJjOO4ft8iZFsA7XQ4Vf2TP87 hucc1H0kO1EL/7m5jzlMYHiz89W9bhtIcPa//ijfHxh+c3fXShI/CeqXo3o9 pjB8qup6a5MICWyUojC7aZY+bIfSF6VJEFElvk/rJ4bz8lu/FJcnwbMJPynh GQyPzvt+XUedBA5ETcEeFh8weajgwDqXPFWgMYNnMVwnyXmkypIE616SJ9rm MLxL92/ZpD0JrK9cIljMY7jNzxcR29xIkBR7bgeTxYvvOO3V/EjQ9orH1PgX hr86+Vr7zjsS9G6Oci1n8bYh/j1v4kkgsl/YbccChn96FbZM+EKC6SiCqTWL j8vtoA4VkoAhWSeczOLKlti0jTUkyLH/kt3F4stOe72OU0mwYXOP5CqLB0VT TK/TSLD0ut9RaBHDH1bKynt/J4GFkWniHhav3snmzVwgwUAPb7oYiwP5FIY7 2MgQbo8CBVgsmltYuraJDO1WZufmWfbSjdXC94uQ4dpvGqOOxSqrlQ8uS5PB 1krfKIzF5EQtrWfHyZBeP5x0icXGOg1iiafJUKfdTFlj/d/o1KWl+nNkqBy3 bo9nsWNYe/O8ERm2fxEsUGQxh4rJ512WZMh8ceVpGSteYQO0F5r2ZHh8tljg BIslvG+bPHQlQ33Vol8yK965B8aORfqSoSyXNMT5v/i/e1PqFUaGkOyQuBus /KyuK2s/jCPD9Wt5lSms/Ol2+t3QJJAhW3NEXoiVb3v82NjRajIE9wj7qLD0 EP6lx2FXMxme5I6qX2HpZchL1nd+lAy8HS9/mk5iOOd0q+DgHBkm2raNX2Dp Tc7ENbZ+jQzdzxv0jrP06HykMSdBuA6OhvHbdI1iOH//g/5LWnUQdmfLhgA6 qz9oC9uculoHNZJ33+1g1YNJbvms9M062EMtToxi1UuynwD3mmMdRNQcVHXq w3BVxZxjX5LrIF51KSmqHcMt4k1KI3PqgPz+sEl1K4b78m7QfllWB/YJRz4M tWB4G/3qDdOOOpD79HNwoRHD7wb/8sE468GZ0ywpgIjhb1ZiBX9troe09guy V6swPN9KM3ZwVz1QrUnX+BCGs52KyClQqIdNusfKrpdg+Psx5X4rq3o4HzaG 2eRgeNnVoTuXH7FY8ptyQxaGM8v8Zk+51UOy55eDEl8w/Mi7Hq6t7+pZ88r8 WVYKhteC67HKatZ6jvyt8jGs/pYhUfqluR4elql/V3yP4YLbG7Xe99XDwSTL 1IPhGG42teuG/Xw9GAUKzSwEY/ivqHKf3RIN8NUzVGX5P1b9z7P1P/NqgNS/ FruRNav+U34I271pAC+phuEcC1Z/N+26ci22AfqG8qnhZix7lV9ISgUNYOZN UlEwxPDIN8Z5898bwHhEd0ejBoZvOpj5+sGVRoj/7cpjL4bhMYORNTduNkLv 9rPdPjsxXDbM69/5e43AyXTRC92G4dq/jZ1kXzXCQf/RKx48GO5F3nB7rLAR YnmFqooWuPElq2sqFnua4BUtzbu8jht/tUPj6eVDTeBRzZThJHLj2xoPZauf bALKluZN6uXc+DF5dikxgyawkhGsDszlxu+zZW3u820C5aiLbKHR3Dj9A/u4 wc8mIHnE4lq23HhDZ1aETjkFzi6RI/N+c+G+/FkcpvUUELTXU/81z4VraGU+ vtdJAfND4fxyU1x4aX7GxeBpCvzw6tJzHeTCM9995moXawaxJ51PUqu58OCr iU7mns2QsX72i/JrLvwKJdzICVrAMetYjvdmLvw+szyg1YIK50yeuplycOKe nwZFzGypcL9sMr38NwceavkvbewhFTgUAvNFZjlwAhMn/3WlQqvklvhiGgfO Nkzk2B9BBWeSZWhMAQcePlzv7lpPhWDynOLMHQ68bKTTXlK+FX4L8+tcq2LH +cen9Z042mBzee4Ois0G3OJxtsetgHbIyqRKxjmtgX/2+FQ8TyckxN+dkT66 Ak0rd62N07vgxdxIzL6medik2XbN5msXeH4zDhQqnge9kFMXnAu64K2gp69g 6jw0SvPJR1Z1gU9MRqPkf/PQoJ/5r7O3C9hDSW1FivNQn/kzxoi3G44N3PNN jZ8DksXTVsP73SDyJyG2x30Wqurc1Q0O94CcKK8mR9YUKKtw844q9EBlaFPA 2ddTkPE5pNP5VA9YhOhhcXemIMz304MYHdb6W6e7EsWnwFqzLoZxuwfcrFSP jL39AdyV25YfRfZAvIT6v/sek3C+MONr0L8euMGxEJRj9x0q9iu6iXP3wlGR wZN6ut9BPrJcO2dTLyTqbtTmOPAddjlRB9pFeoH2nRlKHB+HKfklvl2KvaD/ idcp2G4c3mSfsUu364WsmJqec4/GoC2lZy+ptReMyjluO74dga0rT7VO9vTC E7QYstFpBK6e33wvc7AXJAUkTApNRoD6U+tb2I9eiJrxzrLeOwItJ75p3eLq Az5qlMJ6zjA01QffW1HpAy596iW5bibUTmvkyyX0QUrWntzzJxjAiQ/2fEzt gwBxf5eD4gzQDHu+JpjVB6unxS7u52JAjXKO9nJxH7SnZfPca6dD9QuxXmJ7 H0Saa/498JgOFVtW1sywfrBiGpf8tRyCIqUsnRD7fpBiNAQEBNBAoKHN551j P6T363bE36bBHfMV4nvXfjj39r47XYUGW/3O4gm+/SBkkxw/PN4P93t6VXLj +kFrzUV2RqcfxN245dqb+8H0BL87r2AfvKq8tWnHURqE6sg7E1E39Bn6nN+l RIOxsVfHxT90w/GJDP89qjQQXNIqTGTdTwe3LHEe0KHB0VZZkoR8N5ywClpT uUUD6WlNW97PXTDJVfzzeggNtEd+sN+I6oTLF7a2xs3Q4M3xs8bGrPt2H4fp uNQSDXY49J7ndmkH67L4tYxVGggdfPSOadQOrocPyxXyDMDE478xe4TaIXWz rneL5AAcNbrT9TmsDVbbPZTYTAag0phTo/19K6SZTUTfrhwAC42lZW3vFlAQ PpYzThqAwabeOeULLVBBcSY9pAzAuD1hxHlbC7Src/563jcA/wKfRY4mN8P6 3j16YQsDYL7Qp+fcSAGjUcP16gODQHlJ65aWaQJ2+0pLqbeDoMv1aKByO6vv 270NU30/CIqFGWMnf9SBlpVltf7HQVByP10xi+rA34RTwit9ELT4nk9uv1cH Amd1GQNVg7Bv306CehUZRHdSb72fH4QAjb+ida4kUKgeMuM1HIJ0vhlbSZEa 6CjLCdp3fQiGJD8ZDS8QwbnQq0zFYgj4BVOzeqlEKMmU3G37YAjqkpfy7F4T AX9v2098NQT6jyLzeNaqQe/BjKlHwRB8vHWqXOpnFcgHvjj4jI8OB6eTXEyn EHz/PfvIUYAOP2NW9lfmIoi3s8x32EIHPcEL2V4uCDZpa52+u4MOzJxPCds4 EYyx8V2+LkkHiVyuRNt9FRDtHPlETZUOEamUPU4PyoDNMquY7T4ddrsbppme KQYCVXx99SEdpIfV0gy2FMNDCNX47UCH6SP5NbGMIujb/bRxzpkOGjTFRiHv IsjvVhlgvqRDk2usVXx9IdherGGrjaFD7cSf09XWBGhW6dd53cDy7+vBn0b9 BnEnbz4jUVj+tUN6bqV+g0enhtI4WukwXpmSf8f9GwiqDfN4dtNB0sOty1T2 GxjAj8YnI3SIFK417PbNgx6tv5fN1ungHlMrVXs5F9K1Pf6L3sCA5j/OSrJy ueCq8y+ni5MBv+gitzo4c2HXOY6tV/kY8Je2/eJ6SQ6Y6/F1aO1kgIlAVm+4 XA4M6+8yOSrPgK0yLvb0Q9mQb/DR/4ESA/Z+i912YDILXhnuKU5XYUCveBZ5 9nMW7DeWFJUCBogNWx1jl84CO9ODtJ16LPuORasC0pnw85aqBbsNA2LLK1Yk 1DJg5cENu85oBvR0Cr/6VZkKHW8+Sfd/YIBCocWRG6GpkJMzwaTHM8A8Q9lP 3CIV7BZcbk6lMMB28zwXgS0VetzC9TnyGHB5t3PyTu0UKAqgqB1vYIBPVkXH cUYShGcK/VGmMCAo5MKNrYQkcGi+UahGZcDI818DWoFJcGDr5HHdLgYkN/hX JiknQVQ0t8wtJgO0+vLdDr39BM/TYEvwHwZwy9dT/xkmgnGDb3PYGgN+XklI azuSCPJTlMAoNiY8jp+xmd2YCJNHzbiTuZlwZuhLKm9FAlwvfPa3ZCsTTlos V2UeTIBTpNzR73JMCDCbSHc7EAd/hiVLNG8wwUP905HGIzHQ/Lr9abI5Ex4e mK7xnIqGpKPehzktmWCkmMJTnxENem7MBKIdE+52cfCIyUZD3NZEPw1nJsQw Y+SSDkWBxhlxI/wty7+z/9TRS5GwfZwikBDOhC1uBo51QpHwI8ij7t97JlyX 7RId64+A8B6aKopjwjmpkpjM+xEw9ihWQj2TCRpiZQnn3oZDQNzOWVUyE0p6 VaeYv8LAXLMuPbaBCeclGkYNqsNAYdLF6i+FCf5d1kKn3oYBTam7q6SDNTf0 my9aHguDI5SI8pNMJrh8MVHY6PgW2v5uDTyxxgSDs8W9g5tDITWxWvM92zBc KVWbvtcQAm46T9aXOIahaiCwb9QpBKTetT4m8A7DiNo5XvWWN+AsF2qitHMY jLcp/tENDIbzVNgasWsY3myPXFZUC4Y9zjONC+LDwHvGyY4xHQR1VZcgX3oY ZkvzTzkZBMFH2/WVbbLDwM4ram+KBcET/uy8p4eGgW8jW/FyaSBof7v5oP3o MAx3XQ+89DgQ/v/9Dgw7hq6ZyQTC/wFvgeze "]]}}, InsetBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"C\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], GraphicsBox[ {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Dashing[{0.135, 0., 0.135}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False], {-0.3, 3}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->False, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox["\"\[CapitalOmega][\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"PDF Comparison\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Normal (A), Unleveraged Normal Mixture (B) and Leveraged Normal \ Mixture (C)\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.440765552376317*^9, 3.4407655711087*^9}, 3.440766361931965*^9, 3.440770401979423*^9, 3.440770623330226*^9, 3.440770712493104*^9, {3.440770776078689*^9, 3.440770784089181*^9}, 3.440770973700871*^9, 3.440771357632756*^9, 3.440771393860735*^9, 3.44077379370372*^9, 3.440789546848405*^9, 3.440793783782777*^9, 3.4407938470871983`*^9, 3.440795389162018*^9, 3.440869255529819*^9, 3.4410580836428213`*^9, 3.441124266392329*^9, 3.4411313086315804`*^9, 3.4413826266047792`*^9, 3.4413826885419083`*^9, 3.441382860965252*^9, { 3.441383084940229*^9, 3.441383098615749*^9}, 3.441383361847014*^9, 3.4413918373546247`*^9, 3.441910679746394*^9, 3.4419891673149757`*^9, 3.442010286962213*^9, 3.4420103292955427`*^9, 3.442934724975504*^9, 3.442936331995678*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gMixturePDF", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.4404610224942913`*^9, 3.4404610267556667`*^9}, 3.442010197376594*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gMixturePDF.png\"\>"], "Output",\ CellChangeTimes->{ 3.440461029382649*^9, 3.4405471090489492`*^9, 3.440547208345229*^9, 3.440548085000004*^9, 3.440549374147683*^9, 3.440764093202334*^9, 3.4407655852369347`*^9, 3.440766030182685*^9, 3.440766363916396*^9, 3.44077063359507*^9, 3.4407707219191008`*^9, {3.440770780956209*^9, 3.440770805051072*^9}, 3.440770977004753*^9, 3.4407713591470947`*^9, 3.440771395448988*^9, 3.4407737951399097`*^9, 3.440789548584779*^9, 3.440795394369357*^9, 3.4408692570268908`*^9, 3.441058085461649*^9, 3.441124267849779*^9, 3.4411313105679493`*^9, 3.44138262806146*^9, 3.4413826901173677`*^9, 3.441382862498509*^9, 3.441391838931622*^9, 3.4419106815101013`*^9, 3.441989168998849*^9, 3.4420102871003323`*^9, 3.442010330966913*^9, 3.442934726770002*^9, 3.442936333677865*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gMixtureCDFTail", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0.1175", ",", "0.104678"}], "]"}], ",", "x"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.6"}], ",", RowBox[{"-", "0.2"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[Tau]\>\"", ",", "\"\<\!\(\* StyleBox[\"F\", FontSlant->\"Italic\"]\)[\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"0.95", " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0.13", ",", "0.085"}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{"0.05", " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{"-", "0.12"}], ",", "0.15"}], "]"}], ",", "x"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.6"}], ",", RowBox[{"-", "0.2"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick", ",", "Dashed"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"0.95", " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ RowBox[{"0.13", "nL"}], "+", RowBox[{"0.03", RowBox[{"(", RowBox[{"1", "-", "nL"}], ")"}]}]}], ",", RowBox[{"0.085", "nL"}]}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{"0.05", " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "0.12"}], "nL"}], "+", RowBox[{"0.03", RowBox[{"(", RowBox[{"1", "-", "nL"}], ")"}]}]}], ",", RowBox[{"0.15", "nL"}]}], "]"}], ",", "x"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.6"}], ",", RowBox[{"-", "0.2"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Green", "]"}], ",", "Thick", ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.015", ",", "0.0", ",", "0.015"}], "}"}], "]"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"gLegend", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0.015"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdzm8o43EAx/E55ZSN7Mb5s3RKsSa39FOMk5/cL/26KyG6yzn/s1jrNBIO eaBcUsON23VpjLWYcvfgrmtL/lytdLMHsiYPHMJmOV2XaZvN9/N78On17NM7 vUlV2fqAx+NlkEFJx5xrWuemxwvGzmFYln4NjdYQp/zhd/9HYk8mG6ElXrzo lMHigJ2CKb9+K+Ds8y8qKFpLUMPg/lE3TDTED8AzTeQgTJL1m2aIXz1mTq+W rf2nd9N9nxtewZ+jT+WZ82469CGVhoxAz0DXN1457KqzvYTUrqAeBnyOJui3 P2qFhaG4IbgicY7AdkXeLRTf3UVmEaOjSqegc+1yBrJK6WwlfsffzMEnjY5l SJ0qV2Bev9BSRfQ9C1jhsFBrshBXr+PNcEBnYK3E7T9sBdQLy+zrxAYR5YCi XM0B3Pafc/4ocCXuEKPaPJzlW5tpkF9j55yIFtg8C6Sfr9mB6sOOPTiak++E Qa/vBnrZ2FsYnsqOuySWGGNEcLGo5S2sZizNUC6rU8Gg+JhT91qhho8ZSQ+c VG59ghsSvgFm1/41Qhv1zgx7xUNXV8T/ySeczJj0/dGSm863lHDeAx2oPXw= "]], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwVlnc81d8fx41QiEiSEUL2KmV+zgdZ2ZusJEmSKCLKTkIyS0iirDTIVt4I 2ePa18W9V6FlJ1G+P79/znm8Hu/3eY/n+zwe5wi7XbW8QEdDQxO2s/x/H8EH 5I4fn4HXi2ghOOIBNqPINK94bAbaHytMkj4+wJZEsGcKijPQYSXy/Tx9Esa8 u3i/nPwM/BmXyjmsn4Sh/vANCekZeHLeyoo6kIQVuCo0HxaZAZN3swPCv5Kx d5YeIQJHZqDE6pvrFG8K1qiTrcQvPAM9C5a585opGFFid+EhwRmoFwvJn7+f grEtT8dz8c2AYJCgWJF0KhYY8cCGef8MqIvqBVXcSMOir7ey7eGcAVJHMm/G szQs5cLWJyaOGYhbfdw52J2GlZ6+qMbAPgP7BQt5bEXTMTIHLkjDMgOF3M94 M0fTMYO8hflfdDPw8brV+yazRxjPR5NblBUqGP3zSP8Rn4nxy4cmdy5TgdOQ XnH5UyYmlPW64N3Sjr1R7W3wrixM8jr7wJ0FKpy/9psoFJaFqYkMiEl9owKH qvbKeHA25hxl3XeNQoVD1fENTPdzMLfF6M+OZCpcHKD2zQ7kYB6OlX90pqmw Wnfvq/PBp5jPcW7Rg5NUaAjSOXPo+VMsfGY0qH6MCnGN7yb93XKxvFOOR3b1 UyEscPnwg5RnWMGbeOWfvVR4XFc8xVb3DCvhe2880kOFaavghC+UZ9i7Vf7A oi4qiCLF3MxjeVhL/lSX8ScqPJJRDlMZy8Nm6d0C0huooLNXjWVR6Tkm3eLZ fvQVFa7d9fPbVi3EwoPtzhwppYLpRusXP69CbERB75vASyqkDcefNsgqxCKf iLAeKKaCNCKuC20XYsQbU2b0L6hwZcSU8qi9CIuVtB6dzqYC/2FtgrlfCTY1 re05kUWF3/S1slZFJZjSQ8U/I5lUOEbYF986XYKR6dj5ejOowHWxuv2f2UtM mdTh8j6NCv9mU/mHT5Ris4n4bEYCFTw17XS/H3yNaejKBabFU2Ep7yCjg+1r LGWLf3dSHBVyGRzv6ae/xjDPTcm7sTu8GN0+5XG9wdK0Kq8ERO/wkdRkq2d9 i51ak/plcYsKmdylquqHy7DcM9y7WLyp8JZJYu1D4DtM0mv0LctlKryPDOA/ /PQdVh6c4czqRQWzawqK3W3vsNYs3uq9nlTony0P4TpYgX2bPOy1z50KPo0U G4/6CkzJTbz/gNPOfdh3Yy5jfxX24dr8LW5HKhCJqStCmlWYXlSx5EEHKiRP h07RXKnCzjyXjuKxp0KKUc5/nZ+qsNBZ+ZN81lTQ1XHAsiKqsQ4vlWwhYyok XfBKbGOsxSxD/hgIG+3cpy8vxg6r1mKk+LpfwoZUaOrMUSJersUWSjXMRAyo MOkwzn+bUItxLWrSHdWhgvzVO8TY53WYy/XTntIaVCg2nxP2cHqPrYQ4KJ2U 2elPZrMqZF8jdo2RGxOWpgJ3s+iC4/FGbDVpQJdVamc+XpKKMbaN2NoLAzuq OBXoLei16580Yut9J4MTRagAOTIFNfJN2KbI/sZZXipU+6uY3HdrxoJf97YP HKLCXQGTRfu4ZmxLJW7gPQ8V5DzluoPKm7G/JrQzKdxUOCm3tFhN/xHbDlxk wDmpgFXM4volHzH67i6jR3uo4Ot8qPj07lYs2vaudeRuKoTf4Xr26kQrtoui 7XyFiQrnzvKd9TvfijGu1/qcYqBCZem3U3yNrdhuoaLkRRoqdH+VKmALbcNY /aNH9TcokJN/rVpibzvGxY+d35ilQKbvPgPJ0C5sdqlq7tcXCkR7JvorVHZh Na0K3qufKbBVq3U6/0cX5nRVNGCBSgGTtdUjfU7d2PNmlrufpyhwydrHz1a7 BztxiVjSP0KB7wbMttNH+rDdyFq+d5gCZyy/VO0614cROXvfdQ1RwHr+s0X+ 0z4s9H3T+zYCBUT+BH8VZ+/H2tiLe9/3UsB7jWUIkvox26rAlaI2CgwTye8Z cwcwifjlGwWtFNgQrlfk+ziAbZ69vJXfQgGKuDLl+uwAlrPn7K6nzRTIK6Ks r8oSsDknPe70hh1/gtk5rJGABdEfUIuo2unXJuD25ZVB7LF5ecSZAgrEyJgu 8yWPYG5Pj7ppvaCAi5J0V0zTCCazkKkt+ZwCng4LQnYrI1hDfBT9n2c7fISy w6RtRrHPbdZ3Mp5Q4ITNJ6E6wTFMDvsdO5pGgQeiUkdkO8axjfjLlyCVAruN 3R5Z0xCxJuL06cIUCrR4nDNYVCZi1kHtzIFJFLj/4ylzZBERu/nucQJ3wg4v kFBUfjCBtUhqJNlEUYCfQUe5+voklhj01heLpEDFjWf3ossnMbtPohZiERTo falRMLQ8iX1z38v5K3RnvrVhHrTXpjD23KnUtGAK/LYWTS4JmsYcuCMeDfpR YM49PPBgPxlbpGvLsXClQFzacAqTwgz24yVrFjq7w9OWJnbFbgabt7Z6JO1C gXPjfily4TMYtYD8gMGJAhPst7yyB2awEcOt8Fo7CggrJ9GdC/qMvU9ROC9s RgE24fqPQiNfsFr1wLNsphQgdTrRXqafxao+f3DcMqaAeVnZyj7FWezNSSPr YUMKmHo/bL12fxbLI17QvadHgYdzlcZ5hnNY7JEs8WWMAn0RGsG2o/PYnS6K yJTGzjzOsfW+Y/6KRfpLCHWpU4Djxf6eIPQVC2mr5HmhSoF5vOqfRuFXzMer f8+ZExRw51Qcabn9DbMuZ/jRKEMB50Ll5QT8Byas7fs2iY8Cz5dNq7nYljDf EwESSbwUePTW3X1cZglrkAjOfXCIAm32mVmjRkuYA3t0UuJBCqyPORlHxi1h aaRHvgn7KbC0OO2YzbyMMQaCQiwLBU7xSHZqc6/s8GQrC9siQ3t3nneoyxqm 9nS/ZNgmGXxKJBRM76xhsSk8z0L/kOGQ8z0ej9I1TOzmkeTbv8ngPsFx3ndr DXPRO+kXskoG9kumrv+yf2EDZGfFwO9k2C/axOy7sI5VHXhV5jNBBo7rk5z5 vX+wv5Gld+yJZKgt/fOkhH4T01p6eUZ7nAwKK2d9+FU3se7OElruUTJISLUI aL/YxKhhRRYfCGQolo5uKY3cwti/5S+zdJLhzZenve8t/2HWdvmtv9rJsNx1 +3RP4j8ssyXv8fQnMtwgdb636fqHHX36TOtdKxmqQOM4QXcb07B+muzQRIYP XzRNUzX/wzwbMhWLa8iQWHS3iaGQBr2WzmRIrd7RwXftGDto0GrG4/FbVWTY dWdfjuF3GhR6PSPCvIIMa3OyhrkKtChd4uHA7zdkaJL+VZ7YQIuaU5L99ArJ oI+rvVyco0N8F2PLZtLJkPXUvrfanwGVH9ajJaeRYc/QTZozTxiQ4Qi9BSmV DCtW/vK6bQwoSDdsaSiZDIIfHJ7SHGJEQyI35Nvuk2G3hl0dZzMjuk8+/6ro zg6vFp8Hh0V2o//O4MVXAshwcZHaOSnKgh5y/Nu45E+GjqNqrOt2LEiuo87A 4zoZZj1/03vHsyAnlZPzLn5kkNTSqbi+yoJquGXFza+QwXxYvnBXOyvyG+R9 cewCGQif4wRao9jQjPF67m9rMnxjObHtKsaBXrvEsP6xIsOJq0stgzocKMiX O2jTkgyPPf/VhbpzILa0k2b/zHfmPfOrPvQ5B1KZuPGPzoQMYxaLXxTFOVHC pd9n2HTJkCHHUfRBeT86EbPBKXaCDNPlR6xtYg8gmozY0KNKZKivcTmQ8eYA 6izm+SZ+nAzE37HxQqMHkGuPSpOUIhnqqAFBu8S5URzXzasKsmQYYU97JdbJ jaby/nSpi5EB3Tq/rHaYB92FzWjLA2S4e7DIyICWDxkY3TFGXGR4f/1B9cWT fIh5lJ1Laj8ZTNc2ST8u86HEBdF8Wg4y+HXfNpQe40MPBcya3rLu5JsSrrpf yY+eh+T/Y9tFBg9G9dD06MPIg0mudZOODFfj7sh4Nx5GEqk1CbO0ZKCJ8met /HsY2dlkKd/6bxqOFKmU5d4QRB7vFq8T16dBqGA2dktZCEVdzfjx8Ms03K4N LHirIYwY774K8ZmZhgvWbd2uLsIoLqeZWY8yDT4TLbsswoVRSs8PiV+kafgv fjxqtUUY5UprXbAamoaPT2RmTCyOoIa5r5PsH6dBqbaWu+WGCNo4q94XmzsN 21WJDjobYkiQtcfmTs40nKLrv80udBTp1biQIrKnoYEpskHI4ChK3Rf5NThj GjLN04IOPj6K5Jra6a8kTUPhzzyB80gcuR+xVbEIn4ZHUtqq5IcSqP+z77ND rtPgbDGRxBAljX4n0Ulwu0xDaW6lR0KFNDqMpb3mdNo5L3R06dKsNLqcXl3P Yj8NgS2Vl6WNZBCj3vbwP7NpwDm1ncZ4ZJFGYTwzFZ8Gvj5VJtdWOVR4qeB6 ieA0hGbx6LceV0Tv98iWhwhMg4qsiYCojSIiFL9bMuabhvpea0rTDUX092vj lUXuaRis+PVffZ0isvCauKjENg0xGetnq3WPoS2vfU4Nf6eA/Zzyk+Oex5GZ d7AOYXwKXL8621ZRTyB3Vtqo/NEpqO/QYaKynkTBpXeb/IenIOYy52sn5ZPo +Y80dHBgCsIG0/i07p9Ef7zfqDi1T0HvmWXXEQ1llH/ls8xs1RQ4lbxRq3yp gn77mB7YTJ2CMeHu+KRudeT/8Wb8cPIUfFg1Kuik0UBLB1/Qlj2YgqqH1vvc T2ig+catnxfjp+DznMKN6qcaaIyzuG04cgokOVvQahCG6qrog8r8pkBYok3N HuHo1nYN0dNsCiqH4uyXE7TQhuVncx2TKRCYcdhd/koL+ReyfxI0moKrB19x vO7VQt7mHu9G9KZA7P5hwhkObeSctz9BB03Bd8Kfx/GPtRHS88GEZHfioxPc 1ZWnEE2iSO4o8xQsJkf8NBTSQ4KBXXvHdk/BcqzJq1g9PYRcr4eMMU5BnPF6 KuMVPXT72EfbcbopyM1TCGyp00ObI257JzYnQXHd74j1GX20JpgXPPVtEvL/ GmcK5xuguTIhmy+dkyDVROW6722EGLPam7+0T8IE4vYqyDJCR6N9FWbbJoHb UVadrcsIuds2ssw1T8LA9WWjLiljRN482zxfNwkmT2Lk9ywYI+Kpp/I/SiZB o4aRwBhtinqHBZhX4yahbSzl9pcNc0Qqr5Nvj52EiO07rRY8FujbAzubJzGT MKNsELyubIEYDJNz9SN38j3qLf8WaIE0GnYpZ9+chHopVs17mxaopOD7eV3P SbAI+rP2m9kKxQTWfnikOwkXHDO3Yh1tUJq17Yz3qUnomfev6Im0QXmKq7u1 tSZh+52Et32JDfrwXcb6h8YkeHCfrtfatEFrZ3O/aSpNgmlthZrfE1vkZnD3 4LcjO/FLr14rW7ZD2CEbPw2aSag8YSJvPuyAFuJ8Ek9uk4DU0/GHid4R5fy9 +1LhLwkyaWU0WRQdEQ257ovoBgks9LeOrN93RC0FQg57l0gQkzr32MvICRkq /dCemiaBVtiVKPVhZ2RnFsUVDiRIo5PIZkpzRbubshWDP5AAXUhVOPjWFdUc qzL1ryeB6hutT9bdroiX+2usZzUJUvmUBR0ZzqEpkuk/8zckcA3NSci+eQ65 e/HOCj/dyZe77aV02Q353Smr/hhKAuVmwU9kf3e07zskpNwiAVGo9q9Epjt6 a9577lwwCcJFff+Wgzta4PvO8l8ACRT+CPIlslxA3uWirmpXSGC+V1fnSsEF 5DH9aHeZIwnONMmLnfjqgZxUQ8/kqJAgyYf3pHbBJfQ3J0HuykkSGJndM345 dAll7cqi11AiAZkDii7QeyFiX/WrcXnSzvsaYd9/zgvZeSzTHhAnAcXmVn/C kcvIMtW9JP4ACeJ2EecPV3gj/Z+GW0ErE3DCx9J4eq8vMmXaZrJcmoCnMxRR eSlfZC1cxiW9MAGxcb9Ov9HzRa42B+Umv07ALbPP1Vrhvijow4yrFmUCMjO5 Vqp/+aKS+7fa9vRPQPtxlf8Uv/khNrnXyZmvJmBBraq/Zus64jI4l3P95QTk L8UwVx32R7xuXC+Niydg8nFp+IKWPxJ/GNyy/XwCnqSwveC85480t/V+u2VP QIEHz51jvAHoWu+0k3T8BJgM7bGVMLiBRnw4JN57ToCN3anuzuEgFCagJVPn MQEv77l8ZdsOQhLdvgo17hNQKgKHU47eRCGS/SoVrhOwFVdqZhd0Ewl9Tjxd aj8BqXkMtnOHg9HlM6yXsw0m4HCyubB/UAii0WF6fUtiAvo5ln6xu4ai4pWT 5cFHJ+CL0S/PzaRQZPnMoypIdAJeG9xfU2gORS+2Wxv8hSZAQ39QIFosDBnW Rvd580zAJw1lu77FMJQuR7fstHsC1KrH0NuOcCR16N9xbJ4I/ymZf/6cEIma 64WX2GeJMN+VI8b5KhI5uOiVUmeIoNRfYBjQE4nu5T8QjZ0mwnhzUdYUWxSa lz1yYHCECEXXzP7opUWhQm39dc9WIigWrZ3/UByNRL2Ta9LyiGAz8EtoiPYu es9W5X8xlwgvew8/8ZW8i6zLiApqOUTwlhr6ampxF0WvixRPPybCgbLNx4Rn d9FMeNVjqWQi5J6V/EurF4vy0ieCG8OIYKGjzOeadQ8Jghj2w4kI72QljZVv JyCH9balGQciGD3zWS8qSUBpsp7PJ+yJoD8hkeA6loCYs0tYuqyJELG8cDBf 6T5aD5InFhsTQeR35JGIpfuo95hq4EUNIqj3hIZsBzxAtwqMy6h8RBjm+NMV 7ZyMqid/uhMPESH83pXjjDeT0QrXAx7CQSJwk9WzytKSkWfUQFjTfiLQnbrn drc7GVm52prmshBhVtTi2QmUgqR4Xb87b40DC/Ff/JBkKhq/f11snDgOBpZN wj9E0lHwzdp9E2PjwCDuwRStk474L/y3RRoZh1PunfbGF9KRq0Y8gUwYB2FR Laurhelo/lte2HznOLBaZxkyyj1E6/qE8d9149DBfDKrSucR4qRTTOTOGofg BegVz3yMKn7euMnzeBxmpul0HJoeI9vx9+68j8ZhoXwxum3+MXr81kD9cOo4 oOK9ZSYqmUjorOu8WPw4mJqFfxAkZiL59w+0T4SMwxmlID9+yWxkfGNh3cpx 5/zzzHNT6zmIZCOZKXVmHNjLBX+vSD5F3ifcMVq7cdg396nI3vkpur82HvXa cif+f6Omh1qfot5rrfv2GI7DnwtDRcg4F1lczZZqUBkHh/Kfq0/FnyFbT0MX Ce5xSG3PnpWkyUez+ndo/9s/Dj2mnPE6gvnohnjj82GOcXC9xCqdhPLRo9kT 3yP3jkOjtued+tv5aMxdOGhy1w6/n3QEr+185HhuIzlldQzuiUXk+ux5gVwd Clr/9o/BR9X9NSoGhSit19l1o3cM3FW1n0dcLkSftA9srXaPwcUWm81/iYVI Tjpa4Xv7GKhYadGnjBSira1zWeONY+Bo+OqGvGcRevhEwK/q7RhUMMg+DE8v Rt3kNH7fpDE4MdDXmc5bimhsjKsvJ45BzU8/gymdUnS8g97yYsIYRDLxzZ2/ Wooyy67ddYkdA1/Swrh4aym6GGm+Yhw+BuxSfxayrr9CdKKs7ZK+Y3BD6T+u CNJrpHox6vqM2Riw8GRlOC29RQ598m3vTMbAfNUlvYOlDN1SJvFEG40B99eW k+fEy1Aj04kGUf0xmAxSusBxtgwZFM3u9kBjUPnsmv+t/jJk//V0zrzMGKiH XCqoqi9HNy7v6/i5Zwy2qCZ/MyorUMbge74GpjEgnSeakkYqUJ36JZ9EhjF4 YHRzznKjAm2zNO+Xpx0D+t9ihybUK1FM6XUX341R4KH5Mna2tRKl/xxZXZkd hUkBGZowahWquPrk8MbHUdidHXveWL8WYQkLRYSmUXjqYH90xKcWtRXhx1/B KHT3jKpkPaxFoxSKvlv9KOD1/bljs7Vo0+qoX3f5KNSRXCiScXVIS+XNx9xn o2CpOdh1jVSPemmaPE+HjcIBUVdL/vIGZCfAuSpyexTS3GPDPlAaEFn1/O3t 4FHQMHWKfMEBaPkaQ8q7G6Pg9vFoltE1QFxfTtcL+IzCk6DJzNt8jcixg7B3 xWkU3GPLHYTnGtF88ufyTLVRcM1qfVCe1Yy4TpUrZaqMQuKBHxc9q5qR5lpY 1eOTO/Z/8n+0B5pRhi1fXcaxUeD9L4vpItNHpM9n2fRQaqfesa+ivgEfUcFz 6EvhHYXZGM83ZfYtyL0680fc5gjkED9rnMHaUJKnp0/cxghIfs5j3O3cht4f Orl0b30Elqsyd1FvtSGuWwOrsSsjkK5VeZvnQxv6qLl7K+bbCPBvHHqUjn9C RzoD9kQRR2DqkjaZzqQdUUjmR0PqRmDGXNTeOL4T/Y3Y72pWMwIPeN0taCs6 Ebf4yGORqhH4WRxJu0LqRIZ+jnu7y0bAXpQyeFe+C1UweKzxF4/AAdJIYOJo F4qVC2lueDQCHa8ayZbHe5Bc+AsXuoAR0DOjDeJi60cGYp4ZI9dG4OF2hH3Y 0X50vlOKUOI7AnNGfDV78X6UwfVW18p7BE7kkWvSffsRbXGdzPPzI0D6VyFj P9yPhgb6NnUtR2BYrpJz8MUAChHZfHhPfgRSxHPV9rkPIhVn1fZI2R1NKix2 DBtE6w+D/oRI72hQ7urKHES+zL8dfcRHgIn1MoWXMIg8lleFrARHQEF5MOam 9hCyhJ8l/OwjMFCzOOImNYykHCkNbxaGIStSNV+bZxTNpwktFf0Yhrdfu4Kj VEbRi96zwnnfhuFDSon5ov0oEtKeikqbHYadP1i/QeYo4pacMLg5NQyNVtKi ewTHEN3vIYJ27zBYJeSsLyqMI2JK++zwq2Fw3PQQ/B44gbbDS83GXw6DKeb2 RvXJBBK5mlRDKh6GCmPN1JrmCeRtZB8382IYNPZz6hiwkdA/+nnZ5SfD0HGJ YbSykISEApgCWBOH4XkD7P1vZhJ52OnRn/IZhiWREEdabTKK05Xy1vMeBnau oc2vdmT05jjb8GmvYdB3L/2wcIWMNthHCsw9hsH7a/tJk0wyutd+wdDFZRjO XG74cG6NjEpV7yTfNB2GF+uLY0yvKWiFr0XwrdwwhLcFXNZTmUEM29masTLD sNVXxyNlPYN4yAHnXKWGwajogbmS7wxCz8Xz9x3d4fkzWvJD0Qy6JxN/1E9g GFRcPDgK+D4jIcxS9hjrMNQxk1jp9nxBpi5ktYqvQxA6pXvHgX4OndOsdUyY G4IXSSRSgOgc8j+Scsv9yxCU09yNadCdQ5mzpxq4KENQpPSybix2Dn3xKdQK GBuCS+ptgsoc8+hWmI/ByU9DsGdN8WG/1Ff0MvevTc3zIQBZ/qPSUd+R60FL n8q8IWi60a7bWvgdcScWxpTnDgFjW0bZ/e7vKDLEsro0ewjKQnsMS7h/IAfb Ip5naUPAGyXwhOfVD8TMaj1xL3oIBifpHLeoP5FX4EtXR/cheO7tlq6qtoSE Fmhu2rsNwdzQqnG+2RIacbdNtnEdgtqq4yTxC0tI25K22cxpCEyNXtNEJi0h Xlk7ER3rIVCfb6Lcnl9CnVS6WRmdIeCsxIPfPllGkqYOl7dFhqBbJVzsh8Aq 6q15rt4vPARWoWEfWFVX0TWRRZY8wSHYklOYtrBeRfUbUaW6fENgMM9z0zB+ FZnkv/qZwLljN5QU29xcRX4bNL58tEMgsR3JcJuyhmrzCv1Vpgbh28WR/kvd 68hl74oOM2kQHnyRy7z5Yx3RBWkcII0PwkGLs2IVrL+RkclAZdjwIIh6UuxK TH6jyd+b623dg6DIanLo2cBvRGtietOmfhC+Ts1ozFM20Onfa7evZQwC34zO 6GWxLZS0Xq976eEgnNrzK+eDwRYa+xW51zVtEPbt5llS895Cnmv7npgkDUIC l9dGzbstFLMs814idhBCFGkV23X+oubv7ptTgYPQU8Lg73r1H9IgD90wshsE FZoAm59z/6Ho6SykbTMI/R8qWeJ30+BdU26MqlY7+ti7+yoCNLjD5FL6UbNB eJRKvTitR4MHEVkrafUHAZ+nyzubRYNXDumsVp8chBlpbPPUaVpcrqPiqij3 IDRGJQr61dLhpFtCV8W4BuGS6LTu9346PF4hweco5yCcfeCnHTFPh88/On9F gm0QPs0eVKPlocfzPDgvyzAOAqEoMsE6iB7n3uXrobROAFUGBl93tAv/h6Sd dUYIkNwA4XspDHjpykMn3SECKG7VtWj+ZcAdCuic9AgEiLH230o9yIhX7SU6 GPQSIONvTk+mKSPuS4q1N24jAImF7bNsAyP++easlXUVAZ5o2p6+l8+Ed1c8 M3R/SADN4J90PLF78EtOdHRqaQTYyLpxUaNkD86463wtewoBrEObZuK79+Ca VqIS9fcJ8N/y5kIpBzNesVzAwHmHAD0yBd//PmHGs+VKG+E6AQK10znpgAX3 Lqo6yWdBgEdkctAhUTZ8j/nBhSVTAsQLhEYzGbPhBb8DX7QZE8DbY/CquD8b TtZT5bpmQAD7bZXefy1suPWX+uV2nABsJ1P3s1xixzWONJXekCNAirHswhXn fThLdtcRAgsB9Ka3UORHDtx4rGigew8B/mwU7T41zoEncMWEf2IigAvX9jz/ IgfOel9z6j09AUwzQ87w83HirKGVjwu3BmB5K3nF2H9Huz7dd/v7ADT5vxO5 L70f3yt6fVu8awDoRm8fMH/NhZu6mr860jEAVl+Or176xIUnZss6CXwagBru ouBcMhfOdmC+lvPjAGSvZdO47z+AszE6B/yrG4DDzYunDIJ39LzeD0LJAGid 2vc514QbZy/lJd6OG4B8KH15jYUHR6QfmiaxA3BuYnytS4oH92aFQv6YASB0 HSg0MuTBO73PB9RHDMDceO6vhns8eLRs6b4/QQNQOqW5N5j5EL7xGtP3vzgA 6CRudmk/L04tc63w0hmA5CMR9Fd1+PF91GN8atoDwHL9S+pPT34c52SI3KM5 AEdo/zpn3OfHs68VmxWpD8BnYS6P66P8uO3xlW9fjg3AuhepUeeKAN5VESV8 TngApPO7hSKeHcYrqgsS7bb7odYvoXDuoRBumC0gq/i3H3S8S3xrXwrh0+Fp Xcyb/SAge7Mmv1EIZzaM3N3wqx8kDKlyzd+EcFeSc6Toz35o5qsplNQUxllp D9xYnuiHNbF7hXWLwvh5wyjn+Np++Jpd4V7sJoJvyG1uuVf3w3D4/fLGYBE8 cb9fJqrsh5GBit1rKSJ4DclldPntjn9bhN6bjyI421U1C/uifjBci3IIOSqK 16Uu64g96oe734bHopdFcc7JszLg3w9lkWeY1HOO4oa2Vs0frvVDS//sFYWa o3hUn579e99+0M3Lf6tFOIqvNclG13r3g3f1X5UaRnF8pGBr4p17P6hcanXZ 8BXHs3wfxRdZ90OIH92TSUMJXHRX37dkpX64/vMzE+MBKdzpdnN40rF+YN0s xF4fk8LT1yu5Hyj0Q9AT55UAcymc8Wu2doJMP8xu9lq5J0jh8z1emTGi/ZC2 d9OhkUEaf/WI0TCEqx/6wjN+JW1L45dtb1l2zPcBm9nS14A9cnidgsnC1c99 MFrfFiUuJ4fvZjkcx03ug7DF7J90VnL4c4Cm86N9ECjrTVZ+IoeTJOgVt1v7 QCg3/sDT4/K46dY99uP5fcDycGhBR0kBV8h91J3t3AdxkY0Ge4IV8dBgT89T Z/pg+4c2q/QDRbzbWnXXN+s+iGnOzXZ/roh77plQVzbuA7192jGCfYr4s2uH Xw6o9YFdov2xarFjOKfui3uMPH2Qe2KaGjV6DF/7Wq7nS+gFx5ar3PqmSnjs z1sDrr29ENG5n/zLXQnnX9ZzsujsBe/QXervQ5Rw3Q2i37Hm3p334fL2g2Il /CEj/ZO1sl7Y96zrmC3jCVxVxGo1KLkXilQeGPu1nMBDnVafRpj3gsz0LHeM lTLO6fpB6ppxL5w5WDBtdUUZLzh/t9LNoBcUdWulNe4q431efF2nNHthPuZM mVO9Mi5089Q6g0IvpEkGy5NFVfDm9FTjOPZeqOYJFGH6p4Iz9R3/k9LbAzej BAvimtVwL3X91UedPcAeHt2hN62Gdxc6/Mxu6wHaeP14wb9qeFJ4BKWgoQd+ H2+zED+pjvMc6+uoe90Dnyf121JequMS6V6Z1MQe6JPRubqUpYEbOj5TP2bW AwnnE+WjUxFe+qnihLJRD9hP824zVSCcTaldXkO/B55aPiS8HEI4gXVRRA/v gRQtJhprbhx3bNBgdZDvgW8Rt9Mks3DcW3iMFMG+Uy/HbHqEjSZ+f44tdKCv G4o42O8JXdPCu9VZ58O6usFOsB3YY7Rw1qQ9lnKfusH8PJWRK1MLj1PZdTS+ oRu4Vza4nZq18Jh7f3p0XnXD8MKjwB/7tfEw6c8CNXHdoFVAoyZUr437Xa39 kKPbDSIMbaYXeXXwtx+rxE20uiHROX5VSFEHXzpYkbyl0Q27z4PZir4O7tP4 +oK9UjfIvqKNJQXo4F4cz/dyinRDcS/RZ4Cgg59/l+h8h6YbVjKUmC2SdXGb 3+f/Xa7vgvaqi38MhfVxor+DrXt1FzjxrL71VtXHXVfM3zi964Jjd5uzX1jo 414/sXMmL7sg8NTbc86R+nj4zMFWuawu+BlSMjr7WR8v6etKWA7uAu5ofefr rw3w7cLj/IFqXXB78IIug7UhHiUmFXD15E68OlR44qohvjtfqPfisS6IFFue CoszxPfn7A23l+oC3n51CbcmQ1wibW5GlbcLWO29klwVjHDL8KyXf/90Av1J AWf7/cZ4oT29emRtJ9wiZEcM/TTByf0fM+gqO4HZkEb7L7spzns6ej3ybSfE V0726R8zxRNVGcqjCjuhcbCGaBhoivvzMkneSe+E9nst53bRm+FaJOaDsX6d oFz2JbNsnzk+cZZz9b5kJ4TI9426YRY41xjBnE2sE66IThwfNrfATc1TXycK dcL+m8svHd0t8GZNLq8HBzvBgzFf7UW8BV4kzE1JYugEpWCeKZkJCzxg5lBf KqUDYsf6eg6HWuKvHYkyXJMdcIhE1zSRYonPD2bGpY11wCXVRJrXhZa4Uwuf XnpfB1x81lueMmCJa78Q+PDwQwdc36/AfPaoFX5LYIr3YG0HvJj8dadd3Qqv TM8JelTRAS6Z1O/6Fla4RIygUsbLDrBz02iLvWWFu21PJ/MUdkDRt2E3wxQr PPtG7mJGXgfM+C2qHimywkcWXE0O5XTAL6G2s/sarHD2i8IvHz/eqa+5YJ5r yAr/HxsXkXQ= "]]}}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwVjX041AccwHV4tLNRXnOXJGOUkc6jcc5XVlZNF2KiNkaNrryUq66c8k66 +6XM66OjVmdLiZuKlr4PSn6XdV7y/npOUoqSnOS09sfn+Tyfvz7modG++ylq amo7PvO/O6HVjsFQIDm60omtTgGFg9a4wwYFyuJFnIhlFHhjwbq03kGBaXmP Is6aUoC69C99O3sFajMCuiY2UsCtJWHOep0Cz72a0zOOpIA4ZH39KgsFlgrG aug9FDieeM6fqq9A7m3+Uo1qdVjRsIMvnx7BwpByF8EFTVj3IKLJ6sYIcmZU D7O+oUJJoJGG9qERVGcO1Rg768J0XJCjk+0IWt/Z0hGTpgcGK1lhc2NyzGra WlTAMoICb0lioFiOFIlibS2bBlOURpFPiBy5950P4HEzMPeIqciiy/H65pds ZtUauG14ozKqbxjf5Jlr35+wBHp4RqUiZxiLAp+urpi1AYXXbInSbxjH+n5j du+yg3ScT/E1/NyLBncDLzrAXDBTllEyhJ+svtcQX3OE0gPi2GtmQ1jW/zMz 7PVGUEaxDeezB5FysjkiRMkENcKipIs6iF7tCYu27u7wpMOU+i5zAHWZk6tn r3oAy8T/sKvaAIq4FgxG3hY4nFp5p+FUP67xFQdIK7bCD6+3f+RN92Hc6anN e054QWfUcut7EX1ov/6mbbSfN6w1UTFY473Ivjn6SD/ZF8zQkvVqby82ByiM cqz8oUcYa9nT24M0+7p099EA8Do2ObtrTw+OXdb3kPcFQUiQ+OFCSzfKIuur mJxfwDk8OVaxsxtVP4aqHL/4FaqiL66aa+jCXY33CKVTGIyfH5UUunThpHF5 XWvWfpD3e1vF3e1EsxPKhMT34RBnMZ97xr4Tr8j0ns81caD3QtNYx40OdOR8 e5cnjoRp+gOzCrsO5HF8jJgBMVBWsuBffeUpDqW/5USYHgEbdtDBRYuneJ8Z c3L/s1jYppyJP5LfjjriqGKV8ijYkVXRXxu146JG33wklQfNVZe278ttQ96y tkQV4yRoFz1e06bdhpY2yoRCCR90r9N64zNbsYI/3Tq29jRU3RETAYstmFZP 6M1/SgC9gWBb5LagvjvVZRUvCQ7+xPclx2Wou8mtWOtFMsy8kHjGtD3B4uGZ 4AJBKmjJGB8uPPkXly+JW5JslQ7C5zqnWmXN6ClaedGNzAB/ZZjq4D+PsXSf SOZ6ORNKd6szk2qk6OlTJ1s4JIDhloZ8yi0pTkyrnCyOCoC2LWU2qUKKqX4Z E9vjBUA4a0qSS6VYUH/WVSQUAJemZZOaI8Xs8sRTfuUC2NRPNc44LMXKkbKU T1MC6AvWeye0kSI1rfreTq4QDLrbvHUspWhYx+0o5guB7Z1dTqyWYvXuDa5v U4RQ727AOWcsxe+O9b/LyxHCn+ZG8ixNKWp8ue6r97eFcFRhIsuWk+jn2Tj9 +oMQyvf02hoMkCjV933rSyFgvL0w8/duEhvSJW41VAL2PqB75shIdKzd0HiG ToDHVdPa3FoSy0d1Ml1YBPBNB2nGNSQG9dCXXNtCwK0cES+vikR3zcxHNDYB 1mlmjvllJH78o8tDLZiA0MWh8ytKSfR4NqjkhhNQdKxkKv8yibSF3IWX0QR0 TobsMBF9/rcY+ITyCNANNy8rKCDxyt+R73sTCPgPitF8Zg== "]]}}, {{}, {}, {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Dashing[{0.015, 0., 0.015}], LineBox[CompressedData[" 1:eJwVxXlUzAkcAPDZYmN6r5YuzSCV2mwZMvJWGV9p8Wo7RoelQ214RW01ItHB dJhMb46apmZ+SFmm3W3zaEsM+Urs85t0TXfpmAblOaJDUzJ7/PF5H9voxMAj BhQKxe8//98N7QwmU4tauvGMXWIEaF2Nxl03afF68ANH59QI+GDPKt/oqkV+ XfplN24EUJf8bsbYoEVlzo2wvZII2N52TufkrMU+8YTDtboIUERtfLTaXovD Je4+dZSDcIorCqGaafF2gKm0uOggrGj0S9dMjuLlw81BAY2R4Pw49qlj1Siy eEkxHu4/Q9kBy0XG8aN4dulgwIw4GibTQjdvcRnFrx/+sMCZOQTmK1mHdK80 uHhuyvuz6AjI2dXcAwoNvlVuF4Q4xsCEwd+le6M06Nbm5PhRFwu2O5Nuiuka NJO/6+QOHYPbFlW3EgZGsHyZ2P/J/Xigx+Td0kpHUPKVNGtgOAG0vp/KZoNH UF1aQ1IzkoCH8zmBFiM4r2K2mBdyQBfp0ZpXNoxOFiX8zubjUHFUkfyHzTDm ecx56g1OwGyCv8W8ZAgXRGnevtEngSK0L+uhDqH+refugaYUaOlaRZ3iD2LV tL6A4ZIKLOsQzjbKIH5fXqQxuXcaOLm36hozn+Pr/UF0L0iDPe98PqdODmDR Haby6Ew6dCcsc7ofO4C5T85kJNRmwnfWX5is8X78uOdKdC3zHNigA+tteD+K f5xV13/LhT5BskNffx8ePs4J7TTLAt+U95+CwvrwTUO8iGKYDVGhiicLbb2Y +bLBzco0B7bGZCdrA3pRO1a5KHhZLtQkXl6ta+xBXatN8kfX8zBe8KKacO9B Bqk5880+Hmiesx3TlN3o5cye8k/IgzT7+eILG7rxKo1N+1VxAfoLn77qqurC sIc9v1DVfJikP7a5yehCTiI1e1CfD5VlCyF3rnWiSBD+PsVPAOv8Q+P09p3o GNUtDBEIwXt2OuO4rAMVY55feB9EwCBrEtdadmCdveuCzVUxPKsp9zlcrMYN AcLQHN8CML7UZKc2VmO4m52ofWkhmP5J68/gt6ORM/vlqweFUFOnEP6kb8P1 68e27siTwPLBSBc80YYdJW82nQ8qgrh96YHkeCuq6bcDr1hKYfp19e4kdQuu mImebvkgBaNW5lxhSzNGnmZRshqLQTBmktne+gxlfY8OcOUlEDJ76EvcvSa8 NEnfsTlfBhX7DT2y7qpw18Mm/0Wn5DDS1igzqFUhi6szc0+TA80751PWTRWu 9G6pTzorB+HWxdXZFSocyq1vGOHJ4QTNaF2uVIWKiXqiSSYHz+dUqzyOCusv bjNrVsphIHL5lGCdCnkXx72y/5GDea+abeKgQmWIZ0O3IQH+bMkN4RoVxmUG b3FeQsCjHebHRFYq3DvjRO35hoDfbC014sUqLJ6hHXO3I+Ck1rpVoiFxDdNa vnEXATfC+l3MB0n0yR8elHgTMN5B8It6SbR/IVyr8yMg/DF9t7SVxKEOL2Xj PgJ2Xl9VX1xPYnXhQeuYWALSVw3RrO6SKPqr4aw6noBaaWlqSQ2J1ibsd9s5 BDidt9ksqyQxlSEboZ0hIFo/XLCigsTluooYfiYBl1LKJmRXSQwyFOnmswjo fh/lZ11KovLUnCSeR4BpjG2lXE7ixUmJ+3A+Af8CDkCGSA== "]]}}, InsetBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"C\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], GraphicsBox[ {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Dashing[{0.135, 0., 0.135}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False], {-0.5, 0.015}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->False, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox[ "\"\\!\\(\\*\\nStyleBox[\\\"F\\\",\\nFontSlant->\\\"Italic\\\"]\\)[\[Tau]]\ \"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"CDF Comparison (Lower Tail)\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Normal (A), Unleveraged Normal Mixture (B) and Leveraged Normal \ Mixture (C)\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.4413835855021133`*^9, {3.4413841887126217`*^9, 3.4413842224762297`*^9}, 3.441384319870253*^9, 3.441384636773986*^9, {3.441384672535647*^9, 3.441384737003972*^9}, {3.4413847812276773`*^9, 3.441384811977387*^9}, 3.4413914819869003`*^9, 3.441391839204833*^9, 3.441910681855493*^9, 3.4419891692554207`*^9, 3.442010287245059*^9, 3.442010331165773*^9, 3.44293472699428*^9, 3.442934766838171*^9, 3.44293633393534*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gMixtureCDFTail", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.4404610224942913`*^9, 3.4404610267556667`*^9}, { 3.441391725120894*^9, 3.441391728769424*^9}, 3.442010201600456*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gMixtureCDFTail.png\"\>"], \ "Output", CellChangeTimes->{3.441391840613448*^9, 3.4419106832370157`*^9, 3.441989170734988*^9, 3.442010287388362*^9, 3.442010332522934*^9, 3.442934728575849*^9, 3.442934773572977*^9, 3.4429363353876467`*^9}] }, Open ]], Cell[TextData[{ "Unfortunately, even when one has an analytical expression for the CDF of a \ random variable, performing the necessary integrations required for the \ \[CapitalOmega]-ratio are not always tractable. The three statements below \ illustrate a simple method for producing an interpolated \ \[CapitalOmega]-ratio function when one has an analytic expression for the \ CDF: sample the CDF to produce an empirical CDF matrix, produce an empirical \ \[CapitalOmega]-ratio matrix, and then an interpolated \[CapitalOmega]-ratio \ function from that.\n\nIn the example below the CDF of the finite mixture is \ sampled at 1,201 evenly spaced points; a more adaptive mesh would be a \ possible improvement. The entire process takes about 0.13 seconds on a 3 GHz. \ Xeon processor. Thereafter, each call to the interpolated function takes \ about ", Cell[BoxData[ FormBox[ RowBox[{"2", "\[Times]", SuperscriptBox["10", RowBox[{"-", "5"}]]}], TraditionalForm]]], " seconds to execute, making it quite practical to use." }], "Text", CellChangeTimes->{{3.441073089323152*^9, 3.441073241832052*^9}, { 3.441073281555956*^9, 3.441073339728836*^9}, {3.441073458213875*^9, 3.4410735465343227`*^9}, {3.441073651470031*^9, 3.441073706379284*^9}, { 3.4410737605035067`*^9, 3.4410738226127872`*^9}, {3.44107390772402*^9, 3.441073929560021*^9}, {3.441074079631854*^9, 3.441074080517673*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"mnCmx", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"0.95", " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"0.13", ",", "0.085"}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{"0.05", " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{"-", "0.12"}], ",", "0.15"}], "]"}], ",", "x"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.6"}], ",", "0.6", ",", "0.001"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mn\[CapitalOmega]mx", "=", RowBox[{"xEmpiricalOmegaRatio", "[", "mnCmx", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x\[CapitalOmega]mx", "=", RowBox[{"xInterpolatedOmegaRatio", "[", "mn\[CapitalOmega]mx", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4364886364615*^9, 3.436488690706395*^9}, { 3.4364888237179527`*^9, 3.436488826252903*^9}, {3.43648886022647*^9, 3.4364888705011683`*^9}, {3.436488968596327*^9, 3.4364889716860027`*^9}, { 3.4364890212128487`*^9, 3.436489025097246*^9}, {3.4364892170090733`*^9, 3.4364892272275763`*^9}, {3.436489682276868*^9, 3.436489706799964*^9}, { 3.436491569352363*^9, 3.436491587727995*^9}, {3.436491713138064*^9, 3.436491717848775*^9}, {3.440793754946665*^9, 3.440793755144421*^9}, { 3.440793853631461*^9, 3.440793853966638*^9}, {3.441072548581415*^9, 3.441072549093808*^9}, {3.441073496389307*^9, 3.441073504526284*^9}, { 3.441073720556827*^9, 3.441073725069105*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"xFiniteMixtureMomentSummary", "[", RowBox[{ RowBox[{"{", RowBox[{"0.95", ",", "0.05"}], "}"}], ",", RowBox[{"{", RowBox[{"0.13", ",", RowBox[{"-", "0.12"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.085", ",", "0.15"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4364894768512497`*^9, 3.4364896448888197`*^9}, { 3.436490406950439*^9, 3.436490549797064*^9}, {3.436490628086287*^9, 3.436490656131239*^9}, 3.436491406134612*^9, {3.4364914438155813`*^9, 3.436491531603559*^9}, {3.4364917263620453`*^9, 3.436491729735001*^9}, { 3.4403497137828608`*^9, 3.4403497686056843`*^9}, {3.4403498026685667`*^9, 3.440349811041589*^9}, {3.44034986538018*^9, 3.440349865814947*^9}, { 3.44034990335264*^9, 3.440349904000802*^9}, {3.440793719077497*^9, 3.4407937193707*^9}, {3.440793856942738*^9, 3.4407938573786917`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.1175`", ",", "0.10467807793420741`", ",", RowBox[{"-", "0.6681065516803202`"}], ",", "6.421364103598786`"}], "}"}]], "Output", CellChangeTimes->{3.441071945106214*^9, 3.4411242681264133`*^9, 3.441131311023574*^9, 3.4413826283209267`*^9, 3.441382690576045*^9, 3.4413828628177223`*^9, 3.4413918409347754`*^9, 3.4419106836790323`*^9, 3.441989171060956*^9, 3.442010287634523*^9, 3.4420103327830553`*^9, 3.442934728976729*^9, 3.442936335708151*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "0.1175", ",", "0.104678"}], "]"}], "\[Equal]", RowBox[{"x\[CapitalOmega]mx", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0.15", ",", "0.1", ",", "0.2"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "0.1175", ",", "0.104678"}], "]"}], "\[Equal]", RowBox[{"x\[CapitalOmega]mx", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0.07", ",", "0.05", ",", "0.1"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.440460499948547*^9, 3.4404605021190357`*^9}, { 3.440460623080405*^9, 3.440460689076549*^9}, {3.440460763489147*^9, 3.440460766737821*^9}, {3.44077400105541*^9, 3.440774030565263*^9}, { 3.440775766024468*^9, 3.440775767510067*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", "0.11055384598626875`"}], "}"}]], "Output", CellChangeTimes->{3.440460709947742*^9, 3.4404607671377974`*^9, 3.4405480855607567`*^9, 3.440764094241436*^9, 3.440766364676755*^9, 3.440770730549038*^9, 3.440770983178273*^9, 3.440771359613757*^9, 3.440771396234087*^9, 3.440773795630351*^9, 3.440774031203144*^9, 3.440775769272832*^9, 3.440789548931707*^9, 3.440795401482976*^9, 3.4408692574126453`*^9, 3.441058085914893*^9, 3.441124268183297*^9, 3.4411313110869207`*^9, 3.441382628427991*^9, 3.4413826906392097`*^9, 3.441382862879842*^9, 3.441391840995142*^9, 3.441910683739439*^9, 3.441989171125835*^9, 3.442010287711179*^9, 3.442010332842424*^9, 3.442934729124957*^9, 3.442936335773548*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", "0.057640376668346545`"}], "}"}]], "Output", CellChangeTimes->{3.440460709947742*^9, 3.4404607671377974`*^9, 3.4405480855607567`*^9, 3.440764094241436*^9, 3.440766364676755*^9, 3.440770730549038*^9, 3.440770983178273*^9, 3.440771359613757*^9, 3.440771396234087*^9, 3.440773795630351*^9, 3.440774031203144*^9, 3.440775769272832*^9, 3.440789548931707*^9, 3.440795401482976*^9, 3.4408692574126453`*^9, 3.441058085914893*^9, 3.441124268183297*^9, 3.4411313110869207`*^9, 3.441382628427991*^9, 3.4413826906392097`*^9, 3.441382862879842*^9, 3.441391840995142*^9, 3.441910683739439*^9, 3.441989171125835*^9, 3.442010287711179*^9, 3.442010332842424*^9, 3.442934729124957*^9, 3.44293633577518*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gOmegaOfAandB", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "0.1175", ",", "0.104678"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "0.0", ",", "0.2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"x\[CapitalOmega]mx", "[", "x", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "0.0", ",", "0.2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick", ",", "Dashed"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"gLegend", ",", RowBox[{"{", RowBox[{"0.125", ",", "10"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\[Tau]\>\"", ",", "\"\<\[CapitalOmega][\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[CapitalOmega]-Ratio Comparison\>\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.43648929915808*^9, 3.4364893639011374`*^9}, { 3.436489727400113*^9, 3.436489819696274*^9}, {3.436490672671357*^9, 3.436490688982956*^9}, {3.436490794829678*^9, 3.436490851351818*^9}, { 3.436491266703106*^9, 3.436491295726667*^9}, {3.4364913528507643`*^9, 3.4364913600243464`*^9}, {3.436491412999234*^9, 3.4364914202346907`*^9}, { 3.436491540682261*^9, 3.436491547305365*^9}, {3.436491787236704*^9, 3.436491796877301*^9}, {3.43649183588621*^9, 3.436491853483527*^9}, { 3.436491966343858*^9, 3.43649196706742*^9}, {3.436494173850408*^9, 3.436494175559716*^9}, {3.4372490214958897`*^9, 3.437249053706295*^9}, { 3.437249098742626*^9, 3.437249101891395*^9}, {3.4404604132763443`*^9, 3.4404604193759117`*^9}, {3.4405510536805887`*^9, 3.4405511119167833`*^9}, {3.4405511552804003`*^9, 3.440551162054139*^9}, { 3.440764304579685*^9, 3.440764477175453*^9}, {3.4407645145239153`*^9, 3.440764530111457*^9}, {3.4407650208842697`*^9, 3.440765036680558*^9}, { 3.440765114017063*^9, 3.4407651415282307`*^9}, {3.440770666464899*^9, 3.4407706668763514`*^9}, {3.4407707557635317`*^9, 3.4407707636120234`*^9}, {3.4407709341107883`*^9, 3.440770939693635*^9}, 3.4407757760528393`*^9}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwVjXs0lHkAhqVSNqKMjEE1mUqKY+QIW96fS22h1pJrWko1cVwa9yTRVrQp l1SiWR1j6WLdihqV+mZIn0iyIlHIlFGShNyy9o/3POc55znnZe8NdtovLycn t31m/zOnTxRWn8C17FLV15axjIm/vPqjUoYqHL9Vyf5QMyYjzOjiZMZyBJuY 9LCVjMnG3AK9WIYRyo3qPHhTXPJWVr0vnEHQl1a0jNnJJSVJL+T5DEccOfDl pUoel7DetDYGMXyQ7uymvcOES54peIkCGYdQEJwYIfIwIoyu7R5nqTg8DR// MmFvQPjGWe/mShMhFpmqjYbqk6VhZ/obglPg4noxsGlwNRnn75kukKTjXw5f 8CRuJSlcs5CZVZ8BZ4v0xoBwXeI2p2mLpqEAtToNW6Oj2CQrUWMJ48FV0Da8 gNKQZWT0o5ESpzIH73y6Fe1OaJNnPq7KMX25EP+54hD3miZJNf6Q2j6Yh+T6 TuFBKw1ySCDhzx24hsgena6g5eqkVrPAK0LjJqZ3WdWsWqBGVIemawdY/6Ca t7XjiN0i0tjhbVuyrQi7vFcnS1erkJbik0k6d4qREpkbKmQrkY3s1Lvvy0vg vUdZmXVBkezOXNHnXFeKx/2r8hLU55Fhym/35oZbmC5NqLQYn0Psv5q+bPtw G+rdZxKd+uSJ4cD1mJ0TZTAoyxjkacwipzJf7HOaLMeTQq5oE2saV3bEO31b fBc6nqcO+zEmoVcijWdpiCA/vrih4tQYrDsH3nCWVCBw3i25dWQUmsw4qyb9 e9DgZrFNZg+D96NaOtfgPi57pHbnLR1CaH9qcrvtA7AtXdBkPQil67N5l9wq YSkbjk82HwBLbW3cS7eHGPETBCoHf8KQdUBDu+kj+DfMt1AoliG9SXAs5e4j ZMy32yD1+oAYu5wt5RsomB+wWBSxTQpJtZ9qIUXBa8K9XLjpHTYzlSZ41mLw t2+MHYzvwspgfu9QvRjZZtKyjsy3IIKSEStHCXqDVH2O32lHTkmVlvxzCRSE xw3NdNvgW5tpk+5ZhWjOoudFGS3wrrBP6n1dBY7O+54MfjMqCh+2LDxYDdEt Zs5T5yZ4nVawyB+c8ahp27KQRpj/rPdgVshjjH6Z/8OmvAFhg0o2hlOPoR9l PTx2vg59sXUy7WM1iOQLC4SfaOR//T3/6I8ahGZ/UlQ7VwOJ/21eceITrEpz 6j5tVg1WRc/WvxVnOspxXZmlBFNH57CkC2ic0d8rczCVoNOK85GzkEbH4fuG vQYS5NG+Z3MX0zDri3VYoyPB+lfdjUItGs6bxTebJ8Rw+N7pmWNA455/0J1m kRhHTTsCsn+jca3/pJqfmRg+45Ob3jrTyF6fqR5sJIZtpbbKMlcaUZLCkCg9 MX7a4lXyl+fMv6Or2QWmGBddXg8LfGnYlRk8HflOoTDsVeyVcBouSXYd7hUU Us3Gfm2PpNF61fbj+VIKYZNMtnY0jTHfCMsXNyhYnHCXZMXS0LJfUeSeRaHm fMu8rAQa8WLd9KQYCjfcRlvbTtOITfPO6wqjcE5L4wYriUbBbM6QeSCFnUJX h8wUGh75Y6bfdlPYwIvQaUujIcjdv9bVlQJr7cXPmhdo2LSquNzbQWHqc9lD j0s0cuXzS3V/odBZ2pxy+TKNuKA262RQ+A/96lMx "]]}}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwVxXk41HkAB2CUPElEUxhsjvEks2xZ212fr8Kzq5IQEVGU6nFN6WARu0JM oVWOadptIpsrMxLGjGsc/dR0UK6E5BYSKmLt7h/v8+odC7A/LicjI7PvP//P Gy4NksZs2DkY3x+cEcokp+VWVQpoK+BvaX6tP4hJPmuEFCTQdDE9F8kz8mOS 7Rm5RuG09ZDz13mS684kXUO13udoBDp2jtpFO5mEz26UY9Hs4ECrLq+VYRJ6 Z+tLf5onzGe+3omLNibPlriV+tECEefPM526uY7Q3u1zuVoVgcaPLumszLWE ZcZ5L98Xi5rgx9UO44bku6D40ecBiSB17mc6XRhklnV0IVeSDOFrE3MvkT7J X6eswZGmwqz3wAddez3ivLjJWtOUC1dTHwmzdg3hxKqvpon/gnbKDG3CQId8 GVmvxCjnYR9dbobfRifPPJ2Whw5ngF3RvHf/FQ2SZDaQ1DFxD63MtMtBMatJ IFfCkh//G1ErIweSBTTSoJnrdl49B+ecotnF7WpkxeRCwzg9DzYXerVSd6uS l289LPm/PECsKELV6pAKaSm4zNYpLoC3Ffu2QbAS2a6XVNL/iI9CbtXSs7KK xD1df9jhqQAehYMpXfEKZLrqlLvV80Io665SeRAoT/Z82tjcPvAQ1mPXbYQu i4jp+P1Qx29FeMay+VUYIkui0xu97ecegRulufxVzQJu2UbaT6mVgKHgu8Xv 1hyM+H2RdPVSMAynA1RHZ7Cre7yTsVoI77W+BezLX6CpEWHRZFyGPNLze5bh NHz+qe2TNxFh2ClkXF1/EmdHkxI6LMVYpiaYPL52Akr3F/mkOJejznTewOvJ GOgrmRHNzhVIyjt5MKdxBJO7fJ93bKyER+RsD2dgEMlN3EuJJZUYVZQpMGb1 I9SGZ/1oUxV4nb5DB0gvJLWnVuRXVeGE+09DS+g9sNJQ+uazqxo7Rj6RTJtu GAawBiel1bClJ9nKLHsLwuV/trCTQDVHtTVUtR08fo2W3AsJ7thwwmr8W+DV kL472bUGgYI44vDmFTyEe9iDb2ogSF2ItBI0Qphf0aJ8shbiQ5v0t6W+gNuV JVuzJmrxdXbrNbdLUmzZZiSWPVMH6f0Px6J8GhA0obTbdL4O7hFNAYnH6zEc /nRI+1I9jhg2dbW8q0HWpyNZYf/Uo68n+KRTdjUkpx/6FMQ+hoifntD4WyXo wt6fM5dSUGyXbnbyE2M+bDG9bxmFbzmVbepHxOi2YIwwlCmMhhWGtNmKcY/y upqhRuGFXprIbb0YP7b1vLyrRaHZ62Ke45QIe792u/JMKLxvEMUVhokQtvGt 758HKKQoRzz9/kYZPGfndnQ5UDgxxzWujC6DZbm2yhonCj8Ml8U6XCyDorUb /7YrhcMl57s+HC7DzYNvprleFMz7JyRSgzLkB7WF3zpHod9ikJ1QKETS5pn9 HRcouC1XqIvJFCJoTkNPO4SChsLHxuIUIbZGHZJwwikUe2pJfUOFqP+jRYET Q2Fs5ZmqZishsp2/tLZfoSCujNm5YbMQ17TUs+lsCtF+3LJ4YyEc7zrtTU+k wKh/XERUhNjkc16n/TqFqbOdZhxZIejMm2OaNyhIdKceTE+WYn6sqMIlhcJ1 6VITu/5SdAteJ6alUTgasiY7u7UU/wIMyl9Y "]]}}, InsetBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"C\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], GraphicsBox[ {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Dashing[{0.135, 0., 0.135}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False], {0.125, 10}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox["\"\[CapitalOmega][\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[CapitalOmega]-Ratio Comparison\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Normal (A) and Unleveraged Normal Mixture (B)\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, PlotRange->{{0., 0.2}, {0., 18.105119476575855`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.440765037645315*^9, {3.4407651186403427`*^9, 3.4407651421337643`*^9}, 3.44076521749159*^9, 3.440765332227319*^9, 3.440766364881276*^9, 3.440770652688198*^9, 3.440770733079623*^9, 3.440770764397212*^9, 3.440770797603307*^9, 3.440770941048147*^9, 3.4407709850260363`*^9, 3.440771359834396*^9, 3.440771396352154*^9, 3.4407737957773323`*^9, 3.440775776900147*^9, 3.440789549011322*^9, 3.440793767455371*^9, 3.4407954049483757`*^9, 3.440869257476129*^9, 3.441058085981286*^9, 3.441124268238861*^9, 3.441131311154256*^9, 3.441382628494628*^9, 3.441382690694421*^9, 3.4413828629480352`*^9, 3.441391841059354*^9, 3.441910683808868*^9, 3.441989171189898*^9, 3.442010287779752*^9, 3.442010332911234*^9, 3.442934729280714*^9, 3.442936335841281*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gOmegaOfAandB", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.4404610224942913`*^9, 3.4404610267556667`*^9}, { 3.440551022455552*^9, 3.4405510255419197`*^9}, {3.440551180823491*^9, 3.440551186785203*^9}, 3.44201020700047*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gOmegaOfAandB.png\"\>"], \ "Output", CellChangeTimes->{3.440551188790552*^9, 3.440764096097228*^9, 3.440765388425782*^9, 3.440766040042637*^9, 3.440766366428846*^9, 3.440770801948751*^9, 3.44077099029382*^9, 3.440771361361032*^9, 3.440771397823201*^9, 3.440773797288621*^9, 3.440775780597225*^9, 3.4407895504295063`*^9, 3.440795409861005*^9, 3.440869258831805*^9, 3.441058087682111*^9, 3.441124269593161*^9, 3.4411313128381243`*^9, 3.441382629847045*^9, 3.44138269239207*^9, 3.441382864261797*^9, 3.441391842386281*^9, 3.441910685160469*^9, 3.441989172520925*^9, 3.442010287852172*^9, 3.44201033428504*^9, 3.442934730655738*^9, 3.4429363372691936`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gOmegaOfAvsB", "=", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "0.1175", ",", "0.104678"}], "]"}], "-", RowBox[{"x\[CapitalOmega]mx", "[", "x", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "0.0", ",", "0.2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\[Tau]\>\"", ",", "\"\<\!\(\*SubscriptBox[\"\[CapitalOmega]\", StyleBox[\"A\", FontSlant->\"Italic\"]]\)[\[Tau]]-\!\(\*SubscriptBox[\"\[CapitalOmega]\", StyleBox[\"B\", FontSlant->\"Italic\"]]\)[\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[CapitalOmega]-Ratio Difference\>\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "\[Rule]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", RowBox[{"0.2", ",", "Red"}], "]"}], ",", RowBox[{"Opacity", "[", RowBox[{"0.2", ",", "Blue"}], "]"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.43648929915808*^9, 3.4364893639011374`*^9}, { 3.436489727400113*^9, 3.436489819696274*^9}, {3.436490672671357*^9, 3.436490688982956*^9}, {3.436490794829678*^9, 3.436490851351818*^9}, { 3.436491266703106*^9, 3.436491295726667*^9}, {3.4364913528507643`*^9, 3.4364913600243464`*^9}, {3.436491412999234*^9, 3.4364914202346907`*^9}, { 3.436491540682261*^9, 3.436491547305365*^9}, {3.436491787236704*^9, 3.436491796877301*^9}, {3.43649183588621*^9, 3.436491853483527*^9}, { 3.436491966343858*^9, 3.43649196706742*^9}, {3.436492162449987*^9, 3.4364921850973997`*^9}, {3.4364922373202*^9, 3.436492276867989*^9}, { 3.436492321267929*^9, 3.436492332254148*^9}, {3.4364923774412117`*^9, 3.4364924001772203`*^9}, {3.43649243525275*^9, 3.436492505011195*^9}, { 3.4364925483238077`*^9, 3.436492549072056*^9}, {3.436492621072095*^9, 3.436492648575245*^9}, {3.436493090869013*^9, 3.4364931039675083`*^9}, { 3.4364932012169533`*^9, 3.436493214351371*^9}, {3.436493278939233*^9, 3.436493295424431*^9}, {3.437249140604026*^9, 3.437249156764061*^9}, 3.437249227625671*^9, {3.440460267938094*^9, 3.440460283893502*^9}, { 3.440550603344738*^9, 3.440550655984996*^9}, {3.440550686555179*^9, 3.440550814088379*^9}, {3.4405508600997667`*^9, 3.4405508615492277`*^9}, { 3.440550923723456*^9, 3.440551010297247*^9}, 3.440766411776222*^9, { 3.4407708211306133`*^9, 3.440770852071034*^9}, {3.4407709485739326`*^9, 3.4407709539667177`*^9}, 3.4407709991292477`*^9, {3.4407713804917727`*^9, 3.4407713808150806`*^9}, 3.440775431313223*^9, 3.440775564846167*^9, 3.4407757817146606`*^9}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJw9enk4lO/3vy1JEkKIQipFUbK1HSGhlKSiRbJFKZRQIrRJdmVNjTEPYsZO qDyYGVuUJbKULWWpZF+K/M77un6frz9y3deYee5zzms7ImfjYmbPxcHBMYf/ /PedOlzsXv9w+76GAyd9Rj9PQPKBRNuEewzg+P9fyuP9K7QPv/m/8/9+/n/n ntyW8Li4mv97PXOzoERCfSzw5YhsOS81Bqd4mg0ktyVCg1ORm4HVECQErhYX fUsBR/srr/k9+mDmh6qAQikVrJ14BP1fdsB765Mrbg/TwDrvzU75kUaI2DEQ 8XksBXo0Jqvv7qsC10Sm25LfaVC2Z+dFX4/XUCtJP+uxOgM42AHnEjXTQGhi sfa3FN7/Z3nYkjBvaPxyXj/HKAv8ojOVy1ViyU/Z94NlXmUDx42JYv4egtwj F1H0vTAHOMRWbgXxDPJcvPzw8bpc0HFwc51/yiCnyp3OHfiQB2V6Z9aLJjLI Q+MarR0D+aAjwPQfbc8gt/1+edv8bwHoKLo4Uz+mkQ/im+zM5guBUvLndq0Z QT474m82KVIEPZSCeU+OJFIx55u/1Opi8KsO0kp7Gkfq9vzuUhAvgbKFgyNK FhGkpITf/uYtr4Hj3cP1Odr+5MV/7G9LtmL/A4cPXgw8RF7/FRH2Wf8tcIgr Jx+64g0CL7kvxpwqBY7n23xXP34MUquU/FpPkUAJjuHVC46CCV3nD581ysC6 vKbXeEUcPGlOvBNehOcCGDL1TITbxlSDQs1ycL3Zdls3kgJMtpNQZnk5WHdr N9VpU+GAhMDfi7oVoLM++iPTPRk2uLgNTtRXQOA4ZdcPXxroJOZM7zdlQtHa aVBWJYCaw1rD1cAEReauh4nJBNjWxus9Oc0C03C12/3DBJwvORQ82MmC8PU7 Vyf8IaAkk/wk6MiGnk/8i3c/E3D2Ee+u1DE2DLav/K0ZS4D2bsW3nNcqIU3a zfnfLgLcxwT0ti1Uws7u12IpxTQY9q0bkr5TBXaq+9VUlGiQOm6V6vOvCrTG a++PhyYD81L+xezAakjz7zb+0koFqZJ+Q2JZDQSapYKiLBX+h9997C2vBg4n wcf6V8tp1dGgml63Idd3ArhiXFU6FuKBQ3YT0fXoF1Ty+xfLmr+AHuupK/Kv voHRLgXhZ2+TgGNDe0OZXzfYpDAFTD8mQ49JTIUNdytk1zw/qjxCgI56hmHn hnrgcGzhdBtNBdmjv7leb6mAxE7Ngb3c6aBD1/r9UCkPrvC2rlKTpANHmW3X +bE4cB3Memi6IxM4tqzbQTW/R/Z8OL3671bEb+hPP+WYJJLf6bE8l2YO+LEU t8t+TSPrvlgeS9yfC2VRjUIW+XRy87bK5DqTPOC4Hhdj1MIgZU83SIafyQe/ K9Om6r/p5BtX15cxbohfjwNmml7pZId+qWuzdyHyp2zce0MqybdS1nb9bBlQ 9tNaui+8AFm+B0q5t8uB44mWHKdbEvD8LlmynKsCwu2U5i16qFDALB3bGojn 3k49e24a7HgQ8VtqJRP5Ezpn1k0Dt027l8mHMyFQMtM7ypUArtIslUNiLCib r8l1fE/ABd2Ji/sSWDDq2BR5dpaA4PwluX/l2KA4fr/EdIyA5dJf+TrpbNBn ZTW8KyXA2CbG++P2SjAdNQ+ccSbgZLQUR+yrSlAY2bX79gINfDS+OL84VgPX 4lYXGL9KAgtrMrnkWxwI6b5Xynj/G0KXbuGQ2f8cVLnI+DM+A3CtN3GVxd4k sJb7kh0k3AvKRrcEdhklg1CHLuWqXhvA01vbzPE5lLahjOkdDWBo0lWz0S0V KImWLqtesODBGx+63M2XoNOs7HVp0yuQFtpfZB6L+tT7ATZaUaHs16nNlBTU J4vFBpNH1mR1aVBxc1MWcBzNW/OS8zk5Ghz4aeUMzndob6iOTyp5784Uj+48 zldOVPjFvwxSz27SQGhFHujYc1e+ZjNIfsHE15fEcJ40qvpBcwZ5L6cZipUL oEy231F9RwbJI5U/HbW7EPw6/tqJcKWRR8asxizbyqBn+vGhZLfncGSzqPbO 0+WQfaU86xJPEtidFnn8ubcc/ELulF0Io8LCFftpY/sKqHbtVL5fmgz0W5zO D0cqoKg/TVkmhwYWNtOL212ZkP1DtFrcjIAmzRIiZZyJelsXVFdCgA1v1Ymh Wyzg25F+U32CAI9XiuvG/7GgYezKgY4ZfN3+2Kh7EBvKJoRo73H+zVPvO94K V0J2xWWG510Cqh2TuuqeVELdm8X7wjIEHJ7tOU3dWgMbxXSqf/9IAtmodMGe vVQIHy5LucL9BWK5V6xwOE8Dv8XFrEcDzSD7r8KVxzUFrM0/XH8oWQtFAXXa r13SQGdrK6W3lIT8P2Nyp0PSwU/ca0PjfCaUzl9yEY5H/kWvdbLhCgfZr0u/ c5Rmgh/1arfJowjyrM7oseBr2VDGt1F1tjuZXH8g9MqkRw7o7IlfLiCWToru KU2cfZALficrIhd3MciVszEcj0LRP9Lsdv2rZJAaKdxeBUk4rwfJaWaudJJ2 19ZPW74ChBYi2VXKyXBFUuKXUEYFcPBdtvbVo0FxhNz1TBUmWO/M3kAsIyDo 5x0RkWzk06asgaLHBOzQJ4p/a7JAy3iJYEgXAda+625FvWaBhePK+RrU1+Sc Pv0lB9gwqhSxqDRIQH6Tu9z+D2yYFYnYHEknINO93ffZDdRDhuUZ/YAk4GZ/ /5JuGQeG483T5b6jMH7fd33Cq0SQnfE2+u48CLwFHaIaCxSQTb3By1/RC5Hx JwSyuJMRn6ypzuvtwOs9KOOoREDDyVVb9i1vhJ9kH8N/eypYf5L+7jfAhr90 2bBVO19C2fabt3gNimHiiUfQt1PIj5pvoh82EeA4qvSnyhr50abLuf3SBTh8 ZMpXNxT5cdUgNMAogexfuzRX/BPyY8fStY65KaS1KdPqSTv2X3jowYOoDNL0 zmOJ3J+5wHHg/oqAJAbJ4XhXwGIc+aK6Vp5yhUEOHluy3Jgf+SFaYX/kbgYZ x5Ol7b6mEHR2/jJ/5Z5Gutn4at2oLgO/GL4CxkIifNPuhCnDchjNFd5W1UgB UaFSE3ZjOVB+JkivdqCCHLPIq/04+uO2Qz/ZCckw6K6dvrerAqw3Xfxk8ZQG dYvH/2pbMyEt0S/xEKDfuZPW5r3IF5th+WeZiP/B7LrSSyzoWXvg6OsfBAxr lZy48osFgS/L3zyfJkAwiK9//0026EhGERKtBMSSl4JyOSuh3/br9aXhBHA0 9ZtcvFsJH0+tfRu7lQC19r7G5DU1QDGRMGfwUiHfYWBl6UISqOYzE9qgCxbM BwU6JWmQveOwfPfoRxj8qmotoZICZRtrw+9Ev4OzUw0y4qrID1v2gh1HOSj+ eMJz2DAdOKSsDXsO5EC0P2U/1RL5Mfvz2dWyJ1D9rbNQ0Qv9qSi6eMIkmFwb SOTrmSI/eHd5DVRRSfFPAoZ/T+ZA2YuSf1r3XpKjAsEzxnboTypefAaTdFJ6 lUrTlqvIj+9yQdwsBqnEMVxN9cV89T1Uy5xKJ821V+rJi1TAqOjk6U98yRBx 9bLLizjs7+bH3q/kaTD92DLHbh0Twgs/520Zp8G/R19WSFGY4Hojf8jYhwAp /3T3xI0s8Gvf+UPkI/LDetmYYwb2+5Lwn0jsr4Sau7efGhscT94mH2H/rWeU xARL2RDY2jeg+4qA6BOdU4m2Ncj3Zho8SwLqaqFbucuxvmBm/QErCrnwZ9kC 32rEn22GspJGGpmWuSnj91qsT/ojTessndQwOnfj6tY88FP06TesYJBi+YWX fLSQ/xsporeEGGQ/K5Znix/yO+6q9+J5nP+f/OFZbhZIaIncFmUiPhS+dK16 zALryU1nHo4TwKkRM+ghhHjYfK/3Cp4LdeLnUxOQz+zVMU1VBKjmrYz6FY33 uRl7oudFOql1eVQv5SXeJ3N8Uek8g+T6wqEykIn3WYw+8zeNQRovpfzbb4T9 6V/Fl9uL9T9T5y59xwIvU7nLk6jP21SPCQadxHymr9DI30dAVdSnpQkPa0Cx L73+ngP6qeefP9RVcWAdEER58W4UFNiK6h3XEsHr9Jkbav2D0LD2ptiGLxQI N/ZYliPdB/p6esFDmBNU6VJF7wQ7YPjKC7FxfgJci7/23fJphH1z/euyhFNB 58m7MzrRlaCx4ZpfsPBL4DiufuKCQwlYnYqYYGiiXvRF/76YlQJvxp72de5F vdjzYDu/xTUQjE7vnbuMerH/S+doYxzZddFgnVQVzovHfHfgsRTyvVb6473V 6Ke5UgkF5zLIVoFTnHc/Y94nHF2TqQzyz5Pp/Pc92B/HDoG0YAYpJf/cVWQO 5xWxs8SWyCD7byqfsVuOevGaWH36RRrJtUbwc0AZ+ilD449JaSKoVuxjntAp B9VLH+Wscijwc3hVVnFNOYQrny74fpwKeVf6imUPoV6c2LV1LigZeK+dqJFo rYDY/XmjrUE0ePCea26vBebnm32D7VrY/1W6+zLamGDxfOEVIwPx0L4h8KUN C4pWLze9iXmaNsc1lt6P+EiOk9XFvGQn3X8uzZUNDc/bzj1oI+AWTauPPscG v4thnAFRBDx78OB+/q1K+CniHUlVIyClxjaEJlKDeaKm6McqKvg23BdifEFf ZTRlV/Z0QfZCS7DYDOZZmxUxxbdboK514BRVEP009eyrIOs6yNzWHKYnlAay Hd/H6uPLwcb2+xRrQzqUfbIvzN+XC1z6r9MvaaNeaIhNX78QA9IDB17sOYF6 kULx338jkFxU4nBYB6jnG4yKXmhTSSHZwwX/DHAfe1fzIWL3S9Jq6prCpBni 9zQp8fIznaRS/pT8PYd6QZOQUGtmkBu3nnOTvIJ6cWPVYGUtnVQWtaeJ81dA w7KJjQ9mqLBe8mn293Ds9wWRXntxGog+utEAqzGf8F+tIIZoUGQRvHxtLPLP /dDTb14EhK7bajYpg/2s8BZsa0Q+HPOlH09mAaVFcF076kXTxBvx0i1sUO2X Wx31C/n3aGmYewEbbqtKrjDCvMNvcDbn+eka8Gi8LO+dngS8ni0npacQj8Yr b7Vcf0FO6xldEliK9Z1IVvrQm0qKxwi2xa5Av9q41IZTA/N4q6IVyGBef8K5 pqSWQQr1bl41uRHrk/7Q5a3NIJ9HHeTa5sUER+smgdjTBFjFaVYf/cuE0RzP tX5liA8xs/h/AbhvTc5XCaA+vJnuvpu/lA1aSfxn9CcJEGi+4SEYxYb5GpPH IbUEbJk/wjH2APWiqCZX0SadTDn+yfVoLN5HXUZA4wSDDLxUt7roOfrnDhet 86UMspSQ/xyrg3k91mrmQzf2JyS9NI2J+c5wR9Yk4m9wNO5llQnijVqTbdBP wK57FswE3xr4d8lM/pF7EtSOkSq98zjP/PeDmnkMcsluIbtebqzvivhSpjWD PBK2XeKeEvKLI2BAXyeNjM/xfPPkGPptpKGX4xAFaj1lHtt8r0A/uyooTaWB yHZiQd2RCYNr1mgUHiTAoHXP3YUhJqhepDxKzcN+zOwW/niNBWm2oX9ScQ9T 9XIrUZnG+R62OcnEeRZ2PNtRtAzzZfpV48lHyB8ZPXGp4EqYnex2bN1AQIAC UZt0A/OcuOjiZdTr6Pu2Q5a+iD+jsCAm6rlqs4escng+cBw0O74hnE62he6N fLSJCV4rvKB1ngb6r7cJiach3vLrD0Zink3p2xRjoMIC1+vWZqbIT2uXJ+q+ eehHB3JX9KPeWl1T6tHdg/ruXjC1Hf2I3940IbWSDe4ramxrc7GflTq+Bqo4 n95H99W96WT264jgxL2oV4+HKdsRL1IP9Sp4jfOhbFuO46slDHLL9BDvxkAm xH4T2md+EfP32R0rqAIsENp22K0I/cJGzXH95ijMj5ajFVTEh8GNIybakoiX 0xl85ogf68zSgP00Ntyrux5azyKgNmDZ6oUSnN+1g5eX3WSQt4+qG4iT2I/P /RdUXjDIVkcZuR/HsN/wdvjRN3x/RtnB5mbst1PGgj/iwzz55OH48BqQXnnC 9ahlEtw1vbfsxWgsBKYt/K4YH4XS/oW3N00ToWdf7+UW2SEoPF79VLqeAmU/ jBNXGPXB89W76h58oIJ1d3/r7TMdcHbglvCrPzRwXbo8XPVVIwyKfW9jc+I+ 1pY2F/6jEo73Ss0ZcqB//NgVHvKzBJ4UrVWM3IT+ofzCd9o7FRzGa1vtldE/ 7sGPGGNPGNVeEtVyGvk6pnpjO28ceVrge8saMht02Ck9XVIp5BKGjHwkiXxZ Ur5k+54MMr75zY3LH3Ee8fvs+Z8zSC8l1WX8bcgXgUvb8qIZ5I6gS8keo4gP dwkzKM8gH+38cfksN+Jbp0E2JzeNPDTTwnj0pgzKxLf7c8UnwskHozy8e9Av TOo9bZIoYNFW2p3HxrOP8Ym7BlSY1/U8zTJAPePSFw24kwzRrl8teJsqwHB5 TYjLAxp8Ve+YAXPUg50JR85rYJ624Wac/Ih6YZLwVCuNgL5jPd+eW6G/h8RI /OcfXKdTS416EH8JZkXkHAFh3xrjzzizQWL1m2XHOwj4Eb1OMH2KDdWXdV0K nmI+sT4ld8ajEmJzN8hs1CSgZ7/CDwXBGoj/EcT+JUkFuyUt4bT6JOCQeR+r pNoNy5rq6nK/4f48ob3xKtkC+0yZxy/+w9x68UzBLnYdnDr00fA0B/qHOOX5 z//2znVhV/1FcR+TubGTtygXtAjD7iOb0T/q96dHV8RC5cCtqEo99I+Skx3d 9g/IUR/GvhANnM/2CxW/hpPIENaPyxyA/s47PHRc+CX51Ol7iaEx+vvUrl+x 6A8OF61V+k8gXkUPfuhrYZDJzGi2uR3qT9TAupIuOhnLKdQixFsBsmu3yiT+ oILzyOZjQcEV4NXMvhe+ggbJD7mtt65iAkdDVfWO7+gnZbb8sk8wf+6Y3jB8 A/fVqyNlLyRZEK53Ovo2+kdPjRa/0QsWjPLKEE+R3yrmF/rPbmRDdr+p2u7f +LrZ1LtNOWwIv3St4PQbAvRLpVeuO1kDAdp6xbtykmBASpVv9msW+Ll7J42T z8nrg4OygovZ4Kew6VNYTippsjzg6i8erO/zXV9PaTrplxjatEkM/cOpU2e4 hkGGeNpeVFmL+UUvc/ClIYP8+2ctp6o7EyjLvR24LHCfGJzV+DuN51in2E0k 4iNEYHbClwWKISsjnJH/kqfuHTvOzYY2g987P00RoPnMNq88FPPghL+yTx3q GWWkcNwX+fDMIjxwbzr5pcp4KS0M+ZCtmqZgzCAPb98RTInGfsdbJRlivp+d /Gqsvwf3G6t7ks/QP3qW2Es/J9FPREJe8+O+anBsn6eDEeqP6dlF7u8EuM9L yEnfqoF8/7nj7d5JEFK0gVYziXr8593CZxqDDGg0KpL+i/VuvrY74QKDnDQa Vby9Hvn1JUby1Zk0suzG5n/6JsifV1XnlDCHWnpkSJn2YT64G3nnWgINXGJv z2vaYb5qFJnfr0eA34Z/Y2nfmBDYzHWlKxv74TJ9teYq5q2vGp7zPwkIaRML fD+G/rrzq6YX+sem+rtWBUsqQackxD41hIDcmVW5ZQ8rIVixaLBgCwHFsRIX pp1xPp4Dkh1zdNLycM05XQ+8rz4v9/vXDDLTKdv94kOcT0L+2/F4Onkx5J2c 53r0M+XbHbtnaJAkz7tSgsaE2VH5ezv8sF/bh5aMb8H5hP/1G2vB88CRqOtZ qK+fyyv4EF+vmz4wejXZwDER8nET+of6tn1tpytwP2jlaTEpJMBtV75owiac T5dS4C9HOnk9YIbjgTrex5/tyyAZZKyMj7jufuSDlu7WouUM8uG58iWK95jQ UDh03tmWgOyMCW8TPha0+UUUKbCxPxny/mvDWFA9cnLNhQnMoy3jUm2i+Lz0 1pDNiJ/HnnRy8gUbWFK66bzoN5wztxnHcvH5FDY91I5BgnhCyb/C//zj7ujd BMw7RV1h0SaIB6szbue/Yn3rvYnqD+hP35OeL0P/CF2zOl0quAZoaidONJxP ghiWxtRgA+apB+8aGm5lkKsMxoLj+7Hfvzxsa5MZpM+/N9ZRQ+iPd/5MT2GF nCWNezM5C4DjVNcLdlgGuY+8Yuy8qhA4kv4Reo/TSP5/wf6EfjmY+s1X76yg gN+Coy9Zj2cfarDLOSpcijWR9DmK+WOZmG3Xk2TwvF6lrdSB++ix3Xc/hNFg 80WlP7vPMoEvrdOzeTcBk0y/D4ufmaDzg7G6l479sr68Jd8B+/XzYNN/vw8/ GGe1XmAI85PBDx1NnJ/28WnZKXc2jJ6Vpct8ImBZ7rHCrAX0/4TKy4kRBByh FwytuFMJk7JDgddVCYjypv+bP4J69+mK1JcLL8lN/oshL86gPx9ZCcHDdLK7 /YnBKgecr2i3zN56BpkWvV6m6wbmA4tbeVZ5dLJsY8l1acEKKLt6MP8aZzJ0 6HEI6T2tAL4QFwdNaRrcDxrQMVuD+7REvlryLxqcGcsXkH6G+WplUmPnLfTz hstfDeWRD7FTM/lNOK825hGrVBZwCNxaDEB+3IiSMFqnwoZY24YVFsifx2WS ZuXFbAjuNgyOLsL95MXLPP6VeP/It+2cgmlkt3zCfn1x5LdrT4DOITo5t5I5 dHID+mnaF5Ft1Qwy0ni0tEgF7z/SqFW2kUHuV3blVr6NfIn9+mPFOQIUjD0s aYuYvwTsNwSWY7+fxexZ9hD56yHcIIZ4tIreXSgmwAahKONzcojX3mWB2mdi 2CB7buv1xWoCGKeyjH6HIp5Wvn/yOyCddOm27fhDQTyl3zqqeZZBspMdkj+k YD9tTsTpFzDIeycvXPmlzwLDpp2rAnqwftFR67wqFuic0Wb8t489Dp/qVDRj g2PHr7cTuD/zKp1+PcuD9dgWDClhng6kta5MEUD+n5hLMsXP330z7K/7cAWM HuZafeIlDQpq6v+pOTOhzddpJPUw5veH3qJmI0wwPMEWmEE+9/n653V5YL8f zT16O0pA8+r6n+F/cB5iiW/uIJ4OZW/faeKL9+eL0mRuYpBNpQvubg/w/sYP L/pUMsi8PXvrRmPx+fN6syP+dNIwPIvrmRIT0kZ5vee4CBg4fkpYlM6EHqK9 0+khAc5RDooJapgXnr+f3daJ9U63fwp8hXpuqRemgPmBQ+ShCE0H/eFo/FIS 8d2dYGM1WYt5Yl/glTtZBHCb1Q+MaeF9lJ0/9sXRyZ+TShIFB5CfhhMVdo0M MnF02dV3ZnifXper6vN08n2oCJ9CMOIt4FtJ4WUC9qxwez4txIJBTa69H3B/ 6SthsNVi0G+d/HkOI96GRNPvxMvgfHcWzP7EeWt8azgQmsaGPXuc0p8hHp4I RvulMZEfpUbKAY8YZFHgh8atVf/tN6O/8jC/PpM8mwsnWSCRuVdo+yDWt4N3 +Msn5OtDh33nsD4ppegRyac18GDdqUnO40kgsbdGSKY7FlyrAwb9eccgyN0x wAgSYdSih8MdhkBx5PcJCTYFBl+5iXid74Naf3XnlkoqmA6zvc0DOkCM5hgW N06DBgsRx8CmRthDc1BvnMP9ui/5SqNoFdiAi3rqTBqUCTK3r9j+GlSc7HXv rcP8upAd0vQlFV5f+9aQvh7za3CXSozDTeh5nHtZzwzz6+h7btNnsWRsl3qO 9OtsKHPZc+7PAkHKXjx1Zc9r5NumHRyVmzPI+cLfWecbkG9r96pfi2eQhdOH 81KbUY93SMpb4nlfacMbxZ84D4M7Ngv1GeTnCGN3i8UCzFcCsnPMNNL1W7F4 SEkZ6IR12nsEJoKTY82GLu1yaKAfmiuMo4DgUdHZbGY56Bz46yKiQwUKo3xL tD7mq11tH5bfSoYul3TZhQ/oxymmg0fv0iBy6MCMjhny9wlPp5UaAUv47eyU m9CflzdNtxMEyIe+fRJ3FufdNH8sCfGlGnRzg2QXC/watqe8xPygUGuorX6J jXspTFshPhWEVtHSJtjAt3Z/zc9oAkTeg8s290owfzmfulSbgAUfHqlvy2tA w2zpOLcMFVpfzJtS2Ekwyr4rZWrRDRp7qp05v2B+vW5ordPbAjMCOY1GiDO/ vk/eh6fqgN5uTtjPpkKPsglTBnNjqM/X9O7l6bi/yn83H8uFphNhczpymF8t 3xnqW8bBGsenIct3Y359k5dle+I+ObiRR0l/B+ZXzq1mWeVJZF307oOcu1F/ wr3/Fv1JI7PXy/JOHMD5fF388I+kk9XGUU5tx5C/zHW3FzG/9oXmuYyfRz1k cg87DNDJI172v1bwVED4wIeL379RQcjSXe5sUAX0DFV/s+OjwfCD2k0Kwtjf z62667/SoOL6h2VykUxQrDeIU7lOgL34Ua8bq7G/QszDDg0EyPKKF+sloj+9 vekghXpmdU/tkLIC7qfGS/S1UG88NJ0vcWax4bPf/NGHb3Hf+zO/t/t4DWS3 KHPuyU+CNucvPfadmF9XPjFYY/OczC3Rmhf8i/lVb6/DcEwq6ch+XRzDgXpQ TDkhJkgn+/zKBaSFsb78u9yAel+n6ydcL4l5JOR32/ARBpmeGcSx/RoTZJd5 8SyYY74JtxxpmMRzoaXDEOZn+dqhlJHbqEeedz8zkf+GD08WyXPifaVysmtx bnV+HccSglHvtVLT4uoJ6L+2L3LiVg6UTXkLVG5OJ2f975kdeYz97myvE9XD fCZqX/kkEvVpSYQwP+rl02f6XFK7WBDr7JWUg/lVVlf3XexbFlD4Zs6+Rvy5 +wt1qR9kgylHbzL/AAERWnNHP3vWQJojj5zOnSQYSbDoejuK9RruWSqGelP+ zMGmZBo/v/fHh1hbBmmQenS71zrMI1xGT+87ppFNp7jWyRwqh7LkKBmrTxSg 3LjWZ9BTgXhvTj0eS4O1hwf/atmgP2y9v1xzPwEy9VYvfb9ifqX0OdBRb+Xp zTIsZ7xvTXvkEfTfN3yDI4m/Mb+lb9bxwX5YG3hO5nFXwvxhkV7LMALa7eYX o+5Xgulyp3ZjZQI+mpnRKY7Yj1bO0CczdLJEZT5G4xrqwxuB3dvQv37urF+7 5C7OZ6v0ZuEXdDIzOHLoihw+X6FXgjpJA9NWN0FJKuLroxo9y5cAn3ajt1WK qN8tmorjH7F/Csq6VxnoV1ftN5fjfYa5qKI56pj/16zUO4T5tVakwGNnGebJ 5yPhb9Dvgid/nT+wHvsX6aa7xpZOfrTfsvvWdrzPfvFiMbxP62BcWfce5MOq zwoXVzBIDeGtSzYHMMGUlxWYcoEAk+Pmaut5MS+vUFMQYGF/BhdVJEPQz1K8 tAcQL01L2P6pIrjvXj/QthfPsmfXW71PxOdrhD20xvwqnVM4+5eB/XDzeiN/ nkFS5uonx3NxfnWzK1OSMEGfh4POh1CPbNxEb6Lfy1pbmDPrMR+0NMSPox+n n5pp63hUA77VV6UVbJMg19dVJ6oO+X6kcX2DcwbpvlmhKrQH/WnJxCIN8+ub mnb+7d/Qny6tYOg9YJCCI5qnrBew33m+PQbRGWSEdL2Z48pC8DsoX5L4NI2U 6bGn+uhiXn3yRTazmAIa7qXRb96Vg7X9z61nLakgyB07dMSkAoTubf48F54M pddCOeXbKsBQ7ZvU/hAatEnFzO05zYSyr+mfDHYhfi/3PmjpYELRm6eXNTC/ yicatmfasUD2VBP9P/31qFEN6vyO9Rk9Pp+J9b3XvEK+v4b+G5cWxMb8qqt0 4HDmX8x/y45234/EPCj5XLP3diUE2rL9OXZgv03m2xeMcX/0V3iqfvQlqbtb u93oFNbPnBSW7aeTOm+r/JbaoB6IvyqiNDDIgQs6Vd5uON+Qzj3+qIceiSuD JQUqgBJ45mzRAhV8M417RKMwz5YNVGtJ0qDuUSafkST6R0v6jqgfNOAnZAVk 4lH/8u0jG28SMOZZF79WFv39Q+AZDcyvsmJJCxYECyxu7D6YhHikMYezRpRx n9qUODWA/JElwkfjX+E+DNd/2hYTUOQ2F7p8OerH+aI+p9lU8s/nj8EjwojP Tk/BLfvp5OmJqfWH5BCfY04Xu3EfbxRb4XRSKR847OxCwlQZ5Gh3J9fWW8gP l3A/5hkCysdahW4tMGFUzjxiogz73e7+g/s+4om/UoMH8RhSuULm2zI2+Lkb f6f99//pI/8+7XzKhv61v8xKagj4uXlRYTQI+6nfKrn0ejoZFJe4gXiG+9bj 315algxy48O4L0wq9nNI7rtmCYOU+1euwNTFvGPZqSeJ+VX2WP3KTDbq55/I 7WGo9yVlVbqzR9lQ1qwzFob7mKNgyNRPjv9+v7Uufm0xg6x0mSjW48N6OKcH 5q1wH/c6ybw8WAEWn0zSUwga2Plo/9t5CfMby8hxnTEBL7d9frfpJ+5Hp9be 31eA9b22sml3Z0Gafv594jcBXIYvjlvPoj7ZgcMqxJPDpct3Zm4iHpJiVBOk GeROqmqWfQA+/64haymbQY4vPe0R+gTziY+gqOcjOhke5lEbuRnza/D36tZF GkQvZQqJpTMh9qmZjMt93Kd2V3W7bmeBq93ZnKx2rFft1YO7BajfV63onliv iq7lzev7EL/rnrmcR/1x92ufr69mg/TE262SOQSsFViq9mwnzvfHk0urHqPf tlmZvdyP95ko2qj+nkF+fr1RwukI9oNX8IIDJ4O8reu7dEMQ5ufXZts8nFBf 8xtP1Alivy9aeKvhvORngty3PUV/rT1y49IUARIHbn93WoP7QmTCq0ic97ua g/0XU3BfyrQT38wkIKv6wzszEvvRcbqZ7c8gpZy5BOSZOM/KZ2da0U+0y984 iZmzQEhFY6T+O9bn8jW2rQXxvfSqwVesT/Oih0xHZA0Ep7cflD+ZBMPjX1sH mIjfg4ElfiYZpNboo92ebVgfV+9pNgU/z3rVeefPWB+8yJKPRPyc5AliTWJ9 CozUwrwMUuPTY1vrpYWgc4t6xystjaRecKoqrCoH1a+f3NaZUMGiTTlo3LAC TH8uhm68nwxH3KQjVn7EPHLlokhEIA12Blyd3XcS++N04FWwJtZbQp3ya8V9 Lr73RHE6AVQxbk2aNQuy1afYl1Fvmje3nLrVh3pz7WXYONbzh+PMvP9VxOe1 SBVrnGeujLJXxgwbVIma9ognuF9m0V2eH8F6Lhh3bfxIJ3nubZ36bYn1RJR9 n/jIIO1mb6555Yh6emyDuUoL5o+gkjer+NBfu4oFfMaoUH23268otAJceUYF B0VocDZwT6yGGBO0fq0e7RiggYPALP+6aMwfhx59W+1FgFJVyLLaNbhv3mDK xDcSQAk5c+ZIEvI35U74FsQzh0KYT4gizrf7rI/lCO5nV323Hsljg6gTZebA awJ2HDNcr7cM5zs0x1O5mU6uLTkTqyaJ/iIp1Pq2lkEeoRu8jZBH/eveW3Nv P4M8fDCPU8UD+/d4w7PHlgT81Ym9s2EO8S6+pmMr6gf1mIrRnB/ep+B2iAri aXhj7vDdJdivmqbKxUl8/dVP0cFwNnhdHt9w8x0BFSuE38xFYb90dsaomDLI YZPFY/T4//C1a29JOYM8Y3I36uo+3G+Dz+9KwfxDqXl4Jbkc/Xuzk8p13I9W yzkLxRzC+oRgqcQ3ApRbxp1aZtEv+zl8POkMUp93q+CdRdTDvSLx1AsM8qtP 4q7mASbMDlds2pGL91GTLHvvinnlpvM46xfmzTQ9ucUJFiiOX4sNQz0eOR5e Xbi0EoqiDomzHuN+HaRk9+tRJdAtFwt2KxLwvKtL7LAb9i8uQkWdm0HOOkav P3IL5928yyGbZJAuz6Nqax7jvNd4nJx7SifHr8avXJ2Ceitk7dDsT4BeUOAR 6a24T98jBoXQvygZbv1eOVjvBcYbJ5xfMHXBQGQXG0YVhJ3WoT5QjKq0/Vls UFAbk4jKJ+Ck362aUSXU22f+v7Ku0EmRF6zKCG3s36m1nZaoV5Zm1s60A8if 1Al5xWUMchVPFMuTH+u9tqBkVYn1uxxoWh+B+vtNcGYS9f0GIZvPtxrziMHS GVWc33SkutwaKj6PLSUdhD//fY+eTWoh1rum9+5hFwbZtcPRj/819tekJ7M0 kUFeF/JtKzuKekM3FrHvx/sOJE7XN2J9x8yvaCN/cm1KzVIG8f2+rMlVmDf2 qVEKp37h+y12HiM9GOTk/csK80sKQOeUsufIowxydk2+db1BObie4ucZr6VA 7YNVDhUfymE0JaaXcYEKlVu5jTKOVcBosvPu3bHJcEpaVmJLN+aHt6mZDAbW pxDqXeyI9yGcC3WxfxJOwW/2/ED901Uq/vyf3169E7DGkw0NvReKQlsJaNCy ks1ZZAOrv/BFdTgBAlVs3anziKenC6Ijv+mk7/QFgXWXsL+GWc/40F8vveO9 rnML/eATST+fQif5s+3OrBNC/mapRAgtSQaN9gJwi6mAbIlvqRfW0YC+12jF mudMcK2rPchzm4BXisuVryugXl5saj3ejP169v2F7UvEH0t3ny/ez8DWoO/o dswDn8vNv+L9pzupeQOv2UBbp/W15xUBLMcL03FSyJ9HiZoHzOlkrHJ4ls1m 5G/8O/cUnL/5nWbRNTtx/i1v9QXRzyK9eHiUfNEfZcz1PK0IeEgVo77nxHwV ale/twL7ZV0SIvgI+XVdOmg/zl/VwemogSD2Z6wqvxjPhzcIJ/jHsaHIwqXv bDUB5hu2hJkS2J/7lpxq6Md2ZWpOnen4/MhB2v0szE+ZHIWrD2J9Gh8s+Hv/ +ztGkdyiGtz3hD9JrEQ8nLVef8PSHPlrvlbgGuZX2sFN/jzLsL/CKqrWFQzS qL3Ynk8Y7z+hHV9qgfi4Wa3m+7MCHFX+GGxi0ICqS+Pp98J8b+uz8HsM3z/w 5375PAv1UuQIH36+6vTMIDUA+dF08GH/dgbp2lm7yycI8WZnWK1QxSDd3WTl jyciP0fOnw+5SSc5IgZ3EVuZUJ3+03AfLwFalB/CqzKZYLjCzCvgEQEffixx Y6uzYPbl2Jr3n7GeknnF0GLUW5lp+jDqUVNvfsZHXdzHTNRlHIcICBKe+1Jm hPVodb0ra2aQVht+MbeewufxrZxQmKaTVN8Gce043A8kvzocRL6X9H+SeLcO 9fHw16R72G8v87Pq/6pwvt2C3/eFM8iTxLMY7XeoL8a0S9XPGSTHtb9/nCww Xwhc0M/D51GmFXd/bUd8V9l8/o33WRgpIC1jasDZJdB15GgS7OOenXznGw3/ +/v7/wcrRMPq "], {{ {RGBColor[1, 0, 0], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwl00lsTmEYhuEOC20t0MFMItodFrTmeYcaE2NpRZSFthbaIiHRIiFU2605 BDUEodpaGMoGMROsTO3CmJAQ1ZK43lg8uZ/7e8/5/5zvfGfIqvULypISEhIS 5bckS/gSmSAdBvnyQT8hG6SHvLY2Uh7qe2SpdHNjgbVfeqNMjN/ks+WjflLK pae8sTZKHul7ZZmkuH+5tQ59oX5av6JPkk59jnzSZ5gd0k/pFdKLF/NEKdQv 4fVYl7d6rlRZf8zHYQ2v0Qskla/g+5P+P/8iPMNfYBMfhtt4Ew7EcryDk826 cK7UWvvMZ+Jhfh8b+FDcyM9jBq7DG7GXWGmejmv4MUzCIryMr+M681zcxa9h Nm6JZ8AfmG7+Ts+Tav6Ej8d9vDXI+2JJ7BOm4GpswbbYZ/M0LOQHsJMvxrP8 JTbz4VjFm3EQVuBd/IZTzP/o86SOf+Gz8Ah/EO+OZ+MmfgEzsQRvxlmIfTHP wLX8OCbjSmzEN3GdeR7ujneJObg1nhN/xn6av9dHy3b+NM4r1vJbQd4PS3kD pmIxXsX2eOfm3bGIH8SuOPN4jr+KfeIjsJq34GCsxHv4Haea/9XnSz3/yvPx aHwTcYZ4Dm7mFzELS7E1znDsi3mmtPExssPas/hmsI7fDvJCmSZZ0m59rOw0 ex7fBdbH/+v99TI9Lc4Rny69pU+cg9iLuEYGyD8xT38T "]]]}, {RGBColor[0, 0, 1], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJwt0DkywwEYxuE/Y+zcIaUl9hA5gCyaJILW6JPgCPa4BMFV7JRBLI1YekuM zmNG8cz3zq/8QovFbKExCIIGFv5vE39thyuGxUe67RUOeWNa+yZmz1PikiHt gS57mQNeSWl1Ju05trlgULun015inxeS2hdRe5YtzhnQ7uiwi5R5JqF9MmHn 2OSMsFal3S6wR4249sG4PcMGp/Rrt7TZeXZ5Ykp7J2JnWeeEPu2GVnuMDGsc 06tf02KPkmaVI3r0Cs32CD+e/gtN1zA+ "]], PolygonBox[CompressedData[" 1:eJwt1GmUjnUYx/ExDC+sdUTZxlCWKKlzCpVtyJKlBhXlHDMjy+iQpYWxdbJk qRfIrpClsmR3mEmLXaFsZctyjqUwY4l6Yftchxe/+f6+1zUzz3Pfz3P/UzL6 pfVNTEhIKCDz/SiISVJX/rc4YDYSa+BEqadvsSui95Gy/CO+Wm5IF7PCZu31 d+QLOSXNza/IU3odeVKekNrSTvrIg/bL/O37WAXnmM3WW+on9Wb6Zamlt5Us eYAvtX8PU3C22S84i7fAE/wzTOX58jgfKdv1geblcS2OiP+Lq+wO4te8I17n M7AzT8I2fK+erVfFXByLz+D3dsdxJe96/6bOw+5YCnsbzZJd+kyzl/Av/ik2 5XlSk2+W02breSYWxkWYhWXivdrn4zY+AMvhGhwe1xevb38AF/MO+C+fjm/w Qvgyv4Z7+BCsgjk4Bp/GXPtjuIK/hXf4XMzkJbEXP4ebeBaWwiU4CCvHtdnv xBm8OR7nE7EJvyQ1+H98vz4Cq+OPOAGfw5/jO4PreAYm4cK4f/hQXKd9Hm7l /fERXI3D4v7F+7bfj4t4Gl7j0/D1+H5ja34Vd/PBmIIbcTTWxRz7o/gdfxNv 8y8xg5fAnvxsfN68N5bEb3EgJsd12+/A6bwZHuMTsDG/KNXjWeH79OFYDX/A 8fgs/mR/EtfydCyEC+K+Y+m4TvtL8Rzyd/FhXIVD497G+7bfhwv5q3iVT8XX eCK24r/qH+qVcQOOimcTN9odweW8C96KZxjTeXHswXP1XnoJ/AYHYKW43niu cBpPxaN8PDbiF6QaHyoXzTbzflgWV2J23Jd4XfvfcQF/Ba/wz7ETL4At4/nW P9CT8WOpo28wP4zLeGe8yedgN14M3+Y5ek+9eHxvpGK817g3elP9iD4OG/J/ 5DGeLRfiO8njoCwTz0xcS7yW3Vd6e/2yPgU7xkGKLaC7nIl7atYDi8XnJRX0 qXFdehP9sP4Jvsj/lkf5EFkqvyXeO5fbYT6fjB34nTg/eGb8H9lmPsWsMf7J x+IL/LxU5YNlSZxd5vPM2mIen4Rp/HY8qzwjrkO2mk82a4R/8DH4PD8XZ3Oc xZIuReNzlPLx+3wLTuIN8RBvoJ+Ns1lPlW7xmnHGSn3zM3Fm6MlSSSpKBbkL 4pnTWw== "]]}]}, {}, {}}, {{}, {}, {GrayLevel[0], Thickness[Large], LineBox[CompressedData[" 1:eJwl1nfclmMchvG3kNCSvWVGg4rKLLtFGxlJWWlPykh7G9lKu2RkNO2Zpi3a RSi0l7J9z48/js9xnr/red/3ue/7uq8q07JDo/aFCgoKfitcUPA7KstF8I3h afhY7oMGqIJ98a356Zgr90VDnIWiWGJeDvPkfmiEs7Hd7HKslcegHfbDUrPy mC/3R2NUxQ6zK/CDPBbtsT+WmVXAAnkAmqAadprVwo/yOHTAAVhuVhEL5YFo iurYZVYbP8nj0RHFsMLsDCySB+FqnJP7Y1YH6+QJ6ITiWGl2Jj6RB+ManIvd ZnWxXp6IziiBVWaV8Kk8BG55wbU4D3vM6+FneRK6oCRWm1XGZ/JQNMtz8IPX m+2WZ+B8/K5fiV/kyeiKUlhjVgWfy8NwXZ6Vn7/BbE/uify8PFO+AH/IV+FX uba1Z+Xn5G44UL9VL4Tm8jR+N3N8J5+F3uZf5L7xcH24fH2et36j/kz2Wu4t v6B/y7P08vyAPouP5q48ny+09ifXx0NmG/Q6PDr3nafoJ/Jd+st8ELfh93Iv ubv10nybPp4L8008nVfnc9m/PEh/h0/ie3MNvJNLW/9ePht99C/zjPlB/YNY P5zb5j5xUb6FX8/+zX3O3uXm+kj+I/uEX9SX8Gy9AvfWZ/Mx3I0X8FauYf0v uQEe1jfqdXlM9lGenX4S362/wgdzW34/eyH3xfpBfLs+gffiFjyD1+RzeUd5 cJ4ln8z35Tp5V+6n9bVyVfTVv8p+5Yf0D2P9CG6nT+H9+FZ+I+9jnnneRb5J H8V/Zs/zS/rS3Ce9IvfRX+djuTsv5G1c0/rfckM8om/S6/HYvBPZQ/rJ3EN/ lQ/hdvxB9nDui/WD8YNeDf3Mvs47ww/rH8V6c1yEQ/CjeXX0t7Y47wU/kr8v Hynn0Nw/+0i/GIfisOyD3It8BkdhLxyNY3AsjsPx+MnPnoNv5BFogUtQBuvM z817IV/ob42Q5/Cj+Z3cQT8AN+uX4gSs18/DAOtL9Br5fM5vfkxvicvwj1kj jDDfrF/J43I2ZD/qPfIu4Wez8zHQfKleM79Hn8uP661wOf41a4xHzbfoV/F4 /Ys8X71n9iZ+MbsAg8yX5T7n9+hP5P7IHeViuE1+M+cy32LtioL/D8kmZo/x VrU+T9CnyqfIPeVD0V7+kDfwPdkT+DXnBwabLc+z4if0J/NM5E5ycdwuv5V9 a15MbiE/y3/lvOWp+rLsaf0M7qsfh7vkRVzLvJDcVH6ct+kNeKL+Jb+sn5rv pb/Gh3EH/og38r25FmzQa2CI2YrsCX5Sn8dPZQ9xZ/15LsF38Nu5b9aKyzfL o/nvnPP5u/ry3FP9TO6nv8HH8938CdfOLZavzvPg7XpDnqR/xa/oZfMd9Wl8 OHfkObyJ78v7xXfoE3nv7E2eyd/lPbRelYfo7/EpfH/OkUL//7/jVOsb5ZoY qq/Mvs716vP56bw33EV/gUtya36H1+Vcs16CW+pj+J/8e5Pvra/Ic9UrcX/9 TS7DPfhT3s518p7yNdkXvENvxJP1r/lV/bRcpz6dj+BO/DFv5vtzZnBrfRLv wy15Fn+fPWm9Gg/V38/1cq+cQbyby1rfJF+EYfqqvKu5bn0BP5Mzg7vqL3Ip vpPf5fW579ZLcit9LP+r35Dvra/M/tAr8wD9LT6Be/JnvIPrWt+br9Wf4p16 Y35OX8yv6afnOvUZfCR35rm8hXvl/OM79clchFvxbF6bPZ77h836xRhutjrn R65NX8gj9dYolffebFzhvFD+7cjf51V53kZVeKD+Np/I9/DnXM/aPnIz+Wne pTfhKTljeZpeLt9Vn8lHcReexw/k+rBFvgQPmq/J2ZPvpS/iUTmbuZv+Eh+Y Z5DzM78XW/VLs9/lWvl8zo+czXL3nFVcmtvkjER5VEDFnCd5N7HN+mXZM/Jo tM1ZhyJ+9rq8K/J09M6/NWZtzPbFHL26Pkwum+uRF/MermTtP9Mmfjo= "]]}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, False}, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox[ "\"\\!\\(\\*SubscriptBox[\\\"\[CapitalOmega]\\\", \\n StyleBox[\\\"A\\\",\ \\nFontSlant->\\\"Italic\\\"]]\\)[\[Tau]]-\\!\\(\\*SubscriptBox[\\\"\ \[CapitalOmega]\\\", \\n \ StyleBox[\\\"B\\\",\\nFontSlant->\\\"Italic\\\"]]\\)[\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[CapitalOmega]-Ratio Difference\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Normal (A) - Unleveraged Normal Mixture (B)\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, Method->{"AxesInFront" -> True}, PlotRange->{{0., 0.2}, {-0.058273300077308576`, 1.241440286252658}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.436492549742346*^9, 3.436492637262909*^9, {3.436493080953765*^9, 3.436493104609169*^9}, {3.4364932028565474`*^9, 3.436493215450343*^9}, { 3.4364932801406717`*^9, 3.4364932959971457`*^9}, 3.4366228189052353`*^9, 3.4371593141042*^9, {3.437249141726404*^9, 3.437249157114396*^9}, 3.437249228139347*^9, 3.437963046121258*^9, 3.438366906774069*^9, 3.4402730658569603`*^9, 3.4403271297719803`*^9, 3.440459697177141*^9, { 3.4404602687446337`*^9, 3.4404602843073893`*^9}, 3.440460813571723*^9, 3.440548085800126*^9, 3.440550605922325*^9, {3.440550792980976*^9, 3.4405508147228947`*^9}, 3.44055086215252*^9, {3.440550924324032*^9, 3.4405509453429947`*^9}, {3.440550987894393*^9, 3.440551011504818*^9}, 3.440764096438752*^9, 3.4407660520469933`*^9, 3.440766366586238*^9, 3.4407664138910522`*^9, {3.440770844873757*^9, 3.440770852766583*^9}, 3.440770955276359*^9, {3.4407709914750643`*^9, 3.440770999741654*^9}, { 3.4407713615441217`*^9, 3.4407713981910667`*^9}, 3.4407737974642687`*^9, 3.4407754328622007`*^9, 3.440775565501299*^9, 3.440775782322517*^9, 3.4407895506370983`*^9, 3.440795410897224*^9, 3.440869259022127*^9, 3.4410580879962893`*^9, 3.441124269813274*^9, 3.4411313131294823`*^9, 3.441382630021743*^9, 3.441382692665264*^9, 3.441382864460659*^9, 3.441391842524179*^9, 3.441910685362586*^9, 3.441989172708756*^9, 3.442010287980239*^9, 3.442010334453122*^9, 3.442934730847515*^9, 3.442936337459811*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gOmegaOfAvsB", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.4404610224942913`*^9, 3.4404610267556667`*^9}, { 3.440551022455552*^9, 3.4405510255419197`*^9}, 3.4420102121005983`*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gOmegaOfAvsB.png\"\>"], "Output",\ CellChangeTimes->{3.440551027718378*^9, 3.440764097956209*^9, 3.440766055391122*^9, 3.440766368059532*^9, 3.440770858619824*^9, 3.440771004839705*^9, 3.440771362895378*^9, 3.440771399565075*^9, 3.440773798706457*^9, 3.440775444732848*^9, 3.440775569856289*^9, 3.440775786973269*^9, 3.440789551980587*^9, 3.440795415373275*^9, 3.4408692603438997`*^9, 3.44105808945497*^9, 3.441124271283566*^9, 3.4411313146310177`*^9, 3.441382631380879*^9, 3.441382694240177*^9, 3.441382865856381*^9, 3.441391843807151*^9, 3.441910686714779*^9, 3.441989174012285*^9, 3.442010288053355*^9, 3.442010335802383*^9, 3.4429347321982183`*^9, 3.4429363387594*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"nL", "=", "1.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mnCmxl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"0.95", " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ RowBox[{"0.13", "nL"}], "+", RowBox[{"0.03", RowBox[{"(", RowBox[{"1", "-", "nL"}], ")"}]}]}], ",", RowBox[{"0.085", "nL"}]}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{"0.05", " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "0.12"}], "nL"}], "+", RowBox[{"0.03", RowBox[{"(", RowBox[{"1", "-", "nL"}], ")"}]}]}], ",", RowBox[{"0.15", "nL"}]}], "]"}], ",", "x"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.6"}], ",", "0.6", ",", "0.001"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4364886364615*^9, 3.436488690706395*^9}, { 3.4364888237179527`*^9, 3.436488826252903*^9}, {3.43648886022647*^9, 3.4364888705011683`*^9}, {3.436488968596327*^9, 3.4364889716860027`*^9}, { 3.4364890212128487`*^9, 3.436489025097246*^9}, {3.4364892170090733`*^9, 3.4364892272275763`*^9}, {3.436489682276868*^9, 3.436489706799964*^9}, { 3.436491569352363*^9, 3.436491587727995*^9}, {3.436491713138064*^9, 3.436491717848775*^9}, {3.4364934852936172`*^9, 3.436493557180175*^9}, { 3.436493751498308*^9, 3.4364937516593924`*^9}, {3.44054807242502*^9, 3.440548073384551*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"mn\[CapitalOmega]mxl", "=", RowBox[{"xEmpiricalOmegaRatio", "[", "mnCmxl", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.436489271876251*^9, 3.436489317924048*^9}, { 3.436493568840687*^9, 3.436493570850889*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"x\[CapitalOmega]mxl", "=", RowBox[{"xInterpolatedOmegaRatio", "[", "mn\[CapitalOmega]mxl", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.4407896090146713`*^9, 3.440789644600625*^9}, { 3.4407896889887333`*^9, 3.44078969911122*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "0.1175", ",", "0.104678"}], "]"}], "\[Equal]", RowBox[{"x\[CapitalOmega]mxl", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0.05", ",", "0.01", ",", "0.1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.440460499948547*^9, 3.4404605021190357`*^9}, { 3.440460623080405*^9, 3.440460689076549*^9}, {3.440460763489147*^9, 3.440460766737821*^9}, {3.44077400105541*^9, 3.440774030565263*^9}, { 3.440775667902617*^9, 3.440775697149116*^9}, 3.44077579002275*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", "0.03681832626814746`"}], "}"}]], "Output", CellChangeTimes->{3.440775697591064*^9, 3.440775790623392*^9, 3.440789552812756*^9, 3.4407897027092247`*^9, 3.440795420493739*^9, 3.440869260672846*^9, 3.441058090029028*^9, 3.441124271618053*^9, 3.4411313153340273`*^9, 3.4413826317083883`*^9, 3.441382694560245*^9, 3.441382866560384*^9, 3.441391844040656*^9, 3.4419106870205193`*^9, 3.441989174354933*^9, 3.442010288270794*^9, 3.442010336088539*^9, 3.442934732725932*^9, 3.442936339103867*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gOmegaOfABC", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "0.1175", ",", "0.104678"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.", ",", "0.2"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"x\[CapitalOmega]mx", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.", ",", "0.2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Dashed", ",", "Thick"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"x\[CapitalOmega]mxl", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.", ",", "0.2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Green", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.015", ",", "0.0", ",", "0.015"}], "}"}], "]"}], ",", "Thick"}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"gLegend", ",", RowBox[{"{", RowBox[{"0.125", ",", "10"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\[Tau]\>\"", ",", "\"\<\[CapitalOmega][\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[CapitalOmega]-Ratio Comparison\>\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.43648929915808*^9, 3.4364893639011374`*^9}, { 3.436489727400113*^9, 3.436489819696274*^9}, {3.436490672671357*^9, 3.436490688982956*^9}, {3.436490794829678*^9, 3.436490851351818*^9}, { 3.436491266703106*^9, 3.436491295726667*^9}, {3.4364913528507643`*^9, 3.4364913600243464`*^9}, {3.436491412999234*^9, 3.4364914202346907`*^9}, { 3.436491540682261*^9, 3.436491547305365*^9}, {3.436491787236704*^9, 3.436491796877301*^9}, {3.43649183588621*^9, 3.436491853483527*^9}, { 3.436491966343858*^9, 3.43649196706742*^9}, 3.436493575453331*^9, { 3.440766168831503*^9, 3.440766174078823*^9}, {3.440766230881166*^9, 3.4407662699664583`*^9}, {3.440770910180921*^9, 3.440770910667856*^9}, { 3.44077103102141*^9, 3.440771081362523*^9}, {3.4407712126601343`*^9, 3.440771219446207*^9}, 3.440775797614698*^9, {3.440794859090068*^9, 3.4407948729634123`*^9}, {3.4407949074254932`*^9, 3.440794911786186*^9}, { 3.441382475971241*^9, 3.441382498108921*^9}, 3.4413826678656197`*^9, { 3.441382707102374*^9, 3.44138274945018*^9}, {3.4413828307357616`*^9, 3.441382832647944*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwVjXs0lHkAhqVSNqKMjEE1mUqKY+QIW96fS22h1pJrWko1cVwa9yTRVrQp l1SiWR1j6WLdihqV+mZIn0iyIlHIlFGShNyy9o/3POc55znnZe8NdtovLycn t31m/zOnTxRWn8C17FLV15axjIm/vPqjUoYqHL9Vyf5QMyYjzOjiZMZyBJuY 9LCVjMnG3AK9WIYRyo3qPHhTXPJWVr0vnEHQl1a0jNnJJSVJL+T5DEccOfDl pUoel7DetDYGMXyQ7uymvcOES54peIkCGYdQEJwYIfIwIoyu7R5nqTg8DR// MmFvQPjGWe/mShMhFpmqjYbqk6VhZ/obglPg4noxsGlwNRnn75kukKTjXw5f 8CRuJSlcs5CZVZ8BZ4v0xoBwXeI2p2mLpqEAtToNW6Oj2CQrUWMJ48FV0Da8 gNKQZWT0o5ESpzIH73y6Fe1OaJNnPq7KMX25EP+54hD3miZJNf6Q2j6Yh+T6 TuFBKw1ySCDhzx24hsgena6g5eqkVrPAK0LjJqZ3WdWsWqBGVIemawdY/6Ca t7XjiN0i0tjhbVuyrQi7vFcnS1erkJbik0k6d4qREpkbKmQrkY3s1Lvvy0vg vUdZmXVBkezOXNHnXFeKx/2r8hLU55Fhym/35oZbmC5NqLQYn0Psv5q+bPtw G+rdZxKd+uSJ4cD1mJ0TZTAoyxjkacwipzJf7HOaLMeTQq5oE2saV3bEO31b fBc6nqcO+zEmoVcijWdpiCA/vrih4tQYrDsH3nCWVCBw3i25dWQUmsw4qyb9 e9DgZrFNZg+D96NaOtfgPi57pHbnLR1CaH9qcrvtA7AtXdBkPQil67N5l9wq YSkbjk82HwBLbW3cS7eHGPETBCoHf8KQdUBDu+kj+DfMt1AoliG9SXAs5e4j ZMy32yD1+oAYu5wt5RsomB+wWBSxTQpJtZ9qIUXBa8K9XLjpHTYzlSZ41mLw t2+MHYzvwspgfu9QvRjZZtKyjsy3IIKSEStHCXqDVH2O32lHTkmVlvxzCRSE xw3NdNvgW5tpk+5ZhWjOoudFGS3wrrBP6n1dBY7O+54MfjMqCh+2LDxYDdEt Zs5T5yZ4nVawyB+c8ahp27KQRpj/rPdgVshjjH6Z/8OmvAFhg0o2hlOPoR9l PTx2vg59sXUy7WM1iOQLC4SfaOR//T3/6I8ahGZ/UlQ7VwOJ/21eceITrEpz 6j5tVg1WRc/WvxVnOspxXZmlBFNH57CkC2ic0d8rczCVoNOK85GzkEbH4fuG vQYS5NG+Z3MX0zDri3VYoyPB+lfdjUItGs6bxTebJ8Rw+N7pmWNA455/0J1m kRhHTTsCsn+jca3/pJqfmRg+45Ob3jrTyF6fqR5sJIZtpbbKMlcaUZLCkCg9 MX7a4lXyl+fMv6Or2QWmGBddXg8LfGnYlRk8HflOoTDsVeyVcBouSXYd7hUU Us3Gfm2PpNF61fbj+VIKYZNMtnY0jTHfCMsXNyhYnHCXZMXS0LJfUeSeRaHm fMu8rAQa8WLd9KQYCjfcRlvbTtOITfPO6wqjcE5L4wYriUbBbM6QeSCFnUJX h8wUGh75Y6bfdlPYwIvQaUujIcjdv9bVlQJr7cXPmhdo2LSquNzbQWHqc9lD j0s0cuXzS3V/odBZ2pxy+TKNuKA262RQ+A/96lMx "]]}}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwVxXk41HkAB2CUPElEUxhsjvEks2xZ212fr8Kzq5IQEVGU6nFN6WARu0JM oVWOadptIpsrMxLGjGsc/dR0UK6E5BYSKmLt7h/v8+odC7A/LicjI7PvP//P Gy4NksZs2DkY3x+cEcokp+VWVQpoK+BvaX6tP4hJPmuEFCTQdDE9F8kz8mOS 7Rm5RuG09ZDz13mS684kXUO13udoBDp2jtpFO5mEz26UY9Hs4ECrLq+VYRJ6 Z+tLf5onzGe+3omLNibPlriV+tECEefPM526uY7Q3u1zuVoVgcaPLumszLWE ZcZ5L98Xi5rgx9UO44bku6D40ecBiSB17mc6XRhklnV0IVeSDOFrE3MvkT7J X6eswZGmwqz3wAddez3ivLjJWtOUC1dTHwmzdg3hxKqvpon/gnbKDG3CQId8 GVmvxCjnYR9dbobfRifPPJ2Whw5ngF3RvHf/FQ2SZDaQ1DFxD63MtMtBMatJ IFfCkh//G1ErIweSBTTSoJnrdl49B+ecotnF7WpkxeRCwzg9DzYXerVSd6uS l289LPm/PECsKELV6pAKaSm4zNYpLoC3Ffu2QbAS2a6XVNL/iI9CbtXSs7KK xD1df9jhqQAehYMpXfEKZLrqlLvV80Io665SeRAoT/Z82tjcPvAQ1mPXbYQu i4jp+P1Qx29FeMay+VUYIkui0xu97ecegRulufxVzQJu2UbaT6mVgKHgu8Xv 1hyM+H2RdPVSMAynA1RHZ7Cre7yTsVoI77W+BezLX6CpEWHRZFyGPNLze5bh NHz+qe2TNxFh2ClkXF1/EmdHkxI6LMVYpiaYPL52Akr3F/mkOJejznTewOvJ GOgrmRHNzhVIyjt5MKdxBJO7fJ93bKyER+RsD2dgEMlN3EuJJZUYVZQpMGb1 I9SGZ/1oUxV4nb5DB0gvJLWnVuRXVeGE+09DS+g9sNJQ+uazqxo7Rj6RTJtu GAawBiel1bClJ9nKLHsLwuV/trCTQDVHtTVUtR08fo2W3AsJ7thwwmr8W+DV kL472bUGgYI44vDmFTyEe9iDb2ogSF2ItBI0Qphf0aJ8shbiQ5v0t6W+gNuV JVuzJmrxdXbrNbdLUmzZZiSWPVMH6f0Px6J8GhA0obTbdL4O7hFNAYnH6zEc /nRI+1I9jhg2dbW8q0HWpyNZYf/Uo68n+KRTdjUkpx/6FMQ+hoifntD4WyXo wt6fM5dSUGyXbnbyE2M+bDG9bxmFbzmVbepHxOi2YIwwlCmMhhWGtNmKcY/y upqhRuGFXprIbb0YP7b1vLyrRaHZ62Ke45QIe792u/JMKLxvEMUVhokQtvGt 758HKKQoRzz9/kYZPGfndnQ5UDgxxzWujC6DZbm2yhonCj8Ml8U6XCyDorUb /7YrhcMl57s+HC7DzYNvprleFMz7JyRSgzLkB7WF3zpHod9ikJ1QKETS5pn9 HRcouC1XqIvJFCJoTkNPO4SChsLHxuIUIbZGHZJwwikUe2pJfUOFqP+jRYET Q2Fs5ZmqZishsp2/tLZfoSCujNm5YbMQ17TUs+lsCtF+3LJ4YyEc7zrtTU+k wKh/XERUhNjkc16n/TqFqbOdZhxZIejMm2OaNyhIdKceTE+WYn6sqMIlhcJ1 6VITu/5SdAteJ6alUTgasiY7u7UU/wIMyl9Y "]]}}, {{}, {}, {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Dashing[{0.015, 0., 0.015}], LineBox[CompressedData[" 1:eJwVznlYzHkAx/GKsnTKZI4Oqkkp2rQP0rGfL5KjxqYoHSqbtI4Q0a7uh5XW WM3K0UyzGKVTNUmbStRU49cjOrZDkt8gEWrTRZflj/fz+vdt/PNBjxAVJSUl 3te+Kem7E9GQuOzHMJOkwKQl5mSvit79IoYOUux5wUPm5mSUdbzwHGMhyj3m hu4wNSeO6XkWsQwbzD6RemAZx5w8f1u76yiDIONldsyTWeZEym9WCWe441l6 vWjxy0WE093RdIARhMuNHpdjhIvIIzX/O2GMQ2gcSTZzUl9EGAqez9mqeBSc rFnC6eaScFvRS9We0+jIyuQHNJoSo4gzHx4fTMZKW5eAsGYTMh6+80ueLAV1 phk6/Hpjkr9YiyVquAwnVpqKrHsh8Z7Z4sK2FuNmpdGFD/8uIKLTzPmMu1eR Zyw3s1M3ImPvbDS4lRKUr58nPnLEgDwK8tKM7ktHlONhz6gGDhHY9gq6Bm9A z2xxG8eLTQ6JZeGqA1kYc3tu+X6USerZef7HmLkQZMi7p8/MJzpDX+oHODcx bJHfPr5RjzQ9C3SWbizA9vR4iw3T80h74e98w38KUdXsUlFI6RJHY0Hp6xIp ivzCr+0tnUt2CE36PB8WYTjVtSTkig4ZqdqzY93jWzC8NKdXxtMmrh9XtHX2 FsPtgOQo012TWA9kR2+duI2t1XMyJZHq5JSweZfHZAlM0vynBtpmk7TNCR7D uqXwbRzXnbD6jlhIexI4zDvIipaWNN1SI2vogW7u/DK0tHBoS29VwmbFr26x LIdP0qmdvI8zSOh0bY/q0gpUqDE/7S5VIUc+CM51Od9FHNtBvORXZaKRPSP0 knclQnKDsx+5KxHOPKv4Nu97UO8qrx4WTmNozf7HXSvuQ71VK3ckaRIpLeK4 5NL7+BQRGaBcNo7oTRKXkpVVCPQu3Fyg+Rmy2j06+VVV+FJf9Hls+xjWsTQm QtdUI6vbkftH5wjMDoa/GWqoRpEVq+rctmEQsXR0tbsMTtf3RaxXHoJEWqOv 0iiDrpcN77V8EMH1wrUpvjWwO58TZZ30HwLLXPlvntZA2Go8eLinH2X599q1 fqnFcuzvaC18D/8kNfvMwVpcsbyY6Jnbh1UOFneVD9eBleHqE9P7BhGDGmut p+rQ6ly32d+wF32xD98axMkxQy/6RvHZHmR+DMiMmZbDQMYyuWb0CrK9xaGF px8gIeSte2DOC3DKXm3ImE1BLnE8MRWiwFTMTE6POoVR9rr+hCAF6NXcd1wt CmYCno+anwI3qOCz6boUTsQFfK/trsAPT140XdenUJxVYe5lr4DbJ9pXspTC b+/4Bsu1FYhZ8Wz/lS0UlnsVOSiX0Qgan3R67kmhSbTJpriYhnOlgfYCLwr7 FC+4oQU05rj4S//2pWBPd9Cv02lc3PZ0RBxMwdPBQqiZTCM/4kls2lEKJwfr NPx20xDYff6pK5LCpgeccu5OGhGTLGOD4xQ05GNGE3407E9ul4liKbTOtFpV voWG/Hz7LFEihV3xgjAHJxo53mMdnUkUNizIPa5vR+NPfWYOh0/BsrImccKW xtbrXm7CZApDE2PXyi1orAw9Ztj5F4V24dwCkSkNjtXFfvYFChWrrCqijGhM 9d++53OJwtUOZ8qPTYMuak1OTf36GxnQ5sCg8T+G7lNT "]]}}, InsetBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"A\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"B\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"C\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], GraphicsBox[ {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Dashing[{0.135, 0., 0.135}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False], {0.125, 10}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox["\"\[CapitalOmega][\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[CapitalOmega]-Ratio Comparison\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Normal (A) and Leveraged Normal Mixture (C)\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, PlotRange->{{0., 0.2}, {0., 18.105119476575855`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.4364919677724247`*^9, 3.436493576369144*^9, 3.436493755358292*^9, 3.43662281923111*^9, 3.43715931425389*^9, 3.437963046273396*^9, 3.438366906978533*^9, 3.440273066127968*^9, 3.440327129944703*^9, 3.440459697443287*^9, 3.44046083567747*^9, 3.440548086120541*^9, 3.440764098319137*^9, {3.440766232968583*^9, 3.440766270590246*^9}, 3.4407663684896584`*^9, 3.4407710825833263`*^9, 3.440771226400152*^9, 3.440771363405315*^9, 3.440771399994054*^9, 3.440773799088645*^9, 3.440775798183754*^9, 3.4407895529912643`*^9, 3.4407897078630877`*^9, 3.440794873624064*^9, 3.440794912349255*^9, 3.440795425076524*^9, 3.440869260803389*^9, 3.441058090177187*^9, 3.4411242717517433`*^9, 3.44113131555359*^9, 3.441382631931685*^9, {3.441382668496447*^9, 3.441382694692699*^9}, {3.441382734430492*^9, 3.441382750044016*^9}, 3.441382866694249*^9, 3.4413918440802803`*^9, 3.441910687087141*^9, 3.441989174422505*^9, 3.442010288436248*^9, 3.442010336155408*^9, 3.442934732791834*^9, 3.442936339169929*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gOmegaOfABC", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.4404610224942913`*^9, 3.4404610267556667`*^9}, { 3.440551022455552*^9, 3.4405510255419197`*^9}, {3.44077124883039*^9, 3.440771283327057*^9}, {3.44138282262016*^9, 3.4413828244235563`*^9}, { 3.4413917452426567`*^9, 3.441391746504386*^9}, 3.4420102178622828`*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gOmegaOfABC.png\"\>"], "Output",\ CellChangeTimes->{3.4407712514731417`*^9, 3.440771285466712*^9, 3.440771364810973*^9, 3.440771401467218*^9, 3.440773800381976*^9, 3.440775803387624*^9, 3.44078955450354*^9, 3.440789711409226*^9, 3.440794916667778*^9, 3.4407954304971437`*^9, 3.440869262228747*^9, 3.4410580919832373`*^9, 3.4411242731199017`*^9, 3.4411313172057056`*^9, 3.44138263335916*^9, 3.441382696134691*^9, 3.441382868130012*^9, 3.441391845406167*^9, 3.441910688474066*^9, 3.441989175755851*^9, 3.44201028858812*^9, 3.4420103375504847`*^9, 3.442934734154934*^9, 3.442936340506007*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gOmegaOfAvsC", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "0.11755", ",", "0.104678"}], "]"}], "-", RowBox[{"x\[CapitalOmega]mxl", "[", "x", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "0", ",", "0.2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\[Tau]\>\"", ",", "\"\<\!\(\*SubscriptBox[\"\[CapitalOmega]\", StyleBox[\"A\", FontSlant->\"Italic\"]]\)[\[Tau]]-\!\(\*SubscriptBox[\"\[CapitalOmega]\", StyleBox[\"B\", FontSlant->\"Italic\"]]\)[\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[CapitalOmega]-Ratio Difference\>\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "\[Rule]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", RowBox[{"0.2", ",", "Red"}], "]"}], ",", RowBox[{"Opacity", "[", RowBox[{"0.2", ",", "Blue"}], "]"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.43648929915808*^9, 3.4364893639011374`*^9}, { 3.436489727400113*^9, 3.436489819696274*^9}, {3.436490672671357*^9, 3.436490688982956*^9}, {3.436490794829678*^9, 3.436490851351818*^9}, { 3.436491266703106*^9, 3.436491295726667*^9}, {3.4364913528507643`*^9, 3.4364913600243464`*^9}, {3.436491412999234*^9, 3.4364914202346907`*^9}, { 3.436491540682261*^9, 3.436491547305365*^9}, {3.436491787236704*^9, 3.436491796877301*^9}, {3.43649183588621*^9, 3.436491853483527*^9}, { 3.436491966343858*^9, 3.43649196706742*^9}, {3.436492162449987*^9, 3.4364921850973997`*^9}, {3.4364922373202*^9, 3.436492276867989*^9}, { 3.436492321267929*^9, 3.436492332254148*^9}, {3.4364923774412117`*^9, 3.4364924001772203`*^9}, {3.43649243525275*^9, 3.436492505011195*^9}, { 3.4364925483238077`*^9, 3.436492549072056*^9}, {3.436492621072095*^9, 3.436492648575245*^9}, {3.436493090869013*^9, 3.4364931039675083`*^9}, { 3.4364932012169533`*^9, 3.436493214351371*^9}, {3.436493278939233*^9, 3.436493295424431*^9}, 3.436493606241179*^9, {3.440766292777027*^9, 3.4407662930872717`*^9}, {3.440766539989904*^9, 3.440766608755522*^9}, 3.440766640668995*^9, {3.440771101565424*^9, 3.440771125486524*^9}, { 3.440771326807369*^9, 3.440771327253887*^9}, 3.440775847650071*^9, { 3.440795454433709*^9, 3.440795455919299*^9}, {3.440797240251582*^9, 3.440797249749606*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJw9WHk8lN37piwtsiRL9kpSkkiy3/YQrUpvCa89JZEUrUqlTGXLVmQnu5l5 hiQniUyRLcaaUVmSGOaRhLfveT+f3/ubf+bzfO4z577Pua/rvq5n1rn5H/Rc wsPDY8TLw/Pvd8bY86CmO5rGfZayRPAkj8k3d4HIntEM4Pm/z3/x/57Z1I6o pCTm/8d/B/z9p7A2DkYNVYvavy1C8WZh6cdNiaC03PMldYQER752q7XbUiBv D2+Xtf43eBwhJbnmZRqIvt/pK7yWBbPftwspV+N8V7Z6K3OT4IPrkVWXx7Ig TeCw9u/WVhStNRLdN5UDDU0RGbG+bHQ2pTaAfzIPTG6Ma4VdHUbv1hY6BUsV ACf2d3F953ckyv3zblKmCEQ9L5vfa5lErf0uFmU2JZC6WVCk49EUYpXeosiX l4L2UKLEj9ZpZLguumKYUQZfPc70ReRy0Ynk9WOHGqmgImpgr2lBopmakycs m2nwz9EDIquTSbRnWqezZ4QOe0OyFjsRibZNPrvsME9AGtpiNEqQ6HZym8fB BQY0mPurCt0j0ZO9YQfJ1RXgtkNh26g+iVTLhsJkpJ7D400Sd0S6uciMPflJ WbISXLngyu/NRWulr5u2b3kBXhWWodyeaeT9T90Qv3oV9NYPHrOxm0bnfkQ/ 7LN4CRIPnufr500hoWdLvRMcq6Fq8kL9Sp4pJCOudr3TEcF2lb9zxVw4iGt2 urlP5xVEtfVrLnWaRHHtKdeiKl6BpOcqjSmRCXTZNsOKsasGmrZ9lXd+P45q 606KFtfUgF+TuObfZ74jS2mheW+z13Dms0VytfoY2ugfMMpteg33IwMEW7tG kUlK2U/T/bVAVw/f45wxgjLK3sguaamFdjUN2Bg6jNzfJZvHHXsDURZD553M hpBL5R7KaO8bWMuxv3xg81dUWYxYwj51kOS6Uv/H0i/I6a6Afu5UHVzuMV8H k4NIz0D1JW9gPRwRn7lxdpaNgqaEzLct1sNitem80fgAGrva+E3u2lvwyb9v zrvuE8qdds698s9bEJbtW3UtsA/V+tK9SyMawPob1VqW6EEylV+ts5cz4fqU evDDzd3oPzxTpQIv/7jFQjb6ymJPXqaDidTMhEHzW3DLqRXa/zET0s4Vbk9b V4NKman7tk5kw/ZcQSN2UTfi8engDeDkwnX5WAvf5C8opXfXiNHSfOD5zad1 4MA35CfQKb5jbSHkeWgRFZwf6OxoyZ39WsVg7etbF9XEQezmY1Lz6qVw4/RA 8CJMoxUnI9cv2VUGn0cOzr205KLG/r8OpJhSQfhLyt3v/3DR5m31mY32NHDj Umwbz5NI6VjL2qjjdLh6jtIWQyNR1dmzzxICCLDlVVXZ8opEPRbVZ9svMWDF 9FzH+0wSRZPPjmfeKYeRq+/Xr/Mi0edrO3wFH1XAYlXEigQhEl3R6T/99AAT giRGtww5dKHAwRTxo0bpkFap1G3k1gpbbUKF9G0ygcf0/ShfdSGCR6HbHE5n w9nmETdrVgeytv/EVAnIhVfbw+ZshD6j21VXCteFPINX6dmrp6dGkJyoaYVD YgGwczRvWX0fR69+OG5OyykCp3dfiWpnDmqovve8va0EGq7MWolMTCEOJYIl MlsKy4pNrLYKc1H4tRk+s4UySD5VEhzfwUXmHqSV6Coa5Hn7cSqdSbRCOOWF rwQdGMXMG/fzSBRe1g7PtxJQdaBKw72GRHwy9J+xBgw4k2pe2V1EIspuY/Zv 03JwtO90EQ0hEXgf+7R4qALMrubt9Fcmkd0v9rEMdSY8Y4rW3KjuQtULvv5i yYWga5b1IXNkAil9ERzmqS4GbdWGDs2dU8jJhHOAElgKQqxvs/2R02iD5QM/ MrgMvJYbhn+4yEVrDKtTft2mgmFKf9PzDSQS+ZXAc/cBDYKzqlMj7pJIJ2fp RSKdDslXNB1sXuD5o7FKPJhBQMzgnKJdFYlK/RvGVlfhfnZI7u9IIFF8ugRr T1M5GBiq1zgeIFFxUPfVJ+eZoHHpmwl9nIUEiJ41OotpYBKtN5in8xFikg8L lSzF/bN/G5+oGYUELo3K+6hlA8dzUSCgtx2No89FYZq4f6vGvTYYD6L5QqWH 4trPIHHELrFQfwRx44LvDTkWwK+Y2Rux7uPIh6P2+60r7p9hBP9LZQ6y2ztz 1exBCcSpdoXMvZ5CXxUEqZKsUoiZafCK50wj1/21znHdeN4mBE5pIy7afy1S mjpOhbTJ3lePcf08PjeFjk7T4MGjgEeX0kk0eoB/pe0KAibiPQY+YTwn8ZXo Bcky4NOM5kdbKomWB0RkqCji81P4nUfCSDTR4ycdsqMCFJc+JTZsJ9GO7s+t mbJMGLssiyq5XSg+LM00469C4JwxnTl3ZgI1DPUyVC8Wg1wSxNCXTCGFiGy6 +f5SaFGa4a3wmkaSLCHr+SOYjxeexfW6cBFHiDJr60GF1NipkHIxEsmJa7Rt OUODSufVOu3XSKTGM9aQcZUODVve5twuJ9HRFuNPAnEEMJ5Wb0qpJpHlsVp1 7mMGZKn3rN+YSqI1712SLuSXQ/r6wkoDJ9zPw70zKe5MYK6zaHil1IXyijcV TCpQQWHz4+K6MS7SsTlx/ow6DUzYpe98fUkkQWf4XtGlw0KF+h2ZYjwPxDKC VPcRUDyzhiGN8e6v8ZxGO86A1YKKvZrPSLSkn0djpJgGwxKIPhtNIhM7+U0N b+hglbrNtuYliWIe9u4e6sJ8ST73JfI5id7GsgQf32HC6TPrszyes1CLQojE xv404Ig8SJXJ7QALc3PKNzbWbz7/bo2t52DM76nE9Ips2H+kydSX1YaM574q lojlgvTyRAG/j2ykszHwOkXsGfwC18fRfcPI2TGaW7SrAEyinBYp8uOoaurR 516jIqjqbyh/JMBBwvH5g3OnSqBSWy6lqnAKffK2UpR5WwoynmO24YPT6INu fqRRQxnkLb8Yl03jok4hR96bfVTYq9hRKb+HRL/jftI/sGkwUfDDgRfft8z6 1LOr5+iQJc0WN8N4+hqy9bjHSgZYTVi9XEUnUcOtoptVq8qBa5jwoeMWieri LhA6Gyrg967aoZydJMphut/PWs2EqJUen68Id6MlFi/yffUKwXWTxfH3GhNI bsTyqeHhYljGPyx/fpSD/qjxeClCKWS4nLhVcGgaiSrZEf9YlcHPxVZ+oUNc 5DwTqEwepMLrMQefuGUkykj7XTl/ggbaT9t38l0ikYr6iYC1fnSgL4oVF2J/ cS+NZd58g4Btpev0d2H/EdVssu9LJAMiKBT5/jQStQ2Eh65KKocFH2nNXX/j eWjlVJZ6jAkN+yctnup3IckE4a7EVVRYqCvtCGRzUVWnqjPI08As5VpRgweJ RAc3i5MqdDAUvDhFKSDRwUH9Ho4RAULJKp6iGE+VWTodmXtwviBSPhDHI3wb pSpSaRAf/ceee59EBiFRzcY0OvSofrt9B8+rNy5BRUVvCVj/xV2wvZJE+uFH ax9fZcLq3drn5tpYiN9A1GNwKR2cN9sHymaTiBF2OjtMFvMljz58EOfb+1BT OlyNAXQvYwe9UhJtbw9W2hpFB619wampGJ8qPDkXjbMJuFw2MJqJ8Stzx/y1 gC0dEtnj/svL8DwwWS7i6kqAzPaw+VbcbyvF/KsHOunwQVdmDy++P1dk9llu jAAPPRHJUcxXh8wjdslRTHhI8ZognrIQ41DDI7mmNFCaz6g559IJqVL6jbeb Md4LPc/O5j0Ap5FQsfLfWcBuVmjY59CGRiWGu+p4c+Eoq3dPyFM2OjQoM2fN g+fnzdi6uqJhFFehoBqzqQDytGk+i3Pfkdf0u07PrUWQV7HlXdLEJOLo8cd2 HCuBmPpl4Jw+hY4JDXfIolKMP4G/md3TiL9Ifn0MKgNOmSc3r4iLkturzp/6 SIUGBTMnYjeJLqptX76iiwYO5tku0k9IpHXPNzOYQ4cxhQidtfj8d7W/n3Ja ygDrsnL1Hoz3TaImQYL85SDorT85cgfrS8DCTQnZCmg+da1pny6J2KbK35WF mdCoqK69Qq4b6WZbD+zdXAgmfSz2v/6xfiQ0tt68GH49/6Uv0stBnCtFxvd1 SkFJT/r1qM00uv/m+ykeKIPU15v6guy46NHJ4UprWyrw7bCvaVlKIi9vV42v h7G//mnqc/4iiTJr4+scPHD/tv3KKsL1ZS7LCt4RSkAp9wg/Ffdr570/Lr03 GbB9n3m/WQY+n6/UqaNR5aDYbCGS4E4ii2o5EcUjTLjRWo8Kdnch+5U3zvzg o4JHk9iwRC8XXU950LZJggYZjB/2zZgf9y+4e2so0CEi5k2YbD6JTtkIrjq8 E+cLtlpvhfHn4jIz9NicAW0f7N9RCrEf0NSipMXTQDKHxXwXSaIKkXcbQvPp sD5UaHoG63XfWxO2GCJAX0vv92X8HLQgvU4ulAli/cOSlQMsdKPVpkJungap k7rbdmE/1vxNt2toNQFdpyieG3E+0oajenkDA95lmQ7swfgtPlka5H2HDkdW 9hxJq8D+xCewIOMJ9nchpe5bsZ4kyl+RNDOlQ7hRQnFyCYkEn3WYvnEkIM7g wW1evF8t8aWN0kSHV4aSaWfw+pBNIhJhgwTo8q+IqMP7PZCVypehMIHNF3Az qpCFeCtbjYp5CVDyLze+hvFijPxsT4szIHTUb4MO9pcBuivFTkXi83lSlX7i /fRCzuRSrAhwZquel8L51oxdeFNwiAFedruSjuP7LJjNDbVpIUArNXyNAeZ/ ytq0QHllrC9p+y564/U0Q6NGTiIdVOUePwrDceHEbsueIgLkUPT7pZjPKZzl Z94fxP6230XBCet9R5dh37wPAUcvvd18D9fXEHF2i+QAHSj6kW4hGB+7HYNL KqYJ0G7XTecy8DxQi59Y+4gJl/j3jX2MYSHVicnD0nVp8KqVbJeu6oR3YTtP d9RjPtscKd+UHgcSWT4Pk6azQMnln6VW4m3IMMtrZ+tcDvyqEni+5hYbuYH/ ztzZPGCHFyZrxQ8jjZOeZuGKBWBtfOnO7tHv6EXgUEv+hiLQTdoYmjowidiR 1FPmB0uAsTF96dPHUyjx084yuRelcL1G++RAxzRS8nb0M3xRBvQDyUdT8rlo gTFZ4tJChdXyuxp/WuJ5+NOOlttOg0D30K/Sj3E/qluqVMfpEEj5ajWPz9sX bRt09A8BDkYry9yxPhw5fHe8kKccAhI1Sxci8HxkG3/nk6qANOYtkVQ9Ei1e 4ZMZWon9UOjN8qb13ajt8MM5k3WFoKQ4QDvBM4FkfR7dX2lQDAsiXwptP3LQ qAqfmoVWKbgSNI1fFtOoMd5gN69BGViMXXOXt+Gi0g1KAlxLrF8r3P5y48X9 sI092XWABnGzr5WVL+D3iwc0/2kXOgj/DGRswHwuNVwRNXQe41dZVnoK1x8x 4uzDusaAnlYnxnLMB7cS1y+LkeVQlqMy14T1yPX3gtHAISb4dDva2eztQj51 L54n8FDh42nj68e6uOjz9RohOTHsh97uuW7tSqJGs+tiTWvp4DVSI3EU+52L V/xUBDUJUK60eeWI8UatcphIAAY4bTUt3on9f/Eaz/q4GKxf9hfGCvH7+mzP cJNUDh0KxSv5MzF/R+dz5morCYjaLX9pBD9H687t67vAhCfp33erDbNQzRMv t8qfNMix6CN343nUJ/90KkGYgNPHz1rw43xWufs0Lyoy4Dr3fFMT5vO4dpMC /006PDF2/SGJ+Wf3pOuNQyLmw8THl96YT52jSa8GDOng66KEurCfW9NvcDz4 EAGBz0XV/tXfJWE8V7Yw6WBbS+6RxetvHz+/bUc/AR94m5LUsB7mO8529dxl gtDbZ27zVBYSntjl6LpIh2WJfIL2mC/Rck0HfUQYsH/nEp8szOerpwO2yN8h IIObnr8W98Oq6OMrYzMC4olfmatwPu/drMbcfQyI0mKYf8N8rlATjpt/TwD7 5a+fdzFf8+0FKM2KeF6elLdzxeunBY8FP4ijQ/DDxBviOC7TCC6UZ/j+qiya jmA+971QkT65lw4+3r92M/B9fBbKnCnyIMBQSF2mDNcn6HD/I62HDgpDLbkm uB6HyL4G3wkC+lreVJ7F+rzLO1i+J4YJjp0jelZJLKRyhO/eG5IO2hI2zdvx 73VYke6uggxQ2GGxLhDjLf6j0YmwqwRUCvlzTuP9nCXSuRl6BOz/c/ToNlxv S2xPvUstASvkrc0lcX9fE23VO6QI6PniYwk4rqUtFMNJIyArq1f2O67/d5C/ 6monAuhBW96P43zhY/Wqk610KN5wzeYF7gd565TyAj9e/758BxXHPfiyZyse EvCJ93NqI45vtVz2oMcW+3PmgrIs3j9qSO+vU6oEiMb+9PPBzw1Zna9t/Aj4 Wju69QT+/b2Xh65f/EKHPFLjagGuf3GCQH8lMMFs3ILHjcJCi53v+mRNYuG/ /+/+B4pVlQ8= "], {{ {RGBColor[1, 0, 0], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwl1He0z2UcwPFLKNcq2fsmhJt57e1EUQjZ6tgtri1R5jlmRgsNWxSyzjHK KFJm0Y7svZ2DyEqvz/HH676f5znPOb/v93m+5yZ16d0iNW1CQkIakv0pr+mI tU48RUUSucJqxtCZBqSQiausYSxdaEglMnONtYyjK09TmSz8wzrG041nqBLP 41m26of04QWycp2vmEB3GlE1ntf+73UafWlFNm7wNRPpQWOq8YD9P+h0+tGa h/mX9bzDyzxL9TgT+7fpDPrThke4yQYm8QrPxTvbu0fnMJQapLe2XT9iAG3J zi02MplXaRLnYu9enctb1CSDtR36MQNpF79v7Tf9jBE8ym02MYXXyGnPX/oF TeMMzX/WebxNPvODuownjM9rLR403qmfMIg85n/rUoobn9X28Q7Gv+tCRlLA /HDcva7QUnoxzkBz6B2+4UnzqVpYj8X3oK9rLt2nFXSxFtMzcWfaLO5Uf9Fy Ol8f05PxDegwza+HNEWXa0m9EHeotfUh3aVl9VNN0hPxzekbmlcPaEX9Ukvo Oe0Q52v8h5bXRfq4ntZRFDQ+oispbXwpzp67fEsZa+9qET2uPcltvF+X8Hx8 f+a/6gKKGp/S4dQho/lunclgOsZZ8R+beY9eNKcuifb/qLN4kxfj97jHFt4n lRbUi/uNd4/vIc4w7jHeiUJxR/HccVZx3vFs8e5xN/EtxBnFtxNnHfcd709y 3HG8d5x13BfxT+Y7+YDetKQ+maz/pLMZwkvksPanfs7oeA7zo7oq4f7/qcta U/8HrI6Deg== "]]]}, {RGBColor[0, 0, 1], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{1, 3, 2, 133, 180, 241, 9, 50, 67, 95, 132, 179, 240, 8, 7, 6, 5, 317}}]]}, {}, {}}, {{}, {}, {GrayLevel[0], Thickness[Large], LineBox[CompressedData[" 1:eJwl03e4j2UcwOGfFQeVFVG2zLKp7J3IOmQ0hJSR0TAim8pWkVEoo4Eos4yI QsheUUZRJA0ZlTLu7+WP+3ye573e65z3GSd/h57JPVIkEolKflQljfFNpCUd f7KUETxBbcqSxDmW8TIpaUcdypGev1jOK7SnLuXJwHlW8CodqEcFMnKBTxnJ kzxARW7mIp8xio7U515S+Pav9E2epQW3cImVjOYpHuS++F7vb9TJPMfD3Mrf rGIMT9OA+0nl/U06hedpSSb+YTVj6UTD2EtSe3+zTuUFWpGZf1nDODrzUKzZ uzv1XV6iMmk8+1qn0YvWZOEynzOeLjSKffHuLp3FAKrEGXq2Rd+iN23i73u2 T99jCFn5j7VMoCu3eedbnUfj2EPz3TqbgeQyP6KLKGr8q1YlrfFWfZs+3G7+ nX5EYeNf9JFYg/F+fZ+h3Gl+LM5eP9Hi+lvsgWbT/1nHPeavaV79Me6DPqPZ 9ZCW1fl6l56OM9Mmcaa6R0vrHC2gP8Ud0EF6hx7V8vqxFtOziRv/D9U0nW7T Ujpd8+vJuHPaV3Pq91pOF2oRPaOPxv4aH9Ay+oEW0lM6jNzGx3UxJYx/j73n Cl9Q0rPXNZ+e0G7kMD6sC2ga9898r86loPHPOpjqJJl/ozN4kcdir7jKet6g O82oQXrvb9eZ9OPx+HtcYwMT6UEyNeN8Y+1xH2IP4xxjTeSJM4rvjr2K/Y5v i7XH2cRdiD2KuxN7Hecd6+fuOONYd+x1nBcJ3/SlTKInzalFBs936Dv0py3Z PDuoHzI8vsP8B10Sv9v4D62iZfQ6stmJCA== "]]}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, False}, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox[ "\"\\!\\(\\*SubscriptBox[\\\"\[CapitalOmega]\\\", \\n StyleBox[\\\"A\\\",\ \\nFontSlant->\\\"Italic\\\"]]\\)[\[Tau]]-\\!\\(\\*SubscriptBox[\\\"\ \[CapitalOmega]\\\", \\n \ StyleBox[\\\"B\\\",\\nFontSlant->\\\"Italic\\\"]]\\)[\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[CapitalOmega]-Ratio Difference\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Normal (A) - Leveraged Normal Mixture (C)\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, Method->{"AxesInFront" -> True}, PlotRange->{{0, 0.2}, {-1.2972187323986795`, 2.1169256352375054`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.436492549742346*^9, 3.436492637262909*^9, {3.436493080953765*^9, 3.436493104609169*^9}, {3.4364932028565474`*^9, 3.436493215450343*^9}, { 3.4364932801406717`*^9, 3.4364932959971457`*^9}, 3.436493606801502*^9, { 3.436493760074519*^9, 3.436493773383271*^9}, 3.436622819378345*^9, 3.437159314345978*^9, 3.437963046337862*^9, 3.4383669070782833`*^9, 3.440273066178095*^9, 3.4403271300262527`*^9, 3.440459697679191*^9, 3.440460841346875*^9, 3.440548086263282*^9, 3.4407640985060463`*^9, 3.4407662934394197`*^9, 3.4407663687986403`*^9, {3.4407665662806997`*^9, 3.440766579685692*^9}, 3.4407666098187923`*^9, 3.4407711262564583`*^9, 3.4407713279949007`*^9, 3.440771365485832*^9, 3.440771401752379*^9, 3.4407738006260653`*^9, {3.440775830006648*^9, 3.440775848378663*^9}, 3.4407895546665688`*^9, 3.440789711588471*^9, {3.44079543155262*^9, 3.440795456621674*^9}, {3.440797242431857*^9, 3.4407972503952093`*^9}, 3.4408692623958282`*^9, 3.441058092437991*^9, 3.441124273263541*^9, 3.4411313173631067`*^9, 3.4413826335485077`*^9, 3.441382696333819*^9, 3.441382868379427*^9, 3.44139184551667*^9, 3.4419106886356993`*^9, 3.441989175928194*^9, 3.442010288915251*^9, 3.442010337697319*^9, 3.4429347343320093`*^9, 3.44293634069308*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gOmegaOfAvsC", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.4404610224942913`*^9, 3.4404610267556667`*^9}, { 3.440551022455552*^9, 3.4405510255419197`*^9}, {3.44077124883039*^9, 3.440771313926252*^9}, 3.442010222600471*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gOmegaOfAvsC.png\"\>"], "Output",\ CellChangeTimes->{ 3.44077133210238*^9, 3.440771366882189*^9, 3.4407714031783323`*^9, 3.4407738018479843`*^9, {3.4407758356102247`*^9, 3.440775852605171*^9}, 3.440789555951305*^9, 3.440789714923551*^9, 3.440795461422072*^9, 3.4408692637949266`*^9, 3.441058093787184*^9, 3.441124274598651*^9, 3.441131318930332*^9, 3.441382634961585*^9, 3.4413826977080173`*^9, 3.4413828696358547`*^9, 3.4413918467445517`*^9, 3.44191068991378*^9, 3.441989177194028*^9, 3.442010288989049*^9, 3.442010339031218*^9, 3.442934735913986*^9, 3.442936341945984*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Bi-modal distribution", "Subsection", CellChangeTimes->{{3.441074276352392*^9, 3.441074284784903*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"vnW", "=", RowBox[{"{", RowBox[{"0.5", ",", "0.5"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vnM", "=", RowBox[{"{", RowBox[{ RowBox[{"-", "0.05"}], ",", "0.25"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"vnS", "=", RowBox[{"{", RowBox[{"0.04", ",", "0.04"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"xFiniteMixtureMomentSummary", "[", RowBox[{"vnW", ",", "vnM", ",", "vnS"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"nMN", ",", "nSN"}], "}"}], "=", RowBox[{"Take", "[", RowBox[{"%", ",", "2"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.436623042856717*^9, 3.436623173591855*^9}, { 3.436623210905011*^9, 3.436623260951929*^9}, {3.436623679364888*^9, 3.436623728198844*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.1`", ",", "0.15524174696260024`", ",", RowBox[{"-", "2.3183270166463547`*^-16"}], ",", "1.256744890756014`"}], "}"}]], "Output", CellChangeTimes->{3.4366232614100113`*^9, 3.436623729997007*^9, 3.43715931439546*^9, 3.4379630463720417`*^9, 3.438366907140258*^9, 3.440273066192329*^9, 3.440327130073524*^9, 3.440459697863674*^9, 3.4407640985432167`*^9, 3.441074384997856*^9, 3.441076613858521*^9, 3.441077268835308*^9, 3.4410777450644493`*^9, 3.441124274745994*^9, 3.441131319119957*^9, 3.4413826353197317`*^9, 3.441910690063809*^9, 3.441989177364313*^9, 3.442010289114716*^9, 3.44201033916481*^9, 3.442934736304986*^9, 3.44293634213013*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gLegend", "=", "\[IndentingNewLine]", RowBox[{"Framed", "[", "\[IndentingNewLine]", RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "0.1"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"70", ",", "Automatic"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontColor", "\[Rule]", "Red"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Dashed", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "0.1"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"70", ",", "Automatic"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "->", "Left"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.440768378762293*^9, 3.440768561516054*^9}, { 3.440768624541299*^9, 3.440768677937708*^9}, {3.440768745237956*^9, 3.440768783247244*^9}, {3.4407698053902187`*^9, 3.440769866762312*^9}, { 3.440770143074379*^9, 3.440770145175685*^9}, {3.440770204116376*^9, 3.440770370246828*^9}, {3.440770426726913*^9, 3.440770620588566*^9}, { 3.440770900955824*^9, 3.440770901429399*^9}, {3.441074588183249*^9, 3.441074594580447*^9}}], Cell[BoxData[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"D\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"E\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False]], "Output", CellChangeTimes->{3.441074600132316*^9, 3.4410766158215437`*^9, 3.44107726898783*^9, 3.441077745246262*^9, 3.441124274859331*^9, 3.441131319197248*^9, 3.441382635382093*^9, 3.4419106901964407`*^9, 3.441989177431134*^9, 3.442010289250856*^9, 3.4420103392300043`*^9, 3.442934736417926*^9, 3.4429363422450733`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gBimodalPDF", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"nMN", ",", "nSN"}], "]"}], ",", "x"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.4"}], ",", "0.6"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[Tau]\>\"", ",", "\"\<\[CapitalOmega][\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"vnW", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ "vnM", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ "vnS", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{ RowBox[{"vnW", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ "vnM", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ "vnS", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}], ",", "x"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.4"}], ",", "0.6"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick", ",", "Dashed"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"gLegend", ",", RowBox[{"{", RowBox[{"0.45", ",", "3"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdzE0og3EAx/GxwsHSZpZYy06zHPbEthpRj1jridK8pRCryUKTkGx5Oyja ZY1NJI1Fy0vhQFjKSymZHWTNyUpmOCwX2mz8f8/h2+f2lRrMemM6h8MRk6C8 by20sBylbZq5CPyjpDG45UuxlmcexReJozImzUl8q+unYFXCr4QF13cmuFS7 aobC/bxh+Pv4PAJFHr4Vvtq5EzCfsnhdxIP3XdZPJ9P65Y7S4ytdbfBkVlEu W4/SqflCGmp5bi0MHXJ0cKj9ph4q73mdMPEdMMC4P9cIK1I5k3BHHpyBvSbV DxQnk9xiYlZGtQMG9z9ckBkoWdLja+tYg0XdgW2ofBnYgSqL4KyR+F2Z8MEp gdN7RtyL8XehddnD+IhXYaYBugU1/nNil1AZgMJS+xO8ikdYjzUh0S0xo+ed VXd5IYHZLX7WB5ejpGkjSktP1RTclJSp4Vh/shJOi8KKZqJjkEfBfxsd7V4= "]], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJw12Xc8Vf//AHDcKzPSoCFZLSMVDfN1KBmFFEoJ2RQfshr2HpEkMkP23i7d HHuvy7XXdUmSvULK9/z++P11Hs9/zvt93u/X6/V+vx6Hz+i/e6Z0NDQ0WbQ0 NP/3bB7M946OHkJfXtSfXH4WAkwfvvF9iBhC2X2MZGjjQkBVrQ19+24I1cCT XR62h0B7zcwfd98htIKO+/iYaCiQsk46mNkNofQHPnQpr4fCsEuwibjKEGqv at/rqhQG87zmih1bg6iMg+iTa3vvQXTEYapxbRDlrnaMYOIOB5uPXp7Vi4Po MVU1VXrJcFhmSvhWPD2Ixh6jpXltHw4bq+QrMd2DqED1jIL+XDj8q1c4Y54x iNKXlCsjlA/AYcnDQPtwEGXQEF39vvARzvgesAu9N4gyDSkvXj0UCTJJdCMn 1AZRQokwsfp6JJgNzeRdVcDeJ/Fyw90nEogq+TrPRQbRKb4qhlKeKLAQQtIG aLD5sQfMS+t/gupfTxXzMgfQePtzMM4SC/0MWvnSKQMo8byp0/j1WPglcOtY S8IASuVquMtnFgucekILUx8GUIOgK7K2NbHwvH014pjbANpb8vO8zJs44Mr1 nva5N4BG2In/7f8TDzY2qd6P//Sj1xIkOdDoRDjxT/2h4mY/2kjHxbNalAjN IVsiYiv9aPeAFV6pPRH4c2/30/3oR5lpizd09hJh4NfKuayefpSNTjz2kHkS IJZynVuZ/ahu9O9hPtlkOGgycDTyYT9q8NCtPx2fAuiax4L7/X70scruMSP+ FHjuLVRrqd6PKrNxS9xAUqAx2fWZ7M1+VMiZM+K1Swq8mRSomhbrRz/U5ibW bqbAtL6tsThDPyplbCY/tpoK5bpMed2lfeg+IRbUmjkDzHI695ML+tAP/S6V aSIZcHjvg/VAdh9qejxbjVkjA2xTeETHk/pQTbWrs5oRGSC0JJ7zK6QPzUwU y//BmwnxPvpZ+8z60Af7uRbuK2SBd35xmgxnH9qy+0XXIj0HLtO92odw9KEl BszXVbtygKIlZ3aDtQ8VSGFR0/udAzI7zadV6frQ8UWZfg7lXNi8OZ7yYJGM 5tbyBzf9ygXLYcYvLxrJKHmYntlfJh806PU/ZziR0VaVACktukLoqWBoAzsy WvSXIGNzohC0bAo3+5+RUbXkwIsZEoXwaACvTv+UjMq5B1q7mBeCSWb27tPb ZFRvOaw+s7MQXqtt657gJaNCBBpDiS9FkPIx4nBoSy/aJBVEXjYtgbOqcsjp +l7UU9/yi7J3CWT9+/GMWNWLyg6mB9UnlkC+uXTdXHEvGnSQKHx+tAQqJal2 Sgm96IqDilumVil0jYl10dj3osfdZNpT7pTBzum2QHvuXtS/4sxnF10CHFYX 4TXn6kUP7madvP+KAGJOIWWPDvaiQ6zqU3eiCWDSqDElz9iLsvXyVWYNEaDD jCxzYL0H7eOq7T2oVwGJ6WNLOW09aA7xZXOeeSXcOr+sPfO6B33g5Ws2G0ME Q03N+SHHHpTA+bv7KUqEN6+KvDpse1BNrZ9KdNNEKGhxyC8x60HVTb36CaLf 4JjVNqP3vR6U8zapf6/2G8xn0RFPCfWgq6prngc2qiBc5Ai/7hAJfVlrFchC rAbPskc+lF4S+tp2Z+BjTzXYIokz5p0klP7N+lPJn9WgpiWc7VRHQnkvL75s 56wBRhd5iYhcEkoeUfwpaF8Drm3Wt7o8SWhLlGJ4wcVasLBqtFIUIqHGyofT a9A60Fln6WgXJKFFnSINMUN1oOimKaZ1ioRGjAlkv1urA/7w0TWjwyRUhWuM t+NsPYxVrLp4/OtGXZUOr316Xw/3mE69+9rTjSoK9Fz2s2oA2Qzn4ktvutFc P0sppctNILIxmNjj2I0q0M6qXdNoAm4FqVB7227UXdMt+ebzJtgd2bUoNe1G dY4W6pWnNQGR3YtH8m43SilnvLLH3Qwyzm8DkdPd6I9kkvV59hZweKuAJiR0 oU/Z+KX+Y24Dm+aPXMO3OlGSmLnagmEXuKo0NZFlOtGF/oQOFe8ueNu65dx1 uROtdOOj1qV2QXb748F6nk50M/4cjuNXF8x280Xnb3agtm1DhgHS3fB0KPe4 b1oHepJ50023tRu05hpOXtzXgSazLGbbr5FAmnVTwK+hDfVvHjHY70iG1bvL zzIq29DCxWLpxWAyZH2cK27Nb0OjNQY8qclkOH5q4gZ7TBta8q/wOT2JDDuX mo0/2bShSYH5n65c6APCg5gvWVxt6O0ESdZb830g8UVOoMuyFf3nyeb/2HkA Lkj58x9la0GDHfb/GWgdhiNmy7CGa0HjiVNBS9PDsPte90nndjPazh39+tje MLT9FP7k870ZDXayDUoRHwGL6O79K8Rm9JLK9Ymo+BFI2jq23fKsGeXsaOrb dBiFw+U5XW9amtBv7T3u+ZfGYUe8x2XCpxGdOKOOH1qhgEneP5PnjPWo96kZ 4cW9aVg/qAcT2jWoJCeo/2Gag0q/mTm2L9/Q6i+cQRJqSzD01Ula+AIBHZx5 yR9Qtwriqy3pPT1F6H8eekUxuE1w9eCLaknPRkXOnC9u5t8G0YYX6b6kRHT7 fbvTF69dwH/PidHrDkIdu3NSvwbswa0MI8V/+zxhYC6hJOcmLaLlZ6UmVOwJ QdsccxdVaREjkxfaOgZeUFvA0FWoQYu48nqZ5pV7Q8Daw8jMR7RIyackX30L Pzi5sZtsa0uLCARSGqpagoF5iv3vw1hahOaK2Be49QH+llc/dFykRRgExdO1 4z4Aq1rhPf81WoTt0LXsZ6sfwC/YxenjFi3CvSJXHJUQAUxCjsJpdHTItVz1 uqXNjxB9X3T4EycdYnPaZupz+ieQtX7cjsrSIaNHcgVomBIA52kdvhVAh1i0 Sbpo6CaAyOC/OckQOmTdo5GckJkAhUP2Hs7v6RCW+QlfWdXPQF1e1v4RTYec fMrk8E0xEehYWB9EZ9Ehd67J9O/4JcHNeDLXzTY6JGsqKcaRKQWW/KQgkQmH 2MrN3oq/lAIbGmI+xvtxyNXoC2v1uikgnFmVyc+BQ2rVv94+nJUCJfqtwRFH cchQBXm3SDUVDov9Nrh1FocwhjEYLAenwY1yj/WJGzjETMZa4BlbJtx9L1Y1 +AqHBAWE2a5LZoLujKnJQ1cckksu/uZqmglTsWGkHg8csv5850EYMRNCd4rW y/1xiFe8/9tSqyxQ40hlvvERhyT8S9rYa8yGvt3tGd18bD6qDQqBq9kQRNCK 9SnCId8jZ98d5MkB6/G7s5mlOERETEzotGMOmJdclJ/+ikMqDYj6qgK5ULWW kMzVjEP6qvubItzzwOC1W6/TBA7ZYt05zJOdB70aCSQVKg7h1j1plN6fByv/ nOW4vuMQoxXj3QrRfPDLd3+UNIdDlvlWLk6MYL63+eDFBg7xq6HvOBxXAOfp CA/pmfFIMj/vVYOtQjgfzb48cQGPaO/0XipiLYIW//v5gxfxCGOPvyg9XxFY LIU+aL+MR2w8lwSzVYog6R1VL+UqHpGiVB36HVMEr46Ec3DJ4RFS/JOVUNli 4FJ7NU1/B4/4OHIsTGoWw/sAbr8cNTxyVa1hVsKsGF4u3d9R08AjcbsilOHQ Yjgw+J+25z08YvF4t/MMpRjuZHcWZz7EIzTHYnOqvEpAj9LHRGOCR4qX1TM4 ojDHXVC8b4pHzJrpUkyySyBQPRdJMsMj7c5WsczkEvBY2u8gaolHPvVLBumc LgVlnqGCfTZ45Hbegm+mZCnoX6wlif2HR/75JnnuqpWCf8nJ7Pu2eMTkCtOr ZKdSUB377B38Ao9cjBg0X2wqhbphSvFXJzwy9eytsfxoKXxi1vSodMYjkTcQ g4jlUmjY8/1X/BKP7K6m60gdKwPRuCv7o17jkWZNZ0U/qzIYq9UxOOmGR96c F5YfciuDBfM3qSuYL9BOyIh8KIPB82hUtTseiSi4JdHztQxk/pxyU/fEIwbs nAI8+8uBO/KDvJAPHmEbebTKzFcO77U8wroxE9M+1/yWKIcFNmGinS8eOSp3 3pCkVw5ZLYPpKX54pJHJRqzKthyuxq6bXfXHIw59Rf+yfMrhFCsNbR3m7ucy 8T455XD5t3x9ewAecbvu+dyuuhweSRTMqwTiERF8o7Q+uRwGolwXazAHxGoM X9sth/rNLpfkIGw/zSMyBQ8QoKosm5ElGI9MXx56ySFIgNUzEc9tMCOtRly/ bhNg6p7x19Nv8cjix/SZAQMC/J1EU19hjns6X1pvT4Dy5sPmzZhVRS/5FvoT 4GLGmT2OEDyyteWolRBLgH30VdY6mNPqKwWC8wmQopRe9BGzVtjeqnMdAVyI RR1dmOn0btaaDBDgdkRJFT4UjxScDXyv+YsAStM+vhKY9dc6DOX2CKCbtsdn gJkVPXhR+FAFKFbgI3wwVwY92OM6WwFkivNICmYLnbhOvHQFbDUgWyhmTv7J +BX1Cvi1qTrXh7l+4bT1uFEFKP/wLZzB/KLCSqbNqQJ4l6fVVjHz+uazEIIq gOGuAbqFufPu+nBKQgWcFV6m38Hswi2Z9b6oAqSCI/k2MQvNur5ya6yAaAPt gwuYB4trlZ8NV4CIq/jgOGY/d4ajDxcrwDJB2r4Ns8TtOz9u0lXCTWOXqSLM VM73ZZc4K4FHk/H8R8xh1D5fHqFKyOrZuPECs1zecW0WuUrou2YgoYp5/pWB 4JZmJaSWGu1wY45RTFmbNq0ENjP+yDlsPZU5ftaSXlVCu1I9QzHmzVHR8KqQ SpCQe6HhhDkl48XT7KRK2DnwyFoCMy2yu+fTUgm0E0kiSdh+FrDId9mNVcKr MdtODcz6A74J+iuVcLnqgdI2Fh+VNuyy1499hS/LjqgMZgspLdbTol8Bpy+N 9mPxxbkveoRD/ivAtETUM8wv4vlf/7L4CrFnWUi+WDzyWpqrDLp8haz9H8VZ MHdK5BxtCPsK0U9y/wvG4lmo/Up5AuErkMTYnFyweKfuKK9rMhKhjJO1iRfL F4DdD0sniSAXbz5hg+VTnHe+eIg4EZQFhefLvPGIDiunfbM+ETzT33yX8MIj LSenVuRKibDnYm41i+XvGaPI96OtRAgNp5Pch9krTeXSawoR3EWLaXlc8YiM WIFtKcs3YGsL85F+g60H4rokbPQNliyZLC5g9WO/78V3Lc7fgFnyNw83Vl+s WqYumId8g2vzf/pxjnhE4J6qTTLhG4wxiqnXYPUo0phr4Sh7FVyfTnVct8Yj rn6Fc/TEKrD4oR0vY4xHhltNgr6QqqDzi8n31qdYfrIfFZL/UQVOVa7IfUM8 shzlZulyEIXjq7RX7j3B6l3m7dlVCxSeHxiQYXqAR07PrK4uMVeDdV0O/okK ll8B7bVVR6ph+tWWQIgS9n1CaeEhvNUwKvHculwRj4zb6F4WvloN5aSbvjvy WL39jdqZPcUsK/BbSgrLL6aQ5dHyamg6csU87TweYan/PbdaUw0ab6w1Pp/F I8zuRt8Z27Hx2nmlP5zGzpuNa8MSlGqQ+E9K4DkfHsFPUuveMtZA/9sBI+pR rL4SrkfJ6NaAh2/aAeo+PLJgMS0bt1MD9y9LPJPCzsd5AY3rRfha2JO0ZI8a xTxecbmZrRZu8jEvLw7hkDmtd2fX+WsheuSTTRgZh8wgUhx3btfCvMLP6JgW HDJ+NGz6T2wtkOR0XTqw87qzWTr4sWwd9LTXlhI9cYhg9diCinIdXIDYDnDD IW/K3e9ev18Hpaz4xG+vcci5tLojRyzrwPQM2SPTHrsfeN9O7Iyog8chzoEK pjjkitzjUvn5OiBl57q4KOGQuOLXE2dj68Hxsv/CGUYcYpVQIb6+1QCFDoue x9/QIVXsgh75uEb4Iui14uJEhxz0DG23YmsE75WlMyN2dEilsbHppEAjvD5l sRpkQYcwn98f1aneCLpljY4Ebez+VGy4k5HSCHKLJD91MTrkZzNDzZO7TXDU LeKE1wQtYrGmrd6U3gwO0497ZiVokRCX6/tNz7WBwvZwYFz2Hrw9MTfEPdEB DBaW2VHWu6D72za1S7wbjv0r9O9V3IYE3l3OPDsSQLl5Zq/QJnSRbd5Ft/YA mxQl8vD0Khz+gn9kxUoG+ZNlf0Vpl+HWrqewsmUfFHj+FQi/MQfB//FrsOT3 g1GKsJeR83fw4u/JfrY4AJU+yXnHdSbhtbvh0761AUhbkM90VJwEu9FFTtge gGtjL7xHJCbBMJLF6yB+EA65M5ObDk2CHLPiw4pjg3BS5nMPfw8F/qyU4xkU B+GTbfjbybsUcKiJf5IcOwguXjRt6znjYGpoyT6kPAR2YsKRPrgRqFdBHs2o DYFS+TbXi5/DICjOlbp2bwjmfvD32XUNwzR9gxTbkyE4B8XL6bHDYJLNa3bD bggO8I1LLEoMg9HmADE3egguRVVyTFgNgeHbW1Zec0MwfYpV7NL0AOgRBBqE 32J9jL1D6guWPpgFzpup74fh6ZHOrq01Mtg3MdbxRA1DuXEzOXyUDEH9C9Uc ycOQcjNOnS6PDIT1cuLv8mFQMis91alJhiOX7pTUTWF9k/t75oPxvdCZ6fDl sfQI2Gbx/GBX6AEktsEzeG4EDN1mHL77d0GrQZzjr6UR6Cr0Z9xn3AVagvaW tzdGgGhyJFJZrgssc3k1WWhGwehklrb4RieEo294g4+MAl3YqHG8SSd8n7qE BiGjwJHG/bZYpQOCRBJ2AyNHob53+pipSBscXnFY/hk7CtJ0pycSWdrgc+nt aZWkUXjC6HNrd64VSuS225hyRsGeeCqfI6sVxu5qxQbWjIJwuV5XyflWuOjI LBU4Pwq6bUuv2y60QN83J+cAhTE4pxYlX4z1181skTRvlcYgmZ7md55EE1Qa lAa+uzMG9suHjtcfa4JE2vXYSJ0xuFz421JquhGsFO2qU6zGsJ4ywlH7dSPQ dDxjqgkfAx+dXcNr2Q0gNGoYu00dg3fKTZ+lT9UDt6iH4N8fY/C+KODxLYZ6 YHf7nEuzMAbcISJBFkt1sH5qHGX4PQYxR4Zp1tA6QI0fTx9hGYeoLrloHqM6 0PqlLXpZfBw2wn6l1mbVgtuOKmrlPQ7hFXa03XdqIO6nr8twwDh02KEXp67U QOVgtaRq6DgEztYlsp+qgd9lV0vOR4/DLw+fteKVarC158+czRuH96cbrp/7 VA3G89vhZsPjcFTHZeFxLwrK4xlmRpcm4FCwbIqK7Dcw65gS6Lk6AVTDKKr9 kW/gS+SZlJeZAD3aWmLbAhFqYyIe8ylNQE/vuyzcZyJIP/C4S9HDHEu+HoYj woXuB1L6ARPwgzkwb4dcCYdq97E9mpgAsQLTE6yfCBAjG2RoPT0Braw4tlln AvBW7C/2+DkBhy9A+o8HBLhQcPhh+toEDPZWa2seJYCgBofmDo4CFuFZ+m0x 5SAneypW6SgFNIMjBJG0MrA/Ji1GRSjgyslzyqC/BK4OuAw+u0GBinpdolNl CexEVHluKFIg6XTsw7wE7F5/QIHMeJsCYfLB3K7mJRDKoPJKTJsC7JdDKj7u FEPGhk6diyUF+hIc8mPOFMMY6cUDrnAK9AYe/HDpYyHw5p2RjoigwNF3cXxv XQvBKGiYhyOKAqdfHuClMyuEWQWFGeY4CrjfEmJErhXCajGH479UCtD3Is00 IwXAGFkQ/r2CAnfVtu94nC0AiUeLHcWTFLgVJFn2KT0XnK8mF16cpgALpc20 1S0XKg/qfMydoUCVozpFRCcXoO2bXvovCnC/aHjtTZ8LqjIhv2I2KHCWxCjy wiwHDHhEmLyYJqGTde6A6CWsb6Ra3rx7aRKU363KjsxmADVEWAGH1b0q1U7t vtoMkJZcgLKrk8D9o1ycLj4D5t/ZSnPLTILfap7JmmYGqMs6X569NQnqZsRP olXpcOiTD6+H3iTkEdsIpM9pEKf2eTfffxKILlZ+Jn4psL5luGMUNAn66n43 NMxSQC2Ff+tIyCTobqUKmd1KgX87qWtvwidBpnA6l4shBQwzcuaU4iehY7yO wyfoCwjiKgcniibBnXmY+0F0MuQSyCXs45Ow4+/ZG9GXCFJZUq4RlEnwKB+X fEFMhMbYRMVjU5MQ/ayWYvslEShuz/v5ZyeBsaFRj2SXCAcV8VtXVidhFyZY TxxIhJckcWm9fVRIY+VXN05NgJtz4TUZF6hw2eKKyM+xWCCNbAWKXqLCwoZH mWVxLOh36N8rEqfCO+G7uwKBseBcIDT19ToVhGs3C25eiYUsp1p8lwIV/G9o BoiFxQA7blVpQ4cKrDv3tu3uRsPwCc1OeXcqqM0sNyxsRUJZN+EDhxcVSCeM s3GkSAj35dWd9KECweJFxoPMSFBZWpryCKLC1oDEZ8KjSCDUhm6jH6kgSXgQ pF39ESIt2wXlcqjgcLa6tiQyAu6VK72RGqLCOs+fw9+tw+HC83yEeZQKGUbb /IJq4cDMx7VveJwKCpGTEVEi4VATNBP2apoKN3vOeR+ffw8X9X3TCEtU+F0w VBhg/R7Y6OtIV/dNwQ3vmzHNr8JgrkIoah/TFJw7H5YsohcGjTbhev0sU5D8 eS+nWi4MXAef/nDkmIKo/CdYOxsG89k0f0u4p0BRVLtdQvAdNBta1PqcmgLN /Wd1F3+FQsqRbn8t/ilwfTRRgysJhcfunw+un50C9bXFk4hiKFyVYBisE5oC r/YLbGZsoXDwp038B9EpYDc8Tf4+EAKL8f1GxhenIGGgfKkqKQRa78mdExef gv//H/U/TFwQJg== "]]}}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwUWHc8V+8Xlz0zPlIoKWSEZBTyueemIiMZUdGQrFAppK8iMyMrKSl7z+w9 HnuPj4+9s1WUGSH9/P66r/fr3HPO+zznfZ7nPveYyWNdM0oKCgo5WgqK/z+b BrI8wsMHkYiCtZsLXawSw7uKY+9CB9HJ8LctY3JxSupXWpF/0CDyOUTkW3we r9RWPbv9ymsQGXA+aalUTlLqSjtib/5kEFUFhZy14shU4jA7yWFsM4iK+Xej JziylK4dVci+abHn/9ZWg/1ztlLfu2sLmrcHUY2glu25jVyloZdvTGXUBlF+ UxrndHGx0phZzQi33CCKwprWGLirlKa0/lyjODaIQvxTrtUs1ynNn5Vqn2Ue RJRrZPRMoVVpgd/iUvvmALqs1BRrlNml9Oi9u1vVzwEk+L2KVVigR2mJIaoi b3oADUuHMJ791af01KXkT9LQAIo4q/tH7MiQ0vpKj9wn0gCaLbiJi5eOKj23 WHoS0DCA3lreqgz+/lVpa5jpi2v5APqb7CBoD1NKL7WFv9vlDqB0I0pJjZkZ pd065RMWKQNI/xqn48TsvJKrwh0Tw6gB9PzifL6N9oIS1Zf/oq6EDiB65jsJ oweXlC5aeiupBg2gBTFza3GRZaXXx98P4X4D6FzclZuy6itK9GHZXLKuA+jh 079azE1rSmo6lfkSLwbQeaYTb26e+K3kx9SmK/xsAF3kUsq49XlDqbV+cIn/ yQBihI0AH5E/Ssyuc4E8NgOokolLy6JzS+mK4ro4p8UA8k4VLfv8dkcpcI2y lcVkAE0lBw5O2u4qsT/go9t3YwAlCp2iPaC6j3jCi+1JoO4AUvPbnwlulESl WMph3it79WvLytzroiLqVKxdTFUdQEz2q/iOPA3RfHD2yxnlAVQ7LhWTWUJL fLk+cKhOaW/9SVc3JfTpiW/ZW911zg6g/X+pkvVYGInlalkGNuJ72Cp6x2eY hUg2i636c2KPf8nxywvrrMQ5t3di3scG0KFKZQsSDztxJ9IrlPPwAKpwVuz7 qMVB5Ch13I3lGkA6y6fb0sIIRJG+B5an2AdQni7v1+cbnETiihG5nGkAtQwf tg58zEW0FMOT+ikGECed3U/lLG6ii4o0m9l2P3rKtuLt4cRLfGci6LSy3o8k P71J0jU7Qkxx4Zp+tdSPpui2N7ueHCVWfqLXYvnRj6qYt7MFuviJPYVbRZ9m +lFKdW1q0M4x4jfywjGRr/1oZc4+xVFJgMjJ1LWu3NuP4jsoXun/EyKKCdfe JXX2o9syL1b1vISJcKGg+XZLP2K7TVM3KSRKvHY3WeZHXT/y/nhVqHlSjGj1 IjzyOepHHVSyZxcqxImuYW/oaEv70TLZdUW7RJL4Ps/5ybv8fvRh5g9PkLUU serHvUtfUvtRi/eIcly1NLGP7lrWuYR+1FTAGnSNSZb4Q0CFuzmqHzmE9cip WcsRKXB5D4PwfpTPY39qa/IMkeuW2OLUu37EfOQb65adPFH8+eHrTwL38rMw h68fVSSeD91fvevTj7JHpswK5s8RbdpWQrld+lEOJ62c4gAQ3eend5Oe96Oo qMuHPuw7Twyj7reUtetHidx252NElYkZ/M3k6of9yGhybMPO7AKxRqlM6apl P1rIs6i5XXiR2H8jM2nEpB8NVo2HoCMqxAX7aDar2/0o/Z00P0ekKvFgpse0 p24/mnV9NDT7TZ0o3uygxXGlH72vkcscLNUkKs9YFEer9iOmnU9jsWlaxOv7 DI9LKO/x/6ydE3Nbm2hzRNO/VKkfZb2Qc33oqEN0V8B+q57tR5UO9FJD8brE MH0p497Te/xm9A8fntYj1gRwyi6d6EcCDxOrbiQaEAdSaaOcj+3FM38ZLiR6 g7hYv0nHdLgfpVbZRD9quEmknPz+5CPXnj5YNpMGXIyIh3ZHhoXY+1F3qMVx gWu3iZI8nZfymPqRmON4o+jlu8QLZ6qzcNp+9B+4i9h9MSY+epToYbTdh8Za q2M9N02IvLtaNy797kP94goC/oKmxKaATfFTy32ooGpQpcnEjOhwJG4f90If WjkWFaSVb048nqnRRznXh6jpjuVd5LEkdiqtpy1M9CHekdDXE+8fEF+2Rb3q G+lDF7c2Nx+KWBP7fyyLpJH7kEXs1bNDYY+Ini8+/33X3ockD/Ju95+zJUoz XSI7N/UhvdHQ1tOKT4j+Yh9f6FT2IdHXplzJZnZEhdLz2udK+tCBfGWFyFB7 4qzaD0Gh/D4U+bvsQEmvAxF/gHVspvahk/e97QpCnhMXN+fiJhP60IPtrcE5 NifiJ5+3jm3RfYjTqu39TOIL4lryNH/M+z5kNsFdnc79ihh7NnDdN7gP7X4+ q5zp7ErUajzbYvemD/3yia3peulGTJ31s1N160OC7a/nTVI9iAbPZC+ffrlX /8FKyugBTyI17dhhXsc+xJeZ7dvE/Zp4R+h0w0+bPsRsWr7I0+dDZCoY+jRg 0Ydq2YizXnp+xOKLno9rTPoQUZakaDr3hshh2n/ow40+FGyQQ1d+PYiIVl0X X+n1oczZS8vun4OJNh5iNQ+0+tDhh2L/pMPfEhvinK2JF/tQ2PWp5T/V74h2 0sK4MPQhRdcr8l0/Q4n8NSROdsU+RPH1fY6cxAfiiwmByulTfWhjvnRf8eRH osiT9pAOsT500IrVlurWJ2IfhaNFsVAfitM4NCr/4zNRir+FzZ93r3/zw5q2 2tHE0Sy7GQeuPqRwOtD1XWgM0Q+OlN5l70PHXIN9wwNjidN3bO/L0PWh4eUZ xeYv8cS3P7nlj1D2oWZn08KYvgQi5lLLTPe3F0W6aqBXrEnE8EiuwqGVXhTI tEqrUJxCVJGo8qtb7EWj12+dEBFLI66VP7j7Zb4X2VM1ENRz0olaI+X07mO9 6NbjyPVNqizitrX5qPVgL2IuIiwxP8gmpmyz5ur39KIDA06ZGrdziJS8941E W3r35iX471XbPGJWGrMUob4X7TuLkzOD84m3FAup/6JeBMd2Q6yrC4hFNxm+ kAp6UcSH++ZF14uJ5hkdLD3Zvch7VsTzX1EJkfPfu4f96b3onMuHjJaTZUTb BD6JsdheRHn84X0Z3Uoi38aU/0REL7o7NHYggKqK2K6WujAd1otshEq2mb5X EcV+yWT8COhFD2f5nnSM1hAHzv9h+uXTi+6s3Xzy30It0Tu00nrFoxflr0pW /2OoJ04rqJ38818vksj8PDRo30gM8d//Zse+FxmHnSifrW0i4uPd3/897kW+ Nz8pKQu1ECM976TRmveiJZvcleHj7UTNfgFGxnu9yGTl8o8z1R3ELdFvD1hu 9aKTj+tyWc6RiAaddqKcur2IjurlQUlOMpH6uILvwSu9KNx60FSYs5uYZ787 z3O5F2meOBSyc6yHyMbjm3IM60UvOorNZaz6iJU2WvRCCr3orFWFglhSP/Eh IliKyPYiKiL3RZHVAWKLaZTwKbFedJwkqDFSO0x8XnTfW1qoFzVMlXu7qY0S TzCKzsnx96I6Z6cclukxokdWXpISVy9qZLn1TkhygihN+R8tzt6L6OV/hovz TRK/XsPMLzD3IpovbKHUvFNEpa0mIXXKPb7BAiUjxBnid81Aryt/e5C18H+1 V8xmieHRejPamz3o4pSxydOIOeLvi2MJ13/2IPmTTz8KEL8TE8LiqY2+9aCH eVWlT1J+EPW+W5reme5BiYuNHzdOLBKzg1YFzIZ60GzsvrV+qSXincliD8ve HhTaWdZDybZMZJZzmbIm9aBzh397L24tEx8M0cc/behB/I9zP9r/XiUekuig fFbdg7hv7bbfpl8nNrx6Z/JfeQ9CQkoasSK/iceF+I675vagf5x6ilJhm0SS 45SbR2YP6pjO5mab+0N81ZIy8TqlB1HLrDLYX94mjjyWiQ2I2uPL0qFmemGX 6FezSfE2vGdPrxuew2P/iAoHKo1DQ3vQTtHaZF8jBfah9DL/Z78epNeWKTP5 iRK7yLLfNcqrBy07hTB/+UCFrdztHo913as3jsPsRTQ1dpXmTnTKsx40z6Y4 UD1Ei5FL6FrhSQ+ySPM2txOlx649yvndZ92D+nRrrw34MWCG/dRaNPd6EFPx E9dRX2Zs5M2X/yKMehDnys2YHNH92F38RqKMQQ+KLZw0jPvKipmmpu/c0+hB +pHfHj5rY8fmbuuL/LnUgwxfiWQ5d3BgVhz/9ILxHpQyWTjSNEbAHr/QTa+U 60HMPN3mlyW4sJVTO336Uj1oQ4TQKPTwIGY/nUi5KNaDzhickvxUeQhzuvLn Ji9/Dwob5qvm/sSL7eyL98rl6UGeGgd6JU4cwV4VauaoHdjTR501y0IjH+Z5 NIb+OWMPat2hO+Incgyj61GTZaXZs0uV/3Q+chzz81m9m/SvG03wXtKoPyqA BS2rFPWsdaPP24HfxK4KYRxJS5PWv7qRtU4JXafzCSzU8NN+qu/dyHCZ8nZ3 uTD2qXbR7PR4N5qPuKf34rEYdvh52NumwW7UDYkHt6dPYtHi5yvu9nSjUZLg q9BHEljC+1DOwOZuZEF1ZufkPSlMWB3Dheq6kbS/8qP7qqextN056/LKbjSZ pCC3qCCNZVmcq/2e142sbjw6/FZFFpM+PPPT7Us3umD5jJPFRA7LJwXycKd2 o+lz2zPR/mewUoXJJ6pR3WirJ4tXlkMBU/r5JnLsYzeiCR7hm36kiKE4uWaH d92IXuuVAsPYOayOyZc/wacbjYiE57zZwDDVKmnNcx7dSOROI2zp4FiL/Ygj 2bkbna+MVXKQOY91jp7qpLDrRh92zh97z3MB0w0Z3Ap72I3otn1aHI9dxHpU PE6cstxbv7WZi0fOXMKGsvqcb9/uRv/5Htd5/UYVu2Xqmrp2vRupVCrLt7Zf xsYPifW+0e1GCw+8Hfv41bFpN2fxUtVu9LJ9hJi1o4lZnBG+oaPcjRz2qb+6 6q2Fff9O8phX6kYceIq6JEEb+6UnOMwl3Y0OsRzOXCHrYE/pO2i/iO/x75Do V6/TxdbKHaUvCXejKV71L/tr9LAtoVZfu8Pd6DfXEb9bM/oYp5Y4v8XBbsRg stx3cNMAO/UsoNCQoxsdo9nxWTh4AzNtuDp1nr4b2Wp0k/XdDDGXn9n/yVF1 IwnzplW5NiPsIxcHm+guGVF/uyzaeOI21m7eo8S2d3fkECMprNEaY/OBct1U v8hIyy42fl+HMUZZ9OHBxjcy8rs2kPs06h52hu7mh7FxMjqtcPu10u37mPap UnHyEBmlN9KzuGqaYtbXeWvre/f8B9XF/qqYYTHJo78yWsnInte/Lf+uBVba ib2OaSCjJ7mh52lfWWK9G9GHQ6vJ6M9HvwyU/gBjvGyi9qKIjKbT/7CNnbLB BG1rxx/lktHI8Yv8gT4PMeyj4DOTTDIyW1KdVVp+hNnNz8apxZNR6rlXvmjL Fgtku6xAjCIjdfaTr680P8FS5FM7pcLJaCxHpOl+7FNsxMd652AQGV1q5j45 +dge+53dFsLkR0ZG++60Sls4YOyDEqL/PMlopjLrwOiDZ5iK6JL+rNMennEu uPzuOWaso7Mw6EBGrpSTgkfK/sNe/Jfr3m5LRvQRZt+eLDlh2c32WfnmZFTp zVtE89oZa1nuvZRyj4zosFsLvnMu2DT32ZHPt8iInLab4S/uinFb/aH30N27 uyc8eRFe5IbJhhhGP7tCRgpWFwKi/NwxrdIyOavLZMR2pshV1MIDc2d0MdHB yGh9lFfqFeaFRUiPb15UIKOrE923xRVfY0WGeJC8LBlRBPNmCZ73xhbSKMuP iu3ZS2+XLz/1xWi77+sShMgo5hJRvSvKDzu2XTdPy09GzOunWDgG3mAGGt4H fh4go5d/VMWYHQIxW7v59Ak2MvL+uxb6bzAI8/usptzLREZHEj9amSYHY+gH 0+PyfWTEaCjvekUuBBsiPKTJ3ulCCmDyyY/hHbZ2ruNz/EYX4mbwlxace4eJ +Ac3+S12IVnqGGOGqveYcv7yHZf5LrQV8KdfovwDdntEd/3JVBc6pECeMa4N w0LEDxy/OdiFjHpL1vrWwjG3QkPPr91daPHP3FqZwmfMFo+ZtejoQiFhZ87s C4zArlw7mf6stgtJ9Old9bCIxpTGbFl2K7qQcoVDx1HHGEzMsvCxV3EXUlr8 N5F5IRajf3leNjRzz7/I8RDDVhz2m8b7A29KFzJ/UvSlZDoemwlq24yL60Iy z9Wd7w0lYDXx1ytywrpQwnX0+/18EpYjEXlUIaQL+bxROSpFmYLFFE26Vfl3 of0Up5dHRFIx59aHKp1uXYg2O6u8NTods9HPSzF42YVEL/ZEai5nYIbjm4xj z7rQt595rnd0v2Dyqx6dC9ZdyOKutyVFfDZ2wrn5tL15F6q8EE6geZiDHaBj Dd027kKep6ifa+C52ArPpxuMBl3I7uXZmQvU+dhEwnjpW+29eM8kTXrW8zGS pNARbo0udK89fPT+SgGWqZw9IYzvxeML4ni6vxiLaFu/kKXYhfgZbfdvSJZg fgbnks7IdaGZbeY/3rdKMUurBqtLYl3o0rC256GJcsxgjam9TbALkS72LGsq VGKXXHROXTvahbiIz0w3YhB2PGRk1YSzC6mVCz/I1q7G2A8fN/i+f+/9RO3/ 6o/UYBRJFsVPGPbiHcD/UKzVYKMlKy9dd0lo2xtbdK2ow9ouyI/T/SGhiie+ 8Z9y6rHSdufzQasklJJ2L9YruwH7OEFPGzVPQtz5Iv+lk5owXYajQWVkEjof r3ZRJ6UdO//OdFm5nYQsK6qElyk6MakjaXotjSTUdWZ/u7YsCWM5LXdosJyE uIzxiK95XdhOqZOTcREJPRuTSrngSsa+X6wamcvZiy97SPi1fjfWdEMj9ncS Cd1hFZcXPtyLFU4GU7nEktAcTaaI1v4+LNGmz4wmgoT2n1p6O8PYj7m73hPj fEtCnQ7ubgJCgxgxxTHv9AsSqlRkaab7MYqJrw/EkB1I6Fr+tIf92XHssLJi oJ0tCfmYxlSMX/6K7QzvWBaYkVBEdukhrpIJbEHkjoGBMQl17P5qK385iY04 oAsbhnv5t7acXC5PYeWs7nwK2iQ08MglMOrPNJZxa4ppSJ2EDu/ny0obn8Ei Ui/+cbpE2jv/+59LdM5iLy/Q9ZQrkpDF42mrg23zmJKjvy8uREJU+i8etV9e xMTrFp9NHCUhfI7BpcnrJ3aY/aqpOw8JFR6JDYnq/IXtpLFDHSsJkS6nzv28 tIwtbDwVN2MkoYIfc7Op/5axkYs93LQ0JKR1oMVyvGoFe1Yh8S1orRM5NrN+ njRcwwyuL9V2fetED0lrJhqy69iZ5dwowngncjWuYzLj+o2tC8pfC2vuRBsy edsUvzcwe39lFBXViU4Y0yzOiO9g107QfPr6rhNZRFm4tun/xWSrGu2P+3Yi FT96opnfLra6qimWZNeJ1hqe7sr7UwA5gJVm3rITWZnrKTxQ2Ae5wuRx0Tud qKzwzpG7i/vgqdH195mXO5FEmcdMtBUV6K5z2/4idqL3cl89nspSg3TQiPpp mU6UnKtozkNLAys19ygKjnSiXm8OBc4aWngiZmNdvtKBrF6q6dokMoJ2naTK 7lwHeqiUHBRayARSd5b58dEOFNKgdFSSzAxLb5/11TZ2INWjkieVxFiBdFIh h6aiA/lLskOlDBtk12+/Uc3tQLeV9ajuD7CB7R/X860RHYi62b8yXJYDtN9d OMwS0oFY1G4fi1ngACkJ2g0t7w405rnKGZpOgF/GbzLITzqQ012O2AtwAB41 vT84pNKBDm1GzcjUHwJntcbGHqUO9G78PIN4Ojf4t2w6dkp3IFZuK4MD4TyQ 3mY0UMfXgUQfO8w1BByG0isBPoizA5Hs3tHxvD8CLR2V8qWMHegUp4ywfSIf zJOOhWf9bkdp+rX2ck/4YUNHTy1toR1dyValItMdA9puzz8Jk+1oP7VkRGD8 MRDsnbv5qaMdCcamf2H/cRzuDWbyeCW1I8rEL7g4EgJbw/GWVxHtKLZ9sSTT 4wS4DrO9cAppR28ZrwTVawlD1Kjd8GOXdqRSENQV+EcEMu8kvrGy37Nzptpl DYpC+XjfOTOrdvQsmGXlYrUYDE0oRBgatCMpp6OAksXhm4m1pr5mO/rx2aeT P1kCNqcidq4qtyMty3f9S18k4eDsv1uXJNsR2zlDTgcbKbj2vf6IFG07Epdo INN3SsN96412sZ029K7uCpW+vQw8XRBxEVppQ4rHHndRHJWFtz/fjPGMtaFQ sQsYv5ccxDyuCDzQ04baIpb0f+BnIHvpJ8bW0obcFbuZ6ynPQseKTjRNYRta DAjgvRcuD6N2HlcpMtrQyPvh416PFGBhLf/fVmwb8n18R+GFuiIwbRw0Xgpo Q7Wqi2eyDyrB5e1R/mGzNuS0itmk0uJw/SVrV69RGwrMSXrnG4SD+V/cjaTT hjJdhM+UHD4PXv/iJ+qJbShN41uE70VlCHXtfVsl04YO9WgsPRxXhoR9dMpl om3o5nW6eZFXF6CGyiou+0AbEvLh5c5vvwhdnp9105na0JmjkjadLy/BV5p2 yqR9bcjHcSPu+mkV2KWTuv95sRWJ7aiLaKerwjnm3wKv61tRoyD5is+cOqxo L1mnlLaiFzmhR9sGNSDt/fe8lqxWpGL03ydCjybwHB2/wPqpFemuP/dPn9AC 8v3BN6eDWtF/o55Or9avgl9Kd7eeZyuqWTvCdMpXG7ZON93/+KgVXVpzenwy Xwdyn9Wkl95vRSdcPo7u09EFq7Ly1ZEbragsg+HO0oouDF7M8Th2oRXZ2lJG 5qlcg+Lrn+LTDraimAXLKhPp62AbEfqjjXnPfnFO033nOohMBMr82teKjHfp dQntNyDMyqNWZqEFeehe1b7ibghaWc5MBhMtKKKTrG1kYQS0a456z/takMB5 gfkEvVvwzNlmqryqBS35sX6rVb4DkjXmJ8cL9uwl9NYMKndhlvae3b70FvTV O8CkQMQY9IP1qVTetyDrwNW2YvweyMZjAp0PWhDN4YxzlUn3YWFO3nr5Tgvq /8Htf17TFBLEZfII11pQMLvRs4HfpkAoFL5wA2tBs0G8l3qMzKFl69gbJ5kW 1OGswO7FZQHucLg7QqQFyQn7aU/0WcBKE9v9CY4W9Gwk7CP24AGksTClU9G3 IGpDtTvvzlmBiS7NqtDfZjQaOc57jtMayMN/3K3mmtHQfUXPM4M2kPNzMm61 bM/uLsHjamQLljKj3w/kNKN1iiwtz6+2wP+8X1o+qRnZyPVU2z14AsH72mpe BjejGJ+BOFfvp2DLWTBJY9aMlJoSrtts2IPIzSwxEcNm1FN65sLXKAf4Gpn6 VP1qM7p2dVVEVOMZXBWOogxSaEYc8zlU5bmOIKnoffzQ/mbUSfzBHl3tBAfM l2CVqhmFjT6+fdXrBey8vXm7408TIsh21ghrvYTWbyc/es40oZ6ZY8ydv5zB MpzEslzehBRESTOqZa5wtV7hZFtuE7Id9DXyk3GDM8txl5NTmlDk4xONc1/c gFrNweN2aBNyWpP7TMxyh9hN7j/N1k0oa0tszHbAE3wEPbgS7zWh7cp74gnW XmCrvSDjer0JUSc3+wRTvgYspfLRmQtNKCIr7+/3c94wdP3+dBxPE1K8/uTe 4XFfqPZo2+fC1oS+rWQP+oX4QUqW3NGbtE1I6TEWZ6X+Bhzp6A1ZVxrRRc/g wslGf+Asyuh80dyIzg+9vhC0EwTbkwcWDVAjYhF9WXjKOhgm979ilC5oRApX g86VDQVDjrnOpfmYRtRt+unL7+q3oMX1u/Ta80aU9OTdi4TcdyCnfHfg1KNG tHjILFTjTCgcftS0zmjaiMz2L0qyV4TC9/pPUtVXG9HG4my8Ys978HaAJAnh RtQTol7+TewjPIpNqaU/0oi+VCN+8+aPYNDOPjHF0YhUYi8wB1qHg6DQNO+n 3QZ0I/J+hnjZJ6jq8XlL29eABos+ULf5RkIyxcqXidYGVPv2gkOzahQEihu1 lVc3oPYzx9kJjNFw21OCzi6zAdGduZa4dCUGtmTIL8c9G9Bx+gDeh9uxMD3z NHvRqQG18HToh1jFQXsYYXrbtgFVOzvfPzoSBzHb1zQO3W5ADneSf0Q1xINq bT+3jlwDyvx9M82lNBGkHJ5fuXuyAT2WRgbiWBLwCHO7PTzWgLyd7A/H1SXB Tz/DeV+WBnTkaOFN7qFkCNUdLayZqUcZ9S9UUkTSwIXa5TtpuB4tz3adpqtL A8tCPr7xrnp01aUvJtwkHc7xGHttV9Sjxh+fxUNSM2ByYlJP9kM9sn7MidsY Z8GpJ/NLiSr16KeCV344yoVDAr6C+Ur1KOzNn4THYnlA2St6o0a6HrkINT+7 FZYHffLWaIyvHq3c3DGMdMyHlxQ/Aw5u1KEWi9KePN1CMM8NrBZarEM/CE7k s52FoG16al1mqg4xsRg85NEqAoEm21vanXVIJ19c8pheMbQErYr5JtchNvfj 4sovSiH/fOidsMg6dNSXuqCRqQwiV2VDEt/VoetvX9f8iSoD2+vP/lS/qkO1 1t9P+beXw8Gjfxq3rtchd87sLX9NBKZfdk1t6OvQgajxnOyHNfBbwFIq7m8t Yrz8IIjQVwM+4V3b/Su1SE5RX84Wr4VMz4SQC6O1CCWlRMjy1sFvQ/Uqntxa 9Gr9xp2Kb/XgQ8p7o51ci/6x7QuvNmkAHpUj119H1CI+tithO6MNAKeXFpdf 16LI4v9Mzgw3gg/dB95mo1o046f2/uNyM/A4/5vd1a5FW9aUS6edWyBjxTJX VqUWRddHXVdmaoWu0XNqMVK1qPqi75Vvkm3Akz/xzJGmFrkPdzMpvO+ADGMJ slBWDSJrOxvGr3QB1vch0iihBoUdnVjg1yIDSYPiwdvwGnTpq8PGkXQyrJ/p /rfjUYOuHrs7lvygGzCW/yR6btQgY2/p4w5/eoDkPrnJoFWDmEeN31ve6wWT TY06uFCDOm9IPt5t6QXvKT6jdIkatJrs2X08vg9IJXU+7pR79tjLIU0WA2By SvJa8UY1msr78FBtdADWEsKO/lyoRuNxo15B1waBO9iq8GZ/NbpnaJ358vIQ mJizTUtlVKOzV0YadVVGYI3jFozrV6PIQpb8Dq2vUPhY9mu7RjXKpGkllb/7 Co5tzG7l56vRh8+d/AGDX2HLq6ImXKIapbXhxUMWE7DvD5/KNZpqVB+f9kI/ aBL2j09oNudXocMapNxDTDNAOle6WJRWhcYktiS+3pmBtx9DApNiqlDwyf0a sXkzwKl7geThX4XYXSv9DhjPAm99gh5mWoVGM3KC5+vmQCTdwjCPUIUMc2d/ yKLv8J0O345lqEKuhnLkYwI/wKBZSv7YP4QSbzmGcvv8gNtKIWXDfQi59WiO iusvgNVx/Rrt1wiFUGzX/d5eBK+fQ52KM5WoW2wqTbNyCUpfz37fH1+B3ET8 2n8lrkFgo8itcwEVqP/APfrIn2twn9663cKxAtm3fEv9dnYdmP1+ZVVpVCBL aTf9u23rcCdg0/7pWjnSPifmlbnzGyhDGf/1XipHD+auxys5/QH1WElC5Hwp umh4z5x/chcGy56dOylZjDas0wVMPWjwXHqRwYpDxYhLYPn9swIa3F9/8Jk2 VTF6YTmaEjlHg2O/zuU6DBShpCHe1wKatHjC8X2iVe5FaP7o2NbEATrc1vcN l35/ITJQNe8rTaPHaa/HLLu4FiDtIbvC2HYm/Gu8ThC7dQHi8xs6uu8fE16y RCmRoF+AOrxPNSlJMeM2fmaWzWIFqOrpea7zIcx4V4XYOKE3H1mcOH9c9RoL HiFY0JYimo+EbnE3v+3Yj8usNCeTyblodQ3XPt3Ihtuw3Fzqq8xFT/NTZ+4M seEJIvPyw2m5yBIL/HVvkQ3nvEvbMuWei5p2rG7PcLDja63KC2vSuYjzREFz mxE7XphYJnXwXQ7K2Zdh+WKaHf9Zpf4f76scZFms9zJljR0/MTJYfdQ6BxX4 /Q6OpubAwzg2dUUu5KB+6tqD3wQ48OevZB0UVrPRNo+4a/9dDlzhZmaJkV42 4iu6/DGsjQN/aq9EaQzZSOs6wYN7kANPC2pVNz2ZjVxP2jYbzXDgPA3fhm2o slHN/MTVo3858HUzzZ1t8ywk/e26YKgoATePsAqghix0/LpMGaMsAe8j+/Cx HMxCJ588QESMgBdCPc7X+AWN2BzS7Nch4M+5MS9c+AuKvVZf2uZAwOev3uJS +5eJTJDrIo8LAb/x2ilZpz8TRWFJ2sdfE3CF1cJmE+9MdIWu+rzRewKeJtpr aH03E7VcOizoH0HAeYxXf9idzURxPKXj9vEEfKvt1H6vuQx04H5Qpk02Abei 0ooOQBkoikwv8aKQgA8r2Eh9CMtAOdF6xng5Ade09auOepyBHtTsoy2vJuDl SSm6yaoZKFB7eHyxgYCLjzZMZR3NQCpcU7m9rQQ8gjBjX7yRjuxXDFXtSATc 2fVYWHNyOjp7+fdMxwABD6438bZ9mY4midUnhkYIeBxjguNBnXS0m3JIIuAr AS+4OmNRKZSO9PrMGuemCHhT6IkbZltpaJXmS9O32T1+gxaXmTvTkM+ND/Tv vhHwn3yp8nnxaahA3+L+1A8CTmH6XcTweRqiY2IrHVok4ITUk9z7rqShA7Ui K89/EfATP20YUo7t+V9bX69YIuDyMl/+aP1ORVn0FvmpywRc4/mvb+stqciO m++Y0goBv1MhNRQRnYqcGqxkHfbwE8qnLRfsU9GlfVo/ru1hT9W80u+XU9GN 7P9Uh/f8P/ivpb09koqIvtpX6fdwapfcZ/mVFOTmNsMyspe/nMvxzXhDCsro 2wox+EnAO4yKX7z+nILMMylWHRcI+ETMH2sJ2xQ0okpQxb8T8LUZxVs9F1NQ TvdmRtYcAac7+VLzBXcKyuvkU22Y3uuvbYXS8Z/JKJ0hTMlzYq8fBbvizTXJ KEOWs+TbKAGHLThiG5aM4NDswu9BAq4LbiwHbZLR4o115oxeAm7qWfO3Ak9G sUOVugxdBNyxmeqn6YFk5FuhtbO/jYD77b80xvQ9CS2vK2pW7PU7Uu91R25l Ehp/FenLuaeH7I+NlTffJSH2U/spDpQR8N7j6tHJSkloJKthhOPLnn4t3gRp sSehNs1nS2zJe/rLaHu1PpOItMLXwkqiCTj/2avGF4ISUb+GggRzMAGXeRms /f1+InIvlPxR6E3AVaq78LfyiWhkCBtleUXArTWuHRufSEC5Jz+K19gQcJfg 9+yvCxOQdGfRC/77e/rq7dsn8SYB6Wr4TYrf3JuvuzcnnWQT0GwwotO9SMD3 2d+J5/KORxFkmX2jXAScsyT6XYVRPHphT6Ncxrinj92vHqZS8chJaJpfc5cD 1/S5b5o7GIeUi4Mu+Ezv7R8RlkJa4nEo/drcl5eZHLhE/dNkr64YdARdLF8/ zYHvJj1eZE2NQfv5abgfH+fAO3xsZD65xqASEeLJLA4O/JGmOfpyKgYZb1AK vl5hx+8m533J4o1GBZuWKC6LHTetc9t/LTQCVbmVwVl+dvzR7pGOCK8wFGnJ 5wZVrPj+moOGObJhaMyG/2TZe1Y8y4t9tn7qA1qiOym4bsWKLzHT7P48/wFx 9vV+TuNkxe14FyTO74ai72ObC2pm+/Hn8qUBM89C0IHuRax9hxmnnsn4dIvk hzZrVok2bIx4Z5L4qX/8fsjxmpfn/AgD/skyozb2iS/S/1tLqZ/KgEstpC/M cvigsUjDl7TKDLjRahr2RN8LPY829dpnR4/fp9KtZyp4hWJh+d9ODy3+8r/Q tPKQ+6hjnW2fXiIVnuL6bkel1xiNBX29ft2OCk9iFYqMO3ULbYse/ex+ngrX Ez8206qgg5JjflrrjVHilx98Ovm6URquHW4Io+KhxDsIL+SiLlpCLv2HmYJP FLhKismlXVo3CG7wqWh7uw3XXltdEctzg+XJfa4fidtgYvpU3+CuO0h72Af8 /LYFzvzuZl+KPEDFndUAu7gF+R9jve5YvobFV0P9b/5tgoDv1/rK5jegXefz qODtb5CymG//7uAPwTEPC6NVfgN2aamX63gARC6bZx7fWQfDfRSzj5wCYUk+ eHjNch2ay1k9gt4HQ8iGu2u/2hpQyJ2KB5V34KFv6jwhsgJ0gjLJ+hHvwFeR IOk1twz7CWfTrVfewYcKFaGGpGU4vIzlhUWFgv+j9eGjwstwNlOr9tfv96Cj xndH6tQSPBJ6NBWd/BEqs1+sy5csgAPn07mCvx9hNoi6mVZ9AV5SPfvRqhcO ZQpb1PQjP8Bvwnl14184yFtr7I+l+gGJkQFU2jc+g6Z3uRT7vW8wciBTgIIh CuK3De9O6c2CZavCy6s3o6D22hXzwL8zsOba0BOVGgVump47MikzwLQw7kVU j4aNvOzWBxQzcOQeg33FpRjYbLXRNSqfAs2zSn1br2Ph8lHRQr57E8AR4u5+ PCsWut5fj+vknoCBhSZJ9f5YoDUw+8+0+yuYxul7hwvHQdA56mgZta/wguWx vHxTHCiEGjM+cxmDtKnYTw4MCfC3ZcRzJ2kIbLF5lcjTCXDG/kK8vswQnAmX XK27mQARO/XJ56sHoUarTIMzLQEw9xdBdRMDMFjSs5OrnggxpwY9OOX6IYqT N3XoaSIMPiCExrf3genje/qUnxOBWsw0NdWiD5YEf2bq/EiEr6qrPcwxvUAf THd36U0S2Eu/SW071gMd368wHcpPggkqgllOfTeEXgotgpEkCK0k/Vuy6gb+ bX62IPFkSBbjq3taQoaz5orVEu3JQBrxMuIz7wJzpYcC1vtTYdbJ/B3hdzv4 +QTbrimkgnT28ec/brZDZk9ehbNZKnTybg4+rmqDNZut68HlqcArdSvH6H0r uEd6+xdYpcGvvz9Od91uhqRvaYPYhzQQolhR5utrgma5jhNN1WlwlXmCr0e7 Cdg6OKuHDqVDJ3p27uaVRojajV3/15AOR0U3dqbv1UONer2y70o6WJg30IQu 1MHMh/kgDr4MGG/cVLL+rw7ET50SE3LIgBt8tmtPw2uh9G75HXWBTHj0O4qB baUaeqv6GkNffQFCxrD98t8K2GTe4uRL/wIne8M/KOtUwOGbR0yS+77AHHWS 1WZyOZgs398pkcgClsmDPUZ3y2Dp2LLU+HAWUJ13pAtYKwbGs4yQT5UN/AK1 AoH3iuHw6OeZ59zZIPPrwZhfVxGAKJKmvJQNibiixqXSQnhdTdPOGZENmeGQ ZZmZDx8twuwGc7JB3fvg4yWpfEhjEeWJasyGp/7zOYSiPGi/qWkhvJoN3vxT Jv9acoFzJWSfonoOlETd7ZBjy4G44/xn7m7mwFdzv65OlgzQ3+o+ncucC3JD GqtND9KBnuwtQXMsF8IXz65LNqfBI7dfgulquRCHSOK0Iamg+LWSsPEpF0Sa FNc11ZNhsegpq3pWLvzr1JA4WJUEMUEnmCJrc+FZ35uKEfkkoIVAygsLuXC9 5NIfQZlE6Iq8vRxIzINLX2PsldXiwdOBfXFCJw8EaskRLr1xcOZK/byseR4Q PZnu6pjG7ele/OtQYB6E8EtR+PvGgqXRTseJr3kg3sg5Kj0ZDbwy2S3/reXB 8+sTgeHHoqGD0bShjT4f8nHrRy/NokC2tLXi6el8kDSwkjHbigAK7s8Zle75 cD8TuxJh8AnylrRS2MPyocxuVr+sKBzMmygTTNPzoSR4pqb8cDi0OVp9ZuzJ h+5aeS/+lTD42KfgZyBUAPGHUUVI03vQ+LLolapQANm+B4K/qbyHXa9Yt50r BWAYQbcR1RQKpnIM/8U9KwCb85bD33rfgVTogMXPxgJIZhtWs+UKgSlr//vn Rwrg8XXbOtEvb+HDBfxu6FIBzCwZIfLlt7CzkmygyF0IXEXBb6tfB0NWi5Fu gEQh4JtcN36JBoNJHKvW1/OF0CeVvlkcHQRNOo6XXlsVQtnnTvpg1UB4IXry /KBLIehGaDy+Fx8AkvvGlcTfFQIRetoMqQMgNFtFllxWCGTHX8wOvW/gLiuX AB9LEVQdOrkkm+sL+4cNVxiPFcH7wTH7j2d9oTwpunpDtghUCRBoWu0DhzBR 465bRZChIvRxe8IbGhgenaq0LQKXKK/rac+9wb43dzfNswhOjI6q+hK8gWSj FOmZUQRHa871JOi/Bhd5N5snVUXAeOykfPOOF4hTN5y701MEfLQpRovJXuDz +erQ2Z0iMP16icTA6AVnLEJTBdmKQfe9V8dilSdMSw8+ZxcshsuyrjMpLzwB bzE5+EOjGEQa6P+57njAz/fJs/13iyGB54d7QI0HRNxbKKizKwaWUO1j2v4e oC5x2ivHuxiuzIc1V9/0gM1Nh2tRn4shnc11aljMA5LqSgXeZO3NqX271sd/ 7nAt+N+KY20x6Kmvmyz3uwPlrYs1pv3F4Efs/DmR5w7Zwr5vdX4UA53BFXmz d+5wZ7XdGPtXDImyijvPnrkDM+KQOkkoAcHEvw8Jt92h1O/6v4PCJTDib3H2 rKo7WBpEdFCfK4FZJbfn47LuwHV8InJZqwQkT5o1Mpxwh7pFoYdjJiWwefCI VD6POzwtsVJqfVYCS7GvZUc53IHfK4up2K8EdK5gbR773aFDe20oIaoENHaD TZNZ3OHlYYW0t7klYPLd7qsqmzuIzTv/59JQAub/3D+acbnDQF7NZeuhElCu oTHax+8Or1/RHbrxswRk47esD0u4g6yG5txFylKgbxLxKia6wyTX28LTXKUw eVm+r1/HHYIne734xErhxRiJ2vmBO2BfePSZsFJw/Fspnu7pDgv/3RXc1CmF DqOjX83i3eHTpYTVabNSEBwOFs6pd4fL7N9quv4rBe9uG/e3P9zh94hESGVA KeQW0cwxHfCAhJSn99JjS8GDZaFGSNkD9uE7/zybSyHEZGrharIHZDOd73wy WgrUbmwPH457wJ1+r6g7y6XwifG/5ou8nlD6iJUoz10GhvL70/EoT7BUvMYs JFEGuOcxsWcznsBFGz7Mfr4MWKUEnbylvOBp5HGnH5Zl8Ka7vtaU7AX8DyzU Bl6WwdPbLgGXRF9Dh2zGofrgMkizedx80vM1iLXJFUUVl0Fu88OQsyreMLl1 eU2Hvhzoy34OZe/4AMDOu19HyoEbS77s98oXIjyyZAJkyuFiQm9wFJ0fGDBz 2TXdKQdye5Rzk/AbyNNu5jC3L4d7U1ra9FVvgO39y1wqv3JgYKS71X/bH5qP TC1jBeUgM+r+4FVaAJww+fB2pKUcYplrTH1uBoJ7ktppp6/l8N4uIdB1fxAo ncq2LWCqAG3NzIt6l4IhG3f+ddKkAnTmBw6Yz70FFi+poGbHClhyfY+fuBEC Vs1TkhYBFTBwn5VOuy0EBHTVH8UVV4CaVW07P9r7rrt/cPEQayXQqKYHBJPe w2pyi3+hYCWofGMUsL/zAbQXnMWvKVbClYr6NM2lD8DoMG0dZFYJfbyN3GL8 H8H5dc53mvJKEI+bOtae+wmGWkz94rsqgZo0y+Bv8hnOsB4SOz9XCRx7t5JZ rghYCnN58JIDQfoR1bjGgEgwTdWYX7FEIBLxNNXGKAaqF3e9g10QVHguPadu jAE+6VxhyVAEQ0tFtzTkYqG/9JDFA4TgizhTAC9PHAjNrqz8YqyCRckP51Rp E+CaT1tN5YEq0B6bzOn3SQB3saSQAP4qIF0Qm/Denwhjj25KnzxTBXaz0jae AknwcQM9Mb9XBfIb9hbJDinQEB5+Xs6mCj7WPuVd5EiF9XN27NSOVRDrxifa nZcKuq4ncmL9q8B7QNe3niIdmBkClkaKquBKul/8meZMYKrb+L5SXQV/SQYG 5c+/AOMrkxn6tiqgva21MHcyC+jXzw7Jfq2C9AST70Va2UA9MVnrT18NJxV9 Oz36c4Aq4kplHEc1HD1vT1mF5QLl9eLi4sPV8PxM9RxbSi5QtAdkTktVA29Z XyzBLQ92iuXDlG5WA/3Tt6Ef9s6tbbv4t7r3q2H7vyrjJw0FsCW539/yYTXc S5RWSd07ZzYTplxD3aqB7DD9xgCKYC040GohtRpWqWT5i2+UwKLlNDFiqxre T0+rODJXwoLAVflc6ho4f/Uge0/WHh4rkW7aXwPx0qsp0gYIvl8LEl47XgMf EkT/shlUwSyuyK6pUQMcDMo9VKgaZrYTmEz0a0CmZOrGjSM1MF3ISvv8bg2w veZFRs41MCk+sxVvVwO5XSkEb+VaGDsUPL39uQY2ODSjuCfrYLR7a4w9qQbI VR4RgVr1MBJoNiicXQMX7qjbTJXXwxD1uQ69uhrgFf3VfCm6AfqWZorSF2rg 0fjx6pgXTdDRdO6NEbEWfNyMnj/42AaCVaOLapdrQYUUTB453Q4vil5py+vV gkFv/Q2KjnYQSao9cOBBLaSUy/5y2t8J7h4aMR2htdCXoZX5aYAEA06LlBXR tVBykfJpsFQXnHoaZJaeVgvF7f8q9vl1wYhxt5hPVS3oCbnNWp4ngxxmVHB+ oRYEdg2HGmu6wV/u70GpjVr4yGsrcEi4Z6/+aCc+yjpgUJzmow/ogUDeKdg+ WAdG012Gg7d7YX7TqiX/Qh08oiULVxH6ISLPaVz4cx2ozZLevO8ZgpW0w8pc SXXQyXMihkJ/GNTiKhOoc+rgn8Ckh17/MPwOprSaaKiDjUrfKzUTI6D9yG/t 00odNHWhROL+caAS/cSwX70eLEy3fLKnJ8CQX8lm51o9qA7TLQjKTUL2wbGO 73frgVr2UuyX15Nwi/Z4aKNDPWSfr01nkJiCwqlUPrfYejggVWzN4T0NVlEl Mmub9XDt5Y7qxpM5qGQVdM2iagBn7Z2hRvIccLgFtlntb4Cz1tFfK2TnofT+ fbMJgQb4JdnsdXRnHhhFWcI6tBrgQZdt5/DH75CWZ7yVktAAFMOWN0WZfsKu YKuKaVYDvOnpTxhw+Qm6H+TeHS1tAPdMGcuK1Z+w9ZxR/ENnA6wIZCWJTvwC dSz/tsdWA0TExbJemVmCb0101be1G2HLQDWKYWEFlBSfsnAbNcLpHcU3MadW ITh95GaPWSPwRc4+7rZbBfnAnBX1F41wlaVYj3l3FXz0jATlkxqBQd5pp4Z7 HUTGvnhz7DQCTaawzbeHG2C5qq/VmNwEJU7m1Jc9d8DfWae+Oadp77s1s9Cp Zwdy6K4otZU1AVODbOBRob+wxXtRrKuzCcLWo1dKG/+C/0Vp2uGNJiin7Ys7 wPEPct7vr/yp2gylyjeaCKMU+NbZRgmu+Wa4KvDgi1wSFR7wUp7FTKQVcosP KMq6M+D0F6wXQKYVBlYy7PQKGHBPhqhWHqwVhIOyM0znGfCXH6j8SHqtUDFv 6aivxYjbZHfQKr1qhUfyaeqK3Ey45rQpBaGvFQhhePn1VGa8KS1sfPFrK8SF flTNGGLGLz5pqWz60QrVjsfEuplYcKXdU84u+9pgQM6hM+ghCy5+aPvPN/E2 qL6U/OCN5H6cWfPtapVHGzzfTD9dncCK+3DUkT8HtoHZlPHUJTIrTj34O+dZ eBvYFMkpvvzHiu+Y3bIVz2oDYq/vmJM4G77wSngxbKgNxrdFh5c92PC2vIrZ R3tzmz4d7bkhyo5fdlqqV1NqB86zDx06iex4HS6QKKjaDhZ1JBdbHXa8vN3n /tCtdogh9xxlfM6OZ8zpfb3k0w6SLlLzbjXsuD/v98HD4+1wfMJdukKDAx/Y ypzCvrVDzq2AtQxDDlxo6Mmi8Wo7FCtqthg/4MArP/6hSKTrAB+HBiGO1xz4 8gEGEQmpDpihGNf2K+fAsfW201cVO2Bc0Ebft5kD9+sJPvfkYgcMk4Xfq/Zx 4ILvDl0tuNEB28bg++8nB27AJvKM6NYBU0ebJbWOEPC4Xz9e3X3TATJDnTNn RQj4r44sX7f3HUDblZ4wIk3AfQLORtandoCX1Rd9fVUC3mOznTSX1wFiRVy3 RXQI+DFNlM1Q2QF3ub99yDck4KWMqnVXyB3QlWez+NuGgNN+Z+x4PNIBwjTR ZzMcCLhec0f/29k9Pg+usHK7EPAFb4MfvVsdoGMfPX0wkIArWPCsb1B3QrgS hWjqewL+WmVsl5u1E4r1zXyWIgj4URpzjjsCnTCr+VgtJo2A20yLHnaV6AT+ ogUm+hwCXly7KBR3thO+fjiZLlhEwHXdHRRmNTpBU8zC/EUNAY+6p3CB3qAT Ql4d2s1vJOA/8L+aYsadQPNp90FcGwH3/Odp/Mi+E8jdLsNhvQScNHbZKtil E3huqT+PHiTgRyqZ7XN9OmH6WcFBw1ECbhVJcu4J6YTfs2yBjV8JeOHLUO/f EZ0Q6SmV9///9ZS3brw9lNwJ97QemZTOEvCr5w5/VszpBFm5TCf4RsAjeL4m 3CrrhPZ4o7FnPwj4/J/4Ly71nTBf5WBnvEjAZQctimM6O0Haxltg5ycBdys+ WVMz2AlJ65nDaksEvCPsV+v0VCdIBoX7qy0TcB7HvF7an51g+jxQbHsPWxg4 jotsdsLlabPMOysEfOhTpL3QPhJMfgxks9/Drn6v/jtDS4Kcyyx65/bwCad7 LqpMJBhPfOmYv+ff9uCCxw02EmicYvEc38tnd1PI58EBElwp8nQv/7WXT40u wImHBMYJRFeNPX5V8t/evjlKgsIfQoH+CwTcXKT1Q4QgCbrrK6pefSfgzIcy P2eKkuDmES4poXkCnksXFFMpSQLx4o6NlzME/OaGbWKnDAl4eTnPek8S8F2B s0cb5UlAUjqprD9OwBO0/36sJJLgTQzGNjhMwNWcazkKlUkwfSOgiWOAgP9M 9fXPVCVBQ8C795Q9BPxd31XaRE0SONylS0zpJODyVFyuETokcAroFaZpJeDu t+Ls3hiR4IfxKaPJKgIu7Gu56G5MAinM0/l+2V79BZIWTmYk+PSh4vfnAgLO xVpm+OAxCYQ9GNZkUgl4WnX3eVUPEnxgj1ihC9jr78/wMsxn7/2rQYEaXgR8 jcdY7kzAXn7aqNHLzgQcs18QEQojQTnZfOfJ3nx0n6Bho0onQbInb57P3nw9 12v13coiQZfYQ7UEIgHnc31LtZJPggVqq4yXMgTccvDIxtdKEgQffvTJjI+A 77w5M1ZJJsH6nbwtwWUOPLZ453phPwl+faFplJnhwFVmaroyR0igP5MoQjXI gQdjV+sjZklAJ+JcNYP29odliwynLRK0qVvebPbjwK8YhDudOd4F/IfAyO8A B77ifndNQrgLtO7+SZ+h4cA/Zgk9EhLvgjgqwjfG3+z4JH3uPc4zXWD6gr6+ oJcdf1bWcnlFrQsSdwwyo0PY8Sj+Ha4vT7qATfxT+R0qdvzxj9E6dscu0Dmn z8r+iw3HC9FTh5dd0C+h/j14iA2f0PDoUPLugvr4dqq/2Wy4oCPj69aILkhR S46INWLD09oPrc83dsHQwceeizqseKGTXLcAHxlku4TD/PWZ8c6eR0HhLWSY g4/391HT4vTi4eSYTjLoO61lTPbQ4MoetQdSev5X03XGY/29YUU2GSGSlVLK ioSe7/eWvbKSBpmRPSryQ5LK3itbZSsjhGSPQhkZDx7PJiJRMorwf978X57P uc91X/d1j885r84IVOX7G4wXHVCvUzicU08cAYF8roTfugfUM+I7SkdXR8Br iDSkHMegbqd3qJPjyCjwagi6k4Xp1Vffv1t75D4KkuLZwmev0amf5p09H+Uz CrWnnyfdlqFTv+XGGZToNwpB4tZ6Q/vp1LGHHfflPxyFvcBH+32t96DJj52z OWUUDrnmN7Af3IXHcrZSG+9HIU2ncUUnahsOFTDccGMfg9Hzys46UxvwX4bB FwL3GHRQK/8riN0AYlyinpnAGNARbtXmqG9ASYDweRWJMfjXUsbsXL4OasZK hxhVxiA8NuyA49M1sPvrOPjCcQw47Cb2WV9fhZ7lMm0+V5p94q3OKv5VkJ5d aY70GoOVjjM/Csd+we/BoFfe/40BY9Jw3F3zXxBemBKJJIzBYNrO/edXfkKF SZfGVNMYCNW2dkmuLQGPNkuTUfsYmG54VuDClsBfzUShvWcMJB3ZUj/zLIH6 8WnRkuExaBGMKrRT/g5jW6v/7s2NAd/8lqhM7AJsFUk0cPGMQwA9ZcHAdw5s s11knwiMQ053SrwK7xx0J1YWbQqPg/OtuzzG9V8hLkgtlSg1DjJxf3QX92ZB zMzc9zUyDhl8nKGNz2dA59+j03qu46CO6X5xRIACvCFcKrZe49By/dTn5iEy kPfytPzvjsPa2pkCnSgyBNI33yx8MA7ZW56+R3ZJUMm6kUCXPA6JXrHD9xYJ ICDottbYNA6pShpm/Hw4mM36QzfcNg6uwxyiYy+moEY4gmO+exw6zX+/Pi0/ BUZihSf4hsZBQV0mPtNsEkKliNd8Z8bB5/q9SNYSLHw7Z95yih0LtfOLYRyZ o/C2gdynzo0FbcvC22+QUQhT9cZe5cfCY3zS47qZERBGYleeimGhvLz3fZ/i CJhpfRCnKmEh6UzgZt/MMIh8sJD9q4oF375f1/el0OaE7owaF2Dh+xf30UDN YQg3pLNA9bFAz1mra2g6BE3mauFZN7HwunyR/cfeZ4gY601+44CFOhebxjrf z2BheTW/9zYWRtLikj9+/QTL1+81bvhioacidqJmrB8k7CsXzcOx8G6dEEP4 3Asx3hImbFVYqFdRN0wU6wFL2bRh5josOOxC4urbbpD4wWTO+A4LJ2WRBvFL 3dDk9sNiXxcWLPvs0gdDu2DRqfHGJhYLhp0nrZv/dUC95Gn82jQW5EWVzpDy OyBsJvfmKpmGFxw3kK/VAYL2j+1+LGIhZipkaCa5HfSsjZ1ndrGg9H37S93j Vjh0pGOeTD8BhdhKwTxqC5CnFF2JzBNQ4xSf5KbVAgFXBT2meCbATc89N4yr GUrMZ32HTkwA0E8axfS9A0b9wAfvjScggjlYW6H+LYww/dhtvDwBGeQVfDj6 FvI+2IbWX5uAv50XGcT76kBZS/vxG4cJuFLW1r07WwtOwBVV4j8BKvuvTN1W rgH53TDWoqAJeJ0zwrYw9Ab+Na/HvAydAK30rwQX9zeQqjYdnxs9AZPupRqa pdXQfa44NSVvAu7naOrt862ExLXD/EkFE5BPf/2eVGcFWNfGPIsvnYDMQhaX T/wVsCbvmxVVMwESnSzRpv2v4NgZzPOHHyagVbLh7ttrZRAmMfLKfXkCPOfj umsYiyDwoZ39+O8JcO47sRMeUgi++GV++DsBaSOrvXf/FoBdOlsYD8MkZN3G 6F3/8xJQVu1r7wQnYbI/0bz68AtQvj3KcUx0EvzVVygFJc9Bptu+K1ZyEuyp tl5qqs9BOCRE1k5uEjLHr7Ip9ebB9q8GBibtSWiNktC8VZkNq8Y6TT4Gk5Ay tL6a9jsLFl+NeeNMJuF8LPUvimQBzukXruLGJOwhMe+fETKgcUr6jYXPJHiv K9uTTNKhWvmdc6vfJGwTZRW16tOgJEVX+GTQJJSsuRz0EEuD9Eu3IrafToLB WSHemr0UuNeRe/Nl9iQc0hZn+jafBB4iZ3jZX0wC81Hvi4puSeAY1NTrVzwJ wmu5WkUriWB+bkJR/80kiCh3StXTJ4J8GRfrzw+T0Bci/NU8NxZOMua3Xf88 CRaCv1TjhmNA1FHGr+vLJJTzPD7EzBIDnEcNyOn4SWha2G3RioqCpcTH9cjq JNhW4Eqed4XD7A9uj5LNSXDY/zH/xdFwmDZ4Ls69MwkNAWLb/4KeQj9DS+ws 0xSk/5ficEP7CZQGbDjEHJ0CuxcH534xhcHz8SeH1yWmwBG5z88Q9gieneUd tDk5BfMzpw9W7IVC+JKc6lnFKUhoqaG6HQgFJzvXg1N6U1C0xcUU5RMM3frq N+YuTcEG+wXZzJIgkFQUKPptPgUNxyNNPs8EwuyBHjXOm1Ng8/TScQn3/+DW KzFnTd8pqCQoV1vX+EN36ma1qf8UHDpl0WV60B8kQwa3bwZNgYvnZt4THz+Y MQ1OCng6BYrRR5e14B44bEw0V2ROweZyobU/2x3oJFUyvc+bgmir7Qu1Eb4g 0ffUvLdgCojXmBa8mXyBmq34jVoxBRZvco/ycPuA/cUE3sOdUyAtXlbinuYB 7dLONsc/TsExnAvmcoc7iB1Cys5+ngL0WFDR5qobkOcW0UvYKcg5FUb+6uwK drE6bmGLU/DGOIQYG+cM7X5H3yasTAHP6zPC0TNOIGa7tpezNgXugsXKyqgT kBVepjXsToEKfSmLxL5bYDux077EgwP5L188RJvsobV9jG1LAAcrlzo+O521 B5HyV5ZMR3GQYhxoG1hpB8Tg60viUjhQlEl4eNnRFmwk3gpcvYCDoTdXwxm7 rKCVLdbhljoO1q0SoxW+3wCRdYcKX20cqGxXUZ4I3gDiRy7NWBMceLu4DO9G XIObnh5eHY444El6G7RccgWaLTXfDbrgIC8/Lot+xwKE1YUY8J44IL5w8eO8 agF4nt7Mjfs4+GmsrPpA8DJYNx7rOR2Lg71gHI/SmCl8A36toiQc+LgTDC9p mMLdj8xdIs9wQFDlPifqZgLR2B/t3C9p/K9nVzKYXgJ+GzLElODgrtyCEsHE CF58HWllqMBB7vFNic2rhtC41tC82YCDbaYTxasP9UEruPyCbwsO3oleMbyR rwdD9LlNi5046Gd86HDwgy7M8YQ1EgZw8Mk8XC30pA7wKRjVdc3g4LgIJJZc 0ITnjagisoADHeMlkawEDTijrlBTv4wDi5JfM8jCRdAy4a8u+4uD1RaZwq+v 1WEYyyx3bI+mx/T8kRR+dbCy2a7IYZgGCqvWrShWgDue5FcJB6fB0SNP8hQV A7trI9IsfNPA0ck/+mn6AkQF95SFCU3D8gplTIOoBs9jykv8jk9DyfkevuR/ KjBYdq/A6sI0jKnmP3J6dg5uKNyWGFefhmyBDCvDYSX42nj9hbHONIhV/ruz j0sJ/n1E8y+aTcPRq5EX9l6ehUgTBZH3ltOwMoELn15XAN6JY7lK1tNQcbX+ zBtjBZCeY86Wuj0NP988OvSYWx7qPbcFX3hMA/fhV6/UN2Th4vqPDKE708B5 YaL+16gMXGMYTed4MA0P5H4736g4DRESucm/k2nn2/zrLg1JAU95ArdnxjTY qkVKy/84AXkKYYlzuTQ8fTlmbt4TUK9+O36qdBqWaqoetvpJgkbvdY7LlTT+ Lt8KmWuOwYCJUezn2mmolXU+ZbQuAbM2CtFtrdPwVyvXajhBHHzmjrGodk/D AfWli3lzYrDtyR9Z0zcNvYN1+IeaYsDzYPtp0dg0lDoc1712VATUs3sexSxO wyFpgYXYfkHot83x+75C81eilsM8ehgsJO+6Gq5Pgz1v5S2HWQFwrRAzY6PD A4v3y58PxPhhzXdTy/0AHlSi2steG/BBiPKgyidWPBS8eoimBB+C5LYgsRg+ PNw2QWWCNnhA+In5oe9CeMiJ6A7fRnigRO8Us6EYHkz5v2YqxHJD8xfsCutp PCxwCBmPXuCCrzMKbdHqePBgumrf18UGPqXMtYvaeHCTSU3484YVtjxIxQaG eKizm9vUKGcBzo3YeFZLPDyVPt3V3sAEGU2OYW5WeGhc7gTdz4xw7KGaf78d Hjh+x2/FLxwAFeZvN6Pd8ZBMnZOXQhig83Or2aIPHp79sGon36EHo6Q0bQN/ PGh7jsfIVO8HeyFNGdZHeHCudTnmpb4Pos/k/YtKx4OjDs8kp/0OeujXvZ8L 2XjIlXl2Oub8PzT/reGs/gs8ZOU6US0Et9E69O8nltd4cEisOiW/8wdF6Yfb XN/gIfJbalDg7iba+7G4tq8eT3tv9wY8ZtlECaYW2VEdeEjvUm25fWEddeE7 nbDwAQ8B64f+pNmvoatT+x7rf8aDYL970snE3yijY5UbywQeRCj22+oHVlF5 P1a1qCU8uN55dvJh/DLapEqRWfiFh1SZm8e2TH+gWrsN4vqbePC+HRCDF11C r0c4sbDsJ0BGSWAJHWUBnTXE7LgwEaCViWhoP/IN9eLi/dXLToDnmlsbzoPz aFhm+2SkAAH8Ll6S75/9irLbPPv8TZh2PuYg6rQ7iz6T8GrXkyDAIksBj5j4 LPr61ZFSZhkCHLTN90sLpaLjLf73IzUI8L2bYCaKkNBeznS6WF0CeDi5dSkw EtEm27dRCUYE4HJu0l7C4dHn+9ay0y0JcDsCm1FVhEOTzXmPZ1nR/MlIJy9l TaFPC85W5toRILOvt1o1axJ10/ZtL3QjwJiel2ryWyx6Mz1Rv9SbAF09b6OW hsdR0/mqkVf3CNCfcDV9bW0MPRe1PFsTQgCirF7M5yujKN2AO0tHMgFymAyj 3O8Mo6tHY5K7nxFg/dJ/rfi0IfSrV/mR3hwCQGuBVcflQbSfa0FmqJiGn64c pbX2CW2xZ24YeUUA0otjBv/G+9HqGil1bDXt3WJ59VBPZx+aZuFsTmgiAGZa izL//iMaWfR0mtxGgKyL5HOBHz+ggRuFt2a7CUCduLYZh+9B7TJm/L8PEiCy qvnBsHg3Ko23y/5LpembwtuTdLADFZYJldyZJ0BKcYjp/M129GBIfgXdDwJE aJ9K9XNuQ9dEiW1MmwRQtlTrz5lpRud9dvTY/hHAX1xbSPjtexTXITzCuY8I U/FhrGnJTWibo9UsHxsRfsgYrhR4N6I1dYGeglxEyIkejbT2akALD2RtCPMR oYJpvf3y/Xo0umSSWVKUCAfr+Ju9iutQi+9XZM4qEkHlulSVkvcbVAfjV39O hQgZrMkmhW+rUdW4VFBFiDBei02Ko69GReRGzdR1iaBxXXnH0LUC5Q5dxWka EaHr/jRnkuxrlOEL9y1dMyK0Gpz8L53uFbpwx9Tf2IoI8TafOL71lqL4Lu89 MzsiiJybWtZoLUEHDyVEXnEigtZsORrUWozW1Q9kWXvT+F3JODFCKERDtgza 3B4T4VUnu86RuBdozsLTYFwkEUwu67rFtD5HmybbVQ3iiaBsHSHhtJqPbtYr 153KJIJMwq0Px7lzUf5iX9/MPCLY9Y8sC77LRpXSXsuyFBLhwX22ww99slCf uxJl3yqJ4Fll17LGmoHGO9x0vlZHhKr5cd6upXS0wizjWO87IuyWBcU/mE5D F+U480q6iWDKrvUwkJCCMovqWwn0E8E2rai1YiUZPcH55HDEEBHOxsapVLIn o45Lf5OdcUQQtJCwOOeUiIZNK5liSUTAZWQMVUEC+rzfm0PnK00fOma73Q9x KL70a8Txn0Rg/PQ9O545Bt16Jqadtk4EJTohFbOOKFQwwmr/gW0iHOvTcBOJ ikQtnb4Ezx4gQaNcZYaCZjh6z4JdzYKNBFzaOZrKSk/RZE3dzS4uEmRtnNHr VHiCDom3+BYcIcHJNk3T86Zh6DLXH1lecRJ47lWJ8fo8QtnpFJfCTpCgzeSH vVVWKKpHLHV2UCBB3UXpxrLDIajzwMyxEWUSuHxGC/WLg9GnzSKUixgShHk3 RWK0g9DOrFQrcV0SpJ9tq9qtDUDJUUOHk4xIcIZFye1K2H10N4AVS2dOAo6R dVMOW3/0wtVQU7I1CTi7DgUwXbyH3tB5z2HqQIJ5+o8uB7XvogHnNvrbbpPA 8fdVXford9A6Xg/t/DskSHPE0T9J90FH9pfsPxhAgo1G1xK+eG/01y9KW8gD EnyseUSg7PdCZYevqtlEkqCvZrFeUNIdNWpL3hyIIwFu4ey34UFX1K1yoA5J IQF7f803fJQLWhKrKXc0jwT+XoPqqzLO6IegkKXYAhI0neV/lsjnhM66vSv7 V0oC2Lyz9Zr1FiqmLyeJryUBs1xLF1nIAUVV3CiG70jAxvkqq1/JHr0pVZT3 vpUEWpfutmGv26FZB44IZvfR4nWnJ4aH30Qb165gWYdIkOFkHHGZwxrFziSm BI6RIGYtfzaw+AbK28nIeYNEgg4XwmE39mtoFhJt5zlLgpQ5xDT7uyUq9o6j NnSBBISOeW76ySuobPWhayW/SYByWehIYC+jdaczypv+kCCUJNnVNmeOXig5 sjOwQ4InVbVXbPebo5Im3GZb9GRwuuqT9uaaKTrPfnnrMSMZlh8YXPkpaYKW 96cWcLCQYdj4heNw+SVUQefwhhgnGTomZYjaiwboGv2N/HIuMoQqs1qYvtRH Gzuy9ZR4aXdeue1/6a56KIqIZuseJoNl7t0GkWM66L5tO60vQmQQLDLu4juk jXY3vvxx4ygZuqTozeq4tVBDpRPqXhJkKMqo+fNcXgPlXL29sClJBvzwfOa0 6UV0pKos+ZEUGS7e1Yf0IHX02mmZr6lnyFBaH1NsQEBQ4QWveBE5MthFnhQ5 6YFBScXV50sVyCAv5TPnyX4BdZZQin6vTIbTHl5czCEq6Cmyn6K2KhlGdu72 Ei6dR5dyG/CDF8gQdtm7/ugZZfSu4AU5qjoZ/qry16hyK6HKE8GT7ppkoDNr vjLBr4hupbY+WtcmQ8WVB7X2J8+ioVwaY8yGZGg6M9TB5imPag0+fpB8iQw2 UwzR2qgcyhTbc0LYlAyckd+VTtXLoPFM+v/JXSFD+RnJJk+CNGrWEy3x7ioZ 5vyHGQRiTqGHHn/+pHGDDN/cMucP6J9Es3dNRCxtyeCHlptVrR5HbZqTPpLs ySDbI662g5dEJQJHfVxvkYGFWbK+fuwYWrpu2RXsSoYQFeXo7wviqHtthgej BxmEd3pbVBjFUVlfHF+iFxmqiDJpqTJi6Nulmy4Fd8nwNo6P4ZPyUTSgPJ9b xp8M4Y/0Nto7jqAYF0pTfQDNP9+dkkUbIbRz5hZH/wMav/kCc/fPAmj4i+L6 y6FkuLWjXiyZzY/q236zJYTR9PUJDRsP4EOHce41PyPIoGhCd1XPhhdNyaiw CowmQ5ySclbdLR7U0nKFgSGODAnFSyoe97lRwpc7VwWSySCQtd9oIOQgKlZ5 4kJqKhlWPrly/VzmQB2icSLcz8hQfLGYOfgOO/pNQ2OONYeW33Y5n9PVLKi0 6EZfRB4ZzhmyZzxzYUY9t8sqGF6QYftJhNeOPBO6Wsvtt1tE4++daF67zICe S+y5FlRKhjeky2oZVHo0wOM/zJ9yMkj81W/In9mP7khS6FeryID5JFyQyboP Vd+XNu9VQ9sP1DtpJ0eHhhH0Pn2vIwOOOBNOadlFmNOrk7++I0MhNu16T+M2 Ynjnlr9DMxk+qXTxZJpvIfHGh2+QWsnQ/26bR2L3D8LLFCo+1UWrr7Ud7V/h G4jljOIByw9kYA3zSsp3WEcy2ua/jfSS4b5dhPOI0RoiEmBS/XmADEbS2bht /VXE3oI+VX+YDPa3LDNfWv1CCuUb7n8YIYNWX+4Nmf9+IqcWRKB9ggxs/BHM uq9+IB49IxIIjgziF/Zrrp9YQipfhDM24cmweX6WTbB+EVG6sTxQSyHDHvOR tG3Wb8h95Zdv5Gdp8Tl2qawNziFNPJZpFXNkcAw2ER1/+RWBTy3WJd/JoJzb VqB8fwYJK/FVl1wmw1PidR8NfyrS/fi45IufZKC+xP01DKMgBpi471nrZPjK Fa2a/YCExB6+OCTwhwz1Sb9IUngCMrS2VpO6RYbbYd5e8yZ4xKLCOjB+jwy6 L+Jrxu5MIc+iuGzY9lMg8WX9ZQ6xSQTn1H0xkoECGmoHg+OIWMRW5AxLGAsF 7IiePNsxY8jLLdLSLhsFPuTyXzX+bxSZxaYMB3FS4FiK5mDtvRHELWH7mR8v BboystcXk4eR1+5VQat8FPDOYwnEuQwhK7qOtt6HKcDS+F6su3MAuUf36YTr UQr4/1k60VDfjzTgQ1jnRCmwKb3/UY5xH7LVeHbZQYICUvueRB79+xF56Jv1 1lqKAg/1hnxUw3qQzkvGmVOnKDC4d4+Tz7YbYZDe/8DyDAVyTrm+YTfsQqKp rlqmChTYZ/IoX+dSB0KNO61Br0QBTDhe8q1xO3JB9QfUK1OggY+tdV9LK7KU 4HNBGEOBQJey40JG7xGtC2dVh1AK9JxvVqhsfIfkzv1WDrtIgbW2tSQxTCNi jNw/+02HAjycpxlywt4ixd9U5LP1KRAXRW9urFmH7KVsyRgbUeCfT16qHH8t Ur344FSdGU2/ssqN4OVqhCUdpG5bUOBJYt4I32wV4nBx33GhqxSw2Clf52Wu RHgznoiFWlPAur/jqdnzcsRDU0dE0ZYCbZJP+NO5y5DuZSbhOXsKGCgmfezO LEH8tWMEjG5TYKHP1uvjQiEy+NOIb8+VAu7/dFMuVBUgUjmcvDUeFBARMdGf DH+JTK4mcR6+QwFjdg+7YJfniHzeZfZP9yhQO32KS52Sh0Tp87GG3KeA1tPb YTqcuQh1DcukEEiBrd89Iq6W2Yja84wDs8EUKDbpNhVuzESSDW/QP3tIgeGT 754vKmQg3zeO7DMIo0DJNeqDu53pSM6l/H9VERQIy9s2TpVIRdb+2G05RFNg R/TVi76VZORSocQfvjiaPrZdsDqYhBSbzK73JlBAuM1OkLEtEdndKvodlEwB 7L+j9IdDEhDL4tu/ZNMokNIW26CQE4dUmZ1aoTyjgDR3SlkuNgaxK329qJtL AZ3yiL6/mZFI42Wvb1v5FIgo2qlYFI1AuPfk5ipeUqDUILjiTPNTxK3814xd EQWKJk/fu+f5BOm8UkvhLaUA2/ZKVNTZx4jQPj/Sh3IKBB9n09ZmDUPuvlYm /FdBgXqrgE9Jv0MRSfqmSVINBVpCzVNKfzxAgiuDsMlvaf5bnQbGjgYj49eR Me1GWn3qJS/nuwYisgf2vvxpovG/8l3SYygACa9uH3rVQgGB3nyn2kv3EaJV 2IBNO62/xv/wMc74IeeZtD5xd1EAN6rzkSX+HvLt5scP93sp4LglcPao2B1E nSWqW/oTrV7TygInGHyRzDqDTsIABb4LHck7ve6NrNqytycOUwBxOD5TQeeF GLANtmiOUiCjQ0DMTNoDKahPeL8xToH+3z/HjHzckH/2Zu/KJinArpjO9nvY BaloHKs7SKTVZ/+Xif14J0StXO1BKpkCEjkxK3OZt5AP2c+1BWdo+WKz0md1 c0TIIR5YiW8UmBK0PcGO2CMePiN5JYsUqA67qMCO2iF/7VVun/lB6/+cTDGh bBuER5vhz7lVCrjMx2y8P2WF5Cu7tTetUUBJRzrdLv06cubkcCRs0uZVf0ME h9A1RJstR1D/HwWSJrx+OdlfQUb+7aMO7FLA9kjnfLWEBWKzfLvcfB8V8Akv 0Isb5kjAF8UL1oxUcIHVUPFhU+RAVyY9hZm2dvT5IlhmgiTX7X1yYqOCzUFx tbnBS4hIsVPqIgcVGk8cdmPgMkJePftk7c1FhRSfa8vzbgaISpTC8TUeKpxb r3QXIuoh3YHPfgTwUSHw7wlXNRddhHjTMSRMiAo7HFx5Is1aiLtJnw7TUSrE lNmahjzWRP6oyx2MFaXCVODJQLqbGsiTs2kTXBI0PJOnPDm6FxFuye38NEkq mD8K/mWpoY7k8dm7CElRgXM/cTsqA0WkmT7K55+igvHXTwOcfRhEazG5o1SW ClIHJ05n/KeKfJn+EyWjQAUu2967mRvnEZsBG/MaRSo8Vra2UYtWRhZbu4XO K1PhWNzJXBnFc8j9aumZ9ypUUNmdbVP5qYgwvEx8pX6Bps90vZRi+1kkMWXj bg9ChfuM0iwHXiog5f6dDEMaVHgz+U0ekZVDlF1ODlzWpgK7p5n6ATMZpOt6 fNqkLhUSbnbeXkw4jZgart28aUDDP6IiZbhwCsFjbpygGlGBNMowmmt1EnGV bV92NqHFkx+BeH89gWyInmj4bkYFZ9H2u/ZPjyMH6Vd11y2pkH4C+zhl/zEk Z+0qV+B1KsSHc529TxBHTs61TO5aUeHQwhWNjj4x5O3EsRePbahQkX4pHBcr imj0Rbky29P0tPJ+yFZ0FBlsWlGIc6TZa74a0MEdQaxeX9nidqZCv8G7oElp IeRegnjMEXcqSPANPX0lIIDsexRx+bknFZ7P6pzYqeZD4u/8OHLchwo+P6S4 umwPIUK3Ls+W3aFC6FeJ3HcSvEjJlXevZf2oYGUX8KPqDzeipCvqV3ufCh8I 1ePhZC6kXeUpohJIBSFmzwbbmoMI7ojZ4MWHVCDYxOgcXmVD6ocbU7jDqFAT c4WvjY0VSX4qdp3yhAoDwhx4Oh1mxEstUuRNBBVuDxgI1+cxIvorKzOh0bT4 vHTVpnkPIJKFV8tM46gwkZAnH19Aj9Bdb/MSS6TCtVZBV3aj/UhjZ/zftjQq WJfVrFI79jCp9zdaEzKo4HH+fXJL6g7G54zNE9tsmh74s80X47YxRpQefbk8 KviOiv1aKv2LkUqXObj3nAoRpHmy89dNzH7DtLHBAirccIupDFHfwBD3/mXm FVPBU+KS48nGNUy662dJ9DUVXHeiNl6t/8LcEVFa5Kiigr/J90Luxp8Y49Hs KsIbKoQca32mKraCkY6k96uoo4IgRfxAzZ8lzAHEXe1BAxUqRVR4xzcWMc3F aj3CLVRYmDHKFbsxj7nHxWra3Elb02sm9JyfxZwJnMJZ9VLhsGzhr96HFMzM TKnT9gAVDMvdFx7oETFZlwJ+Zo1SoZZFc+XgWRzGvEE3SG2KCqJtvDOnS7AY VnEBRhyR1s8V+i530kYxHdFzif/NUkGO7x86vzSMCVh7e0Rwkdav3H8WtWEA I2/ztLhxhQqo0bstYc0+TL6CZPPmFhXEtneCn411YjgPdH1RZpyBC22xjPys zZjFd9LPGFlmQCtiqegRaxPmg1eyNZZtBk4ZKNksyzZiHkzaz/tx0/blL+6t T9Vhll7R7dQJz8Ca6X/E7r+VmF47l84nojPgwdOxqNv+GlPINxxhITED1nzp GvJV5Rirh/k8a1Iz8E9vCeHZLsYoKzFNdknPwOHfjhob5kUYngWv3BQZmv18 ZQtHXwFmORfr4Cg/AxlRbsKqVi8x/eboSUXFGfj//xn/Ay9odXk= "]]}}, InsetBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"D\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"E\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False], {0.45, 3}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->False, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox["\"\[CapitalOmega][\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"PDF Comparison\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Normal (D) and Unleveraged Bimodal (E)\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.4410746505501137`*^9, 3.441074673878443*^9}, 3.441076620075347*^9, 3.4410772691957483`*^9, 3.4410777454533978`*^9, 3.441124275075677*^9, 3.441131319403645*^9, 3.441382635584342*^9, 3.4419106904102707`*^9, 3.4419891776437807`*^9, 3.442010289464218*^9, 3.442010339439581*^9, 3.442934736673935*^9, 3.442936342461429*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gBimodalPDF", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.4404610224942913`*^9, 3.4404610267556667`*^9}, { 3.440551022455552*^9, 3.4405510255419197`*^9}, {3.44077124883039*^9, 3.440771283327057*^9}, {3.441077069867744*^9, 3.441077074662794*^9}, 3.4420102280002537`*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gBimodalPDF.png\"\>"], "Output",\ CellChangeTimes->{3.4410772708999863`*^9, 3.441077747180379*^9, 3.4411242765658417`*^9, 3.441131321020035*^9, 3.4413826370105267`*^9, 3.4419106918771467`*^9, 3.441989179119378*^9, 3.442010289547971*^9, 3.442010340951741*^9, 3.442934738339279*^9, 3.442936343999556*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"mnCmx", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{ RowBox[{ "vnW", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ "vnM", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ "vnS", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{ RowBox[{ "vnW", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ "vnM", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ "vnS", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}], ",", "x"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.4"}], ",", "0.6", ",", "0.001"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mn\[CapitalOmega]mx", "=", RowBox[{"xEmpiricalOmegaRatio", "[", "mnCmx", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x\[CapitalOmega]mx", "=", RowBox[{"xInterpolatedOmegaRatio", "[", "mn\[CapitalOmega]mx", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4364886364615*^9, 3.436488690706395*^9}, { 3.4364888237179527`*^9, 3.436488826252903*^9}, {3.43648886022647*^9, 3.4364888705011683`*^9}, {3.436488968596327*^9, 3.4364889716860027`*^9}, { 3.4364890212128487`*^9, 3.436489025097246*^9}, {3.4364892170090733`*^9, 3.4364892272275763`*^9}, {3.436489682276868*^9, 3.436489706799964*^9}, { 3.436491569352363*^9, 3.436491587727995*^9}, {3.436491713138064*^9, 3.436491717848775*^9}, {3.4366237556303463`*^9, 3.43662379282264*^9}, { 3.436623922867342*^9, 3.436623923292761*^9}, {3.441074726785997*^9, 3.441074754859412*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gOmegaOfDandE", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "nMN", ",", "nSN"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.05"}], ",", "0.4"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"x\[CapitalOmega]mx", "[", "x", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.05"}], ",", "0.4"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick", ",", "Dashed"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"gLegend", ",", RowBox[{"{", RowBox[{"0.125", ",", "10"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\[Tau]\>\"", ",", "\"\<\[CapitalOmega][\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[CapitalOmega]-Ratio Comparison\>\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.43648929915808*^9, 3.4364893639011374`*^9}, { 3.436489727400113*^9, 3.436489819696274*^9}, {3.436490672671357*^9, 3.436490688982956*^9}, {3.436490794829678*^9, 3.436490851351818*^9}, { 3.436491266703106*^9, 3.436491295726667*^9}, {3.4364913528507643`*^9, 3.4364913600243464`*^9}, {3.436491412999234*^9, 3.4364914202346907`*^9}, { 3.436491540682261*^9, 3.436491547305365*^9}, {3.436491787236704*^9, 3.436491796877301*^9}, {3.43649183588621*^9, 3.436491853483527*^9}, { 3.436491966343858*^9, 3.43649196706742*^9}, {3.436494173850408*^9, 3.436494175559716*^9}, {3.4372490214958897`*^9, 3.437249053706295*^9}, { 3.437249098742626*^9, 3.437249101891395*^9}, {3.4404604132763443`*^9, 3.4404604193759117`*^9}, {3.4405510536805887`*^9, 3.4405511119167833`*^9}, {3.4405511552804003`*^9, 3.440551162054139*^9}, { 3.440764304579685*^9, 3.440764477175453*^9}, {3.4407645145239153`*^9, 3.440764530111457*^9}, {3.4407650208842697`*^9, 3.440765036680558*^9}, { 3.440765114017063*^9, 3.4407651415282307`*^9}, {3.440770666464899*^9, 3.4407706668763514`*^9}, {3.4407707557635317`*^9, 3.4407707636120234`*^9}, {3.4407709341107883`*^9, 3.440770939693635*^9}, 3.4407757760528393`*^9, {3.441074966973338*^9, 3.4410750182689323`*^9}, { 3.441075060466386*^9, 3.441075060918523*^9}, {3.441075108204926*^9, 3.441075123190906*^9}, {3.4410752494866333`*^9, 3.441075257910892*^9}, { 3.441076600944931*^9, 3.4410766021321077`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwVyXk4lAkAx/FhPVI2wjhiy1Ye82Bq1RPZjX5vYTdF5M5Nu5JjiZ0ZMx0i NViiyYOxtdRjXJtpQ+7ZV3KUcUaN17hytFvpWIVSsu0f3+fzx3dTSLTrT4o0 Gs3pc/+79nTNAaGwjIwxSt3v0cIg3iUmuiTxy8i7SVt4z6oYxOQFR88IVhnp scZ8IEXEIOqyJoNtDpeRngt6UxMpDCKkSI37WKWMvN/4c++yM4OokYaWmMSX klGWoYKZcWMiUF9XqcGzhJRZzQTZKhsTt2o5kmEtESlaUmcvRRgRNKm/bgOz kDxlnm8nP7KJiM83upy+PZdklR7L5j/cQDyRx9bviU4nT+WS67jkeoIuDXxQ +/wEeWOV1Y/2i9qEdXmlaklULEzM9Be+f6tJ6G119lZ9mo58/V3JM6briPNV luYlhnnoCWvPjhGrEq7cwcRdgkIMfWFq0jm/irBsDkteZokQUCKk5AlKxNY8 sThHuRwGf8eO1DUoENdTAop3nBVDul4iW9/6CZZ9v/jmVdzCZGGn1UrwEoqM Li+e/bcKXj9oXFMZXYDkS8NC/dAajNWYGWdlv4G2QtBNi946HM7Y1xLZ/xoL Eq5rg1ojgrMO3mabv0CSmoLi6zMStH+sL3+p/BS5jGD7zDYSArUD3Q4VM2CG 53ZGb7yD2qhXdN30SfzRPiTydm/BbLm4c6p/HNF85YNs1l3sZPZqXbokh4pm BHtW3ArDOc5yQY4MT2hNEbkDbVhXWemtFDKIKdYx+rm5dhD+rXEZJf2oqXaw 7TC5h+ms00V223vQ7aVnTTjeh5vAuWqnZifqWzc0avA7kdpgv0i3akdb7ekX W5qkyKrPqOa8b4GOeufT8JEudMSIVLv8mmFt7hS5RrsH1To+cQ6yRpTcbqob s+pFQMOHZfmzWgiDbEe4Zn3g25/zDsyphoPUtuDP9j5ElcyPlnJvwSDsu45E r36ITX3EMfMVGDruuCPhbT+8Vk+oC1zKUHvVXVGX/wDy0dKGN0IRiulrmL06 A/h1/+Q1K851JLwezquqHICszTBex6AAJz9dC99hNwi9IPFuRXY+gk8kJ4w+ HkSrda7E3ywHXgz6y9JTD7GyMG5zRyhAtHr+HbW1jzCBSNoIPxOxfruHCsse QdDjlr/nUBpy5Q/cunfLcP4jT1uXeQFdV3VN9KUy3HWacFGsS8JsK2fv5dAh FHbVTozqJmDbxp6/iheHUOfs8qpZj4eLwxpp25aGcMbGpmKfEg8vcjw8aj4O oas9IGXgFRc31EeftylQOOKbGbm5gwsThVm9GVUKiYGOnXFsLoymV8dt+ZrC 0szeMbksHgbl9ozC/RTm5RYUT8QBLzR1jnGQgr2xdWqXgIPhzd2Sm06f/zue NvMsB3m/ubuTrhRqHn9zhe7LgU7G0cQxPwopPZWeaRocaMYkyr86QSFZDEta IhuxzLbiojgK22otLcyi2ej/RyWWyaagpRXGPerPRlZwlor1SQpsIvPGh2/Z WOtWYOF7nsI904dN99+wEKk+RZviU/A75DPtP8lCl9S4KzyNQtXK+KqVPhbS 7MQhvEwKA9PNG8PELDyjzW1VFFAYrafTzK+y4CCxeJ+aTeGit0+9UjoLpVxu q0YuhcCaK3uf8FhQsZRkCoUUNv0+mzl4nIX/AKLCXKU= "]]}}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwVVnc4lg8XRkJGhBCZEUlIKOE5j72JEKGsrMoMoWTvvULKngmVyHxQKPPl fb1DJZVkKzvS7+v761znus8f931f93XOEXb0MrtBQ0VFVUdNRfX/ynK/ST8v rxrzOXNOjObsOXQnPPxSRGw1Zs9TNW9+7Bz6NcbQ8qZ/NWZ0gL+ukvoc+jrt q4OqaTUmSaE7bzQuhzqWHQ76wlCNdayyLDrdkUObBl0qT92twpKDFQYXu86i 13m5aVstK7GHHV9uevrJovqCXw+ValZiQbGbC1XXZVF50WesSXKVmI3pIY9v BrIoo7QG37XDlZjQd1k3K1FZtFHNS46mrwKr5txz+90ggzK499vrK1Rgbxrs jeripdHnzYEdkxzl2Gw1WvPGSQr9a/L5IkJVjm1p2yf3gxRqOKf9unipDJvP Z8oS5pdCZ3m4Xrr1lmG1ksJisuTTKG9wY9VWQBkmvRozmWN8Go1S+ZXJPlmK GTqkf3bVlUStuj089ItKsEJrwWxmBwm03Hr8x7OkEgwNVHy5rCGBrv1SunEk qASbzjIaGzkpgSaLHLInm5ZgDJxFRw1XxNGeyEoLlwMlGP2rT1HxoeKolPYM GuFSjBFaA3FYxUmUatCOu1WqCEvfsanl4xZDDz0+qevBW4SlVR73WqESQ9m9 Vu/yMhRhKZafznYviKK6J2lebfYVYgmN15pdOkXR1CZd5UD5Qqzy4KMrm26i qABpQieY9QnGS78cqdtzAlXh+Wkf1vsI27bD46fiRVDj9vCe6aJHmJVIpDZd oAhqb88hqnbvEXYQjbIZchZBo6oUf1Cfe4RdD4mJtkJF0MEL929HFuVj7GsJ FO9tYfSqNWNwTEgeVjxuzl96Uxi9my+amXT2ISaQInfwP2chtG9Zf6qM5SHG jKiNl1oIoZxqPqc65nOwvWWTQl1tIbThRwe2XJyDkYxuK2WIC6Fz8leWjNlz sGs0RaOrJEH0ymi81pH1LIy5q9nk9qoAqki7up3dmIGJhzM5ayjxo1FXjmrU pWVge6n7tzoF+NHxGuWUvlsZWMj+3kMtWn7U0zROdFs0A0v+SWfJN3YcLX8i bGqVnY7VE4+P93kcRzmVzGt4A9IwWhZFqtNlfOjsB98WxCsJQy8GWeDO8KLM uLPS1sJJGHZJ5ELTUV703NufJX74RAxcB3kL9o+hYbWeSVXnEzHVLP5p1+Fj KO99j+vsVAkYle9IQa3nMdREwPHgbFoslpeT0UbVzIO+tjc1TX4RgXG+X2at teVGp8zZ+iqdI7CwbiPpNh1u9KDe6MUergjM+jNTvPM5btTsrJHodnA4xsgX hzQzcqNL1Hrb9hph2Kqj2F5hCxeqrh1+0b0qBEugqfPX5udCOQevjzcv+mBZ q9FJ3ZucKIT/sDS76oNRPn/bP/adE/U47/Vh6Z03JohT8/IlcKKhOvvvNAy9 sOLW21xjLzlRws7FZe5uDyyNcWzJwI8TDbNpUuiqccDkuksoppscKNV3G8kf qmxQrbhij9JxoBJnztOWGkiCh6el0sEddnTuXJHSKRVFkKroPDIwz47qNpub 35LXhLqjqT2Xh9nRnZ26L8myl8FprOXbShY7ijtmW/WkzhHUkymjV8XZUZWa F0yVt33BlOph7pDlEfSPlfbABSY/OKTCLCmidwRtp5+MG6jyg57A8LZA5SOo 8g1qupVvd0CG+hLeRegIelHoEpXC1UB4fuXXuPkiG6qUs7zRo30PDp2dSQmN ZEP51Di9VlkjYRnrYc+7z4oG81wzfn0tEuqV+A5s3WBFJ1crz4Q/iwTvl37r ZsasaP4T5SV2gyhYrxAlMAuyorx/HN0VY6IBl6b+qb3nMMrb/Nzp/p9Y4ChQ y1pkOYzynDGxYppPAu6LV0w+vmJGqSq8nJ0Vk+HsZNH96mJmdE4gzbsjMhkM gheeBiQzo81sY3FeAinwoPU+w5EbzKjlhlkL/nIqnDtW0HH1KDM6YHeaxfhz GqiLdUxiQUwog5iMJ5d+JhS4rxy6e4kRjX6pKFspmAs7QTkBSnIMaMS9KJNW jVzotcFlmp5gQEO1xj2HXXMhQ5XxuTsnAxpAuv1svT4X/Fm+TX/bokfd9sok UTQPwlyqKa3t9KihBocYxT4fLC6sPLLVp0c58avHmEoKIOvqn88pnnSoWRAh /HxGEejGymikkGlRz4GpvL7yInhsEhoQM0iLxvPNP7doKYIN7uHq0E5atKtj /4vfdBEUVnmweZXRotI04uoN0sVQ4e9w3sOHFmVKDKI5NVgMzebMRVvMtOjb AoFIXtpS+CDU9nff4ACq2OUWte9fDqkR4770P6jRHNKReYgrB3Y3diaRT9To 1kqrUUR+OajeXGq3xVOjTfws3PRYOWT5FAmNY9SoQsjzajaGCuC1iDn+Lpca lVfcHTmRXwGNUw8YPA2pUbnaxGP6nZUw5FFIGn1NhZ7JravLoauBSFP1Ryu6 /0FJ3LUKubA60LyiXpybvAeKuDs2uc+eQ93LIDpV/h0oE83cDvv1EsQaSzMD bDehg1mwiNelCfiP3+yS6luDo9T29Qqjr2GPsarbPvUnbHUEmbUeboNbe+lo 4t1liDhMTfMztAMuCdravF+bh4fiDlqpvRh8aDmcV039A6Q8Hg54CXTD4Kq3 cOmJGXjaRy63Mu+BsM/917jzv4BXLJ1BgP8b+Dv2SyFsdgoY2G8GLNW9hVMG 2WxMFZMwS9V+8yG+Fz635vCX0pHgm78rZ+RaH7S4pEcX9uKhqVFPo//UO1hU dRD8mIyD4Ss8Kqjhe6DhQLvSagah5S1/25HYAbDUsyeYXe+D3ub7yyfaB6HX zpHU9L4buFgH5j0+DsFvnTkVWqF2yOcjuBp9GQLL2xWMtDTtICgx9V1mdgie ZTiTD8y0gYTa2peN1SEISG6h0qpqA2U/3snQA8NwNXXztq1cG9iTPAYyJIch /0TYxXS9VqguZHraencYNGWTIp1jX4OKrNEtxqMjEMEQvjmj+grMVkI78o6N gAh1R3jbyVfgVttw+JTACPT83mHJYH0FmRKcz3XER4Bu0fskfGmEBaEPm1FK IzBLjwtjim6Eh0fcH/xnNwK497eUnHAvYW0tKmOjYgQ0Me+FVL8XUPmq/fXU hVHwM2S/YEKsB+KnNuYrqqMg/9RV8XFDPdDStdmPqo0Ct8Ot5zcT68HesoWh S38UPg35VzKo1QPP9iurYttREBjisbpaWwcJF+p3nMJGIeiC1vHEhGdwq634 wnz/KPxJdXubafcU8r8VJTkMjcJlZPLslPJTeMdUNE3BjULNkkGhBO9TELN9 EjdAGYVLejLBHcQamPqTT366OAqcGgq6WmY1ICGor9JMjwO7h1cvmhhXQ569 xseg0zh4ycmhx2VbCZqOJs2zZ3CwQpX3TFS5ElacbDIuy+JAcVmA/RzvP9zV T/eMAg6ebn2n7qdUwOrt0sZpBAc200V9cdYVoBVyIFnHDAcRw3cc5a6Xw6/s N6pHg3BQ6+TCKBpVCgUPR3kiQnBwVNCVOcy1FLTzPqyv3MdB4qTr4Y/6//CC 9ep3ETi4ZurOnnWkFHRKT3DdS8LBSTtrjwslJfC4IXLlayEO5E4/vTvVXwx6 gxqFDX04oAmz0D8gWQTt5d++rb/DQcpB31t0HEUgGxYpcX4QBwJc/PwcO4XA pfDmeccoDoykUssFCwph5on62wEyDhi8uPsfzT6BUF+1+ZkFHGx92o3Lin4M L479W7WsY3DpzTBd2498ENuYCrQ9Mgau94b+6mH5kDsS2l7IMQahCoNb5Jx8 eBDZqXWSZwxicoM357TzwXBZ1eqc8BhU/777+2ZNHsx2qdw3OjcGIUpBR2Pv 5gKf28X+8CtjoJXSn72nkAMiDbPtm9ZjUCvg3PaKLQckdjJeuNuOAYPBBaf2 xWxQjFt8bOowBmWl0y/eF2eDWVXBHeGbY/DGw/mpIWs2JMz9Fe4OHYPBa123 SRuZsOv25h5VxRicOuJECfyaDtTPvXzvVI3Bqr4LObAnHRh+87nN1YzB3CF8 y1xJOnDF37mMqx8DUu3tM+iNdJCrFpMsahmDV2slnKvzaeA+H0uC4TGI/2vQ 57ObCmR3Q7kHG2PwUoftwLmYJKhKSEp/vzUGmgx12QTzJAh8OvST4/cYzL8z kAg4kQRcy4b1Vftj8Ft+1vNsTyKYextJjdONQ/iCpocTbSLgAoxPih0bh5++ pgchMx7eRV7iHVQdh0vKxipyX2Igtywt6Cg6DrjH2ydmXseAay+OfF19HByo iply0mKAjt704Yb2OPj2rk/+hhjQTDDlFLg0DmfTS297FEVDV5rZYR/HcZAp vhyk4BkFzY/Nabhjx6H+PtWTzHMRkOG399Uifhw2Ggk/NNkjwFOv5E1W4jic Xqo6u/UzHE5urkaxp/3rR97SD9eFQ5ZhIv3hvH/8q/7KGsqEg+9eN/PBp+PA sTr5FjkfBtLWMtzrI+NwudJmVIpwDxhliNtnx8ZBNMO8eaDgHszS3id748ch o/w5X6brvX/5HshbIY1DzNDNmRP7IcDM4HJ8YXocLHmn/bUkQmChqUD4y9o/ /nXLg88zgqCCk1FqlAsPAvamM79LA4DLqqMDOYYHR7+Ej5J3AiD6kbdJHR8e WmPeEGw0A8BZhOSbLIQHy2cKvR0z/iAsW9ZiIImHPoW3o15S/lBggOi8U8XD f553VPzf+wFz6i/yeRQP5qsvdjme+EHIeJlHpToe2rx+vX7h6wdXrZlSYnTw sL+RlWEq6AfcrmSCpikerEakysSDfSEjwtex2xkP1gotV/6o+gBNn9iGrCse Dr+GrmIeH/A5RIkucscD/mKfhM66N1xKg+oHnngwQvG/06u8geUJ80/Vu3iY s1ljHz/qDXEtFfdbE/Gg+FFhW23/Njz4OZn78gUenKVPhghReUATs0jW70Y8 eJx+fsmt3x1WJNxToRkPgc9y9H+lusM1h+3owTY8YCSlLCtRd0DGOfy+vcWD sVSYuLiRG/x9aWjEQcLDcltmB/VLl3/3PFPXmoKHg9dqTeoiXMBzaVKj8AMe jlP1frlq5gJTou4XT0/jwVBz62DjrxvQmR0trjH/T9/30f1AuRtwP7CT2m8P D2vrs4nwzgkaMw/uv97Hg8bYA6nlAidYqjfc+fsfHiLqeIbzfZzAdm5yJYGW AP+56R/e4nUCFevtDyUsBHAPuhOq6ecIfy7KNo0LEmCdbFx6T84BQv4We8hp EmAXYxLjw9uBdtwmV7U2Ae4UD2rzx9kBO7veG0E9AoxFJLoJqtpBjdhPPhZj AozGNKTfr7MFsiEy/OMKAZwSsp7qZNqA/KNJmcc3CRBtZbO+FGwNVGLSHzk8 CeDRMrI+p2wNg3XhcQne//jwqm/M/LECxx6JL4H+BDD+KLH5MdQK0ucDMswe ECAlU6foUvwVWDnPsUmfSYCb4j4/Fl5bQGu3S3FoNgG8irzn18IsINqg1Wjz IQHij3kv7upawPHrDhVfCwjw6URVXN2kORjE1F/pqCCAtEMxfKQ3hyqCQatv KwHMg4Z5r94xAwefqAefvhAgUG3mXbCuCVxoQJ7pzhCgPj3TLXrbGNhWdyZf zhKg74s6Q1qFMXTduq2YsPjPv/BinXJaYxBys1xW3CSAol98lR3OEKauSdik MUzAde5esQdR+tD0+GvcHuMEdJqKfeJX1YeUjwVNLiwTwJ8UndW+qQfI1SPs quwT/3JR85fLUw8eW+y+m+ebgD5zRWl5R12wNRxS1JCZAOFtGx4FV22QT4xx rjs7Ad7V+w1WUtrAPIBmHJOfAMymUO/eLy1o13m1vHphAq51fQ1+E6IFfBpP ygrUJ6Atwv2jULYmTCp5s29ZTIAx/Ef+PKMOV8Q5V6ruTcDqpKX5cA/ADuIY vRA6ATYmNsmRngC5lg3HpcInYD0hzSyHF4AcbWhQHz0BaQXv42nuI3B1Jqrq VcoERGHKO5NqqmBXvOnYUzQB5I85PQMrF+Hva43dA6UTwDq0toOvvAhPcOnp WuUT8O6hazqP00WY+u9M17vqCVCWMe0ppiiB/TUX/tEXE/Dhl+Gz/f4L4MRH In14+0//E6sk5UFFoD0n5sXfPwHSkmd2XVIVoUzfj+76+wmwaKJ2y7isCDNB rApfhyegbKRGY/6DAriQdTLmiBPg681yv2ldHtyzXxtuzv3TX+OqQgXnwIs1 v/swCxF4YiPF1uVloSxr41A4KxGKP8d+4aOVBfIxE7P1I0S4582jHF8hA6go 7TcSFxGezhUWd89LA5uSJ22xEBGW4h756IeegQZHdZ1z8kRQGauTcR6VhJkf BanlikR41o93MA+VBJ7b2yRuJSIsWi5IEGQkISyw1u2PKhFc/Lmb8Rmn4FIS V0KvDhGY6NlwzXYS8PPVwtAVGyLsXkv4NC18EkSVtY4O2BFBen0WFKbEwKqr 0E7FngiOsRol8fli0DVgviJ0gwgD9X9c5DjEIO1zJ+uCJxEwC0wp8agonD2U aXYvggg+0lzvZRREwCVlOX8ligjk/uHp3V1hyOfQ/WYfS4TL09ZbJ7qFgUZg 308riQjcnVnyGhbCMC7nmn04hwiFQYzPw+8Lga+tMrmomgiTR5XJvz/wg2fr qYT5p0QoetmcVxzNDzd5eFTk6oiAmsrb6MnwgzNho/DNCyJUJJ2Zyo04DpaG da6zbUQIC2s+bX2OD5RVhLdPjxCh4VfRocYeHriQz1p9B/fPz1wFA9JdHpDf 2b/aMU6EeWQgaVeaB6QbJzuNSUSgSVpnVXvEDUJSWTE+00Swolc6PhnNBbTH 6bma14igcGtL4utdTqAK3uz/b4MIn2aUq4lKnLBP+haku00ED7vwU4O7HLCV 2fWJskcEfOWexM8wDphnCi7/Q0uCduQR98lcdhjZW5JX5ybBlVXXEzDNBgPW H2YTjpFg6YzCaHING/Q3v8/F85FAgqXOji2QDbr8Kv44C5FANa2pnImTDV4s Xn8be4oEOKnUm7QFh+Hhh/HLw8oksL7qv6DRyQRFK+KxjAgJxqSirKduMkEV 9f1WHZQEnv9lvLt7jAlaxcWFezRJYFfWUPHsDiNM+YWsNBmRgOkoh0+P7CEQ ZRaNL7pOgrDekRNXP9DBGcGg9k8OJODJ8bJMz6YDRbmRVV5nEtS7sMW/M6ED Xau7ltluJJiiN1tRfHsQbpYNnUjwIUH1qsWTRy208ELFv9MvkgQBETzBbv00 0GYy8KshmgRDiY403kk08NZRUGzl30snkl2bEGhKAxNx7xPdkkgwV4k+ivlA DTsEfmu7bBKEcOXrrFBRA9zuW9euJAFYLKVq9P5FdMP4xKOqSbBjIe8/7vAX uZTpfbX7KQk+Wd676vB3H3Fs4e1WbiCB+ekKFmfYR2IOeqXItpDgfabS+zvj e8jQY+5TvIMkYGCL7bM58RtxEwhiiRsmwVZVb3Huux3kYOHkr83Rf3w3RTaM fXYQpOhx6xiBBMvxIo4bA9tIQ8kJw/gpEsi+EEYgdAvJqpTx2vlFgryCrk16 4Q1EViL9sssGCTqVf5oYfFhHhqvWzhO2SNA3KViTkr2O0NW8omrYI8E6z4Nr RxnXkbu1yhmuB8mgqjvTfYVqDbF9rvOKyEOGoWPG1zY4fyI7Z6vzNPnIcO3k J0eVV6tI9gvG0Bf8ZNjgETiUhq4iIy+HtVNEyCD0c+/s42srCNp0mawlRYbw slPhwo1LiGjb9b1GIAMhR5kpPmce6VLu/iyiToZ2GsZDaufnEbt2kbdpmmS4 cam7xG5qDsnp+J50S48MHxdliDlScwhD100B0ctk6DzFEbUxNIssvQ1Uy3Qh Q08GwWL40gxiKnA7leRGhqwDItqjTDNIU6DjJ76bZHC546U41vcNCZM0Cirz IsMhS0buCZVvCGeayPNXd8nQnzo2K6T0FVGxGRYiJ5BBPES50cNiGilu7PE8 nkwGfinJHxLHpxG6w6/b7VPJcLL1rPxI72cE11ViNZ9Jhhw7jxXS1ynE+eTd tN0CMjClXzRbUPuEJP8SoeKvJ0NQ5XG2z9KTyJo+j7HDczLM30m0Z8FREKsy loLyl2SQUd9tUPahICJXds5LvyZDoL19YFEPGWlqH/aCbjK8OamcMeROQqZi 7352wJOhUn/lV+AiAdH4cvtMxQQZGAfc1y4UEpCqi04hCyQypH6RFOCyIiC+ y0bcfh/JkMv2zB/3Ho/QXT5hEvX93/xw0tNnz8YRaYGRzoptMjDHPiOdrsMh KZNHEqR3yVBzYddl8BYOWc6xsGj6QwanBe0tj9M4pJb102IvNQV8H3WdMjcd RU5RL/F8Z6KASG4wFafjMBLXITNz6zAFuEelPRIWh5C5IL/6DTYKfDz4DU/l P4RUrO1q0XJRoNfPoHI5dhARnTnkd0KIAhxxbD/Yye+RqCIj5KkIBeDFzsXa W++Rb7bph86JUSDn43SKFvV7pGSCp0hdkgJf1T6xfD//DhHqFx92kKeAhXv4 z88v+hC+Gi3xIl0KXHcsvYEsvkGCXeLXxA0ocLvWUabk0RtkUmS4o96IArZb wr8PGr5Bch+Zm2NmFLibUJQ0XNuDcCU7hU/ZUoCo/l3xy71uJECv0tDlOgXy HTLFF+S7kYmDi9wrDhQICVPjWV/qQrJCfev2XSgg3Pn4N61dF8LuHf7huA8F DgS3u/2o7kR8pXoryvwoUMD0dnZKvBMZm2PwlQqggNvjQWdieQeS5pDGoBJC gQq32oDuZ+0Iy+VCBZtoCqQIdRnzk1uRW6zfqL7FUiDrcK9mo2MrMjR4csgj gQIeL7Nfta21IAmadY7BqRSo4XweSxBoQRao1s7QZFBAqLfz53Tja0SvQ+F3 fBYFuvyHrJf1XyNVQUFvjzykgP3JyZ7f080Ig2JHal7eP73EH6fpApuR/wFX HeSx "]]}}, InsetBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"D\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"E\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False], {0.125, 10}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox["\"\[CapitalOmega][\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[CapitalOmega]-Ratio Comparison\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Normal (D) and Unleveraged Bimodal (E)\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.44107506214283*^9, {3.441075109061187*^9, 3.4410751329523478`*^9}, 3.441075258273673*^9, 3.4410766256337557`*^9, 3.441077271194831*^9, 3.441077747599173*^9, 3.441124276847353*^9, 3.4411313215394*^9, 3.4413826372613697`*^9, 3.441910692150782*^9, 3.441989179403502*^9, 3.4420102899019947`*^9, 3.442010341218337*^9, 3.442934738781198*^9, 3.442936344467184*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gOmegaOfDandE", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.4404610224942913`*^9, 3.4404610267556667`*^9}, { 3.440551022455552*^9, 3.4405510255419197`*^9}, {3.44077124883039*^9, 3.440771283327057*^9}, {3.441077069867744*^9, 3.441077074662794*^9}, { 3.4410771050992413`*^9, 3.441077108937051*^9}, 3.442010232312457*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gOmegaOfDandE.png\"\>"], \ "Output", CellChangeTimes->{3.441077272797139*^9, 3.441077749085194*^9, 3.441124278231642*^9, 3.4411313231058187`*^9, 3.4413826385571823`*^9, 3.4419106934947863`*^9, 3.4419891807861767`*^9, 3.442010290165777*^9, 3.4420103425475492`*^9, 3.442934740162644*^9, 3.442936345967704*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gOmegaOfDvsE", "=", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "nMN", ",", "nSN"}], "]"}], "-", RowBox[{"x\[CapitalOmega]mx", "[", "x", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.05"}], ",", "0.4"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\[Tau]\>\"", ",", "\"\<\!\(\*SubscriptBox[\"\[CapitalOmega]\", StyleBox[\"D\", FontSlant->\"Italic\"]]\)[\[Tau]]-\!\(\*SubscriptBox[\"\[CapitalOmega]\", StyleBox[\"E\", FontSlant->\"Italic\"]]\)[\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[CapitalOmega]-Ratio Difference\>\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "\[Rule]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", RowBox[{"0.2", ",", "Red"}], "]"}], ",", RowBox[{"Opacity", "[", RowBox[{"0.2", ",", "Blue"}], "]"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.43648929915808*^9, 3.4364893639011374`*^9}, { 3.436489727400113*^9, 3.436489819696274*^9}, {3.436490672671357*^9, 3.436490688982956*^9}, {3.436490794829678*^9, 3.436490851351818*^9}, { 3.436491266703106*^9, 3.436491295726667*^9}, {3.4364913528507643`*^9, 3.4364913600243464`*^9}, {3.436491412999234*^9, 3.4364914202346907`*^9}, { 3.436491540682261*^9, 3.436491547305365*^9}, {3.436491787236704*^9, 3.436491796877301*^9}, {3.43649183588621*^9, 3.436491853483527*^9}, { 3.436491966343858*^9, 3.43649196706742*^9}, {3.436492162449987*^9, 3.4364921850973997`*^9}, {3.4364922373202*^9, 3.436492276867989*^9}, { 3.436492321267929*^9, 3.436492332254148*^9}, {3.4364923774412117`*^9, 3.4364924001772203`*^9}, {3.43649243525275*^9, 3.436492505011195*^9}, { 3.4364925483238077`*^9, 3.436492549072056*^9}, {3.436492621072095*^9, 3.436492648575245*^9}, {3.436493090869013*^9, 3.4364931039675083`*^9}, { 3.4364932012169533`*^9, 3.436493214351371*^9}, {3.436493278939233*^9, 3.436493295424431*^9}, {3.437249140604026*^9, 3.437249156764061*^9}, 3.437249227625671*^9, {3.440460267938094*^9, 3.440460283893502*^9}, { 3.440550603344738*^9, 3.440550655984996*^9}, {3.440550686555179*^9, 3.440550814088379*^9}, {3.4405508600997667`*^9, 3.4405508615492277`*^9}, { 3.440550923723456*^9, 3.440551010297247*^9}, 3.440766411776222*^9, { 3.4407708211306133`*^9, 3.440770852071034*^9}, {3.4407709485739326`*^9, 3.4407709539667177`*^9}, 3.4407709991292477`*^9, {3.4407713804917727`*^9, 3.4407713808150806`*^9}, 3.440775431313223*^9, 3.440775564846167*^9, 3.4407757817146606`*^9, {3.4410752259761477`*^9, 3.441075302134831*^9}, { 3.441075340871504*^9, 3.441075343595819*^9}, {3.441076594645534*^9, 3.441076596467462*^9}, {3.441077661835198*^9, 3.441077679169938*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJw9mnk01O8b94dKClnL+pWlLCWhiFKXskTZKrIkIYnKUpaQfScxZJeMsc8g UZYs9xhr1hmkwSglW7K1Ssrzec55fo8/xrnPfOYz9+e+rvf1fr3PGUkH94s3 WHE4nDP28n//cwXWnMvMLEUy9q2RE4LDSIttn4vCh2iE+39/XPHS7mXKr+B/ a3WJdRY3Uvf/X8+M36s/5R6PcM+dFempDUig59pg7cJdFBIq+eCkEA00SVUc xa73IKRchVH4dhSEDplYcszHwxyjtst7kwmR1WpKxXszoNIneLXuwzhc9BsO PZZMgJBPQ4ffzzNAjeIc8de7EHxlNNTyO4bhUEZFRRobCXq/PvLhrKIBMca2 SCWkAtQFRqp3vHgNajSvKxnlz4HgEp3MK0OFgn2Pf4WsVoPEkdERiR110MS5 lyDiVAMSlvx1d3pLYTeL3TPVgToISSXI4MLx8LPJ7+KrXQ1AoWbRpbaFobBd LKwrQU2gdUFH4PKDHJQua6+b2I4A/+Jc44ZuIVK4ld7tLt4CWpJCXRTfUkTu YBRamlGBQGBPt+AjI/dotvM+3q1gqrib16+YhNj5bvt8qWgD067PGZYPStAM rvF2+lA7+OpJyP7cV4imvG8KhH/tgK7zzgn4FQKqeWGg3SnfBXgL2cEnl9JR n4WQppbha1jZyT5AiYxF9W3/NfBGd0OI09lHS08vofbawEXpxh6obHw5yLUR Bnu4u+dvMXvBzCnOxcQpGTSVjO7s3N0PXeqOv5JuZEHxy8a6d+oDkGzaHU3/ lwuZdtpMv4M0uOLz7WYJLQ8MerRzKztowOhPvWv8mgiizsc7Qy3oEH/dZ+re GBEYLoYqwd/pcOuXqMm2w0SozTFjFYweBPdmuaFdXHlQJLBTYWDPEOzSqOy+ p5sLwStjGdVVQ7AT1+DMN54ND/7l3VLRGQahgquxtIwMsL8bETzxYRjqRExn hZVTwUJWYKkk4A08zk5grxFJBnfurJZdXCNQLK118yhbItyzOcEglI6Ak2V+ URRfHKSPD17qO/EWDkbj6ZY8UdCbIygv0vMWTuz8S/Qgh8GXtvunHzsxwOIj p/9LrmBQFO9vLvrFgMuO1o6pAv7ArtaUmJk5CgXvY/dedfaG/+njf/3+v/f/ t66zu3DhUVUYCnn3X5R8FaaT6SsHZk/ywMrEMUVHbJ+ipwXcl7nDwXfb3bhe KSaw7z/stufcY7BMz3iw0s8EgaFlYQ7iE1CvySSHJY5B2xPxcJGt+UDgvTvi PT8CruvhpfEDVWAH/IkPvjRBpdBoT9/Bl+BBv7tF+nAVzEch2ZKsWpDg+2jM EUaAqPdfcGtL9YBrdMq4r3MTNJ1OHnij1wghlmPSctIpiFP0eT4QmwFP3L9F 0JqINv7l12SHUECC+5OlTV0xuiOkru5Y3wJ25q5pvokkxFXs7jv7iQpy0Yuz Ifxk1NhbZ6fM1wZr5rVvbraXovux/KunT7eDhI58etPXIuTYwKvFdb0D1qTW PLWl85HbVP7ts4a94LwvJ3unRjyU5nKQX/n2gVCvhq5Hfhp8/RqR/L2oH7bu shiSc82BOw156vOdA8BeOhKhtC0PVlNbT+72o4GzufOWN3eIUCUMR4S56aB1 qSlDap4I686tAbgiOvzsbujYmUWErnBTkZ6Tg7BRcf6NODkPFK0OC37rH4Tt 3nrXlK4RQJSkK0vQH4VYWZe7f4n3wUTcYdsMHpt3R6nX9nIHQsiVGlUKyR7h dLq/FtgNgUba4neqXgB4DDhwiKmOQ/fVg1zG7/GQYb1s8R03AYba/PtH7bIg JD/30CmdceB46Mcq35MHJdciBm2X38LFGwFhyaeqgJBwod03igIk8Rr74oQX QGlW4H6w4yUMGSxft8fVAm5m9FkiWyEYe8gw9lzD6qcUn26PCwfh5CvNnSRs HrXJKpinPEKdAqOD6TzNQDinETRJJCBHA1LZc2UKrDzceJCcXoQMW26yfL7d AoQa42/Be0iIqbaPm/CEChLVXvNqkmS0h/T+zVBrKwitbvVh6pAQxQgdEVxr AwnjzWVfSjHa/27G/KJoBzCY1n67DhagrD58merWXqBd5DnPVhENdm9vdScf 6IOy0CuCF1JSIJ3XJXjzaj9ohklqMn9lQ5z6s7XrIQPw1+qUIz2WALoPtjw6 e5EGk7d7nbJkiRB07/T8p880cN3+2v7CeyLEzf2TbAmiQwBOrKUDEYHmYyyz X3gQ/vkefJu4kgf3/rRwbiMPgp1xk+bBOgLs+7TDU1piFOa3TI8Thn1BQMOM JOKDRwTtwfe3UR86oxd63KXkAcLNj10xJnUCTdim5GmFA6zIasQOKzBApPb5 9cCNaGBHEnfzapmg90Vl4N2LVJiL+9J47Q4TmA69u05OPQUPgb7FsrZR2GxN XFg6WgcUJuet70EZ0GxcLT8ahOlcmuO8Bu8tdO343rSPHzF92c4f4NiWiS5K xnrNHkFAQyqPOz7lo5QXOZTIAQrYbXluWVFRguLd2d3fsVEB564oLP2RhE4J NnxQPNQKuMMuf+9+JiGH5aSFBLs2sEw1Wr6jUIq+3ix7+LGjD8yOtmvUP84A w2FC4fxyP4hF7b+03PYU5Pae06zdTgPusS51wXt5kFMZvvQxlwYli01cfUQi zFA0A42O0CErI7fMdJYILvPRb6GPDjlDr5qzXIhAwV/cdddhELIMXJnDtnnA 5xE6LnZ3FBqlXqfvDvYBkcBb1/hwcQgnTnR6gy9Bw2vHFwVbbiG8bO+NWhod jkuY4lSt74OS1nO10cdjcPn7xfqhS4kwJ/bjpdz2CXD+U3BASysThIrnfeTS xkGRVfZMpWIeaJ2zIP11ZUBb1prb7p/PoSug7epVsxYozitQENB6ASH23PvO RtaA/sHtrKeqazB+WDv2yK4YqtRbtWUEMX2MRp8xXogF9pJb7C02DaCluZbY PReNCnhdP7d2NgFlu7bv8Tu5KMOtvFhzJwU8cp27cT8KUWPq5rSCbgvg2rsP cveWoragIOsAXyrYfeWacP2PjKhCnjyFT1pBf1jY/L0fCX06vPtN6BBWjxHD 6hsSJSjKnT7p9asd5D55dNJKC1Dlme19CpM9QLiz9auLVSSc8BQZC9rSBwy9 Me2CkMfwWWL8R4RGP1Ruu5FvqJINQr9eWubZDECvlRelQo8Ay675LyZP0cB8 8Lvv4X958OnpmbZuBg3uaLwqefeGCBdLnnhJ3qbDev+na5n9RDDzMFIYZBuE F/BwsoqHCCmGD7fvyhwE1bxcD/kpAsizfBGa5hgFRdPe6M57flD4VPKCZWoS oglvqkVaD6EvLAa/7LRDEIUhRpxup8LaWsWHR0qXgLAz2rVA4S2IbDi4qEVF gh2PqKPgfSYUsz9/6h+cAnIJPK1ZBUxYE7EVKKDmgJ0hSQSvMAZehcWxPbO1 oDX3YvJg5ROQEjRNnVPD9BHCYvZn7yFkbKo4OZ7SCJQguf+aiGnosPh/8fwL zRDS5Hx2bl8+6holNPCUUIDQdmxft3oJ2tAmXJKcbAHTK5xFAU0kJHNt9yGO Ha1Q0hH5zZSVjLht98vYabSBeuCHh1cflKL+LTbZ/bl90HZBOuFsbjrkTvGJ uff0g452ek2r2FN4t5HFIC8MwMreavm7J/PgbL70noB4GvCkitlXxRLBcPGk 5RFJOohbnqQWYH6iUrr/AKGeDpoX6/ZcCieCTtwFAXHTQXivSZqvjsyDPY+u h76zGYXJ1YevrLnvQwSyItdLRiIcXuWbY3I5WAZc36DJXUCEKqGcwO5hTKft XiWZIWCaseeWdv04uJwuP1klkAxrH0W0phaZoLSv+LmMFQV4qi5eWz1UjJhf BsSKk1tASblC6oMFCX1fet3aSqECz4/yqjGsP11OGGazLrSC78CbZ/nsJPTH ryRDpmAAEvbef3DhNQGyY67fqLhBA/5O7VoZQyII6Wnt2tygAeeH2vDaaSJQ 5ewH7JLp4EZOKdaoIAI5xiOKp9sHUVidWiYlemFf7eS1n223wc66Dk1xj4Lw PZxt2704KNkw+U2fZsLMwIvNM5/ToC7cKk3+IBPsErPa139SwLTdO/G0cCkS y/aIyz5EBQo54yPtLwldHrBLu3ihFfBz/Ys7e0noW9NUh0E1DdpbXtgdrSNC SMoJ4k1dOozFCYdrfCQCQf5zxPtJOqiaW+S6GBGB61Ku6pXIUeg4hTsh9tUb Qsrc4kuOPUQ4zRqblf5qFHT2b5e2oTuyC/5+avoPDU7cYGFbmvICif7FX66a Y1DLQ49xF08AOarJnMfWCfB561r+7VkG+Mp1bpxtHgdK098PnpMEkIgSbVsr Z0DgS7XpEfpzyNjbx7ra0AIyU6LJ3UIvAMcJmzk6tcAqxn+hLL4GtATD+p+l lcCnJ0m/D33D8oPuwp6lm49gU+VeeZNqA+CutB81xEUifp5jP63ymwC3u1vA wucpcmS1Pbd1EYGpDe+yTW4h+h583rJfuQVCtn9SUCkoRXXEgyG3nKiAz5z2 GRAiIyFaYzlXLFZvOw9lzWQS+ilB2X+spQ1i9ON0uI1LkFqdnkzUdDvgn/kK S80WoOOBZ67K9fcA/mqem5BCBMid/vrh+3IvrNVO4eJ+JMNjOYHnZ2X7oe1f fG1OTxbYXa5np5wbgERCXOCIFAF0bnrqH1KlAbJZG1uexfpdtfV50wANurWu f+4ZIIJazELOBXs6GLucWXg0TIQ9i4bPSv7SweEBPe2yBBFkfixH8OEHIXrj QlrkGgHKuCcW2llGQU965xn1Vj+4qGy075d/KKLU+I0F8lNAv9bM7M5RHag0 U9Ih5IxA1tMTX/jOR0AJlLvqXWQCY49HVNenx4AX+pEqUs8Etl8y6RYqOSB3 2elOh80YKKZVMzRaMH5KOn1gbOQpmD0QP7/Ch80fhQ/BjGvmoDuuGslwbQS7 owpCqw6p6KnYbHppRzMotXuxEyhE5HBHSuNyCgVCjHcPsf0pRkcVv7RTe1uA Ung9PamIhETCqRd//6RC13/twsYcZOS02721a38bhBjwnp/LK0WN9CP5OvF9 QJnv6l2QSgf9hfNvlev74U6fdLFDZw7st3ka0z06AIZhSnu3S+XBkyffSrvC aCBSuTnsEECE4PBmXRkhOlwykDIQ+4ydZ6zXJdozOoTF8Wd3JxCBbfuF9O96 g+AzpddtkZEHGdlmZujiKBQaBbEiy/vweekqw8QqCoXoxG5u250HZcJz1XJg jXjkwVluzzCoX9Bc3tEUBKYqkl+N749Dlsmd/Tj/JAgx4sv2/sOE7hq5w3d0 KVD5t45sMVWEBN6KJuoHY/PncMcBijoJzfHdn39egemZlqxpsZeMKF9T1W+/ bQXLCquWGBkSOjNK1tdNHoC7c81NL0oJsBJ65Pf6FRr89vQ7taZBhPNMyp/V bzTIFZDkPzlFhCL2yjV8DB34PgvZtNUSwWfWd1JTww/ZBaUoDKy9Bn9n8Yhu jZsQInkCevMZkCUwOkk4Fgv6545zfR9gwp53nrN4kzRgmN/o1TJiwrqkmLbW FObvuKMhCp9KkFlk44amCBU8WF/f/LdKQue+cTVqQSus2HAXEpgkpF9bbZ1W SoOEg/Mmz8uJUH2gMdFakw6ffvg0rX8iQsQOjQrut3T4bi7K0n2FCHh7PLvm g1F49uY+TUndB46PP11/QPMDymyzX93MGKzf/vw9WwcPQpxHz+RjvBNBrvZ8 aNkCNMbxkbBvpYhmTT+aEEeFkPD7a+XY+d2xl/fUrMT87HFm0O9rJJTlNSSR ok+DG5+eBSzyEeE5O3Xk7QcakOJvn+UZJ4Jbl9H5VS+Ms478/JrQiflV2pHM aT0bIITSLow/ewtZVnEzVi1RYIn/oiH6hAk+66s1CiKpUCchJbUazYQ2K7MP wd9aoJLnrscijYRUTjhv/0+0FTzEehb0fpHQ19JLYYfTaFC900DjaxoRhC2a bmkdoMPWr6mZK3NEeDL1ZbVnOBS69nE+XF0eB/UjS+aOzzD/mvtMnn3PhALW CNK2IkwvrCq7JL1ICNcj9vTNIBX0BRFrIja/pp8hCU42OjCJRgHXsftlDMiO z5Y/hMkiDmWbr0z4VLlPaF0L469tiQ2/d5CRA7naw/E6lk/CB1TCGkjoaRv/ kb+NNPhWtqD8mkIE43+vXngZ00Hyoqqk8TssP+hUOPgnjgLVxVd5pMwbjrSt ED2HMH8oDnLpqK1Ft465j3/p8kArNDWLsAQaNG4fi+ku8QStRC9dBY4xmBPH ezSFP4KYnWvV+1kmIEh30K3vZgZovdV4g6eNQ6zo/HPzegLYxVncvtTDgDGq OaEWPQf91uxm75UWmA5/27Z/G8arCmM7iotqwU4g0/e6H8arX5UurSuVwka/ 77DyhzrA9bNYvlNNBP+1H5snpLA81+BedScgHJ3jFtvYl9QEBD0F7o/rOehf yvtOg1EEEoH82TWehYjH+y7vXjmsn9rPmtc8KkVVR1kf21+lgu/pKqtje8io jWy/cTq4FTIUftaE5pBQcObuft66Nqhc/vsT71iCEmxYXicw26Ey6JapMlsh ChGx2y/T3oPlrES10LRw2Cv3bvrwTC8wI7TZ2SuSwbmscpe8OMarBD62cxlZ sJWtwW7g9AD88ME5AC8Blq5fSb6kRIN42X1OM8w8UAoJlzvWQ4PX983UvXqJ ILeWXOViQ4fPQU+4/N8S4T65d4X/Nx3Ypgo/vcbyn5sBsTXl4SCc4DMf62LN g8U0c/OaDQbwquaVdy34wTaDgePUPWGIYrd4Yta/CeaOEDTkNdVgpQyXkGE2 AmPLxYdCy8OhklNYIE+DCSs5Jv7u6Y9hbfqRlEU7E7huPLRU/vwECLt41756 j0F8ggZutRzzB0eHJvHPueBavk3mOw7zh7Enz6Vm7IBCqH972boRCN3lXPlt KeiNaG+O1wuMT6vK76fEE9Ez1alfvnEYn3UvDu8bK0am0nzB/K1YPdSFdL2z SUhgd+aNlUUqqBeFGh3iJiPeVX6+v6KYPzj3ONpXY/Wq21scHNYHzqEsXX0f 0+A/97mj/JX9UOevxXIwKwe6OAiTo7QBiGB5HBzInwd6mePflgJpsFw/uy3Q C9NLf1BjLj8ddPvEK9swPmX/Leo8R6LDyvTgq94UItxspzGunRkE88WkhNK8 PBiT6mt6ZjQKNcMNKdTA+/CEbXJJ5EcUwrGayTHGUuCyMynRrNsW4Q15Uwab h6Dum8C9mdBAMD29zVbOYhyqRs4LFyskgdwP6QjLf0wQDJlfTDhBAQp/X19u UxFS6j2tn+mN6f1EzVZPORL6WGC0UVJIhcrml0rTEmR0u/94dG5fK1Q++let q0ZCMzHlBLPYAbhVtVaen0mArCBRbUkLGpSuDJ8sVSKCo2zovdvLNFA7JSp5 +AP2vL4WXKXhdJAT9mcvbyACc08g15CHPyKsd/IpDXTB/tMn045+d4TKD9bv 3G9ieryhK8WdFQOEPF/jJ51MULxxafwYaxrIsTiPi9gw4ewCk+X6KAXw494D Vt0lyMP/48tHPFRQiiWbzMyTkE7kp/5jati8iWY7dHQKm4fV2QWNBTRwUd8f 2lVChF7vALbhY3TA6V+xfjqD+ZXfJFV2kI75UHVxtgMR6HPs9xR8RsGqg0Us 9ooPvAq8H2iZ6gs85412ulDHYP/MY3rkUiKEgE72E7YJIBBGFZjGmL/+GQmR nSxF3V+Kz0aGYvPSx4ipiPmD4Mn+Fo+iVpirNTTDu2L7u9tw65U2DZ4xLsjM sROh+1KY0YUJGtRbRKzaMohgp/7j2g4POthYWx34000E4tm7TfUNFlDp5Ddk 7foWxkg/ZbukozAeLR9JjWNCQiidNNSbArTCh7XxqUyYNPbPos23YDwrX5bR QUIKfadEBPhaQd2fOcu1QUJPik70mifRIM370b5SPJaPiIEf6vfT4cBJ3Y1y rB+ZR62OHD8WCpNcF7aXD42D6as+Aw6HZLD8LRlqP88Eyq/S65efYHlu/TEv zYmE1m2+Vfa+poLliqRcmCgZ/VsPTo9kocPICZbBH9j5MiRSxC7zPARfFXp/ 6hcm4IrO0c8dw/xhH5dw4VYysjkZF37FGssTpwQ9v7Zift7yJ0C6jga3lb4H xTRiejB4cHDJgA7LVGZK4CRWvx6Z3ltxo2BZtI95bcAbolj58iTrE4Axl/vM YMcENPOYu3q6Y/nqQlG8iwgZ/Z1nPaEzTIOjqaMm5kNY/hPSidVwooMh3Td4 mE4Ea6MBUsFcBCgtPLrscAN7vkR8sqRKCkgMFFy+XMEEIY0OznsjGM8HnTpD qyIhidUFYMW1grOJZ4/Tdowf1f/1l4nRoUDnrPdr7PzqKq7fObQWDLQ0v32W meMQ1hWvbNWZBEq5/brz35iwFEIYeVWLPT+vk+IfcTJSScJF+q7RoEy/vaME 45UXGeyffB/RIYIeF/+nCttf651clTexwGAGv2IbY4I6Pk37izQVJIZdnJPW SMjU/lipgT7GH5Y6vbPDmL++6uHxqKBBR02XzRvs81nv/wh90KKD5bOu8XCM 1z5+2snyIwkP7CNSxWLbJmCka10y/TEV2J/abJ7D9J7RxGJnO0MD3qFbHAUT 2Pezixcu2EbDJATq/y3B6sf591uHIqaXhajfOzD/lyjb5dC0kQy4rN0/ykYw ntfQe/huHOMjeLWYh/lZr+NmafJOOqQutZx6hl1vGdSQ6Xc+HoScT0kN/2ZC V8M/29Jz2PUsO57QuMjIWXjiquudVogh27avPsfycufB+ZEWrF8ra9h12olw tHr95J+LdDAZV847xySCQZPq79iUUehsiNgZEucNnDRlRSvJeETpVt0vU1KP IHT28kXru0hLT9ZH4hINNiz1utU5PAH/goyXXx3F+tHd0VEN4wWxShUR3ASE BUSYvNLOgK6rfxf/McbBrftdZkchAdaa/Hg8xxgQYzD9t7jmOZhmkislOKig Y6Zqe+lPNfDsClEOZtRCAo8NJ3KvAVzhH0MIKgV25y8tRxgYL8QqBXjw4EF9 /Jj8A6EG0GoKeCFLDUMzCbuCd8Y0gZ2Er2ZuQw46Z0uIujOA8YIlSU/saiF6 6r7V7ax0C9jlJtocCy9FFYGuYhOWVBBSNonwECCjLOEX0jb+rUDI5dEuJpJQ m7mWVHB1G+C/nRET8ChBrypsRfgZ7bA2cHysfHchkpp321FI6QEPVUq1gEE4 ZIkO3zT60AsZkzm1vHHJcHEpqClTuB+UVD2Cx4KyYGSigdPi5AAoZscdimfH 8qSDSe3MIRrIOdrtQiN50Fg4NfWtiwZnFHcKjGPzSqpypvGHFR2SjQlqW0aJ UBIXn/T6Jx0S/osedDhIhGTPPx/NYwchXn94fHZ7HiSM8cYprjNgJei6vyzO H96Z8XQUO4YhrbIjl5PlGkHu0LGt+ecPgNbUl75WpRHwF7I1rrMNh7pk60cb h5gQYA/fqR6PoZIR85PQwwSeJyc1xDuegNbMtOHXsDF4Fbfx2LCgFiQOTL2T PEEAfz0//p+/6gHnquymx+MIQeF/cGmmjUDR/WIe45WCPLKbJazJzYD342hM 9iSiy1naFnGRFNDafF/wp6sYvfuvcPxEcwuslL+jlaaSEI/t1uXb81ie6sqw COQloxlbJw1BwTbA/b35nq+xFCmW7ZbPCewDAuXdLFtrGrA/r5kKJ/fDRvKb pvTwHMiaIsTb92J5/bSziwknlifTB4TCHtDgg5uHXp4HEfZ/f3ffhpcOElY7 aK7YfGF57n7Pq4QO63Vc3GHpmL8W4P12aw0C26nd6FpRHvg7xX6VPT8Kyxo/ Bazw98GHT9Ifpx2NcMTjU2cE4mGks/3Uj2g7ZKpVf3EieQjWdEKrzT4FAI3L 5H332XE4lXXi8fq2JKDEdWx6bTKh+ZOBEUGNAhL7R5RHSUWouWO4oMWjBfDu xVYVe0no/WJd5L48KuD4lkmqkmSkpfmoor6rFbTwDvb1J0mozq7CkBkxAGZu W8uqkrA8GcDt/MKMBgf+nO8SViDCquGHQ3KLNOjdVX/sODbfk5TIgqqhmP+1 hqPqJiIkKm5KP+V8gHBNGlKyml3gX26Y60K/DpMj/kvzBgzwT/hzRu98DJgO 9CVkIya8ktM2fzieCuzfs4e4HbF5a3LS3muYAoSsFxdQYwn65+XNV4PpVuKl 223/aRI63W9iWa3cCozq0hvhM5j/VCW+NiFi/EvI0ZgvJIJVNrMFr0oH8eue P7bOEsFD+Whf9QAdmg48C93tRIR7Cu1FBZ6jsHhOv1bf1QfW+6eaO37dB1qU vNMX0hiccvVsV8hLBNyvAsVKjBcUs+/Ebj2H5TcziSrGm1LUqcpPxwVSgRE5 +8wH84MvJIn5uDzMD6+6zU16YnnS/Vmi0Wka8AQXR81tIYKF30f2XeM0GPm3 o0QI43GrFf1bqa50sB2MYWnDeN1IAj8g7WMOkx8Y6h2Gb8F/qEx/czgSKtV+ pueEMEFEt2WfbFEKlCQRTKaxfOlmwPVr7VMLeMhcStOkkpD8HlJ+IhdWv/1j /8w2MX4qOLw6h+Us905/eZlHRECdE098pOlwrpdRkI/1Y8BVbrO7cyGgFMRZ rdkxDszAplbbE8mgX3ts7e4CE4y/alKC0jFekNziG4/l41+Ftsf126mAT5C3 eiNGRg8lJi+e2aSB7wX2RlOMF3wNzp181BIHQps8i+afMb4hTBzyVMH4ri2K 6zYLGVlF/eB8a47V65SOWHMn5ndoOa/mJQ3cjvSwB70iwne38RnSWSxfJwSv F2D8eYd7CjcVPQocrHvqaye94WnsakrX7QQQ+tbO+3/r0WBF+bl0C9NvX6Bo njAZxXFf/4kbpIH4k0O34jA+OElLf9x+nQ5LNi4fD2D8sO4d2TOeGQH46qMi R68ywfBSCKc3RwoIZbHFx1YzoeiIlUsWHePpMDuzqTIS+u+4xevAP9j9tU5a hWB5+OtV2zgXESyP+zAFF7HzW9scKM+2DoZJHxZ7wZhx2BUfQC4jJIGz03Bk 0C8mLLzmsFOrpoLzsx+/dmM82Vxjp6X6kwauKMrkCMYL5aY2S1sfYvzx8FC1 20tsfwtSFJeoWNAnrRzsGGZCR5w8QWAvxhvzrq6+P0jIiERUadduBbta9v45 Bgl9q0OqW8poUOHE/u1EJRFkttkM55zC9tdztU4Du79bybq//m08hHifk+7Y PgFDvE5kvkTMfyLNtb2x/eybshcV/USDn2dE9R5gfryuNNwuxRMNGU3Wby8R mRCvfPVZuAIdHNx+Z9/H/L/M/d84z0gyyN3/4CwyzoQtYc8FrN9ivMwvx4kE ycgy7toNE3Y68HWekI/Grl8ruvuqcuMh6KfSxT7+YMLlmqQGui4VVmS2dQpw ktENB/3ZuZutYKpstzhRQ0IGHXt33UI02DN69OomlQgtDOvftaZ0qBIbmdbD eOYz7ush1uRRWC3fVlWQ7Q209MqAPfRHwMj3257BOgEvF9J2zNhj/RnfrFuG 7ed45yrnuY1wwIm19dfrMsFx7BpOrPkx1JUcqN6BzRvOUnGWqd10mBS+pyL7 GTs/fpvcS5eSwFd/ifj0LxOmr3y8d4hEBY+10mJdjK8YLJK1Fas0MLkpL6j0 kQi5lC1b/ouig1dwcEpVPRGOn0xkYczFAI+yIAmP+dnHYBOrG7ux+oGxmPQS CZ3V9NNtPI71v8CsLPckCeW8LA6WL6bBqSiTAFUyEbRMxc4LHqeDWYfNasc0 EfwVODQ/q/jBisXot4vDYxB1eMxt+T88+LZB3SLW/335ms07oqgw9+J7YhpW z1OKUskp77H5skU36Dnm38fDtLYn3YuCyh1Sg5spTLhoNnuyZAnj4e/PWkp6 SOhwxBA+Yw+Wb6gray2/Sago4D+Zv7J04PlCWfPC+rvt58RAbUwysDMu/BOY ZsJf/hjZC/0Y75FKzn/A9HbvzV5m1xY6SG3+bi7C5us9cq2XlCYVJrcTIBjj 6zFpUQ9lQ4yHywKs7N5j/fhApdyfLRFKmn95sbFPQEvn/NQvTyr4cqyqCmDz xKONGBw9QgNN/sD1ymGMF3sJQv2WKeDhc7o2pJQJ0iUhNVFbsTxbpp/Nso2M Rvme8q+I0+GY97T1c2y/jRUPUt+fw+ZZ1MQ8D3kcfm7Nqd22lASWJnmZL1eY sHpM1QgaMV5+E86ejM3rwtuE1w3rNBBUazx8ADvvV1k1QX+k46CO39H15Xsm kFK3zLbKYX4T0fbY4A/mL41vF5iVNDjCOBcRiOmV61X21X3adGAG35Mcxfrh sqRodF4dHpsHM/0jWD+OBidmiGZg+Wr/eTSH9Q9HRl5B3hyWZ3l3F3m9I4Ln zBP1ncp0qPSaIBdj55cyJz7nIv0YuhJSeHIHmbBzZYzl+iQVugYkho7tJiOA 3KU3nHSIW3jNM4Xpq858m9+ZrHiMZwJ/Kf9jwtPXx9q022gQd7vhYHonxm+P ssJOmWO83yJuZDWOrf382njTR6EpBqfi7OcNVjeHv0hSk/7/783+D7z7RrA= "], {{ {RGBColor[1, 0, 0], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[{ PolygonBox[{{2, 51, 1, 616, 159, 109, 5, 433, 302, 204, 131}}], PolygonBox[CompressedData[" 1:eJwV0dtPznEcB/Cn002mNp0edBCT1Wy5aSshUtjMliibQ3jQZWVT0R03tSXH xkUXuTCK3OtAslX/AB25RVc63cXW63vx2vv9+Xy29nu+5ceaa5viI5FIHB9J JIE33GEbo46lzOg9XKKCb3Zn+au/pZU0xuzKmNUfcZmjfLerZVkfoI10Ptkd ZE5/zBV+mW8Qx7D5GDP6OVb0QdpZNTezlUlzBp/1cub1J2zod8mkwfxb3iSe EXOyB+jU91JpnpXnWdW3u73Q34W30e/rJ2Ve+Jt2a7KFI3YpcrfslxfllHuK 7DafkYWyWA6Fb3Ebl4cosVsIbyGfmmtCmv/p96gyZ8l98nX4DfKq+x/9Vng7 c4LMlX3yghx13yK7zKdlgdwvB2VMHnef0+tY03fYvQzvK9+bk+QD8ym5K3yH 3bq8TYVdqtwjX8lpt1T9oV7EAf2DzLL/Ig+zqD/jv95BlGvmJdlIImPmKub1 etb1ITqIMhHemR/6c65THf5HfA3fxU+9lxgnwu9iJ9nksAkgFlR9 "]]}]}, {RGBColor[0, 0, 1], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[{PolygonBox[CompressedData[" 1:eJwt0clL1GEABuBRwXJroSQPKkghSdDiMpOaHQo6mKVNZQtEKd7MraBu5cEt 9dAhD3WIdoJu5drN7Oqe/0ALtLl0NLB8PvDw8L7vN86M8/3y6lvizYmRSCSB j4SexBI1Duc5ql+mnwVizt6zXb/JSxapdjZHhX6JPj4RdTbGNv0IF+llnhLn o2zVy7nAPeYodj7CFj2DdNIoo5YeZinyN8Ok6jd4wW9OO5ulVD9PNzMUOhsi ZeM3p+vN/KHNzpXtJLmM53ZcDthZ8lf4/fKUPcNhu85+re+Te2Sl7AqfL0fD /yof2TkbF10q6+U3zjm6Er5Hz5eZ8ri8Lf/SFe7Vvq/vkNPhXuQhe5DNdoP9 Rt8v98peMvSJ8BzkYztPpoVnI5vkCq1efyULnOXIE/KuTJTPvPZA36X/DM9Q VtnTxOzdsjN8v/ORcL/yoZ0t/4c70b9yVt8pjzm/JVfD+5xNcVB/xyb9A6n6 dZZpsbPlHRK896n9g5P2FFF9mH9cs78Q1zuY5ID9lmR9nBS9kaXwrO0nfKfS nqREH2KNq/ZnzujrCt5ZGA== "]], PolygonBox[CompressedData[" 1:eJwl0tdvjXEYB/CjoXXhoq2Q0ASnRqvDKBcSLlqU1iYSo1aMVktIjKu29o0L JARFSUhEItFat0ZidfgLjA4zMS47jODzxMUn3+/z/HLOec/7vsnNu1fsSkkk EgP4wECmU0SVg9sOpslCeYpMvd3ZUH0//Rwx3+c3G8zdLNN3coXPlNu9ZKo+ hclMopAC8sljIrnksJQdXOYTZT7fzgT9MPf4xXq7LpboNTTykfl2bYzX28jU 99HHIfNdfrLO3Mli/XH8nj7G/xwsZ8ka+Z1qZ1myPm6W/SVxRh+e8v/ezdNb GadX2jXrRbIgrk2elBmyNX5TXotrkxmyRO6VvRx0vsl8Q8+T2bJcHpNp8o7z lbLBnCV/mGfICnMHi8xbzDf1QpkTO3lcDpGPnK+WjebRMk3OlNXyG9udbzRf 13PlSFkq6+RfLjpfbj6tD5PvzaV6C2P1bXZN8axlvjxBut7irEJejXsk02Wx 3CN7OOA8KY+SGu+euZ+15rcs1B+SGtfIV6rMI2Qtf7hgfsdc/QXZej3N9LHG 7g0L9AcMiu/gC5XmBrqZY35OUq+jid64b3av43nE/+Q8Xcy2exbvjV7LLXpY ZfeKMn0r5+ikxO5p3P94T+N5cZYOiu2fMEr/B5NNbDs= "]]}]}, {}, {}}, {{}, {}, {GrayLevel[0], Thickness[Large], LineBox[CompressedData[" 1:eJwl1nfcjmUYBuAPIaOsIit7KyvSELILIbIjo2WVSmVlZo+MlhGyQ1YZkZky ygjZIysj2YTUcf364/id53Xf+b7vfe7ned5ytepUr2OihISEtokTEl7lC70D SVlg42G26H2xnVCX36214B/9G0rzs/kZ/tAn0ZHz5nakYI05GQv1Yvys96Me x8wtuaN/Sxl+MT/LaX0yifzynuZsdDL/JduTkrXm5CzSi/OL3p+/9S487d/e J5+3dly+xL96Nuuf6Q3kEvPdsr85D4+at8qalLF+xpxJjjFPiWuhf6BXldll ITldvmHvguxAOWupZC45UTaW6+zfIwebC8b11b+SbeTd9hbrJXjEvNWcQY40 Pyc/NN/U36WS+X6ZX34pm8v69k/orXgsDktml5/LF+RSSyni58RZybyyiJwZ 10SWtb9NrxWf33zW/IAca64Xv8ecRPYyP8ib5osybqDUrI+fH/eEXpJt+gAa 8BjbrdXmnD6VzqSMM7dWiu36QF7gcVKROq4X97Ikrgs79EE05AnSsNR6aX7V B9OIJ0nLsjhDdupDaEw5dsR15U99Gm+RjuXx+dmlD6UJT/GrtTqcj+vAdN4m Pd9ZL8tufRhNKc9Oa3X5S5/BO3GmrIgz4jd9OM2owK641lzQZ9KF+1hp7XH2 6CNozklzaxKxzFyR3XGfc1GfxbtcimeGe/jBfD/f60+wVx/JLf09MvKi+VTc kyRmeZyTcx+g54vnyfybrM8lPbO9j/XZ+l16b72azBE/09rleC54ytq9Mne8 Z2QTuSHOVg6J+04WiveDnBN/i71V8sk4W2v74lrIj+IcIs239fepbM4kC8ip 8RlkC/t/6G3j2pmTxH0rx8mG8ru4x+TAeNfI/LKonBXPkKxkf0+8H7isZ7H2 SVzfeGbNSWUfc3WZM/4Oa1fiuaC8tTTxLpGT5I9xn+pD9cLxntLnykzWV8e7 gv36KP7Ru/IALc2n5cvcxQpzZfbGM80VfQ5d41llTVxnDuijeYkqcUasjb+L g/oYWlE1PhdZyUb2OEMeZJ3/tgKH9LG0pho5WG+9Iof1j2lDdfbFteWqPpdu 5OSHuG84on9CW2qw31ojrunz6E4uNlirxFH9U17mjPkVkrLS/AwH9MZc17+m B7n5Me4Jftc/447ejczxM8xn5ask43vzsxyMe5Ib+nySOaO+5lz0NF+VneOa WE8r88rJsqn8yX5aOcxchBL6vET/f6/msfeTXoVj8fxZGxXvhXg3m//Vu8e+ OYssKKfJFvGdbP+c/lo8r+bkMoccH9dNrrKfWg4y15QF5ENydrwbZE37h+Jv pKz57zhr+Wk8v3KBObnsZ64hc8f9KWfEvRffcfav6W/FeZvTxTtATpHN5Eb7 6eRwc21ZVJaUX8c9G98x9jfqVTmuZ7Q2Wh+nx/9Q9NCzxucz/ilfj+c9vgtl TjlBrrZXi8PxO7mpL6QX181vk55N5nxs0qtxQh/P69TmiLXm3NIX0Zv8bI5n mJP6BNrxHAUoSCEKU4SiPMTDFKM4JdgS149T+kTaU4ej8S7itr6YPtwwv0MG NpvT+5wj4twopc+Pe1SWtPcfaDIX6A== "]]}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, False}, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox[ "\"\\!\\(\\*SubscriptBox[\\\"\[CapitalOmega]\\\", \\n StyleBox[\\\"D\\\",\ \\nFontSlant->\\\"Italic\\\"]]\\)[\[Tau]]-\\!\\(\\*SubscriptBox[\\\"\ \[CapitalOmega]\\\", \\n \ StyleBox[\\\"E\\\",\\nFontSlant->\\\"Italic\\\"]]\\)[\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[CapitalOmega]-Ratio Difference\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Normal (D) and Unleveraged Bimodal (E)\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, Method->{"AxesInFront" -> True}, PlotRange->{{-0.05, 0.4}, {-0.3139566236764203, 0.4536918845257225}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.441075321203347*^9, 3.441075344418104*^9}, 3.441076629153886*^9, 3.441077272993902*^9, {3.441077667455543*^9, 3.441077679831058*^9}, 3.44107774932483*^9, 3.44112427839329*^9, 3.441131323339636*^9, 3.441382638841322*^9, 3.4419106936924963`*^9, 3.4419891810017757`*^9, 3.442010290387767*^9, 3.4420103426944857`*^9, 3.4429347403176327`*^9, 3.4429363463103027`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gOmegaOfDvsE", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.4404610224942913`*^9, 3.4404610267556667`*^9}, { 3.440551022455552*^9, 3.4405510255419197`*^9}, {3.44077124883039*^9, 3.440771283327057*^9}, {3.441077069867744*^9, 3.441077074662794*^9}, { 3.4410771050992413`*^9, 3.441077108937051*^9}, {3.441077139098723*^9, 3.441077142460493*^9}, 3.4420102368125362`*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gOmegaOfDvsE.png\"\>"], "Output",\ CellChangeTimes->{3.4410772744880323`*^9, 3.4410777508008957`*^9, 3.441124279729411*^9, 3.4411313248328037`*^9, 3.441382640417506*^9, 3.441910694968872*^9, 3.4419891822947702`*^9, 3.442010290513638*^9, 3.442010343952129*^9, 3.442934741607332*^9, 3.442936347658411*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"nL", "=", "1.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"mnCmxl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{ RowBox[{ "vnW", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "vnM", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "nL"}], "+", RowBox[{"0.03", RowBox[{"(", RowBox[{"1", "-", "nL"}], ")"}]}]}], ",", RowBox[{ RowBox[{ "vnS", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "nL"}]}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{ RowBox[{ "vnW", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "vnM", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "nL"}], "+", RowBox[{"0.03", RowBox[{"(", RowBox[{"1", "-", "nL"}], ")"}]}]}], ",", RowBox[{ RowBox[{ "vnS", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "nL"}]}], "]"}], ",", "x"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.4"}], ",", "0.6", ",", "0.001"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"mn\[CapitalOmega]mxl", "=", RowBox[{"xEmpiricalOmegaRatio", "[", "mnCmxl", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"x\[CapitalOmega]mxl", "=", RowBox[{"xInterpolatedOmegaRatio", "[", "mn\[CapitalOmega]mxl", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4364886364615*^9, 3.436488690706395*^9}, { 3.4364888237179527`*^9, 3.436488826252903*^9}, {3.43648886022647*^9, 3.4364888705011683`*^9}, {3.436488968596327*^9, 3.4364889716860027`*^9}, { 3.4364890212128487`*^9, 3.436489025097246*^9}, {3.4364892170090733`*^9, 3.4364892272275763`*^9}, {3.436489682276868*^9, 3.436489706799964*^9}, { 3.436491569352363*^9, 3.436491587727995*^9}, {3.436491713138064*^9, 3.436491717848775*^9}, {3.4364934852936172`*^9, 3.436493557180175*^9}, { 3.436493751498308*^9, 3.4364937516593924`*^9}, {3.4366240679541283`*^9, 3.436624136012494*^9}, 3.441075451416629*^9, {3.4410757645062017`*^9, 3.441075765122281*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gLegend", "=", "\[IndentingNewLine]", RowBox[{"Framed", "[", "\[IndentingNewLine]", RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "0.1"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"70", ",", "Automatic"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontColor", "\[Rule]", "Red"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Dashed", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "0.1"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"70", ",", "Automatic"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "->", "Left"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.440768378762293*^9, 3.440768561516054*^9}, { 3.440768624541299*^9, 3.440768677937708*^9}, {3.440768745237956*^9, 3.440768783247244*^9}, {3.4407698053902187`*^9, 3.440769866762312*^9}, { 3.440770143074379*^9, 3.440770145175685*^9}, {3.440770204116376*^9, 3.440770370246828*^9}, {3.440770426726913*^9, 3.440770620588566*^9}, { 3.440770900955824*^9, 3.440770901429399*^9}, {3.441074588183249*^9, 3.441074594580447*^9}, {3.4410756864729652`*^9, 3.4410756870585337`*^9}}], Cell[BoxData[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"D\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"F\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False]], "Output", CellChangeTimes->{3.4410756877186604`*^9, 3.441075767356505*^9, 3.441076669858994*^9, 3.441077274787528*^9, 3.441077751099414*^9, 3.441124279983179*^9, 3.441131325320771*^9, 3.441382640863955*^9, 3.441910695250435*^9, 3.441989182566153*^9, 3.442010290752552*^9, 3.442010344185749*^9, 3.442934741878359*^9, 3.442936347902519*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gOmegaOfDandF", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "nMN", ",", "nSN"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.05"}], ",", "0.4"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"x\[CapitalOmega]mxl", "[", "x", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.05"}], ",", "0.4"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick", ",", "Dashed"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"gLegend", ",", RowBox[{"{", RowBox[{"0.25", ",", "6"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\[Tau]\>\"", ",", "\"\<\[CapitalOmega][\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[CapitalOmega]-Ratio Comparison\>\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.43648929915808*^9, 3.4364893639011374`*^9}, { 3.436489727400113*^9, 3.436489819696274*^9}, {3.436490672671357*^9, 3.436490688982956*^9}, {3.436490794829678*^9, 3.436490851351818*^9}, { 3.436491266703106*^9, 3.436491295726667*^9}, {3.4364913528507643`*^9, 3.4364913600243464`*^9}, {3.436491412999234*^9, 3.4364914202346907`*^9}, { 3.436491540682261*^9, 3.436491547305365*^9}, {3.436491787236704*^9, 3.436491796877301*^9}, {3.43649183588621*^9, 3.436491853483527*^9}, { 3.436491966343858*^9, 3.43649196706742*^9}, {3.436494173850408*^9, 3.436494175559716*^9}, {3.4372490214958897`*^9, 3.437249053706295*^9}, { 3.437249098742626*^9, 3.437249101891395*^9}, {3.4404604132763443`*^9, 3.4404604193759117`*^9}, {3.4405510536805887`*^9, 3.4405511119167833`*^9}, {3.4405511552804003`*^9, 3.440551162054139*^9}, { 3.440764304579685*^9, 3.440764477175453*^9}, {3.4407645145239153`*^9, 3.440764530111457*^9}, {3.4407650208842697`*^9, 3.440765036680558*^9}, { 3.440765114017063*^9, 3.4407651415282307`*^9}, {3.440770666464899*^9, 3.4407706668763514`*^9}, {3.4407707557635317`*^9, 3.4407707636120234`*^9}, {3.4407709341107883`*^9, 3.440770939693635*^9}, 3.4407757760528393`*^9, {3.441074966973338*^9, 3.4410750182689323`*^9}, { 3.441075060466386*^9, 3.441075060918523*^9}, {3.441075108204926*^9, 3.441075123190906*^9}, {3.4410752494866333`*^9, 3.441075257910892*^9}, { 3.4410756403881273`*^9, 3.441075664110443*^9}, {3.441075705548048*^9, 3.4410757115845823`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwVyXk4lAkAx/FhPVI2wjhiy1Ye82Bq1RPZjX5vYTdF5M5Nu5JjiZ0ZMx0i NViiyYOxtdRjXJtpQ+7ZV3KUcUaN17hytFvpWIVSsu0f3+fzx3dTSLTrT4o0 Gs3pc/+79nTNAaGwjIwxSt3v0cIg3iUmuiTxy8i7SVt4z6oYxOQFR88IVhnp scZ8IEXEIOqyJoNtDpeRngt6UxMpDCKkSI37WKWMvN/4c++yM4OokYaWmMSX klGWoYKZcWMiUF9XqcGzhJRZzQTZKhsTt2o5kmEtESlaUmcvRRgRNKm/bgOz kDxlnm8nP7KJiM83upy+PZdklR7L5j/cQDyRx9bviU4nT+WS67jkeoIuDXxQ +/wEeWOV1Y/2i9qEdXmlaklULEzM9Be+f6tJ6G119lZ9mo58/V3JM6briPNV luYlhnnoCWvPjhGrEq7cwcRdgkIMfWFq0jm/irBsDkteZokQUCKk5AlKxNY8 sThHuRwGf8eO1DUoENdTAop3nBVDul4iW9/6CZZ9v/jmVdzCZGGn1UrwEoqM Li+e/bcKXj9oXFMZXYDkS8NC/dAajNWYGWdlv4G2QtBNi946HM7Y1xLZ/xoL Eq5rg1ojgrMO3mabv0CSmoLi6zMStH+sL3+p/BS5jGD7zDYSArUD3Q4VM2CG 53ZGb7yD2qhXdN30SfzRPiTydm/BbLm4c6p/HNF85YNs1l3sZPZqXbokh4pm BHtW3ArDOc5yQY4MT2hNEbkDbVhXWemtFDKIKdYx+rm5dhD+rXEZJf2oqXaw 7TC5h+ms00V223vQ7aVnTTjeh5vAuWqnZifqWzc0avA7kdpgv0i3akdb7ekX W5qkyKrPqOa8b4GOeufT8JEudMSIVLv8mmFt7hS5RrsH1To+cQ6yRpTcbqob s+pFQMOHZfmzWgiDbEe4Zn3g25/zDsyphoPUtuDP9j5ElcyPlnJvwSDsu45E r36ITX3EMfMVGDruuCPhbT+8Vk+oC1zKUHvVXVGX/wDy0dKGN0IRiulrmL06 A/h1/+Q1K851JLwezquqHICszTBex6AAJz9dC99hNwi9IPFuRXY+gk8kJ4w+ HkSrda7E3ywHXgz6y9JTD7GyMG5zRyhAtHr+HbW1jzCBSNoIPxOxfruHCsse QdDjlr/nUBpy5Q/cunfLcP4jT1uXeQFdV3VN9KUy3HWacFGsS8JsK2fv5dAh FHbVTozqJmDbxp6/iheHUOfs8qpZj4eLwxpp25aGcMbGpmKfEg8vcjw8aj4O oas9IGXgFRc31EeftylQOOKbGbm5gwsThVm9GVUKiYGOnXFsLoymV8dt+ZrC 0szeMbksHgbl9ozC/RTm5RYUT8QBLzR1jnGQgr2xdWqXgIPhzd2Sm06f/zue NvMsB3m/ubuTrhRqHn9zhe7LgU7G0cQxPwopPZWeaRocaMYkyr86QSFZDEta IhuxzLbiojgK22otLcyi2ej/RyWWyaagpRXGPerPRlZwlor1SQpsIvPGh2/Z WOtWYOF7nsI904dN99+wEKk+RZviU/A75DPtP8lCl9S4KzyNQtXK+KqVPhbS 7MQhvEwKA9PNG8PELDyjzW1VFFAYrafTzK+y4CCxeJ+aTeGit0+9UjoLpVxu q0YuhcCaK3uf8FhQsZRkCoUUNv0+mzl4nIX/AKLCXKU= "]]}}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwVxXk8FGgfAPBhyy1jcszriiivTVYHvTH8npKklMiRJFesBrmSo6WhEMk1 GUoyzkEo1zinh0LWESIzQ2xSjkJok1r0vu8f389Xzc3P2kOQQCBE/M//l4xg H793rwTrbt0oXHqlilajok5Hx5Xgw2sV6VadquhdrIWdd3AJPvPBOaaSo4rq U965GlmV4NC61osBxarIrWBL2IRICe7ZasBWj1RF7G5PllZoMZZ4lpeTvUsV OSvIb2q0Y2HPiYZFisI2VFkXwhnZWojTXnQKj/croQ3LvwyMCYV4KcBueJ6j hCxmjtbnzhVgcW1+r9sjJTRFlqv2ai/AtU3itN9jlZBCeE3xytUC7O7krxhH UUI3KUt00kg+3vudmV1XpojOtlKpx5l52K66oLAkUwERup3kG7WZWOzGaOCF B2Qkmr3zGFWBiU/36qY7JZERye9zqIIIEzPkY+vO08jo2E7B2q8dOVitTHft 3EUySmYfMwzZn4NjaC69MbvJSIX72ixc6iHWCCJSvFrlEYW86EJrz8JPYq7Y ii3JodD7GvTEPRnYyCfGAy7Loo754+MFkhmY/nSW8dNNFskcCtDizDLwR+Kp Tmwvi55Mc/B8LgMzauV2oUOyaGa//dwpEgNfWJv1EpGVRfZ98abSX+5i3Xq6 1FuODNLf9Plbek0a9t+4uRgpK4OmRgMbjP0S8XqvkM+/RklIon+PjoNaIm76 1ihBGCChfW2LeUGDt3G4ml/5VAcJ0couJxYfuI1XrnAXqqtISCGC6kwiJGBC t3NSQwIJWaq4bZ5KicNdrkb0gxQSqnexsrpTFY0FbycF5BZII5lu51d1nwJw coz1Q9sEIoKoaTvrcwFYq/mFUXA0EVEP+I3OdfrjtmXK2N1wIoo0W+80sfDD 65VcdSFvIhpaNZiXb6ViycHCw9ssiIjmyNZrKXXFXavLLfpSRET44PjrtBER uqfyF4P3SiFKaZU4yzcQzBVzDVxDJBF5t+VZ8dlE2PylI1FcSwzFVOvrsrZl Ar3hJhK7JIysw4aiDqQxoUrc0jt232ak3+J1cz24EJysah/ZbfsF7c6sqGAI lYLOfCl28hVAebcuFO2lVcDBixmnS2d/gn7/FcfM8kpovf9152GZdSjQoH+j LVWDoUyxmUP9D+BIbGMqeLLhco3uUynfVZAVcHms11cPS1Rx4xTPFVjhhFk3 bmmCOrWNuy2P/4boLQKCi5EcsGGaCqytL0OGpqtpcjsG+4ggRuvtJdCmZnT5 qbTC2h6r/eWKi/Cog1d41uYZSDgaxITmzINfnNCJq8HPobjhY2K12ycQIXlf natog8eKk8Wb1GdhitDsnTHYDsdnRHfE/jYNk8G/y9xY7oDMuetv5zw+ALvG 3OSFVifoOZUxNtInodeeTEEWf8LoCdO+54R30NCm3CQd1wWlZ/9yEfJ4C+11 EfPqzd3QZHnDhTY0BnJSXbPUNz2QRSxvaDMcBYruSR8x2ZewmuoocjCdB6za 5vrx//TBy8DVnP2HhuGei8mbsF390KFz8RZZYQjMu01ynnT0g6hp2Kas6QFQ 9DJ4EWU/ABGT+tyzK33Au2Sx9/rfAyDrqxr9C7EH6rJtBOXjXsE/8jvIymWd UCQjpt0nNwh5+370R6a3w/XFkczqqkFAagOirOvP4NpGLnXvkSEoitRw7GzG 4Bpw8/rYxBCoTESoiKc3gr2mzELxH69hgKIM3dJs8JO637pFchiEh0lBFfZV EHjekMcsGQZFdQIuzCmHjNFXZ3oNuSCToPfP4S8sYC5oxokZc8HDzufzm3EW FAtENJohLrRsz5+82sWCRk1NtWdHuODWROwpzWXBeNC1BfZJLrxrbXdwP80C DQmNeKYzF+Jj/SllT4qgihL8NOgGF06tOGhkhRdCT7a8lkI3FyimxCCVffng pRImeauXC8QpiagtqvmwOWdk6WsfFxoPNNVpSeaDMTO7cWCIC6vxu452TOfB kzx1i/hxLgTpSLj/fJAHd1m/+a0uceGI3pe6+2J5cL7SrHaYzAO0Vdnjx2cm zLWFHKJ78sAqaU/J2vNssFLxTeZ68eClg83rlaJsYIe4jSl68+DEjhCBpfhs oP16MqzAjwdHmpsdPlhmg0zK9sraUB4oxv5p6z/2ACiOvaq8BB4UHD1acngt C+4sbScoP+ZBs0jOZL35fdBRefm06BsPnNzZM1bbMyBpRDpB5wcPerPm33cJ Z8A8w9aWvcYDsyGNCZN5BpRJjX1qF+CDrimdr1fPAC2BOfIHcT7wJDYtX7Nk gMZ70SB1VT78O+5d7aXodFAsNdVkHuPDw4vJQu7f6RDuGb+seYIPLyZjw/sn 6DCyvZfz+CQfZtwiF4y66JCZZWODrflg6Oo7TM6ig9wd96jx83yIp5msvzWi A8k/alQpgA/+O4xM6uLSIFC7vaggiA+pfwS7mASkwcCMSKD2VT40DpZH9J1L gxTXFBHKNT74KL9O8tFJA8kzOXqOMXz4RHYo7RlOBR+pScJkHB965A0q37ek Qk/3zh5qAh8uWNRIGj9KhYQjFW7hyXyor99wiaKlwkfC8m7BND68WcgXU/dO BXOO3vf4u3wQ3WFe02abCsVhYW3SGXzQd1xw8kSpIKLPSb53jw+OqXRhkV2p 8F8OGsQS "]]}}, InsetBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"D\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"F\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False], {0.25, 6}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox["\"\[CapitalOmega][\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[CapitalOmega]-Ratio Comparison\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Normal (D) and Leveraged Bi-Modal (F)\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.4410756922662973`*^9, 3.4410757121377687`*^9}, 3.4410757691712217`*^9, 3.441076672348522*^9, 3.441077274892377*^9, 3.441077751170583*^9, 3.441124280043765*^9, 3.441131325401176*^9, 3.4413826410013123`*^9, 3.441910695311998*^9, 3.441989182631489*^9, 3.442010290943182*^9, 3.442010344242206*^9, 3.4429347419374933`*^9, 3.442936347964086*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gOmegaOfDandF", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.4404610224942913`*^9, 3.4404610267556667`*^9}, { 3.440551022455552*^9, 3.4405510255419197`*^9}, {3.44077124883039*^9, 3.440771283327057*^9}, {3.441077069867744*^9, 3.441077074662794*^9}, { 3.4410771050992413`*^9, 3.441077108937051*^9}, {3.441077139098723*^9, 3.441077171609501*^9}, 3.442010241999588*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gOmegaOfDandF.png\"\>"], \ "Output", CellChangeTimes->{3.441077276437243*^9, 3.4410777526211863`*^9, 3.441124281412036*^9, 3.44113132718154*^9, 3.441382642371558*^9, 3.441910696681365*^9, 3.4419891839863443`*^9, 3.442010290984652*^9, 3.442010345561664*^9, 3.442934743300357*^9, 3.4429363493070583`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gOmegaOfDvsF", "=", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "nMN", ",", "nSN"}], "]"}], "-", RowBox[{"x\[CapitalOmega]mxl", "[", "x", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.05"}], ",", "0.4"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\[Tau]\>\"", ",", "\"\<\!\(\*SubscriptBox[\"\[CapitalOmega]\", StyleBox[\"D\", FontSlant->\"Italic\"]]\)[\[Tau]]-\!\(\*SubscriptBox[\"\[CapitalOmega]\", StyleBox[\"E\", FontSlant->\"Italic\"]]\)[\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[CapitalOmega]-Ratio Difference\>\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "\[Rule]", "0"}], ",", "\[IndentingNewLine]", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", RowBox[{"0.2", ",", "Red"}], "]"}], ",", RowBox[{"Opacity", "[", RowBox[{"0.2", ",", "Blue"}], "]"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.43648929915808*^9, 3.4364893639011374`*^9}, { 3.436489727400113*^9, 3.436489819696274*^9}, {3.436490672671357*^9, 3.436490688982956*^9}, {3.436490794829678*^9, 3.436490851351818*^9}, { 3.436491266703106*^9, 3.436491295726667*^9}, {3.4364913528507643`*^9, 3.4364913600243464`*^9}, {3.436491412999234*^9, 3.4364914202346907`*^9}, { 3.436491540682261*^9, 3.436491547305365*^9}, {3.436491787236704*^9, 3.436491796877301*^9}, {3.43649183588621*^9, 3.436491853483527*^9}, { 3.436491966343858*^9, 3.43649196706742*^9}, {3.436492162449987*^9, 3.4364921850973997`*^9}, {3.4364922373202*^9, 3.436492276867989*^9}, { 3.436492321267929*^9, 3.436492332254148*^9}, {3.4364923774412117`*^9, 3.4364924001772203`*^9}, {3.43649243525275*^9, 3.436492505011195*^9}, { 3.4364925483238077`*^9, 3.436492549072056*^9}, {3.436492621072095*^9, 3.436492648575245*^9}, {3.436493090869013*^9, 3.4364931039675083`*^9}, { 3.4364932012169533`*^9, 3.436493214351371*^9}, {3.436493278939233*^9, 3.436493295424431*^9}, {3.437249140604026*^9, 3.437249156764061*^9}, 3.437249227625671*^9, {3.440460267938094*^9, 3.440460283893502*^9}, { 3.440550603344738*^9, 3.440550655984996*^9}, {3.440550686555179*^9, 3.440550814088379*^9}, {3.4405508600997667`*^9, 3.4405508615492277`*^9}, { 3.440550923723456*^9, 3.440551010297247*^9}, 3.440766411776222*^9, { 3.4407708211306133`*^9, 3.440770852071034*^9}, {3.4407709485739326`*^9, 3.4407709539667177`*^9}, 3.4407709991292477`*^9, {3.4407713804917727`*^9, 3.4407713808150806`*^9}, 3.440775431313223*^9, 3.440775564846167*^9, 3.4407757817146606`*^9, {3.4410752259761477`*^9, 3.441075302134831*^9}, { 3.441075340871504*^9, 3.441075343595819*^9}, {3.441076594645534*^9, 3.441076596467462*^9}, {3.441076888609447*^9, 3.441076907357108*^9}, { 3.441077646335648*^9, 3.441077651433868*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJw9WHc8lt/7l09DRGaUZCSlkIQkuZ6GlJCUmWQlkZQolFCZFUrI7KmPnWQn 63oWCRkZz7hLVkMhGkjS7/6+Xt/v7/xzv87rnPuM67zHuY6ii4/lSX4+Pr79 C/j4/vMVDq40SUnJRz4jtZjYOiFKybNLdTyJbDx3rKhJXUSAwtdyXLpajYpv akrUijUWUgJSlRNubUnGcwGs4/FtfJQPhO9zQ59bOLdu6O7VO79BsuXE62df zqOfQJI0lv0Eg4JSoVxvXxC/qOJqNzgBMuqHbIVGbkGtQMb4n9JPEF6mq5kr fx9GaxcfTpEaAMvA7rBtd6mgSWePy4n3gi7N48Yf/2wQdTLqsxRoBPX7RUVJ iwuAcnl+ywvrf+FRlGOOVmgR9Odk3V5iV4q6HX7H7j8pgZk2m/PSdxswSzlh OnSyDBROVWqH89qwbpk8dZV7JVCmJJzmnbtQaoHTU532Kgi9uPbr7aO9OFUX aFktUgOr3J1HJB05eE1kAf/E1TpgRT56Kv6Zi8nrnY3iGhD0ONvRt5uHap7J zT5r6HBt9GRuhDWBjxs52bZHGaAm1AjC3gT6RC4+eNGfCauNFy/u3UqggLjX xdEiFoCR+dHTT3n4ga/WK7mrAW6scZ5c8oeLQ/6nJK9/a4SJyzvMTJW5WFl+ YM8L1SaYmVxJ2Etw8JWNjAHF9CXcahvc6z3Ti89ZcjVikc0g2i27j7+oBxue BY+trW2B774GESybblyxvHnE800r6NnyyhyFu9BA0+yMoFQbHFwW/tj9QSfm VtRW9em1g+6NQGrwvg5McdrzJnBTBzRVR7gtGHmFB1r2PChu7ACHyukUZ/EW lPXQfxFm0wmvbamP5wKakHPaVCvkRyeg54b5vpoGfJZxlF868jXc6A9SpRox MUdSUK19RReEPAzLK56mYcgE735ZaRcIHk71j9Krw8vzDz219nYD9YNeq7H8 c3Q+fyPk7UA3jInJPN0qWIE26yXH8670gBhkf7X3KkGf5al0EeFeWJEu+OHk q0L0ddjBoeb3wsXNXjIrluViMvH6yKsdbPje3Kuz0+MRtmZIq65qYUOSa3Hd DsEMHGVd2pXgzgHVtH+2LJpPRI01bfU50xzwOTRYqJgejwK6dXEpKVzI6dJ8 se5hJJ5YJb2w2joX4xUUHyUML6Ww0tdcX7XwX6DSvI54mnSAVuHNlSb1uUDz 6r5Fk6wGj/iIArc9hRBaFSpb+TcB9wpasjkXi6E4uHbrIm9E79nr+bfaS2GD 5vYnUQHNWCzDbXm1qQIol6p9P0V14kgErs9LfQZN1JNmd6a6MeLdKN/M+HNY PCsuW+LNRgP3nRt79tVCFsfiu48eF5fJlpAkqAdx90tlJmd5ODf/b2VaKA3G h38XaisTeEZGT8/tOR1q90TIPSbxKJzrE/BxmAFLmAGPVtoRWNta5bRFnAW5 N2kqM794eClaYnLXrgaIN7azlnDgoVuNGEXYtRGkCmXW7kvkYqmBf/2F62xQ GHWxuOJCRYcS44peGQ64DD4Z7LBJwduTSnxyTzmwqP7p8W0bE1C2wGg9dT8X dhPXqQIKt7CyxT1XNSAPb3QKt8h3ClKEbgbyq7Y8hAm67ES4XBdo6862rU3N gYnbpSkMHzqY3Est/KP8GPiaSrwT7cMg0Txs47fKp9A/u8PyschztDx55dpd w1KY+fyt8dKKJixYU+mcG1sOCtPNt9uvd2DXga+uznzPoGq+O27/1m40P6fC WXHiOTiZxr63+dCLK+8eq39RUANBkeZNpzo4+EKS+zpZtB7eqJQeX6NJ7v9A QWHJFhosjuxUPcRHoCn91ILPXnTQ/FFPlTtJ4Btd5eXUdAYcDS4MtyHrKwre 9XQxmfDXqNN500oCaWa4VXqGBd1PF5ibRfJwXd8HK0vZRpCPjrng1sxF5WXK 0dQTbKhOeZi80+kh3svd7DMzyYbCw1I259alocGxVwqcGA5YjJpK7Lh5D5WH l15Yq8CFI7JZV97fj8WouJsdEU5lkDe/L/7q81asFJ/T+dFUASzmBNcg+DX+ ZcZ9Gdeugiar+Du7C3uw3rxMlXu1GhwjqKy2z2w8oS+fNDhYC/W+j58KJ3HR UjHa7+NWBAslR9+RLB7eK8+ghbfTwMlA7eN3CoG3fAR8+hYzIEKy6J7yOQIN pWsGNNSZoH+RVR+xn0CXr3e+xDqxYIdntVJOLw/Fz4URq89zIfOCvdd4WzS6 ZIkEDgjk448Hr908jIUoGvzrdxdrPASKuVPP+YRu0Llcki8qkAMWG19sHK1g gkFSlnpzYgHwKZfNuYUlQ/oXH4+7suT5G10bTsYKZKXOnJWaKoH9gis3ZHMa MfdhlpokpRxsra7bm/9sx/2blvAbllVCx6fRgSutXViqx9yjIv0cbA2/tpRn 9qJAnqcA3aEGbAvsf8fe52CWmPdn5os6cOPcL1gpwsP7Z5/kGgjSIOKgedvJ LzysTfz7Xs2IDnvt+v7EOxLIunrV/koAGY/2TU8aTxPIkLkgmp3OhDHH+VCp 9QQOb5bqCetigV+bjhQzjYcRPp39ftMN8DIqKHHJMBf7LlwerzRjg0nuIa/v gw+x+NFa0+g+NnS8kl9UKpmOkvFKJRUBHCg/Iq3stDsRVReMyrwX4sLEyMB8 3VAczrKW1C2VKQMPs73LJTNasCzxM59zUAUs6xSqWbzoNfpl50a3fCTxL1b1 UP5IDypJWyR+0q0GB21t4bAnbDS30Ogn7tWCu3J5+w0PLm5eI3dL4ks91Fqt a4yI4WETl1ojmkeD3sW2Lv6kf83toR5R7KeT/utPz/YhUOWElLrQUibUvc0v tjlM4HLHdSpO21mwyFqio+4TD1fcdg3rc+BCW4p6+9y3GPwsbVTjZVcP1DN2 +zZZ8FBTObdExY4GWvGVPH0Jkk+j7atz79IhXXHo+iZPAn+Mv2QyaQzw8L1y rPEEgad3mKbxf2FCydpMFXlBAp3iUhtmp2jgIbexiGpK4Oq0czFp6gzwXLMj WYdcn3W7U5LlYSbsrc77VGhI6t+RBzrHwrngm258sbwsCqviB513Hs7HgN8O v+rChCi0uj8DF/qpYHtOYYWfZQ9UyglLL8Fs4IsZSTR/wwLtZNWzmuYFEMp8 Gaiy5AHI65+KHHxVBE7bFv24KVKOwRW673s7S6A/M2bdL91GVBmSvdssUw55 fiIq1063I/9qicOFtyrhTcbPa1eTu3A4/c4v9e9VYHFH2GNLUC/+1fJ9UqdT AznSUW/LL3NQQnTblN2/dTAuIaRvOcdFN35Hk4VjCNZlyoM6/Tz8EXLQtm0L HfjHNnx9ZU9g1aNNoZ7uDAhtmb0a50WgTEftE+FoJnSdlQsvVCdwSoG2bhud BeoK3hZZ2TzUrdqnEvG+AWJlGsSjJ7hYvX69ImMvG2wMlhdfW/cIDakZ1Z3d bPi2K/eOUFw6hm40C8zy4cDdv/czgx8kYuHyt18aFnDB/qyPofe+eCx/Z7S1 5XspFHt0jKwRakEttrO79JEKaM0/GBX3ohM1kso42+kkHgPsbuiv68Gjl9cc nBCvhojEnAftt9loROiEc7xrYdmhRvkHFlzMXP0xOb+xHrTUH6zKvMJDlzNK 263v0aDAqf7EJjUCtTVGGxitdGhs0Vhdc5bAVdcZlr+mGBDI+pBvbkWgu5QP s2kdC/Qr1SvjJkk+px09ipZcSOtkOOZG3UTbFctfLNCph0E5hoImhYfNlRs2 nzGigWZl98iXpQRKsmXj9ofQ4c351sR3pwj8JH5ppKSIAR+01wcnupD6/i1R z4vNBHluNq1AjMBZxdV7KEOkX9zl7RveR+DR8No5g1UMSFK0fvmNxKPJd+Fa CjBhOuORVfMeAuOd4wUMLnMhI9XFmIBovPG47MJNWzp0pDKeKJPjd9h3asfG MIAVpPgti5xfw1jesKWGBgHpe+d99Un9sTs6EPKdDrry/NPipB5n8d8oWJRD B6eapzsFzhDI17I6s+c1A7Y6nNsR4EBg45zM/gpBOmQ6Fyk+J/k6XKwsM0th AF+xaYArGb+YvUUuQXFcWPw3vbRNNQoHI0ytvfzzUeAeZdvxB0KUaNmREqvn VOCMEReKS3pgarza7FoqyY8dHfGT5xugWPpMrOtGUq99ss0LvB+C08BgkmBu EUxEHvHs21qGPIYV9RmWAKUqhC3xvgHfX2ez1i0qB+q+6AkjpXZ0kkwJcA2s hP6fYy1vrnThXFtA95YBkh/FEzXnT/Vi0MzPvzuUaqBZPcbt5RkOmixfPad8 pw7E5cPUjnzn4vy9dy8OcBHsfxyL9ufxUNT/vJj8BjqErnpZm2pLYKk2f4Lz cQYMtT/jupDxYT12ntsVwoRM4/0bejUJDEmRahOrYkGBi9vR8AIexjoseBn7 pgF+8b8MapviYt6C4GpjChtmtvDlDe97hIse8CZ/trPBbXPDJ9nWdKy85PJW 1osDsooDF5vaEnEsycqqco4D95SE/5qfj0fRMbfxxwOlQJFwU9ZnNOPkJbkU X6gAvVEnXfG8TrwVu51v8skzULt34LqsSA96P1mk8oOvGtzfd17+FMxGGvU5 29q+Figl1u5Ze7nYI9ua4VdeD/whOo3u/jx8qjM0HRBDg/65s267NhBosVY8 RIJJh74onNpNnq+kVMrJiTEGHElwYGnaECg2KSH+R5YFaQeCZPEnD3lKr+qe mnHB+gC8Ptl9E+OlfrS2KtWDW7Zz6z49HkqHjozF7qABY/nn7vWLCNRs3bU/ xZ8OCmq/f913J3Awy2wuL5sB5TIKRoJuBHq16Uc+eMWE88f7SoOlCDT+8maB K5fU69eu/y7dS+C5oMGK26IMMDFaKipE4ndv+HDbNl0mdHgXKCqR/On8JOCr dpELnzNyDcciopFK5aq9MaeDn/ffzaedCGwezTUOD2PAnTn22EsPAi+L9s+N ldBgg2XyYfFtBPabB6V2jNBB6d3kUDvJP9p0vqt1Oh1iPo/hVlIfZx2+F7e+ ZMDT+k8eG0k/l2jkLubw0UGkfNt5rUMkf3JMOk22MaBI9J+wYTJ+rS0qrZ4x XBi8H5A85x2F9aJW3hd8GNCRac+fRvqVzPbGZb69dNj9fXfCAXK+mYGfPdNR dPBY6Vc+Sa5PLz5pz+haBvzwKHuXT7Z7VN6u1nehg2+29+MCVwJ7m2YVkxMY QOfrEwsm45nnprFh8x/y/PzY57TJ+EQJO06WP6WDub3M7n4Sv0018475JmS8 La2elZL3+wN1Or+i73GhRe69UOT7SJwJC7O4FpmPC1e9vuNaJEQ529yX0phN BYG+nT9oAz2QxBYbgahsoK1cPuJV1wDjNrfXBMsUAI0FVSmuj2BBBTUzM6EI +FRjLTsbSzHqwPs/uZUlQKMdTq8i8729R3Ucj/wug5mI1IWG820YK+qwDH0q QaZRSu6KTxcKeIzSt3KqgPNg6M7k8V7UI7apXpapgeHwaJWgkxz8ECsSIhhV B6UddQo141w0caRGnGlH0DYvuHSFzcNMn4VnjdfSQVwn8+wdEq9Fwd6r39oy IHrdTo06cv+pK8vXOgQx4d9sgSPHtEg+W1GUQspY8FFlyPB3IQ+rixxXSXAa 4Ez9UOD4Ly5Sx9dHChqyQZU9sPquzSP0WBMoHPWKDUFKbSL/fEnHw2u849ge HLip0Hrf40MixvLEYjRmOXDWNHN7dUQ81l/4cTCdUwod96vfhGU0o8X+y1pU nQoQ9X6bd/t+J1bHzCWYZj2DgNNH2a78PRi0L1Biavo5+Ir2c3r92Xj1+m++ JIta0N2fY3vPkIvn0uoV7B/Xw5nCAof+8zy0Tt1jExNOg09L85x0VAjsk8sm dtTTYaNrhPsf8nxFHRd+9RphwNnOxb9VST374Oi+XVqaBR+2r4/tmuZhkHv0 t/UHuXCm3KdYf/YmqiV+OFS6sh4MN3y6oq/Nw/rhA2ZUXRosm/odyuQnsL6x O4t+jg5TRWIjA2T+8m6sKlz5IQNUIhS5FSR/KQa3i543MaH7y1CCnTSB44d2 Ovt106BZbU4tYjeB837+4pVCDCjYLLtdkMTnrrZDtmVbmNBW+ifF1JhAX7WG nKwLXLiZcUhlsiAaNdLORC80If0NMkwvkfe5FzoSnXzBDNipMGJjRt6flfwp Dn8LaaCwYN79oA6BZw8IT88M06G32l6UTvLF/JsB7WoyHW68yJKrJPk2ne2o v7+BAQKtBfCH5G/1Rn33kd800I3ufD1hRmAs9a36BS0GiCZIiUiQ/59ZPsQ3 FMkFTwHjc6nxUVhjR5sa9yTzt1UON1aQepCz1e50aicdUl8VZAmQ/SPeRGkp 3KBD/W2Wpg/J38YYVaqkPDmf1eaT3WT7VLGCtOtxOvzoCLcdJ/26S8z9sXgc uR+7d17/kH6te4J+w2aGDnPgM6hKxmeFwKTZ2wI6VH0Vo54i8Wtdeaem04gB zev0hMRIffnM902d/y4XmkN3ShUticKKL0lLPzgz4O7DJfvnyfUxNoQofXlB B5WmyZ7LZP/BkEN2J6UY8EiLsXAROb7l0Y8788bpYDGyMPcruT6tPyuWaDyk w7Bwjm8W+b/v42d+SgYMqFpjOZ3/H7833Fp8gKBD5ft/vwaT/QsS//nI3EDm M1Z7KBfI+irPtJbF/AxI3UjP1yLHnxVvuXernA6l2rMSpiQe8wIDWWLJXDA4 JpJmx4zE71XxQrmXyXz9v+X/3xf/W/73vvK/+v8ByWyvgw== "], {{ {RGBColor[1, 0, 0], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwt0lWUlVUYgOGhSxg6pBxASnJEGgaRuqAbFIGhbgQMDEK6EeWG7pJuUBrh BmklFFAxQEWRRhoWz7cWF8+8+//OWnP+s/dOSh3YdkDahISENJTyJ1mbaROq W2cnnfVBnc47NKcGOUjvs291Bv1pQU3ymp/VL/mUbiSSwfyQzmQALalFPvNz uoLhvE1OMpof1lkMpBW1yW9+Xlcygu7kIpP5EZ3Nu7SmDgXMf9JVjKQHucls flTn8B5tqEtB8591NaPoSR6ymB/TubxPW4qbXdRNTKQehcx+0TWMJjX2hKzm x3UeH9COl8wu6WYmUZ8XzS7oWsZQ3vM13U2v52d1Wb9iKpU839JvYi/J5vmE zmcQZT3/pzt5zfqBtifJ+k/dwqvW93QyFaxvaIrujTPVx9pIU7Sw/hp7pes0 We/q6zpWX9Hr8Vt0T9wXfaRvaG99Wf+JvdKvtZre14b6uVbW29pA98cd0Sdx 7rxg/V2cqy7Qqvq/fkg566u6i+rWD7UDJaz/0q1MoaLnm7ovvoMinn/T9Yyj D6XN/tXtfBF3iOxm3+tCPqIjJc3+1m18FntAUbPfdQPj6Rt3ihzmJ3URH9Mp fnPcFxJ9dkoX8wmdY7/iLsR+xzvG/6VY3Lm4N3F+8dviHeJOxL7Ge1Mmzjz2 I+5OnEecafzuuCvk9F2ndQmD6RJnG/tOLp+d0aUMoSuNqUJun/2gyxjKmzSJ MyCPz37U5QzjLZrG+5r/oRuZQL94P7MruoNp8b8939ED1LZ+Gt+pzwDSF4GJ "]]]}, {RGBColor[0, 0, 1], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{1, 327, 326, 75, 107, 148, 198, 258, 12, 53, 74, 106, 147, 197, 257, 11, 52, 73, 105, 146, 196, 256, 10, 9, 8, 7, 6, 5, 4, 3, 2, 51, 72, 104, 145, 195, 255}}]]}, {}, {}}, {{}, {}, {GrayLevel[0], Thickness[Large], LineBox[CompressedData[" 1:eJwt0nfYjmUYwOFPZWVvUnbI3qT4hCRKSLYyQ0RISmVmi4zsNMyUvVeyd3Y0 kdlQqFCSzus4+uN8f89zPcfxvs9733fett0bdkuSkJBQy0f0NlsZRydqU5Y7 uJO7SEoykpOClNxNfME2GU9nHqccqeKRZ9t1Ai9Qh/Kkju/2bIdOpAt1/3+f Cpomftf1Tn2XrjxBRdLG+3i2SyfxIk9SiczmJ3Qub9KKdPHu5rt1Mt2ox4Nk Mf9K59GPZ0kf/9N8j06hO09RmazmX+t8+vMcGWJNzPfqVF6iPg+Rzfwb/ZgB tCZjrJ/5Pp1GDxrwMNnNv9UFDKQNmWKtzffrdHrSkNxmZ3Qpw6lCDrPv9BMG 0TbWJPbJ/AudQS+eJo/ZWV3GCKpyj9n3+imDKeL+V91AOwq4v6ireJsS7q/q 57GWsefuD+h7vExh97/outh3139pI/K6PqfLKev6uo6kmOvLmqifxZ7qP1pT EzWnnoy10oVaRq/pI/qWFtXf4r/oxjgvelNraHu9X3+MtdLVWk5vaHUdoyX1 d62mm+OM6K3Yd1K7Phj7qjO1tP6pvXnA9SVdTwXXf+sz5HN9XlcwiuLur+im +A3udX9KFzGEDhQ0+0nXMDbOEGnMDun7vEJj8ptd0JWMjjXgPrPTupihPB9n irTmh/UD+tAk/nOcF9J5dkQ/5FWaxnrFWYj1jneM7yVXnLk4N7F/8d/iHeJM xLrGe1Mo9jzWI85O7EfsafzvOCuk91tH9SNeo1nsbaw7GTw7prPoS3MepRQZ PftSZ/M6LagVe0Amz47rHN6gJY/F+5r/oEsYRsd4P7OfdS3vxHe7/0O3UNn1 v/GbWkb/A9c7i3c= "]]}}}], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, False}, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox[ "\"\\!\\(\\*SubscriptBox[\\\"\[CapitalOmega]\\\", \\n StyleBox[\\\"D\\\",\ \\nFontSlant->\\\"Italic\\\"]]\\)[\[Tau]]-\\!\\(\\*SubscriptBox[\\\"\ \[CapitalOmega]\\\", \\n \ StyleBox[\\\"E\\\",\\nFontSlant->\\\"Italic\\\"]]\\)[\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[CapitalOmega]-Ratio Difference\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Normal (D) and Leveraged Bimodal (F)\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, Method->{"AxesInFront" -> True}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.441076908542357*^9, 3.4410772766230783`*^9, 3.441077652301305*^9, 3.441077752773896*^9, 3.441124281573045*^9, 3.441131327313758*^9, 3.441382642675516*^9, 3.4419106969828253`*^9, 3.441989184150819*^9, 3.4420102910436077`*^9, 3.4420103456894503`*^9, 3.44293474364168*^9, 3.442936349444005*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gOmegaOfDvsF", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.4404610224942913`*^9, 3.4404610267556667`*^9}, { 3.440551022455552*^9, 3.4405510255419197`*^9}, {3.44077124883039*^9, 3.440771283327057*^9}, {3.441077069867744*^9, 3.441077074662794*^9}, { 3.4410771050992413`*^9, 3.441077108937051*^9}, {3.441077139098723*^9, 3.441077202358838*^9}, 3.44201024643655*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gOmegaOfDvsF.png\"\>"], "Output",\ CellChangeTimes->{3.44107727817104*^9, 3.44107775413797*^9, 3.4411242829594173`*^9, 3.441131328710167*^9, 3.441382644016982*^9, 3.441910698432439*^9, 3.441989185525529*^9, 3.442010291081029*^9, 3.4420103470338373`*^9, 3.442934745158445*^9, 3.44293635078647*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "nMN", ",", "nSN"}], "]"}], "\[Equal]", RowBox[{"x\[CapitalOmega]mxl", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0.08", ",", "0.05", ",", "0.1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.441077323294668*^9, 3.441077347763694*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"x", "\[Rule]", "0.05366517587432405`"}], "}"}]], "Output", CellChangeTimes->{3.441077348567203*^9, 3.441077754286826*^9, 3.441124283086185*^9, 3.441131328831401*^9, 3.441382644180829*^9, 3.44191069875454*^9, 3.441989185675188*^9, 3.442010291142116*^9, 3.4420103471449957`*^9, 3.442934745382959*^9, 3.4429363509558697`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"x\[CapitalOmega]mx", "[", "0.03", "]"}], "\[IndentingNewLine]", RowBox[{"x\[CapitalOmega]mxl", "[", "0.0536652", "]"}]}], "Input", CellChangeTimes->{{3.441078735527605*^9, 3.4410787737821817`*^9}}], Cell[BoxData["2.7096177016110157`"], "Output", CellChangeTimes->{{3.4410787678272457`*^9, 3.441078774889862*^9}, 3.44112428315224*^9, 3.441131328893605*^9, 3.441382644243784*^9, 3.441910698821186*^9, 3.441989185732088*^9, 3.442010291204054*^9, 3.442010347222568*^9, 3.442934745463376*^9, 3.442936351022156*^9}], Cell[BoxData["2.116410525802207`"], "Output", CellChangeTimes->{{3.4410787678272457`*^9, 3.441078774889862*^9}, 3.44112428315224*^9, 3.441131328893605*^9, 3.441382644243784*^9, 3.441910698821186*^9, 3.441989185732088*^9, 3.442010291204054*^9, 3.442010347222568*^9, 3.442934745463376*^9, 3.442936351024447*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gLegend", "=", "\[IndentingNewLine]", RowBox[{"Framed", "[", "\[IndentingNewLine]", RowBox[{"Grid", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "0.1"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"70", ",", "Automatic"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontColor", "\[Rule]", "Red"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Dashed", ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "0.1"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"70", ",", "Automatic"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontColor", "\[Rule]", RowBox[{"Darker", "[", "Green", "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Green", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"9", RowBox[{"{", RowBox[{"0.015", ",", "0.0", ",", "0.015"}], "}"}]}], "]"}], ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "0.1"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"70", ",", "Automatic"}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Alignment", "->", "Left"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.440768378762293*^9, 3.440768561516054*^9}, { 3.440768624541299*^9, 3.440768677937708*^9}, {3.440768745237956*^9, 3.440768783247244*^9}, {3.4407698053902187`*^9, 3.440769866762312*^9}, { 3.440770143074379*^9, 3.440770145175685*^9}, {3.440770204116376*^9, 3.440770370246828*^9}, {3.440770426726913*^9, 3.440770620588566*^9}, { 3.440770900955824*^9, 3.440770901429399*^9}, {3.441074588183249*^9, 3.441074594580447*^9}, {3.441075931663457*^9, 3.441075967963489*^9}, { 3.441076349303772*^9, 3.441076391477153*^9}}], Cell[BoxData[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"D\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"E\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"F\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], GraphicsBox[ {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Dashing[{0.135, 0., 0.135}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False]], "Output", CellChangeTimes->{{3.441075962000022*^9, 3.44107596872441*^9}, { 3.441076350134965*^9, 3.441076392053504*^9}, 3.441076635699864*^9, 3.441077278363302*^9, 3.441077754361638*^9, 3.441078508819014*^9, 3.441124283221431*^9, 3.441131328941309*^9, 3.441382644328014*^9, 3.441910698888936*^9, 3.4419891857861156`*^9, 3.442010291271318*^9, 3.4420103472890463`*^9, 3.4429347455316896`*^9, 3.4429363510900373`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gBimodalPDFAll", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"nMN", ",", "nSN"}], "]"}], ",", "x"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.4"}], ",", "0.6"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[Tau]\>\"", ",", "\"\<\[CapitalOmega][\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"vnW", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ "vnM", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], ",", RowBox[{ "vnS", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{ RowBox[{"vnW", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ "vnM", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", RowBox[{ "vnS", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "]"}], ",", "x"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.4"}], ",", "0.6"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick", ",", "Dashed"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"vnW", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "vnM", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "nL"}], "+", RowBox[{"0.03", RowBox[{"(", RowBox[{"1", "-", "nL"}], ")"}]}]}], ",", RowBox[{ RowBox[{ "vnS", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "nL"}]}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{ RowBox[{"vnW", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ "vnM", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "nL"}], "+", RowBox[{"0.03", RowBox[{"(", RowBox[{"1", "-", "nL"}], ")"}]}]}], ",", RowBox[{ RowBox[{ "vnS", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "nL"}]}], "]"}], ",", "x"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "0.4"}], ",", "0.6"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Green", "]"}], ",", "Thick", ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.015", ",", "0.0", ",", "0.015"}], "}"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"gLegend", ",", RowBox[{"{", RowBox[{"0.45", ",", "4"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdzE0og3EAx/GZ8lKWzEhI28VLSxabMlGPWOvxkjAihCJCIiRbyEHRLhqb vKQhElM4TGwpRl4yO4jGxfsMSS602fj/nsO3z+0rqGsrqmezWCw+CSY0z9rH Jp2UOm3YAf9Egk+4ZPYySv2NrnFidxztoyW+5LWIYKbbKoaRB2dNcCJnpg3y 1sM64e/lbRcMXwhRwedR3z4YIVIu64gbrwbGdy1d9qV3Ur1TNeVweyhJGjfn pLwjURSUcfQyaN9kyWFH5VE+FJ9zqqH721YHXdbQepjuDe6HqwlXg7CxSfID oz0e33higF+WBl6tv+kg3SqcKMJXXTUL+bW2FSh+bF2FEiXXVEz8znCb4QBX u2wirn2GGKBqcoE2Ey13dCHUc7Otu8QantgGecmj19DicjBupdnDT4l+Da+M 8v29GBhUamW80GmEJfNOSrCTKoKLMSmpsKfFkwFPjMcPMJd+eIJb/hVvsJlT wFYQFTeOQMguk3Cg42M6EravGRgPe+5jYbclPhH+AxOdDu4= "]], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJw12Xc8Vf//AHDcKzPSoCFZLSMVDfN1KBmFFEoJ2RQfshr2HpEkMkP23i7d HHuvy7XXdUmSvULK9/z++P11Hs9/zvt93u/X6/V+vx6Hz+i/e6Z0NDQ0WbQ0 NP/3bB7M946OHkJfXtSfXH4WAkwfvvF9iBhC2X2MZGjjQkBVrQ19+24I1cCT XR62h0B7zcwfd98htIKO+/iYaCiQsk46mNkNofQHPnQpr4fCsEuwibjKEGqv at/rqhQG87zmih1bg6iMg+iTa3vvQXTEYapxbRDlrnaMYOIOB5uPXp7Vi4Po MVU1VXrJcFhmSvhWPD2Ixh6jpXltHw4bq+QrMd2DqED1jIL+XDj8q1c4Y54x iNKXlCsjlA/AYcnDQPtwEGXQEF39vvARzvgesAu9N4gyDSkvXj0UCTJJdCMn 1AZRQokwsfp6JJgNzeRdVcDeJ/Fyw90nEogq+TrPRQbRKb4qhlKeKLAQQtIG aLD5sQfMS+t/gupfTxXzMgfQePtzMM4SC/0MWvnSKQMo8byp0/j1WPglcOtY S8IASuVquMtnFgucekILUx8GUIOgK7K2NbHwvH014pjbANpb8vO8zJs44Mr1 nva5N4BG2In/7f8TDzY2qd6P//Sj1xIkOdDoRDjxT/2h4mY/2kjHxbNalAjN IVsiYiv9aPeAFV6pPRH4c2/30/3oR5lpizd09hJh4NfKuayefpSNTjz2kHkS IJZynVuZ/ahu9O9hPtlkOGgycDTyYT9q8NCtPx2fAuiax4L7/X70scruMSP+ FHjuLVRrqd6PKrNxS9xAUqAx2fWZ7M1+VMiZM+K1Swq8mRSomhbrRz/U5ibW bqbAtL6tsThDPyplbCY/tpoK5bpMed2lfeg+IRbUmjkDzHI695ML+tAP/S6V aSIZcHjvg/VAdh9qejxbjVkjA2xTeETHk/pQTbWrs5oRGSC0JJ7zK6QPzUwU y//BmwnxPvpZ+8z60Af7uRbuK2SBd35xmgxnH9qy+0XXIj0HLtO92odw9KEl BszXVbtygKIlZ3aDtQ8VSGFR0/udAzI7zadV6frQ8UWZfg7lXNi8OZ7yYJGM 5tbyBzf9ygXLYcYvLxrJKHmYntlfJh806PU/ZziR0VaVACktukLoqWBoAzsy WvSXIGNzohC0bAo3+5+RUbXkwIsZEoXwaACvTv+UjMq5B1q7mBeCSWb27tPb ZFRvOaw+s7MQXqtt657gJaNCBBpDiS9FkPIx4nBoSy/aJBVEXjYtgbOqcsjp +l7UU9/yi7J3CWT9+/GMWNWLyg6mB9UnlkC+uXTdXHEvGnSQKHx+tAQqJal2 Sgm96IqDilumVil0jYl10dj3osfdZNpT7pTBzum2QHvuXtS/4sxnF10CHFYX 4TXn6kUP7madvP+KAGJOIWWPDvaiQ6zqU3eiCWDSqDElz9iLsvXyVWYNEaDD jCxzYL0H7eOq7T2oVwGJ6WNLOW09aA7xZXOeeSXcOr+sPfO6B33g5Ws2G0ME Q03N+SHHHpTA+bv7KUqEN6+KvDpse1BNrZ9KdNNEKGhxyC8x60HVTb36CaLf 4JjVNqP3vR6U8zapf6/2G8xn0RFPCfWgq6prngc2qiBc5Ai/7hAJfVlrFchC rAbPskc+lF4S+tp2Z+BjTzXYIokz5p0klP7N+lPJn9WgpiWc7VRHQnkvL75s 56wBRhd5iYhcEkoeUfwpaF8Drm3Wt7o8SWhLlGJ4wcVasLBqtFIUIqHGyofT a9A60Fln6WgXJKFFnSINMUN1oOimKaZ1ioRGjAlkv1urA/7w0TWjwyRUhWuM t+NsPYxVrLp4/OtGXZUOr316Xw/3mE69+9rTjSoK9Fz2s2oA2Qzn4ktvutFc P0sppctNILIxmNjj2I0q0M6qXdNoAm4FqVB7227UXdMt+ebzJtgd2bUoNe1G dY4W6pWnNQGR3YtH8m43SilnvLLH3Qwyzm8DkdPd6I9kkvV59hZweKuAJiR0 oU/Z+KX+Y24Dm+aPXMO3OlGSmLnagmEXuKo0NZFlOtGF/oQOFe8ueNu65dx1 uROtdOOj1qV2QXb748F6nk50M/4cjuNXF8x280Xnb3agtm1DhgHS3fB0KPe4 b1oHepJ50023tRu05hpOXtzXgSazLGbbr5FAmnVTwK+hDfVvHjHY70iG1bvL zzIq29DCxWLpxWAyZH2cK27Nb0OjNQY8qclkOH5q4gZ7TBta8q/wOT2JDDuX mo0/2bShSYH5n65c6APCg5gvWVxt6O0ESdZb830g8UVOoMuyFf3nyeb/2HkA Lkj58x9la0GDHfb/GWgdhiNmy7CGa0HjiVNBS9PDsPte90nndjPazh39+tje MLT9FP7k870ZDXayDUoRHwGL6O79K8Rm9JLK9Ymo+BFI2jq23fKsGeXsaOrb dBiFw+U5XW9amtBv7T3u+ZfGYUe8x2XCpxGdOKOOH1qhgEneP5PnjPWo96kZ 4cW9aVg/qAcT2jWoJCeo/2Gag0q/mTm2L9/Q6i+cQRJqSzD01Ula+AIBHZx5 yR9Qtwriqy3pPT1F6H8eekUxuE1w9eCLaknPRkXOnC9u5t8G0YYX6b6kRHT7 fbvTF69dwH/PidHrDkIdu3NSvwbswa0MI8V/+zxhYC6hJOcmLaLlZ6UmVOwJ QdsccxdVaREjkxfaOgZeUFvA0FWoQYu48nqZ5pV7Q8Daw8jMR7RIyackX30L Pzi5sZtsa0uLCARSGqpagoF5iv3vw1hahOaK2Be49QH+llc/dFykRRgExdO1 4z4Aq1rhPf81WoTt0LXsZ6sfwC/YxenjFi3CvSJXHJUQAUxCjsJpdHTItVz1 uqXNjxB9X3T4EycdYnPaZupz+ieQtX7cjsrSIaNHcgVomBIA52kdvhVAh1i0 Sbpo6CaAyOC/OckQOmTdo5GckJkAhUP2Hs7v6RCW+QlfWdXPQF1e1v4RTYec fMrk8E0xEehYWB9EZ9Ehd67J9O/4JcHNeDLXzTY6JGsqKcaRKQWW/KQgkQmH 2MrN3oq/lAIbGmI+xvtxyNXoC2v1uikgnFmVyc+BQ2rVv94+nJUCJfqtwRFH cchQBXm3SDUVDov9Nrh1FocwhjEYLAenwY1yj/WJGzjETMZa4BlbJtx9L1Y1 +AqHBAWE2a5LZoLujKnJQ1cckksu/uZqmglTsWGkHg8csv5850EYMRNCd4rW y/1xiFe8/9tSqyxQ40hlvvERhyT8S9rYa8yGvt3tGd18bD6qDQqBq9kQRNCK 9SnCId8jZ98d5MkB6/G7s5mlOERETEzotGMOmJdclJ/+ikMqDYj6qgK5ULWW kMzVjEP6qvubItzzwOC1W6/TBA7ZYt05zJOdB70aCSQVKg7h1j1plN6fByv/ nOW4vuMQoxXj3QrRfPDLd3+UNIdDlvlWLk6MYL63+eDFBg7xq6HvOBxXAOfp CA/pmfFIMj/vVYOtQjgfzb48cQGPaO/0XipiLYIW//v5gxfxCGOPvyg9XxFY LIU+aL+MR2w8lwSzVYog6R1VL+UqHpGiVB36HVMEr46Ec3DJ4RFS/JOVUNli 4FJ7NU1/B4/4OHIsTGoWw/sAbr8cNTxyVa1hVsKsGF4u3d9R08AjcbsilOHQ Yjgw+J+25z08YvF4t/MMpRjuZHcWZz7EIzTHYnOqvEpAj9LHRGOCR4qX1TM4 ojDHXVC8b4pHzJrpUkyySyBQPRdJMsMj7c5WsczkEvBY2u8gaolHPvVLBumc LgVlnqGCfTZ45Hbegm+mZCnoX6wlif2HR/75JnnuqpWCf8nJ7Pu2eMTkCtOr ZKdSUB377B38Ao9cjBg0X2wqhbphSvFXJzwy9eytsfxoKXxi1vSodMYjkTcQ g4jlUmjY8/1X/BKP7K6m60gdKwPRuCv7o17jkWZNZ0U/qzIYq9UxOOmGR96c F5YfciuDBfM3qSuYL9BOyIh8KIPB82hUtTseiSi4JdHztQxk/pxyU/fEIwbs nAI8+8uBO/KDvJAPHmEbebTKzFcO77U8wroxE9M+1/yWKIcFNmGinS8eOSp3 3pCkVw5ZLYPpKX54pJHJRqzKthyuxq6bXfXHIw59Rf+yfMrhFCsNbR3m7ucy 8T455XD5t3x9ewAecbvu+dyuuhweSRTMqwTiERF8o7Q+uRwGolwXazAHxGoM X9sth/rNLpfkIGw/zSMyBQ8QoKosm5ElGI9MXx56ySFIgNUzEc9tMCOtRly/ bhNg6p7x19Nv8cjix/SZAQMC/J1EU19hjns6X1pvT4Dy5sPmzZhVRS/5FvoT 4GLGmT2OEDyyteWolRBLgH30VdY6mNPqKwWC8wmQopRe9BGzVtjeqnMdAVyI RR1dmOn0btaaDBDgdkRJFT4UjxScDXyv+YsAStM+vhKY9dc6DOX2CKCbtsdn gJkVPXhR+FAFKFbgI3wwVwY92OM6WwFkivNICmYLnbhOvHQFbDUgWyhmTv7J +BX1Cvi1qTrXh7l+4bT1uFEFKP/wLZzB/KLCSqbNqQJ4l6fVVjHz+uazEIIq gOGuAbqFufPu+nBKQgWcFV6m38Hswi2Z9b6oAqSCI/k2MQvNur5ya6yAaAPt gwuYB4trlZ8NV4CIq/jgOGY/d4ajDxcrwDJB2r4Ns8TtOz9u0lXCTWOXqSLM VM73ZZc4K4FHk/H8R8xh1D5fHqFKyOrZuPECs1zecW0WuUrou2YgoYp5/pWB 4JZmJaSWGu1wY45RTFmbNq0ENjP+yDlsPZU5ftaSXlVCu1I9QzHmzVHR8KqQ SpCQe6HhhDkl48XT7KRK2DnwyFoCMy2yu+fTUgm0E0kiSdh+FrDId9mNVcKr MdtODcz6A74J+iuVcLnqgdI2Fh+VNuyy1499hS/LjqgMZgspLdbTol8Bpy+N 9mPxxbkveoRD/ivAtETUM8wv4vlf/7L4CrFnWUi+WDzyWpqrDLp8haz9H8VZ MHdK5BxtCPsK0U9y/wvG4lmo/Up5AuErkMTYnFyweKfuKK9rMhKhjJO1iRfL F4DdD0sniSAXbz5hg+VTnHe+eIg4EZQFhefLvPGIDiunfbM+ETzT33yX8MIj LSenVuRKibDnYm41i+XvGaPI96OtRAgNp5Pch9krTeXSawoR3EWLaXlc8YiM WIFtKcs3YGsL85F+g60H4rokbPQNliyZLC5g9WO/78V3Lc7fgFnyNw83Vl+s WqYumId8g2vzf/pxjnhE4J6qTTLhG4wxiqnXYPUo0phr4Sh7FVyfTnVct8Yj rn6Fc/TEKrD4oR0vY4xHhltNgr6QqqDzi8n31qdYfrIfFZL/UQVOVa7IfUM8 shzlZulyEIXjq7RX7j3B6l3m7dlVCxSeHxiQYXqAR07PrK4uMVeDdV0O/okK ll8B7bVVR6ph+tWWQIgS9n1CaeEhvNUwKvHculwRj4zb6F4WvloN5aSbvjvy WL39jdqZPcUsK/BbSgrLL6aQ5dHyamg6csU87TweYan/PbdaUw0ab6w1Pp/F I8zuRt8Z27Hx2nmlP5zGzpuNa8MSlGqQ+E9K4DkfHsFPUuveMtZA/9sBI+pR rL4SrkfJ6NaAh2/aAeo+PLJgMS0bt1MD9y9LPJPCzsd5AY3rRfha2JO0ZI8a xTxecbmZrRZu8jEvLw7hkDmtd2fX+WsheuSTTRgZh8wgUhx3btfCvMLP6JgW HDJ+NGz6T2wtkOR0XTqw87qzWTr4sWwd9LTXlhI9cYhg9diCinIdXIDYDnDD IW/K3e9ev18Hpaz4xG+vcci5tLojRyzrwPQM2SPTHrsfeN9O7Iyog8chzoEK pjjkitzjUvn5OiBl57q4KOGQuOLXE2dj68Hxsv/CGUYcYpVQIb6+1QCFDoue x9/QIVXsgh75uEb4Iui14uJEhxz0DG23YmsE75WlMyN2dEilsbHppEAjvD5l sRpkQYcwn98f1aneCLpljY4Ebez+VGy4k5HSCHKLJD91MTrkZzNDzZO7TXDU LeKE1wQtYrGmrd6U3gwO0497ZiVokRCX6/tNz7WBwvZwYFz2Hrw9MTfEPdEB DBaW2VHWu6D72za1S7wbjv0r9O9V3IYE3l3OPDsSQLl5Zq/QJnSRbd5Ft/YA mxQl8vD0Khz+gn9kxUoG+ZNlf0Vpl+HWrqewsmUfFHj+FQi/MQfB//FrsOT3 g1GKsJeR83fw4u/JfrY4AJU+yXnHdSbhtbvh0761AUhbkM90VJwEu9FFTtge gGtjL7xHJCbBMJLF6yB+EA65M5ObDk2CHLPiw4pjg3BS5nMPfw8F/qyU4xkU B+GTbfjbybsUcKiJf5IcOwguXjRt6znjYGpoyT6kPAR2YsKRPrgRqFdBHs2o DYFS+TbXi5/DICjOlbp2bwjmfvD32XUNwzR9gxTbkyE4B8XL6bHDYJLNa3bD bggO8I1LLEoMg9HmADE3egguRVVyTFgNgeHbW1Zec0MwfYpV7NL0AOgRBBqE 32J9jL1D6guWPpgFzpup74fh6ZHOrq01Mtg3MdbxRA1DuXEzOXyUDEH9C9Uc ycOQcjNOnS6PDIT1cuLv8mFQMis91alJhiOX7pTUTWF9k/t75oPxvdCZ6fDl sfQI2Gbx/GBX6AEktsEzeG4EDN1mHL77d0GrQZzjr6UR6Cr0Z9xn3AVagvaW tzdGgGhyJFJZrgssc3k1WWhGwehklrb4RieEo294g4+MAl3YqHG8SSd8n7qE BiGjwJHG/bZYpQOCRBJ2AyNHob53+pipSBscXnFY/hk7CtJ0pycSWdrgc+nt aZWkUXjC6HNrd64VSuS225hyRsGeeCqfI6sVxu5qxQbWjIJwuV5XyflWuOjI LBU4Pwq6bUuv2y60QN83J+cAhTE4pxYlX4z1181skTRvlcYgmZ7md55EE1Qa lAa+uzMG9suHjtcfa4JE2vXYSJ0xuFz421JquhGsFO2qU6zGsJ4ywlH7dSPQ dDxjqgkfAx+dXcNr2Q0gNGoYu00dg3fKTZ+lT9UDt6iH4N8fY/C+KODxLYZ6 YHf7nEuzMAbcISJBFkt1sH5qHGX4PQYxR4Zp1tA6QI0fTx9hGYeoLrloHqM6 0PqlLXpZfBw2wn6l1mbVgtuOKmrlPQ7hFXa03XdqIO6nr8twwDh02KEXp67U QOVgtaRq6DgEztYlsp+qgd9lV0vOR4/DLw+fteKVarC158+czRuH96cbrp/7 VA3G89vhZsPjcFTHZeFxLwrK4xlmRpcm4FCwbIqK7Dcw65gS6Lk6AVTDKKr9 kW/gS+SZlJeZAD3aWmLbAhFqYyIe8ylNQE/vuyzcZyJIP/C4S9HDHEu+HoYj woXuB1L6ARPwgzkwb4dcCYdq97E9mpgAsQLTE6yfCBAjG2RoPT0Braw4tlln AvBW7C/2+DkBhy9A+o8HBLhQcPhh+toEDPZWa2seJYCgBofmDo4CFuFZ+m0x 5SAneypW6SgFNIMjBJG0MrA/Ji1GRSjgyslzyqC/BK4OuAw+u0GBinpdolNl CexEVHluKFIg6XTsw7wE7F5/QIHMeJsCYfLB3K7mJRDKoPJKTJsC7JdDKj7u FEPGhk6diyUF+hIc8mPOFMMY6cUDrnAK9AYe/HDpYyHw5p2RjoigwNF3cXxv XQvBKGiYhyOKAqdfHuClMyuEWQWFGeY4CrjfEmJErhXCajGH479UCtD3Is00 IwXAGFkQ/r2CAnfVtu94nC0AiUeLHcWTFLgVJFn2KT0XnK8mF16cpgALpc20 1S0XKg/qfMydoUCVozpFRCcXoO2bXvovCnC/aHjtTZ8LqjIhv2I2KHCWxCjy wiwHDHhEmLyYJqGTde6A6CWsb6Ra3rx7aRKU363KjsxmADVEWAGH1b0q1U7t vtoMkJZcgLKrk8D9o1ycLj4D5t/ZSnPLTILfap7JmmYGqMs6X569NQnqZsRP olXpcOiTD6+H3iTkEdsIpM9pEKf2eTfffxKILlZ+Jn4psL5luGMUNAn66n43 NMxSQC2Ff+tIyCTobqUKmd1KgX87qWtvwidBpnA6l4shBQwzcuaU4iehY7yO wyfoCwjiKgcniibBnXmY+0F0MuQSyCXs45Ow4+/ZG9GXCFJZUq4RlEnwKB+X fEFMhMbYRMVjU5MQ/ayWYvslEShuz/v5ZyeBsaFRj2SXCAcV8VtXVidhFyZY TxxIhJckcWm9fVRIY+VXN05NgJtz4TUZF6hw2eKKyM+xWCCNbAWKXqLCwoZH mWVxLOh36N8rEqfCO+G7uwKBseBcIDT19ToVhGs3C25eiYUsp1p8lwIV/G9o BoiFxQA7blVpQ4cKrDv3tu3uRsPwCc1OeXcqqM0sNyxsRUJZN+EDhxcVSCeM s3GkSAj35dWd9KECweJFxoPMSFBZWpryCKLC1oDEZ8KjSCDUhm6jH6kgSXgQ pF39ESIt2wXlcqjgcLa6tiQyAu6VK72RGqLCOs+fw9+tw+HC83yEeZQKGUbb /IJq4cDMx7VveJwKCpGTEVEi4VATNBP2apoKN3vOeR+ffw8X9X3TCEtU+F0w VBhg/R7Y6OtIV/dNwQ3vmzHNr8JgrkIoah/TFJw7H5YsohcGjTbhev0sU5D8 eS+nWi4MXAef/nDkmIKo/CdYOxsG89k0f0u4p0BRVLtdQvAdNBta1PqcmgLN /Wd1F3+FQsqRbn8t/ilwfTRRgysJhcfunw+un50C9bXFk4hiKFyVYBisE5oC r/YLbGZsoXDwp038B9EpYDc8Tf4+EAKL8f1GxhenIGGgfKkqKQRa78mdExef gv//H/U/TFwQJg== "]]}}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwUWHc8V+8Xlz0zPlIoKWSEZBTyueemIiMZUdGQrFAppK8iMyMrKSl7z+w9 HnuPj4+9s1WUGSH9/P66r/fr3HPO+zznfZ7nPveYyWNdM0oKCgo5WgqK/z+b BrI8wsMHkYiCtZsLXawSw7uKY+9CB9HJ8LctY3JxSupXWpF/0CDyOUTkW3we r9RWPbv9ymsQGXA+aalUTlLqSjtib/5kEFUFhZy14shU4jA7yWFsM4iK+Xej JziylK4dVci+abHn/9ZWg/1ztlLfu2sLmrcHUY2glu25jVyloZdvTGXUBlF+ UxrndHGx0phZzQi33CCKwprWGLirlKa0/lyjODaIQvxTrtUs1ynNn5Vqn2Ue RJRrZPRMoVVpgd/iUvvmALqs1BRrlNml9Oi9u1vVzwEk+L2KVVigR2mJIaoi b3oADUuHMJ791af01KXkT9LQAIo4q/tH7MiQ0vpKj9wn0gCaLbiJi5eOKj23 WHoS0DCA3lreqgz+/lVpa5jpi2v5APqb7CBoD1NKL7WFv9vlDqB0I0pJjZkZ pd065RMWKQNI/xqn48TsvJKrwh0Tw6gB9PzifL6N9oIS1Zf/oq6EDiB65jsJ oweXlC5aeiupBg2gBTFza3GRZaXXx98P4X4D6FzclZuy6itK9GHZXLKuA+jh 079azE1rSmo6lfkSLwbQeaYTb26e+K3kx9SmK/xsAF3kUsq49XlDqbV+cIn/ yQBihI0AH5E/Ssyuc4E8NgOokolLy6JzS+mK4ro4p8UA8k4VLfv8dkcpcI2y lcVkAE0lBw5O2u4qsT/go9t3YwAlCp2iPaC6j3jCi+1JoO4AUvPbnwlulESl WMph3it79WvLytzroiLqVKxdTFUdQEz2q/iOPA3RfHD2yxnlAVQ7LhWTWUJL fLk+cKhOaW/9SVc3JfTpiW/ZW911zg6g/X+pkvVYGInlalkGNuJ72Cp6x2eY hUg2i636c2KPf8nxywvrrMQ5t3di3scG0KFKZQsSDztxJ9IrlPPwAKpwVuz7 qMVB5Ch13I3lGkA6y6fb0sIIRJG+B5an2AdQni7v1+cbnETiihG5nGkAtQwf tg58zEW0FMOT+ikGECed3U/lLG6ii4o0m9l2P3rKtuLt4cRLfGci6LSy3o8k P71J0jU7Qkxx4Zp+tdSPpui2N7ueHCVWfqLXYvnRj6qYt7MFuviJPYVbRZ9m +lFKdW1q0M4x4jfywjGRr/1oZc4+xVFJgMjJ1LWu3NuP4jsoXun/EyKKCdfe JXX2o9syL1b1vISJcKGg+XZLP2K7TVM3KSRKvHY3WeZHXT/y/nhVqHlSjGj1 IjzyOepHHVSyZxcqxImuYW/oaEv70TLZdUW7RJL4Ps/5ybv8fvRh5g9PkLUU serHvUtfUvtRi/eIcly1NLGP7lrWuYR+1FTAGnSNSZb4Q0CFuzmqHzmE9cip WcsRKXB5D4PwfpTPY39qa/IMkeuW2OLUu37EfOQb65adPFH8+eHrTwL38rMw h68fVSSeD91fvevTj7JHpswK5s8RbdpWQrld+lEOJ62c4gAQ3eend5Oe96Oo qMuHPuw7Twyj7reUtetHidx252NElYkZ/M3k6of9yGhybMPO7AKxRqlM6apl P1rIs6i5XXiR2H8jM2nEpB8NVo2HoCMqxAX7aDar2/0o/Z00P0ekKvFgpse0 p24/mnV9NDT7TZ0o3uygxXGlH72vkcscLNUkKs9YFEer9iOmnU9jsWlaxOv7 DI9LKO/x/6ydE3Nbm2hzRNO/VKkfZb2Qc33oqEN0V8B+q57tR5UO9FJD8brE MH0p497Te/xm9A8fntYj1gRwyi6d6EcCDxOrbiQaEAdSaaOcj+3FM38ZLiR6 g7hYv0nHdLgfpVbZRD9quEmknPz+5CPXnj5YNpMGXIyIh3ZHhoXY+1F3qMVx gWu3iZI8nZfymPqRmON4o+jlu8QLZ6qzcNp+9B+4i9h9MSY+epToYbTdh8Za q2M9N02IvLtaNy797kP94goC/oKmxKaATfFTy32ooGpQpcnEjOhwJG4f90If WjkWFaSVb048nqnRRznXh6jpjuVd5LEkdiqtpy1M9CHekdDXE+8fEF+2Rb3q G+lDF7c2Nx+KWBP7fyyLpJH7kEXs1bNDYY+Ini8+/33X3ockD/Ju95+zJUoz XSI7N/UhvdHQ1tOKT4j+Yh9f6FT2IdHXplzJZnZEhdLz2udK+tCBfGWFyFB7 4qzaD0Gh/D4U+bvsQEmvAxF/gHVspvahk/e97QpCnhMXN+fiJhP60IPtrcE5 NifiJ5+3jm3RfYjTqu39TOIL4lryNH/M+z5kNsFdnc79ihh7NnDdN7gP7X4+ q5zp7ErUajzbYvemD/3yia3peulGTJ31s1N160OC7a/nTVI9iAbPZC+ffrlX /8FKyugBTyI17dhhXsc+xJeZ7dvE/Zp4R+h0w0+bPsRsWr7I0+dDZCoY+jRg 0Ydq2YizXnp+xOKLno9rTPoQUZakaDr3hshh2n/ow40+FGyQQ1d+PYiIVl0X X+n1oczZS8vun4OJNh5iNQ+0+tDhh2L/pMPfEhvinK2JF/tQ2PWp5T/V74h2 0sK4MPQhRdcr8l0/Q4n8NSROdsU+RPH1fY6cxAfiiwmByulTfWhjvnRf8eRH osiT9pAOsT500IrVlurWJ2IfhaNFsVAfitM4NCr/4zNRir+FzZ93r3/zw5q2 2tHE0Sy7GQeuPqRwOtD1XWgM0Q+OlN5l70PHXIN9wwNjidN3bO/L0PWh4eUZ xeYv8cS3P7nlj1D2oWZn08KYvgQi5lLLTPe3F0W6aqBXrEnE8EiuwqGVXhTI tEqrUJxCVJGo8qtb7EWj12+dEBFLI66VP7j7Zb4X2VM1ENRz0olaI+X07mO9 6NbjyPVNqizitrX5qPVgL2IuIiwxP8gmpmyz5ur39KIDA06ZGrdziJS8941E W3r35iX471XbPGJWGrMUob4X7TuLkzOD84m3FAup/6JeBMd2Q6yrC4hFNxm+ kAp6UcSH++ZF14uJ5hkdLD3Zvch7VsTzX1EJkfPfu4f96b3onMuHjJaTZUTb BD6JsdheRHn84X0Z3Uoi38aU/0REL7o7NHYggKqK2K6WujAd1otshEq2mb5X EcV+yWT8COhFD2f5nnSM1hAHzv9h+uXTi+6s3Xzy30It0Tu00nrFoxflr0pW /2OoJ04rqJ38818vksj8PDRo30gM8d//Zse+FxmHnSifrW0i4uPd3/897kW+ Nz8pKQu1ECM976TRmveiJZvcleHj7UTNfgFGxnu9yGTl8o8z1R3ELdFvD1hu 9aKTj+tyWc6RiAaddqKcur2IjurlQUlOMpH6uILvwSu9KNx60FSYs5uYZ787 z3O5F2meOBSyc6yHyMbjm3IM60UvOorNZaz6iJU2WvRCCr3orFWFglhSP/Eh IliKyPYiKiL3RZHVAWKLaZTwKbFedJwkqDFSO0x8XnTfW1qoFzVMlXu7qY0S TzCKzsnx96I6Z6cclukxokdWXpISVy9qZLn1TkhygihN+R8tzt6L6OV/hovz TRK/XsPMLzD3IpovbKHUvFNEpa0mIXXKPb7BAiUjxBnid81Aryt/e5C18H+1 V8xmieHRejPamz3o4pSxydOIOeLvi2MJ13/2IPmTTz8KEL8TE8LiqY2+9aCH eVWlT1J+EPW+W5reme5BiYuNHzdOLBKzg1YFzIZ60GzsvrV+qSXincliD8ve HhTaWdZDybZMZJZzmbIm9aBzh397L24tEx8M0cc/behB/I9zP9r/XiUekuig fFbdg7hv7bbfpl8nNrx6Z/JfeQ9CQkoasSK/iceF+I675vagf5x6ilJhm0SS 45SbR2YP6pjO5mab+0N81ZIy8TqlB1HLrDLYX94mjjyWiQ2I2uPL0qFmemGX 6FezSfE2vGdPrxuew2P/iAoHKo1DQ3vQTtHaZF8jBfah9DL/Z78epNeWKTP5 iRK7yLLfNcqrBy07hTB/+UCFrdztHo913as3jsPsRTQ1dpXmTnTKsx40z6Y4 UD1Ei5FL6FrhSQ+ySPM2txOlx649yvndZ92D+nRrrw34MWCG/dRaNPd6EFPx E9dRX2Zs5M2X/yKMehDnys2YHNH92F38RqKMQQ+KLZw0jPvKipmmpu/c0+hB +pHfHj5rY8fmbuuL/LnUgwxfiWQ5d3BgVhz/9ILxHpQyWTjSNEbAHr/QTa+U 60HMPN3mlyW4sJVTO336Uj1oQ4TQKPTwIGY/nUi5KNaDzhickvxUeQhzuvLn Ji9/Dwob5qvm/sSL7eyL98rl6UGeGgd6JU4cwV4VauaoHdjTR501y0IjH+Z5 NIb+OWMPat2hO+Incgyj61GTZaXZs0uV/3Q+chzz81m9m/SvG03wXtKoPyqA BS2rFPWsdaPP24HfxK4KYRxJS5PWv7qRtU4JXafzCSzU8NN+qu/dyHCZ8nZ3 uTD2qXbR7PR4N5qPuKf34rEYdvh52NumwW7UDYkHt6dPYtHi5yvu9nSjUZLg q9BHEljC+1DOwOZuZEF1ZufkPSlMWB3Dheq6kbS/8qP7qqextN056/LKbjSZ pCC3qCCNZVmcq/2e142sbjw6/FZFFpM+PPPT7Us3umD5jJPFRA7LJwXycKd2 o+lz2zPR/mewUoXJJ6pR3WirJ4tXlkMBU/r5JnLsYzeiCR7hm36kiKE4uWaH d92IXuuVAsPYOayOyZc/wacbjYiE57zZwDDVKmnNcx7dSOROI2zp4FiL/Ygj 2bkbna+MVXKQOY91jp7qpLDrRh92zh97z3MB0w0Z3Ap72I3otn1aHI9dxHpU PE6cstxbv7WZi0fOXMKGsvqcb9/uRv/5Htd5/UYVu2Xqmrp2vRupVCrLt7Zf xsYPifW+0e1GCw+8Hfv41bFpN2fxUtVu9LJ9hJi1o4lZnBG+oaPcjRz2qb+6 6q2Fff9O8phX6kYceIq6JEEb+6UnOMwl3Y0OsRzOXCHrYE/pO2i/iO/x75Do V6/TxdbKHaUvCXejKV71L/tr9LAtoVZfu8Pd6DfXEb9bM/oYp5Y4v8XBbsRg stx3cNMAO/UsoNCQoxsdo9nxWTh4AzNtuDp1nr4b2Wp0k/XdDDGXn9n/yVF1 IwnzplW5NiPsIxcHm+guGVF/uyzaeOI21m7eo8S2d3fkECMprNEaY/OBct1U v8hIyy42fl+HMUZZ9OHBxjcy8rs2kPs06h52hu7mh7FxMjqtcPu10u37mPap UnHyEBmlN9KzuGqaYtbXeWvre/f8B9XF/qqYYTHJo78yWsnInte/Lf+uBVba ib2OaSCjJ7mh52lfWWK9G9GHQ6vJ6M9HvwyU/gBjvGyi9qKIjKbT/7CNnbLB BG1rxx/lktHI8Yv8gT4PMeyj4DOTTDIyW1KdVVp+hNnNz8apxZNR6rlXvmjL Fgtku6xAjCIjdfaTr680P8FS5FM7pcLJaCxHpOl+7FNsxMd652AQGV1q5j45 +dge+53dFsLkR0ZG++60Sls4YOyDEqL/PMlopjLrwOiDZ5iK6JL+rNMennEu uPzuOWaso7Mw6EBGrpSTgkfK/sNe/Jfr3m5LRvQRZt+eLDlh2c32WfnmZFTp zVtE89oZa1nuvZRyj4zosFsLvnMu2DT32ZHPt8iInLab4S/uinFb/aH30N27 uyc8eRFe5IbJhhhGP7tCRgpWFwKi/NwxrdIyOavLZMR2pshV1MIDc2d0MdHB yGh9lFfqFeaFRUiPb15UIKOrE923xRVfY0WGeJC8LBlRBPNmCZ73xhbSKMuP iu3ZS2+XLz/1xWi77+sShMgo5hJRvSvKDzu2XTdPy09GzOunWDgG3mAGGt4H fh4go5d/VMWYHQIxW7v59Ak2MvL+uxb6bzAI8/usptzLREZHEj9amSYHY+gH 0+PyfWTEaCjvekUuBBsiPKTJ3ulCCmDyyY/hHbZ2ruNz/EYX4mbwlxace4eJ +Ac3+S12IVnqGGOGqveYcv7yHZf5LrQV8KdfovwDdntEd/3JVBc6pECeMa4N w0LEDxy/OdiFjHpL1vrWwjG3QkPPr91daPHP3FqZwmfMFo+ZtejoQiFhZ87s C4zArlw7mf6stgtJ9Old9bCIxpTGbFl2K7qQcoVDx1HHGEzMsvCxV3EXUlr8 N5F5IRajf3leNjRzz7/I8RDDVhz2m8b7A29KFzJ/UvSlZDoemwlq24yL60Iy z9Wd7w0lYDXx1ytywrpQwnX0+/18EpYjEXlUIaQL+bxROSpFmYLFFE26Vfl3 of0Up5dHRFIx59aHKp1uXYg2O6u8NTods9HPSzF42YVEL/ZEai5nYIbjm4xj z7rQt595rnd0v2Dyqx6dC9ZdyOKutyVFfDZ2wrn5tL15F6q8EE6geZiDHaBj Dd027kKep6ifa+C52ArPpxuMBl3I7uXZmQvU+dhEwnjpW+29eM8kTXrW8zGS pNARbo0udK89fPT+SgGWqZw9IYzvxeML4ni6vxiLaFu/kKXYhfgZbfdvSJZg fgbnks7IdaGZbeY/3rdKMUurBqtLYl3o0rC256GJcsxgjam9TbALkS72LGsq VGKXXHROXTvahbiIz0w3YhB2PGRk1YSzC6mVCz/I1q7G2A8fN/i+f+/9RO3/ 6o/UYBRJFsVPGPbiHcD/UKzVYKMlKy9dd0lo2xtbdK2ow9ouyI/T/SGhiie+ 8Z9y6rHSdufzQasklJJ2L9YruwH7OEFPGzVPQtz5Iv+lk5owXYajQWVkEjof r3ZRJ6UdO//OdFm5nYQsK6qElyk6MakjaXotjSTUdWZ/u7YsCWM5LXdosJyE uIzxiK95XdhOqZOTcREJPRuTSrngSsa+X6wamcvZiy97SPi1fjfWdEMj9ncS Cd1hFZcXPtyLFU4GU7nEktAcTaaI1v4+LNGmz4wmgoT2n1p6O8PYj7m73hPj fEtCnQ7ubgJCgxgxxTHv9AsSqlRkaab7MYqJrw/EkB1I6Fr+tIf92XHssLJi oJ0tCfmYxlSMX/6K7QzvWBaYkVBEdukhrpIJbEHkjoGBMQl17P5qK385iY04 oAsbhnv5t7acXC5PYeWs7nwK2iQ08MglMOrPNJZxa4ppSJ2EDu/ny0obn8Ei Ui/+cbpE2jv/+59LdM5iLy/Q9ZQrkpDF42mrg23zmJKjvy8uREJU+i8etV9e xMTrFp9NHCUhfI7BpcnrJ3aY/aqpOw8JFR6JDYnq/IXtpLFDHSsJkS6nzv28 tIwtbDwVN2MkoYIfc7Op/5axkYs93LQ0JKR1oMVyvGoFe1Yh8S1orRM5NrN+ njRcwwyuL9V2fetED0lrJhqy69iZ5dwowngncjWuYzLj+o2tC8pfC2vuRBsy edsUvzcwe39lFBXViU4Y0yzOiO9g107QfPr6rhNZRFm4tun/xWSrGu2P+3Yi FT96opnfLra6qimWZNeJ1hqe7sr7UwA5gJVm3rITWZnrKTxQ2Ae5wuRx0Tud qKzwzpG7i/vgqdH195mXO5FEmcdMtBUV6K5z2/4idqL3cl89nspSg3TQiPpp mU6UnKtozkNLAys19ygKjnSiXm8OBc4aWngiZmNdvtKBrF6q6dokMoJ2naTK 7lwHeqiUHBRayARSd5b58dEOFNKgdFSSzAxLb5/11TZ2INWjkieVxFiBdFIh h6aiA/lLskOlDBtk12+/Uc3tQLeV9ajuD7CB7R/X860RHYi62b8yXJYDtN9d OMwS0oFY1G4fi1ngACkJ2g0t7w405rnKGZpOgF/GbzLITzqQ012O2AtwAB41 vT84pNKBDm1GzcjUHwJntcbGHqUO9G78PIN4Ojf4t2w6dkp3IFZuK4MD4TyQ 3mY0UMfXgUQfO8w1BByG0isBPoizA5Hs3tHxvD8CLR2V8qWMHegUp4ywfSIf zJOOhWf9bkdp+rX2ck/4YUNHTy1toR1dyValItMdA9puzz8Jk+1oP7VkRGD8 MRDsnbv5qaMdCcamf2H/cRzuDWbyeCW1I8rEL7g4EgJbw/GWVxHtKLZ9sSTT 4wS4DrO9cAppR28ZrwTVawlD1Kjd8GOXdqRSENQV+EcEMu8kvrGy37Nzptpl DYpC+XjfOTOrdvQsmGXlYrUYDE0oRBgatCMpp6OAksXhm4m1pr5mO/rx2aeT P1kCNqcidq4qtyMty3f9S18k4eDsv1uXJNsR2zlDTgcbKbj2vf6IFG07Epdo INN3SsN96412sZ029K7uCpW+vQw8XRBxEVppQ4rHHndRHJWFtz/fjPGMtaFQ sQsYv5ccxDyuCDzQ04baIpb0f+BnIHvpJ8bW0obcFbuZ6ynPQseKTjRNYRta DAjgvRcuD6N2HlcpMtrQyPvh416PFGBhLf/fVmwb8n18R+GFuiIwbRw0Xgpo Q7Wqi2eyDyrB5e1R/mGzNuS0itmk0uJw/SVrV69RGwrMSXrnG4SD+V/cjaTT hjJdhM+UHD4PXv/iJ+qJbShN41uE70VlCHXtfVsl04YO9WgsPRxXhoR9dMpl om3o5nW6eZFXF6CGyiou+0AbEvLh5c5vvwhdnp9105na0JmjkjadLy/BV5p2 yqR9bcjHcSPu+mkV2KWTuv95sRWJ7aiLaKerwjnm3wKv61tRoyD5is+cOqxo L1mnlLaiFzmhR9sGNSDt/fe8lqxWpGL03ydCjybwHB2/wPqpFemuP/dPn9AC 8v3BN6eDWtF/o55Or9avgl9Kd7eeZyuqWTvCdMpXG7ZON93/+KgVXVpzenwy Xwdyn9Wkl95vRSdcPo7u09EFq7Ly1ZEbragsg+HO0oouDF7M8Th2oRXZ2lJG 5qlcg+Lrn+LTDraimAXLKhPp62AbEfqjjXnPfnFO033nOohMBMr82teKjHfp dQntNyDMyqNWZqEFeehe1b7ibghaWc5MBhMtKKKTrG1kYQS0a456z/takMB5 gfkEvVvwzNlmqryqBS35sX6rVb4DkjXmJ8cL9uwl9NYMKndhlvae3b70FvTV O8CkQMQY9IP1qVTetyDrwNW2YvweyMZjAp0PWhDN4YxzlUn3YWFO3nr5Tgvq /8Htf17TFBLEZfII11pQMLvRs4HfpkAoFL5wA2tBs0G8l3qMzKFl69gbJ5kW 1OGswO7FZQHucLg7QqQFyQn7aU/0WcBKE9v9CY4W9Gwk7CP24AGksTClU9G3 IGpDtTvvzlmBiS7NqtDfZjQaOc57jtMayMN/3K3mmtHQfUXPM4M2kPNzMm61 bM/uLsHjamQLljKj3w/kNKN1iiwtz6+2wP+8X1o+qRnZyPVU2z14AsH72mpe BjejGJ+BOFfvp2DLWTBJY9aMlJoSrtts2IPIzSwxEcNm1FN65sLXKAf4Gpn6 VP1qM7p2dVVEVOMZXBWOogxSaEYc8zlU5bmOIKnoffzQ/mbUSfzBHl3tBAfM l2CVqhmFjT6+fdXrBey8vXm7408TIsh21ghrvYTWbyc/es40oZ6ZY8ydv5zB MpzEslzehBRESTOqZa5wtV7hZFtuE7Id9DXyk3GDM8txl5NTmlDk4xONc1/c gFrNweN2aBNyWpP7TMxyh9hN7j/N1k0oa0tszHbAE3wEPbgS7zWh7cp74gnW XmCrvSDjer0JUSc3+wRTvgYspfLRmQtNKCIr7+/3c94wdP3+dBxPE1K8/uTe 4XFfqPZo2+fC1oS+rWQP+oX4QUqW3NGbtE1I6TEWZ6X+Bhzp6A1ZVxrRRc/g wslGf+Asyuh80dyIzg+9vhC0EwTbkwcWDVAjYhF9WXjKOhgm979ilC5oRApX g86VDQVDjrnOpfmYRtRt+unL7+q3oMX1u/Ta80aU9OTdi4TcdyCnfHfg1KNG tHjILFTjTCgcftS0zmjaiMz2L0qyV4TC9/pPUtVXG9HG4my8Ys978HaAJAnh RtQTol7+TewjPIpNqaU/0oi+VCN+8+aPYNDOPjHF0YhUYi8wB1qHg6DQNO+n 3QZ0I/J+hnjZJ6jq8XlL29eABos+ULf5RkIyxcqXidYGVPv2gkOzahQEihu1 lVc3oPYzx9kJjNFw21OCzi6zAdGduZa4dCUGtmTIL8c9G9Bx+gDeh9uxMD3z NHvRqQG18HToh1jFQXsYYXrbtgFVOzvfPzoSBzHb1zQO3W5ADneSf0Q1xINq bT+3jlwDyvx9M82lNBGkHJ5fuXuyAT2WRgbiWBLwCHO7PTzWgLyd7A/H1SXB Tz/DeV+WBnTkaOFN7qFkCNUdLayZqUcZ9S9UUkTSwIXa5TtpuB4tz3adpqtL A8tCPr7xrnp01aUvJtwkHc7xGHttV9Sjxh+fxUNSM2ByYlJP9kM9sn7MidsY Z8GpJ/NLiSr16KeCV344yoVDAr6C+Ur1KOzNn4THYnlA2St6o0a6HrkINT+7 FZYHffLWaIyvHq3c3DGMdMyHlxQ/Aw5u1KEWi9KePN1CMM8NrBZarEM/CE7k s52FoG16al1mqg4xsRg85NEqAoEm21vanXVIJ19c8pheMbQErYr5JtchNvfj 4sovSiH/fOidsMg6dNSXuqCRqQwiV2VDEt/VoetvX9f8iSoD2+vP/lS/qkO1 1t9P+beXw8Gjfxq3rtchd87sLX9NBKZfdk1t6OvQgajxnOyHNfBbwFIq7m8t Yrz8IIjQVwM+4V3b/Su1SE5RX84Wr4VMz4SQC6O1CCWlRMjy1sFvQ/Uqntxa 9Gr9xp2Kb/XgQ8p7o51ci/6x7QuvNmkAHpUj119H1CI+tithO6MNAKeXFpdf 16LI4v9Mzgw3gg/dB95mo1o046f2/uNyM/A4/5vd1a5FW9aUS6edWyBjxTJX VqUWRddHXVdmaoWu0XNqMVK1qPqi75Vvkm3Akz/xzJGmFrkPdzMpvO+ADGMJ slBWDSJrOxvGr3QB1vch0iihBoUdnVjg1yIDSYPiwdvwGnTpq8PGkXQyrJ/p /rfjUYOuHrs7lvygGzCW/yR6btQgY2/p4w5/eoDkPrnJoFWDmEeN31ve6wWT TY06uFCDOm9IPt5t6QXvKT6jdIkatJrs2X08vg9IJXU+7pR79tjLIU0WA2By SvJa8UY1msr78FBtdADWEsKO/lyoRuNxo15B1waBO9iq8GZ/NbpnaJ358vIQ mJizTUtlVKOzV0YadVVGYI3jFozrV6PIQpb8Dq2vUPhY9mu7RjXKpGkllb/7 Co5tzG7l56vRh8+d/AGDX2HLq6ImXKIapbXhxUMWE7DvD5/KNZpqVB+f9kI/ aBL2j09oNudXocMapNxDTDNAOle6WJRWhcYktiS+3pmBtx9DApNiqlDwyf0a sXkzwKl7geThX4XYXSv9DhjPAm99gh5mWoVGM3KC5+vmQCTdwjCPUIUMc2d/ yKLv8J0O345lqEKuhnLkYwI/wKBZSv7YP4QSbzmGcvv8gNtKIWXDfQi59WiO iusvgNVx/Rrt1wiFUGzX/d5eBK+fQ52KM5WoW2wqTbNyCUpfz37fH1+B3ET8 2n8lrkFgo8itcwEVqP/APfrIn2twn9663cKxAtm3fEv9dnYdmP1+ZVVpVCBL aTf9u23rcCdg0/7pWjnSPifmlbnzGyhDGf/1XipHD+auxys5/QH1WElC5Hwp umh4z5x/chcGy56dOylZjDas0wVMPWjwXHqRwYpDxYhLYPn9swIa3F9/8Jk2 VTF6YTmaEjlHg2O/zuU6DBShpCHe1wKatHjC8X2iVe5FaP7o2NbEATrc1vcN l35/ITJQNe8rTaPHaa/HLLu4FiDtIbvC2HYm/Gu8ThC7dQHi8xs6uu8fE16y RCmRoF+AOrxPNSlJMeM2fmaWzWIFqOrpea7zIcx4V4XYOKE3H1mcOH9c9RoL HiFY0JYimo+EbnE3v+3Yj8usNCeTyblodQ3XPt3Ihtuw3Fzqq8xFT/NTZ+4M seEJIvPyw2m5yBIL/HVvkQ3nvEvbMuWei5p2rG7PcLDja63KC2vSuYjzREFz mxE7XphYJnXwXQ7K2Zdh+WKaHf9Zpf4f76scZFms9zJljR0/MTJYfdQ6BxX4 /Q6OpubAwzg2dUUu5KB+6tqD3wQ48OevZB0UVrPRNo+4a/9dDlzhZmaJkV42 4iu6/DGsjQN/aq9EaQzZSOs6wYN7kANPC2pVNz2ZjVxP2jYbzXDgPA3fhm2o slHN/MTVo3858HUzzZ1t8ywk/e26YKgoATePsAqghix0/LpMGaMsAe8j+/Cx HMxCJ588QESMgBdCPc7X+AWN2BzS7Nch4M+5MS9c+AuKvVZf2uZAwOev3uJS +5eJTJDrIo8LAb/x2ilZpz8TRWFJ2sdfE3CF1cJmE+9MdIWu+rzRewKeJtpr aH03E7VcOizoH0HAeYxXf9idzURxPKXj9vEEfKvt1H6vuQx04H5Qpk02Abei 0ooOQBkoikwv8aKQgA8r2Eh9CMtAOdF6xng5Ade09auOepyBHtTsoy2vJuDl SSm6yaoZKFB7eHyxgYCLjzZMZR3NQCpcU7m9rQQ8gjBjX7yRjuxXDFXtSATc 2fVYWHNyOjp7+fdMxwABD6438bZ9mY4midUnhkYIeBxjguNBnXS0m3JIIuAr AS+4OmNRKZSO9PrMGuemCHhT6IkbZltpaJXmS9O32T1+gxaXmTvTkM+ND/Tv vhHwn3yp8nnxaahA3+L+1A8CTmH6XcTweRqiY2IrHVok4ITUk9z7rqShA7Ui K89/EfATP20YUo7t+V9bX69YIuDyMl/+aP1ORVn0FvmpywRc4/mvb+stqciO m++Y0goBv1MhNRQRnYqcGqxkHfbwE8qnLRfsU9GlfVo/ru1hT9W80u+XU9GN 7P9Uh/f8P/ivpb09koqIvtpX6fdwapfcZ/mVFOTmNsMyspe/nMvxzXhDCsro 2wox+EnAO4yKX7z+nILMMylWHRcI+ETMH2sJ2xQ0okpQxb8T8LUZxVs9F1NQ TvdmRtYcAac7+VLzBXcKyuvkU22Y3uuvbYXS8Z/JKJ0hTMlzYq8fBbvizTXJ KEOWs+TbKAGHLThiG5aM4NDswu9BAq4LbiwHbZLR4o115oxeAm7qWfO3Ak9G sUOVugxdBNyxmeqn6YFk5FuhtbO/jYD77b80xvQ9CS2vK2pW7PU7Uu91R25l Ehp/FenLuaeH7I+NlTffJSH2U/spDpQR8N7j6tHJSkloJKthhOPLnn4t3gRp sSehNs1nS2zJe/rLaHu1PpOItMLXwkqiCTj/2avGF4ISUb+GggRzMAGXeRms /f1+InIvlPxR6E3AVaq78LfyiWhkCBtleUXArTWuHRufSEC5Jz+K19gQcJfg 9+yvCxOQdGfRC/77e/rq7dsn8SYB6Wr4TYrf3JuvuzcnnWQT0GwwotO9SMD3 2d+J5/KORxFkmX2jXAScsyT6XYVRPHphT6Ncxrinj92vHqZS8chJaJpfc5cD 1/S5b5o7GIeUi4Mu+Ezv7R8RlkJa4nEo/drcl5eZHLhE/dNkr64YdARdLF8/ zYHvJj1eZE2NQfv5abgfH+fAO3xsZD65xqASEeLJLA4O/JGmOfpyKgYZb1AK vl5hx+8m533J4o1GBZuWKC6LHTetc9t/LTQCVbmVwVl+dvzR7pGOCK8wFGnJ 5wZVrPj+moOGObJhaMyG/2TZe1Y8y4t9tn7qA1qiOym4bsWKLzHT7P48/wFx 9vV+TuNkxe14FyTO74ai72ObC2pm+/Hn8qUBM89C0IHuRax9hxmnnsn4dIvk hzZrVok2bIx4Z5L4qX/8fsjxmpfn/AgD/skyozb2iS/S/1tLqZ/KgEstpC/M cvigsUjDl7TKDLjRahr2RN8LPY829dpnR4/fp9KtZyp4hWJh+d9ODy3+8r/Q tPKQ+6hjnW2fXiIVnuL6bkel1xiNBX29ft2OCk9iFYqMO3ULbYse/ex+ngrX Ez8206qgg5JjflrrjVHilx98Ovm6URquHW4Io+KhxDsIL+SiLlpCLv2HmYJP FLhKismlXVo3CG7wqWh7uw3XXltdEctzg+XJfa4fidtgYvpU3+CuO0h72Af8 /LYFzvzuZl+KPEDFndUAu7gF+R9jve5YvobFV0P9b/5tgoDv1/rK5jegXefz qODtb5CymG//7uAPwTEPC6NVfgN2aamX63gARC6bZx7fWQfDfRSzj5wCYUk+ eHjNch2ay1k9gt4HQ8iGu2u/2hpQyJ2KB5V34KFv6jwhsgJ0gjLJ+hHvwFeR IOk1twz7CWfTrVfewYcKFaGGpGU4vIzlhUWFgv+j9eGjwstwNlOr9tfv96Cj xndH6tQSPBJ6NBWd/BEqs1+sy5csgAPn07mCvx9hNoi6mVZ9AV5SPfvRqhcO ZQpb1PQjP8Bvwnl14184yFtr7I+l+gGJkQFU2jc+g6Z3uRT7vW8wciBTgIIh CuK3De9O6c2CZavCy6s3o6D22hXzwL8zsOba0BOVGgVump47MikzwLQw7kVU j4aNvOzWBxQzcOQeg33FpRjYbLXRNSqfAs2zSn1br2Ph8lHRQr57E8AR4u5+ PCsWut5fj+vknoCBhSZJ9f5YoDUw+8+0+yuYxul7hwvHQdA56mgZta/wguWx vHxTHCiEGjM+cxmDtKnYTw4MCfC3ZcRzJ2kIbLF5lcjTCXDG/kK8vswQnAmX XK27mQARO/XJ56sHoUarTIMzLQEw9xdBdRMDMFjSs5OrnggxpwY9OOX6IYqT N3XoaSIMPiCExrf3genje/qUnxOBWsw0NdWiD5YEf2bq/EiEr6qrPcwxvUAf THd36U0S2Eu/SW071gMd368wHcpPggkqgllOfTeEXgotgpEkCK0k/Vuy6gb+ bX62IPFkSBbjq3taQoaz5orVEu3JQBrxMuIz7wJzpYcC1vtTYdbJ/B3hdzv4 +QTbrimkgnT28ec/brZDZk9ehbNZKnTybg4+rmqDNZut68HlqcArdSvH6H0r uEd6+xdYpcGvvz9Od91uhqRvaYPYhzQQolhR5utrgma5jhNN1WlwlXmCr0e7 Cdg6OKuHDqVDJ3p27uaVRojajV3/15AOR0U3dqbv1UONer2y70o6WJg30IQu 1MHMh/kgDr4MGG/cVLL+rw7ET50SE3LIgBt8tmtPw2uh9G75HXWBTHj0O4qB baUaeqv6GkNffQFCxrD98t8K2GTe4uRL/wIne8M/KOtUwOGbR0yS+77AHHWS 1WZyOZgs398pkcgClsmDPUZ3y2Dp2LLU+HAWUJ13pAtYKwbGs4yQT5UN/AK1 AoH3iuHw6OeZ59zZIPPrwZhfVxGAKJKmvJQNibiixqXSQnhdTdPOGZENmeGQ ZZmZDx8twuwGc7JB3fvg4yWpfEhjEeWJasyGp/7zOYSiPGi/qWkhvJoN3vxT Jv9acoFzJWSfonoOlETd7ZBjy4G44/xn7m7mwFdzv65OlgzQ3+o+ncucC3JD GqtND9KBnuwtQXMsF8IXz65LNqfBI7dfgulquRCHSOK0Iamg+LWSsPEpF0Sa FNc11ZNhsegpq3pWLvzr1JA4WJUEMUEnmCJrc+FZ35uKEfkkoIVAygsLuXC9 5NIfQZlE6Iq8vRxIzINLX2PsldXiwdOBfXFCJw8EaskRLr1xcOZK/byseR4Q PZnu6pjG7ele/OtQYB6E8EtR+PvGgqXRTseJr3kg3sg5Kj0ZDbwy2S3/reXB 8+sTgeHHoqGD0bShjT4f8nHrRy/NokC2tLXi6el8kDSwkjHbigAK7s8Zle75 cD8TuxJh8AnylrRS2MPyocxuVr+sKBzMmygTTNPzoSR4pqb8cDi0OVp9ZuzJ h+5aeS/+lTD42KfgZyBUAPGHUUVI03vQ+LLolapQANm+B4K/qbyHXa9Yt50r BWAYQbcR1RQKpnIM/8U9KwCb85bD33rfgVTogMXPxgJIZhtWs+UKgSlr//vn Rwrg8XXbOtEvb+HDBfxu6FIBzCwZIfLlt7CzkmygyF0IXEXBb6tfB0NWi5Fu gEQh4JtcN36JBoNJHKvW1/OF0CeVvlkcHQRNOo6XXlsVQtnnTvpg1UB4IXry /KBLIehGaDy+Fx8AkvvGlcTfFQIRetoMqQMgNFtFllxWCGTHX8wOvW/gLiuX AB9LEVQdOrkkm+sL+4cNVxiPFcH7wTH7j2d9oTwpunpDtghUCRBoWu0DhzBR 465bRZChIvRxe8IbGhgenaq0LQKXKK/rac+9wb43dzfNswhOjI6q+hK8gWSj FOmZUQRHa871JOi/Bhd5N5snVUXAeOykfPOOF4hTN5y701MEfLQpRovJXuDz +erQ2Z0iMP16icTA6AVnLEJTBdmKQfe9V8dilSdMSw8+ZxcshsuyrjMpLzwB bzE5+EOjGEQa6P+57njAz/fJs/13iyGB54d7QI0HRNxbKKizKwaWUO1j2v4e oC5x2ivHuxiuzIc1V9/0gM1Nh2tRn4shnc11aljMA5LqSgXeZO3NqX271sd/ 7nAt+N+KY20x6Kmvmyz3uwPlrYs1pv3F4Efs/DmR5w7Zwr5vdX4UA53BFXmz d+5wZ7XdGPtXDImyijvPnrkDM+KQOkkoAcHEvw8Jt92h1O/6v4PCJTDib3H2 rKo7WBpEdFCfK4FZJbfn47LuwHV8InJZqwQkT5o1Mpxwh7pFoYdjJiWwefCI VD6POzwtsVJqfVYCS7GvZUc53IHfK4up2K8EdK5gbR773aFDe20oIaoENHaD TZNZ3OHlYYW0t7klYPLd7qsqmzuIzTv/59JQAub/3D+acbnDQF7NZeuhElCu oTHax+8Or1/RHbrxswRk47esD0u4g6yG5txFylKgbxLxKia6wyTX28LTXKUw eVm+r1/HHYIne734xErhxRiJ2vmBO2BfePSZsFJw/Fspnu7pDgv/3RXc1CmF DqOjX83i3eHTpYTVabNSEBwOFs6pd4fL7N9quv4rBe9uG/e3P9zh94hESGVA KeQW0cwxHfCAhJSn99JjS8GDZaFGSNkD9uE7/zybSyHEZGrharIHZDOd73wy WgrUbmwPH457wJ1+r6g7y6XwifG/5ou8nlD6iJUoz10GhvL70/EoT7BUvMYs JFEGuOcxsWcznsBFGz7Mfr4MWKUEnbylvOBp5HGnH5Zl8Ka7vtaU7AX8DyzU Bl6WwdPbLgGXRF9Dh2zGofrgMkizedx80vM1iLXJFUUVl0Fu88OQsyreMLl1 eU2Hvhzoy34OZe/4AMDOu19HyoEbS77s98oXIjyyZAJkyuFiQm9wFJ0fGDBz 2TXdKQdye5Rzk/AbyNNu5jC3L4d7U1ra9FVvgO39y1wqv3JgYKS71X/bH5qP TC1jBeUgM+r+4FVaAJww+fB2pKUcYplrTH1uBoJ7ktppp6/l8N4uIdB1fxAo ncq2LWCqAG3NzIt6l4IhG3f+ddKkAnTmBw6Yz70FFi+poGbHClhyfY+fuBEC Vs1TkhYBFTBwn5VOuy0EBHTVH8UVV4CaVW07P9r7rrt/cPEQayXQqKYHBJPe w2pyi3+hYCWofGMUsL/zAbQXnMWvKVbClYr6NM2lD8DoMG0dZFYJfbyN3GL8 H8H5dc53mvJKEI+bOtae+wmGWkz94rsqgZo0y+Bv8hnOsB4SOz9XCRx7t5JZ rghYCnN58JIDQfoR1bjGgEgwTdWYX7FEIBLxNNXGKAaqF3e9g10QVHguPadu jAE+6VxhyVAEQ0tFtzTkYqG/9JDFA4TgizhTAC9PHAjNrqz8YqyCRckP51Rp E+CaT1tN5YEq0B6bzOn3SQB3saSQAP4qIF0Qm/Denwhjj25KnzxTBXaz0jae AknwcQM9Mb9XBfIb9hbJDinQEB5+Xs6mCj7WPuVd5EiF9XN27NSOVRDrxifa nZcKuq4ncmL9q8B7QNe3niIdmBkClkaKquBKul/8meZMYKrb+L5SXQV/SQYG 5c+/AOMrkxn6tiqgva21MHcyC+jXzw7Jfq2C9AST70Va2UA9MVnrT18NJxV9 Oz36c4Aq4kplHEc1HD1vT1mF5QLl9eLi4sPV8PxM9RxbSi5QtAdkTktVA29Z XyzBLQ92iuXDlG5WA/3Tt6Ef9s6tbbv4t7r3q2H7vyrjJw0FsCW539/yYTXc S5RWSd07ZzYTplxD3aqB7DD9xgCKYC040GohtRpWqWT5i2+UwKLlNDFiqxre T0+rODJXwoLAVflc6ho4f/Uge0/WHh4rkW7aXwPx0qsp0gYIvl8LEl47XgMf EkT/shlUwSyuyK6pUQMcDMo9VKgaZrYTmEz0a0CmZOrGjSM1MF3ISvv8bg2w veZFRs41MCk+sxVvVwO5XSkEb+VaGDsUPL39uQY2ODSjuCfrYLR7a4w9qQbI VR4RgVr1MBJoNiicXQMX7qjbTJXXwxD1uQ69uhrgFf3VfCm6AfqWZorSF2rg 0fjx6pgXTdDRdO6NEbEWfNyMnj/42AaCVaOLapdrQYUUTB453Q4vil5py+vV gkFv/Q2KjnYQSao9cOBBLaSUy/5y2t8J7h4aMR2htdCXoZX5aYAEA06LlBXR tVBykfJpsFQXnHoaZJaeVgvF7f8q9vl1wYhxt5hPVS3oCbnNWp4ngxxmVHB+ oRYEdg2HGmu6wV/u70GpjVr4yGsrcEi4Z6/+aCc+yjpgUJzmow/ogUDeKdg+ WAdG012Gg7d7YX7TqiX/Qh08oiULVxH6ISLPaVz4cx2ozZLevO8ZgpW0w8pc SXXQyXMihkJ/GNTiKhOoc+rgn8Ckh17/MPwOprSaaKiDjUrfKzUTI6D9yG/t 00odNHWhROL+caAS/cSwX70eLEy3fLKnJ8CQX8lm51o9qA7TLQjKTUL2wbGO 73frgVr2UuyX15Nwi/Z4aKNDPWSfr01nkJiCwqlUPrfYejggVWzN4T0NVlEl Mmub9XDt5Y7qxpM5qGQVdM2iagBn7Z2hRvIccLgFtlntb4Cz1tFfK2TnofT+ fbMJgQb4JdnsdXRnHhhFWcI6tBrgQZdt5/DH75CWZ7yVktAAFMOWN0WZfsKu YKuKaVYDvOnpTxhw+Qm6H+TeHS1tAPdMGcuK1Z+w9ZxR/ENnA6wIZCWJTvwC dSz/tsdWA0TExbJemVmCb0101be1G2HLQDWKYWEFlBSfsnAbNcLpHcU3MadW ITh95GaPWSPwRc4+7rZbBfnAnBX1F41wlaVYj3l3FXz0jATlkxqBQd5pp4Z7 HUTGvnhz7DQCTaawzbeHG2C5qq/VmNwEJU7m1Jc9d8DfWae+Oadp77s1s9Cp Zwdy6K4otZU1AVODbOBRob+wxXtRrKuzCcLWo1dKG/+C/0Vp2uGNJiin7Ys7 wPEPct7vr/yp2gylyjeaCKMU+NbZRgmu+Wa4KvDgi1wSFR7wUp7FTKQVcosP KMq6M+D0F6wXQKYVBlYy7PQKGHBPhqhWHqwVhIOyM0znGfCXH6j8SHqtUDFv 6aivxYjbZHfQKr1qhUfyaeqK3Ey45rQpBaGvFQhhePn1VGa8KS1sfPFrK8SF flTNGGLGLz5pqWz60QrVjsfEuplYcKXdU84u+9pgQM6hM+ghCy5+aPvPN/E2 qL6U/OCN5H6cWfPtapVHGzzfTD9dncCK+3DUkT8HtoHZlPHUJTIrTj34O+dZ eBvYFMkpvvzHiu+Y3bIVz2oDYq/vmJM4G77wSngxbKgNxrdFh5c92PC2vIrZ R3tzmz4d7bkhyo5fdlqqV1NqB86zDx06iex4HS6QKKjaDhZ1JBdbHXa8vN3n /tCtdogh9xxlfM6OZ8zpfb3k0w6SLlLzbjXsuD/v98HD4+1wfMJdukKDAx/Y ypzCvrVDzq2AtQxDDlxo6Mmi8Wo7FCtqthg/4MArP/6hSKTrAB+HBiGO1xz4 8gEGEQmpDpihGNf2K+fAsfW201cVO2Bc0Ebft5kD9+sJPvfkYgcMk4Xfq/Zx 4ILvDl0tuNEB28bg++8nB27AJvKM6NYBU0ebJbWOEPC4Xz9e3X3TATJDnTNn RQj4r44sX7f3HUDblZ4wIk3AfQLORtandoCX1Rd9fVUC3mOznTSX1wFiRVy3 RXQI+DFNlM1Q2QF3ub99yDck4KWMqnVXyB3QlWez+NuGgNN+Z+x4PNIBwjTR ZzMcCLhec0f/29k9Pg+usHK7EPAFb4MfvVsdoGMfPX0wkIArWPCsb1B3QrgS hWjqewL+WmVsl5u1E4r1zXyWIgj4URpzjjsCnTCr+VgtJo2A20yLHnaV6AT+ ogUm+hwCXly7KBR3thO+fjiZLlhEwHXdHRRmNTpBU8zC/EUNAY+6p3CB3qAT Ql4d2s1vJOA/8L+aYsadQPNp90FcGwH3/Odp/Mi+E8jdLsNhvQScNHbZKtil E3huqT+PHiTgRyqZ7XN9OmH6WcFBw1ECbhVJcu4J6YTfs2yBjV8JeOHLUO/f EZ0Q6SmV9///9ZS3brw9lNwJ97QemZTOEvCr5w5/VszpBFm5TCf4RsAjeL4m 3CrrhPZ4o7FnPwj4/J/4Ly71nTBf5WBnvEjAZQctimM6O0Haxltg5ycBdys+ WVMz2AlJ65nDaksEvCPsV+v0VCdIBoX7qy0TcB7HvF7an51g+jxQbHsPWxg4 jotsdsLlabPMOysEfOhTpL3QPhJMfgxks9/Drn6v/jtDS4Kcyyx65/bwCad7 LqpMJBhPfOmYv+ff9uCCxw02EmicYvEc38tnd1PI58EBElwp8nQv/7WXT40u wImHBMYJRFeNPX5V8t/evjlKgsIfQoH+CwTcXKT1Q4QgCbrrK6pefSfgzIcy P2eKkuDmES4poXkCnksXFFMpSQLx4o6NlzME/OaGbWKnDAl4eTnPek8S8F2B s0cb5UlAUjqprD9OwBO0/36sJJLgTQzGNjhMwNWcazkKlUkwfSOgiWOAgP9M 9fXPVCVBQ8C795Q9BPxd31XaRE0SONylS0zpJODyVFyuETokcAroFaZpJeDu t+Ls3hiR4IfxKaPJKgIu7Gu56G5MAinM0/l+2V79BZIWTmYk+PSh4vfnAgLO xVpm+OAxCYQ9GNZkUgl4WnX3eVUPEnxgj1ihC9jr78/wMsxn7/2rQYEaXgR8 jcdY7kzAXn7aqNHLzgQcs18QEQojQTnZfOfJ3nx0n6Bho0onQbInb57P3nw9 12v13coiQZfYQ7UEIgHnc31LtZJPggVqq4yXMgTccvDIxtdKEgQffvTJjI+A 77w5M1ZJJsH6nbwtwWUOPLZ453phPwl+faFplJnhwFVmaroyR0igP5MoQjXI gQdjV+sjZklAJ+JcNYP29odliwynLRK0qVvebPbjwK8YhDudOd4F/IfAyO8A B77ifndNQrgLtO7+SZ+h4cA/Zgk9EhLvgjgqwjfG3+z4JH3uPc4zXWD6gr6+ oJcdf1bWcnlFrQsSdwwyo0PY8Sj+Ha4vT7qATfxT+R0qdvzxj9E6dscu0Dmn z8r+iw3HC9FTh5dd0C+h/j14iA2f0PDoUPLugvr4dqq/2Wy4oCPj69aILkhR S46INWLD09oPrc83dsHQwceeizqseKGTXLcAHxlku4TD/PWZ8c6eR0HhLWSY g4/391HT4vTi4eSYTjLoO61lTPbQ4MoetQdSev5X03XGY/29YUU2GSGSlVLK ioSe7/eWvbKSBpmRPSryQ5LK3itbZSsjhGSPQhkZDx7PJiJRMorwf978X57P uc91X/d1j885r84IVOX7G4wXHVCvUzicU08cAYF8roTfugfUM+I7SkdXR8Br iDSkHMegbqd3qJPjyCjwagi6k4Xp1Vffv1t75D4KkuLZwmev0amf5p09H+Uz CrWnnyfdlqFTv+XGGZToNwpB4tZ6Q/vp1LGHHfflPxyFvcBH+32t96DJj52z OWUUDrnmN7Af3IXHcrZSG+9HIU2ncUUnahsOFTDccGMfg9Hzys46UxvwX4bB FwL3GHRQK/8riN0AYlyinpnAGNARbtXmqG9ASYDweRWJMfjXUsbsXL4OasZK hxhVxiA8NuyA49M1sPvrOPjCcQw47Cb2WV9fhZ7lMm0+V5p94q3OKv5VkJ5d aY70GoOVjjM/Csd+we/BoFfe/40BY9Jw3F3zXxBemBKJJIzBYNrO/edXfkKF SZfGVNMYCNW2dkmuLQGPNkuTUfsYmG54VuDClsBfzUShvWcMJB3ZUj/zLIH6 8WnRkuExaBGMKrRT/g5jW6v/7s2NAd/8lqhM7AJsFUk0cPGMQwA9ZcHAdw5s s11knwiMQ053SrwK7xx0J1YWbQqPg/OtuzzG9V8hLkgtlSg1DjJxf3QX92ZB zMzc9zUyDhl8nKGNz2dA59+j03qu46CO6X5xRIACvCFcKrZe49By/dTn5iEy kPfytPzvjsPa2pkCnSgyBNI33yx8MA7ZW56+R3ZJUMm6kUCXPA6JXrHD9xYJ ICDottbYNA6pShpm/Hw4mM36QzfcNg6uwxyiYy+moEY4gmO+exw6zX+/Pi0/ BUZihSf4hsZBQV0mPtNsEkKliNd8Z8bB5/q9SNYSLHw7Z95yih0LtfOLYRyZ o/C2gdynzo0FbcvC22+QUQhT9cZe5cfCY3zS47qZERBGYleeimGhvLz3fZ/i CJhpfRCnKmEh6UzgZt/MMIh8sJD9q4oF375f1/el0OaE7owaF2Dh+xf30UDN YQg3pLNA9bFAz1mra2g6BE3mauFZN7HwunyR/cfeZ4gY601+44CFOhebxjrf z2BheTW/9zYWRtLikj9+/QTL1+81bvhioacidqJmrB8k7CsXzcOx8G6dEEP4 3Asx3hImbFVYqFdRN0wU6wFL2bRh5josOOxC4urbbpD4wWTO+A4LJ2WRBvFL 3dDk9sNiXxcWLPvs0gdDu2DRqfHGJhYLhp0nrZv/dUC95Gn82jQW5EWVzpDy OyBsJvfmKpmGFxw3kK/VAYL2j+1+LGIhZipkaCa5HfSsjZ1ndrGg9H37S93j Vjh0pGOeTD8BhdhKwTxqC5CnFF2JzBNQ4xSf5KbVAgFXBT2meCbATc89N4yr GUrMZ32HTkwA0E8axfS9A0b9wAfvjScggjlYW6H+LYww/dhtvDwBGeQVfDj6 FvI+2IbWX5uAv50XGcT76kBZS/vxG4cJuFLW1r07WwtOwBVV4j8BKvuvTN1W rgH53TDWoqAJeJ0zwrYw9Ab+Na/HvAydAK30rwQX9zeQqjYdnxs9AZPupRqa pdXQfa44NSVvAu7naOrt862ExLXD/EkFE5BPf/2eVGcFWNfGPIsvnYDMQhaX T/wVsCbvmxVVMwESnSzRpv2v4NgZzPOHHyagVbLh7ttrZRAmMfLKfXkCPOfj umsYiyDwoZ39+O8JcO47sRMeUgi++GV++DsBaSOrvXf/FoBdOlsYD8MkZN3G 6F3/8xJQVu1r7wQnYbI/0bz68AtQvj3KcUx0EvzVVygFJc9Bptu+K1ZyEuyp tl5qqs9BOCRE1k5uEjLHr7Ip9ebB9q8GBibtSWiNktC8VZkNq8Y6TT4Gk5Ay tL6a9jsLFl+NeeNMJuF8LPUvimQBzukXruLGJOwhMe+fETKgcUr6jYXPJHiv K9uTTNKhWvmdc6vfJGwTZRW16tOgJEVX+GTQJJSsuRz0EEuD9Eu3IrafToLB WSHemr0UuNeRe/Nl9iQc0hZn+jafBB4iZ3jZX0wC81Hvi4puSeAY1NTrVzwJ wmu5WkUriWB+bkJR/80kiCh3StXTJ4J8GRfrzw+T0Bci/NU8NxZOMua3Xf88 CRaCv1TjhmNA1FHGr+vLJJTzPD7EzBIDnEcNyOn4SWha2G3RioqCpcTH9cjq JNhW4Eqed4XD7A9uj5LNSXDY/zH/xdFwmDZ4Ls69MwkNAWLb/4KeQj9DS+ws 0xSk/5ficEP7CZQGbDjEHJ0CuxcH534xhcHz8SeH1yWmwBG5z88Q9gieneUd tDk5BfMzpw9W7IVC+JKc6lnFKUhoqaG6HQgFJzvXg1N6U1C0xcUU5RMM3frq N+YuTcEG+wXZzJIgkFQUKPptPgUNxyNNPs8EwuyBHjXOm1Ng8/TScQn3/+DW KzFnTd8pqCQoV1vX+EN36ma1qf8UHDpl0WV60B8kQwa3bwZNgYvnZt4THz+Y MQ1OCng6BYrRR5e14B44bEw0V2ROweZyobU/2x3oJFUyvc+bgmir7Qu1Eb4g 0ffUvLdgCojXmBa8mXyBmq34jVoxBRZvco/ycPuA/cUE3sOdUyAtXlbinuYB 7dLONsc/TsExnAvmcoc7iB1Cys5+ngL0WFDR5qobkOcW0UvYKcg5FUb+6uwK drE6bmGLU/DGOIQYG+cM7X5H3yasTAHP6zPC0TNOIGa7tpezNgXugsXKyqgT kBVepjXsToEKfSmLxL5bYDux077EgwP5L188RJvsobV9jG1LAAcrlzo+O521 B5HyV5ZMR3GQYhxoG1hpB8Tg60viUjhQlEl4eNnRFmwk3gpcvYCDoTdXwxm7 rKCVLdbhljoO1q0SoxW+3wCRdYcKX20cqGxXUZ4I3gDiRy7NWBMceLu4DO9G XIObnh5eHY444El6G7RccgWaLTXfDbrgIC8/Lot+xwKE1YUY8J44IL5w8eO8 agF4nt7Mjfs4+GmsrPpA8DJYNx7rOR2Lg71gHI/SmCl8A36toiQc+LgTDC9p mMLdj8xdIs9wQFDlPifqZgLR2B/t3C9p/K9nVzKYXgJ+GzLElODgrtyCEsHE CF58HWllqMBB7vFNic2rhtC41tC82YCDbaYTxasP9UEruPyCbwsO3oleMbyR rwdD9LlNi5046Gd86HDwgy7M8YQ1EgZw8Mk8XC30pA7wKRjVdc3g4LgIJJZc 0ITnjagisoADHeMlkawEDTijrlBTv4wDi5JfM8jCRdAy4a8u+4uD1RaZwq+v 1WEYyyx3bI+mx/T8kRR+dbCy2a7IYZgGCqvWrShWgDue5FcJB6fB0SNP8hQV A7trI9IsfNPA0ck/+mn6AkQF95SFCU3D8gplTIOoBs9jykv8jk9DyfkevuR/ KjBYdq/A6sI0jKnmP3J6dg5uKNyWGFefhmyBDCvDYSX42nj9hbHONIhV/ruz j0sJ/n1E8y+aTcPRq5EX9l6ehUgTBZH3ltOwMoELn15XAN6JY7lK1tNQcbX+ zBtjBZCeY86Wuj0NP988OvSYWx7qPbcFX3hMA/fhV6/UN2Th4vqPDKE708B5 YaL+16gMXGMYTed4MA0P5H4736g4DRESucm/k2nn2/zrLg1JAU95ArdnxjTY qkVKy/84AXkKYYlzuTQ8fTlmbt4TUK9+O36qdBqWaqoetvpJgkbvdY7LlTT+ Lt8KmWuOwYCJUezn2mmolXU+ZbQuAbM2CtFtrdPwVyvXajhBHHzmjrGodk/D AfWli3lzYrDtyR9Z0zcNvYN1+IeaYsDzYPtp0dg0lDoc1712VATUs3sexSxO wyFpgYXYfkHot83x+75C81eilsM8ehgsJO+6Gq5Pgz1v5S2HWQFwrRAzY6PD A4v3y58PxPhhzXdTy/0AHlSi2steG/BBiPKgyidWPBS8eoimBB+C5LYgsRg+ PNw2QWWCNnhA+In5oe9CeMiJ6A7fRnigRO8Us6EYHkz5v2YqxHJD8xfsCutp PCxwCBmPXuCCrzMKbdHqePBgumrf18UGPqXMtYvaeHCTSU3484YVtjxIxQaG eKizm9vUKGcBzo3YeFZLPDyVPt3V3sAEGU2OYW5WeGhc7gTdz4xw7KGaf78d Hjh+x2/FLxwAFeZvN6Pd8ZBMnZOXQhig83Or2aIPHp79sGon36EHo6Q0bQN/ PGh7jsfIVO8HeyFNGdZHeHCudTnmpb4Pos/k/YtKx4OjDs8kp/0OeujXvZ8L 2XjIlXl2Oub8PzT/reGs/gs8ZOU6US0Et9E69O8nltd4cEisOiW/8wdF6Yfb XN/gIfJbalDg7iba+7G4tq8eT3tv9wY8ZtlECaYW2VEdeEjvUm25fWEddeE7 nbDwAQ8B64f+pNmvoatT+x7rf8aDYL970snE3yijY5UbywQeRCj22+oHVlF5 P1a1qCU8uN55dvJh/DLapEqRWfiFh1SZm8e2TH+gWrsN4vqbePC+HRCDF11C r0c4sbDsJ0BGSWAJHWUBnTXE7LgwEaCViWhoP/IN9eLi/dXLToDnmlsbzoPz aFhm+2SkAAH8Ll6S75/9irLbPPv8TZh2PuYg6rQ7iz6T8GrXkyDAIksBj5j4 LPr61ZFSZhkCHLTN90sLpaLjLf73IzUI8L2bYCaKkNBeznS6WF0CeDi5dSkw EtEm27dRCUYE4HJu0l7C4dHn+9ay0y0JcDsCm1FVhEOTzXmPZ1nR/MlIJy9l TaFPC85W5toRILOvt1o1axJ10/ZtL3QjwJiel2ryWyx6Mz1Rv9SbAF09b6OW hsdR0/mqkVf3CNCfcDV9bW0MPRe1PFsTQgCirF7M5yujKN2AO0tHMgFymAyj 3O8Mo6tHY5K7nxFg/dJ/rfi0IfSrV/mR3hwCQGuBVcflQbSfa0FmqJiGn64c pbX2CW2xZ24YeUUA0otjBv/G+9HqGil1bDXt3WJ59VBPZx+aZuFsTmgiAGZa izL//iMaWfR0mtxGgKyL5HOBHz+ggRuFt2a7CUCduLYZh+9B7TJm/L8PEiCy qvnBsHg3Ko23y/5LpembwtuTdLADFZYJldyZJ0BKcYjp/M129GBIfgXdDwJE aJ9K9XNuQ9dEiW1MmwRQtlTrz5lpRud9dvTY/hHAX1xbSPjtexTXITzCuY8I U/FhrGnJTWibo9UsHxsRfsgYrhR4N6I1dYGeglxEyIkejbT2akALD2RtCPMR oYJpvf3y/Xo0umSSWVKUCAfr+Ju9iutQi+9XZM4qEkHlulSVkvcbVAfjV39O hQgZrMkmhW+rUdW4VFBFiDBei02Ko69GReRGzdR1iaBxXXnH0LUC5Q5dxWka EaHr/jRnkuxrlOEL9y1dMyK0Gpz8L53uFbpwx9Tf2IoI8TafOL71lqL4Lu89 MzsiiJybWtZoLUEHDyVEXnEigtZsORrUWozW1Q9kWXvT+F3JODFCKERDtgza 3B4T4VUnu86RuBdozsLTYFwkEUwu67rFtD5HmybbVQ3iiaBsHSHhtJqPbtYr 153KJIJMwq0Px7lzUf5iX9/MPCLY9Y8sC77LRpXSXsuyFBLhwX22ww99slCf uxJl3yqJ4Fll17LGmoHGO9x0vlZHhKr5cd6upXS0wizjWO87IuyWBcU/mE5D F+U480q6iWDKrvUwkJCCMovqWwn0E8E2rai1YiUZPcH55HDEEBHOxsapVLIn o45Lf5OdcUQQtJCwOOeUiIZNK5liSUTAZWQMVUEC+rzfm0PnK00fOma73Q9x KL70a8Txn0Rg/PQ9O545Bt16Jqadtk4EJTohFbOOKFQwwmr/gW0iHOvTcBOJ ikQtnb4Ezx4gQaNcZYaCZjh6z4JdzYKNBFzaOZrKSk/RZE3dzS4uEmRtnNHr VHiCDom3+BYcIcHJNk3T86Zh6DLXH1lecRJ47lWJ8fo8QtnpFJfCTpCgzeSH vVVWKKpHLHV2UCBB3UXpxrLDIajzwMyxEWUSuHxGC/WLg9GnzSKUixgShHk3 RWK0g9DOrFQrcV0SpJ9tq9qtDUDJUUOHk4xIcIZFye1K2H10N4AVS2dOAo6R dVMOW3/0wtVQU7I1CTi7DgUwXbyH3tB5z2HqQIJ5+o8uB7XvogHnNvrbbpPA 8fdVXford9A6Xg/t/DskSHPE0T9J90FH9pfsPxhAgo1G1xK+eG/01y9KW8gD EnyseUSg7PdCZYevqtlEkqCvZrFeUNIdNWpL3hyIIwFu4ey34UFX1K1yoA5J IQF7f803fJQLWhKrKXc0jwT+XoPqqzLO6IegkKXYAhI0neV/lsjnhM66vSv7 V0oC2Lyz9Zr1FiqmLyeJryUBs1xLF1nIAUVV3CiG70jAxvkqq1/JHr0pVZT3 vpUEWpfutmGv26FZB44IZvfR4nWnJ4aH30Qb165gWYdIkOFkHHGZwxrFziSm BI6RIGYtfzaw+AbK28nIeYNEgg4XwmE39mtoFhJt5zlLgpQ5xDT7uyUq9o6j NnSBBISOeW76ySuobPWhayW/SYByWehIYC+jdaczypv+kCCUJNnVNmeOXig5 sjOwQ4InVbVXbPebo5Im3GZb9GRwuuqT9uaaKTrPfnnrMSMZlh8YXPkpaYKW 96cWcLCQYdj4heNw+SVUQefwhhgnGTomZYjaiwboGv2N/HIuMoQqs1qYvtRH Gzuy9ZR4aXdeue1/6a56KIqIZuseJoNl7t0GkWM66L5tO60vQmQQLDLu4juk jXY3vvxx4ygZuqTozeq4tVBDpRPqXhJkKMqo+fNcXgPlXL29sClJBvzwfOa0 6UV0pKos+ZEUGS7e1Yf0IHX02mmZr6lnyFBaH1NsQEBQ4QWveBE5MthFnhQ5 6YFBScXV50sVyCAv5TPnyX4BdZZQin6vTIbTHl5czCEq6Cmyn6K2KhlGdu72 Ei6dR5dyG/CDF8gQdtm7/ugZZfSu4AU5qjoZ/qry16hyK6HKE8GT7ppkoDNr vjLBr4hupbY+WtcmQ8WVB7X2J8+ioVwaY8yGZGg6M9TB5imPag0+fpB8iQw2 UwzR2qgcyhTbc0LYlAyckd+VTtXLoPFM+v/JXSFD+RnJJk+CNGrWEy3x7ioZ 5vyHGQRiTqGHHn/+pHGDDN/cMucP6J9Es3dNRCxtyeCHlptVrR5HbZqTPpLs ySDbI662g5dEJQJHfVxvkYGFWbK+fuwYWrpu2RXsSoYQFeXo7wviqHtthgej BxmEd3pbVBjFUVlfHF+iFxmqiDJpqTJi6Nulmy4Fd8nwNo6P4ZPyUTSgPJ9b xp8M4Y/0Nto7jqAYF0pTfQDNP9+dkkUbIbRz5hZH/wMav/kCc/fPAmj4i+L6 y6FkuLWjXiyZzY/q236zJYTR9PUJDRsP4EOHce41PyPIoGhCd1XPhhdNyaiw CowmQ5ySclbdLR7U0nKFgSGODAnFSyoe97lRwpc7VwWSySCQtd9oIOQgKlZ5 4kJqKhlWPrly/VzmQB2icSLcz8hQfLGYOfgOO/pNQ2OONYeW33Y5n9PVLKi0 6EZfRB4ZzhmyZzxzYUY9t8sqGF6QYftJhNeOPBO6Wsvtt1tE4++daF67zICe S+y5FlRKhjeky2oZVHo0wOM/zJ9yMkj81W/In9mP7khS6FeryID5JFyQyboP Vd+XNu9VQ9sP1DtpJ0eHhhH0Pn2vIwOOOBNOadlFmNOrk7++I0MhNu16T+M2 Ynjnlr9DMxk+qXTxZJpvIfHGh2+QWsnQ/26bR2L3D8LLFCo+1UWrr7Ud7V/h G4jljOIByw9kYA3zSsp3WEcy2ua/jfSS4b5dhPOI0RoiEmBS/XmADEbS2bht /VXE3oI+VX+YDPa3LDNfWv1CCuUb7n8YIYNWX+4Nmf9+IqcWRKB9ggxs/BHM uq9+IB49IxIIjgziF/Zrrp9YQipfhDM24cmweX6WTbB+EVG6sTxQSyHDHvOR tG3Wb8h95Zdv5Gdp8Tl2qawNziFNPJZpFXNkcAw2ER1/+RWBTy3WJd/JoJzb VqB8fwYJK/FVl1wmw1PidR8NfyrS/fi45IufZKC+xP01DKMgBpi471nrZPjK Fa2a/YCExB6+OCTwhwz1Sb9IUngCMrS2VpO6RYbbYd5e8yZ4xKLCOjB+jwy6 L+Jrxu5MIc+iuGzY9lMg8WX9ZQ6xSQTn1H0xkoECGmoHg+OIWMRW5AxLGAsF 7IiePNsxY8jLLdLSLhsFPuTyXzX+bxSZxaYMB3FS4FiK5mDtvRHELWH7mR8v BboystcXk4eR1+5VQat8FPDOYwnEuQwhK7qOtt6HKcDS+F6su3MAuUf36YTr UQr4/1k60VDfjzTgQ1jnRCmwKb3/UY5xH7LVeHbZQYICUvueRB79+xF56Jv1 1lqKAg/1hnxUw3qQzkvGmVOnKDC4d4+Tz7YbYZDe/8DyDAVyTrm+YTfsQqKp rlqmChTYZ/IoX+dSB0KNO61Br0QBTDhe8q1xO3JB9QfUK1OggY+tdV9LK7KU 4HNBGEOBQJey40JG7xGtC2dVh1AK9JxvVqhsfIfkzv1WDrtIgbW2tSQxTCNi jNw/+02HAjycpxlywt4ixd9U5LP1KRAXRW9urFmH7KVsyRgbUeCfT16qHH8t Ur344FSdGU2/ssqN4OVqhCUdpG5bUOBJYt4I32wV4nBx33GhqxSw2Clf52Wu RHgznoiFWlPAur/jqdnzcsRDU0dE0ZYCbZJP+NO5y5DuZSbhOXsKGCgmfezO LEH8tWMEjG5TYKHP1uvjQiEy+NOIb8+VAu7/dFMuVBUgUjmcvDUeFBARMdGf DH+JTK4mcR6+QwFjdg+7YJfniHzeZfZP9yhQO32KS52Sh0Tp87GG3KeA1tPb YTqcuQh1DcukEEiBrd89Iq6W2Yja84wDs8EUKDbpNhVuzESSDW/QP3tIgeGT 754vKmQg3zeO7DMIo0DJNeqDu53pSM6l/H9VERQIy9s2TpVIRdb+2G05RFNg R/TVi76VZORSocQfvjiaPrZdsDqYhBSbzK73JlBAuM1OkLEtEdndKvodlEwB 7L+j9IdDEhDL4tu/ZNMokNIW26CQE4dUmZ1aoTyjgDR3SlkuNgaxK329qJtL AZ3yiL6/mZFI42Wvb1v5FIgo2qlYFI1AuPfk5ipeUqDUILjiTPNTxK3814xd EQWKJk/fu+f5BOm8UkvhLaUA2/ZKVNTZx4jQPj/Sh3IKBB9n09ZmDUPuvlYm /FdBgXqrgE9Jv0MRSfqmSVINBVpCzVNKfzxAgiuDsMlvaf5bnQbGjgYj49eR Me1GWn3qJS/nuwYisgf2vvxpovG/8l3SYygACa9uH3rVQgGB3nyn2kv3EaJV 2IBNO62/xv/wMc74IeeZtD5xd1EAN6rzkSX+HvLt5scP93sp4LglcPao2B1E nSWqW/oTrV7TygInGHyRzDqDTsIABb4LHck7ve6NrNqytycOUwBxOD5TQeeF GLANtmiOUiCjQ0DMTNoDKahPeL8xToH+3z/HjHzckH/2Zu/KJinArpjO9nvY BaloHKs7SKTVZ/+Xif14J0StXO1BKpkCEjkxK3OZt5AP2c+1BWdo+WKz0md1 c0TIIR5YiW8UmBK0PcGO2CMePiN5JYsUqA67qMCO2iF/7VVun/lB6/+cTDGh bBuER5vhz7lVCrjMx2y8P2WF5Cu7tTetUUBJRzrdLv06cubkcCRs0uZVf0ME h9A1RJstR1D/HwWSJrx+OdlfQUb+7aMO7FLA9kjnfLWEBWKzfLvcfB8V8Akv 0Isb5kjAF8UL1oxUcIHVUPFhU+RAVyY9hZm2dvT5IlhmgiTX7X1yYqOCzUFx tbnBS4hIsVPqIgcVGk8cdmPgMkJePftk7c1FhRSfa8vzbgaISpTC8TUeKpxb r3QXIuoh3YHPfgTwUSHw7wlXNRddhHjTMSRMiAo7HFx5Is1aiLtJnw7TUSrE lNmahjzWRP6oyx2MFaXCVODJQLqbGsiTs2kTXBI0PJOnPDm6FxFuye38NEkq mD8K/mWpoY7k8dm7CElRgXM/cTsqA0WkmT7K55+igvHXTwOcfRhEazG5o1SW ClIHJ05n/KeKfJn+EyWjQAUu2967mRvnEZsBG/MaRSo8Vra2UYtWRhZbu4XO K1PhWNzJXBnFc8j9aumZ9ypUUNmdbVP5qYgwvEx8pX6Bps90vZRi+1kkMWXj bg9ChfuM0iwHXiog5f6dDEMaVHgz+U0ekZVDlF1ODlzWpgK7p5n6ATMZpOt6 fNqkLhUSbnbeXkw4jZgart28aUDDP6IiZbhwCsFjbpygGlGBNMowmmt1EnGV bV92NqHFkx+BeH89gWyInmj4bkYFZ9H2u/ZPjyMH6Vd11y2pkH4C+zhl/zEk Z+0qV+B1KsSHc529TxBHTs61TO5aUeHQwhWNjj4x5O3EsRePbahQkX4pHBcr imj0Rbky29P0tPJ+yFZ0FBlsWlGIc6TZa74a0MEdQaxeX9nidqZCv8G7oElp IeRegnjMEXcqSPANPX0lIIDsexRx+bknFZ7P6pzYqeZD4u/8OHLchwo+P6S4 umwPIUK3Ls+W3aFC6FeJ3HcSvEjJlXevZf2oYGUX8KPqDzeipCvqV3ufCh8I 1ePhZC6kXeUpohJIBSFmzwbbmoMI7ojZ4MWHVCDYxOgcXmVD6ocbU7jDqFAT c4WvjY0VSX4qdp3yhAoDwhx4Oh1mxEstUuRNBBVuDxgI1+cxIvorKzOh0bT4 vHTVpnkPIJKFV8tM46gwkZAnH19Aj9Bdb/MSS6TCtVZBV3aj/UhjZ/zftjQq WJfVrFI79jCp9zdaEzKo4HH+fXJL6g7G54zNE9tsmh74s80X47YxRpQefbk8 KviOiv1aKv2LkUqXObj3nAoRpHmy89dNzH7DtLHBAirccIupDFHfwBD3/mXm FVPBU+KS48nGNUy662dJ9DUVXHeiNl6t/8LcEVFa5Kiigr/J90Luxp8Y49Hs KsIbKoQca32mKraCkY6k96uoo4IgRfxAzZ8lzAHEXe1BAxUqRVR4xzcWMc3F aj3CLVRYmDHKFbsxj7nHxWra3Elb02sm9JyfxZwJnMJZ9VLhsGzhr96HFMzM TKnT9gAVDMvdFx7oETFZlwJ+Zo1SoZZFc+XgWRzGvEE3SG2KCqJtvDOnS7AY VnEBRhyR1s8V+i530kYxHdFzif/NUkGO7x86vzSMCVh7e0Rwkdav3H8WtWEA I2/ztLhxhQqo0bstYc0+TL6CZPPmFhXEtneCn411YjgPdH1RZpyBC22xjPys zZjFd9LPGFlmQCtiqegRaxPmg1eyNZZtBk4ZKNksyzZiHkzaz/tx0/blL+6t T9Vhll7R7dQJz8Ca6X/E7r+VmF47l84nojPgwdOxqNv+GlPINxxhITED1nzp GvJV5Rirh/k8a1Iz8E9vCeHZLsYoKzFNdknPwOHfjhob5kUYngWv3BQZmv18 ZQtHXwFmORfr4Cg/AxlRbsKqVi8x/eboSUXFGfj//xn/Ay9odXk= "]]}}, {{}, {}, {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Dashing[{0.015, 0., 0.015}], LineBox[CompressedData[" 1:eJwVWHc8lu8Xlu1FRUQpmUmIEklynq9QaRIV2TskKntk7yRkE5K9977tvcf7 2ptkZyfV7/399Xyuz30/51znus99nnMeTt3XSgakJCQkw2QkJP9/tgzluEdG DqPzpApfC+Tw0jQhVZwhocNIKLwwS3wCL63woB0FfBxGp0XYR7/ZE6Q7ahd+ v/ckYrYA2kw0JN2bfvadoeUwapLmwIs4jUozGggwapsNox8zAsJL18aklc9d z1U1GkYX6HjuGu6NSeNDlFfuawwjgw+kt9k9J6RHHP31Re8OIx/+W9WO61PS bNciSYVkh1GtK4NAhM60tPrP5PjzMIycd5UnP+OnpScM6sZOiQ2jEAH+gfet M9KzD38pk3AOoyurX+XZBuekeWiotn6xDSOdlCz/J9rz0ob1TJ+2Tg6jyLzI r9Tr89KL10Q6F+iGkbGHqRCwfJde4TCS69wfQobx6++VPv+QFhp9N9u0NYQS iu7vzkgvSZt/dnOtWRtCfNl0l9JWlqQ3aOKqCuaGkMR9K5+bKivSO5sDYlE9 Q4g+OEvYSmNdWjxrpj+kfQjtF1V+6mbekLY12rD80DSExJzlR1+935A+GKXN dqkcQp0fIcJd7af03waZ80apQyi54UVi/+UtaXj/uEH76xBi1xFHG9lb0i7X NXXV4oZQg/5o12nhbWmybLu4B6FEPh+FsyckdqSpw3NPXnUZQi/Upe0k3+1J 31WsLhRyGEJp9gOBvbT70n60HUp81kOI4+TSFcaUfWk6l++Bp82GUMdgVOvC 4i9phpfsVEeeD6GVcBHlpzGH0uc9j1sGKg2h7ZGtqYd6f6SlEkhH2R4MoROZ a0ZvhP9KGw4vZIvLDCHfw63yKsI/6cq7OU/NBIeQUhMbO1PxEegzSKj5dX4I kRxL4GMTIYXvriEXvTmHEFk8u5pcFikwltv8TTg5hIT/2BxTyiMD44tYMoFk CMVHVikEzlCAs/yV4wa/CchiiIx/1YYSQnR57Dd3COh+fy3rKQYqqI6ifki/ TEDHvPgixB9RAxNt747MIAH9LtM1v/EHBxf56rV6ugnorviv+PwCWoBbRa0a bQSEr3C4UmdOByYOkbG2iIBi5Avl2LbooWZZRy47jYBMw1IN96KPA55KOedG EgEVYqeuCNMywDK3/KnWOALqthXwEnRigJPqF1dnQwho4+ZxmoqXjGDWsRl6 ypmAdp5aPzlhxARui3N/k20JaK7Rq0F7jQnCyQnGV98SEDNHkiy5HTPUSVVI PTImoAjvV69jI04CS5b7nIcSAQXZLzPrkJ0CwVarh4wPCIi6orY6KeUUyMwb lX65TUAaeVEiS49Og9nZ+wHlUgTET16lOpzJBnUfmK5unCcg+TurJ/9GscNQ GmWcEycxvgGL3SO652C1cZ+K9gwBuQrfjfhxkgNY/46N8jIQkNRmIjXfEgeY m39zf/Ebjzx8sYWVHC5g+/vwudwuHk0NSfcIcnBDy4d9QeGfeJRI4/t1JZgb uLLu4Um/49HnKuNFThceICz/vJDeh0c6VY6/l+zPg4dD9J+QTjxyyP3glEvC B1do5fqcWvDonDhZubEvHwRcjHBQrMajlXPdIhtfLwD2UrprPw2P+DkVBrn/ XYTV/e+JM0l45JUVNisXJwBRPp9sOr7g0emnv3SnMEHYTpnjiP9MXK9UrG8O EoK0Bb+3t13xiDe41qPskggw6hNYw57jESuJ6FkKTVFAWy6r758Q+V5Dt0m7 RMHM/WLdy4d4FE1laqeHXYWmRCfTm7J4xCHXctRdUAwcprmr54TxKOW0Yng0 9zW4YNkZ3HURj5JMntOeSb0GeBIbo1JePGqLzOwyFpYAEY624wFsePRGKJAq Xv46zGla6IlS4ZHc4omrnJE34NPaKYmzpHh06kHV8zgxKZB2rqej+jOIophT JLUHpSAy9mTxyOYg4jZgyt1il4aHY5XUbhODKJDHh+u0OQYlqjTZPUWD6Cyc knb0vgWGmV30A7mDiMrOsX/65y1g+hfyipAxiO7k8JUYa8qCRRK70ETCIPKK eXWRTFoOLq6LZi5/GERrO8u9n1hvw9B/v2jXfQaRpkER4vt8G7xDq0033QfR eefAs2JMd2Du+l2BX3aDCOdgWD136i7EemimUxoOonH6g7RF2Xtwn8CNw+kM oqPXu8d88ffggP/HS3r1QZT+PGqM3PQ+PO1+y8+kNIhsn+H1q2IewPHTvqmc 0oOI0yn8tTrjY3DPKUiWOjmIhEhtR7p+KMEVUjtKjGEQtfuJGDTffwJTytKG t+gG0VO6qS9JeU9A6qCFV4GUyIfa1EnYVRl2ZSeSnq0NIDPHjd/OEk8hKfwr +YsfA+iKx02p0Iyn8GTJWF9zbgC9zvZwxXM8g9yPW9wGIwNIbeQGNQ3jc3g5 Qv31TdMAmjPLOQPH1YBVqIvUunYAvbVnCBn4rAZN70N07SoH0GoV497i2RfA xcvO5ZI/gHj03wSWi6nD2GvRhA9xA0jFX7xY2lMTHlFofkm1HkD8hZUsfAQd 6CujagfLAfQj0WxQRUIXlM3zdvGmA4iL1IDaMloX1AjkDyl0BpBg15vwICM9 0E/LONS5N4DoElh+W7MawHcNlQu/5AaQ0ec4HK2fAZgw/nsShA2gyNqJXfwf A3jtoJRRLTaANPdPk8CKIdg/+KXKxjGAnp36dtJq3hgOj3z1zD9N5KPqfW3l 5Ut4X3w/7y4z0b9TUMbGxkvwOBdPbYsbQOFcKi7dlKbw8ad8ycB2P2IvHXAT efIKkj6HMgW29iO54uzoSilL4FOQxngb+lH7AWePbJglpP/9blpZ3Y94Udgb +5+WkGN0o36poB9djsu6Qpv1Bsqvz1jejutHY+cDaD5ffwdSa/6xExH9yEU5 TV0t4R2gRLFWq5B+dE1V+wWO1goaaH05knz6EedKIee9OSvoHhfuJnnbj5w4 j87dyLEBpeDhg/BX/WitRnvoPz5bGJB3Py9s3I9uK1Xw2iTYwkgO3klDox8x NgU5hcbYwZyrk2D57X7U4Jgmm5jtAAe87b5vz/QjlQuFxzR5XYDpoSCHEQtx Hc9h1vzaBYStPxSrMfYjeUO2TpMKF9BvejT7H3U/Ii95yvHmqSt0Gg5IHd/u Q1W+mnNUMW6wGCjWT7beh9ZxOUONG25AWhL2cu9HH4pL7tack3cHcSrVsInJ PnTx3DX/Z3vuEJ8yvp7Z3ody3y50pL70hPJuaa/4pj6Eu3f33p9WTxjc+3Im tLYPMdhO9Y8JeAHuju5dh5I+9EgJ7J5se8HbxYXEu1/70OujDtQ1ET4gz7+h smDfh0Qf5BkQrgaAtqLiyrBVH9rIzTNIzA0AB7t8t06LPuSt735L7dIHyG19 l1No2If4z9t+yhAOhFMmv6jdlfpQm8bfGgXeILgarPbF+kEfCraJ/n3LNAge lleImdzpQxl2zDGP8oPADeesqyjdhxbDXjdn3voEK+mklecu9qE8BTKmxbfB QNmvp3SCtw/ZnbJxH68LBs7fDYuUHH2Is+g+gexECDy95828xtyHSrNsRLeK QwAt076uPNKHdmSkHnXTf4ZgQWYu1eFelHSCY1jsdzi4Fqt5TPX3IlyYw268 UQRYYPELRl29iPfM6d76wQh4oCyQYV3fi14AQ8OdkkigdvzvamhWL6I8wabz +2M07FJ4h7Gl9qIo97GSblwMzH/s2E9M7EU/zh3x/OAdA3Vfn1Xlhfeib1z3 Yye9YsGp/ZV8t2svWoy8hkXEfgEzlYLUp469yCycn+86UzyoTe7jJqx70Svb g9kitXiQ2HLvXjHtRfmplQkrS/GweTrqOe5pLxoODWEsZE0EY5MmE7mLvajg UN1sPTMJnm7Tdnbw9KI7q0kWjBTfQM5ZUVj5XC8qiXVpc9X8BlzBY1u6TL1I 2HX8uwpzMoyXbTq6/O1BPSOKBXdCUkCJ5tzHir4eRKWkVs8+kA7/hej/lOns Qe9et0xT3soAkbPpT9qae1Cfn7G0a0EG0F8WYx2u7EGqcf22EJkJLc/vJewm 96CpCxo2RrbZcDPVpuCyQw/677ZIwJBsHgjuDMX3WfUg+REPiiqfPDgjIxn4 1qIHJdE/CvXtzIPD0UPjIoMetOFLtj2nmg+Vx9zYrz/uQT+/3axcdioAKZsA X4y3By1H3Y59v1MEgg2r1tPnepBtyfPw03eL4QzDI3230z1ollQuoTm2GA7T GaDhWA8SWO7Z1VUoAesqoR8ft7sRRUUo7WpuKbwLkEFxcd3IQ7GJrLuoApTP U0RNhXSjxppg/Um2Srha0/yOy7cbsVKe/CHsXglbW/cvJr/tRt489YaxKlXw 5sWzz1l3ulG9NPXNfzQILC+amVZudiH+9b6RFtVaeNxwSf7v9y6EOJll/MJr QUTzJwc23oUmglAQOb4WNj5Z4+ubuxB5We6jiyp1YPHL5b/2mC7UIvb2o5F6 PZi3fGYZke9Ct6dMaVmCGsHpbnPzgFQXuqrBRMc/2AgBbfs23Ve6UN12dNrm 6SbI6Hgx1MDehc6X8wnkpzbBYg9nZM5uJxK4mmNL3dkMOsNZpz2TO5HiSWZD Ock2sFCbbHsf04lK0pgMrfzbwGX0uIN9cCea72E7eDPeBnHjb0dfO3eiv72z hmPu7TAyfT1G7WknSpASZfo40gHKS41nRSg7UYrb269pud2gZ7rXefGwA21G 6FlkUvXAm5ULzrybHUibM2zB6loPsT/xnzg90YFmLomy6kT0QNem4heK4g70 buJSSYZWL9z5Pc4xatCBjoxu7KeR98MNul1ur8Z2lLv78fPPTDxsPt4wTS1v R6+N88x5fuIh/fNSQVtOO/ruNra6I0aA0+cmbx2Lake+xUt7NrUEOLjcohdh 3o4crcyj6aeGoPRZ1Nd0lnZkzBc3yiM1ChYxocsddO2ocaOzJ9pvFC5MB4qu H2lHu60OTFXDoxBu4l4vutKG6DU5RI7Yj4G1k9lsZU0b6sw+Mp5QNw5Xv0pz d79sQ/oxPI+MJKdg5buE6U/NNnRJ7l7zaaMpSBIULTih3Ib2qFpFLoROwYli vlvPpdvQkpzguOL6FGy2HNebZmxDogP/WXxPm4a8tZnErYpWlJyH53sgMguX JL25WI+2opz8X1US7gvAbLgBW2St6K3I1FRryQIcflLV6PrVglq3TOqzVhag /YdAhMd8CzK8OzLz6tl3MI7sof9Z2YJ+s1atdYssQsL+qV+tpi2oKYK7kXXr BzCVZHY7tDajKk1T/L2iVTgQ7XOc9GhCX7pmf3Cc2IK5+Te5q/ZNqKje5fon 8S3oDD8x99uiCb159HOVS20L4n8r32PVaEIcGfkxaQlbcLuecEpRrAntRmrZ 3byyDaFK48V1843IbFh7Vl51B4QtFze+yTei86paivOVe6Cf/VffjLoBZSwz 5241HcIut7FI4p96dFiQEd22dQg+kb2/CZv1KOz++EIWxx/I8kgKvjVej+SL vnKE2/+BXTWFmtP59chD7bXTzKW/4EMVxtb6oh7xfOgZbY/4B5naQn28OXWo BzNYChE/gknjw2JfJNUh2yTHBo4HR7CeeyQvP0XWobwmLXyq3hFsR7z/36F7 HbrOEsKdFkTcT28nNPC8DnWWsUxoLRH3lzX4uJHWIfOe9fDHMaTYNqM6TKrU olbdqErvPTKs+PXVqc57tWilN0tFiZYcs+mgc638rxYxSX7apz9Hjh14VtVF CtWiUmY6hmfy5NiRX+zyyhS1qKg1z5UvlBw7Ojl9v7WwBjVmG3DYCVJgFzKM 1ApO1KDge/3JCQ8osSUq7HcCTQ3a8S9TW9OkxJ62ikhw/kNI9+z9JU4LSkxD KrhiFI/Qp7pgXalgSsyES6XusRdCt9K9rogPUmKeayPdkvPVSKiuXORAhQor 91pYOvq1Cqld4xGqxqixwOYL6jc+VKH7WRrPbB5RY3rUpp1GNlUoryvlJrUm NUbnt55Tc68K8R/n3Mqxp8Y0P+y/e7NdiS7bYexH86mxK12SC3ETlUiNVgdz RNQY1TGnZ+0tlahkMiYGdVBjuUFHJHliK1Ge5Km+hgVqjDQU929QrhKdjZum rmWlwfAD9y1IRSrR7+XSzh4eGiyD+eP0pdOVyPkbo2uBCA2mHH6iwXutAt1j Go/buE2DJUed8b0eXoGSNJU0ZN7RYAoJl07ELpYjNTzdc7oGGox9xsKjta8c LXVEpwh20mBbXAU7O5XlqDDlCtUZPA0Wk3Rt6OGncpTL9Jzb6DsNtpaCxZJI lqM1c5nbaVQ4rG7R7agQTzmKw8l7Sx3DYeH8je9Vj5YjnceLD2JP4jAs465u /kwZMmZqRk08OCw4W4lP378Mnan9mVEojcMM10MjgqzKUFnYbmCOLA67IUKg qdIqQ7IbGqXWCjhsLu/FCvPVMhSdnKT8UgWHlW7GasiwlyFGt0zPUDUc9kF0 qsucugw1vzGx89fCYeJF+nnNY6VoXSrtypgxDsPtJnNtN5WiK0uUNWKvcNik +I8QjrxSxOeD/6JmicMKbQQoHkSXooeTLGUKVjjMp/SVtZ1nKSrLptymsMNh 6r9yvn97XYpOR7NJBjjiMBHJzed9qqXIgYHeevw9DhuusL4hcKkU3RCNdJny xGH51BeGq1hLUfD2DLWXDw4LUBm2fkxWigYkHwrt++Ewg0Q/ptnVEnTxe8Sk +AccJr1+I99qqASNHmYwynzEYaxSq4+o60uQN0dM+alPOOynT9xqVFYJ2qdN 76gKxmFtg4/8hSJKUMquDFwKxWFJXEf4a9xKUOcmCc70Mw5zfp3fpPSqBJ2E DN53YTjsWaWe/vyzEtQXIB5wN5zIn4aZ1FamBPVINkosEzHuadMXnFAJ+uaR wqcaQdQ70eZmLEsJikx+8TSEiKvWL4wKk5agw50P9ZFEHCY1Ylu3UoxY11hf mxGxha//SRVCMYq7TKFGS8QKeKnC77XFKNTF18uaaJ+be03RPrMYdSTi9rOI fA5ff1mnCy9G4/JsBXlEvvjKxx++uBajrEGHKldiPDk0pAJXzIqRteRpdvYQ 4nk8LWhpeFqM9L8wjHsR9dD9qm/47L9iVMWeTlZJ1OvGBjP5kkAx+mr8PKaK qCfTzeYEx5PFyESjKt/fH4et+drCsSPFKDDm25PzvjisGc8/nrBchB5T03z4 4IXD4rlH7a/ii9ARaZx5rTsOs7cIYG2uKULbpLuUdS447EnVzWLVjCIklSzz 8qMTDqN8Fv/T2aUIPbD4OhhkjcOmvip+ZDAtQqdKX1E3vsFhZRukQkkqRejh Z7KnTeY4zMzPwLj1YhHirv76RcQQh8kRTlKqMxeh0RvBnZE6OIydp+Xr2r9C tN7NaN+jjsN6qy5OnhgsRPRlx1CyEg5Lx405JqNCZHXOJVj+AQ7zePbh9PX0 QkTuaaxWeJuY7z/XVTTfFyLlavzdgxs4LIanqCOVvxCdaPZ7J8qFw6wtDU1u MBWiV4O38uTZcNijahbqrr8F6NQ7GzJ+JhxG+tz+1lZ/ARrKfvXhBQUOM/aH 8pvOBYiUfWjXcZ4GkxnaeNZjXIDuO7OG04/TYGy8iTu6TwqQ7tS7fPMBGqyr mvyyz4UCFNv1l+NrHQ0mutma0teXj5Ahm/tIDA1mRq+6ga/ORy6T493xITRY 0oVFidH0fCR/OfIq+NFgTFqUbbNu+YiWXJiEwoYG226XWdm+ko+crtydLHtI gxV/qxBhCclDMsZaJDu71NhajYId2/s8JOLgzqC8TI2dHxuuPWeahxYzA94G TlJj4Yz7Shdu5aFiSudjYc3UmO37q1bXt3LRE9bb9HufqbHrqlllL57kotam JRATpMbevJMi1YZctLym986AnRpL/9iuoC+Qiya0FnrfHafGTjf9GDUjy0X8 rofHr2xTYTsG9w9/G+YgLyXzX0LlVJjtKWlPjC8blcwcNhlhVJiTC2d4a0oG SmuesBq9RokFNep6WzhmoAd/8qv+8VBiibgkGxbFDLR9RYKZmpESawk9/9zg IB0pGv12aVqmwE6kCZw68iAd+f33+gZFHAWW1isWLbGZiv6tFwfN/CHHBrkU vqRIJSPyt1+MF7PIMKHGNymevfHIs9LB1m+eBCOfz4xS7/FDOokNH73196A7 WVD4H4cfoue3V+q4vgdRxpn1CZa+KPBHq6DIsT0QWclYWWD0QbeuS+0+Ld+F F1vp0pYqniiNpIFXiHEX9MiUGmmL3iPro5Q0qi3b4GgXml4ZrIc0Q2UTbilu QqpLyKH8oDYqUPGhExLYhORjvLGJwupIEl++i1FswhNBzvn264rIpnhd4UfZ T7jzMkrAq/kKFDLJ5cnw/oSuEw5icbLGQFM7Z3yXfAPkU3Xl/lK6QkD9LGNN 6zIoe5k8uFjgCgp1NyY5/ZZBV/+NylMtNzDje185qbAMThxuBtkl7hBu6yRu 0bkEhREJnprGXpDfQmf/Hf8DuH2nGqtb/UHo7CSDzO/vQCIm/BXkQ4Ba+0xO i+8cUPGIpqjEhEC3bbJlo8ocHD1xLcN0MwQMFY0N2bnm4MxP6YLwuFAQjZXV m6uYhWtZD+vXdz8DLL7NrdyaAXNe89kvKRFwnaNe0u7dNIwxZ3GT0MSB0SJ/ m4LlOBi3X3d8pBoHwjX84Tjecdh2aRqIS4uD084fQjWHx4B2ZdLzpsIXOC53 yFF7awzO6tC8q5KLhxCVh/y650bh/jUp/IFXAtgeq8Vifg4BY7CbG1dOAty6 y7ShlT0EQystlxQICRCypMudYzoE+okq3pF8iZAbXFGx+p0ADvSvJSRaEmHE xeb3yAJxHphNiLKiSYIxlTnHlT8DYCG9KB97OQkIyePR5+oHQDzy0laDahKU iOHVB3wGoO5hxT2m9CQIzG8RrGEegOGygcN8hW+wkGlZGCjWD9RBVFob/smA O5fZ9CagFwylXnGbHk2D5/HjLiK8neDnE2SxfT0NKBpkT9I1dUDWQEGVk0Ea nMqekJs36oBts4NnQZVp8PHfJ3Xf7HZwi/UOKDJJh6M4jUbD28T56m/Czr+m DBAnfb/941sz1Ck0yvhuZsDsGaWiNpVmmA9b/MjInglHi4ZaAyibQVBY+CKv VSZMU39ayTJpgnKtSk0F7izw3+6XFL3ZCIM1+ObQ99kwPu9+sommHvbpDpjY M7Ih1HGyZrmpDs6ontVNwWfDVVkrPoJHHej+1DssE8oB4oRstk9aBxucP0Um R3PgvvDWrhh1LXjVUnQyxeQCYZ5c4alJNUQYhb8dzsuFAa7lP22/qyCdnv90 XHMuTGjgk8ICq6BT9b4R31YuRDWHcpwvrQSmzeAjkgp5YFlTsNl5ugISuTjE tfbz4Mr8n+5AtlJQOei/nE9HnPOPzhvtNZUAdZ+3EAVnPnDtrDppvy0Bc9d1 noy7+XCZ+UjSxe5ikJyqPrEXlQ+6K670GsFF0Bur8TPwZgGQKhodissVgIcV w+q0YgHotRY+/vQvH8QfNC5eNSyALMrJ5ObyfIg5FJwaCSwAwyW+fCSaD8Yv DrvOTxWAU0KNQ4JwHpCcis6sdiuECzVNbvlR2VCw8TCVIbwQSI+8olu/kA2G LaRJ+hmFsFQ6GpdQmgUdNibRuIFCCLGjfqE6lgkR+Ot+T3mL4Cyd0OXUqxkg EjpktNZcBANCNrzuvKkwaxqg999YEejG881qtKZA2C1MK3SjCLbeWiy8NU+B w82Up5KnikFaXx0nW5kMLYo2cl4mxVDZU/vmpOE30Dp2kpudvgTStAUSU9cT 4eio2iaOswTKi7S3z6QkQmXyl9q9qyVQwB/TGqiVCKzS/Nq96iXwmzKsRqs/ AXrMpGI9Mkvg7xefhJdN8YC16bIs3yuFe7izakE5sbD2OWWBoFUK7+QGshNu xEKMzkpRw9tSMGkUXlFtjYH9fSvluOhS8PEI68n4EQ25fL6fFJdLwcXwZtXj m1HA4ZlDW+pXBmNnM/oTBcOh6/H2SFJcGThgZ6z2e8LA8cz19E/5ZXA4kS6R ZR0GQwV1d0xHyiC+bbGPu+kzBM0MerJfLAfFEJLgwXehIJ19WoVWuhzOGw+J FHKHwoqdFs++Yjn08AlY9fWHwB2GH3W9duXw6xo5FboWAkeww38ereXg4sVk ukkfDLm0/3VbjpfDiTVHUuOmT6BJ8IzT/FkOXF63g0hcPkG5+bGbEqcq4Pqz ecoPu0HwJpbLftm4AoxmeP++mv4IMwd3thWpK6G5ykvtrFAAAByGrJ+thL59 ZtNLxf4Q454j+kG0Erp2Hsba/OcPT+lOvm3RrIT67ye9wzT9oPXs7E/pokrY N9Z5cjffB87rhn0aa6sE3Zs+nzTu+4Bb8t3L9lOVIIp0994teoOUcK5FEW0V uH81rww97w25mNO6gG4V+B2qOm+WeQK9p8jHVpsqeMJp+clOzxNMWmcvGX2o gkV5O7vBo57AraRgnlhaBV7XOnx3TTwgTI9llfVYNTzKTHJ+KOEOWyltAcU8 1bBuX/58Zd0NHq84CSpLVsPqyjrrtTQ3wFnNmX40qAa9Mn3BWg43cPLKW6Ko rIbn2gusl7hdYaRN3+9rbzUo+PhtlH53AfFjrBf/+14NAtfpF7qyXGAj3Pml IyOCgLwx+g/SLvBg7DLN6QsIzrrVrwjRuEA6x3xqyU0EJwVYPcPS34N+2r3F TWMEDy7wvhiddYba1b/eQc4Iyh7EKA95OAP7lXy+S6EIcDTvhgsuOAOhnNXo JULgceob+5qtE/AubG6u42qAvSu3uUvSEZR9OuqqmWvgeGY+DfumA7hdTA7+ wFEDB/FaaecyHWDCXPWKgHgNOArfkeW74AB0DKKkB1gNgKv+Y54le7hRQNfX cq8GxOmyR2uz7SFiD1ka6tTAOZ89uy6wh6bIyP/EzGrgnqUjiTidPezceMtA blMDF9+Rrl4atQOeifvTfa41cJJB5ntRph0ouZzPSwioAQXp+rpmFztw4SJx tQivAdn3Tc46z+wgp2H4MSTWQKmgsLyLiB3Q0XzYGCupgTaDN44yS7ZA27C3 tFlbA/mNruvzHbaAe687T91BtO+sOZqfZws0kp2T7Hhi/BpfiZ9pW6DeuTZy daoGQksKK+tcbYEqN3FAYakGnCeL+0lf2QKlKX239jaRv5FnsqGaLVCct221 /lsD/GIZLKt3bYF8eqY+gFj36/ReXPx8wxbIYh5UJzLWguGWCammsC2QPist LT1TC/t3783J89rCEUbugq7ztSDrTiH26KwtkHR+yJoTqYX0IHF7axZb+Oe9 n3IgWQs7/HRqlSds4a+MXuJxuVp4/kEmmoPRFv786Yw5/6gWRBi4eb8S8WGp RLiUKhF7uv+7xWwLv99+/aSkVwvd+k1KZKdt4eDS0QDjV7WwOzxqNM1hC79+ 2Ho529SCSdCt1Al+W9hPmnUJda0FbtVjcb+v2sKe1kOHdP9aqIlb2JKQsYXd 02VWNZ9r4Uwazipc0RZ2Brkt8F9qYSnvBT2rni1sBwWarKTVwkyzZmuFtS1s 3fulT1pYC5ibLN49wBY2KfW1WKtrYcRtw9UyyRZ+1napXmqpBfHmIze8qm1h w/G6smxfLbg1jwbVj9jC+rWkh2pjtfBEP1dU4JctrG0evWuxUAuV8X7b1afs YNV47mbMAdFf5r/SNzp2sML9SCKfvA7+/lQlC/ch4omyKy1H6+BZx5Nf63l2 sKT8kW+bqw7Yag2n79Law49jB5w4oTpQ+nOK+/ENe1hs0z/Dca0ORkzqcj6/ socFTJLh/r068LiVW7I0ZA/zv5NodVXqYGr+/QcSRgeYKz5GaatVBxOFLnq6 DxxgRnD+4OvbOugcJLvG2k68L6xBc7+j6yBChna7eMYRxvsPJhiSifbYtJ6H XXKCsUCDYb7cOuhyC3OadnSCEfIbXU8a6iBKj9eqk8MZ8BvzJRkrdWCRGhDm 4fUeBjMe59fu1sHvgZiPdxfew4BhRSaBpB7goe0TRR4X6BsLSiBjroeqtON/ QvxcoKvlhv+Lm/VQ5yD93wkjV+CpGV+9e6cedDI9BD4lu4JDyfvHEk/q4aTH R8rc765wIbmemfllPWx+7/49be4Gbu734rtC68E9MNM07JM7DNmvklZ9qYda VeOiqAl3EH7z0SAjvR4yFbJ1DIQ8YEy7/6JPTT283uLw0u3xADHpF0X/rdSD 4CsqmWBBLwgQ+8MislcPnAf+Qlo+XkS9vtizkzbAY+uj1uwLXhDINgu/WRrg m6X06YAUb1jcN2krvNUAOlvZYb0yvhBTYD/JF90AOVd1pHqmAmAz/YzMyeQG uJJtdqZD8wPcTaxOIs9rgFu/Kw7PT36A3SBSk+mmBrgoE0Zg/R4Ij839tqM2 G+BpuH6EoV8QJBsIPvP90wBHlafhcX8Q/FHvKrOhbgTcjSAqv7OfIP0e43tl 9kZwX6Z/+a/oE5DxR9EcVWiEW0Ln98z3gkGNQ8rsULkRvK09S57eC4Fclomu Ja1GMPygzlgQHwLqlFyhzVaNEMSKkY4/CoXi2TR214RGkI1VkHGt+QwmcWWi 2/uNEIWPpohdj4DqYzwuOWRNcNN/O/LKi0hgdA3sMDnaBE1M0XKuLZFQrqdn MM3dBA9vMolrp0YBjp8+vOthE0g00T1scIoBzSibWV/VJmg9OPuvdi8G8mln hOX0m+DrnApzyttYUFsrbqmwawKexf4esIyD9ALtg9SkJrD2rJoTlImHvzzt 8vo5TcR+v0SSwzselMLEQs6VN4EYH5sTR2c8HNjiBMO6m6B/iYRCRT2BWJcL NdwPmiBDV61gxTsRfrRQ1Wo8bgaVWTb/7ye/gZTkG/pTL5ohK5O3+475NwjK GFMdMGiGygfr8+tN30AiMG9TwaEZ+Hgu/2J3TAafJy94JJKb4UXCbor5bgpc mMj2ZjxshvM/jVh1LmWA46NTA52ULUD1h2WGJCYDemrcOXwZWqBtfujWBdpM sP36vOzf+Rbgjf3jcG4tE1qMSZdXFFvgQIPytVBzNhhvqTxsTmmB2Xu7Yj/0 8yDASbGxNa8FrhqhUtOkPMijeiDVUdECSoktm6VzeXDAJnuxt7sFbM6KfKkw yocA2SuUo3stIDh+9GS0TQHkfT5avXa7FXzJuK6F1xQB/hxO7KdiK6iNdF6t pi+GgzSKzK0XrbCg/Cuv90UxyFYfRu6/bgUO6gb65oNiwC8sWZFGtIKfxNdL F2VL4eBas9DJxVaoMOK40U9ZAex1dUmsm63A6Hj3fL9eBdy6X83GdtgKti6j TnO1FRCgXUTDcbwNJDO7Tsi5VsI536/z/BJtcLt9f/I/+mqQHXkfe9OnDcqi Rk34s2vAWN+BCQtug9RiKZKW+Rr4sGbtLxPTBiej3fjI2GsBT2pudzu3DS6w eD9QDqoFYwF1FcWhNqBkfsXp5VgHHxwl6A0utIM//nvE/XcNQH3LdAVE24FF 6FLjckUDeNDEtZ+Wboeru4uzL8gbwTGMzK/nSTtQ5h7tKwpvBLPcLkqp9+1A TvMu0qWlCe7P6ZOcwLeDE+WtqZ0nrdCSHj65OtUOFkWbTm/TWkHWsq26Zbkd 9C4/7xv/1wpSf4WdnI90wI/PTknvc9pAkPX3rx+CHWBprs7Bf7oD6O5/2qpx 74Clb1yysezd4MPY0Bcd2AE038V4y9y7gXx4N886sgN0UlcHx390w6GBuoVg TgdE3AlWTFLvgZX3fKvhIx1ANvfsucmVXugoqFowv9wJf8QSFnn2+yCAbWn4 zGQnHN48TJfexMPQQdas9I9OuE9xK9X4CgF4RyxXtbc6IeK37H9n3xKgOuIX yTeqLmC9XtJ4YZcAP5lpLgiJdMG3VoYnI6TD8PT4Beubrl3wIP/+baFro3CO wpBRk7sb1OXLaCqopsBsjv+Mi1A3uLpt7VNdnoLS+lXexGvdMKnXNZSoNgVK blbXF+51w5gzk2x99hR4/PPQNn/XDeZny1wK1aZh8dfXbOfGbjDwUEh0q50B 1T2Lb92iPfDdi6dpvH0e/nJfO9cs0QOTnWkg8Xcekh7/iai+2QNrbAsr0yIL sJbmG5B1uwcCHOoZuMMXwE098a3/ix5gflTnpGH0HdJr+/+77d4DSR/ZcotO /oBDf/GJ6r4e8K4W0CjOXYE4jsOT2Za9QHmvsprfYBNeL483MNj0wu+L/p7j fpuAFaM3Vo69YHvNobYsdxOm77l3SXn3Qnx8ud/S4Sbw2OC82mN6QddZKZs3 fAvSO1l3Fpt7QWD6TyXq24Zie7F+bvY+kF2inuP4//+sAfOPkW19oHu64UY6 4RCoBSP74rv7oNF29pLdkT8g417PnDrQB/Nvl0uUBP5A4WXWmOKJPuBnueTD /f4PRATWpvZv9sG7MN1BIb6/oH2HqY6erR+6zW7jX9v+g82Ksm1X034gvzRT +4P+CCZwYu6ar0U/SFh4J+9wHcH0TY46BFn1w9nP5X/+XDuC4Vn1jnx53w/J TSM9pLpHsHIruqOVIf2glZb8eaDoCOYurMW3W9EPFn67bMrqpBjTV3I1E7oB 0KoangxJJMPsIhR6xxkGYN3oVIdMKRk28SHojiLLAJzVGa6d7iTDUmzPXJPg GgBqi/fn1/bJMMmHV5koJQbA7fctNbGH5Jj2L72uBL0BGHjq/ZlzhxzLelQv M1w+AI//Po8Mu0yJMcrRlN+vGQCZFAZ5R1lKzFry0eWaxgGojcOTyz2jxDDe 0XMpPQPQsbTD5+xIiQ0cbB6+WxgANrIOXo9GSuzgG1fJccZBkL3SZuqrSIXJ H7oK3Hk5CM96//5ceEiNnXA+LqFlPghGu1bHXdSpsal/cbLWbwfBfLB+bucl NWZPVqmR5DQIVULMSdYe1Fg2bvcjcXKFJFmdJ40l1BjLKZPt0vJBYp/yVFib hQabi9on6UGD8Ej8WXYyFw2Wf8ab/nvDIFijWZImIRrsPkfSeebuQTA+9IHA WzSYC9/Ec8vZQZCX6uSGVzTYophSFT8dHhrOjf3bLqXBikqmWjEGPCjy20/k 1NJgbtdf45+dxIPZGSY9rI0GO3MzYN2TAw812TLZ0yM0mKJsE+fMVTz8KllN 5zigwdiblC/9uo4H/2JeRo8jOGzl9qzkccBDVzr5YAU1DvO6R6IsfRcPaQ5x QykncVi5kqRXlAYebj86s/1KBId5D7QE5+ni4bGL+SMLcRym/PTZlxYjPLAJ zWzKSeGwNdV3pbuWeCBxuhZpchuHVYySNtLb4GFGYVyn7D4O89H41MvjiIdb 85f+jijiMC6d7CUlLzxcL3h6O+wFDlufkdp76Y8HMQPxWmFtHFap307mGoSH B7H41Gh9HPbUePFMThQeznz0N1gyw2HcS9b8TV/wsDuPO9ZpgcM2TCnEx5Pw cMees9v1HQ7zf831iDYHD9x8AvI6DsT3L33uoS7EA4qbMnR0JvpfpVKiLMOD DI0qp6krkX+GfT9ZNR762OoMhTyI8ZusKh+pxwPZTX7+ei+iPvza+L/NeDA6 cHgh6IvDlBb7nh124CHX2uensT8OY0+RG/7ViwePnj+Tth9w2JJBqdoenhi/ q9kZ9Y84rJhHYGx7FA+CpfKxjJ9wmNtsrMbmFB6qkqZUY4Jx2MPE45Pr83ig b7JQ+BWCw07puGuvLuHBmP+4Mf9nHDZ3bnd6aR0PV7+VZwqG4bDcCWO9xW08 FNE+OkEWjsMcY0fn5n/h4dnTj+GZRHxH/aHh7F88uLdyiPNH4DAmttrvU2TE un48YMWWiKeGRV9OUBPAVvlmWTQRZ0YkL43SE0BHziP6ExHbPjtlNsxIgOs8 oSFqRCx7MmAVz0KAc8g9cZdo//jgX/OBMwQINn7QZkDEYyGWG72cBEALXfSp RH4pSnOW3ecJcOdFq0UVkf8bhmdbHQIEiOGe3vsWisOke1rftYkQoDIvNlWH GC/uo9RusxgBojRe+m4Q9cE/yLFplCTA90ufEpSCcFgiHdevOiDA+y+yv7wD cZh5e6h9jSyBGO/nyKAAHEZ5196p4iGRz3/VY2w+OKyPavVv6RMCxHVzhsV5 4rC4Ji2X4ucE4ImUaNx2w2HisnLueboE0C24WcHmhMNIyUrJc4wIQKpS/mXF Dod11V70yjQjwNYIhdgnaxxmAMd9U6wJUIZKi1Ve4zCRv264bw5Ee0MJzVam OOywcsc/0YWoL5N630sjHBYqORoY60fcr1XD16WJwxrEkkND4giQreBxy+8e DgvaZj356SsBhgwuBN6Xx2HqBf7hgakEEMOKPsxiOGxbxDLKN58ADGQsp4LE iPkuKBX/vokAiptY4MIZYr4uZXM6tRPgk21QiuL/72sa51f7HgIc/lQ0DD5G zE8+qmSrEQLQLc69+Ey8725cfRmmawTwjd+n+TZLg9m/19YZ3CKAnsLqZaZR GsxybO0k/CLAy3adKaU+Gkw7jNaNkXwINGpC46CGBpPGyT0vOzUE5yweOIxF 0mDiRv303OeGwD5tJb3zIw0m1KBTH8AzBJYt0SxBnsR65Ox8SVt4CMwKqsJ8 LWiw3z9LyKnkhqCT9WBRRZYG23woX26hMARjJTvFBAkabClj4PXII6K/B+ql gsT6OGLwcyRLbQia7/joKjLTYKXDF/OULYYgmKJjJmCWGntXG6uRGD0E4e6a M7S21JgZu+AJuoQhECDVkZkh1ms9h/IWq+QhcB7zNg96QY0piRFE7+YNwTxl 7israWpMJO04bqNpCEYilY6YklJjK0HuxTc3h6AnWCbkoTsVZqD98tjwnWFo e4k5GJtSYg13MbWFB8Og6jl8gV2NEuMRZfm2pTQMXnEcUeV3KLE5ikbJoxrD UCGzTJnGS4npZ3AY3rIcBqrMzV79CQpMd5dQmRU5DAePGgS/3KPAtAPkTdyW hsG+iClGi4UcUy/lbhQIGIEd0Zpb/3kdwbDoRlf/pVFYO6ps5VKzB21aMVbL 66NAetRT91nYHijzvH15b2cUTHjJZO6Z7cHLLA5FWpIx+HMbRfiz7kEwcuDw Zx6Dv/sqkfZvdmF+9jLyw8Zg5JVusZngDvgJxh36ho2Be2+l1sWKTWD6+W7j R/QYdM4kiGt83oQvRffm7iaMgfmkpkTp600olP7VTpM5Bho5HLXfeTZh/LFy tG/tGDRxa5WKfvoJIlY4Sd+VMZh3DGLKs9yAwSprGx+ZcThOasJ6NGUFWo6G kQTcHocay5IfMSYrUK5V5Pvx/jisnqYVcbi0AvFHtqPDno7DOwaa9PMly2Ai Z1mTZDIOFU2eXVIdS0DSaUpTGzwOKRP2eQ4UP+DimHb0r5lxcN552BVWOA9n hFx4/nwfhyGPJaNrbvNwzPlLFsnqOMSPxgZfeDwP2+cmENXeOKhPvnpyuDIH SO/FHDPtBIxodd0wujgHyssqQldEJ+DM2t6yaOEMOB8oIBP3CYi4nJySQzoF MT88HUd8JoDiVoyGc9YklA/VXFcInIBbcoctj55Owl6xeCF/5ASsJQvbUKVP gMVbrrTF7AkwMfw4W6Y6Dnorv4INRyZAB385Nn54BNxGrz7GTxLtm1qsxxDP Pb7tNb38/AQY5mj5/YeNwFjqvDfvxgQcb1hudUkj9t8GvY5zFJOAgY5KvfsQ 3JlINdS9PAkzcFYw/ykeDDtnufvEJ8G1XpJk9AQePCvZp/+TmgSJEsQS3zsI dVGhLzhvT0Lssddjvx8Owo1nLo+n1CdhI2edZvbxAFzqeSap6TMJRWfc5oot +uBEHeVRtclJwMUpRJCIdUHUTT/tV3OTcNWm+G/0cCdwlNEXuPyYhLUTE9qs 7zvhUi7T85StSUj5hn+e3dEBPI8YFA/IpsBP/W3f+TftIH3zXPRt1ilYHvhZ SDXfAkd+a8v2np6Cvh5/BcrwFmgoTVxVOzsFB8fFJrrutsC9q+cxc64puOzm ers0rxmeCwjNhwpOQdVG2eUGvyZ4e+qG8Aw2BWfiXPPdtBtAnOA4ZHprCkiN VdOt2RvgILTadUduCrQl446wj9eDy3GZAep7U5A/Y4C5qtdDINVdO2GVKTi9 ovf4rV4dpO48rXd8OQVR/AlB/UE1YFoQYUZpNgUbxR9nn6vWwCXLEeYg8yn4 U1/W78BVA0UrGsZf304BpsTvdfEVgrpZffo2J6K/OzuKs+1VMN775hlL8BS4 iATFadaUA0f2+RuhoVMQe0eGvdCgHHT9RtgZwqeAYuehAANdOSzKyCzgYqaA HeceP/SiDDYLGKz+fpuCE0osDupUpUAdlhs8XzYFdv9OfroZUAT33uhb61ZO Ae0T66EDrAgCH7KqTVYT9RPIboveLYQTVC6cw/VT4MYCHC76hcBu+yi3o3MK Ppo8UgpXKICramudBdNTELocICkinQc24ol5InNTMON2clqIJA/KGZ9+zlqY gpG2r7prdbkA7VXqKctT0MSwcCVXIRcUpD4sR+1MwULf40bSpmzQYhekcaOZ Bs1gbZrXJhmQeDC58pd2GrCKqNtHKDJgDh/S43B0GtZZ/I5PxKeDycff4VYn poEh44b6y7E0eEfSfv7l2WmYEl77baibCn4zL2UfX54GBfKvJUwp32Dmg4AM 2dVpSBvxl2h78A1uXF+FYvFpOJWg4NG0kwQrHy1unJGahqL/yHrd7ybBw5s2 Vxblp0G6a9zx279ESF6UEIm+Ow31oVNPeHMT4V/IgdDD+9PwdhXn3qmTCLlL TvyFitOQUZ2p4tOSACciPDhc1In2PAW+3PoaD2a35NlFtaYhh6m+M0E9HhrW qM4s6ExDZS8/jo4lHqzl/FnuG01Dx6TXo7WzX2Bo89NR1jfTYFiX+iCMORZi Hnw5zPGehiPkwfw3tSJhe1/7QNdvGoRiJQTfbETAgySufeYPRH6HLH5q7hHw 9+DblkPwNCyPGD+5lB0O2qmZS7djp4G8sfC5LEsYlD4xXzz4Mg1sm87k1kWf geGf8EJW4jR84PQOvKTyGepUCqZPpE6DntDh6XORocBDVj40mT8NEhHUKq+u hIBjtgM+uGgaEreetcmOBcOg6s0BudJpcPsirGjvHQxeuTXdGVXTQOjelVyZ /gSLGs1NNi3TMDx+ntUoOQiySgcKj01MA62MBrlHfwBIpks6hU5Ng3dVM7J6 FgBN0fFyp2angfVa1MsH4/4w5WyG51qchkdHZvVD1/yAUY58X2yTeP7vzxzr Ou8LX8RNasq3p6GBnb3rRpkPCF7o8YG9aSh/dJpR44EPyNHGnLp7OA1RlLwK ifbeYNsrekOdcgYex++JhC56AkV9JNk09QxcGLVVPPD2hODCf+0GtDMQN2P+ a/6CJ2SEt6u/Pj4DmgoKnBKvPWBCQ8/Z7fQMxBedExCldyfO5cG1qZdmwNIn a5nRzwV6R/d9hS7PwINfwpcNwQU0OzWV8kVngMom7sHE8nuwyb04WyExAzF3 pt5ydDpDunUdebfMDIjOL73hz3AEceMLnU/kZiCC3TBV7IIj1KsGfh66PQPU vN8tjFMcYExK7fzM/RnwPWr9nDPTHo6Rbd7eeToD279KPMi6bCFm+9lxe9UZ KD+rE2n4whYuLFQN/X0xA2TfHU/nL9mATKvvS2qdGXg7XCcwf9QG3n3k9Gcz nYGfdOJK22ZWMMKm2PXf+xlIRarKrXZvoLinNITBbQb6siVCjVnfQLAnh+q0 xwwoMl08PltqCXfX12dd/GYg5J7Avzv/LKC0LvAX+jwD9iuzQ9v/vYZQm93q jxEzkFGUUHIh2hwsBDU9tKJnoNMBpx+29wr4woSO/YufgWqbVzLzZWYQ9rKD RzpzBtq+eiu06JrAG/arS/Q5M/Bjd/kSNvASHvZH54znzcDFCt9W9zsvgeKm qaRTyQxYl7KcunHdGN4dxz2urJsBuuCtU8clDUGp5LaD5PAM/Dd6w4QnRxcu meVguLEZMFPa0a6/rQs4ThbKkYkZKPlx+NtmRgdq/RaC7OZm4Jvnp/aDszog oumZXLo+AzcFnzOWPdcCuhOrpj6bxHz5d0tDMk0TFpuVLz/fmYFcevsxxT8a 8OUyT+XewQzsHfMo/pujDkcp6nvFKWdhQEIjzvmmGiyVXQynpJmF6XNU1ydS VaHJPFgdTzsLIisyI4osquA0pPPdimEWnn6+j13/8wxWMkj+FJ6ZBZ1rNx+9 XVaBFm3jOo9zs7DCz707+koFkph7vJW5ZoHz5LT8901lePH+C+M23yxo3ttq zSNXBvGrVEP1F2dhUJnX5dmnJ8D4wzw2RGgWrpznXTDjeAJrsXhdPZFZiDld 0z6fpwRtStIXREVn4cPZ7WvFckrwP6rwkK0= "]]}}, InsetBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"D\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"E\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"F\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], GraphicsBox[ {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Dashing[{0.135, 0., 0.135}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False], {0.45, 4}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->False, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox["\"\[CapitalOmega][\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"PDF Comparison\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Normal (D), Unleveraged Bimodal (E) and Leveraged Bimodal (F)\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, PlotRange->All, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.441076115991179*^9, 3.441076143736108*^9}, { 3.4410761859830914`*^9, 3.441076243216133*^9}, {3.44107630483327*^9, 3.441076330671995*^9}, 3.441076398113873*^9, 3.4410764384375677`*^9, { 3.4410765655865507`*^9, 3.441076586232478*^9}, 3.44107663965018*^9, 3.441077278734521*^9, 3.441077754688368*^9, 3.441078511044437*^9, 3.441124283566299*^9, 3.4411313292754393`*^9, 3.441382644697167*^9, 3.4419106992115097`*^9, 3.4419891861096277`*^9, 3.442010291645811*^9, 3.442010347607505*^9, 3.4429347458757057`*^9, 3.442936351415678*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gBimodalPDFAll", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.4404610224942913`*^9, 3.4404610267556667`*^9}, { 3.440551022455552*^9, 3.4405510255419197`*^9}, {3.44077124883039*^9, 3.440771283327057*^9}, {3.441077069867744*^9, 3.441077074662794*^9}, { 3.4410771050992413`*^9, 3.441077108937051*^9}, {3.441077139098723*^9, 3.441077229008277*^9}, 3.442010255599408*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gBimodalPDFAll.png\"\>"], \ "Output", CellChangeTimes->{3.441077280475986*^9, 3.441077756312458*^9, 3.4410785151116877`*^9, 3.4411242853766003`*^9, 3.441131330843236*^9, 3.441382646399967*^9, 3.441910700715665*^9, 3.441989187650538*^9, 3.442010291742684*^9, 3.442010349095648*^9, 3.442934747517667*^9, 3.442936352915614*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"gOmegaOfDEF", "=", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"x", ",", "nMN", ",", "nSN"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "0.01", ",", "0.4"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"x\[CapitalOmega]mx", "[", "x", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "0.01", ",", "0.4"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick", ",", "Dashed"}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"x\[CapitalOmega]mxl", "[", "x", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "0.01", ",", "0.4"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Green", "]"}], ",", "Thick", ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.015", ",", "0.0", ",", "0.015"}], "}"}], "]"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"\"\<\[Tau] = 0.03 \[Rule]\>\"", ",", RowBox[{"{", RowBox[{"0.014", ",", "1"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.03", ",", "0."}], "}"}], ",", RowBox[{"{", RowBox[{"0.03", ",", "2.70962"}], "}"}]}], "}"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"\"\<\[LeftArrow] \[Tau] = 0.054\>\"", ",", RowBox[{"{", RowBox[{"0.073", ",", "0.5"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.0536652", ",", "0."}], "}"}], ",", RowBox[{"{", RowBox[{"0.0536652", ",", "2.11641"}], "}"}]}], "}"}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"gLegend", ",", RowBox[{"{", RowBox[{"0.3", ",", "2"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\[Tau]\>\"", ",", "\"\<\[CapitalOmega][\[Tau]]\>\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[CapitalOmega]-Ratio Comparison\>\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}], ",", "\[IndentingNewLine]", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.43648929915808*^9, 3.4364893639011374`*^9}, { 3.436489727400113*^9, 3.436489819696274*^9}, {3.436490672671357*^9, 3.436490688982956*^9}, {3.436490794829678*^9, 3.436490851351818*^9}, { 3.436491266703106*^9, 3.436491295726667*^9}, {3.4364913528507643`*^9, 3.4364913600243464`*^9}, {3.436491412999234*^9, 3.4364914202346907`*^9}, { 3.436491540682261*^9, 3.436491547305365*^9}, {3.436491787236704*^9, 3.436491796877301*^9}, {3.43649183588621*^9, 3.436491853483527*^9}, { 3.436491966343858*^9, 3.43649196706742*^9}, {3.436494173850408*^9, 3.436494175559716*^9}, {3.4372490214958897`*^9, 3.437249053706295*^9}, { 3.437249098742626*^9, 3.437249101891395*^9}, {3.4404604132763443`*^9, 3.4404604193759117`*^9}, {3.4405510536805887`*^9, 3.4405511119167833`*^9}, {3.4405511552804003`*^9, 3.440551162054139*^9}, { 3.440764304579685*^9, 3.440764477175453*^9}, {3.4407645145239153`*^9, 3.440764530111457*^9}, {3.4407650208842697`*^9, 3.440765036680558*^9}, { 3.440765114017063*^9, 3.4407651415282307`*^9}, {3.440770666464899*^9, 3.4407706668763514`*^9}, {3.4407707557635317`*^9, 3.4407707636120234`*^9}, {3.4407709341107883`*^9, 3.440770939693635*^9}, 3.4407757760528393`*^9, {3.441074966973338*^9, 3.4410750182689323`*^9}, { 3.441075060466386*^9, 3.441075060918523*^9}, {3.441075108204926*^9, 3.441075123190906*^9}, {3.4410752494866333`*^9, 3.441075257910892*^9}, { 3.441076600944931*^9, 3.4410766021321077`*^9}, {3.4410784548107777`*^9, 3.441078475171928*^9}, {3.441078518335144*^9, 3.441078603181402*^9}, { 3.4410786384214993`*^9, 3.441078682454911*^9}, {3.441078879414135*^9, 3.441079141605679*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {RGBColor[0, 0, 1], Thickness[Large], LineBox[CompressedData[" 1:eJwVx3k4lAkAx/GW8aQcmVbHto9WnkSSkFVre/zelorkiGZUSrIkdJE5lGMa Z+XMiln0UEpTKQ+aXGkYOYfGGPQmaiQTKynkyLLtH9/n83zXeZ919VVatGiR 4/f+t0VscKj/QjRMYlQN5hyphFRs4ZdZHo2GYFePHbuoxEvxTobTdDRCXBRr L+2gEgNij9QKRgzeHVywX72JSsyJk5uunYvFwoqM4TBVKmHcOvWbzYl4RNVz tujUaRFJrQ1r8vcnIMQ/sv+utRZhqNg6aq59DUWf4/1kHE3C/tjQK2Ha3/Bs vtmwIWcp8XjznozUnXngyJZFKgUtJmgrP4KufxsyppF2UymFyK/Qmecc5UOz 5KDvxBolYly3/lO6YyH+PeQaQk4sIDQv7KJqUxGCp+qp3OFvECoiq53lxTAM HnxSeX4ai5fh54TOUtyiu4n7sieh/5eI+21cAJf2WoHThy+wmVWmeI2W4YhJ Vm940Rj4Kx7atvVV4EPYg5Ttlz9CkaSTcnamCtv0jIwde4ewfshuUmWsGvzA F4wochA5kuxiv3ghbsm2qEXNvMO+xXv3tqfV4AFNx3svR46LJp1nfk2shdYS hUnipz5cp4hWl2SJMPOt81G9eg/MWpKcN2XWIXiQDlZPN8qIp2pP+c9BOPk5 7ZfI0J+SW+AmqMd5ZZrSj+ZSJLQflwwUNcC71r/USk0CvZqYiGRhIwJf8IcU sy3YnhdXblHdhPEvESapWY344mEt6xM0Iz/3sqnVo+fIfO4ecrOuBad1v+p6 DdSi+hfnPC+hGCahZjFPeUJIDPlu29tbUZB4TNmtqwqx6mXvtXvbYISOlK2r ylH5Np8y0vUCc56mh3soAoyaXTgwGiyB6MZk4brVJaj+R+vjn58lSNlclhRc UoS3y7mTHqfboVrV2+RpWwh2ar7w7Xg7dinvHhg4wIeLqqXUO0iKyKt2M906 d3Cji30naOb7TwXcLKbegnGOUU04uwO2MeGPP6XnQr1d4KA+2YHsenGg22A2 vI9MZBqEyZBWbMeafpWJ6Te5xsSsDPTNDiykpoNSOc99z+1ETO16VxX2NXgr b7PXWNKF3LACjkFhMhZs+mjmsV1gb3RX3+d/FctfW+oPaHSjkEfTdD4RB99T 81ZpCd3Qm51NvGwYjaUBucI61ZfY7eWsI/e5BP1n46pRyS/Bkhu1+vLCwVEX ZFhrkPARZTeKAkMREZilfG4ZCX3TjdIzh0NxsZlzNo9K4uS58on19qFgxjvs oawkEfeHa0DxhlAEUuRfm9aSMNDd4rm/nw36nBqdZkpiX+sP93kebBiPHNc+ 5UZitKbq/gY6C0YOezg5NBKN4me/G+5mweCe8UibO4nmSt1VFpYs6J2cEpkd IeEXaZkRsJKFVQMJ56d8SNDG1LRcu5lQev1EymWSeDAde0XFg4kFqxzrUjaJ gmGfsbsOTMzxuPfeXyDRIP+JoO9gYsrdkWsXSYKXvjamTYeJkY5+M814Eh0M xbyFnIFh88YcXCEhJSrUDaQMKFILlwQlkKgRDsr0RAz0O7PlHSkkNPJaw7bd ZuDNw6OOKmkk+u5JXFyuM/Baw6bcMp1ERVl1Q3AcA69OGeqfzCDx+Fhdzw02 A90tGqk8Hom2CGqczJ+B/wCH5mM7 "]]}}, {{}, {}, {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwVV3c41w8XRWZRaWjKiFI2kcTnfJUilOxSSkIUSVbZP2RXVqUiRIlSskdm SmR899CQFaGQhEKv96/7x7nn3Pvc8zz3eY6Ug4e5Ew8XF5c5NxfX/+v7tu3H e/0jMMIb3FSycgWJ2rbrXGplBCLfP/M/v7CcxG7T8zkyEwHJpA8qkqPLSf1t JxKrfK7BSmJPelzzctJc282WpEuRqN/zy8cheDlJoX16z37naITtFjk4OiZC utHevDHHLB6H/PzahT8Lk+QG1X+orUnCSmXeYbG+pSTBmq+yqppJ0LwrFFVC XUr6lnTXTvlYEuyWrJAxb1xKyif+tcmnJcHS0F5B4uFSksLt1qcyMsmwL3+R auiwlKRy4Iyr2K4U7MwtOjDcL0TSyr7RP2txGzonTdu4fgmSDp3+1lWffA98 WuNkG00Bkvbkbsfg4nuIslEzEd4pQNoZFfl9L+0eTsmf//BJXIAk/GIrV/mq +xChcWZD+QRIHQt2sgWJ93FeulKzmc5PMn9A9bh7Mw1Ozcsq/Hz4Sbafqnkv xz1AcKCFt0UNH6lU0eBOol4Wiobv929x4iVZiX2HtewjTJycv79xNQ8pp0p8 IdQuD+L1nvSFvn+YlHw7dutwAbYVL3CRgudwNSswQLClEORdY4dDj86ifjCk 1rSnCAPub4eG7v2GwApsimeUQDcst3XHmV+QTXkd9neyDI1Oj2O26f7E/j9L eO1/VEBsk+yRSu9x5K19rt/xuQo6sSxhzcbvGLwhnuAx+wphhiJ0ev4wZL4Z TvGN1yJZrzj/ofAQ0slpReei6+FkdkG52HcAJgJGRpTkBgifkEr4KtuHACXG RY3rjRiPIObrdvTgNu/r9cX3X8P50tTFbSc/Q/X9DVP51CZQSr4Xx090oYJU s6wm7w1CrLlWGUSy0JuQmWtR9hb0ZuMyh4t0xFPOkPsLmyGUGPp2UxMF0g3X gm/Wv8NF/0fBzrs7oJUVVbmrtgVj678XHy9owc8TBP1zWSsMZXRDcjLeIPWN jffDpvfQbfyPc+1pA2olTLPs69sg9DgjK6H9FchyeRZalHa4XjCq1csqw2nH iTfnGO0g69cnj8WW4UfGHq07nHb8eOPA2+ZdBuF1rZt/97RD/l3uQIRhGQz4 RgaKf7Yjv031ye+xUtT2KFxRXtOBHD1LkQP7SvH0XmHaNpsOOKlYjNZMFCNS uGJgzacODNbQ9u8NeAlWnfq+uS8dCH1+aTXF9SXkvF486OvvwIYMkT7nYy/R wnlsUzTaAdNQg7AkjZcQzr3VYjrXgcRN3Xt2jBcu+uJVELupE/MxpkFiLoXI 9FXy4bLtxJKoLHepxueo/pLDO8rsRHGr/S370Xy826LZvP1DJ1rPD7z2assH /WRzzNnuTnw4HHb7xrN8/GB/W/5hsBOvw12CzS7mQ5KitKF1phOZY7uOsCby 0Gj/UcxShIxPFjmnhuafYJuZs7yaMhn17t/239iRix+q/pY/LpNRfprzs7Ut G4z4jzuHvMm4Fnxlv09pNl4NEty9vmSYp69LkXiQjbj0Jc8Z/mT0dllpeHtk Q07oukBNGBki1lQ/8VXZcPiSURWXRIZEjdu1kpMPwbzxRnJHERmb9lbu2Mqd hZpv26elS8iokNI2bx3JRI5+bPvmMjKciI745axMeP054r+yigzJPwHxjwoy sdKZTZtuICPDkxVHs82Eke5I5FsKGW3F4VotlzNQO7Ly+9kJMspydzYUCKXD tlCt3WKSDGfrQ/3V/WmY9rYs2D9FBg+fi0BrXRpUFu64b50lg/vx6NGffml4 uFLiRy8XBQ9EvuR8HLqPSA3FsTMrKTjETS1sJt+DacihidPKFLRYaZWpVqVi dP8FiqkqBb18QuWdd1MRLXj9JdQpWFbGKXe/morGRLKnxG4KdMQCKvO0UrEr x+bnZ4KC5ByL1NPVd7C+xWnS7ggFkz6+MblNt/FlVdjUCXcKPNytyr/8SEFX 2nNBXw8KRPMfxpuQU8DY9mFTgicFOV/HzlS8TEGr9q59TT4UdJ2OFU7wTkGx w9cbCsEUzFzXfT03l4zIIiO5+RsU3G5lx3evToaC+eoTDwopSOuXeCN9IhHb PuJiRREFvH9KFCtIiZBydvuPWkKB/Qqj24e3JULM/00ufyUFMtre565MJOBf lt+viw0UfNmiNLMuLgHUiQ/XQaXgb1+M1N9rN3ElMaf+yyQFEXezhWOT42HJ Gn7HnKKgpuvy5QOu8VAWV6W0TVMgvHkfmwvx+PqkpqfiLwW3HnzJ9huOg0U9 kydxCRVBPSvDOw3ioDQmeEBvNRWPcqO0rgrGot/EvSVLjQonvnMSeQVRqE8q ptzZRYVrQ82twpgo3GfPcq5rUhEStEa4wikK5o6Rw1e1qbg71TDzVjwKdQEZ y8z3UfGa7jkYnRiJe/mUwzzmVBiEXdQNDb2Go4KaVAdPKmqjHQo9g8MRszpK JNyLittjoqLhduFo3MI2zPahwt26wTNFJxwaGv51fVepEJGRVC//E4aNDrXP HMOo8J3YN6RzNQz91QejnJOpuMjTz3cz5D/4edjonC+lYs1ZxfxQ2xAU+j/x iy2nQvJbZ9KRrSEYvjZblF9JxSqPywGbR4NxMu3+jpEaKuQDyk0qgoJBaukW c3tLhfevJKe63CAs3eoy4c6i4rOS4EdhoUA8YF557DlLxcop+t4/vFdRkd7H dP9LhWaAmpFE1xVQHY8InJ+n4iR3wjH9F1cgMLnVxYGbhiQRY58bx6/g0orO HRZCNFRIXpI5V+qHfYayBbs20GB2zdpl3NsXA5WU4mktGppp9ed2SXiD6z+d /kltGsTzumc4f72w0TB3zbgObfFfLMSEsL1whBnoM0SiwXKHzrPWRC+U/dy+ m2NIg7H0lZp+QS9EywdXVR2j4eRq/pK0f55QSN/ZEHSFhhO3ciaVV13CXLvl Xw//Rf7YvbKcEQ+8XwjWcAikYWXJ6LVvRR44b0/LOxhKwwXdBBkvPQ882RqY tCKahpKuFfwUh4uQyW8/m3WHhuMTTd15ZW7YXH6J/00ZDTWygYIH7rtidPAe qbyChsbvIYWa7q6oXv/GP6+Khi+l4cfk4Apb/w1j12tpWHIw7smyPhek6jay rN/SYOR8z5C60wVrmlbnDTEW5/GI/JBud4YwpcxYeIqGoE23NNUPOEK7eaRC bpqGrKO5zsUbHXGuRnLbgVkaDL2DNd9OnEVjXixX8PyifnaBtlnWWfiFnSod 46Mjjkt4/zmus+hV55egidFRlsMjkNZ+BuW3rX7e1aJj84MHnuc0TqM/PvZ0 mTYdqQvX/CiTp7AqvK6NqkNHJX911Y3iU3Dz2JG7TI8OzXWyekLqpyBtOH8i 6BAdU7tnDy+o2iF+NueNvS0d1dlePo9NTsDh5K/U7YF0OO1Qdyxm2ODS8v1/ JYLp4BM5f0z1sQ1C6hPt1ofScX080+SFrw3SZJSlhSLoKC1frvF0nQ0Yo65P h+PoeNi7ZirO1hqGQd01BffpkLNrMAr5ZQnFB6296tV0yNcQz+SczKFzdMMB hRo69hx+V3OWMIcRj0uuTB0dkb0J2aIbzOHszOe29jUdEiLSHu4dZshUIk39 bl3kO+jzy+4xw6q6UoGqLjruUZ9dP77lKGa6MxVIf+h4InWGd6maCRxt/jQ4 zNHhN7LZZfiHMcgdFjbXFhb76xyM+p4ZI6+GP6yVhwH6eMS9T0rGsL3vxrJc xsA5ixZtqpoRqq21wlw3M7CqUeX2WUtDyHUkrovfwgB/1ijXgQ2GSDkw8uy5 JAOzt9zOR/cYwG3XA9akDANne75X5l42wOZVvIrBigzsvjJ+7GvKQQS3d7KS CAYkLPfGpf7Ux7D+DvdSEgOFTLOu8Hp9WL8K42HvY4DRUBXIuqkP5acaiuIG DAikxjcEK+njS/T9sFxTBsL1VYzbL+yHnv45xVf2DPTGShil/NMDb/VC2EAY A5XHv1jafyawLW2d9EIEAyEpGpKKtwgYBKk0iEUx4NIZOzJrTCAWDv8M4hgQ O6ARllypi5VNbwLykxn4jzFNnbqrg83t8d4eOQzc/sOvlhyoDeL5o9XRjxkY ZBz8VK6jjdM3a4synzBg/TIy+uPcHjw0Gx+nPGNgrQt/t2zQHsgxLdx3lTJQ dnCfZk+4FtS7NzrPvmHgrdCcQm6BJizr1flWvWPApNRCSNRXE75ZJjk7Wxko t3864E9oouJscO+JDgZel9s+ONKpAWKo51Qtc/GeV0XrWqZ3wWjiiU34IAMa PwPfHbJXh8OS3YdEhJg4TNIcGIlQgWOm6yfuZUxcsBbS7LVTwTndNM/fwkz4 uH2MZGuqwM2P+173SiZ0VPnMYinK8B15P/xyPRNilz/0/slRQgzNPt5ajolN jW41fK4KiL+ULGm8kwnJ/LDrIbIKuCHytgQKTBgmpdrN9sgjyUD+k5wKE6kO TfOjtvJIq55S/LubiX3Xs4LCLHaiMDu2M8OACZECi22bHeRQRKo5m3KIib1D /GnM7XIo/TQ2HW3MhMnWKtHE79tRtc5K8rIpE7F3Jef5rm5HU5yEp74NExNi S7TTk7aB7VWy6pszE++9lB1/9Mrg3/7PVmqRTFQaBQb2f5SC/eNN4mbRTMxq XXfzeiaFesHj/R6xTGhXP95REiSF0Hba5YIbTLyq42RrSEqBx6blptwdJm69 Q6qWkyR4z5e0bHnCxEeprAdza7bAsW0iQTd/cX91cQFGkzialJSPnXzGBKF/ 16PAWxzXJvO+3i1kwt85kXSKvhn8QRlL1lYycXHjv5HBW5sgmBCru6yViTgL xryq4Qa4/Gzm3dnGRP7qFHLmkg14Z8nXZtjBRCvNPHtF3XrEbAi1jaQy8c2C bPhdYz2WZvv4cX9gYubroS12cusgUmb/cnqEiUelXN1b1ddi1UdN2X4RFhri 40V9X4nC4s/1ns8rWMh2J7y+XxdFyvqBdI4oC5FHxumOp0WxzipZrHMtC+or LVMteESxuWNMoEqcBTHl5wvdh1die/2T4ZuKizhvzJahKRG4fP73OFaZBfJp pjr1sQjy56zPXlNlQb9666FXNiJQ2MP30V+DhaDLtV4JlcJQKzrT7qTLwune 66rx4cugk7OxcO/hRT0xD1dRPSEENXq6aZou4h/u2y1ZEETtl3dyqmYsxGe+ M5uqEoSeuF/WNisWXu+U1ubsEsTB27QkUTsWdB8vU1knL4Cj0fE+g24stBi/ n/Ei+ODktqCdHM9CbmvzBWkWN07+WsMdcYMF+Wpx07TH3DAPlG/2TmDByN9L /qkfN0jxxyysU1iwmtnS/24DNzY+K7qwIY2FB798rHhPcaFjxDkt4ykLxpTP o3t5F4gmryCHhAIWjor93SDyfJ6o/pss998LFgwfvZJdZzdPPFnWUOJQzEKG +aHqydo5Ilx+U7tsNQsyBQ5fn4X9JbQudM4/bWXhwnH+YQ/1WUJpcuB1WhsL H9ameY4NzxCyAXMx1ztY2E5Vnb34cIZYFbdDzIPKwowZOSBz8wwxmh+upNbF QvRQ/ZEPq6aJrOHdpyu+sZAvFXY/XHyKWHo+s75JkA2WQ/LBhdwJ4lR5Q2X3 Ujbki64KF1+aIIp5+4r+CLPhxG1PPbdngjiZIftIRZSNpgFe/6y2ceI5PT8m bQMbWw7ue+rEM06YodTceycb2+d3m08s+U48jmca31Rgw3pdaUVM7ijxhzOt n6/ERpGqmoS08Sjx0Ft79xc1NvJ15Bt6UkeIX3l1m0z2snHw5dSIicEwkbqm tX+rCRsxE5Zk9ZZBYvTMyCfiCBsmsS/8dgYOEnovhFnHj7IxIr1UQkp5kBg+ ZNpy05KNxvNb+qLTvxJ7Q+gFf0+yMckcaD4fMUB8/vbZl+bOhoRpkvAW7z5C bTfXpR8ebER0nZ4Q2tVHREVIuQpdZqPVSZE5NdlLqEg4noAvG/F/GfwXgnqJ MMtveBrMRn1n4+qu5B5Ctm5SMPwmG6KB1TeF6roJ23dK01cT2eh5Ti5pPdFN JFBcBy4lsxHSM8CJm/lM/Onrbjh1hw1ywC/1zv2fCbJgm792Bhv3Rp/UXOn6 SASa54xOPF/k86cPDml0EUUnuruGCtkQGO0qre7jEIOOG1u6i9iwoayPuJHI Icz9Eh61l7HBWeP6hmuaTWxPCzyVV7voly1lYVsbi6AOWJLtO9hICtp8xDGV QQiO3ay1IbNh8ECY+z9LBqE70/rsCHXRv7q54vSVDOLJUr0YHSYb3b5Cfq3x dCJYWXHf+s9s8HqR7ijfphE7rvKVdH5no7/7+b3FXEOcCiM9fDvGRt+bb1z+ MRQiJS4goWaCjTdPZc5dM6MQC+kTbk+nFv3wu6ee1kMm6I2fZKPm2fD56c97 TIxMhAqX3SFEOEjgqb78QbqdCL5wf8mlFRzIWF4dl3jVRgS0hnpkiXIw+Gj3 RUerNsI32tiAV4wD3UMlrt+j3hMXeHt+t2zhwCY5LMxWtJWwnltmbaXCQaGI 2dmAI82E5YmJhkg1Dij1YnWqf94SZlVMxYpdHKz3/rhx6NFbwuRKFt+mPRy0 vji/fHzJW0Lvl2bpFz0O+p+s3UKmNhEKo2fWuFlw0P1dMj/pTiOx09ggNN2K A6kznuRk80Zie77CaIcNB2H0ht8pIo2EtMv0a9WTHNhHnO0VTWgg1vXHe007 chZzes/BO7frCZ6P5dQwXw48MkLzQlJqiH/a6UTJFQ7uDO/LaN9aQ8zdDcsf 8OdA9vJdukvNK2La5nCYYQgHVh9Cfg9MVBOjtF7V5dEcfC0w0f5iW0UMq71L R+xi/7/31e9nK4nBxAIhz3gO+JzsM2bSK4le0ys9tAQO7qvEOJt/rSC6n9sd 5kvmIOC2uFFIbAXxUWR/peYtDk7MvVR8plRBdLnJybrc4UDU4aAoh1pOsN6L JN69y8FEc9cvPr9y4n8KiGKf "]]}}, {{}, {}, {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Dashing[{0.015, 0., 0.015}], LineBox[CompressedData[" 1:eJwVxX041AcAB3DNycsxeWvrbZOHUfTCItX4/sRCkspbouVljZCXrRqSbpfD 04S7y1uXhpR4pqQihLsdzst5ufN2P3nPywglr2Ha9sfn+Wz3Dj51/jMpKSnH //x/o1DXbSgiGqOaJeHhv1EJsXCfb1ppNNhTAs29v1IJidDi8vGlaFiUSQSj gVRiWOjOLLvMwF3HZQ2n01RiVZhYzwqJwakYs6Lde6iEQdPiAcuf4iBUzD1i 1adAJDQJNuecjMf2ymjdUEKB0Bv7dtpInYXDVf7p69TlCdtz491c9h3UnJ04 rClYT7zYZZ3KtMiCoC+3//AwhXDeOAUXnQdI/V4xPATSRE7ZtjXa2TzY6qK2 79E6Ylaz9l2yfQFIi0Kjk85SRHhW5FW5+kKMzxsFr6ivgTt2vdJhsAixiQht b1yBrDK2xHc8h/cZUUrT64/Quc2nr8wWw/y+rZ/GzCIsl6UpntMvkcn0qG20 X0CexmOr5r4yDO3zceKK5zCWsC0p+OMrVLYz4OY6C+1xm3mZ95XgrV9X3KX8 ARmtd4t847jwMAwN5NS+xzHZo0dFbB5s3ff6hhq/w9XdHUHGt/7C07m47/z1 p5BC4X/5jMOHdnfBsY2b38KwMcFBP60aauVTcsftxvGSqKBW5NWg5WGOTeel MQwlZeY6FtfC4/WBSyH8EcSLvFqHCwXotd0R7XpkGFo8RlQitw5Bajm0MO4Q TLNiS/dV1mPxmvHQTb9BfHA3b+8rbsBpBUFat94A0mpcL2VXN2K69clDB24v Kr92yPLkCiG0HC0uj3iNVr08R1NRE+YSQv4Wa5OIUXw5ot7bjJnfxzUmlzpR PpBDmexswYJ9UohAsQPThhFO0z+3Ii7sQEyqahsq326Y8plpheyAmcV+RxEG VOnz7hdF8Hh6lPGNbwvCmDncgVkRdJ/vjGxRE+KEnInYO1QMVsI/jFy9etzr DHsY+lEMk4jCakOjWhhk7ORdC2vDDpsbaw73+FAUFdspzreB31DpNm/Fg7fH XJpuZDui1II2POmqwFJ/pgGx3A5nQTuvo6MUlPI1+gi9A8n+PQYqoy/gLb3f Vkm+EwzpEs7NkCJ8suxzNorpRHb4ONNl+xOo9pjoDCt1IUD+bvjE/TycD1w7 yI7vQkbjG3v3XQ+g4J/JrZaTgC97vMHCJws6VbNyNxIlKInZcobC5+BM3e7F cKYEEwonAyfzOUgSXRgJYUugkhgT1c7iYPlNP++HVAloZY9aCnw4aJUTRhz8 QwL3W8YR3jIcRJ7KmZx5LEFEozWjyO4OxCNOrZ7NEhSJR/csvEkDTbE41VyJ xCZfnmaeRQqiAjjSIcoktnqmZhvpp+BqAy04S4XEDreL2q/UU3Alzs6aspGE qd0mvZaxZARQBhfqvyJRvyeWMZGYDJdVqovzXhL00ap7rKHbMJj0Ug90JNFg VsNuuc3GTjtrWoYzCQ/VmWwvGhu6+QaTza4klka3Fs0GsKHlt8g39CCxXHoo S9qKjS+G439Z/JGEc+z+ImKOhc96SsT0KyRqrenKIlcWPh3MMH8eRsIr51Ci uxULq+n0/JEIEhdMrcxPG7Kw6GpPt7lOwkH9Ee8clYXJtiHDz+NIaAmD64Kq mJgwqsvATRIZweuf5f/JxBizQD40ngTtVnSFzh0mhhzCBtuSSJjV08RbLjPR //isvQybhObYWk+KNxM9SpalJskkpGWujamcYKI7UE/HL5VEr9bKTLwZE12N Ssz0dBJcInxVVp+JfwHLqZse "]]}}, InsetBox["\<\"\[Tau] = 0.03 \[Rule]\"\>", {0.014, 1}], {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[{{0.03, 0.}, {0.03, 2.70962}}]}, InsetBox["\<\"\[LeftArrow] \[Tau] = 0.054\"\>", {0.073, 0.5}], {Hue[0.67, 0.6, 0.6], Dashing[{Small, Small}], LineBox[{{0.0536652, 0.}, {0.0536652, 2.11641}}]}, InsetBox[ FrameBox[ TagBox[GridBox[{ { StyleBox["\<\"D\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], GraphicsBox[ {RGBColor[0, 0, 1], Thickness[Large], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"E\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], GraphicsBox[ {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]}, { StyleBox["\<\"F\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], GraphicsBox[ {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large], Dashing[{0.135, 0., 0.135}], LineBox[{{0, 0}, {1, 0}}]}, AspectRatio->0.1, ImageSize->{70, Automatic}]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], StripOnInput->False], {0.3, 2}]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, Background->GrayLevel[1], Frame->True, FrameLabel->{ FormBox["\"\[Tau]\"", TraditionalForm], FormBox["\"\[CapitalOmega][\[Tau]]\"", TraditionalForm], FormBox[ TagBox[ GridBox[{{ StyleBox[ "\"\[CapitalOmega]-Ratio Comparison\"", FontSize -> 14, StripOnInput -> False]}, { StyleBox[ "\"Normal (D), Unleveraged Bimodal (E) and Leveraged Bimodal (F)\"", FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]}, ImageMargins->5, ImageSize->600, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.44107506214283*^9, {3.441075109061187*^9, 3.4410751329523478`*^9}, 3.441075258273673*^9, 3.4410766256337557`*^9, 3.441077271194831*^9, 3.441077747599173*^9, {3.441078521291497*^9, 3.441078542258624*^9}, { 3.441078577447165*^9, 3.441078604057521*^9}, {3.441078639821541*^9, 3.441078683948793*^9}, {3.4410789213152933`*^9, 3.4410790151127357`*^9}, 3.4410790616606092`*^9, {3.4410790985796137`*^9, 3.441079142003755*^9}, 3.441124285571789*^9, 3.44113133100454*^9, 3.441382646623363*^9, 3.4419107010314302`*^9, 3.441989187803541*^9, 3.442010291880237*^9, 3.44201034924121*^9, 3.442934747741845*^9, 3.442936353089369*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Export", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"vsIamgesPath", ",", "\"\\""}], "]"}], ",", "\[IndentingNewLine]", "gOmegaOfDEF", ",", "\[IndentingNewLine]", RowBox[{"ImageResolution", "\[Rule]", "300"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.436300216722095*^9, 3.4363002675030117`*^9}, { 3.4363004106527452`*^9, 3.436300412030944*^9}, {3.436301327110664*^9, 3.436301343407786*^9}, {3.4404610224942913`*^9, 3.4404610267556667`*^9}, { 3.440551022455552*^9, 3.4405510255419197`*^9}, {3.44077124883039*^9, 3.440771283327057*^9}, {3.441077069867744*^9, 3.441077074662794*^9}, { 3.4410771050992413`*^9, 3.441077108937051*^9}, {3.4410784830790653`*^9, 3.4410784894275303`*^9}, 3.442010260861609*^9}], Cell[BoxData["\<\"/Users/robertjfrey/Documents/Work/Stony Brook \ University/AMS/QF/Research/Omega Ratio/Images/gOmegaOfDEF.png\"\>"], "Output",\ CellChangeTimes->{3.441077272797139*^9, 3.441077749085194*^9, 3.44107917557765*^9, 3.441124287014317*^9, 3.441131332521111*^9, 3.4413826482276907`*^9, 3.441910702440785*^9, 3.441989189239037*^9, 3.442010292103051*^9, 3.442010350616766*^9, 3.442934749284853*^9, 3.4429363544777603`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"vnM", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"vnM", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "nL"}], "+", RowBox[{"0.03", RowBox[{"(", RowBox[{"1", "-", "nL"}], ")"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"vnM", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "nL"}], "+", RowBox[{"0.03", RowBox[{"(", RowBox[{"1", "-", "nL"}], ")"}]}]}]}], "}"}]}], "Input", CellChangeTimes->{{3.44107745156147*^9, 3.441077456060343*^9}, { 3.441077507811338*^9, 3.441077531445958*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.05`"}], ",", "0.25`"}], "}"}]], "Output", CellChangeTimes->{ 3.4410774567977962`*^9, {3.441077527410568*^9, 3.441077532092093*^9}, 3.441077756444633*^9, 3.4411242872011642`*^9, 3.441131332643734*^9, 3.4413826483620462`*^9, 3.44191070260152*^9, 3.4419891893880377`*^9, 3.442010292177877*^9, 3.44201035073916*^9, 3.4429347495892143`*^9, 3.4429363546538677`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.09000000000000001`"}], ",", "0.36`"}], "}"}]], "Output", CellChangeTimes->{ 3.4410774567977962`*^9, {3.441077527410568*^9, 3.441077532092093*^9}, 3.441077756444633*^9, 3.4411242872011642`*^9, 3.441131332643734*^9, 3.4413826483620462`*^9, 3.44191070260152*^9, 3.4419891893880377`*^9, 3.442010292177877*^9, 3.44201035073916*^9, 3.4429347495892143`*^9, 3.442936354655396*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["CAPM", "Subsection", CellChangeTimes->{{3.440866384719883*^9, 3.4408663860931797`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"nRiskFree", "=", "0.03"}], "\[IndentingNewLine]", RowBox[{"nMeanMarket", "=", "0.10"}], "\[IndentingNewLine]", RowBox[{"nSdevMarket", "=", "0.06"}], "\[IndentingNewLine]", RowBox[{"nSdevError", "=", "0.06"}]}], "Input", CellChangeTimes->{{3.44086649890201*^9, 3.440866579577532*^9}, { 3.440866961688191*^9, 3.440866969812799*^9}, {3.44098575737442*^9, 3.44098576331989*^9}}], Cell[BoxData["0.03`"], "Output", CellChangeTimes->{{3.4408665529567003`*^9, 3.4408665808321867`*^9}, 3.440866970216197*^9, 3.440868269758238*^9, 3.4408692836146107`*^9, 3.440869604463077*^9, 3.440973670647077*^9, 3.440973899916408*^9, 3.44097702666263*^9, 3.440978373657271*^9, 3.440978502770718*^9, 3.440985764066863*^9, 3.441058093909141*^9, 3.441124287263804*^9, 3.441131332707197*^9, 3.441382648425972*^9, 3.441910702668622*^9, 3.44198918944557*^9, 3.442010292244681*^9, 3.442010350816689*^9, 3.442934749727654*^9, 3.442936354718182*^9}], Cell[BoxData["0.1`"], "Output", CellChangeTimes->{{3.4408665529567003`*^9, 3.4408665808321867`*^9}, 3.440866970216197*^9, 3.440868269758238*^9, 3.4408692836146107`*^9, 3.440869604463077*^9, 3.440973670647077*^9, 3.440973899916408*^9, 3.44097702666263*^9, 3.440978373657271*^9, 3.440978502770718*^9, 3.440985764066863*^9, 3.441058093909141*^9, 3.441124287263804*^9, 3.441131332707197*^9, 3.441382648425972*^9, 3.441910702668622*^9, 3.44198918944557*^9, 3.442010292244681*^9, 3.442010350816689*^9, 3.442934749727654*^9, 3.442936354720186*^9}], Cell[BoxData["0.06`"], "Output", CellChangeTimes->{{3.4408665529567003`*^9, 3.4408665808321867`*^9}, 3.440866970216197*^9, 3.440868269758238*^9, 3.4408692836146107`*^9, 3.440869604463077*^9, 3.440973670647077*^9, 3.440973899916408*^9, 3.44097702666263*^9, 3.440978373657271*^9, 3.440978502770718*^9, 3.440985764066863*^9, 3.441058093909141*^9, 3.441124287263804*^9, 3.441131332707197*^9, 3.441382648425972*^9, 3.441910702668622*^9, 3.44198918944557*^9, 3.442010292244681*^9, 3.442010350816689*^9, 3.442934749727654*^9, 3.4429363547213173`*^9}], Cell[BoxData["0.06`"], "Output", CellChangeTimes->{{3.4408665529567003`*^9, 3.4408665808321867`*^9}, 3.440866970216197*^9, 3.440868269758238*^9, 3.4408692836146107`*^9, 3.440869604463077*^9, 3.440973670647077*^9, 3.440973899916408*^9, 3.44097702666263*^9, 3.440978373657271*^9, 3.440978502770718*^9, 3.440985764066863*^9, 3.441058093909141*^9, 3.441124287263804*^9, 3.441131332707197*^9, 3.441382648425972*^9, 3.441910702668622*^9, 3.44198918944557*^9, 3.442010292244681*^9, 3.442010350816689*^9, 3.442934749727654*^9, 3.4429363547223873`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"gCapmContour", "=", RowBox[{"ContourPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"x\[CapitalOmega]Normal", "[", RowBox[{"\[Tau]", ",", "nMeanMarket", ",", SqrtBox[ RowBox[{ SuperscriptBox["nSdevMarket", "2"], "+", RowBox[{ SuperscriptBox["nSdevError", "2"], "/", "n"}]}]]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"\[Tau]", ",", "0.0", ",", "0.1"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "50"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"ContourLabels", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", "White"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[Tau]\>\"", ",", "\"\\"", ",", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[CapitalOmega]-Ratio\>\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "10"}]}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"ImageMargins", "\[Rule]", "5"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.44098195786042*^9, 3.440982186566917*^9}, { 3.440982289506489*^9, 3.4409823426870193`*^9}, {3.4409824036611958`*^9, 3.440982416047823*^9}, {3.440982492271233*^9, 3.440982504819882*^9}, { 3.440982560758266*^9, 3.440982599268096*^9}, {3.440982687052877*^9, 3.4409829673882008`*^9}, {3.440983075424056*^9, 3.440983075811268*^9}, { 3.440983490361045*^9, 3.4409835098838453`*^9}, {3.440985770926053*^9, 3.440985795736022*^9}}], Cell[BoxData[ GraphicsBox[GraphicsComplexBox[CompressedData[" 1:eJx1fHlczd/zf7aQrSJaRNrTXtqXM92We0MkIktEqz3SRiqVpZR3pRQqocUS smUnFIkSEirKvtNiCcn39X6/u+f+zrw/v/7xeJpz5jVz5sycmbPcMQuWu/n2 FBMTOyIuJvb3v+xfCxlVa6dYa7eWsDiJ4uHzWmXmtaYjejbFW1WdU1Wd91A8 4p/2+RTv3P73336KR//T/xDFU/oGu/YNLkb8jlF8/+/miicQ/5MUz4wonxFR foriHf987wzFrL7SwOorxEkUs/oK6dkUs/pKA6uvNLD6SgOrrzSw+gr5HaOY 1VfI/yTFrL7SwOorDay+SkhfJaSvEtJXCemrhPRVQvoqIX2VkL5KSF8lpK8S 0lcJ6auE9FVC+iohfTWQvhpIXw2krwbSVwPpq4H01UD6aiB9NZC+GkhfDaSv BtJXA+mrgfTVQPrqIX31kL56SF89pK8e0lcP6auH9NVD+uohffWQvnpIXz2k rx7SVw/pq8fqG23E6ktxEsWMvpSeTTGjL4cZfTnM6MthRl8OM/pSfscoZvSl /E9SzOjLYUZfDrP2NUX2NUX2NUX2NUX2NUX2NUX2NUX2NUX2NUX2NUX2NUX2 NUX2NUX2NUX2NUX2tUD2tUD2tUD2tUD2tUD2tUD2tUD2tUD2tUD2tUD2tUD2 tUD2tUD2tUD2tUD2tUH2tUH2tUH2tUH2tUH2tUH2tUH2tUH2tUH2tUH2tUH2 tUH2tUH2tUH2tWH1BWD1pTiJYkZfSs+mmNGXw4y+HGb05TCjL4cZfSm/YxQz +lL+Jylm9OUwoy+HWfvykH15yL48ZF8esi8P2ZeH7MtD9uUh+/KQfXnIvjxk Xx6yLw/Zl4fsy2P1LbVn9aU4iWJGX0rPppjRl8OMvhxm9OUwoy+HGX0pv2MU M/pS/icpZvTlMKMvhxl9ox1RvHJE8coRxStHFK8cUbxyRPHKEcUrRxSvHFG8 ckTxyhHFK0cUrxxRvHJE8cqR1Rf4yH/5yH/5yH/5yH/5yH/5yH/5yH/5yH/5 yH/5yH/5yH/5yH/5yH/5yH/5rL5izsh/nZH/OiP/dUb+64z81xn5rzPyX2fk v87If52R/zoj/3VG/uuM/NcZ+a8z/Ew40pFw5HQ3Fkd08W59lnbPBxUWKwnY 8eIwww/j/3wP1WeYP5aX4zc+9e8BEMrX1V2Pev6LkxEdY1q/ev5v/lx7Vv8u Vr7/8HNG8op3z4f1FP/T3DmV4n/tmfu/x1dMrvv72yn+1755FDP8ufFi+HOY 6Y/HM3os6j8W9R+L+o/tnj+FFDP8Sg1Yfhxm+HGY6c9hpj+MY/tzmOnPYWa8 OMzw4zArjxmSxwzJY8by4zArnxmSzwrJZ4Xks0LyWSH5rJB8tkg+WySfLZLP Fslni/zPjuXHYYYfhxl+HGb4cZjh18xj+XGY4dfMY/k181h+zTyWX64Dy4/D DD8OM/w4zPDjMMPPy4nlx2GGH4cZfhxm+OH+XDxhx0uAxkuAxkvQLY/Lv7gC 4f/EA7y/hv0d79eIo/UFxxMcH8QRxvtzmC6N4ok4wnh/TA7Ji/db5FB8Q/GJ a8/SlZA8Suz3/xP/NRA/DcRPA/HTQPFKhcV4fwjHs//sN6B4ydHZ7+ux38fx ju63COOvEYq/Rij+GiH/N2Ax3T8opJiV3xTJa4rkNUXrjymS1xTJa4HktUDy WiD5LJB8Fkg+GySfDZLPBslng+SzQfEZUHwGFJ8BxWdA8RmQfKg+w/FVDMVD MRQPxVA8FEPxkNY/6ylm4789sr89iv/2yD4oP8fxlqOz9nJE9nJE9nJE48tH 48tH48tH48tH44v6c/GRHT9nNH7OaPxQ/s3587/8grv5q7F0Lj4z9GRhfO7O 90rHsHQOM3TKrxsX89n2xXyWTteDpeh73euBB/o+ld/3f68fWN4KARo/fD4h juoLvH7g/BHt3+N8Ee8P0/wumNqDkd8D5f90fLr1eYMwtY8vsq8n5fcv3f1f vAq1Txau1wv+xUXo+xUI0/G3ofwYXIRwMvo+pr9AGNuvCM2/6JFovuqw+nL1 BTu+qJ4RG9StbwzFLH8ZNL/Q90o10fzWYflx+F/7x3fPbwDXf/wxuXs87Nj+ Bg4slnRk+RXzWZyMxus/+RGqr/6jvzgrH6cvw5/Tt7FkaUPJ0p2Un8c/8SOD jtc447//9v7v8aP5jfB7Sqz+HP+Qf/5DuP80Bk7//bmGAhovWHuMZeUp1Qev v8kyu/7FuYbAqIvHk+bHMXS8WP4o/tH8NQbFo+7xtkYYxyN6vhv8/xkfnJ8O Yu3xHywN7Ph3EdZeMog/yifx/KX5Xgydz4x9itH+MY1n8SieJ1H7sHQdtD83 Fv5prpiG/FW4n4niIWdPdn/TgOXP0dn9TgOWP+0v3E8bh+xrgvbXxrH8KV0o nxmSzxzJZ4bkM0fft0Lft0bft0Lft0bft0XfJ+j7tuj7hO1P8y3h+m3H0ml9 2k13RfvNNP8JpvGJodP6r5te48TS6f5POIrvwvxtDLse5SqjfEmNxTR/8KXr IYOV8PrewvoL5z+sfwn9KZW2Z/yBozPzi8NsftVCmHjE0dv+hvN2/+/vcfoy /DHm9GXba7Lzm8Ni/+8f9h8uPrLxzxD5uz7ir8/Sufbs9/TZ72F/8jJG+ZsJ y4+jM9/jMBtfTZA+yN+aTZE+5mz/ZlOWf7Mp0sccyY/80csSyW+N5LdE8lsi +a2R/Mhfm22Q/ATJb4Pkt0HyE5Y/9mcar4X7tXYofwCUP9ix/LD/B/JYfq72 bP9AHotd0XkUx4+Zz672LH8DtB5jLInOe7j4w/CTRPUZjj8tjqz8NU4s/xaU X9F4lUTjGfM9TOfiC5vPoXyB1gvC/FGGjV/c+s7WmzKoXkDrO90PEvrvGDa+ 4fhB7xsJ6zNNFG81Ub43FrVH/o7zXbq/LZRPj6Vj/6b7KZ7/2z/FkH9j/6L7 HcL+yD/EkH/h+Q7IPwLR/FRC/iKG6NgfSpE/cJhpj/NPPN+iHdn2eL4Cyvc5 zOZnCNPzlu711QPVd83ovho3X5j2zUospuuvMJ/VQOurOlufhaH1NwydZ+J6 n54PhtP1m6k/rZH8Xqospvm6cH0fxMpTjM4bab3cna/3Rvn7LdSe1rO6/9Jj EPZD9XARop9F9BeI3oZwnYAdL1qvJVHM5v94P7qLsPsRLYStz7rQfdIudv+c 1n/C/Eca1WsybPyj8SoezY90ah8231djMd4v5uILW5/oIf56qL8e257e94qn mOWH8gO6nyvsb4H6W6D+aH2m+63C+Qyo/gHUH+1/FiN6KVof6X2BcOpPDP7P /p6w3s6mmKmXufqP3f+TQ+flcmw9zrVn4w/aD6T5aTiNB+z+pworD4cZebj+ bPuxqD2q9+l+Svf6SPPPdIqZ+cHlk+z5gRnbnsNsvWiO+Fsh/laIvzXib4v4 2yL+hG1P87d0ipn2XH7GtG9G95k4zLR3tWfb03otnWKmvaQj257mT+kUM+25 /IeVX4DkFyD5hfnQSroeMfmHh7AeXEjjPROPlVB8zEGY48/Obxk0f2XQftEY hDXR+dhYtH87lt2P4tqz+1M6rD643uLqMYY/h9n7VgaIvz6L6f6F8HwW1Vd4 vlN6NqUz9ShHZzDnH4x8XHv2vtA4Vh6uP4Pp/ojwfBvlb9i/mtH9WY7OyMPR 2f08czR+Zmj8zFh5uP7s+Jmj8UP1HfZnSs+mdHb8LNH4WaPxs0LjZ4XGzxKN nzUaP5S/4vjRjO6ncnR2/GzQ+BE0frZo/GzR+Nmg8SOsfLi+xPGqGN0n5eiM PBydwVx8Y+Tj2jPycZiRh+vP4GR0vwLn57j+xPEyEN0H5eiMfIEIu9qz8jaj +6IcZuQLRNgV1Qc4HtN6IZvSme8bICzpyMrDtWfk4TDzfQOEJdF5JK4/cP2L 14MWdN+SozPycXQGc+sHIy/XnpGXw4x8XH8G1yB58HpTjO5DcnR2/vHR/BOg +SdA80+A5h8fzT+834/PD+XY/Xpc3+PzFvpeSFivofsYXL7EfJ/mz8Lv6yE6 qse5fJjRn8NMe1yfi6F4LIbiK67XuXyZ5W+B+KP6XQzFKzEUf3A9Dyh+AIoH uL7H9bsY8mcx5J+4PZePM+05zK7X9kh/VM9Ho/kfjeYzbg9ofgKab5jO5f+s /Kj+5+plBuPzdVxv90bnv0ooP1uF8jm8f1+B2r9AuAj5Kz0PS6eYpYuj80Vx ZE90X4ubv0x+R/OnbIrZ/M+Alc8D5ZcVCBeh+2qcPGz9JM7mn5w+bHslNH+E 9yPW0vjG2Ksfn40fdD9tJbUvm9+osvEiEN2nMUD3A1vQ/RV6vtzNPwzt14Sh +ULvDzj+i7n8nNUfn49II3+QQeMjjfwDn0erdNs/murL8ldC/joG0TUQXRPt t5qy403PE4TzywLZwxL1t0H9bVA9CSy9GFB/HksP5KH60p6lc/Zk5XNk6S2o vgM0n4oR5up9dn8J7R9w849Zn/B9jxzsHy2EjU9dhK3XjED76JlpIeNn0/ZC f7iRa7D/nORXstLZLvaYyxo6P8S6/4If2BvnSQwBtYagJu91myld6O8T6zLF lQK+kVe1xkVTsv57/zJpG3l2zmgoBGrP2DVjdQidP8L9mc/6dc7gPgzOvJrc fLZ1B6VPDbzf9vS+6H3ua3Fv46lSwv06DbgjGdlfzjKLYmF8MHDM9R42W+Tv kk3Kj1OnaMCfOf2d5lok0PW67Pxj2RPPsyhe99lWr3PiZjpet+Kez/NTSaPY w7ij63mfRDp/xZYtXDoiPI3ifn2uhUYmJNL5O1f2SmRuSRrF55vvJ0/YL9Tf BgZM0H5q9imR4t6zo9e1v0ijOO/WjStS80PpfI6q5dl/thK9LzMNuZU7rL/o fdmvBzJh5l9C6fwWjm993QIzQ3+Ay7rzUweoi95n/RxYVnJsSRid7992dIRX 2IjeM72oH/FV7U4Yne9OFUYBGVNE73/WL7v2TVc9nM73OycO/Jy7QPRepnef 9BllgaL3JNXR5eK2t/KJpNSHFY9XjIZN57SW6YqvJaMids4926oOm79WbXDq mUW6FHpF6VarQc0I/sbiF/HkZdy5sE/eOtD5fuiymros8kByZnj6dl2Y9rH2 CW/sZlKxoiaq8Y8hRA20Ejv8bTO5oLRlTHmxCcg7rV7eND2NJPZ8+C7FygT6 KI4r7YpNJK2hEcfT3CxgXOwIcjk7jQhKizsiHpuDz7PZ0ctDQ8jX32dL+htY Q+LUKe6t7xOJzcn9a4PeW8OWq2ZNt++kkaH6rh2+IdagvvrNiGabUJKt3/jp 2nUCcyKun67m7AOP63fwCcDH214ql36kkUtvTX+V9gY4PrBTPrA+lMQYZ9fC ITtQ9a3K8ZFLJ0F5XW5Tb9nB6il93axnhhFJyX2L61bZQ9zByHUjjdNJ/JZf KatT7eFw2qNPw6+EkZPeWn8UrBzhUvD1zuWCdPLhtOXNtBmO8GHC3cWLZqWT A5ITvz1V4EOaho52xcJ0EuY6TfWvJgHUV857VsULIAt1XcIu/eBDm/p93wGm ujT/uDXa88CbzABqr7qENNWiD0FE+cFviPokBjpf9wS9WuJPjqw/cMa7sh9c lXj74bZfHAloje9t2t4PAjQDlYOPpJDDs+77Fx3vBW1tMvdCt6WSjh+fJ/x+ 0BuGW8fP8LLdTf5k7Lja+OUPKZbpv9js7HKSPDTP5liALEyddNDc4vB2IjNy U/iGh7Kg18exZEjfjUT8B//XqF/KsOnXk5/3tVLJWb8RN/ovUIE/nUMs9o1L JU3HvHvs3KoCM1KNbqRN2Um+bF+580P9GFhyUG7wuj7LyBPd4uUZAWNhZeym eG+FeCKvW/zEp1MTvqeP0N6rsZWsXnrlgeRBLQg8Gae+5PoKcnPeiyNx8wzA pNSuLqZ0K9kQH+4zf6AB+HvNm69fGERkv//4MrrAGIYeKr//nYu3c+8srFkz 2gT+DHN5ub55LtHaptLD/4MpNByoEhT+XkUCfd81avw2hYoNZi4xW71IafZl B90Yc6h3qW++MDuGKFkN1At6YQpuW95c+bw7hrQ3ZC+4nGAOEz1LRk57W0AE G1dHuXw0BY1wicai9gIy+OfClJubzGHX6wK1jpr55Nzm0ge3ky1BUlXX7lbC AlLROXOf9AsrMH7qu3r82xgyprlCasoGS4iMbq7tOSKW8JxTUi9+soKEP/6q S7sKyJaND4Ii11lCYd+R/J19CskRnTafPd+tIHl15ZeMDG8SPKfWqYeOLaja j7w7dpgPsT4yyWDzRAKpreumWU2NJQNHdLTuH20LCS9/7ty8Mpakm3+SfehB oPOG8imfwYVk0gQH72uStnAp8+1fOUMLyd1AR7BYRGDwXdlX5zt8SL/Ddn7J zQAHVpdNjJrsS06SOTMfzLEDn44Puvn5scQsPOdZ8SOAaT3m3mg7F0tGjNk/ LM/bDubOcMx8K8/x1/O87lUN8G3c5mGNowqJlrd28bnlduBS/dbSbagfGTp4 68de+3ng/mHv7e1T/Mh3WGA7WsYeumyDVu1/HUsWOm/J37abB+kW7jWDOmLJ 76p2j6CRXPx7OKLkj2ohcV64Z864rTwY/PLaMynNQuJ371fgVG17WGkbFFn2 049MVw5o+bzcASI/5Z5N0/QnT0ZPcDla7QD7L50KuqYYRyY1ZDweEsDlD/JH O5XHxhFD1/XJwXUOYP/uTZKLbiGR/eKfpTvDAfTaVhuW6heSUQfdNhW8doBz WkO63p/zJyNU71wrMXGCjpcffro88Sek/ttPu3gnSA1ryPk2Po649LhcGqrr BLWRg25GTIsjJ2JMUn1SnEA3KqWBN66QzBot1bVO3gm8Iq9EgGkh2fRpompC nhN8vvB1pGBFHHn0MgQGtfHhZLyp1OWwOHL9kevrQS4CEH+/ZbWuZSEJ8Va7 Ov0xH4Z43Rtwz6qQxM96ENM0X1SP+LWWuGSktZJThwZ9LYxdR/NzYf6woDHe OGFUbygJmfSZjJxB6eGvV8gv2xNLwn8X5yaaKND8yUTH5/6OQ62k7s7bzUtL hfmRNMRqj/Lbt2UvedZT69g1ewm6n2A5RnKv/P0hUKB2+0v54WTyed1iuXCp kWC06UGLg7/o/Ybw/LLqqcuXO9+UILDv2sNzZ6VQ+oMVMcoOXQtpPnF7iNqH POWo7vVuLHgNK9EMr7KkeOF803lBi0T1+xCI3Hf1mahe10ru1/7NeD5d/283 LZHqfU10vm75NNJd54eoXpe2XPMoaag3Xf897fv+KjCJpXjjg6s/FSRE7wdk JV48ub/Jh67/q5M3K+QmxlL8eKdF3ewRovcBOwcUbdlx3Jeu/0ofX7fpzBO9 D3joMcB9/N1YSn+yd/GlHsqi+/9dhzWPjNnnR/ODeM+372cMiKNY3sLHvnSs 6H7/abvE5vYgf5ov5J4dce31pAHd9aEDBPXfu/KDZRylK6przRpiJLq/X+oe rLZSKYDmE6HiazxMvOMobvilt4NnLrqfT9oSF19eH0fXr5GKW/tvsxHdv1eH ETsKFq6m9Y3ljCD1XxOE52kCWDFoQlcKL5xcUV6dN85TAHk+lS2/NbxIyQ0p YpYyBk4Xmy4dJBFGzA/kOGeSMRAaPb19YFg4sV5pLvcjQxmqe0tWXBgVTkoS OhxnRvGh8V7ywft64aRI7p5G9lM+JO/eMVI1uFufZAE8LEvbWWzlQ+UJPbjL u259AAm/uOhoaYMAivWqLqSHB5Ch9xMUs0+Izn8KBl6bN+j9QJCotDwS/UR0 X951iN2IO/1E9fqtv3pcXapcQPkbrnbtEaAgug+vuWPsgBPzA4hOZLBE0SIB fHm/xExNSpvWK7LSlemB/nr/Yq5eT5cyTk1R0CfJCQ8mKa4TwLKV+qvLE/XI ie+Rc3L8BFA+K/Tq83P6JLvf2gD9XQKomvtEQmWMAdHfHuKcfFoAAxfN2v7q qAEJt558sU+LADQ9By86u9KAXIryv3XhAadvHmlwklpJJn156++QLw8n7QcV XA1ZReQLJeZrmyjC0AyZx94Wy4jxSbfU7Oyx8FWp17gf8YHEEyYp/U7QhT5G eUN6m80kn6UiVtyT7CRyV80TdjctJuMPnfL76dZKDnVe8lIUeBF9+4BnvxZ1 kvMdBX9VjLQgZOobCI3qDVctSyffHLiGbBoy61GMxRey9PaFP2+dV5PYwtLW 85q94LzTwWdbHZeTY+8+btz2sZXwFFam5BbwyaXGiesfpkvC8DxJsQUmESSi f8eOVdHSsGfmGl09GTfiP+r2TLM6RRiklX+6fcRa8mmNdEtvCQ2ov1m5szZG QGaYmU2b7qALHsG+xokTbIlv6YlxP9rHQs/ndxrOjosmzZI16WW2uhBt4idj MSeKuJyYu69GTBtuxJa0DLROIhFjT7Rz5S2EprVsWRuZRGzCrlle7LCDx8en +hRw/u0TW8pPUbEDt6HnrW5c9iMD902aWtZqD9G/e5xXaJMg9nuW3biW5QCu sryopWvlSaBL0tr94Zz/RdhlBBwYQExlr/Im73WAqlVXZq+b50+qN/mZtrs5 wstGWamJ/nFkq9+qDarL+aC48fv36TFxJKFzYeGIWgHkK/0uDPpoQP1PuF7I Lo6MPWL0h9y0GrQq5q4w3xTdny/IWqWc2/aD3p+/HfFObv9VcXDLqJ/byU8k +lXm4QqfpcFypINHusJ60ls//KOv8WgIq3by2p+eReD5U1MN9a9kjtLLXRFP t5PzxEhzgXobeXflon/ys23k/ZMl22cYSYJtsGWzXkIg9ZeixuOywxd6oPrU k4QvWf7l2S8l2FMbrpX/ivMvQ+8xYTMVoXZCk9isR/mkKXPa2R+6SnDXZ5SS m0sB6XdvfbWYqzr0fMBrvqBeQDZ9Jss1XqlA8/JjT58qLqPrh3OMuN78V1lk Snl7V9wMPVAXbz1YLJtNVtx3SnAtMoDndkX73kzIJuGpztq6a0S/p9OaWX7z UqU9wLUrP75v+mn7z38aOEBIv4fVodL+NL4O3jdv36jgOBrfVs+W2jE7RpdM srjfPEpPAA0vTwkmyeuRHuMSFmY6i/bXz2npHL0uK3pffl+580SZfSdR0PmV PmnfKnIzJ6Tyg+Vgul8l/mmCSdXiIfDlxfB9H09sIuW6DiOPnhxM72ccHteq 2GQrCZ8rAhZqLtlOdl34mvludiu5uzXj4nqDddz4ZIolJw6n/BZdF9y76TKa 6iunrdxaO1YODrtY/e6pMoHun8wPOpei8jmS5L+af0EgNxZyJwVsOTo3iWSW T++ZONIOSk2vDhnrupHGv9sfTeRuGIrel+81WJr9MnEjuXaptum9gyrUHytb Psh4E1ns1Vs69b0a7Ko4GXJrVzy1l/Hhulc3H8STfEeJT9bKOnB13vm++c5b Kf3jbK3oVx5byc+0wsxhcdow1YbXa3LEVuK68+n8fvU6MDe/7KKG7koafz3X z3wqL72O4iVeLaomzitJvN3mXz0MDMG5bKb4k1srycuYtS02YkbQ4Pd6xbyP CbR9QV9ZiSGdCUSn9L6f4QRDcDfpa5n2biulb3r49ujk9q1E0W/Pno+bDcGu xK/H/I6tpHJmbVr+UUN4M9JwTZnmqu71cxy8eXNW4WWPGIrdg6UeVhutIvuH b+/a+m4cmK6T0qqct4q859cFSriaQOutAd68q5tp+85J8+9WlW0m9WaLLmvt HAdP3SN4EC+8b2MGAX1ebk/cF0Nx4uRJIbZrg4nDqNeZCqnmYC2l09ZrQzAJ XK1x/UGRObQO78UX80ik7a91io345J5INvT6UxHYYQZSkefDzRK791PACpxO rZOQUoml+PG22RnRgSFk2MEX2ZWS1iD3Ieinb3kipWu/U5hveTWRWEg7CMbP tYIPHYcWrHXr3j8ptYUXNxZHvouOpfjwpmF71A1CifqERq/H4QR2Dznz0EJO 9B7gT8NMcJJNIorR8oatN2xBtqB1uMbnUJpf3ak0tZa7GUuxbN7JAd9uhJJd x5aEnQuyg0Ok0G7Qsu79lmYeaAw4UDOubxzFWWURpp38MLJ2/+8zhjr2UOWw 8OzHujDq78PfP5300jyOYkPbXmkDjoYRjy0nu968dIDbOiMNBusLzyuc4MZY +fX7FsRRHHP90f73/cOJnZb/iMxcJ+j/pWZGvWc4zVdc/3yKN3ILJ/kKzfln rwrg2Ymvc+OnhpOcj+seGtwSQOSHewY2u7y6x2MMnNf0bBfAfPKnt+JZV0ll WB5zszpAz5tseM0rSf2iDHYudcs/LumOV6AGAzd1jVjHD6D5h6PdqHxdswAy p2ZjwvY6PtSvWXVloGsAjWfCfP726EMuKja/iGJlzPxKiCYlhwQXxM2/kTtF TRIdb2NJ4MV5IdPLvpPzYdcb57yKJMFyJ5Xil/aG4sUy8k7yCeTKH7W8xUM7 ieoXtTtDv28i28fnNz5I+UXfJxwW/7qPVPeGpl+FnXbNf5FXoX7HLneK0f3u pvc/V1dO/EMOTPRNCJmRQ1pSM7budekgpXcCNufu3kWUV+fXJtz9QSxyi96X Xd5Nig/ML9rc3gPm/fAM3puUQmZIHkpeeVwJPmT5vlnUtolk7BqnKRaoCae0 HJKnN6WSD1ZSDy/8pQFRNf7nr91wo/7dcnj12skfA8nsHeUO1xP1ICJldXZ9 hjvZ5mI591C9IfQbavtgn/M0wms/8mXqbENw8du6bGFsNFm1aWH701d6cGLF kXV3q6LJwGthCy5bGsCXOq3kHWEJJO9nL4nx7vog8zhM50JWAnn57jlPbJQB XMvuM3bfBC5eabb1Kmg0hGr3nWfqVdYR/qI3w2pnGoLTy1X+ucVbyZKmnrH9 PfQh4r4Kz3zdLBofji1Xc0nzCCJrd5y9ECZpDAdX5O4YMWwO2aEi0BbXMoGp G8+NaW+ZTcrsV5d/kDGBjwq/fq/YvY4sn9Z7Q7OZMazOCJmbemId4Sm9+rk5 1hjO79IapLhwM9lUuf2WXKsRZNhKBt3ZsZn82HM9q7LeGHqX5v7SGRRDhlTe 7PTQM4Gvo2VCz4jHkJdVF5oUJE2g5SsvcO2rVaSo55bL0qWmsGfG9z+Rp73I sjVHZPuXmkNbxKztc2fFkJ1ytx83N5jCBZNat3vSiUTt7LKWSIEpTH/yZZKR fSIxGu5zY2isGXxTnZcgzsW3TPudycdLzGHB4uL2n7+DiUaf7fVr51pCxf7+ AVe7gkmLhpvSjvmW8LVRm5dydQEpJI65bvOsYZSySpljcwwZnnl30gMrS9h9 Pb3eKDmR/N5vfD/qgAU4Tx+4JvdcIsk/Hqj2YrQV1A4Y0bdqTCxJt29zqZtq DWHLHz5vuB9CDlg9STlQZgNVhzXkXjSHEOd5Mc6FnTaw7I1HjxQ3H+K/22ei wXcCYiN2uC/jx5I/T3vXa+61gZurZ+/jtSSSppHmg+KG2oD34SedU4YnEQt+ qWLGSVsY/7YhoD4ylqRkb7ss947AUhltPcl1oUQw0Ob0iEyAHX2fWq5LDiVl 6ffP1lYAfE6QTwpM8iXmU0+/7FluB7G/Py4Yuz2WJPLfuVRtBJCOi0vzqogl LrPKkh5esAPT3R/lvg0IIxN/pD6omMwDmRrFZV0jw0iM5rfvVik8aFSa6h+X 6EdWDTt1f2+iPWz3mqW3rCGWGAWeaG0iPIA5sdO6esWRt6aNE3/G2QO//aBp RpbofUT4hZ+lh08mkeE9xnaoHLOHq3MWfruVnUTOzPqZJ/aeB7FhLim3IsPI uUF/eb/r5wBpSX0z+iaHkX17zVcpejjA6Hl7qvWl48i8e6/7Tv1hD/afN7dM N4kjURc2bHg63hGuv5ndx+e26P1ExsWzPu+eJ5F2zeMyWUscoY0/Z+aPmiSi cMC1dvRRB2juf1vpa4gKjb8jFXS67JvCyO7OBlu1q1w9nLXRumdLGNnQaKvc oOgEHhPc596t1CT6je5tyuP4kPk9YlLQYRVya7Duz0ULnWAxP3x0b6kAsrkj mc+T5YPrtK/3tSCOVG643nX3uCM0rvf82Dw3jqi4+u57NIQPOh9GbVf4KXp/ oaKS724wYAspGnV5xlsNPnwvHH2w8VcSCdvf4WgX4gSNlyRg46gtovi7f/fN dp0tRP3GVfem5wJ4ru2fPl1pC8kN3TU7x1L0PsO7t8kK2fvioP7SVj5a14cc Cjotp6gzTHSeen7Ow0VJEuDTJ2HouV5B3fm36L2GufOfqqa1I6BnorbYfLfu +P/3/Y7hBhESyf99rzF55OXp+fGycHqbc8G7DevJ/BtLT7UYKUHm4Hez/AI2 0PUpN2OATsh5M5LrvWuzspro9zPqopp7KF3RgnF3bHsO0VnS3V4TTLNL5m87 6kJUR80pnPFcD244FRi2ek0hbU9m32jl4qdY95+B4oFNObUaUFG+/56Braqo /8vDsH1WND1v0rFxNDm20YOMrPf/UG1lDN9O2DXdV+Dq1+KEZ1eiuHh36+fr h8Hr6PmTi/Su6KxLc8lI2+s/0mpNQf3Q7YvrjUXvOYT6Z6arTR0bZQp3p/0c FL1rPqn6plWoZmQJHq2P017N8ibR4eYyuRk2sL9fq8KIsz5km7Q0mbwOoJff gG/H6nzJOfNak1vmPLgiYWU4OTqJaBXbh4f35YG8+8GBc3YmkTaxzpHj7/Og 2mfi+JTTSeQv79j546rtofcWi0nXq5KIt6dDP95fDmAgUDmiqqpADF9f843c 4AiJa5/vkt/oT/j1GlmPDzpCdB/JwbttVYh7+aeNldOdwHS4rqvb6yRS4fPA /NZWR7jxVWmcW0cS2b4ldqz2eCeQdJdx6j9Yi+73eCT2PFc9eAuR0Bu9Zr0H H2we1Ew+MnILgbyhG+/0EcCOpAmdN/W20Prz/L6m4w8hnFS48r4VuwlAMuOR 9oB9YXQ+DDt8SPdycQh5VaVrXsnVcxZHtymsXB9O5IxerbybpwybqodKdZgs JOldElXD4tRBPPn7hnYSQHz3/Fw785EajOxwarhdqklClobYP5zAh7Qqg5L1 N8aSgilxKXp7+RCgk7FNTTKApEmYeZX58+F2htluP4UAsmfKlRspm/jgcnfB 2V8G4eTWt4Wtdp/4kNjV03NMrS9xiSMxUd6qcGrz8Nn1V31JaKran6RZqj