wolfram mathematica - varias - ¿Cuáles son los colores estándar para las parcelas en Mathematica?

wolfram mathematica plot range

Question

( Nota: Todas las respuestas a esta pregunta son válidas para las versiones de Mathematica anteriores a la versión 10. Para las versiones 10 y posteriores, consulte https://mathematica.stackexchange.com/questions/54486/how-to-access-new-colour-schemes-in-version-10 y https://mathematica.stackexchange.com/questions/54629/what-are-the-standard-colors-for-plots-in-mathematica-10 .)

Cuando se usa el comando Plot o ListPlot en Mathematica , se eligen ciertos colores predeterminados.

Por motivos de uniformidad en algún informe, me gustaría utilizarlos junto con la opción PlotStyle. Resultó que no puedo reproducir los colores predeterminados con los nombres de color predefinidos , aunque el azul y el morado parecen estar cerca.

De ahí mi pregunta:

¿Cómo puedo elegir los colores estándar utilizados por Mathematica en tramas junto con PlotStyle?

Gracias de antemano.

Bonitas respuestas fueron dadas por belisarius y Sjoerd de las cuales podemos concluir que

Trazar [Sin [x], {x, 0, 2 Pi}, PlotStyle -> ColorData [1, 4]]

dará como resultado un seno trazado en el cuarto color estándar, un bonito color verde.

Answer 1

Los colores utilizados por Plot están en ColorData[1] .

Comparar

Graphics[MapIndexed[{#1,
Tooltip[Rectangle[{#2[[1]], 0}, {#2[[1]] + 1, 1}], #1]} &,
ColorData[1] /@ Range[40]]]

con Belisarius'' colores de Belisarius''

Graphics[MapIndexed[{#1,
Tooltip[Rectangle[{#2[[1]], 0}, {#2[[1]] + 1, 1}], #1]} &,
Cases[ListPlot[Table[{i}, {i, 40}]], Hue[x__], Infinity]]]

Son lo mismo, excepto que uno es términos de Hue y el otro en términos de RGBColor

Answer 2

Sé que esto es muy tarde para el juego, pero la expresión utilizada para generar el n ésimo color en ColorData[1] es:

Hue[FractionalPart[0.67 + 2.0 (i - 1)/GoldenRatio], 0.6, 0.6]

Actualización Basado en el comentario de Alexey a continuación, puede encontrarlo usando:

ColorData[1] // InputForm

Answer 3

Si lo haces:

ListPlot[Table[{i}, {i, 10}]] // FullForm

Obtienes los primeros 10 Hues utilizados.

O esto te da una lista lista para usar:

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]}

Muestra de uso:

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}]]

Si prefiere el espacio de color RGB, puede hacer:

rgbs= ColorConvert[#, "RGB"] & /@ hues

** Editar ** Comparando con la fórmula de Eli:

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} *)

Genial, Eli!