Re: multiplying, element wise, a row by each column of a matrix.
- To: mathgroup at smc.vnet.net
- Subject: [mg126992] Re: multiplying, element wise, a row by each column of a matrix.
- From: "djmpark" <djmpark at comcast.net>
- Date: Fri, 22 Jun 2012 03:01:54 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <30651597.72253.1340272029669.JavaMail.root@m06>
v = {v1, v2};
mat = {{a11, a12}, {a21, a22}, {a31, a32}};
v # & /@ mat
{{a11 v1, a12 v2}, {a21 v1, a22 v2}, {a31 v1, a32 v2}}
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/index.html
From: Nasser M. Abbasi [mailto:nma at 12000.org]
Any one can think of a better way to do this?
The problem: Given a row vector
v={v1,v2}
and matrix with same number of columns as v, such as
mat={{a11, a12},
{a21, a22},
{a31, a32}};
I need to multiply v1 by the first column, then multiply v2 by the second
column. (i.e. scale each column of the matrix by the corresponding "weight"
from the row).
This results in
{{a11 v1, a12 v2},
{a21 v1, a22 v2},
{a31 v1, a32 v2}}
I wanted to find a 'smart' way or good command to do it, but so far, had to
do it the hard way. I'll show 2 methods. May be you can find a better
functional way to solve this:
1)
Transpose[MapThread[#1 #2 &, {v, Transpose[mat]}]]
This is not natural solution. need to transposes
2 times.
2)
KroneckerProduct[{v[[#]]},mat[[All,#]]]&/@ Range[1,Length[v]]
Transpose[Flatten[%, 1]]
also not too natural. Faltten, transpose, etc... not good.
Fyi, using another system, which starts with the letter 'O' and ends with
the letters 'VE', I can do the above using
v .* mat
Where the ".*" above means element by element product.
I hope the experts here can find a short/better way to do this. I am sure
there is, I just can't find it yet, and I am not happy with what I came up
with so far.
thanks,
--Nasser