Estilos mejorados para personas con impedimento de visión de color 

Los estilos iniciales han sido seleccionados para poder ser distinguidos por personas con impedimento de visión de color.

muestre la entrada completa de Wolfram Languageoculte la entrada

In[1]:=

X v10 = With[{opts = {Ticks -> None, FrameTicks -> None, AspectRatio -> 1, ImageSize -> 125}}, Grid[{{ListPlot[{Range[10], Prime[Range[10]]}, PlotStyle -> PointSize[Large], opts], Plot[{Sin[x], Cos[x]}, {x, 0, 10}, opts]}, {RegionPlot[ Evaluate[ Table[(x - i)^2 + (y - i)^2 <= 1, {i, {-1, 1}/2}]], {x, -1, 1}, {y, -1, 1}, opts], BarChart[Partition[Prime[Range[12]], 2], opts]}}, Frame -> False]];

In[2]:=

X v9 = With[{opts = {Ticks -> None, FrameTicks -> None, AspectRatio -> 1, ImageSize -> 125}}, Grid[{{ListPlot[{Range[10], Prime[Range[10]]}, PlotStyle -> {Directive[PointSize[Large], RGBColor[152/256, 58/256, 112/256]], Directive[PointSize[Large], RGBColor[77/256, 66/256, 156/256]]}, opts], Plot[{Sin[x], Cos[x]}, {x, 0, 10}, opts, PlotStyle -> {RGBColor[152/256, 58/256, 112/256], RGBColor[77/256, 66/256, 156/256]}]}, {RegionPlot[ Evaluate[ Table[(x - i)^2 + (y - i)^2 <= 1, {i, {-1, 1}/2}]], {x, -1, 1}, {y, -1, 1}, opts, BoundaryStyle -> {2 -> RGBColor[152/256, 58/256, 112/256], 1 -> RGBColor[77/256, 66/256, 156/256]}, PlotStyle -> {Directive[RGBColor[218/256, 215/256, 234/256], Opacity[.5]], Directive[RGBColor[235/256, 216/256, 227/256], Opacity[.5]]}], BarChart[Partition[Prime[Range[12]], 2], opts, ChartStyle -> {RGBColor[205/256, 209/256, 246/256], RGBColor[188/256, 255/256, 214/256]}]}}, Frame -> False]];

In[3]:=

X v9sim = With[{opts = {Ticks -> None, FrameTicks -> None, AspectRatio -> 1, ImageSize -> 125}}, Grid[{{ListPlot[{Range[10], Prime[Range[10]]}, PlotStyle -> {Directive[PointSize[Large], RGBColor[65/256, 55/256, 148/256]], Directive[PointSize[Large], RGBColor[93/256, 92/256, 109/256]]}, opts], Plot[{Sin[x], Cos[x]}, {x, 0, 10}, opts, PlotStyle -> {RGBColor[65/256, 55/256, 148/256], RGBColor[93/256, 92/256, 109/256]}]}, {RegionPlot[ Evaluate[ Table[(x - i)^2 + (y - i)^2 <= 1, {i, {-1, 1}/2}]], {x, -1, 1}, {y, -1, 1}, opts, BoundaryStyle -> {1 -> RGBColor[65/256, 55/256, 148/256], 2 -> RGBColor[93/256, 92/256, 109/256]}, PlotStyle -> {Directive[RGBColor[221/256, 221/256, 226/256], Opacity[.5]], Directive[RGBColor[216/256, 214/256, 232/256], Opacity[.5]]}], BarChart[Partition[Prime[Range[12]], 2], opts, ChartStyle -> {RGBColor[208/256, 206/256, 244/256], RGBColor[235/256, 237/256, 216/256]}]}}, Frame -> False]];

In[4]:=

X v10sim = With[{opts = {Ticks -> None, FrameTicks -> None, AspectRatio -> 1, ImageSize -> 125}}, Grid[{{ListPlot[{Range[10], Prime[Range[10]]}, PlotStyle -> {Directive[PointSize[Large], RGBColor[121/256, 117/256, 179/256]], Directive[PointSize[Large], RGBColor[175/256, 179/256, 54/256]]}, opts], Plot[{Sin[x], Cos[x]}, {x, 0, 10}, opts, PlotStyle -> {RGBColor[121/256, 117/256, 179/256], RGBColor[175/256, 179/256, 54/256]}]}, {RegionPlot[ Evaluate[ Table[(x - i)^2 + (y - i)^2 <= 1, {i, {-1, 1}/2}]], {x, -1, 1}, {y, -1, 1}, opts, BoundaryStyle -> {1 -> RGBColor[121/256, 117/256, 179/256], 2 -> RGBColor[175/256, 179/256, 54/256]}, PlotStyle -> {Directive[RGBColor[121/256, 117/256, 179/256], Opacity[.5]], Directive[RGBColor[175/256, 179/256, 54/256], Opacity[.5]]}], BarChart[Partition[Prime[Range[12]], 2], opts, ChartStyle -> {RGBColor[121/256, 117/256, 179/256], RGBColor[175/256, 179/256, 54/256]}]}}, Frame -> False]];

In[5]:=

X Style[Grid[{{"", "Actual Colors", "Simulated Deuteranopia"}, {Rotate["Previous", Pi/2], v9, v9sim}, {Rotate["Current", Pi/2], v10, v10sim}}, Spacings -> Offset[1], Dividers -> All], FontFamily -> "Arial"]

Out[5]=