Re: spiral cipher

*To*: mathgroup at smc.vnet.net*Subject*: [mg55975] Re: spiral cipher*From*: Paul Abbott <paul at physics.uwa.edu.au>*Date*: Tue, 12 Apr 2005 05:26:44 -0400 (EDT)*Organization*: The University of Western Australia*References*: <200504070910.FAA12922@smc.vnet.net> <200504080536.BAA25092@smc.vnet.net> <d382rv$cdp$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

In article <d382rv$cdp$1 at smc.vnet.net>, János <janos.lobb at yale.edu> wrote: > 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]; You could just write datgp = Rule @@@ Partition[dat, 2, 1]; Cheers, Paul -- Paul Abbott Phone: +61 8 6488 2734 School of Physics, M013 Fax: +61 8 6488 1014 The University of Western Australia (CRICOS Provider No 00126G) 35 Stirling Highway Crawley WA 6009 mailto:paul at physics.uwa.edu.au AUSTRALIA http://physics.uwa.edu.au/~paul

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

**Re: Re: spiral cipher***From:*DrBob <drbob@bigfoot.com>