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

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

Re: Workaround for Plot[ ] and color via PlotStyle

Show all headers | View raw

Plot[{a x, a x^2, a x^3} /. {a -> 1} // Evaluate, {x, 0, 2},
  PlotStyle -> {Red, Green, Blue}]

Bobby

On Thu, 28 Apr 2011 05:34:23 -0500, Christopher O. Young  
<cy56@comcast.net> wrote:

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


-- 
DrMajorBob@yahoo.com

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

Thread

Re: Workaround for Plot[ ] and color via PlotStyle DrMajorBob <btreat1@austin.rr.com> - 2011-04-29 11:31 +0000

csiph-web