Re: Converting Binary form to a desired array
- To: mathgroup at smc.vnet.net
- Subject: [mg76042] Re: [mg75980] Converting Binary form to a desired array
- From: DrMajorBob <drmajorbob at bigfoot.com>
- Date: Tue, 15 May 2007 04:55:08 -0400 (EDT)
- References: <25563270.1179130976437.JavaMail.root@m35>
- Reply-to: drmajorbob at bigfoot.com
Clear[powers] powers[n_Integer, base_: 2] := Module[{d = IntegerDigits[n, base], r}, r = HoldForm /@ Range[Length@d - 1, 0, -1]; d base^r ] p = powers[212] {p, Total@p, Plus @@ p} ReleaseHold[%] {2^7,2^6,0,2^4,0,2^2,0,0} {{2^7,2^6,0,2^4,0,2^2,0,0},2^2+2^4+2^6+2^7,2^2+2^4+2^6+2^7} {{128,64,0,16,0,4,0,0},212,212} p = powers[212, 3] {p, Total@p, Plus @@ p} ReleaseHold[%] {2 3^4,3^3,2 3^2,3^1,2 3^0} {{2 3^4,3^3,2 3^2,3^1,2 3^0},2 3^0+3^1+2 3^2+3^3+2 3^4,2 3^0+3^1+2 = 3^2+3^3+2 3^4} {{162,27,18,3,2},212,212} Bobby On Mon, 14 May 2007 02:45:32 -0500, athlonspell <athlonspell at yahoo.ca> = wrote: > Hello, > > I have this: > >> BaseForm[212,2] = 10100 > > Now, I am trying to achieve this output from above: > >> {2^4, 0, 2^2, 0, 0} > > How do I go about do this? > > Thank you, > Sharon > > -- = DrMajorBob at bigfoot.com