Re: 3D plots from lists
- To: mathgroup at smc.vnet.net
- Subject: [mg48744] Re: [mg48706] 3D plots from lists
- From: Christopher Purcell <christopherpurcell at mac.com>
- Date: Fri, 11 Jun 2004 23:59:28 -0400 (EDT)
- References: <200406110752.DAA24891@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Here is a simple example where a text file of triplets of numbers are
created. These are read back in, an Interpolation of them is created,
and then we can plot the Interpolation function as a surface. Is this
what you had in mind?
testdata = Flatten[Table[{x, y, Sin[x y]}, {x, 0, 6, .3}, {y, 0, 6,
.3}], 1];
Export[ "junk.txt", testdata, "Table"];
stream = OpenRead["junk.txt"];
data = ReadList[stream, {Number, Number, Number}];
Clear[f];
f = Interpolation[data];
ParametricPlot3D[{x, y, f[x, y]}, {x, Min[data[[All, 1]]],
Max[data[[All,
1]]]}, {y, Min[data[[All, 2]]], Max[data[[All, 2]]]}]
P.S. If your Fortran created data set uses E format, you may need to do
a fancier read of the data, using StringToStream and Read, rather than
the simpler ReadList.
christopherpurcell at mac.com
On Jun 11, 2004, at 4:52 AM, Giorgio Torrieri wrote:
> This might be naive, but I worked on this problem for days, and the
> users manual seems to be of no help.
>
> I have a 3 column output generated by a FORTRAN program, in the
> following form:
>
> X Y F(X,Y)
>
> Is there any way to make Mathematica understand this format and plot
> it with something like ListPlot3D? It seems to require all 3D plots
> to be square arrays of the form F(X,Y) only, and I would much rather
> not modify the fortran program output.
>
> Thanks for your help
>
> GT
>
- References:
- 3D plots from lists
- From: lunogled@hotmail.com (Giorgio Torrieri)
- 3D plots from lists