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

MathGroup Archive 2007

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

Search the Archive

Re: "vector" Map[] / functional outer product?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg83787] Re: "vector" Map[] / functional outer product?
  • From: Norbert Marxer <marxer at mec.li>
  • Date: Fri, 30 Nov 2007 05:26:58 -0500 (EST)
  • References: <fim8tq$rmd$1@smc.vnet.net>

On 29 Nov., 12:48, Mitch Murphy <mi... at lemma.ca> wrote:
> greetings,
>
> is there a simpler way to express
>
>         {f@#,g@#}& /@ {a,b,c}
>
>         -> {{f[a],g[a]},{f[b],g[b]},{f[c],g[c]}}
>
> ie. is there some mathematica function ??? such that
>
>         {f,g} ??? {a,b,c}
>
>         -> {{f[a],g[a]},{f[b],g[b]},{f[c],g[c]}}
>
> you might be asking what's so difficult about the "@#,@#,... & /@"  
> syntax, but what about when you don't have two functions f,g but 8-10  
> functions... the syntax gets ugly fast and hard to read.
>
> note that
>
>         Outer[{f, g}, {a, b, c}]
>
>         -> {{f, g}[a], {f, g}[b], {f, g}[c]}
>
> doesn't work, neither does
>
>         Outer[Apply, {f, g}, {a, b, c}]
>
>         ->{{a, b, c},{a, b, c}}
>
> thanks,
> Mitch

Hello

One way of doint this would be:

    Outer[#2[#1] & , {a, b, c}, {f, g}]

Best Regards
Norbert Marxer


  • Prev by Date: Mathematica: Long divison for polynomials
  • Next by Date: Re: A problem with FindRoot
  • Previous by thread: Re: "vector" Map[] / functional outer product?
  • Next by thread: Re: "vector" Map[] / functional outer product?