Re: noob questions :)

• To: mathgroup at smc.vnet.net
• Subject: [mg87362] Re: noob questions :)
• From: Oliver Ruebenkoenig <ruebenko at uni-freiburg.de>
• Date: Tue, 8 Apr 2008 07:16:49 -0400 (EDT)
• References: <ftfegg\$bsg\$1@smc.vnet.net>

```Hi Markus,

On Tue, 8 Apr 2008, markus.mooslechner at chello.at wrote:

> hi everyone!
>
> first of all i would like to introduce myself. being an artist i am
> mainly engaged in the visualization of chaotic systems such as iterated
> function systems or strange attractors from experimental data. i
> consider
> myself a completely mathematica noob (willing to learn ::)) i got
> introduced to mathematica by a friend who works in the math institute at
> our local university (hence, that's where i spent most of my recent time
> ... lol). to get myself started with the project i have in mind i could
> use some help, which i have not found in the databases yet:
>
> - how can i tell mathematica to import a three-column (x,y,z) txt file
> and do a 3d plot from the values. i already messed with the ListPlot3D
> command , unfortunately to no avail. the file containing the
> experimental data looks something like this:
> point,x,y,z
> 1,34,21,45
> 2,32,53,76
> 3,12,23,43
> 4,45,21,87
> 5,65,76,87
> etc
>

Import["test.t", "Table"][[All, {2, 3, 4}]]

for rest of question see further down.

> - how can i then tell mathematica to color certain values from this data list with a color from my choice? eg: color the values X "red" (X could be something like the mean value of the entire list)
>
> - is the a function that makes a list from an irrational number such as PI according to the above list format? something like 3.14159265...
> x,y,z
> 1,4,1
> 5,9,2
> 6,5,.
> .,.,.,.
> etc
>

d = 100;
data = Partition[ First[ RealDigits[ N[Pi, Floor[ d / 3 ] * 3] ] ], 3 ];

> looking really forward to get the hang of it and then get the program
> at my own place to integrate it in my work.
> looking forward to your help & thank you for your time :)
>
> markus
>
> www.humanchaos.net
>
>
>

For *unstructured* Plots look at:
http://www.imtek.uni-freiburg.de/simulation/mathematica/IMSweb/imsTOC/Utlities/Graphics/UnstructuredPlotDocu.html

On how to get the connectivity between the points look at

http://www.imtek.uni-freiburg.de/simulation/mathematica/IMSweb/imsTOC/Computational%20Geometry/Meshes/MesherUtilitiesDocu.html

and in 3D   (you need additional software for this)

http://www.imtek.uni-freiburg.de/simulation/mathematica/IMSweb/imsTOC/Interfaces/QHullInterfaceDocu.html

http://www.qhull.org/

the code may look like:

d = 100;
data = Partition[ First[ RealDigits[ N[Pi, Floor[ d / 3 ] * 3] ] ],
3 ];

Needs["Imtek`Interfaces`QHullInterface`"]

dp = imsDelaunay[data];

Needs["Imtek`UnstructuredPlot`"]

imsUnstructuredMeshPlot[data, dp, Boxed -> False]

hth,

oliver

Oliver Ruebenkoenig, <ruebenko AT uni-freiburg.de>

```

• Prev by Date: Re: basic questions
• Next by Date: pdf and accents
• Previous by thread: noob questions :)
• Next by thread: Re: noob questions :)