MathGroup Archive 2005

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

Search the Archive

Re: Re: spiral cipher

  • To: mathgroup at smc.vnet.net
  • Subject: [mg55856] Re: [mg55833] Re: spiral cipher
  • From: DrBob <drbob at bigfoot.com>
  • Date: Fri, 8 Apr 2005 01:36:28 -0400 (EDT)
  • References: <200504070910.FAA12939@smc.vnet.net>
  • Reply-to: drbob at bigfoot.com
  • Sender: owner-wri-mathgroup at wolfram.com

Use RealDigits[Pi,10,10000].

Bobby

On Thu, 7 Apr 2005 05:10:18 -0400 (EDT), zak <chocolatez at gmail.com> wrote:

> 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
> To: mathgroup at smc.vnet.net
> Reply-To: zak <chocolatez at gmail.com>
> Subject: [mg55856] [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
> To: mathgroup at smc.vnet.net
> Reply-To: drbob at bigfoot.com
> Subject: [mg55856] [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
>
>
>
>



-- 
DrBob at bigfoot.com


  • Prev by Date: Re: Re: How do I remove operator status?
  • Next by Date: Re: Newly Released Mathematica 5.1 Delivers Unmatched Performance for Handling Data
  • Previous by thread: Re: spiral cipher
  • Next by thread: Re: Re: spiral cipher