help-octave
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

## Re: help with gnuplot

 From: John Eaton Subject: Re: help with gnuplot Date: Mon, 26 Jun 95 00:52:36 EDT

```address@hidden (Shu-Kit Yeung) wrote:

: I am seeking help for using octave to make "movies" for sequence of
: plots like MATLAB can. I will be thankful if any one can give the
: information. Thank you for your attention!!

The following example should sort of work, at least on an X display
and a fast machine.  It doesn't actually generate a movie (like an
MPEG file), it just displays a series of plots.  (I would certainly
welcome changes for generating MPEG files if someone wants to do the
work.)

Thanks,

jwe

-------------------------------hat_movie.m-------------------------------
function hat_movie (nlines, nframes)

# usage: hat_movie (nlines, nframes)
#
# Draw a series of `sombreros' in three dimensions using `nlines' grid
# lines.  The function plotted is
#
#   z = k * sin (x^2 + y^2) / (x^2 + y^2);
#
# where k varies between 0 and 1.

if (nargin == 0)
nlines = 31;
nframes = 7;
elseif (nargin == 1)
nframes = 7;
elseif (nargin > 2)
error ("usage: hat_movie (nlines, nframes)");
endif

set zrange [-0.6:1.1]

for i = 1:nframes

if (nframes > 1)
k = (i-1)/(nframes-1);
else
k = 1;
endif

x = y = linspace (-8, 8, nlines)';
[xx, yy] = meshdom (x, y);
r = sqrt (xx .^ 2 + yy .^ 2) + eps;
z = k * sin (r) ./ r;

mesh (x, y, z);

endfor

endfunction

```

reply via email to

 [Prev in Thread] Current Thread [Next in Thread]