Group Abstract Group Abstract

Message Boards Message Boards

0
|
347 Views
|
9 Replies
|
2 Total Likes
View groups...
Share
Share this post:

Pass function call (including parameters) as parameter to user defined function

Ralph Schenn
Posted 1 month ago

How can i write a function that i can call like this?

(* will have some postprocessing of graphics created by plot later... *)

MyPlotWrapper[Plot[Sin[x], {x,0,Pi}]]

So with each MyPlotWrapper call i want to be able to specify the function that is used to plot (Plot, Plot3D...) and also the function that should be plotted (including all the additional parameters to specify range, lengends... which may be of arbitrary number).
POSTED BY: Ralph Schenn
9 Replies
Sort By:
Ralph Schenn
Ralph Schenn
Posted 1 month ago
POSTED BY: Ralph Schenn

Have you tried

Hold[Plot[Sin[x], {x, 0, Pi}]]
POSTED BY: Gianluca Gorni
Ralph Schenn
Ralph Schenn
Posted 1 month ago

Is there any possibility to use the pattern p_ and interpret p as a function head and call that function whatever its name name may be (passing it the arguments that were supplied for p)? There are more then two Plot functions and at the end i may also want to call other (non plotting) functions this way. Because of that i would prefer to avoid a switch with a limited number of cases. p_ may be any function that may be passed as argument to Export[] to create an image of it.

POSTED BY: Ralph Schenn
Eric Rimbey
Eric Rimbey
Posted 1 month ago
POSTED BY: Eric Rimbey
Ralph Schenn
Ralph Schenn
Posted 1 month ago
POSTED BY: Ralph Schenn
Eric Rimbey
Eric Rimbey
Posted 1 month ago

I assume you're trying to distinguish between Plot and Plot3D. One way is to simply overload the wrapper to have two separate definitions.

MyPlotWrapper[Plot[fns_List, range_, options___]] := ...
MyPlotWrapper[Plot3D[fns_List, range_, options___]] := ...

Another way would be to use a pattern for the head.

MyPlotWrapper[p_[fns_List, range_, options___]] :=
 Switch[
  p,
  Plot, "a 2d plot",
  Plot3D, "a 3d plot",
  _, "this is not a plot!"]
POSTED BY: Eric Rimbey
Eric Rimbey
Eric Rimbey
Posted 1 month ago

Also, my example only handles a plot where the first argument is a list (because it made it easier to demonstrate).

And I should say, if you provide more information about your context we can probably come up with a better way. This approach feels a bit risky.
POSTED BY: Eric Rimbey
Eric Rimbey
Eric Rimbey
Posted 1 month ago

There are many ways, but without knowing what you're trying to do, it's difficult to give complete and precise guidance. Here is just one example that will hopefully get you started.

SetAttributes[MyPlotWrapper, HoldFirst];
MyPlotWrapper[Plot[fns_List, range_, options___]] := 
 ToString[
  StringForm[
    "I will plot `` over `` with `` options", 
    Head /@ fns, Rest@range, Length[{options}]]]

Demonstration:

MyPlotWrapper[Plot[{Sin[x], Cos[x]}, {x, 0, Pi}, PlotLegends -> "Expressions"]]
(* "I will plot {Sin, Cos} over {0, Pi} with 1 options" *)
POSTED BY: Eric Rimbey
Ralph Schenn
Ralph Schenn
Posted 1 month ago

Calling it like this would also be fine for me if this is easier to achieve

MyPlotWrapper[Plot, {Sin[x], {x,0,Pi}, PlotLegends->"Expressions"}]
POSTED BY: Ralph Schenn
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard