, , , .
Wiki , : — , .
, , :
XYZ, xyY, LAB, LCHAB, LUV, LCLUV, RGB (sRGB, AdobeRGB 15 RGB). xyY , , .
, RGB () sRGB (), : 2700 6500
, xyY,,
54350-2011 ( ).
Mathematica.
Mathematica :
(*Create color sets in according with
www.brucelindbloom.com*)
c2700K=XYZColor[1.119973, 1,0.315490];
c3000K=XYZColor[1.081316, 1,0.393475];
c3500K=XYZColor[1.037337, 1,0.522065];
c4000K=XYZColor[1.009802, 1,0.644496];
c4500K=XYZColor[0.992417, 1,0.758275];
c5000K=XYZColor[0.981495, 1,0.862580];
c5500K=XYZColor[0.974781, 1,0.957468];
c5700K=XYZColor[0.972936, 1,0.992889];
c6000K=XYZColor[0.970852, 1,1.043437];
c6500K=XYZColor[0.968785, 1,1.121183];
(*Create areas in according with GOST, placing name of area with Text*)
g2700K=Graphics[{c2700K,{EdgeForm[Dashed],Polygon[{{0.4813,0.4319},{0.4562,0.4260},{0.4374,0.3893},{0.4593,0.3944}}]},Black,PointSize[Medium],Point[{0.4578,0.4101}],Text[Style[«2700K»,Medium,Bold,Black],{0.455,0.435}]}];
g3000K=Graphics[{c3000K,{EdgeForm[Dashed],Polygon[{{0.4562,0.4260},{0.4299,0.4165},{0.4147,0.3814},{0.4373,0.3893}}]}, Black,PointSize[Medium], Point[{0.4338,0.4030}],Text[Style[«3000K»,Medium,Bold,Black],{0.43,0.4275}]}];
g3500K=Graphics[{c3500K,{EdgeForm[Dashed],Polygon[{{0.4299,0.4165},{0.3996,0.4015},{0.3889,0.3690},{0.4147,0.3814}}]}, Black,PointSize[Medium], Point[{0.4073,0.3917}],Text[Style[«3500K»,Medium,Bold,Black],{0.405,0.415}]}];
g4000K=Graphics[{c4000K,{EdgeForm[Dashed],Polygon[{{0.4006,0.4044},{0.3736,0.3874},{0.3670,0.3578},{0.3898,0.3716}}]}, Black,PointSize[Medium], Point[{0.3818,0.3797}],Text[Style[«4000K»,Medium,Bold,Black],{0.38,0.403}]}];
g4500K=Graphics[{c4500K,{EdgeForm[Dashed],Polygon[{{0.3736,0.3874},{0.3548,0.3736},{0.3512,0.3465},{0.3670,0.3578}}]},Black,PointSize[Medium], Point[{0.3611,0.3658}],Text[Style[«4500K»,Medium,Bold,Black],{0.355,0.3875}]}];
g5000K=Graphics[{c5000K,{EdgeForm[Dashed],Polygon[{{0.3551,0.3760},{0.3376,0.3616},{0.3366,0.3369},{0.3515,0.3487}}]}, Black,PointSize[Medium], Point[{0.3447,0.3553}],Text[Style[«5000K»,Medium,Bold,Black],{0.335,0.375}]}];
g5700K=Graphics[{c5700K,{EdgeForm[Dashed],Polygon[{{0.3376,0.3616},{0.3207,0.3462},{0.3222,0.3243},{0.3366,0.3369}}]}, Black,PointSize[Medium], Point[{0.3287,0.3417}],Text[Style[«5700K»,Medium,Bold,Black],{0.315,0.36}]}];
g6000K=Graphics[{c6000K,{EdgeForm[Dashed],Polygon[{{0.3205,0.3481},{0.3028,0.3304},{0.3068,0.3113},{0.3221,0.3261}}]}, Black,PointSize[Medium], Point[{0.3123,0.3282}],Text[Style[«6000K»,Medium,Bold,Black],{0.3,0.345}]}];
(*Show all together on the same plot, xy are coordinates for measured point*)
xy = Graphics[{Red, PointSize[Large],
Point[{(*your xy*)}]}];
Show[g2700K,g3000K,g3500K,g4000K,g4500K,g5000K,g5700K,g6000K,PlotRange->{{0.28,0.48},{0.28,0.44}},Axes->True, AxesOrigin-> {0.28,0.28}, AxesStyle->Directive[Black,FontFamily->«Helvetica»,14],GridLines->{{0.28,0.30,0.32,0.34,0.36,0.38,0.4,0.42,0.44,0.46,0.48},{0.28,0.3,0.32,0.34,0.36,0.38, 0.4,0.42,0.44,0.46,0.48}}]