Re: Re: 3d plots in mathematica 5.0
- To: mathgroup at smc.vnet.net
- Subject: [mg59134] Re: [mg59124] Re: 3d plots in mathematica 5.0
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sat, 30 Jul 2005 01:25:07 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
Needs["Graphics`"];
r0=1.4;z0=1.4;
w[x_,y_,z_]:=
E^(-2(x^2+y^2/r0^2))*E^(-2(z^2/z0^2));
DisplayTogetherArray[
Partition[
Table[
Plot3D[
w[x,y,z],
{x,-1.5r0,1.5r0},
{y,-1.5r0,1.5r0},
PlotRange->{0,1},
AxesLabel->{"x","y","w "},
PlotLabel->"z = " <> ToString[z]],
{z,0,z0,z0/7}],
2],
ImageSize->468];
Bob Hanlon
>
> From: jfitzp at gmail.com
To: mathgroup at smc.vnet.net
> Date: 2005/07/29 Fri AM 12:42:10 EDT
> Subject: [mg59134] [mg59124] Re: 3d plots in mathematica 5.0
>
> Hi,
>
> I would like to plot a 3d gaussian function but I'm having trouble
> getting started. Any help gratefully appreciated.
>
> Fiz.
>
> Here is the function
>
> w=exp(-2(x^2+y^2/r0^2))*exp(-2(z^2/z0^2))
>
> r0=1.4 and z0=1.4
>
>