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>