Mercurial > hg > octave-lyh

comparison doc/interpreter/interpimages.m @ 7257:e8a3e3e33490

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-05 01:18:41 by jwe]
author jwe
date Wed, 05 Dec 2007 01:18:42 +0000
parents fd42779a8428
children 16e61aecddc1
comparison
equal deleted inserted replaced
7256:be3280acbdb8 7257:e8a3e3e33490
16 ## along with Octave; see the file COPYING. If not, see 16 ## along with Octave; see the file COPYING. If not, see
17 ## <http://www.gnu.org/licenses/>. 17 ## <http://www.gnu.org/licenses/>.
18 18
19 function interpimages (nm, typ) 19 function interpimages (nm, typ)
20 bury_output (); 20 bury_output ();
21 if (strcmp (typ, "png"))
22 set (0, "defaulttextfontname", "*");
23 endif
21 if (strcmp (nm, "interpft")) 24 if (strcmp (nm, "interpft"))
22 t = 0 : 0.3 : pi; dt = t(2)-t(1); 25 t = 0 : 0.3 : pi; dt = t(2)-t(1);
23 n = length (t); k = 100; 26 n = length (t); k = 100;
24 ti = t(1) + [0 : k-1]*dt*n/k; 27 ti = t(1) + [0 : k-1]*dt*n/k;
25 y = sin (4*t + 0.3) .* cos (3*t - 0.1); 28 y = sin (4*t + 0.3) .* cos (3*t - 0.1);