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?