MathGroup Archive 2002

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

Search the Archive

Re: cross product


Hi,

since Cross[] is

Table[
    Sum[Signature[{i, j, k}]*x[j]*y[k], {j, 1, 3}, {k, 1, 3}], {i, 1,
3}]

your 4 d cross product of two vectors is a matrix

Table[
    Sum[Signature[{i, j, k, l}]*x[k]*y[l], {k, 1, 4}, {l, 1, 4}], {j, 1, 
      4}, {i, 1, 4}]


Setting the _[4] component to 1 with

Table[Sum[Signature[{i, j, k, l}]*x[k]*y[l], {k, 1, 4}, {l, 1, 4}], {j,
1, 
      4}, {i, 1, 4}] /. _[4] :> 1

gives you the matrix you wish.

Regards
  Jens

Umby wrote:
> 
> Hi group,
> 
> how can I achieve the CrossProduct of two 4*1 vectors (in homogeneous
> coordinate)?
> For instance: CrossProduct[{a,b,c,1},{d,e,f,1}]
> Thanks in advance
> 
> Umby


  • Prev by Date: Re: ReadList speed
  • Next by Date: Re: Help with Importing of FITS files
  • Previous by thread: RE: cross product
  • Next by thread: Re: cross product