Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*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 2005

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

Search the Archive

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


  • Prev by Date: Re: How do I remove operator status?
  • Next by Date: Complex Function Graphics for Mathematica
  • Previous by thread: spiral cipher
  • Next by thread: Re: Re: spiral cipher