Re: 3D Plots
- To: mathgroup at smc.vnet.net
- Subject: [mg6467] Re: [mg6422] 3D Plots
- From: el at qua.crl.melco.co.jp (E. Lange)
- Date: Sun, 23 Mar 1997 13:22:49 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
> lpt=Table[{x,y,30Exp[-(x^2-y^2)/.001]},{x,-.0005,.0005,.00005},{
> y,-.0005,.0005,.00005}];
> ListSurfacePlot[lpt];
>
> The plot looks wonderful if I replace the 30 with a small number like
> one or two. The plot is totally unrecognizeable for a large number like
> 2000. Any ideas?
ListSurfacePlot3D[lpt, BoxRatios -> {1, 1, 0.4}]
gets this right. BoxRatios -> {1, 1, 0.4} is the default setting for
Plot3D (see the output of Options[Plot3D]).
I hope this helps --- Eberhard Lange