Mercurial > hg > octave-nkf

comparison scripts/plot/bar.m @ 4723:ccb4eca28f7e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-01-23 14:33:26 by jwe]
author jwe
date Fri, 23 Jan 2004 14:33:26 +0000
parents 22bd65326ec1
children c08cb1098afc
comparison
equal deleted inserted replaced
4722:8f892ca5851d 4723:ccb4eca28f7e
73 xlen = length (x); 73 xlen = length (x);
74 ylen = length (y); 74 ylen = length (y);
75 if (xlen == ylen) 75 if (xlen == ylen)
76 len = 3 * xlen + 1; 76 len = 3 * xlen + 1;
77 tmp_xb = tmp_yb = zeros (len, 1); 77 tmp_xb = tmp_yb = zeros (len, 1);
78 cutoff = zeros (1, xlen-1); 78 cutoff = zeros (1, xlen);
79 for i = 1:xlen-1 79 for i = 1:xlen-1
80 cutoff(i) = (x(i) + x(i+1)) / 2.0; 80 cutoff(i) = (x(i) + x(i+1)) / 2.0;
81 endfor 81 endfor
82 delta_p = cutoff(1) - x(1); 82 delta_p = cutoff(1) - x(1);
83 delta_m = delta_p; 83 delta_m = delta_p;