(* 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[ 43156, 1000] NotebookOptionsPosition[ 41071, 958] NotebookOutlinePosition[ 41467, 974] CellTagsIndexPosition[ 41424, 971] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["CIE 1931 2-deg, XYZ CMFs", "Subsection"]], \ "Subsubsection", CellChangeTimes->{{3.7996982241825457`*^9, 3.7996982477885103`*^9}, { 3.79969850262654*^9, 3.799698508731106*^9}},ExpressionUUID->"1a2a6f85-9587-438e-baf4-\ 87fab9cfd47e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "x", ",", "y", ",", "z"}], "}"}], "=", RowBox[{ RowBox[{ "Import", "[", "\"\\"", "]"}], "\[Transpose]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "x"}], "}"}], "\[Transpose]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "y"}], "}"}], "\[Transpose]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"\[Lambda]", ",", "z"}], "}"}], "\[Transpose]"}]}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Green", ",", "Blue"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.799635017508616*^9, 3.7996350175142593`*^9}, { 3.799693199593113*^9, 3.799693222600195*^9}, {3.7996932581163282`*^9, 3.799693315664568*^9}, {3.7996934305363903`*^9, 3.79969346876785*^9}, { 3.799698464577858*^9, 3.79969847157952*^9}}, CellLabel-> "In[274]:=",ExpressionUUID->"151ac5d0-c087-4eac-b459-b03393d07da4"], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJzt2Hk4lO0eB3DZ8ioRpaKNiNNGHS0K3ZFCyd4rlShbkrTYtxkzzEwkei1t JIr0Im9FQlJChfe1ZWRJlsyULJXURHWeuu/zO+/5//xzrmueP7i+13PNzHM/ 3/v5zFw/lf1HrF1FRUREVKk/P/7/PMr9Uc39d3Iqv7ht/JnlApBEl06oX7kv zk4BKNvL3mbXjCic8wMQt0ueFm6WiLNIIGqbf6/b4FgGzpaBiHeMcXna0nyc 0wJRzmlWWUniXZxHApFShq/t6k2PcEZB6Hfx6Ipz++pwjgtCtQ29n9Z8bcD5 ZRC6pLes+Xx/E87awUg6Umodc8kznGnBSL7t2IpKO5Lrg1GZefjYIuNmnBeG oIG4C92SIY04+4SgONMtfz5Mrce5PASpn+G7zqghny8Ximx/Naj58PIpWX8o WjDdRpXjWEXWH4q8t1vY90x6QNYfhmL15HZd4dwh6w9D/pfv7li0PJesPwxl DXDypmxMI+sPQ6yoymuHBk+R9YejLV8yHDM7jpP1h6O1uiGNHPEDZP3hKEnU 3zhRkoHzbBqyV/psJTOeQl5PQ76+1fsv2JL77UFDNe3Td0xxLCXvR0MOWlHH 0vdW4lxEQzMkvmxOVSPrfUlDQT7+Ld4l5P5I0dETv7JLSlpccr/pKF+MF6M5 2I6zPR1Nlurnvwt+Se4/HdkfpznFzu/F+Rodbcweex1Q+4r0QUftgjDP0hN8 nD/TUbdmoG/spAHSTwTSmb5G7571IM4mEYh1f/GhZqNh0lcEih8M2bjacQTn sxHoZGzf+wWNJJdHoO6gGXlbu0nmR6AOLv34lgSS5Rjoq8KenGsPyPutYyDT 9GSrZXfI5zkxkH7YkaZLX9/gzGagBO2msRs5PNI3A/X0hbHSUR/OrQxU0WoY x5DvJv0zkeX10PXz/9mBsyYTrWvvOJua30L2AxOVlYqM85vJfg5gIt2WysM6 tBqyP5jotI/DSPoN8jw8ZqKTCw4MORiWkf3CRD057PP8DwWk/0g0db3KiXp1 0jeKRJ6fFVtO+WeR/iORyIa1h6sOkv0WF4m2dybu1S5KIv1HolmFbku1BKdJ /5Gox8/DPqaYPN9SUcimQ9Rm1noa6T8KaeQPB97W8Cf9R6ESPV6Ri5sP6T8K Ff9mcGCmujvpPwq1J4d6aP/qRPqPQrN0v+yIGNxJ+o9Cht93XDGutiD9s1Br D9+FzTMm/bOQrdyyjmX6BqR/FkrzcOoYFV9N+meh908Dh/WTlpP+Wch34gLK HFYj/bMQjb4QRcXOI/2z0bRqvRHJ1hmkfzaat2Tn1RfuMqR/Nvp9UNtTqUSc 9M9GvMiCTj+drwa4fzZyTnidyIoZxbmVjeIfZx8ofPkWZxEO8rKfk3dyax/O mhykeuv2o4yQDpwtOeimneCki2gzzgEcVHXJ+8GfarU4p3GQlPdsu957FTg/ pl7/ZvfKF4ElOFM+LzeaO9CzZgn4XHU92Mj1rS74jM+bgc/mnhWlqja7wOfq 4qJTkiNu4DNdNGGps/zx//ic27rPzyIMfOYk6aUmLWCDz2+tiuZHDsSDz5Mb HBr61yWDzxmL7k6wRi+Az1L8sovP89LA5+JDvwjS3DPA5xYls0Hj21fBZ/dn PM+lY1ngc1p3nVLpjevg849PtyrKA59z9Oj5Njk3wecQ2eS5/mZ3wGcvgzyZ mb2l4POtgjITj5oH4HO8hil3e1kl+Gw3fkLPLe0p+BylPCJwZtaDz4GvF6+U ymkGnydmH+fKv38OPodTuv02+yX4fLl9G/UV1ws+4+vvB59tklRifY++Bp+1 OtUk6YkD4PNdqi1Fk0Hwudh0quhS1hD4/Obm2daQPcPgs9unPufLLcPg89Gc 6HYPkRHwmZvhoy/NHQafrX9e0DD4LGeve/ux3xD4XNd34bD39kHwGb9+AHzG 3r8Bn5vM91NvwQefF314vGCqXj/4/K05gLqDfeBzj2RI2GyVHvD5v+4f5TP+ /u4Anyey3zWa728Fn1/kH7ZyYzSDz2Oae04//FgPPpsITAssqmvAZ7efRxX4 zFvtx3mT++/9wERUuXMdXErA55AlWfrqvNvg88/TG26Az+Ft13ZMvpkJPuPr SwOfed7cbTbiZ8Hni48W5h/ziAefN2fxOu0t2eBzr41IjHs9DXy+syJu/I8r /uBz1coz+oZ1PuAz1zUl6dE3d/DZ836BgrqKM/i8SjVHpdbEHnzOEDuTf0TD CnxesSpTohmZgM9GlevCFaQ3gc+2y+uj3bLWgs9Xtl153m2rDT4XSy65XJG4 GHw+OM/OXM53Afj8XKKSVb5CEXzG52XB53k3Dp2YtEkSfMbnv2PvKJ91WSJK TP0xnCmfZS31AzWPDONM+XxvuXaP/qp+8DniAJu20LILfLae7twrIdsCPnc2 dDfdkv0LfGZkphtWd1WCz8lZxUoFf5WBz13zuLHjdwvAZ1HZM0ZlcXngczDH RU3Z9ir4rGbsYl+pzAGfpcf28TLrzoLPqcNZVdvWZoPPhgG3jz5yKAKfZSq2 PkowqQKfr2W7HgqNbwSfzw/oNFoHdoLPVNjw8CAPfP5t/SRzpsw78HmLuq/o eamP4LOm7JSCzMBP4DNDa3um9BYB+Myn9E3uFIDPy1zn9NjPEoDPk/ed3T4z 5hP4nGQU7cUb/wg+L+5jpNZdHwWfD4ocoYtXfgCf8e+1d+Azw8o0hbZ4CHz2 +SNdskmbDz4rjtcMPanoAZ9L6vdkxSd1gM9tYrnlcc+egc9ST0QX+wzUg89o dsCQ/p6n4DO+ngrw2SvR6ei6DyXgc7LuXkWFC7fA57lvzac+eZIDPn/7h136 2+VXwefoI5ohhdNSweeuaK223sgE8FkiXcPV2igafB4d3uxwYoIOPq/+OPN7 41d/8HlXlvof3xN9wOeHI7vLNg67g8+FQR/KvbL2g8/nUGHDVTUn8FnD8caX w+f2gs9F8j5l1Ra7wOfdCWHuCzfYgs9iTsl6Agtr8Jk132yWbK45+HyrZoO/ ZcUW8Nl175m7fCU98Jk9+WLZpDYd8LnGJaj4cpU2+Hx0UK/1e4wa+Gw7s32R 6sU54HPK7uz+cnl58Pm6TrAYapIGn5XyTXdOdIuCzw917HN3egrI88lEDZ9H 3ieWviPPJxPpv1dcMfGJT55PJgr4WGjKV+zGmfLZW+eKzrlQLs6Uz0avBCsn JdXjTPksYxd+eJpnNc6Uz0Vxv98XUyzHmfI5vIEf6fNLIc6Uz6FqXbO8CogH lM9DinYuR0uIB5TPHtwG5hrlSzhTPg/ECTwSdyXhTPmcYpCiHyk4jTPl844V W2sV26Jwpnyuy92ksG0/DWfK594n92LeO/vjTPmskjKnRiPcB2fK5xN5G14s WuaOM+XzfJ6mtKGFE86UzzO1Al/fUfsVZ8rntjDl0bx0S+IXCz0YqG3wkzXB mfKZm6ViJu24CWfKZ4ZEqtipabrgs4JL2MIpiqvA53zzIa7ZnCXgs9wppp9b gyr4zP8W2qWnrAw+v3JuX8MLUwCfRStTmGzJqeDzZt2rmrVq4uBzdeDFv76N Tujj/jnok824Y9WzUZwpn01ta2SuvRrEmfJZZJ6ypqrxK5wpn0X+fvw4//fj f3BeOD8Rzk+E8xPh/AT3L5yfCOcnwvmJcH4inJ/g/SGcnwjnJ8L5iXB+Ipyf /MzC+YlwfvJ/Mj/5F2hruBQ= "], {{{}, { EdgeForm[], Directive[ RGBColor[1, 0, 0], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwt0Mk2ggEABeCfisxTSEkazEOGzDNJhkhJOFYeQO+/83WOxXfvXd/MT7v+ 2x0EQRff/z0hYnzZn3zQ4p0mbzSo80qNF56p8sQjD9xT4Y4yt5S44ZorLrng nDNOOeGYIw45YJ89iuyywzZbFNhkg3XWWGWFZZZYZIE8ObJkmCfNHClmSZJg hjjTTDFJrPMR44wxygjDDDHIAP30EaWXHiKECdH5/Q8lQRI6 "]]}]}, {}, { EdgeForm[], Directive[ RGBColor[0, 1, 0], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwt0Nk2ggEAhdGfN6g38EpuRck8VJIGs8wkMyFzRJIpD2hfuNhrfef2dMVT 3cnOIAg6iNBDyAjzq9v88M0Xn3zQ4p0mbzR45YU6zzxR45EH7rnjlhuuqXLF JRdUOOeMU0445ohDDtinzB4ldtlhmy022WCdNVYpssIySyyywDxzzFIgT44s M2SYJs0UKZIkmGSCccYYZYRhhhhkgDj9xIjSR+//33+iSzHa "]]}]}, {}, { EdgeForm[], Directive[ RGBColor[0, 0, 1], Opacity[0.2]], GraphicsGroupBox[{ PolygonBox[CompressedData[" 1:eJwlzEdSAgEARNEZMCAoegWvxNqVB9DTmUFQMWLOggkUM+YsiK/Kxatfvene /sHUQCQIgpA+hug2ekjSRScJ4nQQo502WmkhSoQw/D9ryi8N6vzwzReffPDO G6+88MwTjzxwT407brnhmisuuaDKOWdUKHPKCccccUiJIgfss8cuO2yzxSYb rLPGKissU2CJRRaYZ45Z8swwzRQ5skySIc0E44wxygjD/AH5YUKJ "]]}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90}]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], LineBox[{91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180}]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], LineBox[CompressedData[" 1:eJwN0GciggEAANAvu8QdXMnPfjoAp7MSaVnJVplF9qwUMuL9eBd4YxNT45Oh IAhiTDPDLHPME2eBBIsskWSZFGkyZMmxwiprrLNBnk0KbLHNDrvssc8BhxQp UeaIY0445YxzKlS54JIaV1xzwy133PPAI08888IrdRo0eaNFm3c++KTDF9/8 8EuXPwJpIXropY9+BhhkiDARhokywij/w5VCZA== "]]}}, {{ Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], RGBColor[1, 0, 0]]}, { Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], RGBColor[0, 0, 1]]}}, {{ Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], RGBColor[1, 0, 0]]}, { Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], RGBColor[0, 0, 1]]}, {}, {}, {}, {}, {}, {}, {}}, {{ Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], RGBColor[1, 0, 0]]}, { Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], RGBColor[0, 0, 1]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {370.7291666666667, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange -> {{370.7291666666667, 825.}, {0, 1.6166}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{"\"X\"", "\"Y\"", "\"Z\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], {}}}, 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.5], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], AbsoluteThickness[1.6], RGBColor[0, 0, 1]], {}}}, 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.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", FractionBox["1", "90"], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]], 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[1, 0, 0]; 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[1, 0, 0], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", FractionBox["1", "90"], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]], 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, 1, 0]; 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, 1, 0], Editable -> False, Selectable -> False]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", FractionBox["1", "90"], "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> False]], 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, 0, 1]; 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, 0, 1], Editable -> False, Selectable -> False]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.799693202154001*^9, 3.799693223818859*^9}, 3.799693323819891*^9, {3.799693437467022*^9, 3.7996934751186037`*^9}, 3.7996976291839943`*^9, 3.79969866589895*^9}, CellLabel-> "Out[275]=",ExpressionUUID->"256a4210-0eec-40f0-97c6-e83d6f913fde"] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Color", " ", "temperature", " ", "in", " ", "XYZ", " ", "using", " ", RowBox[{"Planck", "'"}], "s", " ", "radiation", " ", RowBox[{"law", ".", "\[IndentingNewLine]", "See"}], " ", RowBox[{"https", ":"}]}], "//", RowBox[{ RowBox[{ RowBox[{ RowBox[{"en", ".", "wikipedia", ".", "org"}], "/", "wiki"}], "/", "Planck"}], "%27", "s_law", "#Different", "_forms", " ", RowBox[{ RowBox[{"(", "wavelength", ")"}], "."}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.799698333760501*^9, 3.799698383375208*^9}, { 3.7996985894225903`*^9, 3.79969859018611*^9}, {3.7996987637937317`*^9, 3.7996987796452913`*^9}},ExpressionUUID->"b641840e-051e-4b4e-b167-\ bc3e6ad4ecd3"], Cell[BoxData[{ RowBox[{ RowBox[{"\[Lambda]", "=", RowBox[{"\[Lambda]", " ", RowBox[{"10", "^", RowBox[{"-", "9"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"XYZ", "[", "t_", "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"h", "=", RowBox[{"6.62607", "*", RowBox[{"10", "^", RowBox[{"-", "34"}]}]}]}], ",", RowBox[{"c", "=", RowBox[{"2.998", "*", RowBox[{"10", "^", "8"}]}]}], ",", RowBox[{"k", "=", RowBox[{"1.38065", "*", RowBox[{"10", "^", RowBox[{"-", "23"}]}]}]}]}], "}"}], ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}], ".", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"2", " ", "h", " ", RowBox[{"c", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"E", "^", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"h", " ", RowBox[{"c", "/", "k"}]}], ")"}], "/", RowBox[{"(", RowBox[{"t", " ", "\[Lambda]"}], ")"}]}], ")"}]}]}], ")"}], " ", RowBox[{"\[Lambda]", "^", "5"}]}], ")"}]}], ")"}]}], "//", RowBox[{ RowBox[{"#", "/", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.799635026824547*^9, 3.7996350268313503`*^9}, 3.799635657078288*^9, {3.799672669897991*^9, 3.799672683139142*^9}, { 3.799672737193862*^9, 3.7996727538126793`*^9}, {3.799672823495021*^9, 3.799672851181918*^9}, {3.799672970031393*^9, 3.799673006668379*^9}, 3.799698330596814*^9, {3.799698655146714*^9, 3.799698655760837*^9}}, CellLabel-> "In[277]:=",ExpressionUUID->"6457c5d8-ae11-4909-978d-b3e3a65b681d"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Color balance", "Subsection"]], "Subsubsection", CellChangeTimes->{{3.7996982241825457`*^9, 3.7996982477885103`*^9}},ExpressionUUID->"1ed7ae1c-a39e-4675-bdce-\ 9ca04f3a5686"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "xyY", " ", "y", " ", "coordinate", " ", "from", " ", "x", " ", "coordinate", " ", "for", " ", "series", " ", "D", " ", RowBox[{"illuminants", ".", "\[IndentingNewLine]", "See"}], " ", RowBox[{"https", ":"}]}], "//", RowBox[{ RowBox[{ RowBox[{ RowBox[{"en", ".", "wikipedia", ".", "org"}], "/", "wiki"}], "/", "Standard_illuminant"}], "#Illuminant", "_series", "_D"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"illuminant", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"2.87", "*", "x"}], "-", RowBox[{"3", "*", RowBox[{"x", "^", "2"}]}], "-", "0.275"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"k", " ", "=", " ", "temperature"}], ",", " ", RowBox[{"from", " ", "-", RowBox[{"100", " ", "to"}], " ", "+", "100"}], ",", " ", RowBox[{"t", " ", "=", " ", "tint"}], ",", " ", RowBox[{"from", " ", "-", RowBox[{"100", " ", "to"}], " ", "+", "100"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"colorBalance", "[", RowBox[{"k_", ",", "t_"}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"0.31271", "-", RowBox[{ RowBox[{"k", "/", "100"}], "*", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "<", "0"}], ",", "0.214", ",", "0.066"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"y", "=", RowBox[{ RowBox[{"illuminant", "[", "x", "]"}], "+", RowBox[{ RowBox[{"t", "/", "100"}], "*", "0.066"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"XYZColor", "[", RowBox[{ RowBox[{"x", "/", "y"}], ",", "1", ",", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "x", "-", "y"}], ")"}], "/", "y"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.799632571383841*^9, 3.799632608292733*^9}, { 3.799632676235901*^9, 3.799632681498097*^9}, {3.799632827958025*^9, 3.799632925131782*^9}, {3.7996330903402863`*^9, 3.799633095618657*^9}, { 3.799633140723916*^9, 3.799633426512389*^9}, {3.799633460545279*^9, 3.799633469273794*^9}, {3.799633640885653*^9, 3.799633650781673*^9}, { 3.799633727981271*^9, 3.799633847020423*^9}, {3.799633891310361*^9, 3.7996339495947723`*^9}, {3.799634066192059*^9, 3.7996340683802757`*^9}, { 3.799634515764727*^9, 3.799634544153775*^9}, {3.799635040782217*^9, 3.799635075804644*^9}, {3.7996351262414017`*^9, 3.799635128117138*^9}, 3.799635205063448*^9, {3.799635264602023*^9, 3.799635269805664*^9}, 3.799635418420905*^9, {3.7996360480112877`*^9, 3.799636061433045*^9}, { 3.799636569873048*^9, 3.799636652616926*^9}, {3.7996367000437202`*^9, 3.7996367028166313`*^9}, {3.79963698849085*^9, 3.7996369976533203`*^9}, { 3.7996978422374897`*^9, 3.799697845864108*^9}, {3.799697900594455*^9, 3.79969790429821*^9}, {3.7996980240918713`*^9, 3.799698043753441*^9}, { 3.799698254105238*^9, 3.799698309118058*^9}}, CellLabel-> "In[279]:=",ExpressionUUID->"91479455-511b-4796-93de-c39fff6c9cde"], Cell[TextData[StyleBox["Temperature/tint vs Planckian locus", "Subsection"]], \ "Text", CellChangeTimes->{{3.799698156809493*^9, 3.79969816321318*^9}, { 3.799698234739921*^9, 3.7996982404248667`*^9}},ExpressionUUID->"b59472d3-1e5f-4fee-845e-\ c26d6c717e5f"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Reference", " ", "chromaticity", " ", "plot", " ", "with", " ", "sRGB", " ", "gamut", " ", "and", " ", "D65", " ", "white", " ", "point"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"ChromaticityPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"XYZColor", "@", RowBox[{"XYZ", "[", "i", "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2000", ",", "50000", ",", "50"}], "}"}]}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}]}], "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.799698313092388*^9, 3.799698325541086*^9}}, CellLabel-> "In[281]:=",ExpressionUUID->"f9b79059-5cb9-4951-917a-24c552fedc15"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Plot", " ", "Planckian", " ", "locus", " ", "against", " ", "chromaticity", " ", RowBox[{"diagram", ".", " ", "Also"}], " ", "plots", " ", "the", " ", "position", " ", "of", " ", "the", " ", "illuminant", " ", "defined", " ", "by", " ", "a", " ", "temperature", " ", "and", " ", "tint", " ", "offset", " ", "from", " ", RowBox[{"D65", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"p1", ",", RowBox[{"ChromaticityPlot", "[", RowBox[{ RowBox[{"colorBalance", "[", RowBox[{"k", ",", "t"}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", RowBox[{"Appearance", "\[Rule]", "None"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"PointSize", "[", "0.01", "]"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"k", ",", "0"}], "}"}], ",", RowBox[{"-", "100"}], ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "0"}], "}"}], ",", RowBox[{"-", "100"}], ",", "100"}], "}"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.799632571383841*^9, 3.799632608292733*^9}, { 3.799632676235901*^9, 3.799632681498097*^9}, {3.799632827958025*^9, 3.799632925131782*^9}, {3.7996330903402863`*^9, 3.799633095618657*^9}, { 3.799633140723916*^9, 3.799633426512389*^9}, {3.799633460545279*^9, 3.799633469273794*^9}, {3.799633640885653*^9, 3.799633650781673*^9}, { 3.799633727981271*^9, 3.799633847020423*^9}, {3.799633891310361*^9, 3.7996339495947723`*^9}, {3.799634066192059*^9, 3.7996340683802757`*^9}, { 3.799634515764727*^9, 3.799634544153775*^9}, {3.799635040782217*^9, 3.799635075804644*^9}, {3.7996351262414017`*^9, 3.799635128117138*^9}, 3.799635205063448*^9, {3.799635264602023*^9, 3.799635269805664*^9}, { 3.799635418420905*^9, 3.7996355518067217`*^9}, {3.799698523595182*^9, 3.799698556800757*^9}}, CellLabel-> "In[282]:=",ExpressionUUID->"a8d5ebad-752d-4a20-bf53-b51b85d0c7f4"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 0, $CellContext`t$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`k$$], 0}, -100, 100}, {{ Hold[$CellContext`t$$], 0}, -100, 100}}, Typeset`size$$ = { 576., {282., 287.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 0, $CellContext`t$$ = 0}, "ControllerVariables" :> {}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[$CellContext`p1, ChromaticityPlot[ $CellContext`colorBalance[$CellContext`k$$, $CellContext`t$$], ImageSize -> Large, PlotPoints -> 50, Appearance -> None, PlotStyle -> {Green, PointSize[0.01]}]], "Specifications" :> {{{$CellContext`k$$, 0}, -100, 100}, {{$CellContext`t$$, 0}, -100, 100}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{621., {341., 347.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.79963548269405*^9, 3.799635552455084*^9}, 3.79963584043777*^9, 3.799636131854322*^9, 3.799637001792697*^9, 3.799672935690529*^9, {3.799672989095996*^9, 3.799673017848003*^9}, 3.7996976302532787`*^9, {3.799697930480048*^9, 3.799697946728343*^9}, { 3.799698046634182*^9, 3.799698054798706*^9}, 3.799698666945218*^9}, CellLabel-> "Out[282]=",ExpressionUUID->"b4881322-a44e-49f9-9fc6-baa601b2a0cc"] }, Open ]], Cell[TextData[StyleBox["Temperature scale factors", "Subsection"]], "Text", CellChangeTimes->{{3.799698108679871*^9, 3.799698112384754*^9}},ExpressionUUID->"17b39e86-24b9-4000-b2de-\ 4c786c8160f4"], Cell[BoxData[ RowBox[{ RowBox[{"XYZ2xyY", "[", "xyz_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"xyz", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"xyz", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}]}], ",", RowBox[{"xyz", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]], "Input", CellLabel-> "In[283]:=",ExpressionUUID->"ae126839-0976-4ee1-9094-b08a95a24b31"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"redFactor", "=", RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"XYZ2xyY", "[", RowBox[{"XYZ", "[", "2000", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "0.31271"}], "]"}]}]], "Input", CellChangeTimes->{{3.7996728948277073`*^9, 3.799672959965103*^9}, { 3.799697311227035*^9, 3.79969732724277*^9}, {3.7996976681214333`*^9, 3.799697713323945*^9}, {3.799697983550215*^9, 3.799698012435688*^9}, { 3.7996981173044367`*^9, 3.79969813956184*^9}}, CellLabel-> "In[284]:=",ExpressionUUID->"4159dcda-f489-44d3-afc5-1bc5a08422e7"], Cell[BoxData["0.2139756967699324`"], "Output", CellChangeTimes->{{3.7996729538066807`*^9, 3.799673018189229*^9}, { 3.799697317869492*^9, 3.799697327943421*^9}, {3.799697620842779*^9, 3.7996976305947247`*^9}, 3.7996976802338867`*^9, 3.7996977150586243`*^9, { 3.799697988194819*^9, 3.799698017291986*^9}, 3.799698139920917*^9, 3.799698667273141*^9}, CellLabel-> "Out[284]=",ExpressionUUID->"df3b0df9-edf4-4a87-8543-c66bdda738a5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"blueFactor", "=", RowBox[{"Abs", "[", RowBox[{ RowBox[{ RowBox[{"XYZ2xyY", "[", RowBox[{"XYZ", "[", "50000", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "-", "0.31271"}], "]"}]}]], "Input", CellChangeTimes->{{3.799673023902585*^9, 3.799673024561625*^9}, { 3.7996976895675983`*^9, 3.7996977010552464`*^9}, {3.799697991920663*^9, 3.7996980147773037`*^9}, {3.799698142742086*^9, 3.799698145035707*^9}}, CellLabel-> "In[285]:=",ExpressionUUID->"308ff37e-dfa4-4423-bf0c-95197c27a12f"], Cell[BoxData["0.06559976600982073`"], "Output", CellChangeTimes->{ 3.7996730258189983`*^9, {3.799697622670849*^9, 3.799697630600626*^9}, { 3.7996976933259783`*^9, 3.79969771633221*^9}, {3.799697992362425*^9, 3.7996980150253353`*^9}, 3.7996981453755407`*^9, 3.799698667279005*^9}, CellLabel-> "Out[285]=",ExpressionUUID->"b923efcd-103e-4f0e-bbf8-aa38e144767d"] }, Open ]] }, Open ]] }, WindowSize->{1115, 1647}, WindowMargins->{{Automatic, 512}, {Automatic, 0}}, FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (March 18, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"48bd8ea1-5b3e-40ff-9c43-0731d1f417de" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 263, 5, 46, "Subsubsection",ExpressionUUID->"1a2a6f85-9587-438e-baf4-87fab9cfd47e"], Cell[CellGroupData[{ Cell[868, 31, 1360, 36, 52, "Input",ExpressionUUID->"151ac5d0-c087-4eac-b459-b03393d07da4"], Cell[2231, 69, 23113, 490, 248, "Output",ExpressionUUID->"256a4210-0eec-40f0-97c6-e83d6f913fde"] }, Open ]], Cell[25359, 562, 776, 18, 52, "Input",ExpressionUUID->"b641840e-051e-4b4e-b167-bc3e6ad4ecd3"], Cell[26138, 582, 1998, 57, 73, "Input",ExpressionUUID->"6457c5d8-ae11-4909-978d-b3e3a65b681d"] }, Open ]], Cell[CellGroupData[{ Cell[28173, 644, 202, 3, 46, "Subsubsection",ExpressionUUID->"1ed7ae1c-a39e-4675-bdce-9ca04f3a5686"], Cell[28378, 649, 3430, 78, 241, "Input",ExpressionUUID->"91479455-511b-4796-93de-c39fff6c9cde"], Cell[31811, 729, 263, 5, 41, "Text",ExpressionUUID->"b59472d3-1e5f-4fee-845e-c26d6c717e5f"], Cell[32077, 736, 1081, 27, 73, "Input",ExpressionUUID->"f9b79059-5cb9-4951-917a-24c552fedc15"], Cell[CellGroupData[{ Cell[33183, 767, 2395, 51, 178, "Input",ExpressionUUID->"a8d5ebad-752d-4a20-bf53-b51b85d0c7f4"], Cell[35581, 820, 2252, 45, 707, "Output",ExpressionUUID->"b4881322-a44e-49f9-9fc6-baa601b2a0cc"] }, Open ]], Cell[37848, 868, 201, 3, 41, "Text",ExpressionUUID->"17b39e86-24b9-4000-b2de-4c786c8160f4"], Cell[38052, 873, 965, 30, 30, "Input",ExpressionUUID->"ae126839-0976-4ee1-9094-b08a95a24b31"], Cell[CellGroupData[{ Cell[39042, 907, 593, 13, 30, "Input",ExpressionUUID->"4159dcda-f489-44d3-afc5-1bc5a08422e7"], Cell[39638, 922, 445, 7, 34, "Output",ExpressionUUID->"df3b0df9-edf4-4a87-8543-c66bdda738a5"] }, Open ]], Cell[CellGroupData[{ Cell[40120, 934, 548, 12, 30, "Input",ExpressionUUID->"308ff37e-dfa4-4423-bf0c-95197c27a12f"], Cell[40671, 948, 372, 6, 34, "Output",ExpressionUUID->"b923efcd-103e-4f0e-bbf8-aa38e144767d"] }, Open ]] }, Open ]] } ] *)