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>
• 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
>
> 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?

```

• Prev by Date: Re: To create {{},{},....{}} beyond \$MaxRecursionLimit
• Next by Date: Re: Plot3D animation problems.
• Previous by thread: Re: Plot3D animation problems.
• Next by thread: Symbolic matrix manipulation