Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • 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