Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: Function as an argument

  • To: mathgroup at smc.vnet.net
  • Subject: [mg76714] Re: Function as an argument
  • From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
  • Date: Sat, 26 May 2007 04:33:24 -0400 (EDT)
  • Organization: The Open University, Milton Keynes, UK
  • References: <f36ddj$71m$1@smc.vnet.net>

dXdYdZdu wrote:
> Hi, I have problem. I want to do something like this:
> 
> ss[x_] = 2 + x^3 ;
> MyFunction[expression_] := Module[{}, Return[expression[2]]]
> Calling MyFunction[ss] will produce 10 and this is working case.
> 
> but this is what I can not do:
> 
> MyFunction[2 + x^3]
> 
> Is there a way to make this to work as well?

The following code will do it. Note that Module is not needed since you 
do not define any local variable. Also you do not have to end your 
definition with Return because Mathematica returns the value of the last 
expression.

In[1]:=
ss[x_] = 2 + x^3;

myFunction[expr_Symbol] := expr[2]
myFunction[expr_] := expr /. x -> 2

myFunction[ss]
myFunction[ss[x]]
myFunction[2 + x^3]

Out[4]= 10

Out[5]= 10

Out[6]= 10

Regards,
Jean-Marc



  • Prev by Date: ListIntegrate3D ?
  • Next by Date: Re: .m packages "fullforms" subscripts?
  • Previous by thread: Re: Function as an argument
  • Next by thread: Re: Function as an argument