Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: default options, OptionsPattern[], and FilterRules[]

• To: mathgroup at smc.vnet.net
• Subject: [mg106497] Re: [mg106466] default options, OptionsPattern[], and FilterRules[]
• From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
• Date: Thu, 14 Jan 2010 05:51:04 -0500 (EST)
• References: <201001131100.GAA06994@smc.vnet.net>

Hi,

don't you want to filter the Options of Plot and look what options of
myplot can be given to Plot too? And then you give to Plot either the
standart-value or your option to myplot or the value which is given in 
the function-call.

Options[myplot] = {PlotRange -> {{-5, 5}, {-5, 5}}};
myplot[F_, OptionsPattern[]] :=
 Module[{opts},
  opts = Evaluate[(First@# -> OptionValue[First@#]) & /@ 
     FilterRules[Options[Plot], First /@ Options[myplot]]];
  Plot[F, {x, -1, 1}, Evaluate[Sequence @@ opts]]
  ]

when you know that all your options can be given to Plot, that you can
do

Clear[myplot];
Options[myplot] = {PlotRange -> {{-5, 5}, {-5, 5}}, 
   PlotStyle -> Red};
myplot[F_, opts___Rule] :=
 Module[{stdopts},
  stdopts = 
   Select[Options[myplot], ! MemberQ[First /@ {opts}, First@#] &];
  Print[Join[{opts}, Options[myplot]]];
  Plot[F, {x, -1, 1}, 
   Evaluate[Sequence @@ Join[{opts}, Options[myplot]]]]
  ]

Cheers
Patrick

On Wed, 2010-01-13 at 06:00 -0500, Roman wrote:
> dear group,
> I am trying to set up a plotting function which has a different
> default behavior than the standard one. Here's a simple example:
> 
> Options[myplot] = {PlotRange -> {-5, 5}};
> myplot[F_, opts : OptionsPattern[]] :=
>  Plot[F, {x, -1, 1}, Evaluate[FilterRules[{opts}, Options[Plot]]]]
> 
> What I would like to achieve with this is that when I don't specify
> the PlotRange option, as in
>    myplot[Sin[x]]
> then I would get a plot with a default plot range of {-5,5}.
> Unfortunately this does not work, since the call to FilterRules[] does
> not access the default rules defined in Options[myplot], but only
> those options explicitly specified in opts (i.e. none at all in this
> call example).
> 
> Since this seems like such a standard use of the Options framework of
> Mathematica, I would expect there to be pre-defined functionality for
> what I am trying to achieve. Of course I can manually merge the
> contents of the opts variable with those of Options[myplot] and
> eliminate duplicates, but I'd like to avoid such hacks if possible.
> 
> Do you know a simple solution for this problem?
> Thanks!
> Roman.
> 

• References:
  • default options, OptionsPattern[], and FilterRules[]
    • From: Roman <rschmied@gmail.com>