Re: Variant of inner Product ...

*To*: mathgroup at smc.vnet.net*Subject*: [mg56755] Re: [mg56683] Variant of inner Product ...*From*: DrBob <drbob at bigfoot.com>*Date*: Thu, 5 May 2005 06:01:38 -0400 (EDT)*References*: <200505040432.AAA06099@smc.vnet.net>*Reply-to*: drbob at bigfoot.com*Sender*: owner-wri-mathgroup at wolfram.com

aa={1,2,3}; bb={{a,b},{c,d},{r,s}}; Transpose@Inner[f,aa,bb,List] {{f[1,a],f[1,b]},{f[2,c],f[2,d]},{f[3,r],f[3,s]}} Bobby On Wed, 4 May 2005 00:32:49 -0400 (EDT), Detlef <Müller at smc.vnet.net> wrote: > Hello, > > I have the following to do: > > Given > > In[1]:= A={1,2,3}; B={{a,b},{c,d},{r,s}}; > > And a Function f, I like to have > > Out[2] = {f[1,a],f[1,b]}+{f[2,c],f[2,d]}+{f[3,r],f[3,s]} > > The trial > > In[8]:=A={1,2,3}; B={{a,b},{c,d,e},{r,s}}; > In[9]:= Inner[f,A,B] > Out[9]= f[1,{a,b}]+f[2,{c,d,e}]+f[3,{r,s}] > > looks promising, > but if the Lists in B have the same length, "Inner" > makes something different: > > In[15]:= > A={1,2,3}; B={{a,b},{c,d},{r,s}}; Inner[f,A,B] > > Out[16]= {f[1,a]+f[2,c]+f[3,r],f[1,b]+f[2,d]+f[3,s]} > > So for now I have an ugly Table-Construction doing the job, > but I can't imagine there is no elegant and clear solution > for this ... any suggestions? > > Greetings, > Detlef > > > > -- DrBob at bigfoot.com

**References**:**Variant of inner Product ...***From:*Detlef Müller@smc.vnet.net