Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

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

Search the Archive

Re: For Loop problem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg65611] Re: For Loop problem
  • From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
  • Date: Tue, 11 Apr 2006 04:04:19 -0400 (EDT)
  • Organization: Uni Leipzig
  • References: <e1cup6$emo$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

lst = Table[i, {i, 2040, 2060}];

If[# > 2048, # - 2048, # + 2048] & /@ lst

and the loop is gone .

Regards

  Jens

"Rob" <rob at piovere.com> schrieb im Newsbeitrag 
news:e1cup6$emo$1 at smc.vnet.net...
| I've got to manipulate some signed 12bit integer 
numbers from a file and
| apparently Mathematica only handles 8 and 16 bit 
signed numbers
| (probably for a very good reason). So I bring 
them in as 16 bits (and
| they're stored that way with a leading zero 
nibble) and then I have to
| do the following to make sense of them.  I 
really don't know why this
| code works but it does.
|
| For[i = 1, i < Length[y], i++, If[y[[i]] > 2048, 
y[[i]] =
|     y[[i]] - 2048, y[[i]] = y[[i]] + 2048]];
|
| So to my question: once again I had to resort to 
a For loop to pull this
| off and I know this is a no-no.  But I'm so 
clueless about Mathematica
| that I've never come up with a more 
sophisticated method after a year or
| so of thinking about it. Can someone help (as 
they usually can)?
|
| Thanks, Rob
| 



  • Prev by Date: Re: For Loop problem
  • Next by Date: Re: Problem with the Hannan Rissanen procedure
  • Previous by thread: Re: For Loop problem
  • Next by thread: Re: For Loop problem