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