MathGroup Archive 2007

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

Search the Archive

Re: apparently I don't know how to use Map (or Apply or


m = {{0.098, 0.951, 0.954}, {0.509, 0.914, 0.487}};

Table[m[[i, i]], {i, Length[m]}]

{0.098,0.914}

i = 1; #[[i++]] & /@ m

{0.098,0.914}

New in v6:

Diagonal[m]

{0.098,0.914}


Bob Hanlon

---- dbsearch04 at yahoo.com wrote: 
> I started with this:
> 
> m = {{0.098, 0.951, 0.954}, {0.509, 0.914, 0.487}}
> 
> I tried to do this
> 
> Table[#[[i, i]], {i, Length[#]}] & /@ m
> 
> It does not work, but this works
> 
> Diag := Function[x, Table[x[[i, i]], {i, Length[x]}]]; Diag[m]
> 
> !@#$%^&*(
> 
> Can anyone tell me why? I also tried: Apply, MapThread,
> DiagonalMatrix, TakeMatrix, adding () around the pure function...
> 
> I know that this is a simple problem. Would Evaluate help?
> 
> TIA.
> 
> Regards..
> 
> 



  • Prev by Date: Re: simple question
  • Next by Date: Using Scaled[] in WindowSize
  • Previous by thread: Re: How to show the plot in Module[{}, ]?
  • Next by thread: Using Scaled[] in WindowSize