Re: Plot3D animation problems.
- To: mathgroup at smc.vnet.net
- Subject: [mg46732] Re: Plot3D animation problems.
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 4 Mar 2004 00:47:27 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <c238cc$ig6$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi, a) your posting doen not include the definition of the Sincphase[x_,t_] function b) you have to separate the expression and the iterator in Table[] by a comma Table[Plot3D[___],{time,1,1}] Regards Jens lindseyp wrote: > > Hi. I'm trying to make a small animation of a 3D Sinc function with a phase > element added: > > Sinc[0] := 1; > Sinc[0.] := 1; > Sinc[x_] := Sin[x]/x; > sincmovie = Table[ > Plot3D[ > Sincphase[(x x+y y)^(1/2),time] , {x,-20,20}, {y,-20,20} > , PlotPoints->80, PlotRange->{-0.5, 1}, Mesh->False] > {time, 1, 1}]; > > A single frame using a fixed value for 'time' plots fine, but when I try to > plot the whole table I get: > > Plot3D::plnc: Sincphase[(*)Sqrt(xx+yy), time] is \ > neither a machine-size real number at x, y={20,20} > \) nor a list of a real number and a valid color directive."\) > > ((*)Sqrt substituted for symbol) . as if the 'time' variable is not being > evaulated. Am I doing something wrong?