From 22a464f76f6f254284040cd2c0303e53aef4b2ba Mon Sep 17 00:00:00 2001 From: Romain Guy Date: Tue, 31 Aug 2021 19:47:46 -0700 Subject: [PATCH] Update notebook --- docs/math/RGB to LMSR.nb | 403 +++++++++++++++------------------------ 1 file changed, 151 insertions(+), 252 deletions(-) diff --git a/docs/math/RGB to LMSR.nb b/docs/math/RGB to LMSR.nb index 1c76f8e51d..7b39be9beb 100644 --- a/docs/math/RGB to LMSR.nb +++ b/docs/math/RGB to LMSR.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 153819, 3090] -NotebookOptionsPosition[ 151172, 3033] -NotebookOutlinePosition[ 151511, 3048] -CellTagsIndexPosition[ 151468, 3045] +NotebookDataLength[ 150653, 2989] +NotebookOptionsPosition[ 147617, 2926] +NotebookOutlinePosition[ 148012, 2942] +CellTagsIndexPosition[ 147969, 2939] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -40,7 +40,7 @@ Cell[BoxData[{ RowBox[{"SetDirectory", "[", RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.839443871632057*^9, 3.839443897840395*^9}}, - CellLabel->"In[97]:=",ExpressionUUID->"2dea625f-819d-4afb-9db6-1f9e0163fe66"] + CellLabel->"In[1]:=",ExpressionUUID->"2dea625f-819d-4afb-9db6-1f9e0163fe66"] }, Open ]], Cell[CellGroupData[{ @@ -95,10 +95,11 @@ Cell[BoxData[{ 3.839447253317464*^9, {3.83945041309626*^9, 3.839450413451779*^9}, { 3.839450517447301*^9, 3.839450527903515*^9}, {3.8394505591943007`*^9, 3.8394505766505833`*^9}, {3.839450632275118*^9, 3.839450636132414*^9}}, - CellLabel->"In[99]:=",ExpressionUUID->"1c12d9cd-5350-47cb-b7fb-6f53ab47e334"], + CellLabel->"In[3]:=",ExpressionUUID->"1c12d9cd-5350-47cb-b7fb-6f53ab47e334"], Cell[BoxData[ - TemplateBox[{GraphicsBox[{{}, + TemplateBox[{ + GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJztnPlbTf379jdC5q1CZNgRhZCh7swnQmRIpgxlI5RQ5j3vtdceRbedMbeh bU5EyZA5c+ZtiETdRRGi7oQM5enz6drH97nX88P3D3h2vzheR6muda71fl/n @@ -475,43 +476,7 @@ k4Oc5CI3echLPvJTgIIUojBFKEoxilOCkpSiNGUoSznKU4GKVKIyVahKNapT g5rUojZ1qEs96tOAhgTTiMY0oSnNaE4LWtKK1rShLe1oTwdC6EgnOtOFrnSj Oz3oSS96E0oYfehLP/ozgIEMYjBDGMowhjOCkYxiNGMYyzjCiWA8E4hkIpOY zBSmMo3pzGAms5jNHOYyj8/WaLIl - "]]}}, {{ - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 0, 1]]}}, {{ - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 0, 1]]}, {}, {}, {}, {}, {}, {}, {}}, {{ - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 0, 1]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, { + "]]}}}], {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {381.875, 0}, DisplayFunction :> @@ -521,21 +486,22 @@ zBSmMo3pzGAms5jNHOYyj8/WaLIl GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { - "OptimizePlotMarkers" -> True, + "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ + Identity[ Part[#, 1]], - (Identity[#]& )[ + Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ + Identity[ Part[#, 1]], - (Identity[#]& )[ + Identity[ Part[#, 2]]}& )}}, PlotRange -> {{381.875, 780.}, {0, 1.934819}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], - Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ + Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], + FormBox[ FormBox[ TemplateBox[{"\"X\"", "\"Y\"", "\"Z\""}, "LineLegend", DisplayFunction -> (FormBox[ @@ -806,9 +772,8 @@ zBSmMo3pzGAms5jNHOYyj8/WaLIl 3.839443874404031*^9, 3.8394446078252897`*^9, 3.839446610482253*^9, { 3.839446671699855*^9, 3.839446691001384*^9}, 3.839447126221534*^9, 3.839447271011643*^9, 3.8394474644141827`*^9, 3.839451228827359*^9, - 3.839451624833221*^9, 3.839452094921879*^9}, - CellLabel-> - "Out[100]=",ExpressionUUID->"4caf32df-7c76-4d7c-80b1-47755eca9ae5"] + 3.839451624833221*^9, 3.839452094921879*^9, 3.839452295524588*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"cb187987-02d1-4936-8628-4f7d5d368cef"] }, Open ]] }, Open ]], @@ -878,11 +843,11 @@ Cell[BoxData[{ CellChangeTimes->{{3.839443174827423*^9, 3.839443196909202*^9}, { 3.839443400964836*^9, 3.8394434479246693`*^9}, {3.839443716857606*^9, 3.839443721925293*^9}, {3.839450416174512*^9, 3.839450417142445*^9}}, - CellLabel-> - "In[101]:=",ExpressionUUID->"4b91fc06-decf-4901-8565-882e55398b52"], + CellLabel->"In[5]:=",ExpressionUUID->"4b91fc06-decf-4901-8565-882e55398b52"], Cell[BoxData[ - TemplateBox[{GraphicsBox[{{}, + TemplateBox[{ + GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJztnfVfFG/09hcTGxURAwUTE2wU47KxUQxsTDBZA93emdm0cFVEbGzsFQt7 bewVC8UAMcBAbDCfhT3D5+s89Q8sv/h6v0CYM2fnvs+5zrnneI0PHzSpkEgk @@ -1389,58 +1354,9 @@ hrGMYzwTmMgkJjOFqUxjOjOYySxmM4e5zGM+C1jIIhJYzBKWsozlrCCRlaxi NWtYyzrWs4GNbGIzSWxhK9vYzg52sotkdrOHFPayj/0c4CCHSOUwRzjKMY5z gpOcIo3TnOEs5zjPBS5yictcIZ0MrpLJNbK4zg1ucovb3OEu98gmCPM/OclF CKGEkZs85CUf+QmnAAUpRGGKUJRiFCeCEpSkFJFEEU1p7gMwdd6B - "]]}}, {{ - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 0, 1]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - GrayLevel[0.5]]}}, {{ - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 0, 1]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - GrayLevel[ - 0.5]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{ - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 0, 1]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - GrayLevel[ - 0.5]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}], {{}, \ -{}}}, {DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> + + "]]}}}], {{}, {}}}, { + DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {381.875, 0}, DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}}, @@ -1449,21 +1365,22 @@ CKGEkZs85CUf+QmnAAUpRGGKUJRiFCeCEpSkFJFEEU1p7gMwdd6B GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { - "OptimizePlotMarkers" -> True, + "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ + Identity[ Part[#, 1]], - (Identity[#]& )[ + Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ + Identity[ Part[#, 1]], - (Identity[#]& )[ + Identity[ Part[#, 2]]}& )}}, PlotRange -> {{381.875, 780.}, {0, 1.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], - Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ + Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], + FormBox[ FormBox[ TemplateBox[{"\"L\"", "\"M\"", "\"S\"", "\"R\""}, "LineLegend", DisplayFunction -> (FormBox[ @@ -1803,9 +1720,8 @@ CKGEkZs85CUf+QmnAAUpRGGKUJRiFCeCEpSkFJFEEU1p7gMwdd6B 3.839444609745236*^9, 3.839446226830544*^9, 3.839446610640686*^9, { 3.839446671872862*^9, 3.839446691178568*^9}, 3.839447126401958*^9, 3.839447464615501*^9, 3.839451228985178*^9, 3.839451624990617*^9, - 3.839452095080245*^9}, - CellLabel-> - "Out[103]=",ExpressionUUID->"9b984841-8ad5-4428-a877-a8b8e6df0510"] + 3.839452095080245*^9, 3.8394522956424313`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"ed143c9d-2226-47b2-9790-f3fd68a20495"] }, Open ]] }, Open ]], @@ -1862,11 +1778,11 @@ Cell[BoxData[{ 3.839443297145803*^9, 3.839443322674219*^9}, {3.839443724984212*^9, 3.8394437383649483`*^9}, {3.8394452976096163`*^9, 3.839445302670227*^9}, { 3.83944659918049*^9, 3.839446604493163*^9}, 3.8394504183664837`*^9}, - CellLabel-> - "In[104]:=",ExpressionUUID->"92a6ef21-04bc-49b0-96cc-a124dad68b95"], + CellLabel->"In[8]:=",ExpressionUUID->"92a6ef21-04bc-49b0-96cc-a124dad68b95"], Cell[BoxData[ - TemplateBox[{GraphicsBox[{{}, + TemplateBox[{ + GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJzt3HdYU/f7N/BUap0o1oU7Kiq2jrgqQqtvRxH9oqKtFmdx446b7HNOguAO TqwrTnCgceOOFBWcwYkbB4rWEUcV90N/vT+/7+P97/Pnk/7T63VxqXnnJicn @@ -2193,43 +2109,7 @@ k4Oc5CI3echLPvJTgIIUojBFKEoxilOCkpSiNGUoSznKU4GKVKIyVahKNapT g5rUojZ1qEs96tOAhgTTiMY0oSnNaE4LWtKK1rShLe1oTwdC6EgnOtOFrnSj Oz3oSS96E0oYfehLP/ozgIEMYjBDGMowhjOCkYxiNGMYyzjCiWA8E4hkIpOY zBSmMo3pzGAms5jNHOYyj8/WaLIl - "]]}}, {{ - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 0, 1]]}}, {{ - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 0, 1]]}, {}, {}, {}, {}, {}, {}, {}}, {{ - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[1, 0, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 1, 0]]}, { - Directive[ - PointSize[0.006944444444444445], - AbsoluteThickness[1.6], - RGBColor[0, 0, 1]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, { + "]]}}}], {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {381.875, 0}, DisplayFunction :> @@ -2239,22 +2119,23 @@ zBSmMo3pzGAms5jNHOYyj8/WaLIl GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { - "OptimizePlotMarkers" -> True, + "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ + Identity[ Part[#, 1]], - (Identity[#]& )[ + Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ + Identity[ Part[#, 1]], - (Identity[#]& )[ + Identity[ Part[#, 2]]}& )}}, PlotRange -> {{381.875, 780.}, {0, 0.976087481}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], - Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ + Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], + FormBox[ FormBox[ TemplateBox[{"\"R\"", "\"G\"", "\"B\""}, "LineLegend", DisplayFunction -> (FormBox[ @@ -2525,9 +2406,8 @@ zBSmMo3pzGAms5jNHOYyj8/WaLIl 3.8394446115989122`*^9, 3.839445303263796*^9, {3.8394466050254803`*^9, 3.8394466107865047`*^9}, {3.839446672014279*^9, 3.839446691345479*^9}, 3.8394471265776567`*^9, 3.8394474648152437`*^9, 3.839451229119439*^9, - 3.839451625114189*^9, 3.839452095224019*^9}, - CellLabel-> - "Out[105]=",ExpressionUUID->"e33a89ba-de1a-4399-aaa4-65d010c97e3b"] + 3.839451625114189*^9, 3.839452095224019*^9, 3.839452295738779*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"5e781f5e-31f5-4f98-bb73-ccd00132ccb4"] }, Open ]] }, Open ]], @@ -2570,11 +2450,11 @@ Cell[BoxData[{ 3.839443297145803*^9, 3.839443322674219*^9}, {3.8394436220338783`*^9, 3.839443643611599*^9}, {3.839443687480165*^9, 3.839443690407104*^9}, { 3.8394469441842833`*^9, 3.839446951167843*^9}, 3.839450419348551*^9}, - CellLabel-> - "In[106]:=",ExpressionUUID->"d682d8a8-be84-4cf4-ad06-eab0eb9bf406"], + CellLabel->"In[10]:=",ExpressionUUID->"d682d8a8-be84-4cf4-ad06-eab0eb9bf406"], Cell[BoxData[ - TemplateBox[{GraphicsBox[{{}, + TemplateBox[{ + GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJzt2el/VNUZB/AREghLMSBKFJWwqFEQIoqJgvBjk0EkGVkDAQkIEhGTFLTM PnfmbiMKBFSIFTFsEpTiVBCCQE0RELXYSF3YlKBUgoBG0BpEsPd4fudF3/UP @@ -2696,25 +2576,7 @@ pCEt6UhPBjKSiWAyk4WsZCOE7OQglJzkIjd5yEs+8lOAghSiMEUoSjGKU4KS lKI0ZShLOcpTgYpUojJVqEo1qlODmtSiNnWoSxj1qE8DGtKIxjQhnKY0ozkt aEkrWtOGtrSjPR3oSCc6E0EXutKN7vSgJ73oTR/60o+Y8Y5kAAMZxGCGMJQo ohnGcEYwklGMZgxjGcd4JjCRSUxmSuD73/AOmGemIA== - "]]}}, {{ - Directive[ - PointSize[ - NCache[ - Rational[1, 90], 0.011111111111111112`]], - AbsoluteThickness[1.6], - GrayLevel[0.5]]}}, {{ - Directive[ - PointSize[ - NCache[ - Rational[1, 90], 0.011111111111111112`]], - AbsoluteThickness[1.6], - GrayLevel[0.5]]}, {}}, {{ - Directive[ - PointSize[ - NCache[ - Rational[1, 90], 0.011111111111111112`]], - AbsoluteThickness[1.6], - GrayLevel[0.5]]}, {}}}], {{}, {}}}, { + "]]}}}], {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {381.875, 0}, DisplayFunction :> @@ -2724,21 +2586,22 @@ ohnGcEYwklGMZgxjGcd4JjCRSUxmSuD73/AOmGemIA== GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], Method -> { - "OptimizePlotMarkers" -> True, + "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ + Identity[ Part[#, 1]], - (Identity[#]& )[ + Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ + Identity[ Part[#, 1]], - (Identity[#]& )[ + Identity[ Part[#, 2]]}& )}}, PlotRange -> {{381.875, 780.}, {0, 117.812}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], - Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ + Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], + FormBox[ FormBox[ TemplateBox[{"\"D65\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ @@ -2868,9 +2731,8 @@ ohnGcEYwklGMZgxjGcd4JjCRSUxmSuD73/AOmGemIA== 3.839444219488147*^9, 3.8394466109039803`*^9, {3.839446672130972*^9, 3.839446691483054*^9}, 3.83944696209975*^9, 3.839447126705925*^9, 3.839447465101836*^9, 3.8394512292800217`*^9, 3.839451625203464*^9, - 3.83945209533884*^9}, - CellLabel-> - "Out[107]=",ExpressionUUID->"b84b3eab-a540-4454-bc88-89c93176b62d"] + 3.83945209533884*^9, 3.839452295811335*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"666a4844-7bd3-475c-8858-57d3a403cb82"] }, Open ]] }, Open ]], @@ -2912,8 +2774,7 @@ Cell[BoxData[ 3.839445027673003*^9}, {3.8394451559190903`*^9, 3.839445160002503*^9}, { 3.839445834552326*^9, 3.8394458503432426`*^9}, 3.8394466842574263`*^9, { 3.839447210999893*^9, 3.839447211542082*^9}}, - CellLabel-> - "In[108]:=",ExpressionUUID->"851efab9-f01a-475a-8d95-77e69d6f9c0a"], + CellLabel->"In[12]:=",ExpressionUUID->"851efab9-f01a-475a-8d95-77e69d6f9c0a"], Cell[BoxData[{ RowBox[{ @@ -2937,8 +2798,7 @@ Cell[BoxData[{ 3.839445857679*^9, 3.839445861815016*^9}, {3.839446817084374*^9, 3.839446820608334*^9}, {3.8394469762013397`*^9, 3.8394469782241383`*^9}, { 3.839451886462318*^9, 3.839451982964561*^9}, 3.839452075151917*^9}, - CellLabel-> - "In[109]:=",ExpressionUUID->"0d1f1189-fad9-400c-9e17-e5482a4c2322"], + CellLabel->"In[13]:=",ExpressionUUID->"0d1f1189-fad9-400c-9e17-e5482a4c2322"], Cell[BoxData[ RowBox[{ @@ -2967,8 +2827,7 @@ Cell[BoxData[ 3.8394468144327087`*^9}, {3.839447139531687*^9, 3.839447151863946*^9}, { 3.839451931540249*^9, 3.8394519338784924`*^9}, {3.839451970208984*^9, 3.839451989895026*^9}}, - CellLabel-> - "In[112]:=",ExpressionUUID->"855fad7a-8f45-4354-bb75-e67a2b286c92"], + CellLabel->"In[16]:=",ExpressionUUID->"855fad7a-8f45-4354-bb75-e67a2b286c92"], Cell[CellGroupData[{ @@ -2976,25 +2835,33 @@ Cell["4x3 matrix for RGB to LMSR conversion", "Subsection", CellChangeTimes->{{3.8394508984350758`*^9, 3.8394509087784*^9}},ExpressionUUID->"73c06730-74b6-43b8-bbae-03fce2232fe5"], +Cell[BoxData[ + RowBox[{ + RowBox[{"rgbToLmsr", "=", + RowBox[{"Outer", "[", + RowBox[{ + RowBox[{ + RowBox[{"rgbToLms", "[", + RowBox[{"#1", ",", "#2"}], "]"}], "&"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "]"}]}], + ";"}]], "Input", + CellChangeTimes->{{3.839446009786174*^9, 3.839446156135174*^9}, { + 3.8394464782467937`*^9, 3.83944647971105*^9}, 3.839447154085835*^9, { + 3.839451195223851*^9, 3.839451222471589*^9}, 3.8394518527624207`*^9, { + 3.839452353636548*^9, 3.8394523558419533`*^9}, 3.8394523958393383`*^9, + 3.839452427146964*^9}, + CellLabel->"In[26]:=",ExpressionUUID->"d91a83c4-98b2-4295-b035-41873973424f"], + Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{ - RowBox[{"Outer", "[", - RowBox[{ - RowBox[{ - RowBox[{"rgbToLms", "[", - RowBox[{"#1", ",", "#2"}], "]"}], "&"}], ",", - RowBox[{"{", - RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", - RowBox[{"{", - RowBox[{"1", ",", "2", ",", "3", ",", "4"}], "}"}]}], "]"}], "//", " ", - "MatrixForm"}]], "Input", - CellChangeTimes->{{3.839446009786174*^9, 3.839446156135174*^9}, { - 3.8394464782467937`*^9, 3.83944647971105*^9}, 3.839447154085835*^9, { - 3.839451195223851*^9, 3.839451222471589*^9}, 3.8394518527624207`*^9}, - CellLabel-> - "In[113]:=",ExpressionUUID->"d91a83c4-98b2-4295-b035-41873973424f"], + RowBox[{"rgbToLmsr", "//", "MatrixForm"}]], "Input", + CellChangeTimes->{{3.8394523680970163`*^9, 3.839452423419404*^9}, { + 3.8394525101389523`*^9, 3.83945251038573*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"a93ff78a-f224-4017-b55d-7b4cd854ced0"], Cell[BoxData[ TagBox[ @@ -3016,25 +2883,52 @@ Cell[BoxData[ Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", - CellChangeTimes->{{3.8394460189717693`*^9, 3.8394460473894577`*^9}, - 3.839446079582263*^9, {3.839446135570817*^9, 3.8394461669669743`*^9}, - 3.839446238767353*^9, 3.8394464854302387`*^9, 3.839446616948401*^9, { - 3.839446678161668*^9, 3.8394466974299707`*^9}, {3.839447132336582*^9, - 3.839447162846499*^9}, 3.839447223677099*^9, 3.839447471615426*^9, { - 3.8394512197471867`*^9, 3.8394512347581882`*^9}, 3.83945163031668*^9, - 3.8394518595027943`*^9, 3.839451947795424*^9, 3.8394520066211157`*^9, - 3.839452100651092*^9}, + CellChangeTimes->{3.8394525382750177`*^9}, CellLabel-> - "Out[113]//MatrixForm=",ExpressionUUID->"17566bca-e522-41af-a17c-\ -dea31f77bdbc"] + "Out[31]//MatrixForm=",ExpressionUUID->"4e019873-21ac-4678-bb4e-\ +4b3fab31ee15"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"rgbToLmsr", "\[Transpose]"}], "//", "MatrixForm"}]], "Input", + CellChangeTimes->{{3.8394525148737993`*^9, 3.839452535096004*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"f2371d94-8139-464b-8536-6ff469961cf5"], + +Cell[BoxData[ + TagBox[ + RowBox[{"(", "\[NoBreak]", GridBox[{ + {"0.3106517970628422`", "0.768898704708065`", "0.08813646937161945`"}, + {"0.09635243354198236`", "0.775177393367731`", "0.12847017480263423`"}, + {"0.012165361564991789`", "0.05511661596968731`", + "0.5740456160916152`"}, + {"0.018801282490768876`", "0.6357763926672474`", "0.4261568888886938`"} + }, + GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, + GridBoxSpacings->{"Columns" -> { + Offset[0.27999999999999997`], { + Offset[0.7]}, + Offset[0.27999999999999997`]}, "Rows" -> { + Offset[0.2], { + Offset[0.4]}, + Offset[0.2]}}], "\[NoBreak]", ")"}], + Function[BoxForm`e$, + MatrixForm[BoxForm`e$]]]], "Output", + CellChangeTimes->{{3.839452516230184*^9, 3.839452539739893*^9}}, + CellLabel-> + "Out[32]//MatrixForm=",ExpressionUUID->"7d088828-c2a1-4a18-801e-\ +8739efda932e"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1194, 1639}, -WindowMargins->{{850, Automatic}, {Automatic, 0}}, -FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", -StyleDefinitions->"Default.nb" +WindowMargins->{{432, Automatic}, {Automatic, 0}}, +FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (June 19, 2020)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"d1af4ff4-a77c-491f-9838-64482a3198d2" ] (* End of Notebook Content *) @@ -3049,46 +2943,51 @@ CellTagsIndex->{} Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 683, 12, 126, "Subtitle",ExpressionUUID->"5ae343b7-a2aa-48f4-98df-4a91ccee9af1"], -Cell[1266, 36, 344, 6, 52, "Input",ExpressionUUID->"2dea625f-819d-4afb-9db6-1f9e0163fe66"] +Cell[1266, 36, 343, 6, 52, "Input",ExpressionUUID->"2dea625f-819d-4afb-9db6-1f9e0163fe66"] }, Open ]], Cell[CellGroupData[{ -Cell[1647, 47, 545, 8, 58, "Subtitle",ExpressionUUID->"5869e3ef-0bb9-4e92-a9a4-c3889973a035"], +Cell[1646, 47, 545, 8, 58, "Subtitle",ExpressionUUID->"5869e3ef-0bb9-4e92-a9a4-c3889973a035"], Cell[CellGroupData[{ -Cell[2217, 59, 1715, 38, 52, "Input",ExpressionUUID->"1c12d9cd-5350-47cb-b7fb-6f53ab47e334"], -Cell[3935, 99, 37158, 711, 250, "Output",ExpressionUUID->"4caf32df-7c76-4d7c-80b1-47755eca9ae5"] +Cell[2216, 59, 1714, 38, 52, "Input",ExpressionUUID->"1c12d9cd-5350-47cb-b7fb-6f53ab47e334"], +Cell[3933, 99, 35937, 676, 250, "Output",ExpressionUUID->"cb187987-02d1-4936-8628-4f7d5d368cef"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[41142, 816, 842, 16, 81, "Subtitle",ExpressionUUID->"7406aa00-ad51-4be8-9076-280c11689b0c"], +Cell[39919, 781, 842, 16, 81, "Subtitle",ExpressionUUID->"7406aa00-ad51-4be8-9076-280c11689b0c"], Cell[CellGroupData[{ -Cell[42009, 836, 1638, 45, 94, "Input",ExpressionUUID->"4b91fc06-decf-4901-8565-882e55398b52"], -Cell[43650, 883, 48391, 924, 248, "Output",ExpressionUUID->"9b984841-8ad5-4428-a877-a8b8e6df0510"] +Cell[40786, 801, 1633, 44, 94, "Input",ExpressionUUID->"4b91fc06-decf-4901-8565-882e55398b52"], +Cell[42422, 847, 46729, 876, 248, "Output",ExpressionUUID->"ed143c9d-2226-47b2-9790-f3fd68a20495"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[92090, 1813, 693, 13, 81, "Subtitle",ExpressionUUID->"c65e7cba-0278-462a-aebc-b84ca6044482"], +Cell[89200, 1729, 693, 13, 81, "Subtitle",ExpressionUUID->"c65e7cba-0278-462a-aebc-b84ca6044482"], Cell[CellGroupData[{ -Cell[92808, 1830, 1349, 35, 52, "Input",ExpressionUUID->"92a6ef21-04bc-49b0-96cc-a124dad68b95"], -Cell[94160, 1867, 34193, 662, 248, "Output",ExpressionUUID->"e33a89ba-de1a-4399-aaa4-65d010c97e3b"] +Cell[89918, 1746, 1344, 34, 52, "Input",ExpressionUUID->"92a6ef21-04bc-49b0-96cc-a124dad68b95"], +Cell[91265, 1782, 32972, 627, 248, "Output",ExpressionUUID->"5e781f5e-31f5-4f98-bb73-ccd00132ccb4"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[128402, 2535, 611, 9, 58, "Subtitle",ExpressionUUID->"db386b88-be30-460a-b75a-1d41b70c7281"], +Cell[124286, 2415, 611, 9, 58, "Subtitle",ExpressionUUID->"db386b88-be30-460a-b75a-1d41b70c7281"], Cell[CellGroupData[{ -Cell[129038, 2548, 997, 25, 52, "Input",ExpressionUUID->"d682d8a8-be84-4cf4-ad06-eab0eb9bf406"], -Cell[130038, 2575, 14823, 297, 246, "Output",ExpressionUUID->"b84b3eab-a540-4454-bc88-89c93176b62d"] +Cell[124922, 2428, 993, 24, 52, "Input",ExpressionUUID->"d682d8a8-be84-4cf4-ad06-eab0eb9bf406"], +Cell[125918, 2454, 14299, 280, 246, "Output",ExpressionUUID->"666a4844-7bd3-475c-8858-57d3a403cb82"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[144910, 2878, 533, 8, 58, "Subtitle",ExpressionUUID->"045f9ba7-7042-4131-aa82-83a0ff7d7fa9"], -Cell[145446, 2888, 1287, 27, 30, "Input",ExpressionUUID->"851efab9-f01a-475a-8d95-77e69d6f9c0a"], -Cell[146736, 2917, 908, 23, 73, "Input",ExpressionUUID->"0d1f1189-fad9-400c-9e17-e5482a4c2322"], -Cell[147647, 2942, 1195, 28, 52, "Input",ExpressionUUID->"855fad7a-8f45-4354-bb75-e67a2b286c92"], +Cell[140266, 2740, 533, 8, 58, "Subtitle",ExpressionUUID->"045f9ba7-7042-4131-aa82-83a0ff7d7fa9"], +Cell[140802, 2750, 1283, 26, 30, "Input",ExpressionUUID->"851efab9-f01a-475a-8d95-77e69d6f9c0a"], +Cell[142088, 2778, 904, 22, 73, "Input",ExpressionUUID->"0d1f1189-fad9-400c-9e17-e5482a4c2322"], +Cell[142995, 2802, 1191, 27, 52, "Input",ExpressionUUID->"855fad7a-8f45-4354-bb75-e67a2b286c92"], Cell[CellGroupData[{ -Cell[148867, 2974, 183, 2, 54, "Subsection",ExpressionUUID->"73c06730-74b6-43b8-bbae-03fce2232fe5"], +Cell[144211, 2833, 183, 2, 54, "Subsection",ExpressionUUID->"73c06730-74b6-43b8-bbae-03fce2232fe5"], +Cell[144397, 2837, 766, 18, 30, "Input",ExpressionUUID->"d91a83c4-98b2-4295-b035-41873973424f"], Cell[CellGroupData[{ -Cell[149075, 2980, 648, 16, 30, "Input",ExpressionUUID->"d91a83c4-98b2-4295-b035-41873973424f"], -Cell[149726, 2998, 1406, 30, 76, "Output",ExpressionUUID->"17566bca-e522-41af-a17c-dea31f77bdbc"] +Cell[145188, 2859, 264, 4, 30, "Input",ExpressionUUID->"a93ff78a-f224-4017-b55d-7b4cd854ced0"], +Cell[145455, 2865, 912, 23, 76, "Output",ExpressionUUID->"4e019873-21ac-4678-bb4e-4b3fab31ee15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[146404, 2893, 243, 4, 30, InheritFromParent,ExpressionUUID->"f2371d94-8139-464b-8536-6ff469961cf5"], +Cell[146650, 2899, 927, 22, 142, "Output",ExpressionUUID->"7d088828-c2a1-4a18-801e-8739efda932e"] }, Open ]] }, Open ]] }, Open ]]