1## Copyright (C) 1998-2003 Joao Cardoso. 2## 3## This program is free software; you can redistribute it and/or modify it 4## under the terms of the GNU General Public License as published by the 5## Free Software Foundation; either version 2 of the License, or (at your 6## option) any later version. 7## 8## This program is distributed in the hope that it will be useful, but 9## WITHOUT ANY WARRANTY; without even the implied warranty of 10## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 11## General Public License for more details. 12## 13## This file is part of plplot_octave. 14 15 16function p10 17 18 global pl_automatic_replot 19 t = pl_automatic_replot; 20 pl_automatic_replot = 0; 21 22 title("Comet"); 23 xlabel ""; 24 ylabel ""; 25 t = -pi:pi/200:0; 26 comet(t,tan(sin(t))-sin(tan(t))); 27 28 pl_automatic_replot = t; 29 30endfunction 31 32