Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.mathematica > #1947

Workaround for Plot[ ] and color via PlotStyle

Show all headers | View raw

As a previous poster showed, Plot is a little inconsistent when it comes to
mapping colors via PlotStyle.

Plot[
 {
  a x /. {a -> 1},
  a x^2 /. {a -> 1},
  a x^3 /. {a -> 1}
  },
 

{x, 0, 2},
 
 PlotStyle -> {Red, Green, Blue}
 ]


   works OK but

Plot[
 {
   a x,
   a x^2,
   a x^3
   } /. {a -> 1},
 
 {x, 0, 2},
 

PlotStyle -> {Red, Green, Blue}
 ]


  just produces blue plots.

So I tried to figure out to work from the fully written-out form:

Show[
 Plot[y = x, {x, -5, 5}, PlotStyle -> {Thick, Red}],
 Plot[y = x^2, {x, -5, 5}, PlotStyle -> {Thick, Yellow}],
 Plot[y = x^3, {x, -5, 5}, PlotStyle -> {Thick, Blue}]
 ]


The above works fine, but is very redundant.

A Table will streamline the above commands:

Show[
 Table[
  Plot[
   y = x^k, {x, -5, 5},
   PlotStyle -> {Thick, Hue[0.5 (k - 1)/3]}
   ],
  {k, 1, 3}]
 ]


Does anybody know how to go through a list of colors via the k index?

At any rate, if you're a big fan of postfix notation, the following can be
rewritten in stages, as:

Table[
  Plot[
   y = x^k, {x, -5, 5},
   PlotStyle -> {Thick, Hue[0.5 (k - 1)/3]}
   ],
  {k, 1, 3}
  ] // Show




Plot[
   y = x^k, {x, -5, 5},
   PlotStyle -> {Thick, Hue[0.5 (k - 1)/3]}
   ]~Table~{k, 1, 3}\
    // Show



And, finally:

(y = x^k //
      Plot[
        #, {x, -5, 5},
        PlotStyle -> {Thick, Hue[0.5 (k - 1)/3]}
        ] &)\
   ~Table~{k, 1, 3}\
    // Show

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread

Thread

Workaround for Plot[ ] and color via PlotStyle "Christopher O. Young" <cy56@comcast.net> - 2011-04-28 10:34 +0000

csiph-web