( Примечание:. Все ответы на этот вопрос действительны для версий Mathematica до версии 10. Для версий 10 и выше см. https://mathematica.stackexchange.com/info/54486/how-to-access-new-colour-schemes-in-version-10 и https://mathematica.stackexchange.com/info/54629/what-are-the-standard-colors-for-plots-in-mathematica-10.)
При использовании команды График или ListPlot в Mathematica выбираются определенные цвета по умолчанию.
Из-за единообразия в каком-то отчете я хотел бы использовать их вместе с опцией PlotStyle. Оказалось, что я не могу воспроизвести цвета по умолчанию с предопределенные имена цветов, хотя синий и фиолетовый, похоже, как-то близко.
Отсюда мой вопрос:
Как я могу выбрать стандартные цвета, используемые Mathematica на участках вместе с PlotStyle?
Спасибо заранее.
Хорошие ответы были предоставлены belisarius и Sjoerd из которого можно заключить, что
Сюжет [Sin [x], {x, 0, 2 Pi}, PlotStyle → ColorData [1, 4]]
приведет к синусоиде, нанесенному в четвертом стандартном цвете, немного приятному зеленому.
Цвета, используемые сюжетом, находятся в ColorData[1].
Сравнить
Graphics[MapIndexed[{#1,
Tooltip[Rectangle[{#2[[1]], 0}, {#2[[1]] + 1, 1}], #1]} &,
ColorData[1] /@ Range[40]]]
с цветами Belisarius
Graphics[MapIndexed[{#1,
Tooltip[Rectangle[{#2[[1]], 0}, {#2[[1]] + 1, 1}], #1]} &,
Cases[ListPlot[Table[{i}, {i, 40}]], Hue[x__], Infinity]]]
Они одинаковы, кроме одного - это термины Hue, а остальные - в терминах или RGBColor
Я знаю, что это очень поздно для игры, но выражение, используемое для генерации n -го цвета в ColorData[1]:
Hue[FractionalPart[0.67 + 2.0 (i - 1)/GoldenRatio], 0.6, 0.6]
Обновить. На основании комментария Alexey ниже вы можете найти это, используя:
ColorData[1] // InputForm
Если вы выполните:
ListPlot[Table[{i}, {i, 10}]] // FullForm
Вы получаете первые 10 оттенков.
Или это дает вам готовый список:
hues = Cases[ListPlot[Table[{i}, {i, 10}]], Hue[x__], Infinity]
{Hue[0.67, 0.6, 0.6], Hue[0.906068, 0.6, 0.6],
Hue[0.142136, 0.6, 0.6], Hue[0.378204, 0.6, 0.6],
Hue[0.614272, 0.6, 0.6], Hue[0.85034, 0.6, 0.6],
Hue[0.0864079, 0.6, 0.6],Hue[0.322476, 0.6, 0.6],
Hue[0.558544, 0.6, 0.6], Hue[0.794612, 0.6, 0.6]}
Пример использования:
SphericalPlot3D[\[Phi], {\[Theta], 0, Pi}, {\[Phi], 0, 3 Pi},
Epilog ->
Table[Inset[Framed[Style["Spiral", 20],
Background -> hues[[i]]],
{i/15 + .1, i/15}],
{i, 10}]]
Если вы предпочитаете цветовое пространство RGB, вы можете сделать:
rgbs= ColorConvert[#, "RGB"] & /@ hues
** Изменить ** Сравнение с формулой Эли:
mine = Cases[ListPlot[Table[{i}, {i, 10}]], Hue[x__], Infinity]
elis = Table[Hue[FractionalPart[0.67 + 2.0 (i-1)/GoldenRatio],0.6,0.6], {i,1,10}]
Chop[(mine- elis) /. Hue[x_, __] -> x]
(* -> {0, 0, 0, 0, 0, 0, 0, 0, 0, 0} *)
Великий, Эли!