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