Re: Plotting triplets

• To: mathgroup at smc.vnet.net
• Subject: [mg22374] Re: Plotting triplets
• From: "Allan Hayes" <hay at haystack.demon.co.uk>
• Date: Sat, 26 Feb 2000 22:05:00 -0500 (EST)
• References: <897dtn\$5q3@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Leon:

tmp is a file withe 3D coordinaate data

!! tmp

4.4,14,3.87814
6.7,15.25,3.1221
6.9,12.8,6.30476
2.1,11.1,4.42493
9.5,14.9,3.76032
13.2,11.9,4.66369
10.3,12.3,6.34192
6.8,9.5,7.76595
3.3,7.7,6.46684
0.6,5.1,0.911043
5.3,2.4,5.03488
8.45,4.7,7.27375
11.5,9.6,7.01356
13.8,7.3,5.46535
12.9,3.1,3.9975
11,1.1,2.71846

Read it in as a Mathematica matrix

data = ToExpression[
ReadList["tmp", {Word, Word, Word}, WordSeparators -> {","}]]

{{4.4, 14, 3.87814}, {6.7, 15.25, 3.1221}, {6.9, 12.8, 6.30476}, {2.1, 11.1,
4.42493}, {9.5, 14.9, 3.76032}, {13.2, 11.9, 4.66369}, {10.3, 12.3,
6.34192}, {6.8, 9.5, 7.76595}, {3.3, 7.7, 6.46684}, {0.6, 5.1,
0.911043}, {5.3, 2.4, 5.03488}, {8.45, 4.7, 7.27375}, {11.5, 9.6,
7.01356}, {13.8, 7.3, 5.46535}, {12.9, 3.1, 3.9975}, {11, 1.1, 2.71846}}

Plot this with

<<DiscreteMath`ComputationalGeometry`

TriangularSurfacePlot[data2];

Allan
---------------------
Allan Hayes
Mathematica Training and Consulting
Leicester UK
www.haystack.demon.co.uk
hay at haystack.demon.co.uk
Voice: +44 (0)116 271 4198
Fax: +44 (0)870 164 0565

"L Lobo" <leonlobo at hotmail.com> wrote in message
news:897dtn\$5q3 at smc.vnet.net...
> I have a comma separated file containing triplets (xyz coordinates). How
do
> I go about plotting them in Mathematica. They are not equispaced in any
way.
> I need to produce a surface plot. Any help would be appreciated. Thanks
>
> --
> Leon Lobo

```

• Prev by Date: Re: algebraic manipulation
• Next by Date: Re: ListPlot with missing values
• Previous by thread: Plotting triplets
• Next by thread: Lost myHead, please help !!!