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

how to transform a list in a sequence of arguments?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg77216] how to transform a list in a sequence of arguments?
  • From: "alexxx.magni at gmail.com" <alexxx.magni at gmail.com>
  • Date: Tue, 5 Jun 2007 07:03:54 -0400 (EDT)

I believed it was fairly trivial, yet I was unable to find a
solution ...

say I have a 3d matrix,

In[64]:= s
Dimensions[s]

Out[64]= {{{-1, 1, 1}, {-1, 1, 1}, {-1, 1, 1}}, {{1, 1, 1}, {1, 1, 1},
{1, -1, -1}}, {{1, -1, 1}, {-1, 1, -1}, {-1, 1, -1}}}
Out[65]= {3, 3, 3}

and I want to access&modify it in a procedure, in which the indices
i,j,k are found sequentially: {1,1,1}, {1,1,2}, ....

How can I do it, since s[[{i,j,k}]] is not the same - of course - of
s[[i,j,k]] ???

I finally wrote the construct:

Apply[s[[##]] &, {i,j,k}]

ant this works OK in reading, but not in writing since it reports:

s[[##]] & @@ {1,2,1} = "0"
Set::write: Tag Apply in (s[[##1]]&)@@{1,2,1} is Protected. >>

any idea on how to make it work read/write???

P.S.
it <does> work, for now, because I'm using this (where i0 is the
indices list):
s = ReplacePart[s, i0 -> - Extract[s, i0]];

but I fear that it must be much slower than a Part[] access


Thank you!

Alessandro Magni



  • Prev by Date: Re: Latex and \sum
  • Next by Date: Re: unevaluated expression
  • Previous by thread: Re: NDSolve, Do loop, and Plot
  • Next by thread: Re: how to transform a list in a sequence of arguments?