       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)
• 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
>
>

```

• Prev by Date: Re: Mathematica 5.2 and mathssh
• Next by Date: Re: NIntegrate::inum
• Previous by thread: Re: Re: 3d plots in mathematica 5.0
• Next by thread: Re: Re: Re: 3d plots in mathematica 5.0