Mercurial > octave-nkf
changeset 4681:bb9515a3527d
[project @ 2003-12-18 15:35:09 by jwe]
| author | jwe |
|---|---|
| date | Thu, 18 Dec 2003 15:35:09 +0000 |
| parents | 493ff0643644 |
| children | 994f449a1eba |
| files | scripts/statistics/base/iqr.m src/ChangeLog src/symtab.cc |
| diffstat | 3 files changed, 14 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/statistics/base/iqr.m Wed Dec 17 21:18:18 2003 +0000 +++ b/scripts/statistics/base/iqr.m Thu Dec 18 15:35:09 2003 +0000 @@ -34,15 +34,15 @@ usage ("iqr (x)"); endif - if (rows (x) == 1) - x = x.'; - endif + if (rows (x) == 1) + x = x.'; + endif - [r, c] = size (x); - y = zeros (1, c); + [r, c] = size (x); + y = zeros (1, c); - for i = 1:c; - y(i) = empirical_inv (3/4, x(:,i)) - empirical_inv (1/4, x(:,i)); - endfor + for i = 1:c; + y(i) = empirical_inv (3/4, x(:,i)) - empirical_inv (1/4, x(:,i)); + endfor endfunction
--- a/src/ChangeLog Wed Dec 17 21:18:18 2003 +0000 +++ b/src/ChangeLog Thu Dec 18 15:35:09 2003 +0000 @@ -1,3 +1,8 @@ +2003-12-17 John W. Eaton <jwe@bevo.che.wisc.edu> + + * symtab.cc (symbol_record::print_symbol_info_line): + Also check is_static to see if a symbol can be cleared. + 2003-12-16 John W. Eaton <jwe@bevo.che.wisc.edu> * lex.l (is_keyword): Also allow varargout_kw if
--- a/src/symtab.cc Wed Dec 17 21:18:18 2003 +0000 +++ b/src/symtab.cc Thu Dec 18 15:35:09 2003 +0000 @@ -414,7 +414,7 @@ symbol_record::print_symbol_info_line (std::ostream& os) const { os << (is_read_only () ? " r-" : " rw") - << (is_eternal () ? "-" : "d") + << (is_static () || is_eternal () ? "-" : "d") << " " << std::setiosflags (std::ios::left) << std::setw (24) << type_name () . c_str ();