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

MathGroup Archive 2001

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

Search the Archive

Re: column * row ??(2)

  • To: mathgroup at smc.vnet.net
  • Subject: [mg28846] Re: column * row ??(2)
  • From: "Allan Hayes" <hay at haystack.demon.co.uk>
  • Date: Tue, 15 May 2001 00:59:20 -0400 (EDT)
  • References: <9dlcc6$o2p@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

I should have added the following alternative way of dealing with the
problem arising from the attribute Flat noted at the  end of my previous
posting on this topic.

ClearAttributes[GCD, {Listable, Protected}]
SetAttributes[GCD,{OneIdentity}]

GCD[x_List]:= GCD@@x

GCD[{3,6}]

        3

Protect[GCD];

--
Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565

"J.R. Chaffer" <jrchaff at mcn.net> wrote in message
news:9dlcc6$o2p at smc.vnet.net...
> Hi there,
>
> Can someone tell me a way to mimic the building of
> an N x N matrix by multiplying a column vector
> on left times a row vector on right ? (both vectors
> of length N) - I mean in Mathematica, of course.
>
> i.e, want the result,
>
> (colvec){a1,a2, .. aN} * (rowvec){b1,b2,..bN} =
>
> result is matrix:
>
> {{a1*b1  a1*b2 .....  a1*bN},
>  {a2*b1  a2*b2 .....  a2*bN},
>   ...     ...          ...  ,
>  {aN*b1  aN*b2 .....  aN*bN}}
>
>
> When I try this in Mathematica all I can figure out
> how to produce is the standard dot-product.  If I
> try the 'transposed' lists/matrices, I get an error,
> even tho the product is defined by basic rules of
> matrix multiplication.
>
> Thanks,
>
> John Chaffer
>




  • Prev by Date: RE: Re: Problem overriding simple built-in functions
  • Next by Date: Re: column * row ??
  • Previous by thread: AW: Exponential Equations
  • Next by thread: Plot3D