Scarfski/filament
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update notebook

Browse Source
This commit is contained in:
Romain Guy
2021-08-31 19:47:46 -07:00
parent 60e88a6069
commit 22a464f76f
1 changed files with 151 additions and 252 deletions
Download Patch File Download Diff File Expand all files Collapse all files

403
docs/math/RGB to LMSR.nb
View File

@@ -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 ]]