Mathematica颜色系,你喜欢哪一个?
Column[{#,
Row[Graphics[{#, PointSize[0.5], Point[{0, 0}]},
ImageSize -> 50] & /@ ColorData[#, "ColorList"]]} & /@
Range[62]]
Column[{#,
Row[Graphics[{#, PointSize[0.5], Point[{0, 0}]},
ImageSize -> 50] & /@ ColorData[#, "ColorList"]]} & /@
Range[62]]