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 -