(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 127189, 3217] NotebookOptionsPosition[ 106433, 2778] NotebookOutlinePosition[ 123003, 3075] CellTagsIndexPosition[ 122960, 3072] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Color Function Library", "Title"], Cell["Sample Few Functions for Spectrum Analysis ", "Subtitle"], Cell["Jun Hirabayashi jun@hirax.net", "Subsubtitle"], Cell[CellGroupData[{ Cell["\:8a08\:7b97\:6ce2\:9577\:9818\:57df\:6307\:5b9a", "Section"], Cell["\<\ \:30b9\:30da\:30af\:30c8\:30eb\:306f Interpolation \:3067\:88dc\:9593\:3057\ \:3066\:3044\:308b\:6ce2\:9577\:7bc4\:56f2\:3092\:4e0b\:8a18\:3067\:6307\:5b9a\ \:ff08 350nm - 800 nm \:ff09 \:4f7f\:7528\:3059\:308b\:306e\:306f\:30b9\:30da\:30af\:30c8\:30eb\:30b0\:30e9\ \:30d5\:8868\:793a\:6642\:30fb\:30b9\:30da\:30af\:30c8\:30eb\:8fd1\:4f3c\:95a2\ \:6570\:4f5c\:6210\:6642\ \>", "Text"], Cell[BoxData[{ RowBox[{ RowBox[{"MinWL", " ", "=", " ", "350"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MaxWL", " ", "=", " ", "800"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"divWL", "=", "10"}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.448448346075992*^9, 3.448448398291074*^9}}, CellLabel->"In[1]:="] }, Closed]], Cell[CellGroupData[{ Cell["\:5149\:6e90", "Section"], Cell[CellGroupData[{ Cell["\:767d\:8272\:5149\:6e90", "Subsection"], Cell["whiteLight[x_] = 1.0;", "Input", CellLabel->"In[4]:="] }, Open ]], Cell[CellGroupData[{ Cell["D65\:5149\:6e90", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"D65", " ", "=", " ", RowBox[{"Interpolation", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"350", ",", "0.4491`"}], "}"}], ",", RowBox[{"{", RowBox[{"351", ",", "0.4517456`"}], "}"}], ",", RowBox[{"{", RowBox[{"352", ",", "0.45378880000000005`"}], "}"}], ",", RowBox[{"{", RowBox[{"353", ",", "0.4553792`"}], "}"}], ",", RowBox[{"{", RowBox[{"354", ",", "0.45666640000000003`"}], "}"}], ",", RowBox[{"{", RowBox[{"355", ",", "0.45780000000000004`"}], "}"}], ",", RowBox[{"{", RowBox[{"356", ",", "0.45892960000000005`"}], "}"}], ",", RowBox[{"{", RowBox[{"357", ",", "0.4602048`"}], "}"}], ",", RowBox[{"{", RowBox[{"358", ",", "0.4617752`"}], "}"}], ",", RowBox[{"{", RowBox[{"359", ",", "0.46379040000000005`"}], "}"}], ",", RowBox[{"{", RowBox[{"360", ",", "0.46640000000000004`"}], "}"}], ",", RowBox[{"{", RowBox[{"361", ",", "0.47094400000000003`"}], "}"}], ",", RowBox[{"{", RowBox[{"362", ",", "0.47608400000000006`"}], "}"}], ",", RowBox[{"{", RowBox[{"363", ",", "0.48167200000000004`"}], "}"}], ",", RowBox[{"{", RowBox[{"364", ",", "0.48756`"}], "}"}], ",", RowBox[{"{", RowBox[{"365", ",", "0.4936`"}], "}"}], ",", RowBox[{"{", RowBox[{"366", ",", "0.500268`"}], "}"}], ",", RowBox[{"{", RowBox[{"367", ",", "0.5066360000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"368", ",", "0.5124000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"369", ",", "0.517256`"}], "}"}], ",", RowBox[{"{", RowBox[{"370", ",", "0.5209`"}], "}"}], ",", RowBox[{"{", RowBox[{"371", ",", "0.5205960000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"372", ",", "0.51908`"}], "}"}], ",", RowBox[{"{", RowBox[{"373", ",", "0.516656`"}], "}"}], ",", RowBox[{"{", RowBox[{"374", ",", "0.513628`"}], "}"}], ",", RowBox[{"{", RowBox[{"375", ",", "0.5103`"}], "}"}], ",", RowBox[{"{", RowBox[{"376", ",", "0.5071136`"}], "}"}], ",", RowBox[{"{", RowBox[{"377", ",", "0.5042008`"}], "}"}], ",", RowBox[{"{", RowBox[{"378", ",", "0.5018311999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"379", ",", "0.5002744`"}], "}"}], ",", RowBox[{"{", RowBox[{"380", ",", "0.49979999999999997`"}], "}"}], ",", RowBox[{"{", RowBox[{"381", ",", "0.5028344`"}], "}"}], ",", RowBox[{"{", RowBox[{"382", ",", "0.5069511999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"383", ",", "0.5118808`"}], "}"}], ",", RowBox[{"{", RowBox[{"384", ",", "0.5173536`"}], "}"}], ",", RowBox[{"{", RowBox[{"385", ",", "0.5231`"}], "}"}], ",", RowBox[{"{", RowBox[{"386", ",", "0.524028`"}], "}"}], ",", RowBox[{"{", RowBox[{"387", ",", "0.525896`"}], "}"}], ",", RowBox[{"{", RowBox[{"388", ",", "0.52964`"}], "}"}], ",", RowBox[{"{", RowBox[{"389", ",", "0.536196`"}], "}"}], ",", RowBox[{"{", RowBox[{"390", ",", "0.5465`"}], "}"}], ",", RowBox[{"{", RowBox[{"391", ",", "0.5689792`"}], "}"}], ",", RowBox[{"{", RowBox[{"392", ",", "0.5952056`"}], "}"}], ",", RowBox[{"{", RowBox[{"393", ",", "0.6242424000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"394", ",", "0.6551528000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"395", ",", "0.687`"}], "}"}], ",", RowBox[{"{", RowBox[{"396", ",", "0.7181976`"}], "}"}], ",", RowBox[{"{", RowBox[{"397", ",", "0.7486208000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"398", ",", "0.7774952`"}], "}"}], ",", RowBox[{"{", RowBox[{"399", ",", "0.8040464`"}], "}"}], ",", RowBox[{"{", RowBox[{"400", ",", "0.8275`"}], "}"}], ",", RowBox[{"{", RowBox[{"401", ",", "0.8408864`"}], "}"}], ",", RowBox[{"{", RowBox[{"402", ",", "0.8511752`"}], "}"}], ",", RowBox[{"{", RowBox[{"403", ",", "0.8591408`"}], "}"}], ",", RowBox[{"{", RowBox[{"404", ",", "0.8655576`"}], "}"}], ",", RowBox[{"{", RowBox[{"405", ",", "0.8712000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"406", ",", "0.881028`"}], "}"}], ",", RowBox[{"{", RowBox[{"407", ",", "0.890584`"}], "}"}], ",", RowBox[{"{", RowBox[{"408", ",", "0.899596`"}], "}"}], ",", RowBox[{"{", RowBox[{"409", ",", "0.907792`"}], "}"}], ",", RowBox[{"{", RowBox[{"410", ",", "0.9148999999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"411", ",", "0.9184720000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"412", ",", "0.9209559999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"413", ",", "0.922624`"}], "}"}], ",", RowBox[{"{", RowBox[{"414", ",", "0.9237479999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"415", ",", "0.9246`"}], "}"}], ",", RowBox[{"{", RowBox[{"416", ",", "0.9279288`"}], "}"}], ",", RowBox[{"{", RowBox[{"417", ",", "0.9309103999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"418", ",", "0.9331976000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"419", ",", "0.9344432`"}], "}"}], ",", RowBox[{"{", RowBox[{"420", ",", "0.9343000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"421", ",", "0.9296464000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"422", ",", "0.9236032000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"423", ",", "0.9165168`"}], "}"}], ",", RowBox[{"{", RowBox[{"424", ",", "0.9087336`"}], "}"}], ",", RowBox[{"{", RowBox[{"425", ",", "0.9006000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"426", ",", "0.8898543999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"427", ",", "0.8801032000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"428", ",", "0.8723448`"}], "}"}], ",", RowBox[{"{", RowBox[{"429", ",", "0.8675776000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"430", ",", "0.8668000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"431", ",", "0.8789944`"}], "}"}], ",", RowBox[{"{", RowBox[{"432", ",", "0.8951792000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"433", ",", "0.9143568000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"434", ",", "0.9355296`"}], "}"}], ",", RowBox[{"{", RowBox[{"435", ",", "0.9577`"}], "}"}], ",", RowBox[{"{", RowBox[{"436", ",", "0.9768432`"}], "}"}], ",", RowBox[{"{", RowBox[{"437", ",", "0.9957455999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"438", ",", "1.0141664000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"439", ",", "1.0318648000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"440", ",", "1.0486`"}], "}"}], ",", RowBox[{"{", RowBox[{"441", ",", "1.062208`"}], "}"}], ",", RowBox[{"{", RowBox[{"442", ",", "1.074852`"}], "}"}], ",", RowBox[{"{", RowBox[{"443", ",", "1.086772`"}], "}"}], ",", RowBox[{"{", RowBox[{"444", ",", "1.0982079999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"445", ",", "1.1094`"}], "}"}], ",", RowBox[{"{", RowBox[{"446", ",", "1.1233592000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"447", ",", "1.1368616`"}], "}"}], ",", RowBox[{"{", RowBox[{"448", ",", "1.1494544`"}], "}"}], ",", RowBox[{"{", RowBox[{"449", ",", "1.1606848`"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "1.1701000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"451", ",", "1.1736216000000002`"}], "}"}], ",", RowBox[{"{", RowBox[{"452", ",", "1.1753288000000002`"}], "}"}], ",", RowBox[{"{", RowBox[{"453", ",", "1.1756752000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"454", ",", "1.1751144`"}], "}"}], ",", RowBox[{"{", RowBox[{"455", ",", "1.1741`"}], "}"}], ",", RowBox[{"{", RowBox[{"456", ",", "1.1754984000000002`"}], "}"}], ",", RowBox[{"{", RowBox[{"457", ",", "1.1767471999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"458", ",", "1.1776967999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"459", ",", "1.1781976`"}], "}"}], ",", RowBox[{"{", RowBox[{"460", ",", "1.1781000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"461", ",", "1.1760608000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"462", ",", "1.1734224`"}], "}"}], ",", RowBox[{"{", RowBox[{"463", ",", "1.1703336`"}], "}"}], ",", RowBox[{"{", RowBox[{"464", ",", "1.1669432000000002`"}], "}"}], ",", RowBox[{"{", RowBox[{"465", ",", "1.1634`"}], "}"}], ",", RowBox[{"{", RowBox[{"466", ",", "1.1598016`"}], "}"}], ",", RowBox[{"{", RowBox[{"467", ",", "1.1563608`"}], "}"}], ",", RowBox[{"{", RowBox[{"468", ",", "1.1532392`"}], "}"}], ",", RowBox[{"{", RowBox[{"469", ",", "1.1505984`"}], "}"}], ",", RowBox[{"{", RowBox[{"470", ",", "1.1486`"}], "}"}], ",", RowBox[{"{", RowBox[{"471", ",", "1.1486952`"}], "}"}], ",", RowBox[{"{", RowBox[{"472", ",", "1.1494336`"}], "}"}], ",", RowBox[{"{", RowBox[{"473", ",", "1.1506544`"}], "}"}], ",", RowBox[{"{", RowBox[{"474", ",", "1.1521968`"}], "}"}], ",", RowBox[{"{", RowBox[{"475", ",", "1.1539`"}], "}"}], ",", RowBox[{"{", RowBox[{"476", ",", "1.1562656`"}], "}"}], ",", RowBox[{"{", RowBox[{"477", ",", "1.1583048`"}], "}"}], ",", RowBox[{"{", RowBox[{"478", ",", "1.1596912000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"479", ",", "1.1600984`"}], "}"}], ",", RowBox[{"{", RowBox[{"480", ",", "1.1592`"}], "}"}], ",", RowBox[{"{", RowBox[{"481", ",", "1.1540616000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"482", ",", "1.1476168`"}], "}"}], ",", RowBox[{"{", RowBox[{"483", ",", "1.1401912`"}], "}"}], ",", RowBox[{"{", RowBox[{"484", ",", "1.1321104000000002`"}], "}"}], ",", RowBox[{"{", RowBox[{"485", ",", "1.1237000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"486", ",", "1.1153592`"}], "}"}], ",", RowBox[{"{", RowBox[{"487", ",", "1.1073216000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"488", ",", "1.0998944`"}], "}"}], ",", RowBox[{"{", RowBox[{"489", ",", "1.0933848000000002`"}], "}"}], ",", RowBox[{"{", RowBox[{"490", ",", "1.0881`"}], "}"}], ",", RowBox[{"{", RowBox[{"491", ",", "1.0868016`"}], "}"}], ",", RowBox[{"{", RowBox[{"492", ",", "1.0867288000000002`"}], "}"}], ",", RowBox[{"{", RowBox[{"493", ",", "1.0875752`"}], "}"}], ",", RowBox[{"{", RowBox[{"494", ",", "1.0890344`"}], "}"}], ",", RowBox[{"{", RowBox[{"495", ",", "1.0908`"}], "}"}], ",", RowBox[{"{", RowBox[{"496", ",", "1.0916728`"}], "}"}], ",", RowBox[{"{", RowBox[{"497", ",", "1.0924624`"}], "}"}], ",", RowBox[{"{", RowBox[{"498", ",", "1.0930856`"}], "}"}], ",", RowBox[{"{", RowBox[{"499", ",", "1.0934591999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"500", ",", "1.0935`"}], "}"}], ",", RowBox[{"{", RowBox[{"501", ",", "1.0924624`"}], "}"}], ",", RowBox[{"{", RowBox[{"502", ",", "1.0910912`"}], "}"}], ",", RowBox[{"{", RowBox[{"503", ",", "1.0894688`"}], "}"}], ",", RowBox[{"{", RowBox[{"504", ",", "1.0876776`"}], "}"}], ",", RowBox[{"{", RowBox[{"505", ",", "1.0858`"}], "}"}], ",", RowBox[{"{", RowBox[{"506", ",", "1.0844752`"}], "}"}], ",", RowBox[{"{", RowBox[{"507", ",", "1.0830896`"}], "}"}], ",", RowBox[{"{", RowBox[{"508", ",", "1.0815864`"}], "}"}], ",", RowBox[{"{", RowBox[{"509", ",", "1.0799088000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"510", ",", "1.078`"}], "}"}], ",", RowBox[{"{", RowBox[{"511", ",", "1.0753488`"}], "}"}], ",", RowBox[{"{", RowBox[{"512", ",", "1.0724664`"}], "}"}], ",", RowBox[{"{", RowBox[{"513", ",", "1.0694096`"}], "}"}], ",", RowBox[{"{", RowBox[{"514", ",", "1.0662352`"}], "}"}], ",", RowBox[{"{", RowBox[{"515", ",", "1.063`"}], "}"}], ",", RowBox[{"{", RowBox[{"516", ",", "1.0590376000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"517", ",", "1.0553088`"}], "}"}], ",", RowBox[{"{", RowBox[{"518", ",", "1.0520512000000002`"}], "}"}], ",", RowBox[{"{", RowBox[{"519", ",", "1.0495024000000002`"}], "}"}], ",", RowBox[{"{", RowBox[{"520", ",", "1.0479`"}], "}"}], ",", RowBox[{"{", RowBox[{"521", ",", "1.0493792000000002`"}], "}"}], ",", RowBox[{"{", RowBox[{"522", ",", "1.0518056`"}], "}"}], ",", RowBox[{"{", RowBox[{"523", ",", "1.0549424`"}], "}"}], ",", RowBox[{"{", RowBox[{"524", ",", "1.0585528`"}], "}"}], ",", RowBox[{"{", RowBox[{"525", ",", "1.0624`"}], "}"}], ",", RowBox[{"{", RowBox[{"526", ",", "1.0662888`"}], "}"}], ",", RowBox[{"{", RowBox[{"527", ",", "1.0699304`"}], "}"}], ",", RowBox[{"{", RowBox[{"528", ",", "1.0730776`"}], "}"}], ",", RowBox[{"{", RowBox[{"529", ",", "1.0754832`"}], "}"}], ",", RowBox[{"{", RowBox[{"530", ",", "1.0769`"}], "}"}], ",", RowBox[{"{", RowBox[{"531", ",", "1.0751032`"}], "}"}], ",", RowBox[{"{", RowBox[{"532", ",", "1.0723175999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"533", ",", "1.0687904000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"534", ",", "1.0647688`"}], "}"}], ",", RowBox[{"{", RowBox[{"535", ",", "1.0605`"}], "}"}], ",", RowBox[{"{", RowBox[{"536", ",", "1.0567528`"}], "}"}], ",", RowBox[{"{", RowBox[{"537", ",", "1.0531224000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"538", ",", "1.0497256`"}], "}"}], ",", RowBox[{"{", RowBox[{"539", ",", "1.0466792`"}], "}"}], ",", RowBox[{"{", RowBox[{"540", ",", "1.0441`"}], "}"}], ",", RowBox[{"{", RowBox[{"541", ",", "1.0430392000000002`"}], "}"}], ",", RowBox[{"{", RowBox[{"542", ",", "1.0424456`"}], "}"}], ",", RowBox[{"{", RowBox[{"543", ",", "1.0422024`"}], "}"}], ",", RowBox[{"{", RowBox[{"544", ",", "1.0421928`"}], "}"}], ",", RowBox[{"{", RowBox[{"545", ",", "1.0423`"}], "}"}], ",", RowBox[{"{", RowBox[{"546", ",", "1.042532`"}], "}"}], ",", RowBox[{"{", RowBox[{"547", ",", "1.042616`"}], "}"}], ",", RowBox[{"{", RowBox[{"548", ",", "1.0424039999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"549", ",", "1.0417480000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"550", ",", "1.0405`"}], "}"}], ",", RowBox[{"{", RowBox[{"551", ",", "1.0373248`"}], "}"}], ",", RowBox[{"{", RowBox[{"552", ",", "1.0335584`"}], "}"}], ",", RowBox[{"{", RowBox[{"553", ",", "1.0293496`"}], "}"}], ",", RowBox[{"{", RowBox[{"554", ",", "1.0248472`"}], "}"}], ",", RowBox[{"{", RowBox[{"555", ",", "1.0202`"}], "}"}], ",", RowBox[{"{", RowBox[{"556", ",", "1.0160943999999998`"}], "}"}], ",", RowBox[{"{", RowBox[{"557", ",", "1.0120072`"}], "}"}], ",", RowBox[{"{", RowBox[{"558", ",", "1.0079528`"}], "}"}], ",", RowBox[{"{", RowBox[{"559", ",", "1.0039456`"}], "}"}], ",", RowBox[{"{", RowBox[{"560", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{"561", ",", "0.9962520000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"562", ",", "0.992564`"}], "}"}], ",", RowBox[{"{", RowBox[{"563", ",", "0.98892`"}], "}"}], ",", RowBox[{"{", RowBox[{"564", ",", "0.9853040000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"565", ",", "0.9817`"}], "}"}], ",", RowBox[{"{", RowBox[{"566", ",", "0.9775224`"}], "}"}], ",", RowBox[{"{", RowBox[{"567", ",", "0.9734672000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"568", ",", "0.9696608000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"569", ",", "0.9662295999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"570", ",", "0.9633`"}], "}"}], ",", RowBox[{"{", RowBox[{"571", ",", "0.9620063999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"572", ",", "0.9612152`"}], "}"}], ",", RowBox[{"{", RowBox[{"573", ",", "0.9608008`"}], "}"}], ",", RowBox[{"{", RowBox[{"574", ",", "0.9606376000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"575", ",", "0.9606`"}], "}"}], ",", RowBox[{"{", RowBox[{"576", ",", "0.9611096000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"577", ",", "0.9613568000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"578", ",", "0.9610792000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"579", ",", "0.9600144`"}], "}"}], ",", RowBox[{"{", RowBox[{"580", ",", "0.9579000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"581", ",", "0.9523744000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"582", ",", "0.9457992000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"583", ",", "0.9384368000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"584", ",", "0.9305496`"}], "}"}], ",", RowBox[{"{", RowBox[{"585", ",", "0.9224`"}], "}"}], ",", RowBox[{"{", RowBox[{"586", ",", "0.9139528`"}], "}"}], ",", RowBox[{"{", RowBox[{"587", ",", "0.9058423999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"588", ",", "0.8984056`"}], "}"}], ",", RowBox[{"{", RowBox[{"589", ",", "0.8919792`"}], "}"}], ",", RowBox[{"{", RowBox[{"590", ",", "0.8869`"}], "}"}], ",", RowBox[{"{", RowBox[{"591", ",", "0.8861992`"}], "}"}], ",", RowBox[{"{", RowBox[{"592", ",", "0.8868455999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"593", ",", "0.8885024`"}], "}"}], ",", RowBox[{"{", RowBox[{"594", ",", "0.8908327999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"595", ",", "0.8935`"}], "}"}], ",", RowBox[{"{", RowBox[{"596", ",", "0.8950984`"}], "}"}], ",", RowBox[{"{", RowBox[{"597", ",", "0.8966272`"}], "}"}], ",", RowBox[{"{", RowBox[{"598", ",", "0.8980168000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"599", ",", "0.8991975999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"600", ",", "0.9001000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"601", ",", "0.9000944`"}], "}"}], ",", RowBox[{"{", RowBox[{"602", ",", "0.8998112`"}], "}"}], ",", RowBox[{"{", RowBox[{"603", ",", "0.8993208`"}], "}"}], ",", RowBox[{"{", RowBox[{"604", ",", "0.8986936`"}], "}"}], ",", RowBox[{"{", RowBox[{"605", ",", "0.898`"}], "}"}], ",", RowBox[{"{", RowBox[{"606", ",", "0.8978351999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"607", ",", "0.8976136`"}], "}"}], ",", RowBox[{"{", RowBox[{"608", ",", "0.8972743999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"609", ",", "0.8967568`"}], "}"}], ",", RowBox[{"{", RowBox[{"610", ",", "0.8959999999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"611", ",", "0.89446`"}], "}"}], ",", RowBox[{"{", RowBox[{"612", ",", "0.89268`"}], "}"}], ",", RowBox[{"{", RowBox[{"613", ",", "0.8907200000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"614", ",", "0.8886400000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"615", ",", "0.8865000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"616", ",", "0.8850032`"}], "}"}], ",", RowBox[{"{", RowBox[{"617", ",", "0.8834056000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"618", ",", "0.8816064`"}], "}"}], ",", RowBox[{"{", RowBox[{"619", ",", "0.8795048`"}], "}"}], ",", RowBox[{"{", RowBox[{"620", ",", "0.877`"}], "}"}], ",", RowBox[{"{", RowBox[{"621", ",", "0.8731816000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"622", ",", "0.8689608`"}], "}"}], ",", RowBox[{"{", RowBox[{"623", ",", "0.8644392`"}], "}"}], ",", RowBox[{"{", RowBox[{"624", ",", "0.8597184`"}], "}"}], ",", RowBox[{"{", RowBox[{"625", ",", "0.8549`"}], "}"}], ",", RowBox[{"{", RowBox[{"626", ",", "0.8497272`"}], "}"}], ",", RowBox[{"{", RowBox[{"627", ",", "0.8447496`"}], "}"}], ",", RowBox[{"{", RowBox[{"628", ",", "0.8401584`"}], "}"}], ",", RowBox[{"{", RowBox[{"629", ",", "0.8361448`"}], "}"}], ",", RowBox[{"{", RowBox[{"630", ",", "0.8329000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"631", ",", "0.8321448000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"632", ",", "0.8321584`"}], "}"}], ",", RowBox[{"{", RowBox[{"633", ",", "0.8327496`"}], "}"}], ",", RowBox[{"{", RowBox[{"634", ",", "0.8337272`"}], "}"}], ",", RowBox[{"{", RowBox[{"635", ",", "0.8349`"}], "}"}], ",", RowBox[{"{", RowBox[{"636", ",", "0.8359711999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"637", ",", "0.8368816`"}], "}"}], ",", RowBox[{"{", RowBox[{"638", ",", "0.8374664`"}], "}"}], ",", RowBox[{"{", RowBox[{"639", ",", "0.8375608`"}], "}"}], ",", RowBox[{"{", RowBox[{"640", ",", "0.8370000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"641", ",", "0.8343008000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"642", ",", "0.8309464`"}], "}"}], ",", RowBox[{"{", RowBox[{"643", ",", "0.8271016`"}], "}"}], ",", RowBox[{"{", RowBox[{"644", ",", "0.8229312000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"645", ",", "0.8186`"}], "}"}], ",", RowBox[{"{", RowBox[{"646", ",", "0.8143208`"}], "}"}], ",", RowBox[{"{", RowBox[{"647", ",", "0.8101984`"}], "}"}], ",", RowBox[{"{", RowBox[{"648", ",", "0.8063856`"}], "}"}], ",", RowBox[{"{", RowBox[{"649", ",", "0.8030352000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "0.8003`"}], "}"}], ",", RowBox[{"{", RowBox[{"651", ",", "0.7995584000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"652", ",", "0.7994312000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"653", ",", "0.7997648000000002`"}], "}"}], ",", RowBox[{"{", RowBox[{"654", ",", "0.8004056`"}], "}"}], ",", RowBox[{"{", RowBox[{"655", ",", "0.8012`"}], "}"}], ",", RowBox[{"{", RowBox[{"656", ",", "0.8010760000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"657", ",", "0.8010280000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"658", ",", "0.801132`"}], "}"}], ",", RowBox[{"{", RowBox[{"659", ",", "0.8014640000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"660", ",", "0.8020999999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"661", ",", "0.8037272`"}], "}"}], ",", RowBox[{"{", RowBox[{"662", ",", "0.8056576`"}], "}"}], ",", RowBox[{"{", RowBox[{"663", ",", "0.8078144`"}], "}"}], ",", RowBox[{"{", RowBox[{"664", ",", "0.8101208`"}], "}"}], ",", RowBox[{"{", RowBox[{"665", ",", "0.8125`"}], "}"}], ",", RowBox[{"{", RowBox[{"666", ",", "0.8155344`"}], "}"}], ",", RowBox[{"{", RowBox[{"667", ",", "0.8183232`"}], "}"}], ",", RowBox[{"{", RowBox[{"668", ",", "0.8206248`"}], "}"}], ",", RowBox[{"{", RowBox[{"669", ",", "0.8221976000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"670", ",", "0.8228`"}], "}"}], ",", RowBox[{"{", RowBox[{"671", ",", "0.8202544`"}], "}"}], ",", RowBox[{"{", RowBox[{"672", ",", "0.8167392`"}], "}"}], ",", RowBox[{"{", RowBox[{"673", ",", "0.8124968`"}], "}"}], ",", RowBox[{"{", RowBox[{"674", ",", "0.8077696000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"675", ",", "0.8028000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"676", ",", "0.7995296000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"677", ",", "0.7960768`"}], "}"}], ",", RowBox[{"{", RowBox[{"678", ",", "0.7922592`"}], "}"}], ",", RowBox[{"{", RowBox[{"679", ",", "0.7878944`"}], "}"}], ",", RowBox[{"{", RowBox[{"680", ",", "0.7828`"}], "}"}], ",", RowBox[{"{", RowBox[{"681", ",", "0.7753344`"}], "}"}], ",", RowBox[{"{", RowBox[{"682", ",", "0.7671392`"}], "}"}], ",", RowBox[{"{", RowBox[{"683", ",", "0.7583968`"}], "}"}], ",", RowBox[{"{", RowBox[{"684", ",", "0.7492896`"}], "}"}], ",", RowBox[{"{", RowBox[{"685", ",", "0.74`"}], "}"}], ",", RowBox[{"{", RowBox[{"686", ",", "0.7297664`"}], "}"}], ",", RowBox[{"{", RowBox[{"687", ",", "0.7199512`"}], "}"}], ",", RowBox[{"{", RowBox[{"688", ",", "0.7109728`"}], "}"}], ",", RowBox[{"{", RowBox[{"689", ",", "0.7032496`"}], "}"}], ",", RowBox[{"{", RowBox[{"690", ",", "0.6972`"}], "}"}], ",", RowBox[{"{", RowBox[{"691", ",", "0.6965928`"}], "}"}], ",", RowBox[{"{", RowBox[{"692", ",", "0.6976584`"}], "}"}], ",", RowBox[{"{", RowBox[{"693", ",", "0.6999776`"}], "}"}], ",", RowBox[{"{", RowBox[{"694", ",", "0.7031312`"}], "}"}], ",", RowBox[{"{", RowBox[{"695", ",", "0.7067`"}], "}"}], ",", RowBox[{"{", RowBox[{"696", ",", "0.7084471999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"697", ",", "0.7102256`"}], "}"}], ",", RowBox[{"{", RowBox[{"698", ",", "0.7120704000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"699", ",", "0.7140168`"}], "}"}], ",", RowBox[{"{", RowBox[{"700", ",", "0.7161`"}], "}"}], ",", RowBox[{"{", RowBox[{"701", ",", "0.7186336`"}], "}"}], ",", RowBox[{"{", RowBox[{"702", ",", "0.7213048000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"703", ",", "0.7240792`"}], "}"}], ",", RowBox[{"{", RowBox[{"704", ",", "0.7269224`"}], "}"}], ",", RowBox[{"{", RowBox[{"705", ",", "0.7298`"}], "}"}], ",", RowBox[{"{", RowBox[{"706", ",", "0.7350168000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"707", ",", "0.7396144`"}], "}"}], ",", RowBox[{"{", RowBox[{"708", ",", "0.7429736`"}], "}"}], ",", RowBox[{"{", RowBox[{"709", ",", "0.7444752`"}], "}"}], ",", RowBox[{"{", RowBox[{"710", ",", "0.7434999999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"711", ",", "0.7344784`"}], "}"}], ",", RowBox[{"{", RowBox[{"712", ",", "0.7229791999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"713", ",", "0.7096208`"}], "}"}], ",", RowBox[{"{", RowBox[{"714", ",", "0.6950216`"}], "}"}], ",", RowBox[{"{", RowBox[{"715", ",", "0.6798000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"716", ",", "0.6636784`"}], "}"}], ",", RowBox[{"{", RowBox[{"717", ",", "0.6483952000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"718", ",", "0.6347928`"}], "}"}], ",", RowBox[{"{", RowBox[{"719", ",", "0.6237136000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"720", ",", "0.616`"}], "}"}], ",", RowBox[{"{", RowBox[{"721", ",", "0.6192272`"}], "}"}], ",", RowBox[{"{", RowBox[{"722", ",", "0.6258216`"}], "}"}], ",", RowBox[{"{", RowBox[{"723", ",", "0.6349424`"}], "}"}], ",", RowBox[{"{", RowBox[{"724", ",", "0.6457487999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"725", ",", "0.6574`"}], "}"}], ",", RowBox[{"{", RowBox[{"726", ",", "0.6661912`"}], "}"}], ",", RowBox[{"{", RowBox[{"727", ",", "0.6748616`"}], "}"}], ",", RowBox[{"{", RowBox[{"728", ",", "0.6832864`"}], "}"}], ",", RowBox[{"{", RowBox[{"729", ",", "0.6913408`"}], "}"}], ",", RowBox[{"{", RowBox[{"730", ",", "0.6989`"}], "}"}], ",", RowBox[{"{", RowBox[{"731", ",", "0.7048439999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"732", ",", "0.710292`"}], "}"}], ",", RowBox[{"{", RowBox[{"733", ",", "0.715368`"}], "}"}], ",", RowBox[{"{", RowBox[{"734", ",", "0.720196`"}], "}"}], ",", RowBox[{"{", RowBox[{"735", ",", "0.7249`"}], "}"}], ",", RowBox[{"{", RowBox[{"736", ",", "0.732772`"}], "}"}], ",", RowBox[{"{", RowBox[{"737", ",", "0.739976`"}], "}"}], ",", RowBox[{"{", RowBox[{"738", ",", "0.7458440000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"739", ",", "0.749708`"}], "}"}], ",", RowBox[{"{", RowBox[{"740", ",", "0.7509`"}], "}"}], ",", RowBox[{"{", RowBox[{"741", ",", "0.7434080000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"742", ",", "0.733244`"}], "}"}], ",", RowBox[{"{", RowBox[{"743", ",", "0.721076`"}], "}"}], ",", RowBox[{"{", RowBox[{"744", ",", "0.707572`"}], "}"}], ",", RowBox[{"{", RowBox[{"745", ",", "0.6934`"}], "}"}], ",", RowBox[{"{", RowBox[{"746", ",", "0.6828056000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"747", ",", "0.6719848`"}], "}"}], ",", RowBox[{"{", RowBox[{"748", ",", "0.6607112`"}], "}"}], ",", RowBox[{"{", RowBox[{"749", ",", "0.6487584`"}], "}"}], ",", RowBox[{"{", RowBox[{"750", ",", "0.6359`"}], "}"}], ",", RowBox[{"{", RowBox[{"751", ",", "0.6201016`"}], "}"}], ",", RowBox[{"{", RowBox[{"752", ",", "0.6033968000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"753", ",", "0.5860112000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"754", ",", "0.5681704`"}], "}"}], ",", RowBox[{"{", RowBox[{"755", ",", "0.5501`"}], "}"}], ",", RowBox[{"{", RowBox[{"756", ",", "0.5269152`"}], "}"}], ",", RowBox[{"{", RowBox[{"757", ",", "0.5052296`"}], "}"}], ",", RowBox[{"{", RowBox[{"758", ",", "0.4865464`"}], "}"}], ",", RowBox[{"{", RowBox[{"759", ",", "0.4723688`"}], "}"}], ",", RowBox[{"{", RowBox[{"760", ",", "0.4642`"}], "}"}], ",", RowBox[{"{", RowBox[{"761", ",", "0.47556240000000005`"}], "}"}], ",", RowBox[{"{", RowBox[{"762", ",", "0.4929352`"}], "}"}], ",", RowBox[{"{", RowBox[{"763", ",", "0.5148168`"}], "}"}], ",", RowBox[{"{", RowBox[{"764", ",", "0.5397056`"}], "}"}], ",", RowBox[{"{", RowBox[{"765", ",", "0.5661`"}], "}"}], ",", RowBox[{"{", RowBox[{"766", ",", "0.5903096`"}], "}"}], ",", RowBox[{"{", RowBox[{"767", ",", "0.6135688`"}], "}"}], ",", RowBox[{"{", RowBox[{"768", ",", "0.6349232`"}], "}"}], ",", RowBox[{"{", RowBox[{"769", ",", "0.6534184000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"770", ",", "0.6681`"}], "}"}], ",", RowBox[{"{", RowBox[{"771", ",", "0.6703784`"}], "}"}], ",", RowBox[{"{", RowBox[{"772", ",", "0.6688432000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"773", ",", "0.6644488`"}], "}"}], ",", RowBox[{"{", RowBox[{"774", ",", "0.6581496`"}], "}"}], ",", RowBox[{"{", RowBox[{"775", ",", "0.6509`"}], "}"}], ",", RowBox[{"{", RowBox[{"776", ",", "0.6467808`"}], "}"}], ",", RowBox[{"{", RowBox[{"777", ",", "0.6428384`"}], "}"}], ",", RowBox[{"{", RowBox[{"778", ",", "0.6392456`"}], "}"}], ",", RowBox[{"{", RowBox[{"779", ",", "0.6361752`"}], "}"}], ",", RowBox[{"{", RowBox[{"780", ",", "0.6338`"}], "}"}], ",", RowBox[{"{", RowBox[{"781", ",", "0.6336784`"}], "}"}], ",", RowBox[{"{", RowBox[{"782", ",", "0.6342512`"}], "}"}], ",", RowBox[{"{", RowBox[{"783", ",", "0.6353448`"}], "}"}], ",", RowBox[{"{", RowBox[{"784", ",", "0.6367856000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"785", ",", "0.6384000000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"786", ",", "0.6402416000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"787", ",", "0.6418528000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"788", ",", "0.6430032`"}], "}"}], ",", RowBox[{"{", RowBox[{"789", ",", "0.6434624`"}], "}"}], ",", RowBox[{"{", RowBox[{"790", ",", "0.643`"}], "}"}], ",", RowBox[{"{", RowBox[{"791", ",", "0.6395456`"}], "}"}], ",", RowBox[{"{", RowBox[{"792", ",", "0.6351688`"}], "}"}], ",", RowBox[{"{", RowBox[{"793", ",", "0.6300992`"}], "}"}], ",", RowBox[{"{", RowBox[{"794", ",", "0.6245664`"}], "}"}], ",", RowBox[{"{", RowBox[{"795", ",", "0.6188`"}], "}"}], ",", RowBox[{"{", RowBox[{"796", ",", "0.6130296000000001`"}], "}"}], ",", RowBox[{"{", RowBox[{"797", ",", "0.6074848`"}], "}"}], ",", RowBox[{"{", RowBox[{"798", ",", "0.6023952`"}], "}"}], ",", RowBox[{"{", RowBox[{"799", ",", "0.5979904`"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "0.5945`"}], "}"}]}], "}"}], "]"}]}], " ", ";"}]], "Input", CellLabel->"In[5]:="] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["CIE1986 XYZ \:7b49\:8272\:95a2\:6570", "Section"], Cell[CellGroupData[{ Cell["xCIE1986", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"xCIE1986", " ", "=", " ", RowBox[{"Interpolation", "[", RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"350", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"355", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"360", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"365", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"370", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"375", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"380", ",", "0.0014"}], "}"}], ",", RowBox[{"{", RowBox[{"385", ",", "0.0022"}], "}"}], ",", RowBox[{"{", RowBox[{"390", ",", "0.0042"}], "}"}], ",", RowBox[{"{", RowBox[{"395", ",", "0.0076"}], "}"}], ",", RowBox[{"{", RowBox[{"400", ",", "0.0143"}], "}"}], ",", RowBox[{"{", RowBox[{"405", ",", "0.0232"}], "}"}], ",", RowBox[{"{", RowBox[{"410", ",", "0.0435"}], "}"}], ",", RowBox[{"{", RowBox[{"415", ",", "0.0776"}], "}"}], ",", RowBox[{"{", RowBox[{"420", ",", "0.1344"}], "}"}], ",", RowBox[{"{", RowBox[{"425", ",", "0.2148"}], "}"}], ",", RowBox[{"{", RowBox[{"430", ",", "0.2839"}], "}"}], ",", RowBox[{"{", RowBox[{"435", ",", "0.3285"}], "}"}], ",", RowBox[{"{", RowBox[{"440", ",", "0.3483"}], "}"}], ",", RowBox[{"{", RowBox[{"445", ",", "0.3481"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "0.3362"}], "}"}], ",", RowBox[{"{", RowBox[{"455", ",", "0.3187"}], "}"}], ",", RowBox[{"{", RowBox[{"460", ",", "0.2908"}], "}"}], ",", RowBox[{"{", RowBox[{"465", ",", "0.2511"}], "}"}], ",", RowBox[{"{", RowBox[{"470", ",", "0.1954"}], "}"}], ",", RowBox[{"{", RowBox[{"475", ",", "0.1421"}], "}"}], ",", RowBox[{"{", RowBox[{"480", ",", "0.0956"}], "}"}], ",", RowBox[{"{", RowBox[{"485", ",", "0.058"}], "}"}], ",", RowBox[{"{", RowBox[{"490", ",", "0.032"}], "}"}], ",", RowBox[{"{", RowBox[{"495", ",", "0.0147"}], "}"}], ",", RowBox[{"{", RowBox[{"500", ",", "0.0049"}], "}"}], ",", RowBox[{"{", RowBox[{"505", ",", "0.0024"}], "}"}], ",", RowBox[{"{", RowBox[{"510", ",", "0.0093"}], "}"}], ",", RowBox[{"{", RowBox[{"515", ",", "0.0291"}], "}"}], ",", RowBox[{"{", RowBox[{"520", ",", "0.0633"}], "}"}], ",", RowBox[{"{", RowBox[{"525", ",", "0.1096"}], "}"}], ",", RowBox[{"{", RowBox[{"530", ",", "0.1655"}], "}"}], ",", RowBox[{"{", RowBox[{"535", ",", "0.2257"}], "}"}], ",", RowBox[{"{", RowBox[{"540", ",", "0.2904"}], "}"}], ",", RowBox[{"{", RowBox[{"545", ",", "0.3597"}], "}"}], ",", RowBox[{"{", RowBox[{"550", ",", "0.4334"}], "}"}], ",", RowBox[{"{", RowBox[{"555", ",", "0.5121"}], "}"}], ",", RowBox[{"{", RowBox[{"560", ",", "0.5945"}], "}"}], ",", RowBox[{"{", RowBox[{"565", ",", "0.6784"}], "}"}], ",", RowBox[{"{", RowBox[{"570", ",", "0.7621"}], "}"}], ",", RowBox[{"{", RowBox[{"575", ",", "0.8425"}], "}"}], ",", RowBox[{"{", RowBox[{"580", ",", "0.9163"}], "}"}], ",", RowBox[{"{", RowBox[{"585", ",", "0.9786"}], "}"}], ",", RowBox[{"{", RowBox[{"590", ",", "1.0263"}], "}"}], ",", RowBox[{"{", RowBox[{"595", ",", "1.0567"}], "}"}], ",", RowBox[{"{", RowBox[{"600", ",", "1.0622"}], "}"}], ",", RowBox[{"{", RowBox[{"605", ",", "1.0456"}], "}"}], ",", RowBox[{"{", RowBox[{"610", ",", "1.0026"}], "}"}], ",", RowBox[{"{", RowBox[{"615", ",", "0.9384"}], "}"}], ",", RowBox[{"{", RowBox[{"620", ",", "0.8544"}], "}"}], ",", RowBox[{"{", RowBox[{"625", ",", "0.7514"}], "}"}], ",", RowBox[{"{", RowBox[{"630", ",", "0.6424"}], "}"}], ",", RowBox[{"{", RowBox[{"635", ",", "0.5419"}], "}"}], ",", RowBox[{"{", RowBox[{"640", ",", "0.4479"}], "}"}], ",", RowBox[{"{", RowBox[{"645", ",", "0.3608"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "0.2835"}], "}"}], ",", RowBox[{"{", RowBox[{"655", ",", "0.2187"}], "}"}], ",", RowBox[{"{", RowBox[{"660", ",", "0.1649"}], "}"}], ",", RowBox[{"{", RowBox[{"665", ",", "0.1212"}], "}"}], ",", RowBox[{"{", RowBox[{"670", ",", "0.0874"}], "}"}], ",", RowBox[{"{", RowBox[{"675", ",", "0.0636"}], "}"}], ",", RowBox[{"{", RowBox[{"680", ",", "0.0468"}], "}"}], ",", RowBox[{"{", RowBox[{"685", ",", "0.0329"}], "}"}], ",", RowBox[{"{", RowBox[{"690", ",", "0.0227"}], "}"}], ",", RowBox[{"{", RowBox[{"695", ",", "0.0158"}], "}"}], ",", RowBox[{"{", RowBox[{"700", ",", "0.0114"}], "}"}], ",", RowBox[{"{", RowBox[{"705", ",", "0.0081"}], "}"}], ",", RowBox[{"{", RowBox[{"710", ",", "0.0058"}], "}"}], ",", RowBox[{"{", RowBox[{"715", ",", "0.0041"}], "}"}], ",", RowBox[{"{", RowBox[{"720", ",", "0.0029"}], "}"}], ",", RowBox[{"{", RowBox[{"725", ",", "0.002"}], "}"}], ",", RowBox[{"{", RowBox[{"730", ",", "0.0014"}], "}"}], ",", RowBox[{"{", RowBox[{"735", ",", "0.001"}], "}"}], ",", RowBox[{"{", RowBox[{"740", ",", "0.0007"}], "}"}], ",", RowBox[{"{", RowBox[{"745", ",", "0.0005"}], "}"}], ",", RowBox[{"{", RowBox[{"750", ",", "0.0003"}], "}"}], ",", RowBox[{"{", RowBox[{"755", ",", "0.0002"}], "}"}], ",", RowBox[{"{", RowBox[{"760", ",", "0.0002"}], "}"}], ",", RowBox[{"{", RowBox[{"765", ",", "0.0001"}], "}"}], ",", RowBox[{"{", RowBox[{"770", ",", "0.0001"}], "}"}], ",", RowBox[{"{", RowBox[{"775", ",", "0.0001"}], "}"}], ",", RowBox[{"{", RowBox[{"780", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"785", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"790", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"795", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "0"}], "}"}]}], " ", "}"}], "]"}]}], ";"}]], "Input", CellLabel->"In[6]:="] }, Open ]], Cell[CellGroupData[{ Cell["yCIE1986", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"yCIE1986", " ", "=", " ", RowBox[{"Interpolation", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"350", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"355", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"360", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"365", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"370", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"375", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"380", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"385", ",", "0.0001"}], "}"}], ",", RowBox[{"{", RowBox[{"390", ",", "0.0001"}], "}"}], ",", RowBox[{"{", RowBox[{"395", ",", "0.0002"}], "}"}], ",", RowBox[{"{", RowBox[{"400", ",", "0.0004"}], "}"}], ",", RowBox[{"{", RowBox[{"405", ",", "0.0006"}], "}"}], ",", RowBox[{"{", RowBox[{"410", ",", "0.0012"}], "}"}], ",", RowBox[{"{", RowBox[{"415", ",", "0.0022"}], "}"}], ",", RowBox[{"{", RowBox[{"420", ",", "0.004"}], "}"}], ",", RowBox[{"{", RowBox[{"425", ",", "0.0073"}], "}"}], ",", RowBox[{"{", RowBox[{"430", ",", "0.0116"}], "}"}], ",", RowBox[{"{", RowBox[{"435", ",", "0.0168"}], "}"}], ",", RowBox[{"{", RowBox[{"440", ",", "0.023"}], "}"}], ",", RowBox[{"{", RowBox[{"445", ",", "0.0298"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "0.038"}], "}"}], ",", RowBox[{"{", RowBox[{"455", ",", "0.048"}], "}"}], ",", RowBox[{"{", RowBox[{"460", ",", "0.06"}], "}"}], ",", RowBox[{"{", RowBox[{"465", ",", "0.0739"}], "}"}], ",", RowBox[{"{", RowBox[{"470", ",", "0.091"}], "}"}], ",", RowBox[{"{", RowBox[{"475", ",", "0.1126"}], "}"}], ",", RowBox[{"{", RowBox[{"480", ",", "0.139"}], "}"}], ",", RowBox[{"{", RowBox[{"485", ",", "0.1693"}], "}"}], ",", RowBox[{"{", RowBox[{"490", ",", "0.208"}], "}"}], ",", RowBox[{"{", RowBox[{"495", ",", "0.2586"}], "}"}], ",", RowBox[{"{", RowBox[{"500", ",", "0.323"}], "}"}], ",", RowBox[{"{", RowBox[{"505", ",", "0.4073"}], "}"}], ",", RowBox[{"{", RowBox[{"510", ",", "0.503"}], "}"}], ",", RowBox[{"{", RowBox[{"515", ",", "0.6082"}], "}"}], ",", RowBox[{"{", RowBox[{"520", ",", "0.71"}], "}"}], ",", RowBox[{"{", RowBox[{"525", ",", "0.7932"}], "}"}], ",", RowBox[{"{", RowBox[{"530", ",", "0.862"}], "}"}], ",", RowBox[{"{", RowBox[{"535", ",", "0.9149"}], "}"}], ",", RowBox[{"{", RowBox[{"540", ",", "0.954"}], "}"}], ",", RowBox[{"{", RowBox[{"545", ",", "0.9803"}], "}"}], ",", RowBox[{"{", RowBox[{"550", ",", "0.995"}], "}"}], ",", RowBox[{"{", RowBox[{"555", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"560", ",", "0.995"}], "}"}], ",", RowBox[{"{", RowBox[{"565", ",", "0.9786"}], "}"}], ",", RowBox[{"{", RowBox[{"570", ",", "0.952"}], "}"}], ",", RowBox[{"{", RowBox[{"575", ",", "0.9154"}], "}"}], ",", RowBox[{"{", RowBox[{"580", ",", "0.87"}], "}"}], ",", RowBox[{"{", RowBox[{"585", ",", "0.8163"}], "}"}], ",", RowBox[{"{", RowBox[{"590", ",", "0.757"}], "}"}], ",", RowBox[{"{", RowBox[{"595", ",", "0.6949"}], "}"}], ",", RowBox[{"{", RowBox[{"600", ",", "0.631"}], "}"}], ",", RowBox[{"{", RowBox[{"605", ",", "0.5668"}], "}"}], ",", RowBox[{"{", RowBox[{"610", ",", "0.503"}], "}"}], ",", RowBox[{"{", RowBox[{"615", ",", "0.4412"}], "}"}], ",", RowBox[{"{", RowBox[{"620", ",", "0.381"}], "}"}], ",", RowBox[{"{", RowBox[{"625", ",", "0.321"}], "}"}], ",", RowBox[{"{", RowBox[{"630", ",", "0.265"}], "}"}], ",", RowBox[{"{", RowBox[{"635", ",", "0.217"}], "}"}], ",", RowBox[{"{", RowBox[{"640", ",", "0.175"}], "}"}], ",", RowBox[{"{", RowBox[{"645", ",", "0.1382"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "0.107"}], "}"}], ",", RowBox[{"{", RowBox[{"655", ",", "0.0816"}], "}"}], ",", RowBox[{"{", RowBox[{"660", ",", "0.061"}], "}"}], ",", RowBox[{"{", RowBox[{"665", ",", "0.0446"}], "}"}], ",", RowBox[{"{", RowBox[{"670", ",", "0.032"}], "}"}], ",", RowBox[{"{", RowBox[{"675", ",", "0.0232"}], "}"}], ",", RowBox[{"{", RowBox[{"680", ",", "0.017"}], "}"}], ",", RowBox[{"{", RowBox[{"685", ",", "0.0119"}], "}"}], ",", RowBox[{"{", RowBox[{"690", ",", "0.0082"}], "}"}], ",", RowBox[{"{", RowBox[{"695", ",", "0.0057"}], "}"}], ",", RowBox[{"{", RowBox[{"700", ",", "0.0041"}], "}"}], ",", RowBox[{"{", RowBox[{"705", ",", "0.0029"}], "}"}], ",", RowBox[{"{", RowBox[{"710", ",", "0.0021"}], "}"}], ",", RowBox[{"{", RowBox[{"715", ",", "0.0015"}], "}"}], ",", RowBox[{"{", RowBox[{"720", ",", "0.001"}], "}"}], ",", RowBox[{"{", RowBox[{"725", ",", "0.0007"}], "}"}], ",", RowBox[{"{", RowBox[{"730", ",", "0.0005"}], "}"}], ",", RowBox[{"{", RowBox[{"735", ",", "0.0004"}], "}"}], ",", RowBox[{"{", RowBox[{"740", ",", "0.0002"}], "}"}], ",", RowBox[{"{", RowBox[{"745", ",", "0.0002"}], "}"}], ",", RowBox[{"{", RowBox[{"750", ",", "0.0001"}], "}"}], ",", RowBox[{"{", RowBox[{"755", ",", "0.0001"}], "}"}], ",", RowBox[{"{", RowBox[{"760", ",", "0.0001"}], "}"}], ",", RowBox[{"{", RowBox[{"765", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"770", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"775", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"780", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"785", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"790", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"795", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "0"}], "}"}]}], "}"}], " ", "]"}]}], ";"}]], "Input", CellLabel->"In[7]:="], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"spell1\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"\:30b9\:30da\:30eb\:9593\ \:9055\:3044\:306e\:53ef\:80fd\:6027\:304c\:3042\:308a\:307e\:3059\:ff0e\:65b0\ \:898f\:30b7\:30f3\:30dc\:30eb\\\\\\\\\\\\\\\"\\\\\\\"\\\", \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\!\\(yCIE1986\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\ \\*StyleBox[\\\"\\\\\\\"\\\\\\\\\\\\\\\"\:306f\:3059\:3067\:306b\:3042\:308b\ \:30b7\:30f3\:30dc\:30eb\\\\\\\\\\\\\\\"\\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(xCIE1986\\), \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\"\\\\\\\\\\\\\\\"\:306b\:4f3c\:3066\ \:3044\:307e\:3059\:ff0e\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/spell1\\\", ButtonNote -> \ \\\"General::spell1\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.44878253007556*^9}, CellLabel->"\:8a55\:4fa1\:4e2d\:ff1aIn[7]:="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["zCIE1986", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"zCIE1986", " ", "=", " ", RowBox[{"Interpolation", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"350", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"355", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"360", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"365", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"370", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"375", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"380", ",", "0.0065"}], "}"}], ",", RowBox[{"{", RowBox[{"385", ",", "0.0105"}], "}"}], ",", RowBox[{"{", RowBox[{"390", ",", "0.0201"}], "}"}], ",", RowBox[{"{", RowBox[{"395", ",", "0.0362"}], "}"}], ",", RowBox[{"{", RowBox[{"400", ",", "0.0679"}], "}"}], ",", RowBox[{"{", RowBox[{"405", ",", "0.1102"}], "}"}], ",", RowBox[{"{", RowBox[{"410", ",", "0.2074"}], "}"}], ",", RowBox[{"{", RowBox[{"415", ",", "0.3713"}], "}"}], ",", RowBox[{"{", RowBox[{"420", ",", "0.6456"}], "}"}], ",", RowBox[{"{", RowBox[{"425", ",", "1.0391"}], "}"}], ",", RowBox[{"{", RowBox[{"430", ",", "1.3856"}], "}"}], ",", RowBox[{"{", RowBox[{"435", ",", "1.623"}], "}"}], ",", RowBox[{"{", RowBox[{"440", ",", "1.7471"}], "}"}], ",", RowBox[{"{", RowBox[{"445", ",", "1.7826"}], "}"}], ",", RowBox[{"{", RowBox[{"450", ",", "1.7721"}], "}"}], ",", RowBox[{"{", RowBox[{"455", ",", "1.7441"}], "}"}], ",", RowBox[{"{", RowBox[{"460", ",", "1.6692"}], "}"}], ",", RowBox[{"{", RowBox[{"465", ",", "1.5281"}], "}"}], ",", RowBox[{"{", RowBox[{"470", ",", "1.2876"}], "}"}], ",", RowBox[{"{", RowBox[{"475", ",", "1.0419"}], "}"}], ",", RowBox[{"{", RowBox[{"480", ",", "0.813"}], "}"}], ",", RowBox[{"{", RowBox[{"485", ",", "0.6162"}], "}"}], ",", RowBox[{"{", RowBox[{"490", ",", "0.4652"}], "}"}], ",", RowBox[{"{", RowBox[{"495", ",", "0.3533"}], "}"}], ",", RowBox[{"{", RowBox[{"500", ",", "0.272"}], "}"}], ",", RowBox[{"{", RowBox[{"505", ",", "0.2123"}], "}"}], ",", RowBox[{"{", RowBox[{"510", ",", "0.1582"}], "}"}], ",", RowBox[{"{", RowBox[{"515", ",", "0.1117"}], "}"}], ",", RowBox[{"{", RowBox[{"520", ",", "0.0782"}], "}"}], ",", RowBox[{"{", RowBox[{"525", ",", "0.0573"}], "}"}], ",", RowBox[{"{", RowBox[{"530", ",", "0.0422"}], "}"}], ",", RowBox[{"{", RowBox[{"535", ",", "0.0298"}], "}"}], ",", RowBox[{"{", RowBox[{"540", ",", "0.0203"}], "}"}], ",", RowBox[{"{", RowBox[{"545", ",", "0.0134"}], "}"}], ",", RowBox[{"{", RowBox[{"550", ",", "0.0087"}], "}"}], ",", RowBox[{"{", RowBox[{"555", ",", "0.0057"}], "}"}], ",", RowBox[{"{", RowBox[{"560", ",", "0.0039"}], "}"}], ",", RowBox[{"{", RowBox[{"565", ",", "0.0027"}], "}"}], ",", RowBox[{"{", RowBox[{"570", ",", "0.0021"}], "}"}], ",", RowBox[{"{", RowBox[{"575", ",", "0.0018"}], "}"}], ",", RowBox[{"{", RowBox[{"580", ",", "0.0017"}], "}"}], ",", RowBox[{"{", RowBox[{"585", ",", "0.0014"}], "}"}], ",", RowBox[{"{", RowBox[{"590", ",", "0.0011"}], "}"}], ",", RowBox[{"{", RowBox[{"595", ",", "0.001"}], "}"}], ",", RowBox[{"{", RowBox[{"600", ",", "0.0008"}], "}"}], ",", RowBox[{"{", RowBox[{"605", ",", "0.0006"}], "}"}], ",", RowBox[{"{", RowBox[{"610", ",", "0.0003"}], "}"}], ",", RowBox[{"{", RowBox[{"615", ",", "0.0002"}], "}"}], ",", RowBox[{"{", RowBox[{"620", ",", "0.0002"}], "}"}], ",", RowBox[{"{", RowBox[{"625", ",", "0.0001"}], "}"}], ",", RowBox[{"{", RowBox[{"630", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"635", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"640", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"645", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"650", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"655", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"660", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"665", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"670", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"675", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"680", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"685", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"690", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"695", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"700", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"705", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"710", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"715", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"720", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"725", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"730", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"735", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"740", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"745", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"750", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"755", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"760", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"765", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"770", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"775", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"780", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"785", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"790", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"795", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "0"}], "}"}]}], "}"}], " ", "]"}]}], ";"}]], "Input", CellLabel->"In[8]:="], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"spell\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"\:30b9\:30da\:30eb\:9593\ \:9055\:3044\:306e\:53ef\:80fd\:6027\:304c\:3042\:308a\:307e\:3059\:ff0e\:65b0\ \:898f\:30b7\:30f3\:30dc\:30eb\\\\\\\\\\\\\\\"\\\\\\\"\\\", \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\!\\(zCIE1986\\), \\\"MT\\\"]\\)\[NoBreak]\\!\\(\ \\*StyleBox[\\\"\\\\\\\"\\\\\\\\\\\\\\\"\:306f\:3059\:3067\:306b\:3042\:308b\ \:30b7\:30f3\:30dc\:30eb\\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({xCIE1986, yCIE1986}\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\"\:306b\:4f3c\:3066\:3044\ \:307e\:3059\:ff0e\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/spell\\\", ButtonNote -> \ \\\"General::spell\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.4487825301356463`*^9}, CellLabel->"\:8a55\:4fa1\:4e2d\:ff1aIn[8]:="] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["CIE1986 X Y Z \:523a\:6fc0\:5024\:8a08\:7b97\:95a2\:6570", "Section"], Cell[CellGroupData[{ Cell["X\:523a\:6fc0\:5024", "Subsection"], Cell[TextData[{ "X1986[ spector_] := Block[{$Messages={}}, N", StyleBox["Integrate[", "MR"], StyleBox[" ", "TI"], "spector[x] xCIE1986[x]", StyleBox[", ", "MR"], "{x,MinWL,MaxWL},WorkingPrecision\[Rule]12, MaxRecursion->30", StyleBox["] ];", "MR"] }], "Input", CellLabel->"In[9]:="] }, Open ]], Cell[CellGroupData[{ Cell["Y\:523a\:6fc0\:5024", "Subsection"], Cell[CellGroupData[{ Cell[TextData[{ "Y1986[ spector_] := Block[{$Messages={}}, N", StyleBox["Integrate[", "MR"], StyleBox[" ", "TI"], "spector[x] yCIE1986[x]", StyleBox[", ", "MR"], "{x,MinWL,MaxWL},WorkingPrecision\[Rule]12, MaxRecursion->30", StyleBox["] ];", "MR"] }], "Input", CellLabel->"In[10]:="], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"spell1\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"\:30b9\:30da\:30eb\:9593\ \:9055\:3044\:306e\:53ef\:80fd\:6027\:304c\:3042\:308a\:307e\:3059\:ff0e\:65b0\ \:898f\:30b7\:30f3\:30dc\:30eb\\\\\\\\\\\\\\\"\\\\\\\"\\\", \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\!\\(Y1986\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\"\\\\\\\\\\\\\\\"\:306f\ \:3059\:3067\:306b\:3042\:308b\:30b7\:30f3\:30dc\:30eb\\\\\\\\\\\\\\\"\\\\\\\"\ \\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(X1986\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\"\\\\\\\\\\\\\\\"\:306b\ \:4f3c\:3066\:3044\:307e\:3059\:ff0e\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/spell1\\\", \ ButtonNote -> \\\"General::spell1\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.448782530205747*^9}, CellLabel->"\:8a55\:4fa1\:4e2d\:ff1aIn[10]:="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Z\:523a\:6fc0\:5024", "Subsection"], Cell[CellGroupData[{ Cell[TextData[{ "Z1986[ spector_] := Block[{$Messages={}}, N", StyleBox["Integrate[", "MR"], StyleBox[" ", "TI"], "spector[x] zCIE1986[x]", StyleBox[", ", "MR"], "{x,MinWL,MaxWL},WorkingPrecision\[Rule]12, MaxRecursion->30", StyleBox["] ];", "MR"] }], "Input", CellLabel->"In[11]:="], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"spell\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"\:30b9\:30da\:30eb\:9593\ \:9055\:3044\:306e\:53ef\:80fd\:6027\:304c\:3042\:308a\:307e\:3059\:ff0e\:65b0\ \:898f\:30b7\:30f3\:30dc\:30eb\\\\\\\\\\\\\\\"\\\\\\\"\\\", \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\!\\(Z1986\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\"\\\\\\\\\\\\\\\"\:306f\ \:3059\:3067\:306b\:3042\:308b\:30b7\:30f3\:30dc\:30eb\\\\\\\"\\\", \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({X1986, Y1986}\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\"\:306b\:4f3c\:3066\:3044\ \:307e\:3059\:ff0e\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/spell\\\", ButtonNote -> \ \\\"General::spell\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.4487825302357903`*^9}, CellLabel->"\:8a55\:4fa1\:4e2d\:ff1aIn[11]:="] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\:8272\:51e6\:7406\:306e\:305f\:3081\:306e\:95a2\:6570\:7fa4", "Section"], Cell[CellGroupData[{ Cell["\<\ \:57fa\:6e96\:7167\:660e\:8a2d\:5b9a\:95a2\:6570\:3000SetRefLight \ \:ff08\:8fd4\:5024\:306f{ k, Xn, Yn, Zn }\:ff09\ \>", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"SetRefLight", "[", " ", "lightSpector_", "]"}], " ", ":=", " ", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"RefLight", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"lightSpector", "[", "x", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Xn0", " ", "=", " ", RowBox[{"N", "[", " ", RowBox[{ RowBox[{"X1986", "[", " ", "RefLight", "]"}], ",", "4"}], " ", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Yn0", " ", "=", " ", RowBox[{"N", "[", " ", RowBox[{ RowBox[{"Y1986", "[", " ", "RefLight", "]"}], ",", "4"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Zn0", " ", "=", " ", RowBox[{"N", "[", " ", RowBox[{ RowBox[{"Z1986", "[", " ", "RefLight", "]"}], ",", "4"}], " ", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"k", " ", "=", " ", RowBox[{"N", "[", RowBox[{ RowBox[{"100", " ", "/", " ", "Yn0"}], ",", " ", "4"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Xn", " ", "=", " ", RowBox[{"N", "[", RowBox[{ RowBox[{"Xn0", "*", " ", "k"}], ",", " ", "4"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Zn", " ", "=", " ", RowBox[{"N", "[", RowBox[{ RowBox[{"Zn0", " ", "*", " ", "k"}], ",", " ", "4"}], "]"}]}], ",", " ", "\[IndentingNewLine]", RowBox[{"Yn", " ", "=", " ", RowBox[{"N", "[", RowBox[{ RowBox[{"Yn0", " ", "*", " ", "k"}], ",", " ", "4"}], "]"}]}]}], "}"}]}], " ", ")"}]}]], "Input", CellLabel->"In[12]:="] }, Open ]], Cell[CellGroupData[{ Cell["Lab\:8a08\:7b97\:95a2\:6570\:3000lab\:3000 \:8fd4\:5024\:306f{ L*, a*, \ b* }", "Subsection"], Cell[BoxData[ RowBox[{ RowBox[{"lab", "[", "spector_", "]"}], " ", ":=", " ", RowBox[{"N", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"116", RowBox[{ RowBox[{"(", " ", RowBox[{"k", " ", RowBox[{ RowBox[{"Y1986", "[", " ", "spector", " ", "]"}], "/", "Yn"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}]}], "-", "16"}], ",", "\[IndentingNewLine]", RowBox[{"500", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", " ", RowBox[{"k", " ", RowBox[{ RowBox[{"X1986", "[", " ", "spector", " ", "]"}], "/", "Xn"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}], "-", RowBox[{ RowBox[{"(", " ", RowBox[{"k", " ", RowBox[{ RowBox[{"Y1986", "[", " ", "spector", " ", "]"}], "/", "Yn"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"200", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", " ", RowBox[{"k", " ", RowBox[{ RowBox[{"Y1986", "[", " ", "spector", " ", "]"}], "/", "Yn"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}], "-", RowBox[{ RowBox[{"(", " ", RowBox[{"k", " ", RowBox[{ RowBox[{"Z1986", "[", " ", "spector", " ", "]"}], "/", "Zn"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}]}], ")"}]}]}], "}"}], " ", ",", " ", "4"}], "]"}]}]], "Input", CellLabel->"In[13]:="] }, Open ]], Cell[CellGroupData[{ Cell["\:5f69\:5ea6\:8a08\:7b97\:95a2\:6570\:3000\:ff43\:3000 \:8fd4\:5024\ \:306f{ c* }", "Subsection"], Cell["\<\ c[labValue_] := N[ Sqrt[ labValue[[2]]^2 + labValue[[3]] ], 4 ]\ \>", "Input", CellLabel->"In[14]:="] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\:8272\:540d\[RightArrow]\:5149\:30b9\:30da\:30af\:30c8\:30eb\:5b9a\ \:7fa9", "Section"], Cell["[\:8272\:5149\:540d\[RightArrow]\:30b9\:30da\:30af\:30c8\:30eb]\:3092\ \:898f\:5b9a\:3057\:3066\:304a\:304f.", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"black", "[", "x_", "]"}], " ", "=", " ", "0"}], " ", ";"}], " "}]], "Input", CellLabel->"In[15]:="], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"spell1\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"\:30b9\:30da\:30eb\:9593\ \:9055\:3044\:306e\:53ef\:80fd\:6027\:304c\:3042\:308a\:307e\:3059\:ff0e\:65b0\ \:898f\:30b7\:30f3\:30dc\:30eb\\\\\\\\\\\\\\\"\\\\\\\"\\\", \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\!\\(black\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\"\\\\\\\\\\\\\\\"\:306f\ \:3059\:3067\:306b\:3042\:308b\:30b7\:30f3\:30dc\:30eb\\\\\\\\\\\\\\\"\\\\\\\"\ \\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Black\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\"\\\\\\\\\\\\\\\"\:306b\ \:4f3c\:3066\:3044\:307e\:3059\:ff0e\\\\\\\"\\\", \\\"MT\\\"]\\) \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/spell1\\\", \ ButtonNote -> \\\"General::spell1\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.448782530305891*^9}, CellLabel->"\:8a55\:4fa1\:4e2d\:ff1aIn[15]:="] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"redLight", "[", "x_", "]"}], " ", "=", RowBox[{"1.697085334713303`", " ", "*", " ", RowBox[{"(", " ", RowBox[{ RowBox[{"0.41844", " ", RowBox[{"xCIE1986", "[", "x", "]"}]}], " ", "-", RowBox[{"0.15866", " ", RowBox[{"yCIE1986", "[", "x", "]"}]}], " ", "-", RowBox[{"0.08283", " ", RowBox[{"zCIE1986", "[", "x", "]"}]}]}], ")"}]}]}], ";"}]], "Input", CellLabel->"In[16]:="], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"greenLight", "[", "x_", "]"}], " ", "=", " ", RowBox[{"5.087234117636988`", " ", "*", " ", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"-", "0.09117"}], " ", RowBox[{"xCIE1986", "[", "x", "]"}]}], " ", "+", RowBox[{"0.25242", " ", RowBox[{"yCIE1986", "[", "x", "]"}]}], " ", "+", RowBox[{"0.01570", " ", RowBox[{"zCIE1986", "[", "x", "]"}]}]}], ")"}]}]}], ";"}]], "Input", CellLabel->"In[17]:="], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"blueLight", "[", "x_", "]"}], " ", "=", " ", RowBox[{"3.846060603242237`", " ", "*", " ", RowBox[{"(", RowBox[{ RowBox[{"0.00092", " ", RowBox[{"xCIE1986", "[", "x", "]"}]}], " ", "-", RowBox[{"0.00255", " ", RowBox[{"yCIE1986", "[", "x", "]"}]}], " ", "+", RowBox[{"0.17858", " ", RowBox[{"zCIE1986", "[", "x", "]"}]}]}], ")"}]}]}], ";"}]], "Input", CellLabel->"In[18]:="] }, Closed]], Cell[CellGroupData[{ Cell["\:8272\:30d5\:30a3\:30eb\:30bf\[RightArrow]\:30b9\:30da\:30af\:30c8\ \:30eb\:5b9a\:7fa9", "Section"], Cell[BoxData[ RowBox[{ RowBox[{"idealCyanFilter", " ", "=", " ", RowBox[{"Interpolation", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"350", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"400", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"420", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"440", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"460", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"480", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"500", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"520", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"540", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"560", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"580", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"600", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"620", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"640", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"660", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"680", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"700", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "0"}], "}"}]}], "}"}], ",", " ", StyleBox[ RowBox[{"InterpolationOrder", "->", "1"}], "MR"]}], "]"}]}], ";"}]], "Input", CellLabel->"In[19]:="], Cell[BoxData[ RowBox[{ RowBox[{"idealMagentaFilter", " ", "=", " ", RowBox[{"Interpolation", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"350", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"400", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"420", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"440", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"460", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"480", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"500", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"520", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"540", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"560", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"580", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"600", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"620", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"640", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"660", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"680", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"700", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "1"}], "}"}]}], " ", "}"}], ",", " ", StyleBox[ RowBox[{"InterpolationOrder", "->", "1"}], "MR"]}], "]"}]}], ";"}]], "Input", CellLabel->"In[20]:="], Cell[BoxData[ RowBox[{ RowBox[{"idealYellowFilter", " ", "=", " ", RowBox[{"Interpolation", "[", " ", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"{", RowBox[{"350", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"400", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"420", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"440", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"460", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"480", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"500", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"520", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"540", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"560", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"580", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"600", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"620", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"640", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"660", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"680", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"700", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"800", ",", "1"}], "}"}]}], " ", "}"}], ",", " ", StyleBox[ RowBox[{"InterpolationOrder", "->", "1"}], "MR"]}], " ", "]"}]}], ";"}]], "Input", CellLabel->"In[21]:="], Cell["idealKuroFilter[x_] := 0 ; ", "Input", CellLabel->"In[22]:="], Cell["\<\ cyanFilter = Interpolation[ {{350.000000,0.159000},{400.000000,0.159000}, \ {420.000000,0.089300}, {440.000000,0.052400}, {460.000000,0.031600}, \ {480.000000,0.023700}, {500.000000,0.024300}, {520.000000,0.042500}, \ {540.000000,0.098300}, {560.000000,0.237800}, {580.000000,0.424700}, \ {600.000000,0.543700}, {620.000000,0.607800}, {640.000000,0.552400}, \ {660.000000,0.445600}, {680.000000,0.439700}, {700.000000,0.517100}, \ {800,0.517100}}, InterpolationOrder->1];\ \>", "Input", CellLabel->"In[23]:="], Cell["\<\ magentaFilter = Interpolation[ {{350.000000,0.149900},{400.000000,0.149900}, \ {420.000000,0.135000}, {440.000000,0.124000}, {460.000000,0.143500}, \ {480.000000,0.196300}, {500.000000,0.276800}, {520.000000,0.428100}, \ {540.000000,0.568700}, {560.000000,0.644900}, {580.000000,0.596700}, \ {600.000000,0.133100}, {620.000000,0.042500}, {640.000000,0.021700}, \ {660.000000,0.016800}, {680.000000,0.014500}, {700.000000,0.009200}, \ {800.000000,0.009200}}, InterpolationOrder->1];\ \>", "Input", CellLabel->"In[24]:="], Cell["\<\ magentaFilter = Interpolation[ {{350.000000,0.149900},{400.000000,0.149900}, \ {420.000000,0.135000}, {440.000000,0.124000}, {460.000000,0.143500}, \ {480.000000,0.196300}, {500.000000,0.276800}, {520.000000,0.428100}, \ {540.000000,0.568700}, {560.000000,0.644900}, {580.000000,0.596700}, \ {600.000000,0.133100}, {620.000000,0.042500}, {640.000000,0.021700}, \ {660.000000,0.016800}, {680.000000,0.014500}, {700.000000,0.009200}, \ {800.000000,0.009200}}, InterpolationOrder->1];\ \>", "Input", CellLabel->"In[25]:="], Cell["\<\ yellowFilter = Interpolation[ {{350.000000,0.668600},{400.000000,0.668600}, \ {420.000000,0.923400}, {440.000000,1.000000}, {460.000000,0.901500}, \ {480.000000,0.644100}, {500.000000,0.180500}, {520.000000,0.072200}, \ {540.000000,0.044200}, {560.000000,0.031100}, {580.000000,0.022100}, \ {600.000000,0.018300}, {620.000000,0.013500}, {640.000000,0.009100}, \ {660.000000,0.008600}, {680.000000,0.008200}, {700.000000,0.004700}, \ {800.000000,0.004700}}, InterpolationOrder->1]; \ \>", "Input", CellLabel->"In[26]:="], Cell["kuroFilter[x_] := 0 ; ", "Input", CellLabel->"In[27]:="] }, Closed]], Cell[CellGroupData[{ Cell["\:6e1b\:6cd5\:6df7\:8272\:95a2\:6570\:ff08\:900f\:904e\:8272\:8a08\:7b97\ )", "Section"], Cell["\<\ transmissionSpector[ sourceLight_, layerSpector_, thinkness_ ] := Function[ \ {x}, sourceLight[x] (1-layerSpector[x])^(thinkness) ];\ \>", "Input", CellLabel->"In[28]:="] }, Closed]], Cell[CellGroupData[{ Cell["\:52a0\:6cd5\:6df7\:8272\:95a2\:6570\:ff08\:4e26\:7f6e\:6df7\:8272\:ff09\ ", "Section"], Cell["\<\ addtiveMixtureSpector[ spectors_, ratios_] := Function[{x}, Sum[ \ spectors[[i]][x] * ratios[[i]], {i,Length[spectors]} ] ];\ \>", "Input", CellLabel->"In[29]:="] }, Closed]], Cell[CellGroupData[{ Cell["\:8272\:8fd1\:4f3c\:95a2\:6570", "Section"], Cell["\<\ spectorFitting[s_, f1_, f2_, f3_] := {c1,c2,c3} /. NMinimize[ {Apply[Plus, Table[ Abs[ s[x] - c1 f1[x] - c2 f2[x] - c3 f3[x] ], {x,MinWL+divWL,MaxWL-divWL ,divWL}] ] ,c1>0, c2>0, c3>0}, {c1,c2,c3} ][[2]]\ \>", "Input", CellLabel->"In[30]:="], Cell["\<\ spectorFittingSpector[s_, f1_, f2_, f3_] :=( pars = {c1,c2,c3} /. NMinimize[ {Apply[Plus, Table[ Abs[ s[x] - c1 f1[x] - c2 f2[x] - c3 f3[x] ], {x,MinWL+divWL,MaxWL-divWL ,divWL}] ] ,c1>0, c2>0, c3>0}, {c1,c2,c3} ][[2]]; pars . {f1[#],f2[#],f3[#]}& )\ \>", "Input", CellLabel->"In[31]:="] }, Closed]], Cell[CellGroupData[{ Cell["\:30b9\:30da\:30af\:30c8\:30eb\:30fb\:8272\:5ea6\:8868\:793a\:95a2\:6570\ ", "Section"], Cell[CellGroupData[{ Cell["\:30b9\:30da\:30af\:30c8\:30eb\:30d7\:30ed\:30c3\:30c8\:95a2\:6570", \ "Subsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ "(*", " ", "\:30b9\:30da\:30af\:30c8\:30eb\:8868\:793a\:7528\:306e\:8272", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"spectorColor", "[", "x_", "]"}], ":=", " ", RowBox[{"RGBColor", "[", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clip", "[", " ", RowBox[{ RowBox[{ RowBox[{"3.240479", " ", RowBox[{"xCIE1986", " ", "[", "x", "]"}]}], " ", "-", RowBox[{"1.537150", " ", RowBox[{"yCIE1986", " ", "[", "x", "]"}]}], " ", "-", RowBox[{"0.498535", " ", RowBox[{"zCIE1986", " ", "[", "x", "]"}]}]}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}], " ", ",", "\[IndentingNewLine]", RowBox[{"Clip", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "0.969256"}], " ", RowBox[{"xCIE1986", " ", "[", "x", "]"}]}], " ", "+", RowBox[{"1.875992", " ", RowBox[{"yCIE1986", " ", "[", "x", "]"}]}], " ", "+", RowBox[{"0.041556", " ", RowBox[{"zCIE1986", " ", "[", "x", "]"}]}]}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}], " ", ",", "\[IndentingNewLine]", RowBox[{"Clip", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"+", "0.055648"}], " ", RowBox[{"xCIE1986", " ", "[", "x", "]"}]}], " ", "-", RowBox[{"0.204043", " ", RowBox[{"yCIE1986", " ", "[", "x", "]"}]}], " ", "+", RowBox[{"1.057311", " ", RowBox[{"zCIE1986", " ", "[", "x", "]"}]}]}], " ", ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "]"}]}], " ", "]"}]}], ";", Cell[ TextData[StyleBox["", "MR"]]]}]}]], "Input", CellLabel->"In[32]:="], Cell[BoxData[ InterpretationBox[Cell[BoxData[ StyleBox["\<\"\"\>", "MR", StripOnInput->False]]], TextCell[ Style["", "MR"]]]], "Output", CellChangeTimes->{ 3.44834340565232*^9, 3.4484434781061954`*^9, 3.448446882681734*^9, { 3.4484483590346255`*^9, 3.448448404239627*^9}, 3.4487825309668417`*^9}, CellLabel->"Out[32]="] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"spectorPlot", "[", "s_", "]"}], " ", ":=", " ", RowBox[{"BarChart", "[", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"s", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"MinWL", "+", "50"}], ",", RowBox[{"MaxWL", "-", "100"}], " ", ",", "divWL"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "Automatic"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"BarLabels", "\[Rule]", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"x", ",", "50"}], "]"}], "\[Equal]", "0"}], ",", "x", ",", "\"\<\>\""}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"MinWL", "+", "divWL"}], ",", RowBox[{"MaxWL", "-", "divWL"}], " ", ",", "divWL"}], "}"}]}], "]"}]}], ","}], "*)"}], "\[IndentingNewLine]", RowBox[{"ChartLabels", "->", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"x", ",", "50"}], "]"}], "\[Equal]", "0"}], ",", "x", ",", "\"\<\>\""}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"MinWL", "+", "divWL"}], ",", RowBox[{"MaxWL", "-", "divWL"}], " ", ",", "divWL"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"ChartStyle", "\[Rule]", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"spectorColor", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"MinWL", "+", "divWL", "+", "50"}], ",", RowBox[{"MaxWL", "-", "divWL", "-", "50"}], " ", ",", "divWL"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"BarSpacing", "\[Rule]", RowBox[{"-", "0.2"}]}], ",", "\[IndentingNewLine]", RowBox[{"ChartBaseStyle", "\[Rule]", RowBox[{"Opacity", "[", "1.0", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Background", "\[Rule]", RowBox[{"GrayLevel", "[", "1", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1.2"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQAGIQ/e2kdkDSxpeO05K+RYBoA67+MhDt8/k2mJZVndUI ohk8PjeB1XF/6ADR/6LZ+0D0KSbHKSCa+eotMP37X99cEC2sr7QARF9pMFwD oj89WLoWRK9tVNoCoudO2b8VRG8XyN8FomUusuwF0V9Mzx0A0TUJqw+B6Dqe HxdBdAHvk6sgWp0p+h6IDhMvvg92RyfHSxB9YO3sVyD6xozd70A0W8yajyCa tdZbPBlIS+0tlgbRKik8qiC6r8cJTM/b9lETRFdnMWqBaOUwRScQvangpzeI zvO/EAaiH8RkRoPoQ586GkD01/beJhBtwMzcDqLNVv7tANEN/2IXgmi3sy8W gWi7xuYVIPqRyyIwfW963xoQPcfjJZgGABAdz7o= "], CellLabel->"In[33]:="] }, Open ]], Cell[CellGroupData[{ Cell["Lab\:30d7\:30ed\:30c3\:30c8\:95a2\:6570", "Subsection"], Cell[BoxData[ RowBox[{"<<", "\"\\""}]], "Input", CellLabel->"In[34]:="], Cell["\<\ labPlot[ labs_ ] := Show[ Graphics3D[ Table[ {Cuboid[ {labs[[i]][[1]]-1,labs[[i]][[2]]-1,labs[[i]][[3]]-1}, {labs[[i]][[1]]+1,labs[[i]][[2]]+1,labs[[i]][[3]]+1} ]} , {i, 1, Length[labs] }] ], Axes->True, AxesLabel->{\"L*\", \"a*\", \"b*\"}, FaceGrids->All, BoxRatios\ \[Rule]{ 1, 1, 1 }, PlotRange\[Rule]{{0,100},{-100,100},{-100,100}} , \ ViewPoint->{9.000, 0.000, 0.000}]\ \>", "Input", CellLabel->"In[35]:="], Cell["\<\ labColorPlot[ labs_, color_ ] := Show[ Graphics3D[ Table[ {color, Cuboid[ {labs[[i]][[1]]-1,labs[[i]][[2]]-1,labs[[i]][[3]]-1}, {labs[[i]][[1]]+1,labs[[i]][[2]]+1,labs[[i]][[3]]+1} ]} , {i, 1, Length[labs] }] ], Axes->True, AxesLabel->{\"L*\", \"a*\", \"b*\"}, FaceGrids->All, BoxRatios\ \[Rule]{ 1, 1, 1 }, PlotRange\[Rule]{{0,100},{-100,100},{-100,100}} , \ ViewPoint->{9.000, 0.000, 0.000},Lighting -> False]\ \>", "Input", CellLabel->"In[36]:="] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\:65e2\:5b9a\:8a2d\:5b9a", "Section"], Cell[" SetRefLight[ D65 ];", "Input", CellLabel->"In[37]:="] }, Closed]], Cell[CellGroupData[{ Cell["\:4f7f\:7528\:4f8b", "Section"], Cell[" SetRefLight[ D65 ];", "Input", CellLabel->"In[38]:="], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"spectorPlot", "[", " ", RowBox[{"transmissionSpector", "[", " ", RowBox[{ RowBox[{"transmissionSpector", "[", " ", RowBox[{"D65", ",", "magentaFilter", ",", "magenta"}], "]"}], ",", " ", "cyanFilter", ",", " ", "cyan"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"cyan", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"magenta", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.4484469664822335`*^9, 3.448446976266302*^9}, { 3.4484470731055503`*^9, 3.4484470934648256`*^9}, 3.4484472340469728`*^9, { 3.4484472860918093`*^9, 3.448447420715389*^9}, {3.4484474753739843`*^9, 3.4484474882324734`*^9}, {3.4484475189766817`*^9, 3.4484475464862385`*^9}, {3.448447593573947*^9, 3.4484475967384977`*^9}, { 3.448447631208062*^9, 3.4484476835833745`*^9}, {3.4484477449215746`*^9, 3.4484477843682957`*^9}, {3.4484478672975426`*^9, 3.4484478985524845`*^9}, {3.4484480056264496`*^9, 3.4484480486282835`*^9}, {3.4484481406706333`*^9, 3.448448156633587*^9}, { 3.448448285088296*^9, 3.4484482879023423`*^9}, {3.448448418159643*^9, 3.448448419992278*^9}, {3.448782527351643*^9, 3.448782527972536*^9}}, CellLabel->"In[39]:="], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"spell1\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"\:30b9\:30da\:30eb\:9593\ \:9055\:3044\:306e\:53ef\:80fd\:6027\:304c\:3042\:308a\:307e\:3059\:ff0e\:65b0\ \:898f\:30b7\:30f3\:30dc\:30eb\\\\\\\\\\\\\\\"\\\\\\\"\\\", \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\!\\(cyan\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\"\\\\\\\\\\\\\\\"\:306f\ \:3059\:3067\:306b\:3042\:308b\:30b7\:30f3\:30dc\:30eb\\\\\\\\\\\\\\\"\\\\\\\"\ \\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Cyan\\), \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\"\\\\\\\\\\\\\\\"\:306b\:4f3c\:3066\ \:3044\:307e\:3059\:ff0e\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/spell1\\\", ButtonNote -> \ \\\"General::spell1\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.448782532559131*^9}, CellLabel->"\:8a55\:4fa1\:4e2d\:ff1aIn[39]:="], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"spell1\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"\:30b9\:30da\:30eb\:9593\ \:9055\:3044\:306e\:53ef\:80fd\:6027\:304c\:3042\:308a\:307e\:3059\:ff0e\:65b0\ \:898f\:30b7\:30f3\:30dc\:30eb\\\\\\\\\\\\\\\"\\\\\\\"\\\", \\\"MT\\\"]\\)\ \[NoBreak]\\!\\(\\*StyleBox[\\!\\(magenta\\), \ \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\"\\\\\\\\\\\\\\\"\:306f\ \:3059\:3067\:306b\:3042\:308b\:30b7\:30f3\:30dc\:30eb\\\\\\\\\\\\\\\"\\\\\\\"\ \\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\(Magenta\\), \\\"MT\\\"]\ \\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\"\\\\\\\\\\\\\\\"\:306b\:4f3c\:3066\ \:3044\:307e\:3059\:ff0e\\\\\\\"\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/spell1\\\", ButtonNote -> \ \\\"General::spell1\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.448782532629232*^9}, CellLabel->"\:8a55\:4fa1\:4e2d\:ff1aIn[39]:="], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{Notebook$$13`cyan$$ = 0, Notebook$$13`magenta$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[Notebook$$13`cyan$$], 0, 3}, { Hold[Notebook$$13`magenta$$], 0, 3}}, Typeset`size$$ = { 360., {108., 112.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, Notebook$$13`cyan$772$$ = 0, Notebook$$13`magenta$773$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {Notebook$$13`cyan$$ = 0, Notebook$$13`magenta$$ = 0}, "ControllerVariables" :> { Hold[Notebook$$13`cyan$$, Notebook$$13`cyan$772$$, 0], Hold[Notebook$$13`magenta$$, Notebook$$13`magenta$773$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Notebook$$13`spectorPlot[ Notebook$$13`transmissionSpector[ Notebook$$13`transmissionSpector[ Notebook$$13`D65, Notebook$$13`magentaFilter, Notebook$$13`magenta$$], Notebook$$13`cyanFilter, Notebook$$13`cyan$$]], "Specifications" :> {{Notebook$$13`cyan$$, 0, 3}, { Notebook$$13`magenta$$, 0, 3}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{405., {166., 171.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({Notebook$$13`spectorPlot[ Pattern[Notebook$$13`s, Blank[]]] := BarChart[ Table[ Notebook$$13`s[Notebook$$13`x], { Notebook$$13`x, Notebook$$13`MinWL + 50, Notebook$$13`MaxWL - 100, Notebook$$13`divWL}], GridLines -> Automatic, Frame -> True, FrameLabel -> {"Wave Length", "Intensity"}, FrameTicks -> {None, Automatic}, ChartLabels -> Table[ If[Mod[Notebook$$13`x, 50] == 0, Notebook$$13`x, ""], { Notebook$$13`x, Notebook$$13`MinWL + Notebook$$13`divWL, Notebook$$13`MaxWL - Notebook$$13`divWL, Notebook$$13`divWL}], ChartStyle -> Table[ Notebook$$13`spectorColor[Notebook$$13`x], { Notebook$$13`x, Notebook$$13`MinWL + Notebook$$13`divWL + 50, Notebook$$13`MaxWL - Notebook$$13`divWL - 50, Notebook$$13`divWL}], BarSpacing -> -0.2, ChartBaseStyle -> Opacity[1.], Background -> GrayLevel[1], PlotRange -> {0, 1.2}], Notebook$$13`MinWL = 350, Notebook$$13`MaxWL = 800, Notebook$$13`divWL = 10, Notebook$$13`spectorColor[ Pattern[Notebook$$13`x, Blank[]]] := RGBColor[ Clip[ 3.240479 Notebook$$13`xCIE1986[Notebook$$13`x] - 1.53715 Notebook$$13`yCIE1986[Notebook$$13`x] - 0.498535 Notebook$$13`zCIE1986[Notebook$$13`x], {0, 1}], Clip[(-0.969256) Notebook$$13`xCIE1986[Notebook$$13`x] + 1.875992 Notebook$$13`yCIE1986[Notebook$$13`x] + 0.041556 Notebook$$13`zCIE1986[Notebook$$13`x], {0, 1}], Clip[ Plus[0.055648] Notebook$$13`xCIE1986[Notebook$$13`x] - 0.204043 Notebook$$13`yCIE1986[Notebook$$13`x] + 1.057311 Notebook$$13`zCIE1986[Notebook$$13`x], {0, 1}]], Notebook$$13`xCIE1986 = InterpolatingFunction[{{350., 800.}}, { 3, 3, 0, {91}, {4}, 0, 0, 0, 0}, CompressedData[" 1:eJwtzitMw1AUgOELarJysjhk5WTl5IJagmlISOaYAcZjUN7FTU5OTlZOViIr JysnJych3O8kJ5844j8nF1dnl8chhKO/PQ+mu87/zW6iJVumt9EpGyazaMGa 4S464op75vfRBTtmD/psmT7qs2Ey12fN8KTPFffMn/XZsV+6c8IFN+zYe/E3 xyy5ZssD09fokFMu2XDH5C06YMGKNbcM79FTjjjjij/cs/8RzTnhght27H1G M45Zcs2WB6Zf0SGnXLLhjkkVHbBgxZpbhu/8F2tQchM= "], { Developer`PackedArrayForm, {0, 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, 91}, CompressedData[" 1:eJxTTMoPSmVkYGCIZiAdHN+1o5ftQ5i9ft5ixj2sSfaiPV6vWEwK7Y/2G5br Ktbb80xe2RTo2Wv/YI7g0r0Hp9sLNR84tdB1mf2LLO1v0+9uhqo/aF+iMv3/ hLrT9ufTrj7P0r5kv0BK/64K21X7+Bk+QCXX7K+bvLdwdb9mv3iSFaNvy1X7 Fl7/9VNSr9hvDMieVT7nkj3YeqEL9uLbLzLcYzppL1OTaBRqcMh+e1L9TdvK HfaSLGF8upvW2v9Z+fGSb9ICe9VSplkc0n1QfSX2INVaK5Ptz3VcuveAu9k+ RsHxY/KZufZtFteO5ppssH9mv+T+Pr499ifL9s2X0j9q39EadXnP4zP2Czo3 PHw59ZL9voPiasGs1+2ntIMkbtvfY+Lskk9+APXHY/uF6ZtfFW99ChV/Yf9N I6b/0NdX9odTViWEBL21/7+p+tOGgPf2Khp1PTuzP9gnv4tysnvxwX7tr5jc o/8+2MdrnhY4vuuDfXWzvs8yrg/2n+Uv5cezv7MXqDJbbRf+2j72jhtzBfcL +7WZ9wq7+p5AxR/abzX/cShl1R17nVTJRxHi1+1Brr+rcsnexu/ixJh/p+2n KfaVFkoftW8qdpvyjW2/fdj81WtvxG+z3wmMVTGPDfbpoOj4ttxea6XwBZcb C+wn8oMMnm5fVijN+0B3gv0VbZDB7fZNj47P2D2tARrP5fac0vPiNE8XQPnp 0HBPsIelFwg/AMp3g/IdoPFgbK/rLPP6kZkWGi2FQRObTgFlBy6W "]}, {Automatic}], Notebook$$13`yCIE1986 = InterpolatingFunction[{{350., 800.}}, { 3, 3, 0, {91}, {4}, 0, 0, 0, 0}, CompressedData[" 1:eJwtzitMw1AUgOELarJysjhk5WTl5IJagmlISOaYAcZjUN7FTU5OTlZOViIr JysnJych3O8kJ5844j8nF1dnl8chhKO/PQ+mu87/zW6iJVumt9EpGyazaMGa 4S464op75vfRBTtmD/psmT7qs2Ey12fN8KTPFffMn/XZsV+6c8IFN+zYe/E3 xyy5ZssD09fokFMu2XDH5C06YMGKNbcM79FTjjjjij/cs/8RzTnhght27H1G M45Zcs2WB6Zf0SGnXLLhjkkVHbBgxZpbhu/8F2tQchM= "], { Developer`PackedArrayForm, {0, 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, 91}, CompressedData[" 1:eJxTTMoPSmVkYGCIZiAf6DrLvH5kJmWPSmtBaSv7RKNQA62VzlA62F4/bzHj HtYk+z8rP17yTSqwn2+jc2XWs1r7B3MEl+492G4v2uP1isVkon1UivV9/97p 9kbP1qk+aZ5nf/tnXdaeksX2v0DU5BX2O+RaXwfuWGdftVQHaNMm+01z3y8/ 5r3d/t7k9taoy3vsZ+QJNR84ddCew3Z26PzVR+0tt5wo2zf/lP3L7euZn/dc sK98qWbIseaKPdg6wVv29SBjJR7Yz1+99kZ82WOo+c/su/+mfn+S+NJe/64K W+PU1/ZpHcmxd9ze2u/y5GHSbn9nzzSLQ3pe3Hv764sLbLmuv7eHhMoHOP// pupPGwLe2wtEgFzwzv6Cy40PX7zeQuVf208wLNdVlH9lf9k3CajkhX30xv1v 5tk8s/93pQLowif2v96+PmCp/AjuPoj8HWj43bBXBbrKufuK/TeNmP5DXy/Y 64ID4rR9Ghgcsw8JUl/QueGgPdCzMlEpu+07QKHzeIs9mGu93r5l3tlV568u g5q3ABoP0+3nHFHYUJQx0b7Ebco3tvgOe06gLzVPN9hf0U6VfBRRDuUXQNWn Q+MtERo/EVDzAuyP79rRy/bBDcp3gKcL1HSiZY89HUnZU5A0wQAAW4wlSw== "]}, {Automatic}], Notebook$$13`zCIE1986 = InterpolatingFunction[{{350., 800.}}, { 3, 3, 0, {91}, {4}, 0, 0, 0, 0}, CompressedData[" 1:eJwtzitMw1AUgOELarJysjhk5WTl5IJagmlISOaYAcZjUN7FTU5OTlZOViIr JysnJych3O8kJ5844j8nF1dnl8chhKO/PQ+mu87/zW6iJVumt9EpGyazaMGa 4S464op75vfRBTtmD/psmT7qs2Ey12fN8KTPFffMn/XZsV+6c8IFN+zYe/E3 xyy5ZssD09fokFMu2XDH5C06YMGKNbcM79FTjjjjij/cs/8RzTnhght27H1G M45Zcs2WB6Zf0SGnXLLhjkkVHbBgxZpbhu/8F2tQchM= "], { Developer`PackedArrayForm, {0, 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, 91}, CompressedData[" 1:eJxTTMoPSmVkYGCIZiAdWG45UbZvfpW9tP5dFbbGVvt9BjO1JKZOsa//bVVw rmORffff1O9PEjfae79iMRE022PPHj/DR7TnlP1SPwfhxMPX7T+0ngw5uOKJ /aqEkCD1BR/sz6ddfZ6l/c1eu13s5rnvP+2NynUV5b/8tv82/e7k9tY/9jNA VNQf+0+OIJW/7Q12q/Nzb/1lL+4R8Eei+Ic9t5tqKdOsL/YctrND56/+YJ+1 p2SyBMsre/ein/wvtz+2945ss7h29K79xoDsWeVzrtnPOaKwoSjjor1STkXV Up3T9k9EZE8+tT9i7zblG1v8jD32vqI9Xq9YttiDXJETttY+zvsEu+3spfZG z9apPmmeZ++SmQ/0whT74GmKfaWF3fYrTM9a+11stL+inSr5KKLc/l5hV9+T T/n2627El/nLpdmDjTNJtJ90ut5jf22sfTz7OcnAW9H2x3ft6GX7EGavn7eY cQ9rkP2flR8v+SYF2Os6y7x+ZOZln2gUaqC10hlKG0PFtdBoKXsyonBEAACY uLpG "]}, {Automatic}], Notebook$$13`transmissionSpector[ Pattern[Notebook$$13`sourceLight, Blank[]], Pattern[Notebook$$13`layerSpector, Blank[]], Pattern[Notebook$$13`thinkness, Blank[]]] := Function[{Notebook$$13`x}, Notebook$$13`sourceLight[ Notebook$$13`x] (1 - Notebook$$13`layerSpector[Notebook$$13`x])^ Notebook$$13`thinkness], Notebook$$13`D65 = InterpolatingFunction[{{350., 800.}}, { 3, 3, 0, {451}, {4}, 0, 0, 0, 0}, CompressedData[" 1:eJwtzS0M81QYhuEDarJysrjJyskjJxvUZENCMkcNUP4+Dv/FVU5WTlZONsFM Vk5WTh45CR+93uR5L3l/9sVXn3/5aQjhk//2z8f38dav4/9mhm82C5asGFmz YcvEgSMnzly4MjN8q8+SFSNrNmyZOHDkxJkLV2aGTp8lK0bWbNgyceDIiTMX rswM3+mzZMXImg1bJg4cOXHmwpWZ4Xt9lqwYWbNhy8SBIyfOXLgyM/ygz5IV I2s2bJk4cOTEmQtXZoYf9VmyYmTNhi0TB46cOHPhyszwkz5LVoys2bBl4sCR E2cuXJkZPuizZMXImg1bJg4cOXHmwpWZ4Wd9lqwYWbNhy8SBIyfOXLgyM6TN HQvuWfLAikdGnljzzIYXtuyY2HPglSNvnHjnzAcXPrnyxcw3wy+bOxbcs+SB FY+MPLHmmQ0vbNkxsefAK0feOPHOmQ8ufHLli5lvhl83dyy4Z8kDKx4ZeWLN Mxte2LJjYs+BV468ceKdMx9c+OTKFzPfDL9t7lhwz5IHVjwy8sSaZza8sGXH xJ4Drxx548Q7Zz648MmVL2a+GX7f3LHgniUPrHhk5Ik1z2x4YcuOiT0HXjny xol3znxw4ZMrX8x8M/yxuWPBPUseWPHIyBNrntnwwpYdE3sOvHLkjRPvnPng widXvpj5Zvhzc8eCe5Y8sOKRkSfWPLPhhS07JvYceOXIGyfeOfPBhU+ufDHz zfDX5o4F9yx5YMUjI0+seWbDC1t2TOw58MqRN068c+aDC59c+WLmm6Hf3LHg niUPrHhk5Ik1z2x4YcuOiT0HXjnyxol3znxw4ZMrX8x8M/wd/wVc0S4i "], {Developer`PackedArrayForm, CompressedData[" 1:eJwV1AO7EAYYBeCbbbubbdvmza6bebNt27Zt264tjmHL2MJWW3jv9zzvOb/g fIHBIUHdwgQEBJwODRdaYQlHeCIQkUhEJgpRiUZ0YhCTWMQmDnGJR3wSkJBE JCYJSUlGclKQklSkJpA0pCUd6clARjKRmSxkJRvZyUFOcpGbPOQlH/kpQEEK UZgiFKUYxSlBSUpRmjKUpRzlqUBFKlGZKlSlGtWpQU1qUZsg6lCXetSnAQ1p RGOa0JRmNKcFLWlFMK1pQ1va0Z4OdKQTnelCV7oRQnd60JNe9KYPfelHfwYw kEEMZghDGcZwRjCSUYxmDGMZx3gmMJFJTGYKU5nGdGYwk1nMZg5zmcd8FrCQ RSxmCUtZxnJWsJJVrGYNa1nHejawkU1sZgtb2cZ2drCTXexmD3vZx34OcJBD HOYIRznGcU5wklOc5gxnOcd5LnCRS1zmCle5xnVucJMf+JFb3OYOd7nHfX7i Z37hV37jdx7wkEc85g/+5AlPecZzXvCSV7zmDW/5i795x3s+8JF/+JdPfOY/ /ucLX/lG6PjDEJZwhCcCEYlEZKIQlWhEJwYxiUVs4hCXeMQnAQlJRGKSkJRk JCcFKUlFagJJQ1rSkZ4MZCQTmclCVrKRnRzkJBe5yUNe8pGfAhSkEIUpQlGK UZwSlKQUpSlDWcpRngpUpBKVqUJVqlGdGtSkFrUJog51qUd9GtCQRjSmCU1p RnNa0JJWBNOaNrSlHe3pQEc60ZkudCX0gYfQnR70pBe96UNf+tGfAQxkEIMZ wlCGMZwRjGQUoxnDWMYxnglMZBKTmcJUpjGdGcxkFrOZw1zmMZ8FLGQRi1nC UpaxnBWsZBWrWcNa1rGeDWxkE5vZwla2sZ0d7GQXu9nDXvaxnwMc5BCHOcJR jnGcE5zkFN8BmNDNYw== "], CompressedData[" 1:eJxFVnlYTd0XligZUgpJhqaPSqkQCm9EiEpSqEiIJCWNNJCo0ECplKJUKBmK KEoREUVFGm/dulP33nNv95zwST79Th7P8zt/nPWsvc9+1z577fddS32vz1Z3 qVGjRlXTL17sfNGk551w0Inec4DfCc3sJn3meAasmhvrxFoMvL25qWSsKQPJ 32Vcr2xmoDDv3WpVVwZkk3c1//ZjIDsv6lJZHAOBpRPFFfcYCL/3eO/JNgbq mhOsKc0u/I46J6MT3IU30W3vH3/qQmdmSYfB4m4MxNv7a6V242P0QTnj0UyE r3R96GLCxNlJtvcvuzPBUgvwd4ljIvXi5BMmd5hIKbEmS28zIVg1Kt86g/Zl +TrHYphIF9T+yvFh4sfL/QV7tjEx+7Bws6UpE6+e2z85pMGEYpq0zajJTOg3 7wkAHSco44Zm2a9upJTydZdNp+O4Ti0jlzEx7CFusXdj4sUPeU2deCbGLlY0 WVHBRICM5e4vr5hwV9Ns0/zMxFDf5+SPFBO7uqMjz8zvwYNjHpdEoT347iDd pbSkFxGFmzOJCSxEtF0xfj/Igqb5Cinpf9lIsbjgxRviQF31dMzxIS6mueZc ffiVh45TMzJX9vShXSR/pvIpHyHK99b3nBDA64v/lfN9AgzbcV5/WiFEnUpz q3K4EJ7lM9rzioXw/RDT1MUUIiS6I9vNiIBLn9WYgpME+FcGYsNqCQyZUx+y J4rgHrNvV6elCCUOG/fP2S+Cy8vsJ8HBIpz7Z8srjSgR3NqX/rs9QYSRv92a IoJr9NyK1CIRvBcdvTrmnQjSySkmLzpF6JQZ9vrGFeE5S3lWLUeEedJXP+RX ikDss908P16E6xHrx8/cJsKnliuhO5RFUO3dMf1JI4Ed/pb9948TeOacs/CD DoHyCqdcCIToqNw+w7haiOTos06fyoXIrtRjlM4l8J0b0WaTR6BSSs3o0BoR dJXjX3f0i+Ch4RV8Ik8Mx5UFdzav6ce6nfuZ2ox+XDObECtjKoHa5tkFZ05L cG23znuFNxKMe9/aUP9bgqzcqtFXjEkoOu6TO7yPhJSVRdyaRBJqwl4T1SoS 9omqJ9cPkjhmLvUu2ZDCJbb0Zt39FN4cSVium0hBl0Z7WkrBQHG377w3FJZU 7UnU/kDhd9jhuosfKWyQNLxYW0/hU/nIwVDYLjXuUAs9nx5n2v31EwW3/HNp rS0UjmRIP+W0UX/5QaG0VF1du5GCurXMJccaCpoJKWX3yyjMuzHmRt0dCkn5 p+02ZlLYmbRrTmw8hbKxNw38T1E47htNFfjRuOv1u9o8KCz7c/Ep5M1rXCrv RqG1Jj5Umd5/12BCivIhCjVsD767D4Xrd+62ugZS2PQl1VmBxlGsW5DpGUNh 4o7pLio0vsO60durEyjI0iyfGkvhoFrbJrkgOr7vWJ8cFwr9/xXPXb6Kjrc3 6P2cWRQsVvW1Ff4kMXzPn3W6lcSB4BvtKU9I2HY0dOmmkUhWcZ0cEU5ikm/h hQ4PEkOtSkrn6fMfkAyWr6QtObHSvOQAia+nqh3ue5EYzDr4UOBH4jzRxQkL ImHyIqK97ASJ6bdD7NeHkdig+2PKRxqP06DRMRj+//mZqz9OUAsgkWc890ug NwlW0LmsuQfp76g5TT6uJMz1mgtGO9H5Xlzw0mEbCa2a0PP6NiTGpev62awn 4TdCX5AIvx9KZi2m7wk5N7ppPomT/lkrrdVIqEbMyt08mcSS3U83ThxNorFS 6VAjKYE7hzpxoZe+dyFXcxY1S6Cqbydb/U6C6Fvb3xm/ksA7V7F1Ne2n/e6Y afxZgrJrxhsm9EgQcuTS5OZ+CRJG5G9YgqkBq1vP0Pjeko+OPrNJeM7p8bTX I8FwNunWX0Iidfhi+JApiV/GFYeuLyJxu1580oTeX13A/u/VM0gkNrqM3iRH Qi96WtuHfyWIsa68HtAnAetbQXdKmwQme9Wm3H0vQYS/4wPjSgkq5TMW3Xgk QbPG+u6NDyRgPP/Pp+MubUeFeXUWSvBF5rRzE23rxLXVa+hx1XMN40zu0d9f 3j8rnraekUqN9+nxDTWeA8MFEtBB7Vl5NO8sS1g9VyQQq3jE+J+TgCbvxqXB EjQ4BerXuEvwR063SgC39EXEagkiFZYEGhjRPE0Jn5U0l8bx6F+joyDBqD+P BAr7mro39fTj2BAnaWp1P55Hb4o3y+tHdI3S6ozofuwJtJ09zbMfU47uk2es 74evXdD93H/6EdkkMy1Qth82d+IcnYRidCWNCIwYVbvs8l68FWOK2yQ3y5di BEyutOt5LsbF9kMKFyrEf/VejHB2iNDjhRjthoMOPtVi/H50VVeH9usnBs4+ WiqG/ud07qxbYsyNKmK2HRcj59aU+78sxGjKuJNRKCvG29pDXye/ESEn0VTK +owIHfVryBkQ0XXMc1H+LwK79zbOqKgkUPwu5fv0CwRU7dpnhroRQNkTr+fO BIKgJDN+xHepT87wJiAfU1P7MILAfrNu27hUAgaBjgfycgmkRKdE6RURMLP0 eBpXTqA05vIE0xoCD7TZkdfqCfyS8nydSFvvvYkd5u8JKKYrea54Q2BgKEd5 xksCmjSLPOl1nK03exWeEZBeIT/fvIzAiaW+9cGPCVhz5e3MigkE8/8xGldI oPAileR5nUDc3rK85osEfC+Xm745RY87r5xX4UMgkWbRkt0EpFxnmlF2BNjW mk0dawnkL/19fbYJgddpU815WgQKyCbrvQr0Oqn+c6qkEHONDHuiPghhsaDQ PTRfCJvrwToNp4Wgi/6q7c5C7C5qUPnXUIhhls4Ww3FCVJV4dyX1CjBGfntF 8QvB33wIUKRbpC7OEkClX+PW+GwBpE2XhfXmCSCvtbyAfVeAL6+PLD71RID9 z2ILLasEUBz8JHz2RoBr3/sdouoEqNeLs9lcL8A+hR3LH70VwKR9T2pqsQDe 9qk8tVQBrMbY1mQGCSAb0PHRz0EApv7FrB9GAuwIiQ8XyNP2QZ+RtoiPiezw Bfx6PrL0jZiBxXyY53Y/l8/gQ7/y4MmhZD5OMLwqJJf52PI8YWdhKh/Nc30X E/T8oldFBt45fBiee6jheYMP4hUneCxt54uDk7ppeysk83NqHh9/0lvAh8pQ p6pGKR97qoOPUW/4SMy4lZzZRsfjlvmfJvh/eSSAk6dKWoeKAA86ijQeLaT3 qVcriV8jQL6h83ZfW8HfvkmA3Pq6eVEQ4Ge8Hp5qCGC3U9pqcJiP3+FfskHj Omydl3XuAR9jWGdnVNL/UeyYMynwOB+uF1f9u9CJDzm/aXbeJnwU9fCTiyfy YdPiPe38xz7wd/RHHIztQ0Rk4a7atX1Q8ecZGPzkYaTLUb7HwyHZJwpw4mEm 33FGixwP5fIXZK2quFiXPstmbAQXhSNly5YLB/XPQ6FWXBgNBJcstecioyXM a+kBLgZOp42adIr7t15yYaC3OzDtDhffx6bJ6T3lwndEHmq50DqS9nJ5Gxcj 1c1KwEVnw3L2hGEu4rZ9qBcp8/ChJVDrth4Pr51aqqk1PFxhjAgHD9ccqwZW n+XBtMm/UVjAwzj75YlHa3i43pF8q6KJh1TvKZFV73j4VevX2nqKh2kygZZ5 GjzkfFe8Z1LChYuPuSRzJRfDFj9FwioO7v3oCWlfwUHeWherW5VsnEkI+m/Z FjbE5muWB35jgQbLXveYhVT3tISSBhYWLtAa+0yGDalRzmXH7Nh4Uae/bzCf jfnhsWWH5Tg4uVptyVE7DiKOFjgFXaH9m2VHQxgc1IbXVQTO4YJupukOkIuH Y2ZITY3nIj/m08bH9LkkOid5b2Jz4VfqGNI6gYc/MmTMQ3qyyKLrGA+x7j+1 e+/y0Lg7bMVXBg8KKUXZV//jYWCkrMr2wesxlThcy0PM9eHZ5YE8ZNVUDE5S 4kFuOjXOO5cLNRrNwZDOV5Oh+oU2DpynH1nLPcXBQ9PIhgtaHNjoMQezXrKx rlXy1WonG4pbomy7W1iIddryQcaWhYGuvQnpVb2IfNX4wM+gF6HUgy2H03vg EPbDIqyT7tOV5qxt0WXCTXP4dJJmN9Rv8ndYmXUhe6SNKGGAsKi3zPTpQu7Y amXz2G6MZNntOBPbft67u3ZdD+pObqgMm9WL5ONbvjWweqE9xUzO+QYL3Ok+ AVb0Oa/daf+ovo+N/FwbcyU3DjrMfh+o8ONgKuNVu85BDgRlZuq6FhxQ0r8q EyZzUEVcW7HgMxs+b7/lHSlmwytT6Yt6IhsFly0MH/qzMbulYXqsMxtlcTKS aRvYKP14lpi+no3FLgYLajexEcdccu35Nja0xjcZxe5hwylqGS1ZbGivLBro CGWjcMrMXvnz9H60Dx4LSWKj/XJUwKpUNn7SKu5P+3bXzznMD2JDoCA+Y23P huuFeXWvddh0nX5deOwXC6uO77i9pJ6FNueRC8lCkXb698ijLLjGe2xusmQh 1NqzulyDhSzVhQwtGRb+B+SDWdU= "]}, {Automatic}], Notebook$$13`magentaFilter = InterpolatingFunction[{{350., 800.}}, { 3, 3, 0, {18}, {2}, 0, 0, 0, 0}, {{350., 400., 420., 440., 460., 480., 500., 520., 540., 560., 580., 600., 620., 640., 660., 680., 700., 800.}}, { Developer`PackedArrayForm, {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18}, {0.1499, 0.1499, 0.135, 0.124, 0.1435, 0.1963, 0.2768, 0.4281, 0.5687, 0.6449, 0.5967, 0.1331, 0.0425, 0.0217, 0.0168, 0.0145, 0.0092, 0.0092}}, {Automatic}], Notebook$$13`cyanFilter = InterpolatingFunction[{{350., 800.}}, { 3, 3, 0, {18}, {2}, 0, 0, 0, 0}, {{350., 400., 420., 440., 460., 480., 500., 520., 540., 560., 580., 600., 620., 640., 660., 680., 700., 800.}}, { Developer`PackedArrayForm, {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18}, {0.159, 0.159, 0.0893, 0.0524, 0.0316, 0.0237, 0.0243, 0.0425, 0.0983, 0.2378, 0.4247, 0.5437, 0.6078, 0.5524, 0.4456, 0.4397, 0.5171, 0.5171}}, {Automatic}]}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.4484476848351746`*^9, 3.4484477498086014`*^9, 3.4484478523560576`*^9, 3.4484478932548676`*^9, {3.448448021839763*^9, 3.4484480507913933`*^9}, 3.4484481592673745`*^9, {3.448448359315029*^9, 3.4484484256704435`*^9}, 3.4487825327093472`*^9}, CellLabel->"Out[39]="] }, Open ]] }, Open ]] }, Open ]] }, ScreenStyleEnvironment->"Working", WindowSize->{813, 929}, WindowMargins->{{191, Automatic}, {Automatic, 8}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztXXdYFNfaz3O/f+79vudek3vTLKBIEaQpTRC7BgtqLCTWGxNjYsFookE0 NoxRY6oFuyIiWJCO9N4WWHrZpSy7VKkiBo2iy+5+Z/fsHg4zO7NLUZJ4fs/I Mztz5j3v+87u+zvnPe+Meuu3L1v/P6+99poJ+Gf+t9dek+8LBwiBIHvu/Byd ManLXMoSE+ExkQoZX+8W641rHWPUaDZZav+BZOoa6ZRVkhkftXrdrC3lg60h JuGh667nVjNkJjbd4ywfjhzbcP7iQFUiICAgIHiVkHfVO0dHL0tnDFd/XNGH q/g3bgrz84VFRVmnznAMrGRjDCSjxz6xmCFx3iFZtl/ickC6ZK/U6YtnS7Y/ c/6s23Zpt8V73aaOz8wdn+pbto4yqI2NG2qDCAgICAj+HIBTHn5GRrGhMV9H r0hXr1hnbKGuQaGlQ6G9U5TJTJ7ZFJneaNnoMd0GZl1rjos3X+7efEn8uafk k1OSlUfFi78RO30htl/5fOK8p2ZTmnXHNxlbVWVzh9osAgICAoI/ByANVVVU 5DpMKRs1pnS0fumYcTwDywIjh6IJixMcVrWNt5HTkL5Bt/7YR9OXi9yv1+7y urfLu/1rryfbLnR/7iledUQ8b7vYcUXn+Ol1uhZ1EycLCwuH2iwCAgICgj8B 0AIQ2C9Yv0E4ckyNvmmh8YSs2U6chUvTlq9JcFnDc5pR9t4M/rw5/IULeDMd M9Z9lrTVLWXLDs7Wr3O3uhVt3sn79Ev+2k2lLmvy5r+fY2JXZjO9qrh4qC0j ICAgIPijQ4RB/vGAR72OUaHlpIqzhxsCL9QHXq4N9q4L8mryP9d051xT4IWm oEtNARca75yvC79eG+Fbd9e3/q5vQ4TvvfDrjaE+94KuNgRfFvmdips8jZ+W wd51VXl5bkCgIENDMwICAgKCvyoA9VSroOShbw7UjbXJ/+KzxqCrLSHhTZFJ dbEZnRFRv4eGPQqP7IyK64yN74yL7wwP74iOackrbCkobs0taOXmt3FyHyRx QPv6oIi68IhSz3NRK9bnht2tEgjwHiv4/JykpOgTJyI/3cBdubru7Pnq0tIh sp7g1YUgNFTg4zPUWhAQvLpA0x9IQDUKyJlIKCxfuqbOYm7RQbfG8KC2pLzG tIKWhHTeuXPtsUlPsoseZxU+zsp/xC14lMF9lJjSmc7pKK1oLxO2lQjasoub knKqYzKqIlOrEzOrwuJDxtpfe2fMRSs7/wWLvZe5/DR/wS7HyTuNx/365lvh 7wxvWLuuLi1tqD1B8CoCcBDvtdfAxtfRAfsvqJcMMs0n+OsiIiLC1dX12LFj PB6vfxJwGgIEVKuAqKKi6OB3FaZzBDPW5Xnsro2+W59e0JKc2ZGUGjppcqrD NN4V7/a84of5JR25RR25hR0cLjjVEZ/Qnpp2PzWtOT6pNjqxKiy2PCymMjaJ Fxrx7bsjdg1745dhbx/4xz+//Pv/nvjXsKi33m4Zrts9fkLzZa/B9QkBQZ9Q sXFj+cqVciYaNqwqOXnQ5efl5Z09e3bQxRIQ/EEARlmBgYF79uzx8tI2mPMz OKnXrqVcv56flFReVARmPVUCQSWPV87llsbF8QKDC095Zi9akW04JcveJXOB a46He/XdoObY5N/iku9ncFPmL7ynY1ww0iB5xWp+cFhTblFrTmEzh9uSmtma kNwaGdUYGlIXHCgM8C+/daPI93pxSFDW7ZtfvPPumRHjfN/R8X9nROUYPamh kUxPr9vSuj787gv1DwGBlgBkBJiozNFx0CUTGiJ4FeDn5weYSMvGIj6//nYQ d8VHZ/QND41491drK087uyAb23Rru6yJtlwbB96kqeWWtgJzxxqrWS02Mwr3 bK2/49MWGduWlH4vIztunnOVgUW1qW2Fnmmq/vikbV/yI2JqOTm1yZy6+OS6 qJi64BBRQED5rZulfr55167mBfjzbt3Ot5xeZ+oonjhdamYvNZkg0x/XbTmh PibmhbpF4OMzWDn/qvx8ubQXlrQhGHKAeRDMzg36OhGhIYJXAWBO5Orq2tf8 c11ymuiLr/JMLTMMxsUYjeNaTOh0mCab5CiznCgzMpTpj5YZjJWNG5/n7iq6 ff1eVEJdQpowNSNyrnOpkWWpmS3PzK7c1DZ/jEnkRLuUI9/zoxOq4lMFEdGV AcEVN2+X+PkW+Hhnel3m3bnTGp0iXXdIsnibZOpKqe08qYmtxNT6XkiI9qoC FoAhAmxgHx3nDxumNnTAkS3awEd0Cgx38UEv5SOA8pJdu9CRyiNHUEegJTiF LoH7PNXbk4AaFH3o0nCxcjlmZnjX8ryQykCYKULKI6PAcRAzgQJgQ8wIdvg6 OmiNA16LhKMYW3n6NHIpaAPtApeUL1gAdYZaIT/TL4S9QK1AG+hAIAfYCCRA reiug5pQtIJqg66VvjUzg47quQoY6OMD+gI74CDdh7gyFFA0x/0DRIFNfit7 X4hucS85DI6ie4YJ7DQEfrkRERG91ODxduzYAY6jI3CcCY6Av2Afbwwkg+Og PUzLA1EeHh6uCoCdhIQE1MWvv/4KW1IyJyzC1Z6CCwGoTWBgIPgI/lLsojTT pke6KyjScOADb2AR9BiwEe8XmA+9ARqDffAX6QncBVwHrwLHQfCER6CLgBzQ HuyjxQ7cz3gX4MJjx45BlcAOCsJ085F1LB2xeADvCBiFOxyZCQAkI53BFw/I RzayZMyABNwK+LXRaAjlFOgOfKR8hbSEKC1d9MmGBxNtH9o6dE6Z0WUzWapn IBujIzMykppPlJnZZbtvLb95XRQZL4hNKk9MCXCal2ZokWlmw1Fsmea2mSZW EToGd2bNST3pWRoaURYUzPP1LfT25l65zLl0oTImqS456/mus5JPjkmct0om L5WZTW07ea5PSqLwjkd4nJvwOI/CNdjB9+HZftAQCqTgYE/MHDANocVxxDuU xkq+UwRtxA7gI+iazr9IMcgIqH2PFTBiq4RDw6EhUCCQIFQ3KaBcqKQShflw XynEzAxpRXEd1EpOKL3dBfrq4XeFXWBDCoB+oWKwjVofQquZMmm45koOGjZM LlNHB9Ec/XZQRjVMjqJ7hgkaaYgSw8EPGQYE/COIIaAZ+Iv/0mEEAx/BKRQe QeQJVADswJYo4oGD4AjORCzCmU5B3sEVUBvf8GZ069T2qJbOcGmBGFC4hhwE nYCirlDF5iCoIquRfHAKhGV0FZAAgjxkJXgEXIWPBCh+RqaBO4u6QFeBg2rN R72zdMTkAdgRZB8AyGKoJXAFOILMhF82aD4kengKXM7iW9wKXDiLIZRTSI7a XjRCJBLVnvR8OnWWxH6a2G6m2Hy6ZKy+TE9XamErnfQex8211Ne7IjyaFxFb Eh3nPXvOTT3jAGPLO9gWaGJ5W8/44sjRN5a5ZF64WOzrV3DFK/X8uTy/myVx KRXxaR37Lki2npKs2C+dtqZr6QZh78ptjUDhC//V49yEIgPiJkowR9G+rzSE ekFkAQLmoNAQOgsb95RsqRbKkTTUEYh7yo5UjSm0AjlLnkJUNaDwFFSbfhZ2 B3coYZ8S6nGTYaeAjCinqOarpk6UflF71BdMfiodrnACOAKjvVquofifAlxz 5cxFNaVCrI2bD52P98XuKHYSROgTDcHoAQe38AgMWagBDDVwnxIH6DMd1AUe HHAJLMKZTlGCMIj8au1ioiGWHjXSkNpTFIEwigpVY3VICugjlA+ZC51il0Pv HX0Et5WyGgI+wnvNEr1ZOmLyAL0jaAK9JfInaAAu0Vi6BhrAoQt+EE6c4bXa 0xAwBE5y+10vV1NT0xAdI35vocx8Sre9i3juFrGVg1RXR2ppn+a2pcDnSmnQ 3cKQiILwyDMzZv48Su+0vvGp3hs44qlv/PNw3eO6erfWr088eTL70qXcsOiC qITSmKR7Hhefu52RfHxEOuPj5tt9SMdBKH/vivhPCXrKpJAqPleePo0HMSEt edJnGqLNWQYrKYd6h2fxMIhsRNLoasCZCOJfJU8NG8ZkCN4AJzgmrZgk99gY GorP1yDUzrmQKIpWTCQCnYCSXXBmh5uGQHc4Dlxz+BVCk+KeSZ8qq6nMkSqm PD1jA1ZH0X2uFn2iIRhG0A8c5tvxgAlTHzD5g8cBekumLpAEFuEsp2CncELB MvRVSxzs5vSDhugCUUuW+AlYnn5HoNvV9shEQ/RMFwz+7L2zdMTkAXpHTAsx cKoFbdSmbg1OSClfG3hT4OVa0hCkM8j1THlFjaiurq6trW1MSeuetkhq94Fk +Tf3N53onDpfNtaQ47al9Oa1irsxpZExJVFx52fNPqVrcM5wvNrtvJHpWX2T X94aecnCMvG7wwXR8fyk9PL4tFqPC4/czkjXH5HM21yf3OdnKGBwoyymKJdO 0GRHwTtqIxse+vqRlFPS34IFMGQNIg3BnCGM0vBaFAahObBreDlaWFEu4igI F8VAOv9SKACnD7QPJFM2IX3m1Xt6ghslXxtSjQ2UzsEsQh+RKGHvCRQTDSHe AUaBLtAMV22JCIuHe5kcGopmeXTfImWA5tCTymkjq6Nw+WrvL4T2NASnQjCL whRLhQxxgJ62QpkrcBzP9gtV6X0W4RpPwaEvy7hXrQR2c/pBQ/SVC5hAU3sJ e0cwgAOB9FkAEw3R5WhDgiwdMXlA7XFKwEfrO8hGmKnDQR+lwPtI7xGNMbSk IXgjgEXgKqYJskZAGgJzoubgMKn1YsnSPR2up0p2nm6fPDvX3VUQ4Fcdm1QZ l1yekHzDaV6YoXmkmbWazdQ6wnhCtIVV1jLn9N2uCefPlscnizg51enZdR7n H7if7t70o2zu9par/n3SDUUhtAOPwzAiXxZX7MDB84ugIbhIzcNqHgaLhpRU oojSMPbK47lCCAzUyikPNgGEjIxvKHnF671iTqcAHpaYogjpkYanxWCVAk0y Pi3FV/DRpmZyiuaSmFZ06sQ9A3vBN7VVCihHCtkBMhe6cfiFeDkE2np8q1AM X0iCN5HFURT5TNCehuiJr77SEB1CBhrShmtYTtFlUvByaIh+vN80JMRKHXDv 0UUNkIZYOuorDaGDcLUIr5FQ+2WgC2FKq8JVNnZD8FOgPaIttdlCjRCJRDUq gP0n63ZIF2x/4npC4Ha26Kufcr/5QhToVx+fIkpKr0zJCJo3P8PQgmtum22m 2FQ7WSbW3PFWJU6zit03JZ79pTAyuja3qCY9q5bDrePkNHx74b7bSfHG49LF X4udNtRmq0kdMEGZrVIELjxhguI/mhYJBy8ph6JTL00U8wh8jX6ANIR0AztQ FM6V4KByXoBRiRBVj/v4KCeJlBo2VV9q5kdw/K9ITFHK8HpmHD4+TLxDqdnD c3HQFnAthXfoBQ94JZ583Ye5/AC5VO7z3ik1HPQRgnwapeIFiuZKmYr7SMko 4glSlKBjd5Sw90IhE7SkITQVEmI/cO2TcpTKLngWDnQp8QdKAO0HkpQDYUeb 2RA+FAeNB5iUw6XBS6DV/UjKsSSsgGQgFmarKDIpH/uXlGPpqH80BJ1ASYXR 6x7VjhxcFZMmeo+Q19gNwU+hry76dtFlsgO9QgHS0MN9x6VzPn/+2Y+NOz0L 913IOexeH3SjKTGtPjVTmJYZNde5zMCy3NS23NRG8de23MS63Hhi9RRHkeva TM/jKX5+uf53mnLym3MLmzNzmrLzmji5Tfs9H+4+I/74kGSJm8x+RdfSTTV5 BVqq1ysJphqyKlNYihiCNxisEgVY2QWPgFiKD9dhSKSklWDcQzFWOVNADMg8 WkbrIDgNoQkRZUlIrgler06pYeu9Yo56RykyPGbCs6g+nBJdlVUBZmZKpyku lPsEy7z1kC+WklJTaNebaNRWKSDJOPAjOPVTgN8CNEhAHEq5EJdJKSbEaQip LSdlVkeh7liYVEsaYqo96FOJAmXtGw50XWklCoiwBlKiwM5E9NkZDE3sJQrs BQ84oBC4JKF2xZ8lfjIt3+NHWPyMPmosUUDUQAnOTB31j4bU1sZTdENJM7oQ bWhIrSHID5AH0USsT69TgMDf5CN/m1yloOv9jyWz1ks+PvJw55nyPWdzj+1r DLvdnpjakp5dz8mOn+dcrW9RPd5GvplYVxtNqJ9o27h2SdEvHlkB/qVhEcVh d0uDQ1q4+fdzi9oz8zpyCjoyczu2He3c9pN4nYdk/hbptLUyc6dn81fXJado oyF9mAp++2hHiC3uw/ZaFmzDJ0eUz4Mo6njxbBXKfcHROAzmeME2bIxioLIS WCVN/tHMDAlheUUMsg6nISE2IcKDHqxwpmiCFnRQaTFavOjRR0cH5bgQK6G1 NiQN+RB9xC9U2qXqpWdZ6sgR+QM1K1fKdVA1BgEfTvHQ0zqwjFzIUIkntwtK UNRsCxVUqEy1oQemsFIHBDQDRXM3pUDFFJIyXQVdyO0FXwygmMo58JTa0Qvk LxZHoXU0egU4gjY0hE+FhL3jHlOFMyzTRXMEdBVcEYCn0HNDrqpC7sEt2GZZ IWJKo7EXbMMlCfqzJ0zShLSCbWis2ksoE09U/wwLtgGQHLzymcnPQk0F2zsU wAuzoaOYOhL2l4agOej+wpuO13jDXtRSvDZJOSZDmOgYTQm1B+XVpk3B4RLz Gd3TVkpWHOjaerLB3bPghwMtkYG/JSQ9SM9uzs5NmK+kIZHRxBozq6YlcysO 78i84cNPSL6XlnEvLr4kNLwoOLiVW9CWU3ifk9uRV/woq+Dxp/t+X7VL+sEe yexPpPbLpDaLZTYLxI7zqry8NWqI103BsTSMJHjQoER7cBZ/YkXt46t4ETge glBMQ2tP8mdFe69T9KSnsKE46hE+HYk+sj9XgsIdVAzFUjQhoozSKasb8qCN TVjwDfgKVSmgSI7P8oSKxB3uKDRrQwmrXnadPt3LLqzqTK1/8Ae7cOail89R 1rwQxeNLTiyvHqXogxKDeDEGquvAO8JNpnAZZdbD5Cg0BEIlEHT1tKEhGChQ PKeEULXPe8IjCCj6oZYocMFQP1iPr+K6wSVpcJa+9s1CHGrFwnkNCKFQT+2l CbGlFkhhrljBNt6MMqpHDxmBWA31R4pBaoC3g+5nbR5fhTcCPjPrij1KTPEA 3pFwAGtDoF9Y5A+LH5CNUDdKLzi0KVFgMgRPTuLfcHqmVCNwGqrl8Z/OXSIx myK2X/h8weautYfuu/5c9P3+1siAR3HxD1Mz7mflRM53Lh5rxjOxEs6eLnD7 jHv1XEF4pCghpTktozklpSk2tvJueEFQUHN6dktmXms6tz2n6GFWwf3/7nm8 dPvTmRu6HVaJrRdLzGdLLabLLGdKJ0xt3/xlDSeTST16YS0Kvzw886MqpcOv VfsyH41JOYqEHk1UKzKMqioa4OvjkMKY2kOggjeKRUIsXNMnAjDA4sJ71b9t 3Ag1wSuK4doNntPDzdRsF94Xg11QDt4F/sgqTJohTdRm4egaMjXGQbmJFOqh DwbotxId6aU83ck0R+GiKF8ABI00BDkIpwD2qNvXZkzBrX8YXN0Gt9NB7/fF yVSLftNQv6GxYJsFg+sWxEQPP/28e7zVM3OHbus5YkeXZ4u2ta7en394T1PY rYfR0Q/iE9tSUv3nOCVbTCj5fFXOmR/ygoOFsQn1iUnC2PjqmNjGmJjau3cr Q0Jy7vjfi0u6l8Spi0tv4uS1cwoebvjuscuurtmfPrVdKLZ4T2LuJB0/VWZs JzOeJH9SyXJK20cbqgODhBUVFN3QyBYdQUkh/CDLEjYFfaKhl4CelwaoFiPQ KWQ7ngViB+XRKnqt9csHvZxMbcwfCChrVWi9RllF0PsZ25cPjTQERpj4VEio 9Q+c5YU5lC4IDQ0EWvp54Hj5NKTx8VUWvAhXV2zcLB5rLDaxemxo0TbOttl8 Vp3DysIFm7MPudcGXGsJCWoJC2uMiAxZOC/tm23ZftfKgsOEkVGCiKiy8IjS sPDCkJDioKDSO3cKb91Mu36tKiRSEJtWGZVSk5zdmpLzdN13Txdu67JZJjZ9 76nt3IdrtzzYe7j1hGfLxSvNV661el7o2Pvtgx27m05Rf614il6lpzLm4JVa 9GZMUEtDlFK0lww8TUQZbOOntKESuEZPf6eExveevVAAAoLrWRSt2NOVfZJP yf7hXw+1dX0vExppyJX2Ji7tf+DalCQNIQ3Ra9sG0qk20l7QzAX3M1q+H3S8 fBoSanqZj8YLB64AhIjHa3XdLh6l1zVKr11Hv1HXQDTWtGb8ZJ7V/Jx5GzkH vxb4Xay+4Su6dav61i3Ozz8WXvctvu1f4u8vCAgUBAYW37qVfv168rVrYMu4 ejXzypXYC+dLfG/zwxL4QbG1iZltabnPluwQO6zsdNnUeupiTXYOoyqCKsoB EGHQ0rayiSLPQzkIV8O1CWsUGkIpIxCmhmrADF/dqXyjWu8JgnyJSnWqf+/3 1vK9Zy8ZUKvBcjhcBcM3+GgtPEt5WevLh0YaokyFhIM9/B4SGqK/jLR/L71k ksbk0peQQBsSGqK/mkDtwf6B5dWmLBhEVzf53nruOKtzlF7NOLOaibaVVrZC m0k8Q9N8HeNsI/u0mavjN3/Gu+lVfsOv3P92xR1/fsCdquBgUWxcbSa3Pr+o LqegIT2zNia+MiiIc8Mv9qpXrNeVqCuXMq/5VIbHC6OSH1TV1kXEPp+8+vfl m0T8skHReSCAMR9P36F6hiEcML840O39IwAuu7yc/zgDkdRQ/T8dQ/4fPQxi vBK+xAxV//AHV48dg3unXjQGxdWi4mKB5/nwj9cH7tmTHxhUmZMjKCkRlpYK i4srk5MLz5xNfn9VmPX84ElTOD//IORmN1VWtolEbXX1bU3N91va2lsVW3PL g8bmjsam+w2NrbUNzVXCmoqKSj6/qozfJqp+9OBhe01N8axlT0xmNt64Myi2 ExD8uTDkNERA8IdFVWlpEZdLP44qFspzc8Ns5/jpG9wwNoqYM6dw3cYS96NZ e49x9hzJ3Hck99BxsHEPHM13P8jf8U32VveUDV8lfOYWu37nTecl+6c6Rs9b kL9kdan17DaL6Y8MrOvDyH+0SvAqAtYGD7UWBAR/MiAmCpjl9Mub/z45YozA dq5k44nn+7ybvrsuOOIjOHpN+IOv6Mfrwh98ag9d/H37MeHGw/lr92Ws+zZ9 1cGi5bt8jO02vvF6pZFZnfGEJkPz+7oGNX43h9osAgICAoI/E8rS0o6OHO7x +ptn39HvmuwiWbZXsun0E7eLD/Z6tRz0bvDwrj10tcbjSsO+i+0bj7as+7Z6 xYHyNYf5y3bxnT6vmvxhpJ55/CjdyrGGVXpG9Tp6Fd8dHWqDCAgICAj+PBAI kn788cib7+7/v9dTdMdJHN6XzNkgWbZb8slPkq1nn3198fHuK527L993v/Rg 57nfPj32ePV3vy37pn353ntzNtZMcqk0nV5mZJU1Wi911Oji0XplI3XLFi0V VlEL4QgICAgICNSiSiDITUw8NFLH45+vPzOxlk6cKZm0WDJtjWzWZtnifdI1 30s2/Nq98WT3phPP133/fOWhrkV7njq5ds5c/8hycfPUJTV2s/ijDXOGj4ob PjJ+pA5nhG6OoXGFuqUoAgICAgICtcgIDV3/93+kDB8pNZkgHW8nM50msXPu ctny++aDzz50k87cIlm0W7LIXeK8s9tp29MpH/9us/ypyezWo7+IioqFYAsK Llm5OmXM2MC33ol8e0TcuyNzvTW/QY6AgICAgADiyv59B//1L5m+vsxgnNTM utP1q7pU5ZPLovKKhx4nZXYrpFP+K53yUbfd8qcWzl2G03775AuKEF5sbMJS lytv/Mf/P29HOi8ieTkCAgICAm1QJRBstbYSDB8p09Pres+pITqG3qbzKw+Z zWLpxLkSG+cnxtO6jB3r45PUSuNcunRGR/fCsDdq1ckhICAgICCgICs5+ei/ /y3T0ev48isRwzvuqotKxLOWyl+UbT7tmZH9o8WrhAIBk8Di5OTjxkZx06eT CREBAQEBgUb8vGVz24jRTZ7n2Js13wyQjbeXmTmKDa3aftXw/kwel/uzpYXo 0uXBU5OAgICA4C+IHA7n0tvD205d0Kbx74s/lBlNkBpb18TFa2zMz8uLcd1a nZM7YB0JCAgICP6yuPT1zta9h7Vs3HLJS2Zs02ntWFFYqE378sLCCkJDBAQE BAQMyMrI4B//Rfv2osrKbodZ9xcseXEqERAQEBC8OqgoLu5rFcGTlRu4HwzZ /25JQEBAQPBHw/8DCp03+A== "], {{0, 0}, {557, 41}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {557, 41}, PlotRange -> {{0, 557}, {0, 41}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0, ContextMenu -> None, ComponentwiseContextMenu -> {}], Cell[ BoxData[ GridBox[{{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0 vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt 1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1 EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA 9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1 xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9 Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1 ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+ trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm p4X4X/wDFcRtOg== "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs 73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY= "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], GraphicsBox[ RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, { 171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{ 138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, { 171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, PlotRange -> {{0, 2}, {0, 14}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6 SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4 tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt 0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e Xf4ArlmHrg== "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, ComponentwiseContextMenu -> {}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Textbook.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 39, 0, 57, "Title"], Cell[609, 24, 63, 0, 31, "Subtitle"], Cell[675, 26, 53, 0, 30, "Subsubtitle"], Cell[CellGroupData[{ Cell[753, 30, 67, 0, 83, "Section"], Cell[823, 32, 394, 7, 47, "Text"], Cell[1220, 41, 350, 9, 69, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[1607, 55, 31, 0, 51, "Section"], Cell[CellGroupData[{ Cell[1663, 59, 46, 0, 38, "Subsection"], Cell[1712, 61, 61, 1, 28, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[1810, 67, 37, 0, 38, "Subsection"], Cell[1850, 69, 35469, 909, 2289, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[37368, 984, 55, 0, 51, "Section"], Cell[CellGroupData[{ Cell[37448, 988, 30, 0, 38, "Subsection"], Cell[37481, 990, 6685, 189, 309, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[44203, 1184, 30, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[44258, 1188, 6626, 189, 309, "Input"], Cell[50887, 1379, 1041, 17, 70, "Message"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[51977, 1402, 30, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[52032, 1406, 6530, 189, 289, "Input"], Cell[58565, 1597, 1021, 17, 70, "Message"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[59647, 1621, 75, 0, 51, "Section"], Cell[CellGroupData[{ Cell[59747, 1625, 41, 0, 38, "Subsection"], Cell[59791, 1627, 291, 9, 48, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[60119, 1641, 41, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[60185, 1645, 292, 9, 48, "Input"], Cell[60480, 1656, 1037, 17, 70, "Message"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[61566, 1679, 41, 0, 38, "Subsection"], Cell[CellGroupData[{ Cell[61632, 1683, 292, 9, 48, "Input"], Cell[61927, 1694, 1013, 17, 70, "Message"] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[63001, 1718, 79, 0, 51, "Section"], Cell[CellGroupData[{ Cell[63105, 1722, 145, 3, 38, "Subsection"], Cell[63253, 1727, 1685, 46, 189, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[64975, 1778, 99, 1, 38, "Subsection"], Cell[65077, 1781, 1861, 58, 69, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[66975, 1844, 103, 1, 38, "Subsection"], Cell[67081, 1847, 112, 3, 28, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[67242, 1856, 94, 1, 51, "Section"], Cell[67339, 1859, 124, 1, 23, "Text"], Cell[CellGroupData[{ Cell[67488, 1864, 163, 6, 28, "Input"], Cell[67654, 1872, 1037, 17, 70, "Message"] }, Open ]], Cell[68706, 1892, 479, 13, 28, "Input"], Cell[69188, 1907, 511, 14, 49, "Input"], Cell[69702, 1923, 481, 13, 28, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[70220, 1941, 106, 1, 51, "Section"], Cell[70329, 1944, 1536, 46, 89, "Input"], Cell[71868, 1992, 1549, 46, 89, "Input"], Cell[73420, 2040, 1553, 46, 89, "Input"], Cell[74976, 2088, 68, 1, 28, "Input"], Cell[75047, 2091, 520, 9, 108, "Input"], Cell[75570, 2102, 530, 9, 108, "Input"], Cell[76103, 2113, 530, 9, 108, "Input"], Cell[76636, 2124, 530, 10, 128, "Input"], Cell[77169, 2136, 63, 1, 28, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[77269, 2142, 94, 1, 51, "Section"], Cell[77366, 2145, 182, 5, 48, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[77585, 2155, 93, 1, 51, "Section"], Cell[77681, 2158, 173, 4, 48, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[77891, 2167, 49, 0, 51, "Section"], Cell[77943, 2169, 384, 14, 248, "Input"], Cell[78330, 2185, 430, 16, 288, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[78797, 2206, 93, 1, 51, "Section"], Cell[CellGroupData[{ Cell[78915, 2211, 90, 1, 38, "Subsection"], Cell[CellGroupData[{ Cell[79030, 2216, 1850, 48, 129, "Input"], Cell[80883, 2266, 339, 9, 70, "Output"] }, Open ]], Cell[81237, 2278, 3277, 79, 269, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[84551, 2362, 61, 0, 38, "Subsection"], Cell[84615, 2364, 97, 2, 28, "Input"], Cell[84715, 2368, 424, 9, 128, "Input"], Cell[85142, 2379, 462, 10, 148, "Input"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[85653, 2395, 43, 0, 51, "Section"], Cell[85699, 2397, 61, 1, 28, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[85797, 2403, 37, 0, 51, "Section"], Cell[85837, 2405, 61, 1, 28, "Input"], Cell[CellGroupData[{ Cell[85923, 2410, 1368, 25, 69, "Input"], Cell[87294, 2437, 1035, 17, 23, "Message"], Cell[88332, 2456, 1041, 17, 23, "Message"], Cell[89376, 2475, 17017, 298, 346, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature kuT4qn5yKxzziAKvsRCcQZKN *)