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: Re: Re: spiral cipher


It is interesting to see it with different bases.  For example with  
base 4

dat = First[RealDigits[Pi, 4, 15000]];

you get the upside down Americas.

It is very sensitive for base change, even after 15000.

Now if you add

In[5]:=
<< "DiscreteMath`GraphPlot`"
In[72]:=
datgp = (#1[[1]] ->
       #1[[2]] & ) /@
     Partition[dat, 2, 1];

<< RealTime3D`
In[73]:=
GraphPlot3D[datgp,
   "RootPosition" -> Center,
   Method -> "Automatic"]

to it, then you can see different "solids" in 3D.  With base 8 it is  
not a cube, but something else.  With base 10000 Show@Graphics will  
give a knewling camel and GraphPlot3D will give some "solar flares".

Now if you go with the base way beyond 15000, then GraphPlot3D will  
show Big Bang backwards.  150001 gives an indication how the dark  
matter distribution is and 1500009 shows what was the situation  
before "enlightenment".  Finally at  base 105000009 I can see that  
the whole Universe were created from a necktie :)

It is also interesting to see how it is changing when you do it with  
base 2.5 and with 5/2.

János
On Apr 8, 2005, at 1:36 AM, DrBob wrote:

> 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: [mg55901] [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



----------------------------------------------
Trying to argue with a politician is like lifting up the head of a  
corpse.
(S. Lem: His Master Voice)


  • Prev by Date: Re: Computation speeds: numerical vs symbolic
  • Next by Date: Re: Re: Bug in Archive Searches
  • Previous by thread: Re: Re: spiral cipher
  • Next by thread: Re: spiral cipher