Re: spiral cipher
- To: mathgroup at smc.vnet.net
- Subject: [mg55833] Re: spiral cipher
- From: zak <chocolatez at gmail.com>
- Date: Thu, 7 Apr 2005 05:10:18 -0400 (EDT)
- Reply-to: zak <chocolatez at gmail.com>
- Sender: owner-wri-mathgroup at wolfram.com
sorry for the mistake, i mean ploting the first 10000 digits of pi will show the figure: http://img131.exs.cx/my.php?loc=img131&image=graph2mg.jpg indeed i have a difficulty in copy and past from N[Pi,10000] and then IntegerDigits[...10000digits] then copy the result and paste to dat variable. regards zak =========================== From: zak <chocolatez at gmail.com> To: mathgroup at smc.vnet.net Reply-To: zak <chocolatez at gmail.com> Subject: [mg55833] Re: spiral cipher Reply | Reply to all | Forward | Print | Add sender to Contacts list | Trash this message | Report phishing | Show original Thanks DrBob yes this is what i want ,a move like the LOGO language instructions, i wish wolfram may have special functions for this, this has a benefit for controling small toy cars via mathlink like move left up right down and so on, or with an angle. if we give the first 1000 digits of Pi as a list to DrBob routine we will see a plot something like the continents of the earth, try it regards zak =============================== From: DrBob <drbob at bigfoot.com> To: mathgroup at smc.vnet.net Reply-To: drbob at bigfoot.com Subject: [mg55833] Re: [mg55777] Re: spiral cipher Reply | Reply to all | Forward | Print | Add sender to Contacts list | Trash this message | Report phishing | Show original I understood the problem very differently: dat = (ToCharacterCode["i love apples and cats"] /. (32 -> Sequence[])) - 96; right = {1, 0}; north = {0, 1}; Show@Graphics@Line@FoldList[ Plus, {0, 0}, dat*PadRight[{}, Length@dat, {right, north, -right, -north}]] Bobby
- Follow-Ups:
- Re: Re: spiral cipher
- From: DrBob <drbob@bigfoot.com>
- Re: Re: spiral cipher