(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 161725, 3365] NotebookOptionsPosition[ 158359, 3279] NotebookOutlinePosition[ 158718, 3296] CellTagsIndexPosition[ 158675, 3293] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["\<\ Plot the position of the Sun on the Hertzsprung\[Dash]Russell diagram:\ \>", "Text", CellChangeTimes->{{3.7692058567489324`*^9, 3.7692058768769445`*^9}, { 3.7976770470990906`*^9, 3.7976770500643115`*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HertzsprungRussellDiagram", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HertzsprungRussellDiagram", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HertzsprungRussellDiagram"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HertzsprungRussellDiagram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HertzsprungRussellDiagram"], BoxID -> "HertzsprungRussellDiagram", Selectable->False], "[", "]"}]], "Input", CellChangeTimes->{{3.769205554601721*^9, 3.769205555463807*^9}, { 3.791738790147952*^9, 3.791738816176272*^9}, {3.7918064311041126`*^9, 3.7918064438411374`*^9}, {3.7918065290544853`*^9, 3.791806531624771*^9}}, CellLabel->"In[1]", CellID->46141572], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{-8.660773919893762, 0.}, {-8.660773919893762, 0.}}]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { TagBox[ {Opacity[0.], PointBox[{{-8.660773919893762, 0.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$4823, {1}}]& ], TagBox[ {Opacity[0.], PointBox[{{-8.660773919893762, 0.}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$4823, {1}}]& ]}}, {{{{}, GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.8284271247461903`}, {-8.636986915378817, 0.2047699580650883}], Offset[{2.8284271247461903`, 2.8284271247461903`}, {-8.636986915378817, 0.2047699580650883}], Offset[{4.242640687119286, 4.242640687119286}, {-8.636986915378817, 0.2047699580650883}], Offset[{4.242640687119286, 4.242640687119286}, {-8.636986915378817, 0.2047699580650883}], Offset[{5.656854249492381, 5.656854249492381}, {-8.636986915378817, 0.2047699580650883}], Offset[{7.65685424949238, 5.656854249492381}, {-8.636986915378817, 0.2047699580650883}], Offset[{9.65685424949238, 5.656854249492381}, {-8.636986915378817, 0.2047699580650883}], Offset[{9.65685424949238, 5.656854249492381}, {-8.636986915378817, 0.2047699580650883}]}]}, {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.8284271247461903`}, {-8.636986915378817, 0.2047699580650883}], Offset[{2.8284271247461903`, 2.8284271247461903`}, {-8.636986915378817, 0.2047699580650883}], Offset[{4.242640687119286, 4.242640687119286}, {-8.636986915378817, 0.2047699580650883}], Offset[{4.242640687119286, 4.242640687119286}, {-8.636986915378817, 0.2047699580650883}], Offset[{5.656854249492381, 5.656854249492381}, {-8.636986915378817, 0.2047699580650883}], Offset[{7.65685424949238, 5.656854249492381}, {-8.636986915378817, 0.2047699580650883}], Offset[{9.65685424949238, 5.656854249492381}, {-8.636986915378817, 0.2047699580650883}], Offset[{9.65685424949238, 5.656854249492381}, {-8.636986915378817, 0.2047699580650883}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{33.656854249492376`, 12.856854249492383`}, {-8.636986915378817, 0.2047699580650883}], Offset[{33.65685424949238, 0.8568542494923834}, {-8.636986915378817, 0.2047699580650883}], Offset[{9.656854249492381, 0.8568542494923781}, {-8.636986915378817, 0.2047699580650883}], Offset[{9.656854249492378, 12.856854249492379`}, {-8.636986915378817, 0.2047699580650883}]}]}, {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox["\<\"Sun\"\>", BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{21.65685424949238, 6.856854249492381}, \ {-8.636986915378817, 0.2047699580650883}], {0, 0}]}]}, {}}, {}}}, AspectRatio->0.75, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{-6.163314804034641, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ TemplateBox[{"\"luminosity \"", StyleBox[ TemplateBox[{"\"(\"", SubscriptBox["\"L\"", "\"\[CircleDot]\""], "\")\""}, "RowDefault"], GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], TraditionalForm], FormBox["\"absolute visual magnitude\"", TraditionalForm]}, { FormBox[ TemplateBox[{"\"temperature \"", StyleBox["\"(K)\"", GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], TraditionalForm], FormBox["\"\"", TraditionalForm]}}, FrameTicks->{{{{-13.815510557964274`, FormBox[ TemplateBox[{"10", RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-11.512925464970229`, FormBox[ TemplateBox[{"10", RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-9.210340371976182, FormBox[ TemplateBox[{"10", RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-6.907755278982137, FormBox[ TemplateBox[{"10", RowBox[{"-", "3"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-4.605170185988091, FormBox[ TemplateBox[{"10", RowBox[{"-", "2"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-2.3025850929940455`, FormBox[ TemplateBox[{"10", RowBox[{"-", "1"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, { NCache[ Log[10], 2.302585092994046], FormBox[ TemplateBox[{"10", "1"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, { NCache[ Log[100], 4.605170185988092], FormBox[ TemplateBox[{"10", "2"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, { NCache[ Log[1000], 6.907755278982137], FormBox[ TemplateBox[{"10", "3"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, { NCache[ Log[10000], 9.210340371976184], FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, { NCache[ Log[100000], 11.512925464970229`], FormBox[ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, { NCache[ Log[1000000], 13.815510557964274`], FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}}, {{-11.5129, FormBox["\"25\"", TraditionalForm]}, {-8.22023, FormBox["\"20\"", TraditionalForm]}, {-6.11426, FormBox["\"15\"", TraditionalForm]}, {-3.40368, FormBox["\"10\"", TraditionalForm]}, {-0.132484, FormBox["\"5\"", TraditionalForm]}, {5.06595, FormBox["\"0\"", TraditionalForm]}, {12.2264, FormBox["\"-5\"", TraditionalForm]}}}, {{{ NCache[-Log[500], -6.214608098422191], FormBox["500", TraditionalForm]}, { NCache[-Log[800], -6.684611727667927], FormBox["800", TraditionalForm]}, { NCache[-Log[1500], -7.313220387090301], FormBox["1500", TraditionalForm]}, { NCache[-Log[3000], -8.006367567650246], FormBox["3000", TraditionalForm]}, { NCache[-Log[6000], -8.699514748210191], FormBox["6000", TraditionalForm]}, { NCache[-Log[12000], -9.392661928770137], FormBox["12000", TraditionalForm]}, { NCache[-Log[25000], -10.126631103850338`], FormBox["25000", TraditionalForm]}, { NCache[-Log[50000], -10.819778284410283`], FormBox["50000", TraditionalForm]}}, {{ NCache[-Log[1260], -7.138866999945524], FormBox["\"T\"", TraditionalForm], 0}, { NCache[-Log[2250], -7.718685495198466], FormBox["\"L\"", TraditionalForm], 0}, { NCache[-Log[3870], -8.261009786023827], FormBox["\"M\"", TraditionalForm], 0}, { NCache[-Log[5280], -8.571681376700306], FormBox["\"K\"", TraditionalForm], 0}, { NCache[-Log[5920], -8.68609172787805], FormBox["\"G\"", TraditionalForm], 0}, { NCache[-Log[7220], -8.884610231886873], FormBox["\"F\"", TraditionalForm], 0}, { NCache[-Log[9700], -9.179881164491475], FormBox["\"A\"", TraditionalForm], 0}, { NCache[-Log[31500], -10.357742824813725`], FormBox["\"B\"", TraditionalForm], 0}, { NCache[-Log[47500], -10.768484990022733`], FormBox["\"O\"", TraditionalForm], 0}}}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->NCache[{{-Log[70000], -Log[475]}, {-16.11809565095832, Log[ 10000000]}}, {{-11.156250521031495`, -6.163314804034641}, \ {-16.11809565095832, 16.11809565095832}}], PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Prolog->{ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJztncmOZclthsvDwivDr+C38NZLb2X4ASS4LXvTBloGDD9qDxp6ngcNPQ/l jgLYolhkBCNOnCHO/RafoM7Mupl578kvmT/JOP/4i//+2X/89ZMnT371dz/+ z89+/r///NJLP/+/f/2HH//j31781X/98sUX/v1fXvyfF375wkv/9Iu/+fGN f/9XT57854/87Y///+nTpwAAAAAAAAAAAAAAAAAAu/HDDz9s4uyvHwDgTtR8 +/3331fB2wAAc8m6+Lvvvmsy6u6znwMAgCtRc7L17rffftvFDG+f/fwAAJxB 5Gbr42+++eYnvv766yb64wu93sbXAPDItLxsffzVV18948svv2wiHyt47q45 mxobAB6VyM26XhYni3O/+OKLJ59//vlP/OlPf3oO/f7y8YLn7pazt9TYOBsA ViVys/WyOLm4949//OMz/vCHP/zE73//+2fotwny8dbdnrets6NshFwEAO6M rZ09N1svi4s/++yzJ59++ulT4ZNPPvkJ/fZC+diCdbjn7cjXvc4mF4E94NqB o8i6WbwsTi4O/vjjj59+9NFHz/jwww+fQ95XKB9bsP5uOdvW2bNzEZwN9mdh Nmd/X7Aunp+1m6VmLv4UL4uPP/jgg6fvv//+M957773nkPcVyscWrLu1t1vO jrKR2bkIefY96XFqa+9qdC/r7OcA1sFei7p2Lr6TulncXDwqXi7+fffdd5++ 8847z3j77befQ95XKB9bsO7W3tbO1nW2l43smYvg7LWZ4eDM3lXPThbXCvQS ZRu6di4u1G4uThUvFwe/9dZbT998882feOONN/7iv4XycQXrbu3tUWdvqbG3 Ohtvn3/9jjg48mq0W2Vn+D2iGVE8DSNE2YaunYsDJdMQN2svFx+//vrrT3/3 u9+5lPcJ5WMFz9stZ+tsJJOLtGZGRpw9q9bmZ3P8es16uMfB1rXenpWd4++Z 67fXCtcBtLB+ttmG9AOLByXTKP4sPtVe/u1vf/uM3/zmN88h7xNq3tbO9ups nY3MzEW2ZiMza21+Xp+/Pkdc3Otf61q7Y6XnQGvo60dfN/o6wdGQoeZnnW0U 9xUXSu1cHKrdXDz861//uknk7sjZtWykt8ae4ey9au2stx/h5zjj45qLsw6O 3Kt3qry9K7lWLHYvS187cr3I9aGvhUd6baGPHj9LtiG1s3Xza6+99oxXX331 L5C3a2rejpydzUW8/uMezu6ptVu5ds3bPe5e7Wc8m1f0uLjXwZ57vZ0rQa4V SzRvJNeMXCc4GrLU8ueofrZ+FjdbL7/yyivPsG+vudtzdi0b2ZqL9Dp7dq2d qbdnuvtol2e/jlZeYX3s1cTWw56Ddb3r+Vde82jnSmb+Pey1o3/Py3Via2nP 0Wc7Aa5Dqz9o82ebb3h+Fi9naDl7Zo3t5SK9zs7s04zU2hlvR+5u+XuGx2eR naWI6uOWi6M62Kt9Pf/Ka673qvS+lVwnHvba0a6Wa0SuCXntozz6bC/ANfD8 rOfrZPa5XGvl2pP+oPZz8WXk55dffvk5ep2dqbH3cLaXjdTmRrZ6e6u7a/7O OnxvWrMUUV7h+dhzcVQHZ/yrXav3qvS+lVwnHvb3vVwzcp2Ur8s6Wmcd+Bk8 vAzam3+2PcJaxlHzc6+ze2rsLblIJhsZqbV7vN3KSTx3e/6uObzl8T1ozbNF eUXkY10XaxdHHrYO9vyrXav3qvS+lVwnHvb3vVwz5fOWr8U6unx/tmeIo8HS yjhsDV2uOT1jV7yne4SZGvpIZ0ezflucnclHZni794zWyN+Rw3ucnqX2+K1Z Ci+v8Hys62Lt4sjD1sGef7Vr7W6VntsXWjP9cq1kHI2fIcJmgzrj0H1CyaF1 zlFz9EgdPdPZvblIxtkj+cgMb/e62/o78njL6aNEn8Obp/Cy41p9bOvijIdb Dva8G+1c2Xl+79qRa0auj/I1aUeX7618rzrnwM8Q0cqhy7Wkz+CQXRU7C32E o2fV2KPO3lprj3jbc3fk75rDI5e3vJ4leszsPNuIj2se7vWvda63b+XN+ttr R64XcbSuo8v3JDV0LYc+2wlwHWwN7e0S6nOSavsqRzv6TGeP1No93q6526u7 rb+9eyW0ditmYT+HN1Ps9fFsXtHyceRiz8Et/0Z7Vd4Mf22uvzyWdXT52sv3 Ur43mekg44AsUQ0dZdFXdvSezt5aa2e8XXO3V3drf0cO91zu+XwW9vN4M8VR dpz1ceTiXgdHvq3N7teuG+3o8vVJHl2+p/K96owDP0MGO6dqc47ozKQRR5/l 6S3O7qm1vXm/EW9n3R352zrcetzz+Szs56jNE9vseNTHkYdH/Nszx2+vm/LY cg1IDa1zaMk4JIPW+yr4GSJajtb3UrmDo3ucvVetnTnjr+XuyN+ex63LPadv xT52a544yo6zPq65eJaDs9eNXBPla5HXWWccnp/pEUIWL4v2HC0zHZGjM/PR V3T0DGf3enuru7W/rcOtx63LI6dvwT52a564lR1nfbzFwbOuFe1nyThafqZ+ hh4iR9v7Xo04euaM9FWdna21e71t3V3zd+s+CdF+xQy8x2/Ns3l9vF4fH+Hg 1jVh6+dWvkH+DCNkHB1lHd58tPy8zd5juRKj3s66e8Tf1uE1n8/G+5zRPEUm O876+MzX3sufo/5gbX7j7J9/uD49jrZzHY/q6Nne7nG35+/I4y2nbyX6XLV5 ilZ2fCUf19xs5zdkBlrP18kOoXdWEn6GLNk82puP9u634jn67Pm7s3+uZ7u7 5fCMz2fQM0/ckx2f/bpFr2FtdsPup9jeYPmZItuAEVqOju71bR1tz71buW+4 gruzHj+K0VmKs1+LHjd7cxu2dmY3BWYz6mh9z+/V5++uQtbdIx7fk+zXevbz u8XNtb2U7G43foYR9nD03WY7rsKIw4/m7Odo63Or/zaJ3KzPRvJqZ+bqYCY1 R+tdcDt/5zn60fuGV+QRfTvy3ERujs7ciM6to3aG2WQcXZuRzs52PGrfEK5H r5slc5Z5Op1rkDvD3tR2wTN7LCOzHXgajsbL8fV8jPQCIzfrzDnKNfAz7EGP o1vzd/QN4Wq0amZxsz6P37pZzzrLPRLINeAoPEe39ljoG8KVibxs3Sw7mLoX aN2czZzxM+yFdfTW2Q76hnAG0TyiVzNLntHjZp1r4Gc4kh5He5m0OLq3b4in YSstL3s1s84zWm6O7tWNn+FIWo4eme2gbwh7UNvf8bzs1cze/bm1m3XmbP0c ORpPw960HN0z2xH1De+WdzBrfG0vS86s78kt9zWI3Cy1s/Uzjoazyc52PHom 3fLw3fair/I8e32/yMuSZeiaWecZMt8s99+1btZ+9hyNp+EMMrMd2b7h3TLp yMUzz7Q4+3s8m9pzbOcxIi/rLMPWzJI1azfb2lk7WjxdczW5NBzJ1r7hHTPp 1t/YtfNBVz0j+WrPb6+XJWfWNXPkZqE4WhBX25o6k0uf/TMM92Z233D1TDr7 d3b2bGV8XfdylGH0ellq5sjNGu1pi3Z25GkcDUeScXS0bziSSV/V07WdNM8d rfuTeM4evUff2c/NTCf3ZMu679fjZXFzC/lY/fGtHiLz0XAGM/uGK2bSkZu9 v7Vr9whs3eP6zr5uZfc9GYb1suTLkZdrbtYelo8t/86iH0d7uuXos3924TGo 9Q3vnklrn1iPWH/o+21798e298Ou+Tqbh2TmRa7u5EyGoefkZB4j8rKtmT20 j8u/K5THKI9lsc7XMx/R/QjxMxzJzEx6lbM7rFui8xy82s5Dvndxdo+vo/p6 1NkzHJ553JaTezOMjJcjN9ecXB6vPG6hfA5B3mZn8zhDCa7Go2XSUbbhnYNm PSIuEeRt5f2Flq978pCss0fdncX7XN5sS7ZWbmXLNsfwvGxzC8/J8vro10aw vxdkt8XeM5YaGq5C1tGtTPrqeYfn5+gsNL0HIS7x0DVaj69tfZ1xds+9t2dg P49XJ1snWy/vUStnvOw9//L/da4i9/Tm3ldwZWZn0lecwWtlG96ZO3oXQtd5 4gedcc7wdcbZnrdr/u7FPqb+vNbJPRmGfR5bTs5mGJ6T5fm1fd3ozDuvhpaM Az/DFZiVSUfnSZ9dS/f4ubYPYbE1XZSBer7WPqk5O/J25O+My1uz3vrx5fNG dfJIrjza74tqZetk+5zJ86gdrWvo6N7eehb67J9ReGx6MunVZvBa+YbnZ332 jt6HiGa7rFd6fO3V2NrZkbeth2oej7D/Tj+29nHUO83myt4ssjcbl/WyrZV1 PaB/b9m637uHrL7XStQjPPvnE6CQcbQ9u2OFGTyvhtb5c83PdlfN7qXJ27Vz Wr7W2WnN2Z63rbu9v+cjn9fmu/Xj2fnCqG86OrNsf7d5+bL1spdh2L/TvL8b bK9B3w8LP8NqzMykoxm8oz0dZRwyv9G6H4fdPYvQzq752s7penNh3qyI9rb1 t+fxDPrfymPq+thmFxknZ3b7vN9ho16u5fB2Vqc8TsbP5M9wVUYy6SvP4I1k 0HoGK3NGmvzekufF+lqcXasbrbOjeV7rbm+mLIv+93am0PNxy8n2TAz7u8pm GTO97M2i2N/FUf1MfxBWYmYmfXbeUdtR6amhozOGLS1ntzIRW2fbnThv1s/z eAb9b+Ux9c5drcfnOVl/f9736M3JbfGyNxMezbrr/LnWH2S+Dlah5zzp3hk8 yTts/bOHp3vmoGv3tovO1/HwnJ2psb3eo+du7W+Nt98c7TxrdF8vypEz58XV 3LzVy16tHO3Z2F5DeVyZ35D5OnldZf6Z/RRYjS0zeFfJOzJ73rU52dY97vS5 75ZRZ3uui84E8jzeItrZi+pi74zl6Gv2auZofnnEy60dyOhvJJtt2P0U/Awr stcM3pF5R/YsjkwdnbnPnWXE2drb1oM2S/BcXqN2frL1r/56vK/Ny9l1lqFn VvbycqZ2ttkGuylwF7KO1jN4V8s7Zjq6da9ofea7zoYyzo687fnbOrwXz7v2 80WfW7s5yjKsl+1eyYiXe/sLti8o2Qa1M9yN7AxebefwzLyj5ehszzDjaO3n iJqzPW9bd9c83iJ6nNpjR272sgz9WuuZyxlezvYWevYG8TPcgdnn4B2dd2Qd nZm9qzlae1g/Z97z1/K25+6Wx7Nk6njtZ51j6flKnWXY3t9sL9deRzs7aXcG qZ3h7ozkHa2dwyPzDu9n285kZeejW/fjqPm519uRu2fgedq62auZoyzD/u5t zcllvZzNNaQnqGc2otwZP8MdmbFzeFbeYX/GvZ/z2mxH1DfMOrr2XI66exTr aFs76zzD7iR5WYb3+3aGl71cozbTbs8U1X/zUDvDI9A7g3elvKPl6NHZjoyj R5/jWUR+1rWzl2d485NRlmHPx6jNL/e+Zq2dUC/XkHnn6Lw6/Ax3ZHQGrzfv 2MPTGUfruszmHd6uYXTfpCPuET3iaFs7e31er2bOZhmzcqpWP1DnUZmznqmd 4ZG4U94xs29o5zr2dvToa5TZC/X292tnf896raLfod4ZSJI563mNVq6Bn+ER uFPeofuGNpPe2jc8wwuem7N7RtEZhd5rMyNjHnFzJnMm14BH5+55R2/fMDPb cfRrUpuJbJ1L2MoyZnm5182yI2gzZ3INgOdZNe84q2945OvQex8zWzPvmWW0 3Fw7f1DvCGbcjJ/hkZmZd7TOK519P9pZfUO9bzh7tqP3+R9180jNvNdzr3sB npttP9BmztTOAH/mTnlHdH+O3r7hEY7OuFn/7TJynwXvd+Lebvbm6PSshpc5 42aAOlvzjrPOK+3ZZbnKbEfWza3+7NH3Zd/DzWTOADlWzTu29A2Pnu3Y6mbv HpJ718y9btYzztEcHZkzQD/ZvGPLeaV71Hl79A1nz3ZscfOZ92Cf6Wb6gQDb yeYdV7s/S0/f8Mid8J5e4FXcnMmObL6PmwGO4S55R3bfsHWWtHeOdMYvM90c /X7bq2ZuzTd7eXPWzWTOANuYnXcc1dfaa7ZjyzmlmRm6rJv3mFnsdbPMLuJm gHNZMe+YPdsRZdItT2f+9riqm6Pfa1E+hJsBzmF0VtrmHdFexR55R4+jt9yD tnbvLPu7rOVmmdOI3Lx3H9C6OZvd42aAc1kx75g52xHV0tG9wu25+t69a3rc fGTdnO2rjuz5nH0dA9yZ0bxjZA9udt6Rne2o5R1eLa1dHd0rsPW3RdRHvaKb R3cwz752AR6Bs/OOGbV071nSUS0t98/27sct77P3CMy6+cg5DdwMcB/ukHe0 7kFr/57XbhJPyyxecbVFezl7ztERbrZ/U2Ty5i1nl5x9rQI8Kq28w+uJnXn2 f7ZvGOUdkktrT2tXC+W/tZejM/XPdnPP+c3Z8zRwM8B1mJF31HbDZ+cdmb6h zTt0LW09XfxbKN+TIG8r76/dhwo3A8De9OYdtbONj+gdZh2tZ/Akl7aeLv6S jFqQt4mXe7+3Pd3sZc4z3MzONsC1WT3vsPc31DN4elZaPF2+1uJe8bUgb5M+ aPberXu52cucs/c9wc0A92FL3pE5C2/2PktPLa09LblHca/4WpC3Se9Tvoe9 93J63azPYNU727gZ4L7UHF1YJe9oeVpcLb7WiJOtl486H7SWOXtu1ufQ4WaA +9Obd7TuHbJn3mF7jraWtp4WV4uvPcTJ1stHuTmqnW0/0J7lh5sBHoPRvCN7 9v9ReYf1tLha+1oj7/O8fKabvczZ3kMXNwM8DivnHdrTnqu1ry3WyUd5uVU7 R5mzdy8Z3AzwGMw8+//o+Y7I0xn0v9syuz27dvYyZ9wM8LjskXcceV6p5+oW 3r/fy8uRn21PUM85R5kzbgZ4PKJ7jHhn4bXyjiPvzxK5uoe9vZypnfW8hs41 bObMXiDA4zI77zjqfrQ9vj7Cxz21s+4J6nmNTK5x9vUCAMeyx/kdR97v+or0 1s6ZXOPs6wQAzmNm3uHtUR+1q3c2rZmNTO1M5gwAlpH7q14t7zgbL9vwZjao nQGgl1n3ZzlqBu9qRLuCet5Zz2y0auezrwcAuB5e3hHts2TuURLtHN7J0bVs w/YFy+8zO7NB7QwAWUbyjtbO4Z0z6ZFsw85s4GYAyNKTd1x1Bu8MP+u5DbIN ANiLkfvRts6UvmMmnZ3byGQbZ7/mALAWe87g3cHRo9mzt49y9msNAOuxxwze XTLpmp/JngHgCGbP4PVk0mc7OOtn2enO9gbJngFgJrW8Y2QGb/VMOjO7kekN nv26AsA9aNXS4ujWDN4dHB35uTa7Yc+qw88AMJMtmXTrrNKVHI2fAeCK7JFJ r9Y3rPmZfAMAzqY3k97SN7yao+kPAsDVyWbS2TnpVWY7tszX4WcAOIpZZ3es 1DfM7KfYc0WZfwaAM9h6dsdq+4bsdwPAakRnlW7tG17N0aPnI3kzHDgaAI6i 5+yO3r7hVWY7aueLRvcdZMcbAK5ANpOO+obefVmuNNvROp+/fO2czw8AV+Ws vuFVMmjOgAaAq9PTN1xptiPKoGsZh53jwNEAcDZb+oZXne0YuQdh+R0kGQc1 NABchdn7hldxtPZzbY4j6hPiaAC4Aj37hivMdmTuE0sNDQCrcKfZjlrGUauh JYdmlgMArsjs2Y6zzu0YraG9eWgcDQBXIds3vPJsR7aG9mY5mIcGgCuzx2zH 2Y6WM0e9WY5oHhpHA8AVWX22I6qho3noVq8QRwPAlVh9tqNWQ3s7heQcALAS W2Y7rKOPnu3wauhWr5CcAwBWY9XZjpFeoZdzMM8BAFdmxXM7tJ9rvcKRnANH A8CVWPHcDnIOAHgUjpjtmJlJ68fI5hy1vRUcDQBXZs/ZjuLpvRwttbnU0L3z HMzcAcAKHHlux4y+YW/OIXsr+ow7Zu4AYBXOuifLiKezOUe0t0LOAQArMnO2 Y8+d8NY8h8059MwdOQcArMqW2Y4jd8IzOYd3PgfnkALAyuw12zF7J7znfI7W OaQ4GgBWoXe2Q/IOz9F77YRncg59lj85BwDchbP6hnvlHDJzp3MOzlACgJW5 g6NtzsFuIQDchZ57shy9Ez6yW0jOAQB3ItM3PGu2I9otLI9v77dCzgEAd2T2 TvhejibnAIBHZOZOeHRPlhFH75Fz4GcAWI1Zsx3e/N0MR4/kHJzPAQB3YvZ5 /y1Hz8g5evZW6BUCwMqM7ISf4ejW3gq9QgC4I6OzHXs5upZz1M7noFcIAHdk dLbjCEe3zufQ55C2eoU4GgBWZA9Hj57X4c1zjNxvhRoaAO7EDEfr2butjua+ sgAAfyY7Ix05urXDsjXn2DoTjaMBYGVasx01R9s9w9rZpFvOIWUmGgAelV5H R3uG2tG9/cKZM9E4GgDuRM3RNo/2dsFnzHTMmInmjDsAuCNZR+s9QzlTacZM x5Z7FrZyDhwNAKvTcrTdBZdz73rm7mbNRJNzAMCjETnaO6/DnvG/tV/YOxNd m+fA0QBwR6LZO+vo7ExHTxY9656FZNEAcFc8R/fMdOh7Gfb2C7M5h91bqWXR OBoA7kR27q7VL+x1dGsm2ttb8bJoHA0Ad6ZnpmOkX5hxtM05Wll0pl+IowFg dXpmOvS9DPd2dJRF234hjgaAO5Od6dD3m+09p8NzdO2ehdEZSt45dzgaAO5M T79w9JyOmqNbWbR1tJ3pwNEAcGdmn9ORcXRUQ0eOlt2VrKPpGQLAXeid6djb 0bpfqGc67NwdjgaAu7PlnI5VHI2nAWBVes/p2OJo8bT1c2umA0cDwKOS3QEf dbTn6Zqj7UxH1tG1HRYcDQCrspqjbc/Q2zNktgMA7sJMR3vz0Xs42tszrJ17 h6MBYFVqs9FXcLTtGXqOjs4mxdMAsDJev3Cro/WZSlHfMOvoaIcFRwPAIzDq aG8+Wp9711NLR3Md3p6hPVOpNttB3gEAq7PF0XJeh3c26d6Ors12UEsDwF2I HN3qGUaOHpnt2OroVt8QRwPAqmQdbc9U0ufeiaOjvmErk/Ycrc/ryM52kEkD wN2wjvZm77xz7+T86FrfMFtL1xydnb+LdlnwNACsTM3R9ryOlqNHM+nI0Xb+ rpVJk3cAwN3ocfSWTLrm6ZajW5l0K+9gvgMAVqbmaDmbNNM3HM07tKNrfcPe vINaGgDuQMvRerYjk0m38g7r6cjRmUyavAMA7k7tbNLWbIc42ss7ovmOyNFb Mmmbd0T7LHgaAFajNn/Xm0ln8w7t6Zajs3kH+ywAcEdafcMok27Nd7R6h+Jp 6+gok7Z5R22fJds7xNMAcHUyjm7lHbV9llotbWll0lHeQe8QAO5K1tGtvMPr HWZqac/TI3lHpndILQ0AK9LKpL28o9U7rNXSNU+Lo23eoec7enqH1NIAsDqj eYfXO2zV0q3Mw8s7on2WWu+QWhoA7sKWvMPrHW6ppSNHj/YOqaUB4A705h26 d9hTS2c9rfOOVu9wtJbG0wCwCivU0jrvsL1DamkAuDORo7fW0nb3MOPpWt5R m8OjlgaAOzOzlra7h945HpGntaOPrqXxNABclZqj7W64raVr89K1zMPztPx3 q5b25vCiWtruHpJ5AMCKzKqlvXM8WpmHx5ZaOrN7iKcBYCV6a+loXjrqH9rM I+vpbC1d2z0k8wCA1bGe6qmlvf7hSOYROdrO4Xm1dO0cD/qHAHAHemc8pJbO ZB61OY/I017eEc14RPcAaPUP8TQArEJvLV3rH0ZneYx4WtfSUS49u3+IpwHg imRr6VrmUTxpM49MNu15OltL0z8EgEehVUtH/cNa5tHabYk8rR3t1dLZ/iGZ BwDchd5aOso8WrstGU/Lf0e1dLZ/yJwHANyJGZlHNI+X9bTF1tL6TLxW/7A1 54GnAWAlMv3DbObRyqZ7Pd2qpck8AOAR2JJ5ZLPpXk97tXTUPxzNPPA0AKzC aOYRZdM1TxfntjytHd3qH7bmPOw8Htk0AKxGK/OI7qvVyqbtfoveQ+zxdJR5 eHMe2Xk8PA0AKzGSeYx42mYekae9WtpmHt6cx6xsGk8DwNUY9bTNpu2ZHj2e 9vBq6dZuy4xsGk8DwJWoZR4jPURv1sObybO5h+foyNOZbJoeIgDchd5s+mxP 1+bxMnPTXg8RTwPAlRnxdG3Wo9fTnqtrtXQ0j+dl0/QQAeAOZDKPaNajNpN3 tKdtNl3rIeJpAFiJLbMeo562vUTtau3o3myaHiIA3I3RHqKdyavtuGQ9bRFH R/N4tTM98DQA3IU9PW3raZnLi7IP6+go8+jtIeJpAFiZoz1dy6iznm71EKN9 cWbyAGBFRmfy9vS0dnSUTY/OejCTBwCrcaanPVfLf9cyj1oPcWQmD08DwJXx HL3V09H8dM3TFq+WzniamTwAuBt7e9o7L8/rJfZ42vYQmckDgDtzhKe986dr NbV2dNRDrM164GkAuBNbPa33XPT5HvpcU33fLS/70K7Wb4syD91DZCYPAO7O kZ6u1dQWr5bOzHps9fTZrwcAgGWGp73zp6OdxB5Pl4+r9RBbM3m1c/LwNACs Qs3T2fM9ap72Zj5qrpa36Vray6ZnzeSReQDA1endR/TONbX33bIz1FFNrV1t iWrpzKwHM3kAcCd6PF27T0Bm5sOrqT1Xa0dne4gzZvLOfi0AADyyns7O5tle os0+vJraI3K0l033znpQSwPASszwtJ358DJqW1N7dbXn6Fbmke0hUksDwKpk PJ3tJdqM2pvPi1xtiRzdm3m0cumzn38AgBazPV3LPnRNrV2tfa3fJo5u9Q91 Le05WtfR+BkAViPydDRD3ZN9ZFxtfS1+9hytZ/G8vCNytK6hz36+AQB6aXm6 J6PO1NReBmLRfu51tNczxM8AsDLW0zOzD6+m1nW19rXG+rl1Lp6e67A19NnP LwDADHo9PcvVur7WbhY/R/N3mRr67OcUAGAmW7OPHldbX3vYuTtvPho/A8Aj kfV0T00dudr6WiNvb/nZ6xOe/RwCAOxNK/uIauoeV4uvtbMFeXtt1o76GQAe ma01tedqnYGIr7WzBfGyt/sd7X2f/XwBABxNbe5j1NXW19rZ4mR9xl3mXI6z nycAgDPJeNrLPzxXi6+1sy3y/syZSWc/NwAAV6C3pvbqas/XHvIxtbOS2E8B AHierKttBqJ9rZ3tIR9TOyPp7OcBAODKjLha+7qG9jLn1wEAjNNytfW1dbZG f4z+95z/DACwDc/Vnq89Z1sne/dPwc8AAHOIfB05O3IyXgYA2Jear/EyAAAA AAAAAAAAAJzJ/wNIND1j "], {{0, 270}, {360, 0}}, {0, 255}, ColorFunction -> RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {360, 270}, PlotRange -> {{0, 360}, {0, 270}}], Background -> None, StripOnInput -> False], TraditionalForm]], {-11.156250521031495`, -16.11809565095832}, { Left, Bottom}, {4.992935716996854, 32.23619130191664}], InsetBox[ FormBox[ StyleBox["\"main sequence\"", "SR", GrayLevel[0.8], StripOnInput -> False], TraditionalForm], NCache[{-Log[17000], Log[100]}, {-9.740968623038354, 4.605170185988092}]], InsetBox[ FormBox[ StyleBox["\"supergiants\"", "SR", GrayLevel[0.8], StripOnInput -> False], TraditionalForm], NCache[{-Log[8000], Log[500000]}, {-8.987196820661973, 13.122363377404328`}]], InsetBox[ FormBox[ StyleBox["\"giants\"", "SR", GrayLevel[0.8], StripOnInput -> False], TraditionalForm], NCache[{-Log[4000], Log[300]}, {-8.294049640102028, 5.703782474656201}]]}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7918065380930815`*^9}, CellLabel->"Out[1]", CellID->108325906] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->215925039], Cell["\<\ Plot the positions of other stars on the Hertzsprung\[Dash]Russell diagram:\ \>", "Text", CellChangeTimes->{{3.7692058567489324`*^9, 3.7692058932935867`*^9}, { 3.7976770552779536`*^9, 3.7976770611040454`*^9}, {3.797677119213513*^9, 3.7976771199067755`*^9}}, CellID->282729567], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HertzsprungRussellDiagram", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HertzsprungRussellDiagram", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HertzsprungRussellDiagram"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HertzsprungRussellDiagram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HertzsprungRussellDiagram"], BoxID -> "HertzsprungRussellDiagram", Selectable->False], "[", TemplateBox[{"\"Alnitak\"", RowBox[{"Entity", "[", RowBox[{"\"Star\"", ",", "\"Alnitak\""}], "]"}], "\"Entity[\\\"Star\\\", \\\"Alnitak\\\"]\"", "\"star\""}, "Entity"], "]"}]], "Input", CellChangeTimes->{{3.769195520877448*^9, 3.769195524219783*^9}, { 3.7692055670519657`*^9, 3.7692056250447645`*^9}, {3.769205673254585*^9, 3.7692056742846875`*^9}}, CellLabel->"In[2]", CellID->443871870], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{-10.295529640312152`, 13.02558684839079}, {-10.295529640312152`, 13.02558684839079}}]}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.012833333333333334`], AbsoluteThickness[1.6]}, {}}, { TagBox[ {Opacity[0.], PointBox[{{-10.295529640312152`, 13.02558684839079}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$5977, {1}}]& ], TagBox[ {Opacity[0.], PointBox[{{-10.295529640312152`, 13.02558684839079}}]}, Annotation[#, {{Callout}, Charting`Private`Tag$5977, {1}}]& ]}}, {{{{}, GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]], CapForm["Butt"], JoinForm[ "Round"], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.8284271247461903`}, {-10.269674200621994`, 13.248162889765885`}], Offset[{2.8284271247461903`, 2.8284271247461903`}, {-10.269674200621994`, 13.248162889765885`}], Offset[{4.242640687119286, 4.242640687119286}, {-10.269674200621994`, 13.248162889765885`}], Offset[{4.242640687119286, 4.242640687119286}, {-10.269674200621994`, 13.248162889765885`}], Offset[{5.656854249492381, 5.656854249492381}, {-10.269674200621994`, 13.248162889765885`}], Offset[{7.65685424949238, 5.656854249492381}, {-10.269674200621994`, 13.248162889765885`}], Offset[{9.65685424949238, 5.656854249492381}, {-10.269674200621994`, 13.248162889765885`}], Offset[{9.65685424949238, 5.656854249492381}, {-10.269674200621994`, 13.248162889765885`}]}]}, {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], BSplineCurveBox[{ Offset[{2.8284271247461903`, 2.8284271247461903`}, {-10.269674200621994`, 13.248162889765885`}], Offset[{2.8284271247461903`, 2.8284271247461903`}, {-10.269674200621994`, 13.248162889765885`}], Offset[{4.242640687119286, 4.242640687119286}, {-10.269674200621994`, 13.248162889765885`}], Offset[{4.242640687119286, 4.242640687119286}, {-10.269674200621994`, 13.248162889765885`}], Offset[{5.656854249492381, 5.656854249492381}, {-10.269674200621994`, 13.248162889765885`}], Offset[{7.65685424949238, 5.656854249492381}, {-10.269674200621994`, 13.248162889765885`}], Offset[{9.65685424949238, 5.656854249492381}, {-10.269674200621994`, 13.248162889765885`}], Offset[{9.65685424949238, 5.656854249492381}, {-10.269674200621994`, 13.248162889765885`}]}]}, {EdgeForm[None], FaceForm[{GrayLevel[1], Opacity[ NCache[ Rational[2, 3], 0.6666666666666666]]}], PolygonBox[{ Offset[{45.65685424949238, 13.456854249492384`}, {-10.269674200621994`, 13.248162889765885`}], Offset[{45.65685424949238, 0.45685424949238396`}, {-10.269674200621994`, 13.248162889765885`}], Offset[{9.65685424949238, 0.45685424949237685`}, {-10.269674200621994`, 13.248162889765885`}], Offset[{9.65685424949238, 13.456854249492377`}, {-10.269674200621994`, 13.248162889765885`}]}]}, {RGBColor[0.6666666666666666, 0.6666666666666666, 0.6666666666666666], AbsoluteThickness[1.25], EdgeForm[None]}, {}, InsetBox[ StyleBox[ RotationBox["\<\"Alnitak\"\>", BoxRotation->0.], StripOnInput->False, Opacity->1, FontOpacity->1, $CellContext`LineOpacity -> 1, $CellContext`FrontFaceOpacity -> 1, $CellContext`BackFaceOpacity -> 1], Offset[{27.65685424949238, 6.95685424949238}, \ {-10.269674200621994, 13.248162889765885}], ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}]}, {}}, {}}}, AspectRatio->0.75, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{-6.163314804034641, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ TemplateBox[{"\"luminosity \"", StyleBox[ TemplateBox[{"\"(\"", SubscriptBox["\"L\"", "\"\[CircleDot]\""], "\")\""}, "RowDefault"], GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], TraditionalForm], FormBox["\"absolute visual magnitude\"", TraditionalForm]}, { FormBox[ TemplateBox[{"\"temperature \"", StyleBox["\"(K)\"", GrayLevel[0.5], StripOnInput -> False]}, "RowDefault"], TraditionalForm], FormBox["\"\"", TraditionalForm]}}, FrameTicks->{{{{-13.815510557964274`, FormBox[ TemplateBox[{"10", RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-11.512925464970229`, FormBox[ TemplateBox[{"10", RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-9.210340371976182, FormBox[ TemplateBox[{"10", RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-6.907755278982137, FormBox[ TemplateBox[{"10", RowBox[{"-", "3"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-4.605170185988091, FormBox[ TemplateBox[{"10", RowBox[{"-", "2"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {-2.3025850929940455`, FormBox[ TemplateBox[{"10", RowBox[{"-", "1"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, {0, FormBox["1", TraditionalForm]}, { NCache[ Log[10], 2.302585092994046], FormBox[ TemplateBox[{"10", "1"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, { NCache[ Log[100], 4.605170185988092], FormBox[ TemplateBox[{"10", "2"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, { NCache[ Log[1000], 6.907755278982137], FormBox[ TemplateBox[{"10", "3"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, { NCache[ Log[10000], 9.210340371976184], FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, { NCache[ Log[100000], 11.512925464970229`], FormBox[ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}, { NCache[ Log[1000000], 13.815510557964274`], FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm]}}, {{-11.5129, FormBox["\"25\"", TraditionalForm]}, {-8.22023, FormBox["\"20\"", TraditionalForm]}, {-6.11426, FormBox["\"15\"", TraditionalForm]}, {-3.40368, FormBox["\"10\"", TraditionalForm]}, {-0.132484, FormBox["\"5\"", TraditionalForm]}, {5.06595, FormBox["\"0\"", TraditionalForm]}, {12.2264, FormBox["\"-5\"", TraditionalForm]}}}, {{{ NCache[-Log[500], -6.214608098422191], FormBox["500", TraditionalForm]}, { NCache[-Log[800], -6.684611727667927], FormBox["800", TraditionalForm]}, { NCache[-Log[1500], -7.313220387090301], FormBox["1500", TraditionalForm]}, { NCache[-Log[3000], -8.006367567650246], FormBox["3000", TraditionalForm]}, { NCache[-Log[6000], -8.699514748210191], FormBox["6000", TraditionalForm]}, { NCache[-Log[12000], -9.392661928770137], FormBox["12000", TraditionalForm]}, { NCache[-Log[25000], -10.126631103850338`], FormBox["25000", TraditionalForm]}, { NCache[-Log[50000], -10.819778284410283`], FormBox["50000", TraditionalForm]}}, {{ NCache[-Log[1260], -7.138866999945524], FormBox["\"T\"", TraditionalForm], 0}, { NCache[-Log[2250], -7.718685495198466], FormBox["\"L\"", TraditionalForm], 0}, { NCache[-Log[3870], -8.261009786023827], FormBox["\"M\"", TraditionalForm], 0}, { NCache[-Log[5280], -8.571681376700306], FormBox["\"K\"", TraditionalForm], 0}, { NCache[-Log[5920], -8.68609172787805], FormBox["\"G\"", TraditionalForm], 0}, { NCache[-Log[7220], -8.884610231886873], FormBox["\"F\"", TraditionalForm], 0}, { NCache[-Log[9700], -9.179881164491475], FormBox["\"A\"", TraditionalForm], 0}, { NCache[-Log[31500], -10.357742824813725`], FormBox["\"B\"", TraditionalForm], 0}, { NCache[-Log[47500], -10.768484990022733`], FormBox["\"O\"", TraditionalForm], 0}}}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->Automatic, ImageSizeRaw->{360, 280}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->NCache[{{-Log[70000], -Log[475]}, {-16.11809565095832, Log[ 10000000]}}, {{-11.156250521031495`, -6.163314804034641}, \ {-16.11809565095832, 16.11809565095832}}], PlotRangeClipping->True, PlotRangePadding->{{0, Scaled[0.08]}, {0, Scaled[0.07999999999999999]}}, Prolog->{ InsetBox[ BoxData[ FormBox[ StyleBox[ GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJztncmOZclthsvDwivDr+C38NZLb2X4ASS4LXvTBloGDD9qDxp6ngcNPQ/l jgLYolhkBCNOnCHO/RafoM7Mupl578kvmT/JOP/4i//+2X/89ZMnT371dz/+ z89+/r///NJLP/+/f/2HH//j31781X/98sUX/v1fXvyfF375wkv/9Iu/+fGN f/9XT57854/87Y///+nTpwAAAAAAAAAAAAAAAAAAu/HDDz9s4uyvHwDgTtR8 +/3331fB2wAAc8m6+Lvvvmsy6u6znwMAgCtRc7L17rffftvFDG+f/fwAAJxB 5Gbr42+++eYnvv766yb64wu93sbXAPDItLxsffzVV18948svv2wiHyt47q45 mxobAB6VyM26XhYni3O/+OKLJ59//vlP/OlPf3oO/f7y8YLn7pazt9TYOBsA ViVys/WyOLm4949//OMz/vCHP/zE73//+2fotwny8dbdnrets6NshFwEAO6M rZ09N1svi4s/++yzJ59++ulPfPLJJ08F/fZC+diCdbjn7cjXvc4mF4E94NqB o8i6WbwsTi4O/vjjj59+9NFHz/jwww+fQ95XKB9bsP5uOdvW2bNzEZwN9mdh Nmd/X7Aunp+1m6VmLv4UL4uPP/jgg6fvv//+M957773nkPcVyscWrLu1t1vO jrKR2bkIefY96XFqa+9qdC/r7OcA1sFei7p2Lr6TulncXDwqXi7+fffdd5++ 8847z3j77befQ95XKB9bsO7W3tbO1nW2l43smYvg7LWZ4eDM3lXPThbXCvQS ZRu6di4u1G4uThUvFwe/9dZbT998882feOONN/7iv4XycQXrbu3tUWdvqbG3 Ohtvn3/9jjg48mq0W2Vn+D2iGVE8DSNE2YaunYsDJdMQN2svFx+//vrrT3/3 u9+5lPcJ5WMFz9stZ+tsJJOLtGZGRpw9q9bmZ3P8es16uMfB1rXenpWd4++Z 67fXCtcBtLB+ttmG9AOLByXTKP4sPtVe/u1vf/uM3/zmN88h7xNq3tbO9ups nY3MzEW2ZiMza21+Xp+/Pkdc3Otf61q7Y6XnQGvo60dfN/o6wdGQoeZnnW0U 9xUXSu1cHKrdXDz861//uknk7sjZtWykt8ae4ey9au2stx/h5zjj45qLsw6O 3Kt3qry9K7lWLHYvS187cr3I9aGvhUd6baGPHj9LtiG1s3Xza6+99oxXX331 L5C3a2rejpydzUW8/uMezu6ptVu5ds3bPe5e7Wc8m1f0uLjXwZ57vZ0rQa4V SzRvJNeMXCc4GrLU8ueofrZ+FjdbL7/yyivPsG+vudtzdi0b2ZqL9Dp7dq2d qbdnuvtol2e/jlZeYX3s1cTWw56Ddb3r+Vde82jnSmb+Pey1o3/Py3Via2nP 0Wc7Aa5Dqz9o82ebb3h+Fi9naDl7Zo3t5SK9zs7s04zU2hlvR+5u+XuGx2eR naWI6uOWi6M62Kt9Pf/Ka673qvS+lVwnHvba0a6Wa0SuCXntozz6bC/ANfD8 rOfrZPa5XGvl2pP+oPZz8WXk55dffvk5ep2dqbH3cLaXjdTmRrZ6e6u7a/7O OnxvWrMUUV7h+dhzcVQHZ/yrXav3qvS+lVwnHvb3vVwzcp2Ur8s6Wmcd+Bk8 vAzam3+2PcJaxlHzc6+ze2rsLblIJhsZqbV7vN3KSTx3e/6uObzl8T1ozbNF eUXkY10XaxdHHrYO9vyrXav3qvS+lVwnHvb3vVwz5fOWr8U6unx/tmeIo8HS yjhsDV2uOT1jV7yne4SZGvpIZ0ezflucnclHZni794zWyN+Rw3ucnqX2+K1Z Ci+v8Hys62Lt4sjD1sGef7Vr7W6VntsXWjP9cq1kHI2fIcJmgzrj0H1CyaF1 zlFz9EgdPdPZvblIxtkj+cgMb/e62/o78njL6aNEn8Obp/Cy41p9bOvijIdb Dva8G+1c2Xl+79qRa0auj/I1aUeX7618rzrnwM8Q0cqhy7Wkz+CQXRU7C32E o2fV2KPO3lprj3jbc3fk75rDI5e3vJ4leszsPNuIj2se7vWvda63b+XN+ttr R64XcbSuo8v3JDV0LYc+2wlwHWwN7e0S6nOSavsqRzv6TGeP1No93q6526u7 rb+9eyW0ditmYT+HN1Ps9fFsXtHyceRiz8Et/0Z7Vd4Mf22uvzyWdXT52sv3 Ur43mekg44AsUQ0dZdFXdvSezt5aa2e8XXO3V3drf0cO91zu+XwW9vN4M8VR dpz1ceTiXgdHvq3N7teuG+3o8vVJHl2+p/K96owDP0MGO6dqc47ozKQRR5/l 6S3O7qm1vXm/EW9n3R352zrcetzz+Szs56jNE9vseNTHkYdH/Nszx2+vm/LY cg1IDa1zaMk4JIPW+yr4GSJajtb3UrmDo3ucvVetnTnjr+XuyN+ex63LPadv xT52a544yo6zPq65eJaDs9eNXBPla5HXWWccnp/pEUIWL4v2HC0zHZGjM/PR V3T0DGf3enuru7W/rcOtx63LI6dvwT52a564lR1nfbzFwbOuFe1nyThafqZ+ hh4iR9v7Xo04euaM9FWdna21e71t3V3zd+s+CdF+xQy8x2/Ns3l9vF4fH+Hg 1jVh6+dWvkH+DCNkHB1lHd58tPy8zd5juRKj3s66e8Tf1uE1n8/G+5zRPEUm O876+MzX3sufo/5gbX7j7J9/uD49jrZzHY/q6Nne7nG35+/I4y2nbyX6XLV5 ilZ2fCUf19xs5zdkBlrP18kOoXdWEn6GLNk82puP9u634jn67Pm7s3+uZ7u7 5fCMz2fQM0/ckx2f/bpFr2FtdsPup9jeYPmZItuAEVqOju71bR1tz71buW+4 gruzHj+K0VmKs1+LHjd7cxu2dmY3BWYz6mh9z+/V5++uQtbdIx7fk+zXevbz u8XNtb2U7G43foYR9nD03WY7rsKIw4/m7Odo63Or/zaJ3KzPRvJqZ+bqYCY1 R+tdcDt/5zn60fuGV+QRfTvy3ERujs7ciM6to3aG2WQcXZuRzs52PGrfEK5H r5slc5Z5Op1rkDvD3tR2wTN7LCOzHXgajsbL8fV8jPQCIzfrzDnKNfAz7EGP o1vzd/QN4Wq0amZxsz6P37pZzzrLPRLINeAoPEe39ljoG8KVibxs3Sw7mLoX aN2czZzxM+yFdfTW2Q76hnAG0TyiVzNLntHjZp1r4Gc4kh5He5m0OLq3b4in YSstL3s1s84zWm6O7tWNn+FIWo4eme2gbwh7UNvf8bzs1cze/bm1m3XmbP0c ORpPw960HN0z2xH1De+WdzBrfG0vS86s78kt9zWI3Cy1s/Uzjoazyc52PHom 3fLw3fair/I8e32/yMuSZeiaWecZMt8s99+1btZ+9hyNp+EMMrMd2b7h3TLp yMUzz7Q4+3s8m9pzbOcxIi/rLMPWzJI1azfb2lk7WjxdczW5NBzJ1r7hHTPp 1t/YtfNBVz0j+WrPb6+XJWfWNXPkZqE4WhBX25o6k0uf/TMM92Z233D1TDr7 d3b2bGV8XfdylGH0ellq5sjNGu1pi3Z25GkcDUeScXS0bziSSV/V07WdNM8d rfuTeM4evUff2c/NTCf3ZMu679fjZXFzC/lY/fGtHiLz0XAGM/uGK2bSkZu9 v7Vr9whs3eP6zr5uZfc9GYb1suTLkZdrbtYelo8t/86iH0d7uuXos3924TGo 9Q3vnklrn1iPWH/o+21798e298Ou+Tqbh2TmRa7u5EyGoefkZB4j8rKtmT20 j8u/K5THKI9lsc7XMx/R/QjxMxzJzEx6lbM7rFui8xy82s5Dvndxdo+vo/p6 1NkzHJ553JaTezOMjJcjN9ecXB6vPG6hfA5B3mZn8zhDCa7Go2XSUbbhnYNm PSIuEeRt5f2Flq978pCss0fdncX7XN5sS7ZWbmXLNsfwvGxzC8/J8vro10aw vxdkt8XeM5YaGq5C1tGtTPrqeYfn5+gsNL0HIS7x0DVaj69tfZ1xds+9t2dg P49XJ1snWy/vUStnvOw9//L/da4i9/Tm3ldwZWZn0lecwWtlG96ZO3oXQtd5 4gedcc7wdcbZnrdr/u7FPqb+vNbJPRmGfR5bTs5mGJ6T5fm1fd3ozDuvhpaM Az/DFZiVSUfnSZ9dS/f4ubYPYbE1XZSBer7WPqk5O/J25O+My1uz3vrx5fNG dfJIrjza74tqZetk+5zJ86gdrWvo6N7eehb67J9ReGx6MunVZvBa+YbnZ332 jt6HiGa7rFd6fO3V2NrZkbeth2oej7D/Tj+29nHUO83myt4ssjcbl/WyrZV1 PaB/b9m637uHrL7XStQjPPvnE6CQcbQ9u2OFGTyvhtb5c83PdlfN7qXJ27Vz Wr7W2WnN2Z63rbu9v+cjn9fmu/Xj2fnCqG86OrNsf7d5+bL1spdh2L/TvL8b bK9B3w8LP8NqzMykoxm8oz0dZRwyv9G6H4fdPYvQzq752s7penNh3qyI9rb1 t+fxDPrfymPq+thmFxknZ3b7vN9ho16u5fB2Vqc8TsbP5M9wVUYy6SvP4I1k 0HoGK3NGmvzekufF+lqcXasbrbOjeV7rbm+mLIv+93am0PNxy8n2TAz7u8pm GTO97M2i2N/FUf1MfxBWYmYmfXbeUdtR6amhozOGLS1ntzIRW2fbnThv1s/z eAb9b+Ux9c5drcfnOVl/f9736M3JbfGyNxMezbrr/LnWH2S+Dlah5zzp3hk8 yTts/bOHp3vmoGv3tovO1/HwnJ2psb3eo+du7W+Nt98c7TxrdF8vypEz58XV 3LzVy16tHO3Z2F5DeVyZ35D5OnldZf6Z/RRYjS0zeFfJOzJ73rU52dY97vS5 75ZRZ3uui84E8jzeItrZi+pi74zl6Gv2auZofnnEy60dyOhvJJtt2P0U/Awr stcM3pF5R/YsjkwdnbnPnWXE2drb1oM2S/BcXqN2frL1r/56vK/Ny9l1lqFn VvbycqZ2ttkGuylwF7KO1jN4V8s7Zjq6da9ofea7zoYyzo687fnbOrwXz7v2 80WfW7s5yjKsl+1eyYiXe/sLti8o2Qa1M9yN7AxebefwzLyj5ehszzDjaO3n iJqzPW9bd9c83iJ6nNpjR272sgz9WuuZyxlezvYWevYG8TPcgdnn4B2dd2Qd nZm9qzlae1g/Z97z1/K25+6Wx7Nk6njtZ51j6flKnWXY3t9sL9deRzs7aXcG qZ3h7ozkHa2dwyPzDu9n285kZeejW/fjqPm519uRu2fgedq62auZoyzD/u5t zcllvZzNNaQnqGc2otwZP8MdmbFzeFbeYX/GvZ/z2mxH1DfMOrr2XI66exTr aFs76zzD7iR5WYb3+3aGl71cozbTbs8U1X/zUDvDI9A7g3elvKPl6NHZjoyj R5/jWUR+1rWzl2d485NRlmHPx6jNL/e+Zq2dUC/XkHnn6Lw6/Ax3ZHQGrzfv 2MPTGUfruszmHd6uYXTfpCPuET3iaFs7e31er2bOZhmzcqpWP1DnUZmznqmd 4ZG4U94xs29o5zr2dvToa5TZC/X292tnf896raLfod4ZSJI563mNVq6Bn+ER uFPeofuGNpPe2jc8wwuem7N7RtEZhd5rMyNjHnFzJnMm14BH5+55R2/fMDPb cfRrUpuJbJ1L2MoyZnm5182yI2gzZ3INgOdZNe84q2945OvQex8zWzPvmWW0 3Fw7f1DvCGbcjJ/hkZmZd7TOK519P9pZfUO9bzh7tqP3+R9180jNvNdzr3sB npttP9BmztTOAH/mTnlHdH+O3r7hEY7OuFn/7TJynwXvd+Lebvbm6PSshpc5 42aAOlvzjrPOK+3ZZbnKbEfWza3+7NH3Zd/DzWTOADlWzTu29A2Pnu3Y6mbv HpJ718y9btYzztEcHZkzQD/ZvGPLeaV71Hl79A1nz3ZscfOZ92Cf6Wb6gQDb yeYdV7s/S0/f8Mid8J5e4FXcnMmObL6PmwGO4S55R3bfsHWWtHeOdMYvM90c /X7bq2ZuzTd7eXPWzWTOANuYnXcc1dfaa7ZjyzmlmRm6rJv3mFnsdbPMLuJm gHNZMe+YPdsRZdItT2f+9riqm6Pfa1E+hJsBzmF0VtrmHdFexR55R4+jt9yD tnbvLPu7rOVmmdOI3Lx3H9C6OZvd42aAc1kx75g52xHV0tG9wu25+t69a3rc fGTdnO2rjuz5nH0dA9yZ0bxjZA9udt6Rne2o5R1eLa1dHd0rsPW3RdRHvaKb R3cwz752AR6Bs/OOGbV071nSUS0t98/27sct77P3CMy6+cg5DdwMcB/ukHe0 7kFr/57XbhJPyyxecbVFezl7ztERbrZ/U2Ty5i1nl5x9rQI8Kq28w+uJnXn2 f7ZvGOUdkktrT2tXC+W/tZejM/XPdnPP+c3Z8zRwM8B1mJF31HbDZ+cdmb6h zTt0LW09XfxbKN+TIG8r76/dhwo3A8De9OYdtbONj+gdZh2tZ/Akl7aeLv6S jFqQt4mXe7+3Pd3sZc4z3MzONsC1WT3vsPc31DN4elZaPF2+1uJe8bUgb5M+ aPberXu52cucs/c9wc0A92FL3pE5C2/2PktPLa09LblHca/4WpC3Se9Tvoe9 93J63azPYNU727gZ4L7UHF1YJe9oeVpcLb7WiJOtl486H7SWOXtu1ufQ4WaA +9Obd7TuHbJn3mF7jraWtp4WV4uvPcTJ1stHuTmqnW0/0J7lh5sBHoPRvCN7 9v9ReYf1tLha+1oj7/O8fKabvczZ3kMXNwM8DivnHdrTnqu1ry3WyUd5uVU7 R5mzdy8Z3AzwGMw8+//o+Y7I0xn0v9syuz27dvYyZ9wM8LjskXcceV6p5+oW 3r/fy8uRn21PUM85R5kzbgZ4PKJ7jHhn4bXyjiPvzxK5uoe9vZypnfW8hs41 bObMXiDA4zI77zjqfrQ9vj7Cxz21s+4J6nmNTK5x9vUCAMeyx/kdR97v+or0 1s6ZXOPs6wQAzmNm3uHtUR+1q3c2rZmNTO1M5gwAlpH7q14t7zgbL9vwZjao nQGgl1n3ZzlqBu9qRLuCet5Zz2y0auezrwcAuB5e3hHts2TuURLtHN7J0bVs w/YFy+8zO7NB7QwAWUbyjtbO4Z0z6ZFsw85s4GYAyNKTd1x1Bu8MP+u5DbIN ANiLkfvRts6UvmMmnZ3byGQbZ7/mALAWe87g3cHRo9mzt49y9msNAOuxxwze XTLpmp/JngHgCGbP4PVk0mc7OOtn2enO9gbJngFgJrW8Y2QGb/VMOjO7kekN nv26AsA9aNXS4ujWDN4dHB35uTa7Yc+qw88AMJMtmXTrrNKVHI2fAeCK7JFJ r9Y3rPmZfAMAzqY3k97SN7yao+kPAsDVyWbS2TnpVWY7tszX4WcAOIpZZ3es 1DfM7KfYc0WZfwaAM9h6dsdq+4bsdwPAakRnlW7tG17N0aPnI3kzHDgaAI6i 5+yO3r7hVWY7aueLRvcdZMcbAK5ANpOO+obefVmuNNvROp+/fO2czw8AV+Ws vuFVMmjOgAaAq9PTN1xptiPKoGsZh53jwNEAcDZb+oZXne0YuQdh+R0kGQc1 NABchdn7hldxtPZzbY4j6hPiaAC4Aj37hivMdmTuE0sNDQCrcKfZjlrGUauh JYdmlgMArsjs2Y6zzu0YraG9eWgcDQBXIds3vPJsR7aG9mY5mIcGgCuzx2zH 2Y6WM0e9WY5oHhpHA8AVWX22I6qho3noVq8QRwPAlVh9tqNWQ3s7heQcALAS W2Y7rKOPnu3wauhWr5CcAwBWY9XZjpFeoZdzMM8BAFdmxXM7tJ9rvcKRnANH A8CVWPHcDnIOAHgUjpjtmJlJ68fI5hy1vRUcDQBXZs/ZjuLpvRwttbnU0L3z HMzcAcAKHHlux4y+YW/OIXsr+ow7Zu4AYBXOuifLiKezOUe0t0LOAQArMnO2 Y8+d8NY8h8059MwdOQcArMqW2Y4jd8IzOYd3PgfnkALAyuw12zF7J7znfI7W OaQ4GgBWoXe2Q/IOz9F77YRncg59lj85BwDchbP6hnvlHDJzp3MOzlACgJW5 g6NtzsFuIQDchZ57shy9Ez6yW0jOAQB3ItM3PGu2I9otLI9v77dCzgEAd2T2 TvhejibnAIBHZOZOeHRPlhFH75Fz4GcAWI1Zsx3e/N0MR4/kHJzPAQB3YvZ5 /y1Hz8g5evZW6BUCwMqM7ISf4ejW3gq9QgC4I6OzHXs5upZz1M7noFcIAHdk dLbjCEe3zufQ55C2eoU4GgBWZA9Hj57X4c1zjNxvhRoaAO7EDEfr2butjua+ sgAAfyY7Ix05urXDsjXn2DoTjaMBYGVasx01R9s9w9rZpFvOIWUmGgAelV5H R3uG2tG9/cKZM9E4GgDuRM3RNo/2dsFnzHTMmInmjDsAuCNZR+s9QzlTacZM x5Z7FrZyDhwNAKvTcrTdBZdz73rm7mbNRJNzAMCjETnaO6/DnvG/tV/YOxNd m+fA0QBwR6LZO+vo7ExHTxY9656FZNEAcFc8R/fMdOh7Gfb2C7M5h91bqWXR OBoA7kR27q7VL+x1dGsm2ttb8bJoHA0Ad6ZnpmOkX5hxtM05Wll0pl+IowFg dXpmOvS9DPd2dJRF234hjgaAO5Od6dD3m+09p8NzdO2ehdEZSt45dzgaAO5M T79w9JyOmqNbWbR1tJ3pwNEAcGdmn9ORcXRUQ0eOlt2VrKPpGQLAXeid6djb 0bpfqGc67NwdjgaAu7PlnI5VHI2nAWBVes/p2OJo8bT1c2umA0cDwKOS3QEf dbTn6Zqj7UxH1tG1HRYcDQCrspqjbc/Q2zNktgMA7sJMR3vz0Xs42tszrJ17 h6MBYFVqs9FXcLTtGXqOjs4mxdMAsDJev3Cro/WZSlHfMOvoaIcFRwPAIzDq aG8+Wp9711NLR3Md3p6hPVOpNttB3gEAq7PF0XJeh3c26d6Ors12UEsDwF2I HN3qGUaOHpnt2OroVt8QRwPAqmQdbc9U0ufeiaOjvmErk/Ycrc/ryM52kEkD wN2wjvZm77xz7+T86FrfMFtL1xydnb+LdlnwNACsTM3R9ryOlqNHM+nI0Xb+ rpVJk3cAwN3ocfSWTLrm6ZajW5l0K+9gvgMAVqbmaDmbNNM3HM07tKNrfcPe vINaGgDuQMvRerYjk0m38g7r6cjRmUyavAMA7k7tbNLWbIc42ss7ovmOyNFb Mmmbd0T7LHgaAFajNn/Xm0ln8w7t6Zajs3kH+ywAcEdafcMok27Nd7R6h+Jp 6+gok7Z5R22fJds7xNMAcHUyjm7lHbV9llotbWll0lHeQe8QAO5K1tGtvMPr HWZqac/TI3lHpndILQ0AK9LKpL28o9U7rNXSNU+Lo23eoec7enqH1NIAsDqj eYfXO2zV0q3Mw8s7on2WWu+QWhoA7sKWvMPrHW6ppSNHj/YOqaUB4A705h26 d9hTS2c9rfOOVu9wtJbG0wCwCivU0jrvsL1DamkAuDORo7fW0nb3MOPpWt5R m8OjlgaAOzOzlra7h945HpGntaOPrqXxNABclZqj7W64raVr89K1zMPztPx3 q5b25vCiWtruHpJ5AMCKzKqlvXM8WpmHx5ZaOrN7iKcBYCV6a+loXjrqH9rM I+vpbC1d2z0k8wCA1bGe6qmlvf7hSOYROdrO4Xm1dO0cD/qHAHAHemc8pJbO ZB61OY/I017eEc14RPcAaPUP8TQArEJvLV3rH0ZneYx4WtfSUS49u3+IpwHg imRr6VrmUTxpM49MNu15OltL0z8EgEehVUtH/cNa5tHabYk8rR3t1dLZ/iGZ BwDchd5aOso8WrstGU/Lf0e1dLZ/yJwHANyJGZlHNI+X9bTF1tL6TLxW/7A1 54GnAWAlMv3DbObRyqZ7Pd2qpck8AOAR2JJ5ZLPpXk97tXTUPxzNPPA0AKzC aOYRZdM1TxfntjytHd3qH7bmPOw8Htk0AKxGK/OI7qvVyqbtfoveQ+zxdJR5 eHMe2Xk8PA0AKzGSeYx42mYekae9WtpmHt6cx6xsGk8DwNUY9bTNpu2ZHj2e 9vBq6dZuy4xsGk8DwJWoZR4jPURv1sObybO5h+foyNOZbJoeIgDchd5s+mxP 1+bxMnPTXg8RTwPAlRnxdG3Wo9fTnqtrtXQ0j+dl0/QQAeAOZDKPaNajNpN3 tKdtNl3rIeJpAFiJLbMeo562vUTtau3o3myaHiIA3I3RHqKdyavtuGQ9bRFH R/N4tTM98DQA3IU9PW3raZnLi7IP6+go8+jtIeJpAFiZoz1dy6iznm71EKN9 cWbyAGBFRmfy9vS0dnSUTY/OejCTBwCrcaanPVfLf9cyj1oPcWQmD08DwJXx HL3V09H8dM3TFq+WzniamTwAuBt7e9o7L8/rJfZ42vYQmckDgDtzhKe986dr NbV2dNRDrM164GkAuBNbPa33XPT5HvpcU33fLS/70K7Wb4syD91DZCYPAO7O kZ6u1dQWr5bOzHps9fTZrwcAgGWGp73zp6OdxB5Pl4+r9RBbM3m1c/LwNACs Qs3T2fM9ap72Zj5qrpa36Vray6ZnzeSReQDA1endR/TONbX33bIz1FFNrV1t iWrpzKwHM3kAcCd6PF27T0Bm5sOrqT1Xa0dne4gzZvLOfi0AADyyns7O5tle os0+vJraI3K0l033znpQSwPASszwtJ358DJqW1N7dbXn6Fbmke0hUksDwKpk PJ3tJdqM2pvPi1xtiRzdm3m0cumzn38AgBazPV3LPnRNrV2tfa3fJo5u9Q91 Le05WtfR+BkAViPydDRD3ZN9ZFxtfS1+9hytZ/G8vCNytK6hz36+AQB6aXm6 J6PO1NReBmLRfu51tNczxM8AsDLW0zOzD6+m1nW19rXG+rl1Lp6e67A19NnP LwDADHo9PcvVur7WbhY/R/N3mRr67OcUAGAmW7OPHldbX3vYuTtvPho/A8Aj kfV0T00dudr6WiNvb/nZ6xOe/RwCAOxNK/uIauoeV4uvtbMFeXtt1o76GQAe ma01tedqnYGIr7WzBfGyt/sd7X2f/XwBABxNbe5j1NXW19rZ4mR9xl3mXI6z nycAgDPJeNrLPzxXi6+1sy3y/syZSWc/NwAAV6C3pvbqas/XHvIxtbOS2E8B AHierKttBqJ9rZ3tIR9TOyPp7OcBAODKjLha+7qG9jLn1wEAjNNytfW1dbZG f4z+95z/DACwDc/Vnq89Z1sne/dPwc8AAHOIfB05O3IyXgYA2Jear/EyAAAA AAAAAAAAAJzJ/wMp0sPA "], {{0, 270.}, {360., 0}}, {0, 255}, ColorFunction -> RGBColor, ImageResolution -> 72.], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {360., 270.}, PlotRange -> {{0, 360.}, {0, 270.}}], Background -> None, StripOnInput -> False], TraditionalForm]], {-11.156250521031495`, -16.11809565095832}, { Left, Bottom}, {4.992935716996854, 32.23619130191664}], InsetBox[ FormBox[ StyleBox["\"main sequence\"", "SR", GrayLevel[0.8], StripOnInput -> False], TraditionalForm], NCache[{-Log[17000], Log[100]}, {-9.740968623038354, 4.605170185988092}]], InsetBox[ FormBox[ StyleBox["\"supergiants\"", "SR", GrayLevel[0.8], StripOnInput -> False], TraditionalForm], NCache[{-Log[8000], Log[500000]}, {-8.987196820661973, 13.122363377404328`}]], InsetBox[ FormBox[ StyleBox["\"giants\"", "SR", GrayLevel[0.8], StripOnInput -> False], TraditionalForm], NCache[{-Log[4000], Log[300]}, {-8.294049640102028, 5.703782474656201}]]}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.7692079368739243`*^9, 3.7917360825914145`*^9}, CellLabel->"Out[2]", CellID->97517980] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->10419567], Cell["Plot multiple stars on the Hertzsprung\[Dash]Russell diagram:", "Text", CellChangeTimes->{{3.7692058567489324`*^9, 3.7692059090861654`*^9}, { 3.7692072373899827`*^9, 3.7692072425094943`*^9}, {3.7976770651583834`*^9, 3.797677068316763*^9}, {3.7976771015386486`*^9, 3.7976771036475706`*^9}}, CellID->288583458], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HertzsprungRussellDiagram", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HertzsprungRussellDiagram", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HertzsprungRussellDiagram"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HertzsprungRussellDiagram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HertzsprungRussellDiagram"], BoxID -> "HertzsprungRussellDiagram", Selectable->False], "[", RowBox[{"{", RowBox[{ TemplateBox[{"\"Sun\"", RowBox[{"Entity", "[", RowBox[{"\"Star\"", ",", "\"Sun\""}], "]"}], "\"Entity[\\\"Star\\\", \\\"Sun\\\"]\"", "\"star\""}, "Entity"], ",", TemplateBox[{"\"Betelgeuse\"", RowBox[{"Entity", "[", RowBox[{"\"Star\"", ",", "\"Betelgeuse\""}], "]"}], "\"Entity[\\\"Star\\\", \\\"Betelgeuse\\\"]\"", "\"star\""}, "Entity"], ",", TemplateBox[{"\"Alkaid\"", RowBox[{"Entity", "[", RowBox[{"\"Star\"", ",", "\"Alkaid\""}], "]"}], "\"Entity[\\\"Star\\\", \\\"Alkaid\\\"]\"", "\"star\""}, "Entity"], ",", TemplateBox[{"\"Proxima Centauri\"", RowBox[{"Entity", "[", RowBox[{"\"Star\"", ",", "\"ProximaCentauri\""}], "]"}], "\"Entity[\\\"Star\\\", \\\"ProximaCentauri\\\"]\"", "\"star\""}, "Entity"], ",", TemplateBox[{"\"Sirius B\"", RowBox[{"Entity", "[", RowBox[{"\"Star\"", ",", "\"SiriusB\""}], "]"}], "\"Entity[\\\"Star\\\", \\\"SiriusB\\\"]\"", "\"star\""}, "Entity"], ",", TemplateBox[{"\"2MASS J0523-1403\"", RowBox[{"Entity", "[", RowBox[{"\"Star\"", ",", "\"2MASSJ0523Minus1403\""}], "]"}], "\"Entity[\\\"Star\\\", \\\"2MASSJ0523Minus1403\\\"]\"", "\"star\""}, "Entity"]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.769195544774838*^9, 3.7691955509434547`*^9}}, CellLabel->"In[3]", CellID->591387514], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztncuPZMd15mvGm1nOcrb+L7yd5WxtzJaAaas8s9FAsgFDXomAvBQEG9Bs DK+0GEALNWZBWWCLxFjspmWy1earq5vdFNUmpe6qzKxH1qOrWY++8/l+yONT EXEj770Z931+IBO3bt5XZOf58pyIEyd+//X/9Yfb/3Fra+vP/xNe/vCP//K/ fvvbf/ydP/rP+OO/f/PP/+efffMbf/rfvvkX3/izb3z7D17/Pez8L/9ha+t/ 4P9/284MwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAM wzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAGxbaiqyv0h0pNKNNw513nyLW3 8w9I+yE3/U+2fZNG72W0RtWv8dqLDPq7wYcv34TyVu9vlLyRLzvD0o0272K0 humGJq1uBN8NCkj8IqYbRt9IpRsj8EVrqF+8yVoi5LB60lTv3PLXb5rhfiuM IOZvCDXUr5K/IVZfyfxNN4weYroh1PM3Sh6wSf9G8DUVphtGPTYPMUYWpBTt KXNW8JiIVmyoPJvTTow53C+GYRiGYRiGYRiGYRiGYRiGYRiGYRiGYVRi2zCM zejaiDtgmq02jFRM04Km2WrDSMU0LWiarTaMVEzTgqbZasNIxTQtaJqtNoxU TNOCptlqw0jFNC1omq02jFSM24KKBprH3WrDaJoRW9B2cfGW5K1+9erV9fX1 +fl52ssaRj8Zt2407W+cnJy8ePHi+Pj46OiIe7BxnIO3Tk9PISaXl5dJ7mUY /WHcuuFs+G/V5uuvv4YgXORg++zs7Pnz57u7u5CRr3Muc+CH7O/vHxwcUE9w 8NXVFZ2TDR/AMDpk6Lqhn99xMJrTDTgSsP3lcgmh+F3ObxXc82wFRANH0gPB NmQE29hAUPPy5UtzSIwhMmjdCKqEbDekGxSN2WxGffjqq6++/PLLf73Jlzlf 5YiYQEP29vZmOVAPyAV8D1wQ27gmXBT4KrWfyjDaZLi6EREHvTN5/wZcBXgO iEqgBhCHp0+f/ibnC8VvVuBdLSZUEu2QwGOZz+cUELgfRzkIZ3CL65zaz2kY zTFc3SBx3YicVXtGMOMOmDwUAGpAxfh1zucrfq0QMXma42iIjmugIac5EBDo xmKxgCuCbXaMgCwfuKn4CfWLe/fuNXRwErYU8cNqvDUmJqsbte9I3YCl09mA IEAonqx4nPNE4YiJeCNFMgKgIfBnqBsAt2Nfa5aP17zIwTa9lBGTVjf4cZ3n vFDAqeNnm920+nriYLoxCDrRDTgA4m9o3XhcgC8jjjfiyEjQFSG4tTzJ4eEh u1thERy7IbWbRu6tyJTl6g151zkl+KdzvH9Y5Ej9GP5Ng8iHAD8Nr/hw8BEt c/APV3QW1JjdTUW6oT0QxyFxnBP/rKLr6INLXrw/jEY3snUrFxedVRV+FWHC MG3H36BKfKaIaIjvhwQ1hK6IHql5vgKPAevAbyW+8HRO2D3CPfx5rdpD4gtC Qxvlb1EkF2waW4ogDg2XESswn8/pSICXOZAOjpU/95jNZuxN2roJb9TahiMR /mH9Yei6UY9NWs1vKeyUgykwcPZsBHUjoiHBWMaREb9/NdgxAmApcD9gO/xt FT8EO89XZOVkJOgexDeKnIq4blQ6S7Y5bI3moLHiUYhTgZ2HOZACGQr/3QrK r/RO4xgJBhGw4Jq0UEqu7wNE3IOS4lDm4Mjx/cF0oyr4rp6dncEAORQLQ5au UfE6iqRjrZiInhSFM1pGvlyhU0fYNyIDvrAgPKrEL/xRBrARtCLSzEicUrTh nJtwA8Cu8SeeHDae5QIIlWAz93K0RGh9kE9JD2xx7BucKXALWCg+GXxWUKfI z32lt2pcJ+h+9ArTjXrQ9cXXFd9PfBX9gKW8dKyNaIqCmvhor3ZIxCGHpTCQ h2nAa+JPM8QEZoi3sF/7AJSaeC9EcGdJpyLyFrXu3k1ozjB5RyK0Psjn8HSF fEryoaG9aCw+4Z/97Gc/XoGdkA79E6/z8SLdDkUuhP/W2j1lju8JEQsace3i JC3CNw3SwQ5SZ2wlHrCk1RDdN6IHa4IZaFpJEOlLRAOTQXPmOYscWBa7SsDF iqzuQOrasxgaMGkfnyoz8/EwnOaDh6RH4QiFSIQjDuTXN8Enhp3QSVzz/v37 d+7cwdXofZ2uoNcBlwPCxfbWJuJmjIC4brT5JE1QpHtJmsbhPHy98X2WHDAn YNlEPdbqSb3uEVESJzEeSqJ1A8DEOMuGfY/sG4ECaMd+LXQVIgfwUhzs4MAQ pAN/8mHwVHGtcCRCfxRPbsIPDfpzPwdywX87qqioB9uFZ9g8766frkISiixo HM5GpHVJrg/pwBeMaWBaOiIjLA1pSEmfRCtJUEycxHhGNxwChsXhFWECNYS8 UpT/3OQUuQ5MWAY7tF8h0YcEHVooiiQiMib+4MGDDz74AA4MGoLD5JN0dIPd yKPPkKlNGcsaqHS0MI8+y11rUCQd8nVtQjpKakg8tPFlJCIm4pw4c/fkV7sk +ixnYqDTkxmRizIqUfSJ4b4UDfkATTfK4LsTkdTr4eqGs+G/lQSOcjKpwwlY QDvSoU1A7qVlRDbE6Mr0k/iS8qXiq5v8tjT6LL8/0+ms0EKBV6dFTktrf2KO brDigc0PKmLo/kaZvK+mdSPLpQPfN3gdCMlpF/IrmaSnNAnBX+Qiz8SZZVOk KiIsNdAXcToz/QCkpCPh8/0fvfvaG29+54dvP9h5VPSxsOGcQ8TUDvaxpP2S jIky4yltPk8lHH9J789a9DcI8zpkij1/Q+XnsifSIRQ59n5Hwec3+XWIL2rh DHYEOytqywV5//4DiAb/u/3uh0WfA26EZ4B84Z8Msr+3tweXAx5I8i/JaOiz LMSJiIMTfBWd2wRMCcMXjzE7J8z2UzocyiuJLyYbsrZLc5N2fesHtyEar3/v px99shNssu9sHB0dLRaLoU89bpTh6gaJ60bkrOa8KZbOQMDizLUXG+mzesQp 0pZUNPHMkIufvHXv/kc3RENLIv0liAZcRIgGFOPy8tJqKMWZrG40+Ex59VG8 4hvoZIXR8WjUTLqlK3Go8ZDiOIlowD9EjHlxcfHy5ctGvx4jwHSjITiQh58t HbA0mhVmlMEXDenWgMgjNtGVCowiRqMbWVvz6MsD0eCkD11U0M8KM/VoDfnA pTuXI8v412HKKDNFW/huDJ2h60Y9Wms1F2PCKyufS3eHjCCYdLSAfMjSoytu BjtC4WlwPr5FKCUx3WgaTjWFA+xIh8QsphuN4gQm0gsqorG3t5flZT3M0yiP 6UYLiHSwmEzR1HtTj7Q4iuG4GcyZn8/n+KfJVl3ZRklMN9qB87K50kFwkKWr 7o4+D3zUQIckjo/huBnPnz/nKjY25FqDKehGO/mia+EkqYODA1btcGKW9lM7 fKEI5lwNSEP8fgz2f0olAenNQMzISs7mZtRj9LpRcsZKa7A8Kb6u+OpKzOLn lDZnqhxwDM5j3VUE566W54mabdo0jvRpH4NRidQbebZa6Ip1RThWbtRg3Lrh 5KI7+7sC31i4HHiVxDDdU9q048GCV5rTKCdRjgtAK5p4eI3jJmkHg4rh+BjQ QK5hkeVD5JZGvgkj1o2W57VVAqJxfX1NE2NimCwZ2XRnqZQmJltbW7pKHv6U 14iA4ABHQLCnNd3wvYtgSKKrD0Gi4elxznKWDX7Zu87p3II2JJL31f+KIizd CaNjd0c7PaVaNygaVAmCbZb1PrvJWidEK0lzuhEJSZyohD2fLFOW5WtUQah1 qeEgrNjMKCarvvrMdOiJBdUjPo++6M/gnq6AdCDKhnpwCm0LPaWiG1QM0Q1W ++RCAFQP/ikbhBqivRR5S8tI2oJFRXIhyRiyMIT4GPP5nHWVs3K5GYgc0XAE MtANWW7mJF8wwpwTn/5YUFXKzKMP/hnc0yHsJuVaTn6J41SOh4T8ohu0fb1u CBWDr1z0UNZs0jKiAxkRENngxXGvMhPk1+JP3tc9GGyRlgtWV+Zi3GgpPtV4 7VN88ngXR/LP/f39vRVc5hs7mXvTyndhMPTKgmrQw3n09WABbfzeOZNZNpQO XGE2m0m3AywaAb7ohgbiAHMLLuQBq9GHOX6IBDg6kOEydpGCPCWRc4NyoUMS LnyZ5WbObJmIsTMA4fJ2dDA4vCUlkXWNd16zhe/AgEhuOGKM7Zhkb+fD1kCm 0KbK7oBZwZQQ2n/66ad37tx5O0cWJXH8DS41u6VWCqPXQceDi4lgAxZHeaFj 7wsIkUqJwTKAwTJfWh+cSmK6IKGWCxlXZRgCHcDTrh1dxcEn+SKYJ/l6slJB Xa+zIAvh4S1ZUaXpL8CASGtBWjFMN2qArzR/LllskNJRz/HAuVyu6K233vrl L3/56NEjdgJwHFbcAynfvZWvULZ1c4VBx/1wlIT9h44rQtjNq5c78WuKOssk aYlwKpfqBaSkjjpMno4Tm5CV6MbkIvWs6MhIRC+4oJ9QNIpTZbOVqhtkNLqR 9W8efT0kiRFGrYdoq2Z3wKxgGnAwcAUG+1xNSfeLat1gSknJQJ7WR+ngmm7c w597IMurOau16mUOnErmRfXSnWXmcGWaP7PEy3Q+cKEWNJNry+IKejknKaKu 3SFdlwMHM5bZ+N92PDQUp/TZMLN+60aWf89ZuwP2qHtKq2Z3/PznP4eNQDRg HbIzrhv18q4pGjhdr43IxeJ1N6Msq/RMrREfRBJZOZAKoHh0J3AX9mOUWYeR krJcLukFydqy/EipVBJAOeGSzICjbtg0Fk3PLaghBtFqdu7BTPjjKL+M/EEs GbDAUnCW3uPohpYOiAbDkA0fm1VHcE0mWen1HHFfrmR9GIUHyLNxOWkua1K+ RAZblOW64SwZqX0Mp+4rNVmq+licEmQQFpScobQa9gLDyfK0JSetVGKWqv2l 7OuTCSn4KZ/NZvg1R1yDu8A2y+RHlYQ/9xcKJqscrNgPwbfY78qz8EiV1IzP D7lgbXk6OeJjOEGfP0b8ZLUsAisVU/esX1STyoK2QyS5chP0+dkcYC+n+dLw eHViFr+ndO0aQ0Ssw3HIOfIIY8e9UklHkFcl2OTKEEC8QgxFMaTnM+hj+KKh l0XAZa3oqEMT/aJNXLkeRfLVh2erBHPD8KuHX0/xtJ0h2g/+ZSe+xlCRdPhF 8/BLzZ/7rttdAfbKMh9DRle1j0GllRCvKA+Nnwk/EC6LIPGOIYxYN4JDtEV7 +g+HaLmQetEQbWSNoSLpeJzPJNVeB2wN8QsMkAMlXbe7LHQJ8NhSoICDMjLg 61SSdyK7x49vFDnnR4HrQIvgvXTduN4xhfGUcehGlscscAPgeyBsCQ7RfvLg 0a3bv7r/0U7J7g4/YJGkBZgM87R7Lh0so8GOIBlg1T2fMlAS6Ul2PgeJUCDR EI0yAzdTY6AWVJ5xxCkaZqQ74yy1F2fRJuOsJ4KLw2rwO85Uja7bHYDzUDgD V5d9ppY6nZ9x0dB+F7tDOYzSc9nsikFbUFYu72s0/obwMgfuBwsd606/GvNZ nNDe6SnlPHSOa3Td7n+H3baLxYI5sdL5WbSqZuRz8Pt56G6xW8NmtAVJ3r/R 5niKvovftTKy/g0H8QE4n0VbjfT+lXc8RDecmEV6ShEFcFS063b/W34IM8qy 1UqakQHWtc1/rBI2tFrKmlldN7enNGdBTdtmRBz0zvHFKRo6HkwrDU6Fqx2z 0M/XgyyQDvy4Nzo+uxaIBiuWLJdLyePSnZ/l3Qy/vbK0NLy4zObARhmubjh3 qTqvrYf9t/WgKeHVL9/hGFEl6XjirblM6WBlm06SoDgV12lp7fXvikQDUY/4 M0YRzcUpCS8bv6OzkZXTjQafqXXgTjO7Q36F6XhI3+AmMYuT3QHdyFapmG22 Ea2LeFZVnStfGzkADU/DprCVYegWZLpBOCuEK5xGLKuS46FnauhBFkgTlytq LfznoAbM2XEzag8hOT05dKjgadClaadRg2boeV9lxlPiZ40JGDL7H2RByXpz 8D+7OTqpB1lkjJJOTgvScaqWyHQSM+7du6djk3i7cPBnBTn2THWD6lqfRklS WdB2iCRXboI+P9uGcMhjf3+fC0pKmfR6joeOWfxBFpa/aDRg4bQ+Fm2WNaqc JblLuhnQjaATxbxQlk+0yWslac7f6DNDec7aSO6BLpNer26YIx1+TykHOJLn OeCCDBlY+ozqd28Fn59SILJA4n/iRNmWVA2IRv8zY3tFQn8jaz1/ozZ9frZU sDAv/IH5fP5MLSi5SU/p56vFSli7j0ZXvopOJVjUC6Ih0RYsnaKndcN3KvwN Pr+Ihu7TYDr9sGbi9IFxW9Do8zfWAn8AvjdMA/E7c8P0zNB6joczyMLiwFm+ 2kiSZ6bc4ZWp49JFI70Z4mZo3fAdDK0bohi8DmBBnsPDw8HN/O0D9foVB8G4 80XLwwKAko9dezlakZeidHRY+uZ1KjgMKhGWzkXRnkPEu9Ab4mbwdD3kij9Z PcxEowb1xjHjF1yrP98NUfuOZR5p7Z7RI9PM490dtaWDyQ+4/ibrvLMmsxOe 0DtiYBVxKvy3RGTYG3zvJrLMStKPeSqk1Y0yJxZJREPSMYI4BV/yJNeBOTOW Z26Yk2xZNTdbp6NLsiULdzC7o8YTItKhaFDcKBoyBhQMT9ZKnO6TkYxQKIYN uW5C+7qRlrVx1gh0IyGsGIzX/f19ZwJpDfXwrZI9jRwFzip2lrJPw1knl08l t9MeRRlxk64YeTyIEj+Epj7iUeNHE6l0o+p4yiZxytrnL3qGznXjnkfwXfkz uD9+StE14QzgZx0biFxgodiQcIAHyFCL4/nriEBsk39KtrbklMrUsKurqzLL IeEYOCrSpxF0hNbKhdYNvxgRn4rDuzY7fkOS929UQstFVemQkV/9p/NWkYL1 QTeKNsoc42tC1ROxwcKD2ODvOzYkCdPJjgj2J3x2c6jC+WVnYtjBwQF+2Vln L2iqEDGGDKzWFVwppoZoPL45YY3dLxaeJKTD8RRfKGp4HfV0r/Mkk7gURPwN /2B9inP6Wt2AtWJjPp/T8RCK0iSCvod4KcGYBdZK3YA7cebBBdSKsuJLDhAH RcPp06CnYaKRirSGs+0ROVhUwt+odEdnIyunG1VvlJaSLsHajeBly7su+Lln 5ALH4F6e0sAYgZa71vGQP/VPvJPdQfXg6sycfMelCriN++pZeBuKxmc3i3eJ aEAYJfvUSEJy3XC246Oxa/eUv+OYdKOqv+EcX3UPUyWpIYTdC4w+9EDGZ6p/ w3E59DiLLLHKeXCyxqus3kioGPH6fvVEQzJCcWU4PCcnJ7ZKY1o61I1ss/6N 4B1Lhh6d60ZXFDkqUrBUanXqhKvyNff8UVr2eOgF5fUC07JafY2JM8G7O90a TINHNGQT1tKS3IK08Za5eAt5Xz6mGz5SsFQWhnMGQ+sleOjl3akhGj0EnEQ0 tJ/Deuws+GMDKGnpgwW1LBpZP1rdQ5jjTTYpWOo7HlpANFox6sUmvm7InLXF YoHgyyasNUEfLMh0o1dQPWSRBU6k3TBmEfXw0RfcUDScCCXJfBkjSKPjKSXP Mt3oG6zlBfee4x3OCGm9afhxasiFvr7THco6qJ1XXx8xTfSLlu/cIC1Paiva aWggHVzY/ezsTEtH7UUWggKyiVz4ukFngxPkT05OmOtuNEH7utHmZNgit8d0 oyQXFxdSsFQywHXMklYB6uE7G5zUb6smNUdDFtRhKqaD6caGUDfw2w3PP7iY NX/uu1IP3vfz1SLyeDZ4R0yFtTGU5mjfgmwe/RBhfRupdVxviLYh3dCVQGRB WxtGaZTm8jfimaKpQpW1eV+mG6lgEU78iOulnbqVDnE2JEiRKutdf1ojp7l8 0RbQKlGUZ266kRCWHIR6BEsOth+tyAis9IjiqbJ0lU6NIoarG07vq+lGO0j9 T0krTZUoXk83nqil5PEwiKRsHfkW6EP+xoZ3dDayEo1q+SFHBueWwjbPzs4Q s0Qy0tvUDY6kQDS4gq3RKMP1N5w7VtWNBp9pMnB1aae7o3a9nUrgFjJjTmbr I3qCL2RBSguYbhi1YT1wpodtuCpcVTjR9SSH5cIAl7q2EuUtMJo4Rd+90lnG JnABd/7K+9kdG85WK6kbWys4rcZ0owWmaUHTbHVDMDMTP/ecRasz0jef6LpW NyAX4m9g23SjHbqyoG4t13QjOVyXGb6HvziLrvvXkG6AFznUDezkU+kN0t0n NCo6tKAORzRMN5oABstF0IKLs4jjkVY3dJwS1w1nw9iEPlhQ++rRh1aPEq7U Bt1YLpd+4dDaMQuO56oKxyu4Lf2iDFUkTjHdaJr++Bvt54wZDYGA5fz8HNIR LFVadYQFp0CIoBK4zv0V0CInTqFu4NaQDtONpkllQdshWrhvPUw3moa64UtH 1cQwHEnX4v3333/rrbdEN3DBYJzCBRzh9jgdGqYbaelDv2iHWR9Gc7BGOqxb ptDK4vLlpYP9GHfv3v3444+PFTpO0aEKV7+1PPOm6cRmK3kmSe64do/RBBxk wcbu7m5kCm1cOt57772HDx9CJebzOU7ReuJ3cYjLYQsfNEpXeV+tWW7wSUw3 WgPSgV9/OB5cTVL3lErJ4rh67Ozs7O3t4XR9jKMbkjVqutEOwXzL2ma1XaJO oLzbgr9R9CSmGy3D7sr9/X3mlDpeR8kC6fpP6M9iBS57kHN4eLhcLiEmkA6r 29MoafsZyuhG+5hu9AG4HPABYOYs3MGeUlk/RQ+yfP9H7772xpvf+eHbD3Ye xUMYkRSWGJXZ9AiL2LvSdaNHix4GTfjr30KvRXmCutFO14qhYV4WvALJKfVr /rx//wFEg//dfvfDkrohJUa5eAouzuUdu27xaNG64e9s+b5N3yuyx2gHSAci iKOjo729Pan54/SUfusHtyEar3/vpx99slNeN2QpBLocs9mM3R1WnTgh8R/c 1my5nYjGdKNvwBmAOSOaYE6pk9rx8acPb93+1f2PSomGIx26hg/9DYtWmiCt v1F1PKWrnhDTjc45OTmhdOg6pbWn3ju6wWI+uPLFxQWrGnbd3LERHE9JfuX4 AaYbE4TFBvHKFZ20dOj5s+XVw6ltzjURnj9/nuVjwV03d2w0PQbaT/r8bNOB JY6xcXp6qsdna9f8eRxaXfrw8PDo6MgySNOS1oIqjVN0OKJhutETrq+vz87O oBtff/219jrqxSzUDSdaocuxXC67buuo6MqCWh6+idzd6ByoB3QD0QRnsrDm j8yfrRSz+B0duCBcDsREFq0kZPS60dWAkVGJy8tLOB4wbV0d/YucSvNnnTFZ jq0gAoJLI2tkG5uTPE4pf9kW4pQOB5qNqsCoEU3gtWhhhZLlwnQHqaRzwJNh QSEbW0lCE7rR1ehqENONAXF1dcV5JYvFQqqjV12CVrscOPHp06d0Ofb29liG tOtWjgHTjTHhV9/1y9RULVyzpUjwiOtgKAHH4OTkRNaRrDHI4oytSCYYohXL BNuc5BZUPlSpN0kkknASzDqbjm7E5aJvl40D6+bSBv7CCiW7O7TXwZXdOG+F SzZYtLIhabO8quaL1rhLUBAiV5umbvg7xWGI1970/YpOdCPLpYPq4XR3lKz5 I7qhk88hQbgaF4qyAh2b0IfxlEqnmG5EiMQpazeKNGHrJg09eRBmiQO/5k/J hRX8jg5cZzabZauAyKhHQ+MpZY7cME7ZZCS33q0HRHm5yEI+SfBSWbv+BoF1 s0fi4OBAFlbQ1dHjjoczLCtJpEdHR8fHx+Zy1KaJ/o1G7TGVbqR8pi5YLBaz HClsVc/NyDw16EmcomFW2OHhoTMJrswgSzCJdHd3N7Mk0g1owcCD+zv3Nyod 3yvws3vr1q233377/+XAlOStSnGKc3xRJNJVkOLw4sULSIdUGqy0Jktwlj1c DrgxFq3UY7j+xib3Gq5u4Gt/9+7daaZMs2qolAuTwh1rAxa/sA/HVnhBm/JW A9+CNjHMqp5DV50MA9UNiMb777/f9VN0CXPFr6+vpdKgLx0Rl0PPsufYSpZ7 Ml03a3g4FlRjoDPJfVtmoLqBr3rXj9A98BAgHQgxuCZLMGCJj63oMqTz+Xy5 XMYzwTaM1DaP7+rdvdGn9cXBdMPoOa9evYKTAK+DRUoreR1OtPLs2TPGPpHb ddszXPvujT5qJE5pWjcsTjFqI+XCIB3idaxNCfNn2bOCMcuAFN2rqJ+5aNs5 2DmsyHuJ9EsXPVVRF3eZP4uaE1ebiM2Oyd8oEqWh6Mbf/d+PXnvjzTf+/u7F pWUaBDg9PWVfR9EIS0Q3dLQCl4MqFLxL0NLjNljmgCxkpCV1Y8OLVzorSHLd EFONn9KC5QYb0trdN2d++EJWEnn4m0XXj9NHYOlcnU2msfgLsqwdW+Es+8vL S5ZK9u9S1XKLtteeUt7f8KWs0sUb1Y2s7nhKSd1oLU4ZqG6Av/zhP0I0/uSv /+HsfIoDr2WAvcPYmRIGBZDVWCIdHTr5XNI55vM5riMZpBcXFwcHB9yu94tf yUhLeiCpfIkmdGMTyutGaww6ToFc/NMnvzs6sXnfMVgDkNJRso/UcTkQ6Zyd ncFv+fDDD2/duvXjH/8Yr3fv3mVWWFw3sir9G5GNIn9DvxvZWXTNoouvPT1O cx2eaS+rr190r6APM2jdMErCDK79/X29kFO8o0NcDkjN6ekpgpRf/OIXDx8+ jHSQGkJXFlQvTikShKIrVN1vDBfW69DDK5GODslLZx/pbDaDaMDxgPggVLHk 87U0EadUvXLJI53wZ+29yowZGWOCmZ+6jzRSIkzrxscff4xtnH50dATHw6pz rCWVBW2HaOIZKvkbkYu01itrtAaz0KVKmL92ZHBsRTpImUX2/PlzeB0WrcRp zt9Ye2Q9s02lG5WON4YCTB5uA2uTlikRFhxbQdjCkkFdt6a/DM6CTDeMOC9f vlwul3rtSFnsXro1vv+jd197483v/PDtBzuPHhdUML66uprmvOMyJPc31joS m0Q02eTn0Rtl+Drn4OAg2Ef6wb/sSELd7Xc/9JPPmUSK0xH12GzZIM1ZUJ9t s8/PZiQB/gZei+bMfusHtyEar3/vpx99siNOiCzxJkmk8DogHRaw+JhuGKPk +voaroJe/U28DujDx58+vHX7V/c/2vGTz7XXwVXejo6ObN0Eh+bilISXTU7P H89IwtXV1XK51MtV+0kd0k3qSAeOpNcBjwX+RmTW2zSJ5zYMRQeqMrLmGEVw 4Ujf6/CrkopuOH2klA56LyYdgmNBjkTUG1ftj9QUPUYfns1oB0gH6w87pQX9 cug6idQZXuFqTawz1nWDeoGvEnqgsz8KUIPgiG3RHmPEcI48AhZfOnQ2qdaN oHRc5djgbNZdva82Md0wuCwsBISppAxY/ET0iHRwhGXig7MRX2JDx75vLorF KQahq6ADFskmLYpZfOnAiYvFApearHSQtP5GCy5KJO+rqHfF/A2DiL0fHh7+ Nie44KwvHc7gLLyOiQcsJcdTalytCdt0VCJ+L+vfMHxg78fHx9CNk5MTZ61q Z/2mYMCiU8K4cO001SO5BTUXp/jdts5bRQ9TdCljslxfX9NhgHpARpbL5dHR EcTkIGdfAWGR5WW/yJFE9NlsBt3gApRdN6htBmdBSbptiyIaYzqwPg/TyGH7 LPtzmnOigGvhBCyUDhlkwfEXOV03qFUGZzWpdCPlMw2TYM1J/5jIn8GLFO0M XidS97LMMWsbGHxa/yJ0G2SPlg6tG7qvQw+y8MhJFQpLa0GRLoVGb2G6UZWg XATN0zmsSGeChW2LTDtyqYhSxR/Av0XwUs5FYOzYhreAV3E8KB1UD3gUfl8H vQ6ZAcd59xAf5qYWPdKYaEI3nI6ItGzSbRu8iJFEN+I7g8cELx7xJda6Q2Ue NfjW1dUVvQVKB/ZIzALdcIZoHcdDBln29vagPxNZ4H5wupGEPj9byxQpg2Nf ETcj+MsejyMiuhG8S/DP8nFKmRvB2F+9esXLvsiRQseS3SHqoQdZKB3s7gA8 kcvXxh9v0MR/vmv8oLcQqmxOn5+tTdZ68n5vQHlnoGinf/HgkZXineCzFT18 0WFZnpHOPRKzcJyFQy3QEEiE6IaOWbhkJMdZlstlltcOGrF0RLoLmk7G6JCR NaceRaZa3t8ovzN4TEl/I+J4xF2OiJRFbg3p2Mp7PCgdi8UCavBlDqudQz2e 3ERnd1A6EN1wreqx1vyJpDfU041BDG72/PFaIPjjW7QRcQaCHkiRWxL8rY/v KXrO4PWLHrLkk+s9HFfFKzThnXfeeTvnJz/5CZwNSMd8Pnekg8nqTkY6RWOU pdEjuZQ1dKOfLorlixpVefXq1eUKiVmOj4/v3Lnz6NGj09NTx+v4PMeXDrgr iHG43n3XbUpAUdZTkeEPVzeCzk9Pns3oOVAPDo4cHBzMZjPIBdTjvffe29nZ 0VNafOnQ9Y2hMDhxf38/W/WfjICIpVcSge0QaR+1BkUjO314NmMQcIgWugHF oHTA6/j0009/k8OhFhltCQ7R0vFAaJOtVobquk0J0FGJb/L9UYAaREZ2Btoi oysQZUBAEHHAbXj+/DnXkdRzabV0iOPBtFJxPJ49e8ax3RGUHBycBUWGiYM+ z9pwzDBKwh5OWD0LHVM9pP6Pdjz8mEWS0iE+uMhyuYQbM1z1SGtBTccpjkro /fGz1u4xjDLA8UCowsgFIvA3/+efXnvjzb/63+88+ZyTZb9wpEN3lupRWgQ7 2WqRlyGSXDey4l6FhBfPTDeMjoBocHzk2Wwp67794z/v0PGQsMWBjoeeDTeb zeDA4GpDnEs7IN3Qt8iq6EbwIr3qvzWGBeILpnX9xd++w3XfPv/iX5keJhWP HfWQ8h2UDjoeu7u7kKDz8/PB9Zc2Z909142Uz2RMlaPjs1/cf7p/dLZYLGSJ FsQjTqeHhgMxjuMB3eBA7VBS0wdnQaYbRq/gHFj4DMvlEgrAeul6tMWJXHRm qe7xoG6cnJy8yum6WWsYnAVFxlPqXcQwkgCTz/IxF462aMfDiVxEOhzHg9XD 2HnSc+mYpgVNs9VG07x48YJDJAcHB0zzkE4Pp8tUS4czUMtlrCkgXTeokGla 0DRbbbQA89IRdHAurQ5bRD3E/RC048GwBYEPdaOfoy3TtKBpttpoDRZLZ5bp 7u4uk8R830OgmDiOx97eXpbX8bi8vOxb2DJNC5pmq42WgclzZhx8D7gQju/h OB4iHU5qOkKe4+NjBC9Zn0Zbxm1BRR2n42610SsQcbDTA7Y/n8+dBHVqRVA9 JM0Djgez0/tTCGjcFlTUunG32ugbjDKgG8vlEsELdIADLjJcK/0eGjoeerSF otGH7PQRW1BklHbErTZ6C9SDkQsEhF2moh5Pcxz10BlinI+PU3AiToeAXF5e dhi2jNiCghliRXsMozW4tjVeZ7OZZJlGfA/teDA7HdIBCWLw0ol6xNOoejiJ I/LARbNOTDeMvgGrR7jB2bUwf50qJiO2WkC04yEppgcHB7jU8fFx+6Mt8bTt vtmXoxJ6f/Dgonf71i5jgtDYlznYmM/nOnLx1YPS4Xd6nJ2dQYWYrdoaEYvr m7MhT6X/9LedU6x/w+g5zOyC4WMDMYgTuUjwIoh0SKcHxQdXuLq6amdebeS3 eJOJY82Ral5bryTRMGRaChSARYEkWyyuHr/NgeCwhCmDl4bWmiwynP4PXKbS jZTPZBgpkMgFoQfchv39/Wc5OtdUghcnbOEatTKvlktVNtfvEbG+cfsbKZ/J MJLCcIMKsLe3x8hFck1114cjHUwxBezuOD4+bmi0JT4Y0UNnPjKeUu8ihtFP uMIsfAaIwGKxmM1mTuTy1EN3eiBygW5AfzhZJu2zTdOCptlqY4hAOqAb0BDo BlM+dOTiCAj/FPWAo8LJcXBduBBMqshlmhY0zVYbA4XGzomxR0dHeJVZck7w 4ksHwxa4KyyIyjrqm6vHNC1omq02RgBcDgYdy+VSd31I8CJQT6gtemotHI+X L19uWBRomhY0zVYb44DV1OF4QEAQwuiEMQYv4oFQPZxOD0Q67PTYZKnrcVuQ 5X0ZY4Xli+E/wItgXUGGJLpGkEZWquVwLefWnZ+fQ0BqhC0jtiDLMzemAN0G FvY5PDyERyFdH456UDp0pwd04+zsrEZRoBFbUGSUdsStNqYJ3Q/oBsyf6187 AqIRx4NZppwgA/0pXxRoxBZk/oYxNTjYipgFwQteT05OGJWIgGh+l4N3d3OY ml6y02NwFhTJ+9r28E8p2mMYY4JdHyz0cXl5yUIf7P1gB4joBoWF6gFHBerB dSfj1x+WBRWpQTwYMd0wpgldCHgdEBCowTyHAiIawm3xOhaLBVwOzs2PXHlA FrRt8+gNoxbwHyAFEATIAjYQwtAD0VA39vb2OK+WGWJFDM6CUs1r6+HUG8No Dg62ImaB+8FiHVmePEatENEAkJT9/X0cH+nrGJzh2HxYw9gc5p2yQikkAn/C zVjkQDTwmq3qoAYZnAWZbhhGKtgBcn5+ziKlJyuur6/hbERKhw3OgmwevWEk h1HM1Yosj2gix0/TgqbZasNIxTQtaJqtNoxUTNOCptlqw0jFNC1omq02jFRM 04Km2WrDSMU0LWiarTaMVEzTgqbZasNIxTQtqHar2/+4OvwH6uTWE/mEW7tp 2htF5opOAdON3t56Ip+w6cYQMd3o7a0n8gmbbgwRv8KPYRiV6NqIDcMwDMMw DMMwDMMwDMMwjPbw+4eLuov9/WX2xG8aeYy0d/QfIH6Fhm7dZhu7vWlW8CFv F3/NNrlj8hY1/cBDZ9uzl5LbZfasvaP+R1l7WO07+lcO3jeyM8mt6122Xhu7 vWl280P2L5L2jk20qNEHHjpBUdXvRrYTmpL/GC3cseitRm+99tNu9PvZsljp ZtZoeNXbxa9W6fpNP/DQKf9pNCrpwRMb/Xr7B7cmWVUvm+T72YlYtXnHtGbe sp4PmpZ1o+iATnQj8uc4dKOTmwZPbOKOLXxVTDc0Xfkba+00+R0jD1DG9xiu bnQoVq35G43+qJluBNleEdlT/siic4PX0UcGT0x1x+AzRB6muVu3dqPOb5p5 ltXoHZNfv52PyDAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAMwzAM wzAMI04nM5g2v+l3v/tdedU7nT2GYTTBEHVDxEGrRHCnYRjJcSZNF02pLjnb OniMf7yzLQcUneU/ti8RQQExDKMhgpabdiPVvQRHLvxopbC1hmGkwHcJalt3 0enZTR+j9gUFrRu+dJhuGEbTJHcPNjw9ckHB+jcMo1uKeiGycs6Af6mSrsja mxbdJSuWiGDYYhhGT4g4Ay0QVwbTDcPoJ93qRlYsDiYahmEYhmEYhmEYRg3+ P+NKuIo= "], {{0, 280}, {360, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{360, 280}, PlotRange->{{0, 360}, {0, 280}}]], "Output", CellChangeTimes->{3.7692079406062975`*^9}, CellLabel->"Out[3]", CellID->44718945] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "PageBreak", PageBreakBelow->True, CellID->236847550], Cell["\<\ Plot entity classes of stars on the Hertzsprung\[Dash]Russell diagram:\ \>", "Text", CellChangeTimes->{{3.769208033963632*^9, 3.769208044756711*^9}, { 3.798212600359393*^9, 3.798212603131566*^9}}, CellID->427089546], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HertzsprungRussellDiagram", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HertzsprungRussellDiagram", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HertzsprungRussellDiagram"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HertzsprungRussellDiagram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HertzsprungRussellDiagram"], BoxID -> "HertzsprungRussellDiagram", Selectable->False], "[", TemplateBox[{"\"white dwarf stars\"", RowBox[{"EntityClass", "[", RowBox[{"\"Star\"", ",", "\"WhiteDwarfStar\""}], "]"}], "\"EntityClass[\\\"Star\\\", \\\"WhiteDwarfStar\\\"]\"", "\"stars\""}, "EntityClass"], "]"}]], "Input", CellChangeTimes->{{3.7692079647717133`*^9, 3.7692079653167677`*^9}}, CellLabel->"In[4]", CellID->149804843], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztnUuPHEly5yntZY866qpvscfZ414l6CrosVPSXkbA6IW9UZD2E+zuabFf YC+EDlIDg2modSA0InigZhaYIfs5pLrrkZn1SlYVyapi6K/4I01W7hGeHh4e b/uhu5AVFc9k2j/NzM3Nf+P3//g3D3710aNHf/If8eM3f+8v/vMPf/h7//23 fg2//PYP/uS//eEPvv9f/8sP/vT7f/j9H/6n3/8P2Pjrv/Lo0R/h/397XRiG YRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiGYRiG YRiGYRiGYRiGYRiGYRiGYRiGYUyKA8VQZxgPjR4h5sGdvzp77r2cv0PeN7nr f7KDh3R6LaM3mn6M955k0p8N3nz8I8Rbvf8i8kK+7ExLN/q8itEbphuavLpR +ddKAQmfxHTDGBu5dGMGvmiC+oUfWUuE7JYmTWnHxp+/a6b7qTAqMX9DSFC/ Rv6GWH0j8zfdMEaI6YaQ5m9E7tAmv1H5MxemG0Ya7UOMmQUpdVtijqrcJ6AV LZWnPf3EmNP9YBiGYRiGYRiGYRiGYRiGYRiGYRiGYRhGIw4Mw2jH0EY8AMt8 asPIxTItaJlPbRi5WKYFLfOpDSMXy7SgZT61YeRimRa0zKc2jFws04KW+dSG kYtlWtAyn9owcjFvC6obaJ73UxtG18zYgg7qm7dkf+qPHz/e39/f3NzkPa1h jJN560bX/sZ2u72+vr68vDw/P+cWvLgswZ/evn0LMbm9vc1yLcMYD/PWDeeF /6dk3r9/D0H4UILXV1dXh4eHR0dHkJH3Jbcl8EM2m83p6Sn1BDvf3d3ROWl5 A4YxIFPXDX3/joPRnW7AkYDtX1xcQCi+LfkXBbd8twOigT3pgeA1ZASv8QJB zbt378whMabIpHWjUiXkdUe6QdE4OTmhPrx58+b169e/fMjrkjclIibQkOPj 45MSqAfkAr4HTojXOCdcFPgqyXdlGH0yXd0IiIPemD2/AVcBngOiEqgBxOGb b775uuQrxdc78FctJlQS7ZDAY1mtVhQQuB/nJQhncIn7kuT7NIzumK5ukLBu BI5KnhHMuAMmDwWAGlAxviz5YseXChGTb0ocDdFxDTTkbQkEBLqxXq/hiuA1 EyOgKAduGr5D4+L58+cd7Wz0yWJ1I/mK1A1YOp0NCAKE4vMdr0o+VzhiIt5I nYwAaAj8GeoGwOWYay3K8ZrrErymlzJj8uoG366bkmsFnDq+t0Y8phtNgW7A ARB/Q+vGqxp8GXG8EUdGKl0RgkvLnZydnTHdCovg2A1JfjTyfEehLFe/kL86 h1T+6uzv7xbYU9+Gf9FK5E2An4afeHPwFl2U4B+u7iioMfa8urqChkzdo+uH 2ehGsW/l4rqjmsKPIkwYpu34G1SJl4qAhvh+SKWG0BXRIzWHO3AbsA58V0I3 6JwwPcIt/HptmiHxBaGjF/GXqJMLPhqfFEEcbZ8jVmC1WtGRAO9KIB0cKz/0 ODk5wQ44Cd9Pk469TF030mjz1PyUwk45mAIDZ2ajUjcCGlIZyzgy4udXKxMj AJYC9wO2w+9W8UOw8WZHEScjle5B+EWdUxHWjUZHyWsOW+Nx8LDiUYhTgY1n JZACGQr/dgfl981DRJMhIJAdnBMnN+kIY7rRFHyi6NByKBaGLKlR8TrqpGOv mIie1IUzWkZe79ClI8yNyIAvLIi+Nw2BX8oApoGnCDxmIE6pe+Ecm/EFuL6+ xq+4cyhkUQogVIKPeVyiJULrg7xLeqBcRsG0IMsbiJPreNDwMd1Ig64vPq74 sPFz6AQs8dKxN6KpC2rCo73aIRGH/O3bt6wbgYzAa+JXM8QEloI/Ybv2ASg1 4SxE5cZIpyLwJ2rd84dgC24euuFIhNYHrQxE3iU9UO4PeGEHZpZwTvyzFmVA 2vJDMmMCFjTj3sVZngjmBulggtQZWwkHLHk1ROdG9GBNZQWaVhJE+hLRwPfA 46xK1iWQEaZKwIcdRepA6t6jmI1h0T7eVVbm42Y4zQc3SY/CEQrHeQiIgx4l 9+EOIh24EG4Dipr4yVgAYd3o8066oE73sjwah/Pw8cbHTGrAnICljXrs1ZO0 9IgoiVMYDyXRugFgOJxlw9wjcyNQgKsd1xHQVQjswFNxsIMDQ7BZ/MqbwV2F tcKRCP1WfP6Q6rEu9U6KdOCKuAEKZvvPySyps6B5OBuBp8tyfkgHPl0sA9PS ERhh6UhDIn0SrSSVYuIUxjO64RAwvvHxE2ECNYR8VMS/b3KInAfyK4Md2q+Q 6EOCDi0UdRIRUIm6d1LrBktocJ/hFNCSibGsiUpHD/Poi9K1BnXSEfi49qYh 4dDGl5GAmIhz4szdI/74Zh36KGdioJPJDMhFmkrUvYHUDVzCdCOA704ESq+n qxvOC/9PWeAoJ4s6nIAF9CMd2gTkWlpG5IUYXUyexJeU14rKAc0Y9FF+PtNJ VmihwE/niZwnTX7HnDiF49cWp9QxdX8jpu6ra90oSunAdxO8DoTktAv5lsyS Kc1C5TdynWei9SSgKiIsCeiTOMlMPwBJcyQi3xY++FflHCIOqTDHkvdDMidi xlP6vJ9GOP6S3l706G8Q1nXIFHt+h8rX5UikQ6hz7P1EQeXQQ0BS4qkb7AgE IB29D05y4/j4+Pr62sZhA4xZFsIExMEJvuqO7QKWhOGDx5idE2bHKR0O8Uri i0lL9qY0O31k39k4Pz9fr9dWMhpgurpBwroROKo7b4qtMxCwOHPtxUbGrB5h 6rQlFz0/CGWK/hJEAy4iRAOKcXt7az2UwixWNzq8p7L7KH7iE+hUhdHx6N9M emNU4hC+SXGcRDTgHyLG5Oy2Tj8eM8B0oyM4jwxfWzpg6bQqzIjBFw1ds4HY xGamxDAb3Sj6mkcfD0SDkz50U0G/KszUozfkDZd0rsxow78RV7WwHj4xTF03 0ujtqbkYE36y87mkO2QEwaSjB+RNloyuuBlMhMLT4Hx8i1AiMd3oGk41hQPs SIfELKYbneIEJpIFdWa/cl5Mb5+KqWO60QMiHWwmUzf13tQjL45iOG4Ga+ZX qxX+aYpdKtuIxHSjHyAdTNRz/qw/yDJUumPMAx8J6JDE8TEcN+Pw8JCr2NiQ awJL0I1+6kX3whYTp6en7NrhxCz9l3b4QlFZczUhDfHzGNJYQysG+zyzk7O5 GWnMXjciZ6z0BtuT4uOKj67ELH5Nadem6siFXwXaW6V3e/xnER+DUYn0G5GF rthXhGPlRgLz1g2nFt3ZPhT4xMLlwE8pDNOZ0h4cD9/E/Gkm/syRSp+kozuM fwq5Je1gUDEcH4Nth1megdjEysjbMGPd6HleWyMgGmx+C1gYJktGdp0sdZz5 L72loJz5qs5k9jG4Ir53URmS6O5DkGh4epyzXBSTX/ZucAa3oJYE6r7G31GE nei22y3THf1kSitFQzdId9pixHTO6U1AAiGJE5Uw88k2ZUW5RhWEmmsoBGDH ZkYxRfPVZ5bDSCwojfA8+rpfK7cMBaSD/WE4hbaHTClPqL+gRS50Fy+/W3ia hmS5+Tq5kGIM0T3xMVarFfsqF3G1GYgc8Q8h66cw9cEFI8w58RmPBTUlZh59 5a+VWwaEaVKu5eS3OM7reGjT+1J18JacIZuI4tsZLj07mOmGn9LHL3tn4Dr0 4X4Gg56Slgt2V+Zi3NANvKvh3qdcnQ178tfNZnO8g8t8YyNrb/r5MEyFUVlQ AiOcR58GPsDwivF950xmySsddbpB0Tg5OeGqRlz9TRpe4caur6+lNWjAD2kk IzHIsZVyoUMSLnxZlGbOapmAsTMA4fJ2dDA4vCVPp3u885w9fAYmRHbDEWPs xyRHOx82AZlC2111h+iG2KDM6sI3LISCTa7YV5MGxdl5kk6EvsGUuEqa74fo dQr8TqFfRaxpUtlJTKdttVzIuCrDEOjA3d3d3tFV7MxFMLmerIihXmdBFsLD n/AOcJJRx//+UyKvBWnFMN1IAB9pfl2y2SClI6PjIbpBC9W6wYrrOqPjdzdu j8udcBlWWe0d1qe/rP2Gw5U9RbWeCJWdS3XOVjIwVDkuGsWaz72mzUXq2dGR kYhecEHfoWgU35xip+oGmY1uFOObR5+GFDHCivUQba7qDu1ySOsJ0Y29Iw68 Q45NQD2gG7Df9XrNLRLOyJe4v5rz64f88iF+v3RnmTnYO82fVeIxyQfeMO6N URjOoJdzklyNdod0Xw7sTNcrxz/vTOgoThmzYRbj1o2i/JwzOoCA6ExpluoO J1SR/AasiSKQcMNcZ03CGXkKOAM6zShZVr1GfCWyIAtTtYDSVJSDI8xjxCxS QEnBXXFtOFlblm8plcovUBFnjG8OdcOmsWhGbkEdMYmnZnIPZsIvR/lm5Bdi csAiR8k4LL9VuRYbHPiWX6ycvkc7pYzo9RyhJFzJ+iwId4AQMQbhctJ40aiJ H1fTK0rdcJaM1D6G5GydpPFXuzWYLE7xmYQFZWcqTw174ZJhMCKnrFRilgTH 49Wriu6aHD6AicF5yDXbi1/3HxQsVjndsamCf2JBBY+ChHJWYPz7VpRywd7y dHLEx3CCPn+MWII4vi3UPcuLanJZ0EEVWc7cBWO+NwfYC5eGx08nZknOlPrZ UT27HMYemehI5mMEbc4MmcVPhDaiGJL5rPQxfNHQyyLgtNZ01KGLvGgXZ06j Tr7GcG+NYG0YvvXw7Smetj9EmyYdftM8fFPz637o524AhAIay3oMGV3VPgaV VkK8ujo0vidf7xZ8hPhIvGMIM9aNyiHaui3jh0O0+OKDJ183RNsoZhFLcbwO 5jpggO9Lhn7uWOgS4LalQQEHZWTA98uHneSdd8mJ3SRdDC2C9zL0w42OJYyn zEM3ijJmgRsA3wNhS3iItpF06IBFihZgMqzTHrl0sI0GE0EywKozn3oGTd2b 47wPEqGwbtZWl/aZqAXFM484RcOKdGecJXlxFm0yXzxcT4TLsuN7HJ7/OG2H 81BYfqbbPlNLKz2xOtHQfpdkiQvrO1rDpC2oiKv7mo2/IbwrgfvBRsc66Zfg eDihvZMp5Tx0jmsM/dz/DtO26/UaisGKdz/tE/k++HkeultMa9iMtkqy5zf6 HE/RV/FTKzPLbziID8D5LNpqJPsX73iIbjgxi2RKWdcxBumAr8WKsmK3kmZg gHXv4796VTHLj2OvXDNr6McdKd1ZUNe2GRAHvXF+cYqGjgfLSiunwiXHLPTz 9SALZ9Z3Oj67F4gGO5ZcXFxIHZdOfsa7Gf7zSh0LvLjC5sAGma5uOFdpOq9t hPnbNGhK+Om373CMqJF0fO6tuUzpYGebQYqgcFGIpPOkyevf1YkGoh7xZ4w6 uotTMp42fEXnRRGnGx3eU++wwpN13TpZKrnBNjGLU93BCSwsxezzGfF0Ac+q qXPlayMHoOFp2BS2GKZuQaYb5L6EK5wGLKuR46FnauhBFkgTp772Fv5zUAPm 7LgZyUNITiaHDhU8Dbo0/TzUpJl63VfMeEr4qDnBeal4IQtKJs/B16OTepBF xijp5PQgHXqJTKcw4/nz5zo2CT8Xdn5ZU2PPUjeoruU0IsllQQdVZDlzF4z5 3lrCIY/NZsMFJaVNeprjoWMWf5CFc+c7DVg4rY9Nm2WNKnEz4rMZ1I1KJ4p1 oYi8ttutTV6LpDt/Y8xM5T6TkdoD3SY9rbLUkQ4/U8oBjux1DjghQwa2PqP6 Pd/B+6cUiCyQ8K84UF5LqQZEY/yVsaMio79R9F6/kcyY7y0XbMwLf2C1WukF JdtkSr/YLVbC3n00uvguOo1gUy+IhkRbsHSKntYN36nwX/D+RTR0ToPl9NOa iTMG5m1Bs6/f2Av8AfjeMA3E76wN0zND0xwPZ5CFzYGLcrWRLPdMucNPlo5L ikayGeJmaN3wHQytG6IYPA9gQ56zs7PJzfwdA2l5xUkw73rReLgWrdRjJy9H K/JSV44OS2/fp4LDoBJh6VoU7TkEvAv9QtwMHq6HXPEru4eZaCSQNo4ZPuFe /XlcRfIVY25p75bZI9PMw+mOZOlg8QPO32add/ZkdsITekcMrAJOhf8nERlm g58/RJZZyfo2L4W8uhFzYJ1EdCQdM4hT8CHPch6YM2N51oY5xZZNa7N1OboU W7JxB6s7Eu4QkQ5Fg+JG0ZAxoMrwZK/E6ZyMVIRCMWzItQ3960Ze9sZZM9CN jMBeuITQZrNxJpAmqIdvlcw0chS4aJgsZU7DWSeXdyWX0x5FjLhJKkZuD6LE N6Grt3jW+NFELt1oOp7SJk7Ze/919zC4bjz3qPyr/Fq5PXxI3TnhDOBrHS8Q ucBC8ULCAe4gQy2O568jArFN/irV2lJTKlPD7u7uYpZDwj5wVCSnUekI7ZUL rRt+MyLeFYd3bXZ8S7LnNxqh5aKpdMjIr/7V+VOdgo1BN+pexOzja0LTA/GC jQfxgt/veCFFmE51RGU+4eXDoQrnm52FYaenp/hmZ5+9SlOFiDFkYLeuypVi EkTj1cMJa0y/WHiSkQHHU3yhSPA60nRv8CKTsBQE/A1/Z32Ic/he3YC14sVq taLjIdSVSVT6HuKlVMYssFbqBtyJKw8uoFZXFR85QFwpGk5Og56GiUYu8hrO gUdgZ1EJ/0WjKzovijjdaHqhvES6BHtfVJ423nXB1z0jFzgGz8uSBsYItNy9 jof8qr/ineoOqgdXZ+bkOy5VwNdcWLZyiCdBNF4+bN4logFhlOpTIwvZdcN5 HR6N3bsl/opz0o2m/oazf9MtLJWkhhCmFxh96IGMlyq/4bgcepxFlljlPDhZ 41VWb9QLyIb7+6WJhlSE4sxweLbbra3SmJcBdaNol9+ovGJk6DG4bgxFnaMi DUulV6cuuIrvueeP0jLjoReU1wtMy2r1yS3Znas7aQ2WwSMasglrecluQdp4 Y07eQ92Xj+mGjzQslYXhnMHQtAIPvbw7NUSjh4CziIb2c9iPnQ1/bAAlL2Ow oJ5FoxjHU48Q1niTNg1LfcdDC4hGK0ZabOLrhsxZW6/XCL5swloXjMGCTDdG BdVDFlngRNqWMYuoh48+YUvRcCKULPNljEo6HU+JPMp0Y2ywlxfce453OCOk adPwwyTIhT6/kw5lH9TBu6/PmC7yovHJDdLzpLa6jYYG0sGF3a+urrR0JC+y UCkgbeTC1w06G5wgv91uWetudEH/utHnZNg6t8d0I5IPHz5Iw1KpANcxS14F SMN3Njip31ZN6o6OLGjAUkwH042WUDfw3Q3Pv3Ixa37dD6UevO4Xu0XkcW/w jlgKa2Mo3dG/Bdk8+inC/jbS6zhtiLYj3dCdQGRBWxtG6ZTu6jfClaK5QpW9 dV+mG7lgE058ieulnYaVDnE2JEiRLutDv1szp7t60R7QKlFXZ266kRG2HIR6 VLYc7D9akRFYyYjirop8nU6NOqarG0721XSjH6T/p5SV5ioUT9ONz9VS8rgZ RFK2jnwPjKF+o+UVnRdFxEP1fJMzg3NLYZtXV1eIWQIV6X3qBkdSIBpcwdbo lOn6G84Vm+pGh/e0GLi6tJPuSO6301I3mBSFlFnZRg+YbhjJsB84y8NargrX Ujek1QZ0A2o29Bszf2YTp+irNzrKaAMXcL+5udlut351R8vZak11g92BTDd6 YJkWtMyn7ghWZuKLnrNodUV6+4muphvjZCgLGtZyTTeyw3WZ4Xv4i7Povn8d 6QYuxGXjLL/RDwNa0IAjGqYbXQDp4CJolYuziOPRkW5YXrRPxmBB/avHGJ56 lnClNugGggW/cWj2mMUfh4VusH260Snj8Tf6rxkzOgIBy83NDaSjslVpxhEW v+7r9PQUwmVtN7omlwUdVNHDddMw3ega6oYvHXkLw5w6c7b5KqzOvHvGkBcd sOrD6A72SL+8vJQptLK4fC7pqJzXZpPoe2AQm23kmWS54t4tRhdwkAUvjo6O AlNoW0qHk+LAtSAaNo++U4aq++rNcivvxHSjNyAdd3d3cDy4mqTOlErL4jbq oV0OHarY6mydUllvmWxWBxF9AuWvPfgbdXdiutEz+PaHemw2G9aUOl5HS+nw +wSenZ1tt1sLVbojb54hRjf6x3RjDMABuL+/X6/XbNzBTKmsn9JmkOXVri+x jKogVGF2ZeiHni16GDTjt38PWYt4KnWjn9SKobm+vobXAWdAakqz9PyRUEVG VXByLu849BPPFq0b/saer9v1tQJbjH6AdCBmOT8/Pz4+lp4/LZsNymisdCfG mU9OTq6urnA5i1YyEv7C7c2W+4loTDfGBpwBmDOiCdaUtp96L9Khsxz0Nyxa 6YK8/kbT8ZShMiGmG4PDvCWkQ/cpTZ567+gGzsaBlQ8fPrCr4dCPOzcqx1Oy nzm8g+nGAmGzQfzkik5aOvT82Xj1cGrAOM3t8PCwKMeCh37cudH1GOg4GfO9 LQe2OMaLt2/f6vHZ5J4/r6pWlz47Ozs/P7dOxXnJa0GNxikGHNEw3RgJ9/f3 V1dX0I33799rryMtZqFuONEKXQ5r5pOXoSyo5+GbwNWNwYF6QDcQTXAmC3v+ yPzZRjGLn+hgGRhiIotWMjJ73RhqwMhoxO3tLRwPmLbujv5VSaOZLM6YLMdW EAHBpZE1so32ZI9T4k/bQ5wy4ECz0RQYNaIJ/KxbWCGyXZhOkEo5B1uPbjYb G1vJQhe6MdToaiWmGxPi7u6O81jX67V0R29aFaZdDmlZjFMdHx/D64B6DP2U c8B0Y0482qG3+PuknbPpgWkwlIBjsN1uZR3JhEEWZ2xFKsEQrVglWHuyW1B8 qJI2SSRQcFJZdbYc3QjLxdhOGwbWfVXiL6wQme7QXgcOlHkrXLLBopWW5K3y alovmnCVSkEInG2ZuuFvFIdBb6ncxznPILpRlNJB9XDSHZE9f0Q3dPE5JAhn 40JR9/f3vT3L/BjDeEqjQ0w3AgTilL0v6jTh0UM6uvNKWCUO/J4/kQsr+IkO nOfk5KTYBURGGh2Np8Ts2TJOaTOSm3bpCREvF0WVT1J5qqJff4PAupmROD09 lYUVdHf0sOPhDMtKEen5+fnl5aW5HMl0kd/o1B5z6UbOexqC9Xp9UiKNNNPc jMJTg5HEKRpWhZ2dnTmT4GIGWSqLSI+OjgorIm1BDwZeuX1wf6PR/qMCX7tP njz59NNPPythO03SKE5x9q+LRIYKUhyur68hHdJpsNGaLJWz7OFywI2xaCWN 6fobba41Xd3Ax/7p06fLLJm+ubmB4yHtwqRxx96AxYlW6HLgDDyhTXlLwLeg NobZ1HMYKskwUd2AaDx79mzouxgS1orf399Lp0FfOgIuh55lz7GVovRkhn6s 6eFYUMJAZ5br9sxEdQMf9aFvYXjgIUA6EGJwTZbKgCU8tqLbkK5Wq4uLC6sE a4ovDqYbxsj5+PEjnAR4HWxS2sjrcKIVru9mS1E3JRCndK0bFqcYyUi7MEiH eB17S8L8WfbsYMw2IEM/0wQI2Oyc/I06UZqKbvyfv/nn3/nLv/3L//v0w61V GlTw9u1b5jrqRlgCuqGjFbgcVKGhH2gyZNcNMdXwIT1YbuWD9Hb19qzOriEa /O/nX68HuYdw2Xnd9srh4LqR3DbjvLD0y8vLm5sbmcayd0EWf2yFs+xvb29t ibd4uhhPidSN3uKUieoG+Iv//Q8QjT/4H59c3Qww8FpX8lG5Z2Dn8OEt68pg 7zB2loRBAWQ1lkCiQxefSzkHopW7u7tlDnAnkNeC4nWjNyYdp0Au/vFn355v B8j2x/gVeotTrO4oSdjf2HvRMOwBSOmIzJFWJkjPz88R+Fg5RwzdJTzznlaf v+5alT7MpHUjC2lJEt/qne2B/Z2Ne/2N9iWprODabDZ6IadwokO7HLqcw4rP YxjKgtLilDpBqDtD0+3zoy5Jgm/n/1/FL37xC872qktrdKEbgb/Gw34dengl kOiQunSn+Pz09BSBj0z5MeroIk5peubIPZ3wZ++1YsaMlkBlkmSvbhRN8hvh nfvRjWJX+alzpIEWYc7YihSfb7db686xl1wWdFBFF/fQyN8InKS3rOzgtEmS jHw8xYFV6NIlzF87snJsxY9W4G9YOUeY7vyNvXummW0u3Wi0vzEVYPLwOtib NKZFWN3YClsGDf0042VyFmS6YYR59+7dxcWFXjtSFruvnG7/qqaDsQ3LBsju b+x1JNpENMXi59EbMdyX0PdgvvRtyXbHpUI2ch8oBhMdzJHabNlKurOgMdvm mO/NyAIb8iDW0NKxVfi6QelYr9dSRAoNwXksYPEx3TDGSUydmN6zMg3LJe8h HbLFUQ9u1FtWq5W0E+Qqb+fn51Z/7tBdnJLxtNkZw+3FDFXEDEwExiNyjVP0 T6BcJPCmOcO+MHa8RsCCn+J1aOmgYuCn9jqgG2x+Tq/j6OgIymOz3hzCtQ1T 0YGmDP44MaURkYUQkQOjbe+4R8J3G/hr5bsE3RCvg44HdUPcDEc3Tk5OdI6U 0oGT4FiTDsGxIEci0sZVxyM1dbcx7L3FWHoRpxuRxQ8T1Y3KR9v77jnvEoyd 0sFT1XkdwvHxsT+8wtWa2Gesm4eeGL5K6IHO8ShAApUjtnVb+qTOLvYGGpEe SN3lmjJU94+wUFQ+Tt37wNcQDXYlhddB6Xjk4ehGpXTcldjgbDFcv68+Ga1u OL/u9TeKfdmMvdciMJ/KIvOXL1/KPv10/0CA8POf/5xXf/PmjX/bgRf+zv6v oq6QDpg8vQ4GLDI46/sbsuSKE7B89913Cx+cDfgSLR37sbkoI4xTinz5jbC/ UedpwFordQPoL9P47h9pnglk6kc/+tFPf/pTXprTUfXNO09Xp5a+lvo7yxbJ dcjg7KOHgyzUDX+hN0oHHI/1eg0JWqx0kLz+Rg8uSqDuqy67MjZ/g/hWsDdO 4Zbvfe97jx8/li2Pd+gtervz13ggAm+OL99e7xGNNM8EovHs2bOem13Q6yjK mSyO1yHSoXXDn27PwVl4HQsPWCLHUxLO1oVtOioRvtZo8xvzo2lfMojGixcv ur6rSpjr4Aw4RzpkPMXRDe116JIwLly7TPXIbkHdxSl+2tb5U93N1J1qHuz1 Wyo9ef/YukAghqZTbge3NRaisxbUqUVfrVavHiLLy35VIjPuoTDQDS5AOezj 9M/kLChL2rYuopkcMXmSuu06QxJz+MygbiDceFciBR5nZ2evX7/+Zck3CvyK 7VAM+huHh4eIaPATUvOhZOgH6pXJWU0u3ch5TwMRqQ+V2+OHJ+IJZEfHuaAD pIPpDroNfsxSCXegi/JdCbdTiIZ+pp7Ia0GBlEKnl1i4bvijCYGdA6/rjo0h kB0dw4IOdbCvF7yF9+/f+zFLWDoA3Q/Ou4f4cA3KoZ+pD7rQDScRkZc2advK k0yXOpOP0Y264cs298Ps6O/+1d/5rsVQCzo0GrQCWjoePawpJY56MKLhIAvC FurPEjqiT043sjDme2tEZH4jIAh7RQN2dLIjbBHQhB/909fiWvzsixW3M0j5 s//593A89j1QThq9OawK4xCJzJ+VAg/RCkc62E+MqY9vSyg7XL62tyftn/DX d8IXeg+hSnvGfG9NifxKDRxeeB6I3gFG8dmOJ0+e4NfAzeiQ5MXLo2K4ICU+ OayfmlEGHY9HEZNZ2IRQlozkOAtXUoDjMWPpCKQLui7GGJCZPU5v4Ev5Jz/5 CYwlsM+f/6/Pfufx3/7BX/97SDJIkBKZ/PFdEUoHHI9HqiK9Mk4BUAynuoPS cXh4yLWq59rzJ1DekKYbkxjcHPntjZxnz54FpMOv5XC29DO20ij54/+JusGy UglY/Mks1A1Wd4jjIRXpFI1ZtkYP1FIm6MY4XRSrF83OyclJ2oHZwxbY5osX LySSury8lD/F5Dfq/sQZcCzweOS1/ZGwRXTjixJfOtbr9dnZGde7b/+wg1NX 9VRn+NPVjUrnZyT3tkwyhi2Qr08++eTly5eSuXVSCo3GU/zt7N2h99GjtEB0 w5EOmcwC6Tg+Pma742IXBM2AgKU3EoGDKvLeagJ1IztjuLfFkmuxbHyPf/rp p10XarLnD0dXpaZUpAOuBeXic4UzD46Ox2r1b6NLnBfT6Q33g45KfJMfjwIk EBjZmegTjZCYZEVCQiPmkKdPn/ZW3U314CitrvFAPCKLs/iOB6RDJ0u/++47 HjWDloOTs6DAMHGlz7M3HDOSiUlWJCQ0RltfyvIV7XjAl4AyyJJwoh5+zCKd f+AmFeWq99SigR8plbwW1HWc4qiE3h4+au8WI42YZEVCQmOo+tK9sO0Gm/9s y9UkWTIKceBsWUc6dLJUj9Iyf4tIZ+gHSiS7bhT1WYWMJy9MN8ZBTLIiIaFR echIJsdxJTjORtlsNlxNEupBx0PCFgc6Hrrl4MnJCWIWnG2Kc2knpBv6EkUT 3ag8yajyt4aPoxKjCl44zgKrPz09pdcBKYAvQfWgdDjqIe07KB10PI6Ojjif bnL50u6se+S6kfOejNxUqsQIgxcuW4/gZb1eI/qAFEAQ2LhDJz00X5c4jgfO w4HaqZSmT86CTDcWgq8SgXhnwBBG5uBfXFxAAeh7OEkPLSC6slRnPKgb8F4+ lvT8FE2ZnAUFxlPSTmKMk/isyEhCGJh8UVaVQzocx8OJXEQ6HMeD3cOYPBm5 dCzTgpb51DNmJCHM9fU1h0hOT08hAjrp4aRMtXQ4A7VcxpoCMuCzhFmmBS3z qeuorLIuovsNOocHyrb33snZ2Vl4sm0duWpQ28MEBWwfPgMeB5EL25DSCfmX EqY+NNrxYNiCwIe6Mc7RlmVa0DKfupLARNE6MQnMF6ubJlYnTRpY2WeffTZO M2kKB1ycJa2lyhTiIJGLOB5+hRgEpyj7eNze3o4tbFmmBS3zqX3CtlynJJHO iSMvgWtBK2AyGSebjKSeir4HF3u6KaF0QBM4XKvVQ6TDKU1HyHN5eQkHphjT aMu8LagucTrvp46nrrmN89e6o9psgQn8+Mc//n8lT548ybt2W7hDiNxPwlTZ +LhM/0l6AbEJIRwJnfTQYYtWDynzwP6sTh9PI6B5W1Dd0837qeMJG06kbsQH OCm3mMrTp0/1Mtl1N9OoNUd8XFb5Jy6zAsFklSlTphyulRFbjSzaIqMtFI0x eFMztqDAKO2Mn7opvgUFMh7+9vj8Z8+6AV68ePHJJ5/gJ9etlpY+CXeY5mL5 f2Kgsd1u1+u1DNfS9xD3Q9AVYrLeEw5EzAIBgQ8zYNgyYwuqrBCr27Jk4h1v 2cHZU/b3t/hH9Qm0Al4HdUP69dVFZ8lxWeTbJbD3FxvFS5VpwPfQjger0yEd 79+/Z/AyiHqEy6hGOIkjcMN1s05MNwxNnaBFhleN3JW6nWH1CDcgIPgJ89el YlItpgVEOx5SYnp6elqU2tj/aEu4bHts9uWohN5euXPdX8f2XEbPxOQ3Yrak hWyExn5Rgher1UpHLr56UDr8pAf8KKgQq1V7I2BxY3M25K70r/5r5xDLbxiV 7I2kIqMwPyjbG7I5cPQZho8XiEGcyEWCF8Ff5JrigzPc3d31M6828F3cZuJY d+Sa1zYqSTQMmZYCBUAAIvWlErzUqQdrUCE4bGHK4KWjtSbrDGf8A5e5dCPn PRlGDiRyQegBt2Gz2XC9ez3PRYIXJ2zhGrUyr5blqd3lPQLWN29/I+c9GUZW GG5QATi9RbqKOYlTRzpYYgqY7ri8vOxotCU8GDFCZz4wnpJ2EsMYJ1xhFj4D 6z1OTk6cyOUbD530QOQC3eDSUdln/SzTgpb51MYUgXRAN6Ah0A2WfOjIxREQ /irqAUeFk+PgukA9MnZQX6YFLfOpjYlCY+fE2PPzc/zkxHxmRB31cKSDYQvc FTZEZdFse/VYpgUt86mNGQCXg0HHxcWFTn1I8CJQT6gtemotHA82Y29zG8u0 oGU+tTEP2NwDjgcEBCGMLhhj8CIeCNXDSXog0mHSo81S1/O2IKv7MuYK2xfD f4AXwb6CDEnE/Xj9EFmplsO1kB0EL2zGnhC2zNiCrM7cWAJ0G9jY5+zsDB6F pD4c9aB06KQHdOPq6iqhKdCMLSgwSjvjpzaWCd0P6AbMHz83m40jIBpxPFhl ygkyXDI78nIztiDzN4ylwcFWxCwIXvCTa8npwRfNtyX461EJS9Mjkx6Ts6BA 3deBh39I3RbDmBNMfVxfX+P17e0tG30w+yFt1fmawkL1gKPCVqh768SmZUF1 ahAORkw3jGVCFwJeBwQEarAqoYCIhvC1eB3r9RouB+fmB848IQs6sHn0hpEE /AdIAQQBsoAXCGHogWioG8fHx5xXK20VK5mcBeWa1zbCqTeG0R0cbEXMAveD zTqKsniMWiGiASApm80G+wdyHZMzHJsPaxjtYd0pO5RCIvAr3Ix1CUQDP7lP 3eGTsyDTDcPIBRMgNzc3bFK63XF/fw9nI9A6bHIWZPPoDSM7jGLudhRlRBPY f5kWtMynNoxcLNOClvnUhpGLZVrQMp/aMHKxTAta5lMbRi6WaUHLfGrDyMUy LWiZT20YuVimBS3zqQ0jF8u0oOSn7v/tGvAfaJBLL+Qd7u2ieS8UmCu6BEw3 RnvphbzDphtTxHRjtJdeyDtsujFF/A4/hmE0YmgjNgzDMAzDMAzDMAzDMAzD MPrDzw/XpYv97TFbwhcN3EbeK/o3ED5DR5fu8xmHvWhR8yYf1H/M2lwx+xN1 fcNT58Czl8jXMVv2XlH/o+zdLfmK/pkrrxvYmOXSaadNe8ZhL1o8fJP9k+S9 YhdP1OkNT51KUdV/DbzOaEr+bfRwxbo/dXrpve92p5/PnsVKP2bCgze9XPhs jc7f9Q1Pnfh3o1NJrzyw04+3v3NvktX0tFk+n4OIVZ9XzGvmPev5pOlZN+p2 GEQ3Ar/OQzcGuWjlgV1csYePiumGZih/Y6+dZr9i4AZifI/p6saAYtWbv9Hp l5rpRiUHOwJb4vesO7byPHrPygNzXbHyHgI3092le7vQ4BctPMvq9IrZz9/P W2QYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhmEYhhFmkBlM 7S/6+PFj+ak3OlsMw+iCKeqGiINWicqNhmFkx5k0XTelOnK2deU+/v7Oa9mh 7ij/tn2JqBQQwzA6otJy877IdS3BkQs/Wql9WsMwcuC7BMnWXXd48dDHSD6h oHXDlw7TDcPomuzuQcvDAycULL9hGMNSl4Uo4pwB/1SRrsjei9ZdpaiXiMqw xTCMkRBwBnogrAymG4YxTobVjaJeHEw0DMMwDMMwDMMwjAT+FRP8lYM= "], {{0, 280}, { 360, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{360, 280}, PlotRange->{{0, 360}, {0, 280}}]], "Output", CellChangeTimes->{3.7692079846347*^9}, CellLabel->"Out[4]", CellID->134850404] }, Open ]] }, Open ]], Cell["", "PageBreak", PageBreakBelow->True, CellID->240828618] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", CellID->776923543], Cell[TextData[{ Cell[BoxData[ StyleBox["HertzsprungRussellDiagram", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " takes the same options as ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ListPlot", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ListPlot", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", but the following options are of particular interest:" }], "Text", CellChangeTimes->{{3.769207174398684*^9, 3.769207204468691*^9}, { 3.7692082467739105`*^9, 3.769208264023636*^9}}, CellID->464439627], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HertzsprungRussellDiagram", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HertzsprungRussellDiagram", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HertzsprungRussellDiagram"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HertzsprungRussellDiagram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HertzsprungRussellDiagram"], BoxID -> "HertzsprungRussellDiagram", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"\"Zubenelgenubi\"", RowBox[{"Entity", "[", RowBox[{"\"Star\"", ",", "\"Zubenelgenubi\""}], "]"}], "\"Entity[\\\"Star\\\", \\\"Zubenelgenubi\\\"]\"", "\"star\""}, "Entity"], ",", TemplateBox[{"\"Zubeneshamali\"", RowBox[{"Entity", "[", RowBox[{"\"Star\"", ",", "\"Zubeneshamali\""}], "]"}], "\"Entity[\\\"Star\\\", \\\"Zubeneshamali\\\"]\"", "\"star\""}, "Entity"]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]], "Input", CellChangeTimes->{{3.7692059440546618`*^9, 3.7692059986561213`*^9}}, CellLabel->"In[5]", CellID->210829543], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztncuOJMl1pluahWap5WxHT6DlbLWcLQU9gIRhamZDAZQAQTuutNRL6Ako gFsSXAhoUAWCaPWG1eyLukllZUZEXiIv1dWZWa5f/ivOnDJzt3D3ML//H8hs T0+/WVSc388xO3bsf/7FX33v7Pc/+uijv/7v+PG9P//bP/nhD//87/70D/HL n/3gr//fX/7g+//nf//gb77/l9//4f/6i/+Gnf/j9z766P/i//+5XQghhBBC CCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBC CCGEEELMijPHWFeYDq2a0KThwV+DI4/eLj4g74fc9z/Z2Yf0ei8xGG2/xkcv MuvvBh++eROaW3280fBGsezMSzeGvIsYDOmGJ69uVP61UkDSF5FuiKmRSzcW 4It2UL90k71E2GHdpKnbuc2v3zfz/VaISuRvGB3Ur5W/YVbfyvylG2KCSDeM bv5GwwNO6d+o/JkL6YboxukhxsKClLo9Tc6qPCahFScqz+kME2PO94shhBBC CCGEEEIIIYQQQgghhBBCtOJMCHEaYxvxCKyz1ULkYp0WtM5WC5GLdVrQOlst RC7WaUHrbLUQuVinBa2z1ULkYp0WtM5WC5GLdVrQOlstRC6WbUF1A83LbrUQ fbNgCzqrL96SvdXv379/eXl5+/Zt3ssKMU2WrRt9+xt3d3ePj4/7/f7m5oZ7 sLEvwZ/u7+8hJk9PT1nuJcR0WLZuBBvxnzrz7t07CMJ3Jdh+eHg4Pz9/8+YN ZORdyVMJ/JDdbnd1dUU9wcHPz890Tk58ACFGZO664Z8/cDD60w04ErD929tb CMXvSn7r4J5/PwDRwJH0QLANGcE2NhDUfPvtt3JIxByZtW5UqoRt96QbFI3L y0vqwzfffPP111//24d8XfJNiYkJNOTi4uKyBOoBuYDvgQtiG9eEiwJfpfNT CTEk89WNhDj4ndn7N+AqwHNAVAI1gDh89dVXX5Z84fjyAP7qxYRK4h0SeCyb zYYCAvfjpgThDG7xUtL5OYXoj/nqBknrRuKszjOCGXfA5KEAUAMqxuclvznw ucPE5KuSQEN8XAMNuS+BgEA3ttstXBFss2MEFOXATctPaFq8evWqp4PFkKxW NzrfkboBS6ezAUGAUHx24HXJZ45ATMwbqZMRAA2BP0PdALgd+1qLcrzmsQTb 9FIWTF7d4Mf1tuTRAaeOn61ojnSjLdANOADmb3jdeF1DLCOBNxLISKUrQnBr e5Lr62t2t8IiOHZDOjeNvDpQOMv1G/bX4JTKX4Pj48MSR/rHiG9aiX0I8NPw Ex8OPqLbEvzD1Z0FNcaRDw8P0JC5e3TDsBjdKI6tXFx3Vlv4VYQJw7QDf4Mq 8WtHQkNiP6RSQ+iK+JGa8wN4DFgH3pXQDTon7B7hHr5e2/aQxILQ00bzW9TJ BZvGliKIo+1zxApsNhs6EuDbEkgHx8rPIy4vL3EALsLPU9JxlLnrRjdOaTW/ pbBTDqbAwNmzUakbCQ2pjGUCGYn7Vys7RgAsBe4HbIfvVvNDsPPtgaKZjFS6 B+mNOqcirRutzrJtDlujOWiseRTmVGDndQmkwIbCf3eA8vvNh5gmQ0AgO7gm Li7pSCPdaAu+UXRoORQLQ7auUfM66qTjqJiYntSFM15Gvj7gU0fYN2IDvrAg +t40BL6UAUwDrUg0MxGn1G0E52bcAI+Pj/gVTw6FLEoBhEqwmRclXiK8Ptin 5AfKbRTMC7J9gLi4jwdFjHSjG3R98XXFl43fwyBgaS4dRyOauqAmPdrrHRJz yO/v75k3AhmB18RXM8QEloI/Yb/3ASg16V6Iyp0NnYrEn6h1rz4Ee/Dw0I1A Irw+eGUg9in5gfJ4wAsHsGcJ18Q/a1EGpCd+SRZMwoIWXLs4S4tgbpAOdpAG YyvpgCWvhvi+ET9YU5mB5pUEkb5FNPA90JxNybYEMsKuEvDdgaLrQOrRs9gb w6R9fKrMzMfDcJoPHpIeRSAUgfOQEAc/Sh7DA0w6cCM8BhS14zdjBaR1Y8gn 6YM63cvSNA7n4euNr5nlgAUByynqcVRPunWPmJIEifFQEq8bAIbDWTbse2Tf CBTg4cBjA+gqJA7gpTjYwYEh2Cx+5cPgqdJaEUiE/yg++5DqsS73SZp04I54 AArm6d+TRVJnQctwNhKty3J9SAe+XUwD89KRGGHpSUMa+iReSSrFJEiMZ3TD IWC88fETYQI1hLx3NP/c7BS7DuTXBju8X2HRhwUdXijqJCKhEnWfpNcNptDg OdNdQGumiWXNVDoGmEdflK41qJOOxNd1MA1JhzaxjCTExJyTYO4eicc36/Bn BRMDg57MhFx0U4m6D5C6gVtINxLE7kQi9Xq+uhFsxH/KAkc5mdQRBCxgGOnw JmD38jJiG2Z0TfpJYkn52lE5oNkEf1bcnxl0VnihwM+gRUFLO39iQZzC8WvF KXXM3d9okvfVt24UpXTg3QSvAyE57cLekll6SrNQ+Uau80y8niRUxYSlA/4i QWdmHIB0cyQafixs+BflHCIOqbCPJe+XZEk0GU8Z8nlaEfhLfn8xoL9BmNdh U+z5DrXX5USkw6hz7OOOgsqhh4SkNKdusCMRgPT0OQSdGxcXF4+PjxqHTTBl WUiTEIcg+Ko7tw+YEoYvHmN2TpidpnQENFeSWExO5GiXZq9Njp2Nm5ub7Xar lNEE89UNktaNxFn9eVMsnYGAJZhrbzYyZfVIU6ctuRi4IZQp+ksQDbiIEA0o xtPTk2oopVmtbvT4TGX1UfzENzDICqPjMbyZDMakxCH9kOY4mWjAP0SMydlt vX49FoB0oyc4jwyvLR+w9JoVJpoQi4bP2UBsopkpTViMbhRDzaNvDkSDkz58 UcE4K0zqMRj2gVt3rs1ow78RV7VQDZ8mzF03ujFYq7kYE36y8rl1d9gIgqRj AOxDth5dczPYEQpPg/PxFaE0RLrRN5xqCgc4kA6LWaQbvRIEJtYLGsx+5byY wb4Vc0e6MQAmHSwmUzf1XuqRl0AxAjeDOfObzQb/NMWhK1s0RLoxDJAOdtRz /mw8yDJWd8eUBz464EOSwMcI3Izz83OuYqMh1w6sQTeGyRc9CktMXF1dsWpH ELMMn9oRC0VlztWMNCTux7DCGl4xWOeZlZzlZnRj8brRcMbKYLA8Kb6u+Opa zBLnlPZtqoFcxFmgg2V6n07cFvMxGJVYvRFb6Ip1RThWLjqwbN0IctGD/WOB byxcDvy0xDDfUzqA4xGbWDzNJJ45UumT9PSEzVthj+QdDCpG4GOw7DDTMxCb KI38FBasGwPPa2sFRIPFbwETw2zJyL47SwNn/vNoKahgvmowmX0KrkjsXVSG JL76ECQanh7nLBfF7Je9G53RLehEEnlf068owkp0d3d37O4Ypqe0UjR8gfSg LEaTyjmDCUgiJAmiEvZ8skxZUa5RBaHmGgoJWLGZUUzRfvWZ9TARC+pGeh59 3a+Ve8YC0sH6MJxCO0BPKS/oX9AmF76KV1wtvJuGZHn4OrmwZAzTPfMxNpsN 6yoXzXIzEDniH8LWT2HXBxeMkHMSMx0LakuTefSVv1buGRF2k3Itp7jEcV7H w5ve566Ct/UZsogo3s5w6VnBzBf8tDp+2SsD1+FPj3sw6Cl5uWB1ZS7GDd3A p5qufcrV2XAkf93tdhcHuMw3djL3Zpgvw1yYlAV1YILz6LuBLzC8Yrzvgsks eaWjTjcoGpeXl1zViKu/WcErPNjj46OVBk34Ia1kpAl2bqVc+JCEC18WpZkz WyZh7AxAuLwdHQwOb1nrfI13XnOA78CMyG44ZozDmORk58N2wKbQ9pfdYbph NmizuvCGhVCwyBXratKgODvPuhOhbzAlrpIW+yF+nYK4UugXDdY0qawk5rtt vVzYuCrDEOjA8/Pz0dFVHMxFMLmerImhX2fBFsLDn/AJcJJRz//+cyKvBXnF kG50AF9pvi5ZbJDSkdHxMN2ghXrdYMZ1ndHx3Y3H43InXIbVVnuH9fmXdVxw uLKmqNcTo7Jyqe+ztR4YqhwXjWLO51HT5iL1rOjISMQvuOCf0DSKH05xUHVB FqMbxfTm0XfDkhhhxX6INld2h3c5rPSE6cbREQc+IccmoB7QDdjvdrvlHgtn 7CUer+b89Yf824fE9dKDZeZg7zR/Zok36XzgA+PZGIXhCn45J+ur8e6Qr8uB g+l65fjnXQg9xSlTNsxi2rpRlN9zRgcQEN9TmiW7IwhVrH8D1kQR6PDAXGfN whlrBZwB381ovax+jfhKbEEWdtUCSlNRDo6wH6PJIgWUFDwV14aztWX5kVKp 4gQVc8b44VA3NI3FM3EL6olZtJqdezATvhztzcgXYueAxc6ycVi+VbkWGxz4 E1+snL5HO6WM+PUcoSRcyfo6CQ+AEDEG4XLS2GhVxI+r6RWlbgRLRnofw/ps g07jLw5rMClOiZmFBWVnLq2GvXDJMBhRkFZqMUsHx+P164rqmhw+gInBecg1 24uv++8cTFa5OrCrgn9iQgXPgoRyVmDzz60o5YK15enkmI8RBH3xGLEFcfxY qHvqF/XksqCzKrJcuQ+m/GwBsBcuDY+fQczSuac07h31s8th7A07OjrzvgGn XBkyi58IbUwxrOez0seIRcMvi4DLquhoQB/9on1cuRt18jWFZ2sFc8Pw1sPb 0zzteIi2m3TERfPwpubrfux2twBCAY1lPoaNrnofg0prIV5dHho/ky8PCz5C fCzeEcaCdaNyiLZuz/ThEC1efPDk64ZoW8UsZimB18G+Dhjgu5Kx290UugR4 bCtQwEEZG/D9/MNK8sGnFMRu1l0MLYL3MnbjJscaxlOWoRtFGbPADYDvgbAl PUTbSjp8wGJJCzAZ5mlPXDpYRoMdQTbA6ns+/Qyaug8n+BwsQmHerFaXjpmp BTVnGXGKhxnpwThL58VZvMn85sP1RLgsO97j8PynaTuch8L0M1/2mVpa6YnV iYb3u6yXuFDd0RpmbUFFs7yvxfgbxrclcD9Y6Nh3+nVwPILQPugp5Tx0jmuM 3e7/D7ttt9stFIMZ73G3T8PPIe7nobvFbg3NaKske//GkOMp/i5x18rC+jcC zAfgfBZvNdb719zxMN0IYhbrKWVexxSkA74WM8qKw0qaiQHWo81//bpilh/H Xrlm1tjNnSj9WVDftpkQB79zeXGKh44H00orp8J1jlno5/tBFs6s73V89ijM GGeNVs65Y0bZ/YG7iH09/jDmmDHNjKll47Z04sxXN4K7tJ3XNsH+227Ajtjj EZfvCHz1VtLxWbTmMqWDlW0qk6A+iqh84Lr9R+F9OX+HokFLh8njms3loolo 2EN2ftpl01+ckvGy6TsGG0Uz3ejxmQaHGZ7M6/adpdY3eErMEmR3cAILUzET j5Qwt26WiDa+lMRuBgw/0I0OosFrUjRwL8lFmrlbkHSD0Ka4wmllzNLB8fAz NfwgC6SJU1/rwn9vdPGLu9IbCfYEx1CjuMfcDDuGukG8OAQ7Y3eIokHdsJ12 r7gtwph73leT8ZT0WUuC81KxYQtKdp6D70cn/SCLjVHSyYmlIxaEEzfYImzQ 08AGzRz2biU4zN8IpINy4TeCg83ZYBJI4kmEJ5cFnVWR5cp9MOVnOxEOeex2 Oy4oaWXSuzkePmbxgyysQRqX44utrKE4BA5GsAEnyh9DJ8F8Bi8XXjdif8PL Ba9gopF+ABHQn78xZebynJ2x3ANfJr1bZmkgHbgCnBmaGzPSsYeTvypNrJV3 EZwFXcIGZ+XTxm0iLRUAG5QF/OR+rxJ+Dzd4ov+TiQYDPelGQzL6G8Xg+Rud mfKz5YKeAN6qm83GLyh5Sk8pBIdlwSBEP/7xj39a8vHHH+PK7EsM4JOkf607 xvoZ4g4NmnzgS8Qbho9leK71aTAppfKZgw3hWbYFLT5/4yiwDhggYhY4BswN 8zND2zoe8CtgelCen/3sZyzyw/c1i4RkTHjgpYLBVu9mcNCE6zYSc0XsV9uw sxie8DA+eYfiHqLo2q84C5adL9ocrkW7P+Rjd16Oli4HNn7+85+zsqhV/Ntu txlzpWjFDE9MNEwuuBGLQ+VGcJYfcsWvjE0kGh3oNo6ZvuBR/flRFZ3v2OSR ju5ZPPvDNPN0d8dR6fjVr351eXkJ3aDTwkEW7GHyA4OjUyyR4UkgGpYImnAq 4j9558SfSyBxdQls4ih5daPJiXUS0ZN0LCBOefXqVZbrwC3n0ofMDeOcjrZT 4V4fKmL5dHQEQRaznCIddFesPKl5GonwpI4gsyvICOUisFk+1XUyvG7k5Wic tQDdyAjzLfFzt9sFE0jr1OP2e98rPvro7R//8etPPgl6Sl8f5p4H6egcBS6a lRw3uKJBsE4un8pu96ok7RT9uqqamT0eXCN+CH19xIsmjiZy6Ubb8ZRT4pSj z1/3DKPrxquIyr/ar5X706fUXRPvWbyCsYGXMiwUG5bgwQNsqAXbn/zTP0E0 +L9v/vEfYZJmud6QbSaL5ZTCPItSCpgfnv404ADgGMRQFI06R+ioXAROUVCM iE8FaaK/0enfTfwX2fs3WuHloq102Miv/zX4U52CTUE36jaaHBNrQtsTscHC g9jg+x0bNFVKBzUBP9/90R9BNN7/wR989i//Yu96bvAAHGzS4Y2US6rhzc46 e5WmChGDYjCIYOnUeKWYDqLhnQ0mquHKuD7v1eLfSdQw4nhKLBQdvI5uujd6 kklaChL+RnywPyU4/ahuwFqxsdls6HgYfNFTQPCfL/7+7z//5382uTD8KfZ+ D2IWWCt1A+7EQwQXUKvLim84QFwpGv5JzNOQaOQir+GcRSQONpWIN1rdMdgo mulG2xvlpaFLcHSj8rLNXRe87hm5wDHAhhXAoeUGjofXDfM34ld8MIWW6sHV mTnuyaUKuM2FZSuHeDqIxq8/LN5logFhZHhywr+Y+IDsuhFsp0djj+5pfscl 6UZbfyM4vu0eltCkhhB2LzD6YBhi9ssDYpcjSEe39c64zCs7PWz1Rr+AbLq+ XzfRsDKhuDIcnru7O63SmJcRdaM4rX+j8o4NQ4/RdWMs6hwVK1hqtTp98Z/m Nfe8evgeD7+gvF9g2lar71ySPbh70K2BtuzLlSOUp5GX7BbkjbfJxQfI+4qR bsRYwVJbGC4YDD1q0TZi+9m//qsvVWoVPKghHj8EnEU0vJ/DeuyWsDHcp7wC pmBBA4tGMY1WTxAY19sDbQuWfvHTn/oR28Dx8ALi8YrRLTaJdYMRCnRvu90i +NJCBn0wBQuSbkwKqoctssCJtE1iFj9iG8Qsph4x/oInikYQoaAhe63r2g+9 jqc0PEu6MTVYywvuPcc7ghHSumn4kIt//4d/4IhtbNcEFl25Bv32BPwq9ghM bm9vIResQKJujZ7oo1+0eecGGXhSW91O4YF0cGH3h4cHLx2tFlkI/optXKpV AeEmxBWGWfRvCqu9LJXhdWPIybB1bo90oyEwPStYahngPmZJxBeffvrpZrOB P8DZ94QDHHkJJq9ZWXL1hfZHTxY0YipmgHTjRKgbNzc3iAIqF7Nm30LsWvzi F7/45S9/uS+nr+JIrxtxZbBKQajbH4vGnVsDhRP3/ITc7DW76gobrofhLUjz 6OcI3uCchh+Ms9QN0Z6fn8OooRtQD2/m8RT4hDg0143Y2fA9GwPoxtroL38j nSmaK1Q5mvcl3cjFuxI4/35ppzrpwK+UiE8++eQnP/nJxx9//MsSHF+nDIka ocEptsevnELdgLjhCYP6pcF2/NejB8QbiVusgf7yRQfAq0Rdnrl0IyMsOQj1 qCw5GEQr+PXy8hLWDZ359NNPqRuIcerciXSR4coNqzbMRQ2sOLktucLHHnJj JcxXN4LeV+nGMDC7g3NLg+yOSscD2rLZbEwcLE6JY5CGcuGdkGAxFOhGw+Lk secg3WjFFPI3TrxjsFE0aNTAD7kwOLf0+fkZcQF8iURGejzIYv2i+4hW/oaP U7xu+DXXjFb2Lt1ownz9jeCObXWjx2daDVxdOujuSNfbSY+npH+Nd8a6ATXz Lgef0xt18Kd4T5OzKi/Sz2c8UaQbojO2zuP19XXDVeHy5m8EI7CmG3UPvFr3 IDuLiVP83VudJU4B0sEhWthvnN0R55T2qhucVpNOEw38BNGNdVrQOlvdE1z1 gGYbZKTH6eij64bIwlgWNK7lSjeyA2vlVLh4cRZf968n3QBcckW6MQwjWtCI IxrSjT6AwcJ+6xZnsRKCX+aDlcSsiunFxQUjprE/ieUzBQsaXj2m0OpF8vT0 hJc+dOP29jYuHHpicZ6YoFYP/BxEKyyfLnplOv7G8DljoicQsOC9D+moLFV6 SomehG5wyScuNK81HPsmlwWdVTHAfbsh3egb6kYsHZ2XYKvTDUqHL/OFuytU 6Zsp9IuOmPUh+oM10vf7vU2h5SBLRungFfzCB7gX15NS8Y1eGcVmW3kmWe54 dI/oAw6yYOPNmzeJKbQnSkfQxYF7QTRUjrhXxsr7GsxyK59EujEYkI7n52c4 HlxN0veUWsniU9TDuxw+VNHqbL1SmW/Z2azOGtQJtL8O4G/UPYl0Y2Dw9od6 7HY75pQGXseJ0hGs0cZlU+7u7hSq9EfefoYmujE80o0pAAfg5eVlu92ycAd7 Sm39lFMGWV4fFkGwURWEKuxdGbvRi8UPg2Z8+w/Qa9GcSt0YpmtFeJjPCWfA ckrrav601Q2GKjaqgovvy+Udx27xYvG6Ee8c+L593yuxRwwDpAMxy83NzcXF hdX8ab6UZEI3bN0luhyXl5ecIatoJSPpF+5gtjxMRCPdmBpwBmDOiCaYU3r6 utImHb6Xg/6GopU+yOtvtB1PGasnRLoxOuy3hHT4OqV1K8G11Q1OWsGVv/vu O1Y1HLu5S6NyPCX7ldMHSDdWCIsN4idXdPLS4efPNlePIAcMV8Nlz8/Pi3Is eOzmLo2+x0CnyZSfbT2wxDE27u/v/fhsXc2fJtIRry59fX19c3Pjl2ESp5PX glqNU4w4oiHdmAgvLy8PDw/QjXfv3nmvo1vMQt0IohW6HLe3t2O3dVGMZUED D98k7i5GB+oB3UA0wZksrPlj82dbxSxxRwfTwBATKVrJyOJ1Y6wBI9GKp6cn OB4wbV8d/YuSVjNZgjFZjq0gAoJLY2tki9PJHqc0v+wAccqIA82iLTBqRBP4 WbewAtWjoXSwg9TSOeDJsKCQxlay0IdujDW6Wol0Y0Y8Pz9zHut2u7Xq6G2z wrzLwcludDkuLi5YhnTsVi4B6YaYFAwl4Bjc3d3ZOpIdBlmCsRXLBEO0okyw 08luQc1DlW6TRBIJJ5VZZ9KNOQLr5tIG8cIKDbs7vNfBCsact8IlGxStnEje LK+2+aId7lIpCImrSTdmynclXIK2Q80f0w2ffA4JwtW4UNTLy8vYTZwxUxhP aXWKdGM9MEscxDV/fMzSJFqxjg5c5/LysjgERKIbPY2nNDnyxDjllJHcbrcW wwPrZo/E1dWVLazgq6OnHY9gWNaSSG9ubvb7vVyOzvTRv9GrPebSjZzPJHqG WWHX19fBJLgmgyyVSaRv3rwplER6AgMYeOX+0f2NVseL0Xl8fIR0WKXBVmuy VM6yh8sBN0bRSjfm62+cci/pxhx5+/YtHA8rF2aFO44GLEG0QpcDV+AFNeWt A7EFnWKYbT2HsToZpBszhbniLy8vVmkwlo6Ey+Fn2XNspSg9mbGbNT8CC+ow 0JnlvgMj3Zgv8BAgHQgxuCZLZcCSHlvxZUg3m83t7a0ywdoSi4N0Q0yc9+/f w0mA18Eipa28jiBa4fpuWoq6LYk4pW/dUJwiOmPlwiAd5nUcTQmLZ9mzgjHL gIzdphmQsNkl+Rt1oiTdWAb39/fs66gbYUnoho9W4HJQhcZu0GzIrhtmqulT BrDcyoYMdncxALD0/X7/9u1bm8ZydEGWeGyFs+yfnp60xFtz+hhPaagbg8Up 0o0FA3uHsTMlDApgq7EkOjp88rmlcyBaeX5+Vk2whuS1oOa6MRiKUxYPawBS Ohr2kVZ2kN7c3CDwUTpHE/rr8Mx7WX/9untV+jDSjTXADK7dbucXckp3dHiX w6dzKPm8CWNZULc4pU4Q6q7Qdr+YL6zX4YdXEh0dlpceJJ9fXV0h8GHNMZGg jzil7ZUbHhmEP0fv1WTMSCwJZn76PtJEibBgbMWSz+/u7lSd4yi5LOisij6e oZW/kbjIYL2yYjCYhW5VwuK1IyvHVuJoBf6G0jnS9OdvHD2ym9nm0o1Wx4u5 AJOH18HapE1KhNWNrbBk0NitmS6zsyDphkjz7bff3t7e+rUjbbH7yun2r2sq GGtYNkF2f+OoI3FKRFNoHr1owLuSq6ur5n2kQWEf6yPVbNlK+rOgKdvmlJ9N ZAH+Bn42mTNrTogt8WZJpPA6IB0KWGKkG2KRvLy8wFXwq7+Z1xEHLD753Hsd XOXt5uZG+ecB/cUpGS+bnYk/nsjC8/Pz7e2tX646DljqpANH0uuAxwJ/Q7Pe AtK5DXPRgbYsrDmiDi4cGXsdcVVS042gj5TSQe9F0mEEFhRIRLdx1elITd1j TOHZxDBAOlh/OCgtGJdD90mkwfAKV2tinbGxGzQJYpXwA53TUYAOVI7Y1u0R C4Zz5BGwxNLhs0m9blRKx3OJBmeL8ep9DYl0Q3BZWAgIU0kZsMSJ6Anp4AjL ygdnE77EiY791FwUxSmC0FXwAYtlk9bFLLF04MTtdotLrVY6SF5/YwAXJZH3 Vde7In9DELP36+vr35ZULjgbS0cwOAuvY+UBS8PxlA5X68M2A5VI30v9GyIG 9r7f76Ebd3d3wVrVwfpNlQGLTwnjwrXrVI/sFtRfnBJ32wZ/qnuYukuJ1UKT v7+/t0n3lVlhXjo43d7PuL+8vMRFuADl2A0amtlZUJZu27qIRqyHd+/ewfGg dNggS9rxYMBC6bBBFlzhu5KxGzQos7OaXLqR85nEPIF0cO4JPAcOsvh590FP qQUs7Ovwgyx3JS8vL+tZpTqvBSW6FHq9hXRDdIN+wvX19W63q4xZ6qTDz4Dj vHvELMxNHbtNQ9CHbgQdEXk5pdu28iJCsKwxfIY3b96YdDBmoVAkHA8bZLm4 uIAKrWSB+9npRham/GxiFCAdcBVub28Rs9g4S+B4mHr4QRZKB7s7wOPj48PD A5evHbtNPZJ+fXd4oQ8QqpzOlJ9NjAhcjqLs7ghilqCz9LMDFrNwyUiOs3Al BTgeC5aORHdB38kYI7Kw5oiMUDpubm5Y8ycuUhrjszsoHefn51yreqk1fxLp Dd10YxaDmxN/PDE60A3+tCKlX5b4oRYPk9WDjHSKxiJLoydyKTvoxjRdFOWL irbAW7i/v9/v94+PjxazxPNZvMvhYxY/meX6+prr3Y/dpgzUZT3VGf58daPS +ZnIs4mJ8/T0xIFadpYGo7Q2pSWWDl/f+OLiAhK02+14wZGblImEpbcSgbMq 8j5qB+pGdqbwbGIWQDfge1xdXSHc4Cit9XjUhS3BEC0dj81mUxxWhhq7TRnw UUls8tNRgA4kRnZm2iIxFogynp+fEXHA/IOwJRio9Y4H00rN8cCJXMR2ASUH Z2dBiWHiSp/naDgmREPYw8keDx+2xI5HHLNYUjrEpyhXvYcbM1/1yGtBfccp gUr4/emzju4RogmcRcvIJXY8fJrHbw5YZ6kfpd3v98VhkZc5kl03ivpehYwX L6QbYiQgGhwfwc/dbhc4Hha2BNDx8LPhLi8v4cDganOcSzsj3fC3KNroRuVF JtV/K+YF4gumdcHr4BrW7C8NRlu8blj5DkoHHY83b95wTu7s+kv7s+6J60bO ZxJrhcvWPz8/b7dbW6KFE1t8p4eHAzGB44HrcKB2Lqnps7Mg6YaYFJwDC/Xg nLjKTg8vID6z1Pd4UDfgvbwvGbtZR5idBSXGU7pdRIgscGILgheOtnjHI4hc TDoCx4PVw9h5MnHpWKcFrbPVom8eHx85RHJ1dQUR8J0eQZepl45goJbLWFNA xm5QLeu0oHW2WgwAi/Yg6ICGbLdbH7aYepj7YXjHg2ELSwkVh4pkU2OdFrTO VovB4OoqzDLlfPxK38OgmASOx8XFRVHW8Xh6eppa2LJOC1pnq8XAwORh71zs CS5E4HsEjodJR5CajpBnv99zXv90RluWbUF1HafLbrWYFIg42OkB299sNnGe mM3ND9TD0jzgeDA7fTqFgJZtQXWtW3arxdRglAHduL29RfACHeCAiw3XWr+H h46HH22haEwhO33BFpQYpV1wq8VkgXowcoGAsMvU1OOrkkA9fIYY5+PjFJyI 01lFecSwZcEWVJkhVrdHiMHg2tb4eXl5aVmmCd/DOx7MTod0QIIYvIyiHuk0 qglO4kg8cN2sE+mGmBqweoQbnF0L8/epYjZi6wXEOx6WYnp1dYVL7ff74Udb 0mnbU7OvQCX8/sqD6/46tXaJFUJjvy3BBisCed8jUA9KR9zp8fDwwEWjhnz4 hMVNzdmwp/K/xtvBKerfEBOHmV0wfGwgBgkiFwteDJMO6/Sg+OAKz8/Pw8yr TbyLT5k41h+55rVNShKFsGkpUAAWBbJssbR6/LYEgsMSpgxeelprss5wpj9w mUs3cj6TEDmwyAWhB9wGLnUdFPew4CUIW7hGrc2rfSzpr98jYX3L9jdyPpMQ WWG4QQW4uLhg5GK5pr7rI5AOppgCdnfs9/ueRlvSgxETdOYT4yndLiLENOEK s/AZIALb7dbWcPHDLgG+0wORC3QD+sPJMnmfbZ0WtM5WizkC6YBuQEOgG0z5 8JFLICD81dQDjgonx8F1gXpkrKC+TgtaZ6vFTKGxc2Lszc0NftosuSB4iaWD YQvcFRZEZR3109VjnRa0zlaLBQCXg0HH7e2t7/qw4MWgnlBb/NRaOB4sxn7K Y6zTgtbZarEMWE0djgcEBCGMTxhj8GIeCNUj6PRApMNOj1OWul62BSnvSywV li+G/wAvgnUFGZL4GkEeW6mWw7WcW8di7B3ClgVbkPLMxRqg28DCPtfX1/Ao rOsjUA9Kh+/0gG48PDx0KAq0YAtKjNIuuNVindD9gG7A/PFzt9sFAuIxx4NZ ppwgA/1pXhRowRYkf0OsDQ62ImZB8IKfXEvOD754fleCv74pYWp6w06P2VlQ Iu/rLCI+pW6PEEuCXR8s9PH09MRCH+z9YAeI6QaFheoBRwXqwXUn09eflwXV qUE6GJFuiHVCFwJeBwQEarApoYCYhnDbvI7tdguXg3PzE1eekQWdaR69EJ2A /wApgCBAFrCBEIYeiIe6cXFxwXm1zBCrY3YWlGte2wSn3gjRHxxsRcwC94PF OooyeYxaYaIBICm73Q7HJ/o6Zmc4mg8rxOkw75QVSiER+BVuxrYEooGfxaEO aiWzsyDphhC5YAfI27dvWaT07sDLywucjUTpsNlZkObRC5EdRjHPB4oyokkc v04LWmerhcjFOi1ona0WIhfrtKB1tlqIXKzTgtbZaiFysU4LWmerhcjFOi1o na0WIhfrtKB1tlqIXKzTgjq3eviPa8R/oFFuvZJPeLCb5r1RYq7oGpBuTPbW K/mEpRtzRLox2Vuv5BOWbsyRuMKPEKIVYxuxEEIIIYQQQgghhBBCiOGI+4fr uovj/U32pG+aeIy8d4wfIH2Fnm49ZBvHvWlR8yGf1X/NTrlj9hb1/cBz5yyy l4bbTfYcvaP/Rzl6WOc7xleuvG9iZ5Zbd7tstzaOe9Piww85vkjeO/bRol4f eO5Uiqr/a2I7oynFjzHAHev+1Outj37avX4/BxYr38wODW97u/TVWl2/7wee O80/jV4lvfLEXr/e8cGDSVbby2b5fo4iVkPeMa+ZD6zns2Zg3ag7YBTdSPy6 DN0Y5aaVJ/ZxxwG+KtINz1j+xlE7zX7HxAM08T3mqxsjitVg/kavLzXpRiVn BxJ7mh9Zd27ldfyRlSfmumPlMyQepr9bD3aj0W9aRJbV6x2zX3+Yj0gIIYQQ QgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIdKMMoPp9Jv+6Ec/sp9+Z7BH CNEHc9QNEwevEpU7hRDZCSZN102pbjjbuvKY+Phg2w6oOyt+7FgiKgVECNET lZabdyPXvYxALuJopba1QogcxC5BZ+uuO7340MfofEHD60YsHdINIfomu3tw 4umJCxrq3xBiXOp6IYpmzkB8qYauyNGb1t2lqJeIyrBFCDEREs7AAKSVQboh xDQZVzeKenGQaAghhBBCCCGE6MB/ALOEq+M= "], {{0, 280}, {360, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{360, 280}, PlotRange->{{0, 360}, {0, 280}}]], "Output", CellChangeTimes->{3.769207946414878*^9}, CellLabel->"Out[5]", CellID->229553323] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HertzsprungRussellDiagram", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {2., 9.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {2., 9.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["HertzsprungRussellDiagram", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/HertzsprungRussellDiagram"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "HertzsprungRussellDiagram"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["HertzsprungRussellDiagram"], BoxID -> "HertzsprungRussellDiagram", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"\"Zubenelgenubi\"", RowBox[{"Entity", "[", RowBox[{"\"Star\"", ",", "\"Zubenelgenubi\""}], "]"}], "\"Entity[\\\"Star\\\", \\\"Zubenelgenubi\\\"]\"", "\"star\""}, "Entity"], ",", TemplateBox[{"\"Zubeneshamali\"", RowBox[{"Entity", "[", RowBox[{"\"Star\"", ",", "\"Zubeneshamali\""}], "]"}], "\"Entity[\\\"Star\\\", \\\"Zubeneshamali\\\"]\"", "\"star\""}, "Entity"]}], "}"}], ",", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.7692062647667303`*^9, 3.7692062972819815`*^9}}, CellLabel->"In[6]", CellID->891512172], Cell[BoxData[ GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztncuP7MZ1xpVkk2WW2ea/yDbLbB1kG8BGPE42DmIHCLJTgGyFrPIXBMgy gCNIC9mR4TiAr4QLQVJkObqyHpbs3OnXTHfP4z6m5zJf+KFPzq0iq/kokkXy /CANeDlsssjp8/GcqlOn/uBbf/WNs99+5ZVXvv+7+PGNb/7tH33ve9/8uz/5 PfzjT7/7/b/8zne//ed//N2/+fZ3vv29P/zW72Dn7//WK6/8Bf7/v+3MMAzD MAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzD MAzDMAzDMAzDMAzDMAzDMAxjVJwphjpDOtS6hSo37vzWOfLk5fwD4j7krv9k Zy/T6bWM3qj7NT55klF/N9j46rdQ3er9jYoX8mVnXLrR51WM3jDd0MTVjcLf FgpI+CSmG0ZqxNKNCfiiDdQvfMtaIuSwZtLU7LPVz9814/1WGIWYvyE0UL9a /oZYfS3zN90wEsR0Q2jmb1Q8oE3/RuHPWJhuGM1oH2JMLEgp21PlU4XHBLSi pfK0p58Yc7xfDMMwDMMwDMMwDMMwDMMwDMMwDMMwDMOoxZlhGO0Y2ogHYOx3 /frrrw/dhEpYOyOSVCPHbkHNmOddG0Ys5mlB87xrw4jFPC1o7HedlMsawNoZ kaQaOXYLasY879owYjFPC5rnXRtGLOZpQWO/66Rc1gDWzogk1cixW1CYsoHm ad+1YXTNhC3orLx4S/S7fvHixf39/ZMnT+Ke1jDSZNq60bW/cXV1dXt7u9/v t9st92Bjn4NfXV9fQ0zu7u6iXEuTlMsawNoZkaQaOW3dcDb8XzXm2bNnEITn Odi+ubl5/Pjx+fk5ZORZzl0O/JDNZnNxcUE9wcGHw4HOScsGGMaAjF03dPsd B6M73YAjAdvf7XYQit/k/FrBPf9zBKKBI+mBYBsygm1sIKh5+vRpRw6JYXTK qHWjUCVkuyPdoGgsl0vqw9dff/3VV1/96mW+yvk6R8QEGrJYLJY5UA/IBXwP nBDbOCdcFPgqFduQlMsawNoZkaQaOV7dCIiD3hm9fwOuAjwHRCVQA4jDl19+ +UXO54ovjuC3WkyoJNohgceyWq0oIHA/tjkIZ3CJ+5zG7TSM7hivbpCwbgQ+ 1XhGMOMOmDwUAGpAxfgs55dHPlOImHyZ42iIjmugIdc5EBDoxnq9hiuCbXaM gCwfuKn5hNLi4cOHHR1s9MlsdaPxFakbsHQ6GxAECMWnRx7lfKpwxES8kTIZ AdAQ+DPUDYDLsa81y8drEM588MEH2KaXkjItXeu4usHH9STnVgGnbhQCZXFK RAbRDTgA4m9o3XhUgi8jjjfiyEihK0JwaWnJ5eUlu1thERy7IY1vjTw8kinL 1RvyW+cjhf90jvcPCxypm+FftBB5CPDT8BMPB49ol4M/XNmnoMY48ubmBhoy do+uHyajG9mplYvLPlUXfhVhwjBtx9+gSnyiCGiI74cUaghdET1S8/gImgHr gB8C3aBzwu4R7uHrtW4PiS8IHW1Uv0SZXPDWeKcI4mj7HLECq9UKB9BPe5oD 6eBY+WOP5XKJA3ASPk+TjpOMXTea0eau+S2FnXIwBQbOno1C3QhoSGEs48iI 379a2DECYClwP2A7fLeKH4KdT45k1WSk0D0Ib5Q5FWHdqPUp2eawNW4HNyse hTgV2HmZAymQofDfHKH8fv0yoskQEMgOzomTJygdFqcMTpu7xjeKDi2HYmHI 0jUqXkeZdJwUE9GTsnBGy8hXR3TqCPtGZMAXFkTfm4bAlzKAaeAuArcZiFPK NpzPRtwAt7e3+CdaDoXMcgGESvA2FzlaIrQ+yFPSA+UyCqYFWR4gTq7jQcPH dKMZdH3xdcWXjd9DJ2CpLh0nI5qyoCY82qsdEnHIr6+vmTcCGYHXxFczxASW gl9hv/YBKDXhXojCnRWdisCvqHUPXwZ70HjohiMRWh+0MhB5Snqg3B/wwgHs WcI58WfN8oC05ZdkwgQsaMK1i6PcEcwN0sEOUmdsJRywxNUQ3TeiB2sKM9C0 kiDSl4gGvgduZ5WzzoGMsKsEPD+SNR1IPfkp9sYwaR9PlZn5aAyn+aCR9Cgc oXCch4A46FFyHx4g0oELoRlQ1IbfjG4YS5wyAbko070ot8bhPHy98TWTHDAn YGmjHif1pFn3iCiJkxgPJdG6AWA4nGXDvkf2jUABbo7cVoCuQuAAnoqDHRwY gs3in2wMWhXWCkci9KP49GWKx7rUkxTpwBXRAApm++/JJCmzoGk4G4G7i3J+ SAe+XUwD09IRGGHpSEMq+iRaSQrFxEmMZ3TDIWC88fETYQI1hLxQVH9u8hE5 D+RXBju0XyHRhwQdWijKJCKgEmVPUusGU2jQznAX0JypYlkjlY4e5tFnuWsN yqQj8HXtTUPCoY0vIwExEefEmbtH/PHNMvSnnImBTk9mQC6aqUTZA6Ru4BLJ 6kYKcYrvTgRSr8erG86G/6socJSTSR1OwAL6kQ5tAnItLSOyIUZXpZ/El5Sv FIUDmlXQn/L7M53OCi0U+OnckXOnjZ+YE6dw/NrilDLG7m9UyfvqWjeyXDrw boLXgZCcdiFvySg9pVEofCOXeSZaTwKqIsLSAH0SpzPTD0CaORIVHwtv/PN8 DhGHVNjHEvdLMiWqjKf02Z5aOP6S3p/16G8Q5nXIFHu+Q+V1mYh0CGWOvd9R UDj0EJCU6pQNdgQCkI6eg9O5sVgsbm9vUxuHTSFOEVKWhTABcXCCr7LPdgFT wvDFY8zOCbNpSodDdSXxxaQlJ7s0O71l39nYbrfr9TrBlNF0GK9ukLBuBD7V nTfF0hkIWJy59mIjKatHmDJtiUXPN0KZor8E0YCLCNGAYtzd3VWvoTRPZqsb HbYprz6Kn/gGOllhdDz6N5PeSEocwo0Ux0lEA/4hYkzObuv069EMi1MikqZu ZHlPaZbPqtABS6dZYUYVfNHQORuITWxmShUmoxtZX/PoqwPR4KQPXVTQzwoz 9egNeeDSnSsz2vA34qoW9BWNMGPXjWb0dtdcjAk/WflcujtkBMGkowfkIUuP rrgZ7AiFp8H5+GlGKMTilMHp86451RQOsCMdErOYbnSKE5hIL6gz+5XzYnr7 Vowd040eEOlgMZmyqfemHnFxFMNxM5gzv1qt8KfJjl3ZRkVMN/oB0sGOes6f 9QdZhuruSHngowE6JHF8DMfNePz4MVexub29TSoEKCOpRs5BN/rJFz0JS0xc XFywaocTs/Sf2uELRWHO1Yg0xO/HkMIaWjFY55mVnM3NaMbkdaPijJXeYHlS fF3x1ZWYxc8p7dpUHbnws0B7y/Ruj38v4mMwKpF6I7LQFeuKcKzcaMC0dcPJ RXf2Z8r363Pj7bffhsuB760khume0h4cD9/E/Gkm/syRQp+koxZWvwtpknYw qBiOj8Gyw0zPwAFMI+cf5fWcAb8SVTZee+21FJrBjQnrRs/z2moB0WDxW8DE MFkysuvOUseZ/8xbCsqZr+pMZk/BFfG9i8KQRFcfgkTD0+Oc5Swb/bJ3gzO4 BbUkkPeVfkURVqK7urpid0c/PaWFoqELpDtlMapUzulNQAIhiROVsOeTZcqy fI0qCDXXUAjAis2MYrL6q8/Mh0QsqBnhefRl/yzcMxSQDtaH4RTaHnpKeUL9 gha50FW8/GrhzTQkSuPL5EKSMUT3xMdYrVasq5xVyM148803ETniDyHrp7Dr gwtGJOKc2HhKFKrMoy/8Z+GeAWE3Kddy8kscx3U8tOl9pip4S58hi4ji7QyX nhXMdMFPqeMXvTJwGfrjfg8GPSUtF6yuzMW4oRt4quHap1ydDUfyn5vNZnGE y3xjJ3Nv+vkyjIWkLKgBCc6jbwa+wPCK8b5zJrPElY4y3aBoLJdLrmrE1d+k 4BUadnt7K6VBA35ILRmpgny2UC50SMKFL7PczJktEzB2BiBc3o4OBoe35O50 jXees4fvwIiIbjhijP2YZLLzYRsgU2i7y+4Q3RAblFldeMNCKFjkinU1aVCc nSfdidA3mBJXSfP9EL1OgV8p9PMKa5oUVhLT3bZaLmRclWEIdOBwOJwcXcXB XAST68mKGOp1FmQhPPwKT4CTjDr++59gwnGKVgzTjQbgK83XJYsNUjoiOh6i G7RQrRvMuC4zOr670Twud8JlWGW1d1iffln7BYcLa4pqPREKK5fqPlvpgaHK cdEoltk5adpcpJ4VHRmJ6AUXdAtFo/hwsqOqG2QyupGlN4++GZLECCvWQ7Sx sju0yyGlJ0Q3To44sIUcm4B6QDdgv+v1mnsknJGXuL+a81cv86uX8eulO8vM wd5p/swSr9L5wAajbYzCcAa9nJP01Wh3SNflwMF0vWL8eSdCR3FKyoaZpa0b Wf49Z3QAAdE9pVGyO5xQRfo3YE0UgQYN5jprEs7IXcAZ0N2M0suq14gvRBZk YVctoDRl+eAI+zGqLFJASUGruDacrC3LR0ql8hNUxBnjw6FuDF45cMJxylgY xV2zcw9mwpejvBn5QmwcsMinZByWb1WuxQYHvuWLldP3aKeUEb2eI5SEK1lf BuEBECLGIFxOGhu1ivhxNb0s1w1nyUjtY0ifrdNp/PlxDSaLU3xGYUHRGctd w164ZBiMyEkrlZilgePx6FFBdU0OH8DE4DzEmu3F1/1zBZNVLo5siuCvmFDB T0FCOSuw+nPLcrlgbXk6OeJjOEGfP0YsQRwfC3Vv8H7RpIhlQWdFRDlzF6Tc NgfYC5eGx08nZmncU+r3jurZ5TD2ih0dJylzrV9UoNkV+VnILH4itBHFkJ7P Qh/DFw29LAJOm0LR0QnHKbUGNXqgTL5SaFstmBuGtx7enuJp+0O0zaTDL5qH NzVf90Pfdw0gFNBY5mPI6Kr2Mai0EuKV5aHxmXxxXPAR4iPxjiFMWDcKh2jL 9qQPh2jx4oMnXzZEWytmEUtxvA72dcAAn+UMfd9VoUuAZkuBAg7KyIDvZy9X kneekhO7SXcxtAjey9A3lxxzGE+Zhm5kecwCNwC+B8KW8BBtLenQAYskLcBk mKfdRjp6cK1ZRoMdQTLAqns+9QyasofjPAeJUJg3m8jq0hOOUxJkGnGKhhnp zjhL48VZtMn88uX1RLgsO97j8PwTsR0HzkNh+pku+0wtLfTEykRD+13SS5xZ 3dESRm1BWbW8r8n4G8LTHLgfLHSsO/0aOB5OaO/0lHIeOsc1hr7v/4fdtuv1 GorBjHe/26fic/D7eehusVvDZrQVEr1/o8/xFH0Vv2tlYv0bGris4gNwPou2 Gun9q+54iG44MYv0lDKvo650dOFaw9diRll2XEkzMMB68vYfPSqY5cexV66Z Fb39jZlJnNK1bQbEQe+cXpyioePBtNLCqXCNYxb6+XqQhTPro4zPNoYZ46zR yjl3zCi7PnLlsS9HH8YcM6aZMbVs2DtNnPHqhnOVuvPaEuy/bQbsiD0efvkO x1evJR2femsuUzpY2aYwCeoVj8IGl+0/Ca/L+TsUDVo6TB7nrC4XVURDGtm4 tdOmuzgl4mnDV3Q2smq60WGbusdxWZnhybxu3VkqfYNtYhYnu4MTWJiKGWgh zQ1SU/aruuAe73N8NwOG7+hGA9HgOSkauFaCcjGTOKUf5qkbPrQprnBaGLM0 cDz0TA09yAJp4tTXsvBfG53/4i70Rpw9zjHUKO4RN0OOoW4QLQ7OTt8domhQ N2SnXMu/F0MYe95XlfGU8KemBOelYkMWlGw8B1+PTupBFhmjpJPjS4cvCC03 eEfYoKeBDZo57F1KcIi/4UgH5UJvOAeLs8EkkEBLDE0sCzorIsqZuyDltlUh 4LJyyGOz2XBBSSmT3szx0DGLHmRhDVK/HJ9jZWhARXFwHAxnA06UPoZOgvgM Wi60bvj+hpYLnkFEI9yAFJhwnDIWexxLOxsjuQe6THqzzFJHOnAGODM0N2ak Yw8nfxWaWC3vwvkUdAkbnJVPG5eJtFQAbFAW8JP7tUroPdzgB/WvRDQY6KWs G0kR0d/Ies/faEzKbYsFPQG8VVerlV5Qsk1PKQSHZcEgRD/4wQ/eznnw4AHO zL5EB7Yk/M+yY6Sfwe/QoMk7voS/IehYhp+VPg0mpRS22dkwNNO2oKnmb1R3 WWEdMEDELHAMmBumZ4bWdTzgV8D0oDw//vGPWeSH72sWCfETHgrHU6rAUzmD rdrN4KAJ120k4orIP2VDPsXwhIex5Szu0azKWc8kG6ek7yfUYsL5orXgWrT7 Yz524+Vo6XJg4yc/+Qkri0rFv/V6HTFXin2tDE9ENEQuuOGLQ+GG8yk95Ip/ MjZJKil0LDQbxwyf8KT+vFpE4ytWadLJPZNnf5xmHu7uOCkd77///nK5hG7Q aeEgC/Yw+YHBURtLZHjiiIYkggacCv9X2jnRnyWQuLIENuMkcXWjygfLJKIj 6ZhAnPLw4UNnTzOXFW45lz5kbhjndNSdCvfoWBFLp6MjCJKYRUtH3TiF7oqU JxVPIxCelOFkdjkZoVwEVq7bOJ7qkzTjlN50Iy4n46wJ6EZEmG+Jn5vNxplA WqYer/3zT//s79/4u3/6959//N9OT+mj49xzJx2do8BZtZLjAlc0cNbJZavk cg9zwk7RJ0XVzKR5cI34ELp6xJPGjyZi6Ubd8ZQ2ccrJ9pe1QfaLhve88dBD H6N38mDnU4ETco/+uN4DfvSjH+EVjA28lGGh2JAEDx4gQy3Yfvs/3oFo8L8f /vR9mKRYrjZkmckiOaUwzywPi5gfHn4acABwDA6maJQ5QiflwnGKnGJEbBWk CZcb6u8+mY3o/Ru10HJRVzpk5Ff/0/lVmYIN7m9oA3c2qhzjHFz2z/AGCw9i g+93bNBUKR3UBPz863/8IUTjW//w5gf/9bG867nBA3CwSIc2Ui6phjc76+wV FrJAsADFYBDB0qn+SjENREM7G0xUw5lxfl7Lb0ZSIUAZSTVywPEUXygaeB3N dG/wJJOwFPjOQ+Bg/RHn4yd1A9aKjdVqRcdD4IueAvLhR7/4l3/7z/c++Fjk QtAfkfe7E7PAWqkbcCduPLiAWllWfMUB4kLR0C0RT8OWh45FXMM58wgcLCrh b9S6orORVdONuheKS0WX4ORG4Wmruy543WMDP+EYYEMK4NByHcdD64b4G/4r 3plCS/Xg6swc9+RSBdzmwrKFQzwNROOTl4t3iWhAGBmetPiLGS8RXTec7fBo 7Mk91a84Jd2o6284x9fdwxKa1BDC7gVGHwxDxH55gO9yOOnost4Zl3llp4es 3qgXkA3X92smGlImFGeGw3N1dRVepTGpEKCMpBo5oG5k7fo3Cq9YMfQYXDeG osxRkYKlUqtTF/+pXnNPq4fu8dALyusFpmW1+sYl2Z2rO90auJd9vnKE5WnE JboFaeOtcvIe8r58TDd8pGCpLAznDIaetGgZsf34F5/oUqVSwYMaotFDwFFE Q/s5rMcuCRv9PeUZkIIF9SwaWRp33YaOXFYY15MjdQuWvvvez/WIreN4aAHR aMVoFpv4usEIBbq3Xq8RfFVZyCCpEKCMpBqZggWZbiQF1UMWWeBE2ioxix6x dWIWUQ8ffcKWouFEKLiRfQLruk6STsdTKn7KdCM1WMsL7j3HO5wR0rJp+JCL f33rIUdsfbsmsOjCNejXLdCr2CMw2e12kAtWILFujY7ool+0eucG6XlSW9nO EdGDywrp4MLuNzc3WjpqLbLg/BbbOFWtAsJV8CsMs+hf9Sx3m59Sl/51o8/J sGVuz9h1ozdgelKwVDLAdcwSiC8++uij1WoFf4Cz7wkHOOLiTF6TsuTWF9od HVnQgKmYDqYbLaFubLdbRAGFi1mzb8F3Ld5999333ntvn09fxZFaN/zKYIWC ULbfF40rtQYKJ+7pufzRa3aVFTacD/1bkM2jb0//Live4JyG74yzlA3RPn78 GEYN3YB6aDP3p8AHxKG6bvjOhu7ZOGnUdeOUQVRiwnFK1nvdnpN5X5PUjUF4 lgPnXy/tVCYd+Ccl4sMPP3zjjTcePHjwXg6OL1OGQI1Q5yOyR6+cQt2AuKGF Tv1SZ9v/7ckD/I3AJeZAd/miPaBVoizP3HQjIiw5CPUoLDnoRCv453K5hHVD Zz766CPqBmKcMnciXGS4cEOqDXNRAylOLkuusNl9bsyE8eqG0/s6K90Y0GVl dgfnljrZHYWOB7RltVqJOEic4scgFeVCOyHOYijQjYrFyX3PIX3dmHCc0ix/ o+UVnY2swk313MiJwbmlh8MBcQF8iUBGuj/IIv2ie49a/oaOU7Ru6DXXhFr2 nqxuJMV4/Q3ninV1o8M2zQauLu10d4Tr7YTHU8L/9Hf6ugE10y4H26mN2vmV v6fKpwpP0s0zThTTjTGSiMsq6zxeXl5WXBUubv6GMwIrulHW4DL3wPK+6jKZ OEVfvdanjDZAOjhEC/v1szv8nNJOdYPTasJpoo6fYDRjnhY0z7vuCK56QLN1 MtL9dPTBdcOIwlAWNKzljl03knJZCayVU+H8xVl03b+OdANwyZVmumFxSl0G tKABRzTGrhtpAoOF/ZYtziIlBL+IByuJSRXTxWLBiGnoJzF9UrCg/tUjhbue JHd3d3jpQzd2u51fOLRlcR4fp1YP/BxEKyyfbnRKOv5G/zlj4yUpl9UHAQve +5COwlKlbUr0BHSDSz5xofm6y1sn/jxJUo2MZUFnRfRw3WaMXTfSh7rhS0fj JdjKdIPSoct84eoWqnRNCv2iA2Z9GN3BGun7/V6m0HKQJaJ08Ax64QNci+tJ WfGNThnEZmt5JlGueHLPuEjKZQ3wzjvvsCzw+fl5YAptS+lwujhwLYhGlXLE wiieZ1KNHCrvqzfLLWzJ2HVjRDx//vxwOMDx4GqSuqdUSha3UQ/tcuhQxVZn 65TCfMvGZnVWoU6g/LYHf6OsJaYbPYO3P9Rjs9kwp9TxOlpKh7NGG5dNubq6 slClO+L2M1TRjf6Znm4k5bIG0O2EA3B/f79er1m4gz2lsn5Km0GWR8dFEGRU BaEKe1catDNZkmqkHgaN+PbvodeiOoW64dys/FFso7sN5nPCGZCc0rKaP3V1 g6GKjKrg5Pu8XtDgtzzVDa0b2ZEeTL7wul1fK7DH6AdIB2KW7Xa7WCyk5k/1 pSQDuiHrLtHlWC6XnCFr0UpEwt5Fb7bcT0QzPd1IymUNUNZOOAMwZ0QTzClt v660SIfu5dhsNlm1DtJRPM+kGhnX36g7njJUT8jYdWMCsN8S0qHrlJatBFdX NzhpBWd+/vw5qxoOfbtTo3A8JfqZwweYbswQFhvET67opKVDz5+trh5ODhjO htOyi8Nm1ken6zHQNEm5bVVIymUNEG4nSxxj4/r6Wo/PltX8qSId/urSl5eX 2+1WL8NUt52JkFQj41pQrUGZrpM3wpfu/6KGz/39/c3NDXTj2bNn2utoFrNQ N5xohS7Hbrcb+l4nxVAW1PPwTeDqxuBAPaAbiCY4k4U1f2T+bK2Yxe/oYBoY YiKLViIyed0YasCoU5JyWQNUb+fd3R0cD5i2ro7+eU6tmSzOmCzHVhABwaWR NbLbtHNAkmpk9Dil+ml7iFMGHGg26gKjRjSBn2ULK1A9KkoHO0glnQOeDAsK 2dhKFLrQjaFGVwsx3RgRh8OB81jX67VUR6+bFaZdDk52o8uxWCxYhnTou5wC phtjJCmXNUCDdjKUgGNwdXUl60g2GGRxxlYkEwzRip8JNornmVQjo1tQ9VCl 1uCLf/7Mi3QKs84mqRuTB9bNpQ38hRUqdndor4MVjDlvhUs2WLTSkrhZXnXz RRtcpVAQAmcz3Rgpz3O4BG2Dmj+iGzr5HBKEs3GhqPv7+6FvccSkMJ5S6yOm G1liLmuAlu1kljjwa/7omKVKtCIdHTjPcrnMjgFRlHb2Q1KN7Gg8pcqRLeOU NiO5zS5t9A+smz0SFxcXsrCCro4edjycYVlJIt1ut/v93lyOxnTRv9GpPcbS jZhtMjqGWWGXl5fOJLgqgyyFSaTn5+eZJZG2oAcDL9w/uL9R6/jUSMplDRCx nbe3t5AOqTRYa02Wwln2cDngxjBaGcXzTKqR4/U32lxr7LoxT548eQLHQ8qF SeGOkwGLE63Q5cAZeMLwlDejEN+C2hhmXc9hqE4G042Rwlzx+/t7qTToS0fA 5dCz7Dm2kuWezNC3NT4cC2ow0Bnluj0zdt1IymUN0EU74SFAOhBicE2WwoAl PLaiy5CuVqvdbvfuu+9Gb2d0kvqj++JgumEkzosXL+AkwOtgkdJaXocTrXB9 N1uKui6BOKVr3bA4xWiMlAuDdIjXcTIlzJ9lzwrGLAMy9D2NgIDNTsnfKBOl setGUi5rgK7beX19zb6OshGWgG7oaAUuB1Wo09a2JKk/enTdEFMNf6QHyy28 kd6ubvQALH2/3z958kSmsZxckMUfW+Es+7u7O1virTpdjKdU1I3e4hTTjQkD e4exMyUMCiCrsQQ6OnTyuaRzIFo5HA5WE6wicS2oum70hsUpA9JPO1kDkNJR sY+0sIN0u90i8Ek2nSOpP3p3HZ5xT6vPX3atQh9mkrphODCDa7PZ6IWcwh0d 2uXQ6RyWfF6FoSyoWZxSJghlZ6i73xgvrNehh1cCHR2Sl+4kn19cXCDwYc0x I0AXcUrdM1c80gl/Tl6rypjRSEnKZQ3QczuZ+an7SAMlwpyxFUk+v7q6SrM6 R1J/9FgWdFZEF22o5W8ETtJbr6zRG8xClyph/tqRhWMrfrQCf8PSOcJ052+c PLKZ2cbSjVrHG2MBJg+vg7VJq5QIKxtbYcmgoe8mXUZnQaYbWWIua4BB2vn0 6dPdbqfXjpTF7gun2z8qqWCc2rBsUn/06P7GSUeiTUSTxZ5HL38L25jSxrOc i4uL6n2kTmEf6SOF9zL47SS40d2bN+V3esptM6IAfwM/q8yZFSdElniTJFJ4 HZAOC1h8TDfGSFIua4AB23l/fw9XQa/+Jl6HH7Do5HPtdXCVt+12m0L+eVJ/ 9O7ilIinjU7izTOicDgcdrudXq7aD1jKpANH0uuAxwJ/I/1Zbz0Tzm0Yiw7U ZWK3Y5TBhSN9r8OvSiq64fSRUjrovZh0CI4FORLRbFw1Hakpa0YKbWtDUi5r gBTaCelg/WGntKBfDl0nkTrDK1ytiXXGhrqRFB6m4KuEHuhMRwEaUDhiW7bH mDCcI4+AxZcOnU2qdaNQOg45SQ3ODkXAptokSCSF6YbBZWEhIEwlZcDiJ6IH pIMjLDI4O/QNDUPAl2jp2KfmolicMiBJtZOugg5YJJu0LGbxpQMfXK/XOFX/ 0pHUw4zrb/TgogTyvsp6V8zfMIjY++Xl5a9zChec9aXDGZyF1zHzgKXieEqD s3Vhm45KhK9l/RuGD+x9v99DN66urpy1qp31mwoDFp0SxoVr56ke0S2ouzjF 77Z1flXWmLJTjZekXNYAybaTJn99fS2T7guzwrR0cLq9nnG/XC5xEi5A2UOb k3qYo7OgKN22ZRGNMR+ePXsGx4PSIYMsYceDAQulQwZZcIbnOUPfUK+Mzmpi 6UbMNhnjBNLBuSfwHDjIoufdOz2lErCwr0MPslzl3N/fc5XqORDXggJdCp1e Ym66kZTLGiD9dtJPuLy83Gw2hTFLmXToGXCcd4+YhbmpHTU1qYfZhW44HRFx adNtW3gSw2BZY/gM5+fnIh2MWSgUAcdDBlkWiwVUaCYL3I9ON6KQctuMQYB0 wFXY7XaIWWScxXE8RD30IAulg90d4Pb29ubmhsvXDn1PHRJ+fTd4ofcQqrQn 5bZVISmXNcDo2gmXI8u7O5yYxeks/fSIxCxcMpLjLFxJAY5HXOlI6mEGugu6 TsYYkIndjhERSsd2u2XNH79IqY/O7qB0PH78mGtVT7XmTyC9oZlujGJwM/Hm GYMD3eBPKVL6RY4eatEwWd3JSKdoTLI0eiCXsoFupOmiTC9fNCmXNcB42wlv 4fr6er/f397eSsziz2fRLoeOWfRklsvLS653H72R/VOW9VRm+OPVjULnJ5G2 GYlzd3fHgVp2ljqjtDKlxZcOXd94sVhAgjabDU848C1FImDptUTgrIi4TW1A 2chOCm0zRgF0A77HxcUFwg2O0kqPR1nY4gzR0vFYrVbZcWWooe8pAjoq8U0+ HQVoQGBkZ6R3JKTgslZhMu1ElHE4HBBxwPydsMUZqNWOB9NKxfHAB7mIbbOS g0k9zNFZUGCYuNDnORmOGUZF2MPJHg8dtviOhx+zSFI6xCfLV72HGzPegqVx LajrOMVRCb0//KmTewyjCpxFy8jFdzx0mscvj0hnqR6l3e/32XGRlzESXTey 8l6FiCfP5q0bSbmsASbZTogGx0fwc7PZOI6HhC0OdDz0bLjlcgkHBmerOJc2 qYc5It3Ql8jq6EbhSZLqvzXGBeILpnXB6+Aa1uwvdUZbtG5I+Q5KBx2P8/Nz zskdXX9pd9aduG7EbJMxV7hs/eFwWK/XskQLJ7boTg8NB2IcxwPn4UDtWGa1 jM6CTDeyxFzWAHNoJ+fAQj04J66w00MLiM4s1T0e1A14Ly9y4jYyOqOzoMB4 SrOTGEYUOLEFwQtHW7Tj4UQuIh2O48HqYew8SXyoZZ4WNM+7Nrrm9vaWQyQX FxcQAd3p4XSZaulwBmq5jDUFZOgbKmWeFiR3Lb7fuDa4PXgzTm689tprKTTj 5IY80vYnfOutt/ATQQc0ZL1e67BF1EPcD0E7HgxbWEoIp3rw4EGCD3PmumEY XcDVVZhlyvn4hb6HQDFxHI/FYpHldTzu7u5SC1vmaUHzvGujZ2DysHcu9gQX wvE9HMdDpMNJTUfIs9/vOa8/ndGWaVtQWcfp2O86qa71ANbOLK9AyE4P2P5q tfLzxGRuvqMekuYBx4PZ6ekUAhq7BYUpu7tp37WRGowyoBu73Q7BC3SAAy4y XCv9Hho6Hnq0haKRQnb6hC0oMEo74bs2kgXqwcgFAsIuU1GPL3Mc9dAZYpyP j4/gg/g4qygPGLZM2IIKM8TK9owL8//j0nM7ubY1fi6XS8kyDfge2vFgdjqk AxLE4GUQ9QinUSU4iSPQ4LJZJ9PTDWPswOoRbnB2Lcxfp4rJiK0WEO14SIrp xcUFTrXf7/sfbQmnbadmX45K6P2FB5f9NrX7MmYIjX2Xgw1WBNK+h6MelA6/ 0+Pm5oaLRvXZ+IDFpeZsSKv0P/1t5yOT7N8w/z8uw7aT8+hh+NhADOJELhK8 CCId0ulB8cEZDodDP/NqA+/iNhPHuiPWvLakJNEwZFoKFIBFgSRbLKwev86B 4LCEKYOXjtaaLDOc9AcuY+lGzDYZRgwkckHoAbeBS107xT0keHHCFq5RK/Nq b3O66/cIWN+0/Y2Ybeod8//jklo7GW5QARaLBSMXyTXVXR+OdDDFFLC7Y7/f dzTaEh6MSNCZD4ynNDuJYaQJV5iFzwARWK/XsoaLHnZx0J0eiFygG9AfTpaJ 27Z5WtA879oYI5AO6AY0BLrBlA8duTgCwn+KesBR4eQ4uC5Qj4gV1OdpQWO/ 69T86jKsnVGgsf/sZz+D87DdbvFTZsk5wYsvHQxb4K6wICrrqLdXj7FbUDPm edfGBIDLwaBjt9vprg8JXgTqCbVFT62F48Fi7G2aMU8LmuddG9OA1dTheEBA EMLohDEGL+KBUD2cTg9EOuz0aLPU9bQtyPK+hsXaGRGnkSxfDP8BXgTrCjIk 0TWCNLJSLYdrObeOxdgbhC1jt6AAlmduzAG6DSzsc3l5CY9Cuj4c9aB06E4P 6MbNzU2DokATtqDAKO2E79qYJ3Q/oBswf/zcbDaOgGjE8WCWKSfIQH+qFwWa sAVN2N8YhV+dWTujUqWRHGxFzILgBT+5lpwefNH8Jge/Pc9hanrFTo/RWVAg 7+vMw/9I2R7DmBLs+mChj7u7Oxb6YO8HO0BENygsVA84KlAPrjsZPv+4LKhM DcLBiOmGMU/oQsDrgIBADVY5FBDREG6L17Fer+FycG5+4MwjsqAzm0d/ZBR+ dWbtjErLxSghBRAEyAI2EMLQA9FQNxaLBefVMkOsjNFZUKx5bQlOvTGM7uBg K2IWuB8s1pHlyWPUChENAEnZbDY4PtDXMTrDsfmwhtEe5p2yQikkAv+Em7HO gWjgZ3asg1rI6CzIdCMbiV+dWTuj0kUj2QHy5MkTFim9OnJ/fw9nI1A6bHQW ZPPoDSM6jGIOR7I8ogkcP08LmuddG0Ys5mlBY7/rUfjVmbUzKkk1cuwW1Ix5 3rVhxGKeFjTPuzaMWMzTgsZ+10m5rAGsnRFJqpFjt6BmzPOuDSMW87Sged61 YcRinhbU+K77f1yFV+zHZW1/sw3aOcgT7j8EaHCbzRoZ93kG5orOgbHrxoQv PZMn3NtFTTciYrqR7KVn8oRNN8aIX+HHMIxaDG3EhmEYhmEYhmEYhmEYhmEY Rn/4/cNl3cX+/ip7whcNNCPuFf0GhM/Q0aX7vMdhL5qVPOSz8q9ZmytGv6Ou Gzx2zjx7qbhdZc/JK+o/ysnDGl/RP3PhdQM7o1y62Wmb3eOwF81efsj+SeJe sYs76rTBY6dQVPVvA9sRTclvRg9XLPtVp5c++bQ7/X72LFb6NhvceN3Lhc9W 6/xdN3jsVH8anUp64Qc7/Xr7B/cmWXVPG+X7OYhY9XnFuGbes56Pmp51o+yA QXQj8M9p6MYgFy38YBdX7OGrYrqhGcrfOGmn0a8YaEAV32O8ujGgWPXmb3T6 UjPdKOTsSGBP9SPLPlt4Hn1k4QdjXbGwDYHGdHfp3i40+EUzz7I6vWL08/fz iAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMAzDMMIMMoOp /UVfffVV+al3OnsMw+iCMeqGiINWicKdhmFEx5k0XTaluuJs68Jj/OOdbTmg 7FN+s32JKBQQwzA6otBy427EupbgyIUfrZTerWEYMfBdgsbWXfbx7GUfo/EJ Ba0bvnSYbhhG10R3D1p+PHBCwfo3DGNYynohsmrOgH+qiq7IyYuWXSUrl4jC sMUwjEQIOAM9EFYG0w3DSJNhdSMrFwcTDcMwDMMwDMMwDKMB/wtNMsRy "], {{0, 280}, { 360, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], DefaultBaseStyle->"ImageGraphics", ImageSize->Automatic, ImageSizeRaw->{360, 280}, PlotRange->{{0, 360}, {0, 280}}]], "Output", CellChangeTimes->{3.769207947548991*^9}, CellLabel->"Out[6]", CellID->305540999] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, Visible->False, FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (March 18, 2020)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 56, 1, 70, "Subsection",ExpressionUUID->"49c90c74-75cf-4b0e-b9a2-e19cd1a0914c", CellID->462042388], Cell[639, 25, 236, 5, 70, "Text",ExpressionUUID->"a2190e84-804f-485d-b27f-20e92c027b8d", CellID->13078159], Cell[CellGroupData[{ Cell[900, 34, 7401, 184, 70, "Input",ExpressionUUID->"4e318385-be6a-4ac5-be67-1e68a3b91403", CellID->46141572], Cell[8304, 220, 22603, 445, 70, "Output",ExpressionUUID->"3498ef94-77d8-4172-a34e-fec7b8c3cacd", CellID->108325906] }, Open ]], Cell[CellGroupData[{ Cell[30944, 670, 64, 2, 70, "PageBreak",ExpressionUUID->"5b65cf8b-0d33-478f-90df-338e8b66ee27", PageBreakBelow->True, CellID->215925039], Cell[31011, 674, 293, 6, 70, "Text",ExpressionUUID->"c0a70df1-11c6-4878-94cc-fd16084b1062", CellID->282729567], Cell[CellGroupData[{ Cell[31329, 684, 7548, 189, 70, "Input",ExpressionUUID->"e8ef7508-842c-47a2-8809-ebe957d5fcce", CellID->443871870], Cell[38880, 875, 23065, 460, 70, "Output",ExpressionUUID->"4fe57ea2-909d-4293-b3a6-ad97f5c497bc", CellID->97517980] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[61994, 1341, 63, 2, 70, "PageBreak",ExpressionUUID->"11cf585a-074c-42c1-837f-7f37e296b436", PageBreakBelow->True, CellID->10419567], Cell[62060, 1345, 321, 4, 70, "Text",ExpressionUUID->"4adffa51-03fa-48c3-8ea3-ed158aa67a10", CellID->288583458], Cell[CellGroupData[{ Cell[62406, 1353, 8581, 214, 70, "Input",ExpressionUUID->"7551aa49-1339-489b-be4f-e5a42e7187d1", CellID->591387514], Cell[70990, 1569, 16076, 270, 70, "Output",ExpressionUUID->"54f8c6df-7c73-4650-9edd-cc74c044f529", CellID->44718945] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[87115, 1845, 64, 2, 70, "PageBreak",ExpressionUUID->"8474f01c-04bb-40ed-b430-e7bfb31cc3ac", PageBreakBelow->True, CellID->236847550], Cell[87182, 1849, 229, 5, 70, "Text",ExpressionUUID->"02ba2a32-b84e-49c9-a14a-e075313b8f96", CellID->427089546], Cell[CellGroupData[{ Cell[87436, 1858, 7488, 187, 70, "Input",ExpressionUUID->"9712f2b4-8abc-439a-8edd-5ec0ae1501a2", CellID->149804843], Cell[94927, 2047, 15943, 268, 70, "Output",ExpressionUUID->"7b906ba8-8a24-4ae0-af84-f47d9307be23", CellID->134850404] }, Open ]] }, Open ]], Cell[110897, 2319, 64, 2, 70, "PageBreak",ExpressionUUID->"a30fb12b-6cb2-4b06-80e3-5efe1769819b", PageBreakBelow->True, CellID->240828618] }, Open ]], Cell[CellGroupData[{ Cell[110998, 2326, 49, 1, 70, "Subsection",ExpressionUUID->"c42634f6-0215-422a-945c-99e1ff827588", CellID->776923543], Cell[111050, 2329, 868, 25, 70, "Text",ExpressionUUID->"087532fe-f4df-4913-a0e2-39f5a2bc0f96", CellID->464439627], Cell[CellGroupData[{ Cell[111943, 2358, 7813, 196, 70, "Input",ExpressionUUID->"9e8bc266-6987-47bf-8cd8-df53a151e02d", CellID->210829543], Cell[119759, 2556, 14944, 251, 70, "Output",ExpressionUUID->"fe409ca2-3ff6-4f66-872c-688f201b523c", CellID->229553323] }, Open ]], Cell[CellGroupData[{ Cell[134740, 2812, 7826, 196, 70, "Input",ExpressionUUID->"8406fbb4-6860-4b11-bb8c-095b1e71c522", CellID->891512172], Cell[142569, 3010, 15762, 265, 70, "Output",ExpressionUUID->"66f67dc7-27de-4541-b2bf-22075420f94a", CellID->305540999] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)