# Documentation of cometnew

Global Index (all files) (short | long) | Local Index (files in subdir) (short | long)

## Function Synopsis

`comet(x, y, p)`

## Help text

```COMET  Comet-like trajectory.
COMET(Y) displays an animated comet plot of the vector Y.
COMET(X,Y) displays an animated comet plot of vector Y vs. X.
COMET(X,Y,p) uses a comet of length p*length(Y).  Default is p = 0.10.

Example:
t = -pi:pi/200:pi;
comet(t,tan(sin(t))-sin(tan(t)))

```

## Listing of function cometnew

```function comet(x, y, p)

%   Charles R. Denham, MathWorks, 1989.
%   Revised 2-9-92, LS and DTP; 8-18-92, 11-30-92 CBM.
%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   \$Revision: 5.8 \$  \$Date: 1997/11/21 23:46:03 \$

if nargin == 0, error('Not enough input arguments.'); end
if nargin < 2, y = x; x = 1:length(y); end
if nargin < 3, p = 0.10; end

ax = newplot;
if ~ishold,
axis([min(x(isfinite(x))) max(x(isfinite(x))) ...
min(y(isfinite(y))) max(y(isfinite(y)))])
end
co = get(ax,'colororder');

if size(co,1)>=3,
tclr = get(ax, 'color');
% Choose first three colors for head, body, and tail
'xdata',x(1),'ydata',y(1));
body = line('color',co(2,:),'linestyle','-','erase','none', ...
'xdata',[],'ydata',[]);
tail = line('color',tclr,'linestyle','-','erase','none', ...
'xdata',[],'ydata',[]);
else
% Choose first three colors for head, body, and tail
'xdata',x(1),'ydata',y(1));
body = line('color',co(1,:),'linestyle','--','erase','none', ...
'xdata',[],'ydata',[]);
tail = line('color',co(1,:),'linestyle','-','erase','none', ...
'xdata',[],'ydata',[]);
end

m = length(x);
k = round(p*m);

% Grow the body
for i = 2:k+1
j = i-1:i;
set(body,'xdata',x(j),'ydata',y(j))
drawnow
end

% Primary loop
for i = k+2:m
j = i-1:i;