Vergleich von Spektralstrahlungsgesetzen mit dem Planckschen Strahlungsgesetz  

Vergleichen Sie das Wiensche Strahlungsgesetz mit dem Rayleigh-Jeans-Gesetz und dem Planckschen Strahlungsgesetz.

In[1]:=

X wiendistributionlaw[t_, \[Nu]_] := UnitConvert[ Quantity[2, "PlanckConstant"/"SpeedOfLight"^2/"Steradians"]*\[Nu]^3* E^(-Quantity[1, "PlanckConstant"/"BoltzmannConstant"]*\[Nu]/ t), "Watts"/"Meters"^2/"Hertz"/"Steradians"]

In[2]:=

X wien = Table[{10^x, QuantityMagnitude@ wiendistributionlaw[Quantity[7000, "Kelvins"], Quantity[10^x, "Hertz"]]}, {x, 13, 15, 0.1}]; rayleighjean = Table[{10^x, QuantityMagnitude@ UnitConvert[ Quantity[2, "BoltzmannConstant"/"SpeedOfLight"^2/"Steradians"]* Quantity[10^x, "Hertz"]^2*Quantity[7000, "Kelvins"], "Watts"/("Hertz"*"Meters"^2*"Steradians")]}, {x, 13, 15, 0.1}]; planck = Table[{10^x, QuantityMagnitude@ PlanckRadiationLaw[Quantity[7000, "Kelvins"], Quantity[10^x, "Hertz"]]}, {x, 13, 15, 0.1}];

In[3]:=

X ListLogLogPlot[{wien, rayleighjean, planck}, Joined -> True, Frame -> True, Axes -> False, PlotLegends -> Placed[{"Wien Distribution Law", "Rayleigh-Jeans's Law", "Planck's Radiation Law"}, Below]]

In[4]:=

X Legended[\!\(\* GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.016666666666666666`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAQ6oG0QDvPUCsUxa7OAI5wFO7xQnz KT5A5Wdwd+1VOMBjzIRC5WQ+QCwJs2/PqjfAdN1De9efPkBb6SKjLAE3wITu ArTJ2j5AnzgNQ2dZNsCU/8HsuxU/QGfObu36szXApBCBJa5QP0C4zjdCgxE1 wLQhQF6giz9AIOTqLMRyNMDGMv+WksY/QMX8k1O02DPA6yHfZ8IAQEAhnVM5 ikQzwHOqPoQ7HkBAux+Qx8y3MsD7Mp6gtDtAQKa2Ox9oNDLAg7v9vC1ZQEAd 0PzNx7wxwAtEXdmmdkBAvl6CzPdTMcCTzLz1H5RAQBVE0AfO/TDAG1UcEpmx QECZ6sarHr8wwKTdey4Sz0BAdrrH9/2dMMAsZttKi+xAQDNd7R4TojDAtO46 ZwQKQUB5IK+dANUwwDx3moN9J0FAxzBSk+dCMcDE//mf9kRBQHMX1h0N+zHA NW6iAA== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[ 0.016666666666666666`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAQ6oG0QDvPUDWuZijlEI2wFO7xQnz KT5AtpcaMrDMNcBjzIRC5WQ+QJZ1nMDLVjXAdN1De9efPkB0Ux5P5+A0wITu ArTJ2j5AVDGg3QJrNMCU/8HsuxU/QDQPImwe9TPApBCBJa5QP0AT7aP6OX8z wLQhQF6giz9A9MoliVUJM8DGMv+WksY/QNGopxdxkzLA6yHfZ8IAQECxhimm jB0ywHOqPoQ7HkBAkWSrNKinMcD7Mp6gtDtAQHFCLcPDMTHAg7v9vC1ZQEBR IK9R37swwAtEXdmmdkBALv4w4PpFMMCTzLz1H5RAQB24Zd0soC/AG1UcEpmx QEDdc2n6Y7QuwKTdey4Sz0BAnC9tF5vILcAsZttKi+xAQFzrcDTS3CzAtO46 ZwQKQUAXp3RRCfErwDx3moN9J0FA12J4bkAFK8DE//mf9kRBQJcefIt3GSrA PUSfEw== "]]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[ 0.016666666666666666`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJwBYQGe/iFib1JlAgAAABUAAAACAAAAQ6oG0QDvPUCSQY4RaEs2wFO7xQnz KT5AXMQU1dDXNcBjzIRC5WQ+QGMIYprUZDXAdN1De9efPkDKgyPynPI0wITu ArTJ2j5AnV/uBV+BNMCU/8HsuxU/QGaPfBVfETTApBCBJa5QP0AgNT8j9aIz wLQhQF6giz9AAozKR5M2M8DGMv+WksY/QGgzy1jOzDLA6yHfZ8IAQEBZVpLd aWYywHOqPoQ7HkBACBN/uWgEMsD7Mp6gtDtAQLug24okqDHAg7v9vC1ZQEBb NUR4blMxwAtEXdmmdkBArHf65LwIMcCTzLz1H5RAQGK5XNlpyzDAG1UcEpmx QEDu80DnBKAwwKTdey4Sz0BA8FzCebeMMMAsZttKi+xAQEA0t/iymTDAtO46 ZwQKQUAwfOVTmNEwwDx3moN9J0FAZvU1Q8xBMcDE//mf9kRBQMfKOxHI+jHA fuSgrw== "]]}}, {}}, AspectRatio->0.6180339887498948, Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{29.76421030038853, -25.876665576291522`}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Exp[ Part[#, 1]], Exp[ Part[#, 2]]}& )}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->FrontEndValueCache[{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}, { Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Log, Exp}]}}, {{{{-25.328436022934504`, FormBox[ TemplateBox[{"10", RowBox[{"-", "11"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-23.025850929940457`, FormBox[ TemplateBox[{"10", RowBox[{"-", "10"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-20.72326583694641, FormBox[ TemplateBox[{"10", RowBox[{"-", "9"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-18.420680743952367`, FormBox[ TemplateBox[{"10", RowBox[{"-", "8"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-16.11809565095832, FormBox[ TemplateBox[{"10", RowBox[{"-", "7"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-13.815510557964274`, FormBox[ TemplateBox[{"10", RowBox[{"-", "6"}]}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-27.631021115928547`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-26.937873935368604`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-26.53240882726044, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-26.244726754808656`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-26.021583203494448`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-25.839261646700493`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-25.685110966873236`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-25.551579574248713`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-25.43379653859233, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-24.635288842374557`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-24.229823734266393`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-23.942141661814613`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-23.7189981105004, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-23.536676553706446`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-23.38252587387919, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-23.248994481254666`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-23.131211445598282`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-22.33270374938051, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-21.927238641272346`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-21.639556568820566`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-21.416413017506358`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-21.234091460712403`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-21.079940780885142`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-20.94640938826062, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-20.82862635260424, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-20.030118656386467`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-19.624653548278303`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-19.33697147582652, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-19.11382792451231, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-18.931506367718356`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-18.7773556878911, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-18.643824295266576`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-18.526041259610192`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-17.72753356339242, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-17.322068455284256`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-17.034386382832476`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-16.811242831518264`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-16.62892127472431, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-16.474770594897052`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-16.34123920227253, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-16.223456166616145`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-15.424948470398375`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-15.01948336229021, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-14.73180128983843, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-14.508657738524219`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-14.326336181730264`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-14.172185501903007`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-14.038654109278484`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-13.9208710736221, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-13.122363377404328`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-12.716898269296165`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-12.429216196844383`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-12.206072645530174`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-12.02375108873622, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-11.86960040890896, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-11.736069016284437`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-11.618285980628055`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-11.512925464970229`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-10.819778284410283`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-10.41431317630212, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-10.126631103850338`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}, {{-25.328436022934504`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-23.025850929940457`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-20.72326583694641, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-18.420680743952367`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-16.11809565095832, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-13.815510557964274`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-27.631021115928547`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-26.937873935368604`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-26.53240882726044, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-26.244726754808656`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-26.021583203494448`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-25.839261646700493`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-25.685110966873236`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-25.551579574248713`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-25.43379653859233, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-24.635288842374557`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-24.229823734266393`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-23.942141661814613`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-23.7189981105004, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-23.536676553706446`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-23.38252587387919, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-23.248994481254666`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-23.131211445598282`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-22.33270374938051, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-21.927238641272346`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-21.639556568820566`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-21.416413017506358`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-21.234091460712403`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-21.079940780885142`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-20.94640938826062, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-20.82862635260424, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-20.030118656386467`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-19.624653548278303`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-19.33697147582652, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-19.11382792451231, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-18.931506367718356`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-18.7773556878911, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-18.643824295266576`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-18.526041259610192`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-17.72753356339242, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-17.322068455284256`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-17.034386382832476`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-16.811242831518264`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-16.62892127472431, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-16.474770594897052`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-16.34123920227253, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-16.223456166616145`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-15.424948470398375`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-15.01948336229021, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-14.73180128983843, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-14.508657738524219`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-14.326336181730264`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-14.172185501903007`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-14.038654109278484`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-13.9208710736221, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-13.122363377404328`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-12.716898269296165`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-12.429216196844383`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-12.206072645530174`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-12.02375108873622, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-11.86960040890896, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-11.736069016284437`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-11.618285980628055`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-11.512925464970229`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-10.819778284410283`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-10.41431317630212, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-10.126631103850338`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {{{29.933606208922594`, FormBox[ TemplateBox[{"*", "\"*\"", "1", TemplateBox[{"10", "13"}, "Superscript", SyntaxForm -> SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {31.543044121356694`, FormBox[ TemplateBox[{"*", "\"*\"", "5", TemplateBox[{"10", "13"}, "Superscript", SyntaxForm -> SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {32.23619130191664, FormBox[ TemplateBox[{"*", "\"*\"", "1", TemplateBox[{"10", "14"}, "Superscript", SyntaxForm -> SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {33.84562921435074, FormBox[ TemplateBox[{"*", "\"*\"", "5", TemplateBox[{"10", "14"}, "Superscript", SyntaxForm -> SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {34.538776394910684`, FormBox[ TemplateBox[{"*", "\"*\"", "1", TemplateBox[{"10", "15"}, "Superscript", SyntaxForm -> SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {29.240459028362647`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {29.4227805851566, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {29.576931264983862`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {29.710462657608385`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {29.82824569326477, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {30.626753389482538`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {31.032218497590705`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {31.319900570042485`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {31.72536567815065, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {31.879516357977906`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32.01304775060243, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32.13083078625881, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32.92933848247659, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {33.33480359058475, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {33.62248566303653, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34.027950771144695`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34.182101450971956`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34.315632843596475`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34.433415879252856`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {35.23192357547063, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {35.63738868357879, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {35.92507075603058, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {36.14821430734479, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}, {{29.933606208922594`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {31.543044121356694`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {32.23619130191664, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {33.84562921435074, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {34.538776394910684`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {29.240459028362647`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {29.4227805851566, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {29.576931264983862`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {29.710462657608385`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {29.82824569326477, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {30.626753389482538`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {31.032218497590705`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {31.319900570042485`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {31.72536567815065, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {31.879516357977906`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32.01304775060243, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32.13083078625881, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32.92933848247659, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {33.33480359058475, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {33.62248566303653, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34.027950771144695`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34.182101450971956`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34.315632843596475`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34.433415879252856`, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {35.23192357547063, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {35.63738868357879, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {35.92507075603058, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {36.14821430734479, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}]], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{}, PlotRange->{{29.837665163381175`, 34.538776394910684`}, {-25.673063585872946`, \ -13.049740179921441`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledTicks[{Log, Exp}]}]\), Placed[\!\(TraditionalForm\` FormBox[ FormBox[ FormBox[ TemplateBox[{ "\"Wien Distribution Law\"","\"Rayleigh-Jeans's Law\"", "\"Planck's Radiation Law\""}, "PointLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #, GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> ( Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, { TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> ( Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{None}}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.016666666666666666`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue[ "FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], " "}], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{ Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[ Typeset`box$, All, Expression]; FrontEnd`Private`$\ ColorSelectorInitialAlpha = 1; FrontEnd`Private`$\ ColorSelectorInitialColor = RGBColor[ 0.368417, 0.506779, 0.709798]; FrontEnd`Private`$\ ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, { Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.016666666666666666`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue[ "FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], " "}], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{ Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[ Typeset`box$, All, Expression]; FrontEnd`Private`$\ ColorSelectorInitialAlpha = 1; FrontEnd`Private`$\ ColorSelectorInitialColor = RGBColor[ 0.880722, 0.611041, 0.142051]; FrontEnd`Private`$\ ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, { Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.016666666666666666`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ RowBox[{ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue[ "FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], " "}], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{ Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[ Typeset`box$, All, Expression]; FrontEnd`Private`$\ ColorSelectorInitialAlpha = 1; FrontEnd`Private`$\ ColorSelectorInitialColor = RGBColor[ 0.560181, 0.691569, 0.194885]; FrontEnd`Private`$\ ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, { Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"Joined", "->", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "->", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "->", "\"Row\""}], ",", RowBox[{"LegendMarkers", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]& )], TraditionalForm], TraditionalForm], TraditionalForm]\), Below]]