Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Re: spiral cipher

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

In this one I see a face amidst the fractal continents.

dat = First@RealDigits[Pi, 10, 15000];
right = {1, 0}; north = {0, 1};
Show@Graphics@Line@FoldList[
     Plus, {0, 0}, dat*PadRight[{}, Length@dat, {right, north, -right, \
-north}]];

Bobby

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

> 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: [mg55855] [mg55830] 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
>
> - Hide quoted text -
>
> On Wed, 6 Apr 2005 03:11:05 -0400 (EDT), dh <dh at metrohm.ch> wrote:
>
>> Hi zak,
>> here a short solution:
>> get some data:
>> dat = ToCharacterCode["i love apples and cats"];
>> calculate the spiral
>> res = {};
>> Fold[(AppendTo[res, {#1 + {#2[[1]], 0}, #1 + {0, #2[[2]]}, #1 +
>>     {-#2[[3]], 0}, #1 + {0, -#2[[1]]} } ]; {0, -#2[[1]]} ) & , {0, 0} ,
>> Partition[dat, 4] ];
>> and draw it:
>> Show[Graphics[Line[Flatten[res, 1]]]];
>>
>>
>> zak wrote:
>>> spiral cipher
>>> suppose i have the string "i love apples and cats"
>>> the sentence composed from 18 letters. we will neglect space letter.
>>> if we give to every letter a value which depend on the english
> alphabet such as:
>>> a=1; b=2 ; c=3; d=4;...; i=9;...; l=12 ...
>>> now i pick the letters one by one:
>>> I=9  plot 9 units to the right
>>> L=12  plot 12 units to the north
>>> O=15  plot 15 units to the left
>>> V=22  plot 22 units to the south
>>> E=5  plot 5 units to the right
>>> and so on...
>>>
>>> this will create a messy spiral but it will represent our string.
>>> we may dream to see some patterns in poets or similar texts.
>>> i hope someone may have an idea about how to draw this messy spiral
>>> cipher using mathematica
>>> we will see if the letters of some texts will crawl to some
>>> directions, or it will clutter arround the center point
>>> and if someone could construct a text wich when spiralling it will
>>> crawl to the north as an example. or may plot a bird figure.
>>> regards
>>>
>>> zak
>
>
>
>



-- 
DrBob at bigfoot.com

• Follow-Ups:
  • Re: Re: Re: spiral cipher
    • From: János <janos.lobb@yale.edu>

• References:
  • Re: spiral cipher
    • From: zak <chocolatez@gmail.com>