MathGroup Archive 2000

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

Search the Archive

Re: A 3D-list-plot problem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg23133] Re: A 3D-list-plot problem
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Thu, 20 Apr 2000 03:20:52 -0400 (EDT)
  • Organization: Universitaet Leipzig
  • References: <8djkli$7ge@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,


I don't know what you mean with "nice" picture - it depends
on your taste and on the meaning of the data. But you may
have a look at:

<<DiscreteMath`ComputationalGeometry`

TriangularSurfacePlot[data3D]

Regards
  Jens


Hans Friedrich Steffani wrote:
> 
> I have a matrix of tripples {x,y,z}. The x is the same for all
> tripples in a row the y is the same for each tripples in column.
> Some tripples a substitude bei Null as the represent unvalid results.
> 
> The may be deleted by
> Delete[lumpi, Position[lumpi, Null]]
> 
> Now I want a nice 3D-picture.
> 
> Flatten[%, 1];
> ScatterPlot3D[%, BoxRatios -> {1, 1, 0.8}];
> 
> is not very good as there arre only points.
> 
> Flatten[%, 1];
> Show[Map[ScatterPlot3D[#, DisplayFunction -> Identity,
>           PlotJoined -> True] &, %%%], DisplayFunction -> $DisplayFunction,
>     BoxRatios -> {1, 1, .8}];
> 
> does ScatterPlot3D to each row which looks better but not perfekt.
> 
> Any ideas to build a "nice" picture?
> 
> Many thanks, also for answers to my other questions.
> 
> Hans Friedrich Steffani
>


  • Prev by Date: Re: breaking up lists into intervals
  • Next by Date: Re: Clear or remove definitions including Subscripts
  • Previous by thread: Re: A 3D-list-plot problem
  • Next by thread: Comparison of Mathematica on Various Computers