Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: How to apply a list of functions

  • To: mathgroup at smc.vnet.net
  • Subject: [mg112957] Re: How to apply a list of functions
  • From: John Jowett <john.m.jowett at gmail.com>
  • Date: Thu, 7 Oct 2010 03:38:43 -0400 (EDT)
  • References: <i8h7jm$cea$1@smc.vnet.net>

Another way is:

Map[#[x] &, {{Sin, Cos}, {Sec, Csc}}, {-1}]

To deal with David Park's point, you can do

#[x] & /@ {(3 Sin[#] &), Cos}

John Jowett


On Oct 6, 9:13 am, Bob Hanlon <hanl... at cox.net> wrote:
> Through[#[x]] & /@ {{Sin, Cos}, {Sec, Csc}}
>
> {{Sin[x], Cos[x]}, {Sec[x], Csc[x]}}
>
> Bob Hanlon
>
> ---- Sam Takoy <sam.ta... at yahoo.com> wrote:
>
> =============
> On 10/3/2010 5:41 AM, Adriano Pascoletti wrote:
>
>
>
> > Something like this?
>
> > In[3]:= Through[{Sin, Cos}[x]]
> > Out[3]= {Sin[x], Cos[x]}
>
> > In[4]:= Through[{Sin, Cos}[{z1, z2, z3}]]
> > Out[4]= {{Sin[z1], Sin[z2], Sin[z3]}, {Cos[z1], Cos[z2], Cos[z3]}}
>
> > Adriano Pascoletti
>
> > 2010/10/3 Sam Takoy<sam.ta... at yahoo.com>
>
> >> Hi,
>
> >> As a follow up to my question about apply {Sin, Cos} to x, I came up
> >> with the tasteless
>
> >> Map[Apply[#, {x}]&, {Sin, Cos}]
>
> >> but I expect that the pros in this ng will be able to improve upon it.
>
> >> Thanks,
>
> >> Sam
>
> Hi,
>
> Thanks to all who suggested Through.
>
> It works of a List of functions, but doesn't work for a List of a List
> of functions, such as {{Sin}, {Cos}}. Is there a way to make it work?
>
> Thanks!
>
> Sam- Hide quoted text -
>
> - Show quoted text -



  • Prev by Date: No extrapolation warning on Plot
  • Next by Date: Re: change the base of the Log[] used by LogLogPlot?
  • Previous by thread: Re: How to apply a list of functions
  • Next by thread: Frame and AbsoluteOptions