Mercurial > octave-nkf

comparison scripts/plot/fplot.m @ 7280:96f86c256ca0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-10 21:12:51 by jwe]
author jwe
date Mon, 10 Dec 2007 21:12:51 +0000
parents d65670971cbc
children 7ef5b1b4e029
comparison
equal deleted inserted replaced
7279:72b5e1701da2 7280:96f86c256ca0
71 nam = formula (fn); 71 nam = formula (fn);
72 endif 72 endif
73 73
74 if (floor(n) != n) 74 if (floor(n) != n)
75 tol = n; 75 tol = n;
76 x0 = linspace (limits(1), limits(2), 3)'; 76 x0 = linspace (limits(1), limits(2), 5)';
77 y0 = feval (fn, x0); 77 y0 = feval (fn, x0);
78 err0 = Inf; 78 err0 = Inf;
79 n = 5; 79 n = 8;
80 x = linspace (limits(1), limits(2), n)'; 80 x = linspace (limits(1), limits(2), n)';
81 y = feval (fn, x); 81 y = feval (fn, x);
82 82
83 while (n < 2 .^ 20) 83 while (n < 2 .^ 20)
84 y00 = interp1 (x0, y0, x, "linear"); 84 y00 = interp1 (x0, y0, x, "linear");