Re: list of options in Plot
- To: mathgroup at smc.vnet.net
- Subject: [mg61917] Re: list of options in Plot
- From: Bill Rowe <readnewsciv at earthlink.net>
- Date: Fri, 4 Nov 2005 05:11:43 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
On 11/3/05 at 4:58 AM, pieter.eendebak at gmail.com wrote:
>I need to plot functions with the same options all over again. For
>example
>Plot[ x^2, {x,0,1}, PlotStyle->RBGColor[1,0,0], Ticks->None]
>Plot[ x^3, {x,0,1}, PlotStyle->RBGColor[1,0,0], Ticks->None]
>Plot[ x^4, {x,0,1}, PlotStyle->RBGColor[1,0,0], Ticks->None]
>I would like to shorten this to
>options={PlotStyle->RBGColor[1,0,0], Ticks->None}
>Plot[x^2, {x,0,1}, options]
>Plot[x^3, {x,0,1}, options]
>Plot[x^4, {x,0,1}, options]
>The code above does not work, I need some `unlist' function for the
>options. Can someone tell me how to do this in Mathematica?
Sequence does what you want. Specifically,
options={PlotStyle->RBGColor[1,0,0], Ticks->None}
Plot[x^2, {x,0,1}, Sequence@@options]
Plot[x^3, {x,0,1}, Sequence@@options]
Plot[x^4, {x,0,1}, Sequence@@options]
Will generate the desired plots.
Another approach to this problem that shortens things even more is to do
Plot[#, {x,0,1}, PlotStyle->Red,Ticks->None]&/@{x^2, x^3, x^4};
--
To reply via email subtract one hundred and four