MathGroup Archive 2000

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

Search the Archive

Re: Q: Plot3D bug?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg22794] Re: [mg22727] Q: Plot3D bug?
  • From: Bojan Bistrovic <bojanb at python.physics.odu.edu>
  • Date: Sat, 25 Mar 2000 03:58:32 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

>    howdy,
> 
> i have to make a 3D-plot.
> 
> The function evaluatetd will take about 15 sec for one Plotpoint.
> Setting ab the 3D Plot
> 
> Plot3D[f[x,y],{x,0,10},{y,0,10}, PlotPoints->{2,2}]
> 
> will take about 5 minutes and then it filled up my memory (128MB +
> 128MB Swap) and still has no result.
> 
> 
> System: NT4SP5 Mathematica 3.01
> 
> 
> Any Hints?
> 
> 	Christoph
> 
> -- 
> the adress is valid
> for faster reply use handel at the same host
> 
Yes. Calculate the function values at a grid of points and either add them to
a list or export them to a file (depending on your requirements). You have to
do it just once. Then you import the data and interpolate. Here's an example:

In[1]:= f[x_,y_]:=Sin[x*y]
In[2]:= temp={};
In[3]:= Do[AppendTo[temp,{x,y,f[x,y]}],{x,0,6},{y,0,6}];
In[4]:= f2=Interpolation[temp];
In[5]:= Plot3D[f2[x,y],{x,0,6},{y,0,6},PlotPoints->{20,20}]

You have to be careful with the number of points; in the example above not
enough points are taken so the result isn't even close to the real one:

In[6]:= temp={};
In[7]:= Do[AppendTo[temp,{x,y,f[x,y]}],{x,0,6,0.25},{y,0,6,0.25}]
In[8]:= f3=Interpolation[temp];
In[9]:= Plot3D[f3[x,y],{x,0,6},{y,0,6},PlotPoints->{20,20}]

Bye, Bojan

--
---------------------------------------------------------------------
Bojan Bistrovic,                                      bojanb at jlab.org
Old Dominion University, Norfolk VA & Jefferson Lab, Newport News, VA
---------------------------------------------------------------------


  • Prev by Date: Re: Color parentheses matching ?
  • Next by Date: Re: how to find roots of Bessel zero's
  • Previous by thread: Re: Q: Plot3D bug?
  • Next by thread: Generate an Executable Code From Mathematica