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