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: Dot or Inner ... but not quite

  • To: mathgroup at smc.vnet.net
  • Subject: [mg79667] Re: Dot or Inner ... but not quite
  • From: Ray Koopman <koopman at sfu.ca>
  • Date: Wed, 1 Aug 2007 05:08:06 -0400 (EDT)
  • References: <f8n2rc$lp9$1@smc.vnet.net>

On Jul 31, 3:27 am, "Diamond, Mark" <d... at dot.dot> wrote:
> I have two equi-length lists, the first of number, the second of
> (equi-length) lists of numbers , such as
>
> l1={1,4,3};
> l2={{1,7},{1,9},{5,2}};
>
> I want to produce 1*{1,7}+4*{1,9}+3*{5,2}
>
> It looks so close to Inner that I thought I could use it in some form,
> but I have ended up using
>
> (#[[1]]*#[[2]])& /@ Transpose[{l1,l2}]
>
> Is there a better way using one of the builtin functions with which
> I am unfamiliar?
>
> Cheers,
>
> Mark Diamond

In[1]:= l1 = {1,4,3};
        l2 = {{1,7},{1,9},{5,2}};
        1*{1,7} + 4*{1,9} + 3*{5,2}
Out[3]= {20,49}

In[4]:= Total[l1*l2]
Out[4]= {20,49}

In[5]:= Transpose[l2].l1
Out[5]= {20,49}



  • Prev by Date: Re: Dot or Inner ... but not quite
  • Next by Date: Re: Dot or Inner ... but not quite
  • Previous by thread: Re: Dot or Inner ... but not quite
  • Next by thread: Re: Dot or Inner ... but not quite