For Loop problem

*To*: mathgroup at smc.vnet.net*Subject*: [mg65595] For Loop problem*From*: Rob <rob at piovere.com>*Date*: Mon, 10 Apr 2006 02:31:15 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

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

**Follow-Ups**:**Re: For Loop problem***From:*bsyehuda@gmail.com

**Re: For Loop problem***From:*"Carl K. Woll" <carlw@wolfram.com>

**Re: For Loop problem***From:*János <janos.lobb@yale.edu>