Mercurial > hg > octave-lyh

comparison scripts/plot/fplot.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents b14fd5116c29
children be55736a0783
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
90 90
91 while (n < 2 .^ 20) 91 while (n < 2 .^ 20)
92 y00 = interp1 (x0, y0, x, "linear"); 92 y00 = interp1 (x0, y0, x, "linear");
93 err = 0.5 * max (abs ((y00 - y) ./ (y00 + y))(:)); 93 err = 0.5 * max (abs ((y00 - y) ./ (y00 + y))(:));
94 if (err == err0 || 0.5 * max (abs ((y00 - y) ./ (y00 + y))(:)) < tol) 94 if (err == err0 || 0.5 * max (abs ((y00 - y) ./ (y00 + y))(:)) < tol)
95 break; 95 break;
96 endif 96 endif
97 x0 = x; 97 x0 = x;
98 y0 = y; 98 y0 = y;
99 err0 = err; 99 err0 = err;
100 n = 2 * (n - 1) + 1; 100 n = 2 * (n - 1) + 1;