Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

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

Search the Archive

Re: basic questions

  • To: mathgroup at smc.vnet.net
  • Subject: [mg87372] Re: basic questions
  • From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
  • Date: Wed, 9 Apr 2008 05:52:39 -0400 (EDT)
  • Organization: The Open University, Milton Keynes, UK
  • References: <ftfeeq$bqp$1@smc.vnet.net>

markus.mooslechner at chello.at wrote:

<snip>

> - and number three: how can i tell mathematica to do the following: take an irrational number such as PI. now create a list according to the following rule: 3.14159265 ....->
> x,y,z
> 3,1,4
> 1,5,9
> 2,6,5
> ..,.,.

Hi Markus,

The following examples should be of interest. First, we build a list of 
points pts that contains triple made of the first twenty-four digits of 
pi. Then we use several built-in functions to visualize and interact 
with the list (or dynamically build a new list).

pts = Partition[First@RealDigits[Pi, 10, 24], 3]

ListPlot3D[pts]

ListContourPlot@pts

Manipulate[
  ListContourPlot@Partition[First@RealDigits[Pi, 10, n], 3], {n, 9,
   192, 3}]

Animate[ListContourPlot@Partition[First@RealDigits[Pi, 10, n], 3], {n,
    9, 192, 3}]

Animate[ListDensityPlot[Partition[First@RealDigits[Pi, 10, n], 3],
   ColorFunction -> "SunsetColors"], {n, 9, 384, 3}]


Regards,
-- Jean-Marc


  • Prev by Date: Re: Filling problem in Plot3D
  • Next by Date: Re: Just primitive ColorFunction
  • Previous by thread: Re: basic questions
  • Next by thread: question on player pro