Re: Simple 3D Graph
- To: mathgroup at smc.vnet.net
- Subject: [mg7324] Re: [mg7288] Simple 3D Graph
- From: "w.meeussen" <w.meeussen.vdmcc at vandemoortele.be>
- Date: Fri, 23 May 1997 02:23:31 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
At 09:19 22-05-97 -0400, Manuel A. Morales wrote:
>I have the following output that I want to plot as an x,y,z surface
>plot in Mathematica 3.0. This seems like it should be simple, but I am
>having a hard time figuring it out. Does anyone have a solution?
>
>Thanks,
>Manuel Morales
>
>In[121]:=
>output=Transpose[{x,y,results}]
>Out[121]=
>{{-2,-2,0.134047},{-2,-1,0.874098},{-2,0,1.63303},{-2,1,0.874098},{-2,2,
> 0.134047},{-1,-2,0.874098},{-1,-1,5.69983},{-1,0,10.6487},{-1,1,
>
>5.69983},{-1,2,0.874098},{0,-2,1.63303},{0,-1,10.6487},{0,0,19.8944},{0,1,
>
>10.6487},{0,2,1.63303},{1,-2,0.874098},{1,-1,5.69983},{1,0,10.6487},{1,1,
>
>5.69983},{1,2,0.874098},{2,-2,0.134047},{2,-1,0.874098},{2,0,1.63303},{2,
> 1,0.874098},{2,2,0.134047}}
>
>
>
try:
ListPlot3D[data]
test it with:
data=Table[3. E^-((x-1)^2+y^2) +2 E^-((x+1)^2+(y-1)^2),{x,-2,2,.2},{y,-2,2,.2}];
have fun,
Dr. Wouter L. J. MEEUSSEN
eu000949 at pophost.eunet.be
w.meeussen.vdmcc at vandemoortele.be