In[]:=
(*L/100C/100H/360*)​​ℛ1=ColorsNear[LCHColor[.63,.47,.22`]];(*Goethite*)​​ℛ2=ColorsNear[LCHColor[.40,.35,.175]];(*Akaganeite*)​​ℛ3=ColorsNear[LCHColor[.57,.50,.189`]];(*Lepidocrocite*)​​​​(*ℛ3=[LCHColor[[0.51×0.71],[0.41×0.62],[0.4×0.467`]]]*)​​ChromaticityPlot3D[{ℛ1,ℛ2,ℛ3}]​​{Graphics[{LCHColor[.63,.47,.22`],Disk[]}],Graphics[{LCHColor[.40,.35,.175],Disk[]}],Graphics[{LCHColor[.57,.50,.189`],Disk[]}]}
Out[]=
Out[]=

,
,
