Mercurial > octave-antonio
changeset 3092:4bb976b250bf
[project @ 1997-10-17 07:48:48 by jwe]
author | jwe |
---|---|
date | Fri, 17 Oct 1997 07:52:48 +0000 |
parents | b06dcbb6b3b1 |
children | 83ab3f9ff43d |
files | ChangeLog PROJECTS emacs/octave-mod.el liboctave/CRowVector.cc liboctave/ChangeLog liboctave/lo-mappers.cc scripts/ChangeLog scripts/polynomial/polyfit.m scripts/specfun/gammai.m src/ChangeLog src/defun-int.h |
diffstat | 11 files changed, 39 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/ChangeLog Fri Oct 10 16:26:48 1997 +0000 +++ b/ChangeLog Fri Oct 17 07:52:48 1997 +0000 @@ -1,3 +1,9 @@ +Tue Oct 14 10:48:28 1997 Kurt Hornik <Kurt.Hornik@ci.tuwien.ac.at> + + * emacs/octave-mod.el (octave-block-match-alist): Move + `otherwise' to right after `case' to have octave-close-block() + correctly close a `switch' block by `endswitch'. + Thu Oct 2 01:37:15 1997 John W. Eaton <jwe@bevo.che.wisc.edu> * aclocal.m4 (OCTAVE_FLIBS): Ignore -lc and -lgcc.
--- a/PROJECTS Fri Oct 10 16:26:48 1997 +0000 +++ b/PROJECTS Fri Oct 17 07:52:48 1997 +0000 @@ -466,6 +466,10 @@ write it in terms of the existing vector/matrix operators as much as possible. + * Make it possible to write a function that gets a reference to a + matrix in memory and change one or more elements without + generating a second copy of the data. + ------- History: ------- @@ -473,6 +477,9 @@ * Add an option to allow saving input from script files in the history list. + * The history command should accept two numeric arguments to + indicate a range of history entries to display, save or read. + * Add an option to include information about the Octave session in the history list. Possibly a time/date stamp and the current Octave line number, appended as a comment (users should probably
--- a/emacs/octave-mod.el Fri Oct 10 16:26:48 1997 +0000 +++ b/emacs/octave-mod.el Fri Oct 17 07:52:48 1997 +0000 @@ -328,7 +328,7 @@ '(("for" . ("end" "endfor")) ("function" . ("end" "endfunction")) ("if" . ("else" "elseif" "end" "endif")) - ("switch" . ("case" "end" "endswitch" "otherwise")) + ("switch" . ("case" "otherwise" "end" "endswitch")) ("try" . ("catch" "end" "end_try_catch")) ("unwind_protect" . ("unwind_protect_cleanup" "end" "end_unwind_protect"))
--- a/liboctave/CRowVector.cc Fri Oct 10 16:26:48 1997 +0000 +++ b/liboctave/CRowVector.cc Fri Oct 17 07:52:48 1997 +0000 @@ -785,10 +785,10 @@ if (n > 0) { retval.resize (n); - Complex delta = (x2 - x1) / (n - 1); + Complex delta = (x2 - x1) / (n - 1.0); retval.elem (0) = x1; for (int i = 1; i < n-1; i++) - retval.elem (i) = x1 + i * delta; + retval.elem (i) = x1 + 1.0 * i * delta; retval.elem (n-1) = x2; }
--- a/liboctave/ChangeLog Fri Oct 10 16:26:48 1997 +0000 +++ b/liboctave/ChangeLog Fri Oct 17 07:52:48 1997 +0000 @@ -1,3 +1,10 @@ +Thu Oct 2 17:13:02 1997 Mumit Khan <khan@dhaka.xraylith.wisc.edu> + + * CRowVector.cc (linspace): Removed attempt for implicit conversion + to complex<double>(int) instead of complex<double>(double). + + * lo-mappers.cc (atanh): Ditto. + Thu Jul 31 22:13:54 1997 John W. Eaton <jwe@bevo.che.wisc.edu> * idx-vector.cc (IDX_VEC_REP::sort): New function.
--- a/liboctave/lo-mappers.cc Fri Oct 10 16:26:48 1997 +0000 +++ b/liboctave/lo-mappers.cc Fri Oct 17 07:52:48 1997 +0000 @@ -266,7 +266,7 @@ Complex atanh (const Complex& x) { - return log ((1 + x) / (1 - x)) / 2.0; + return log ((1.0 + x) / (1.0 - x)) / 2.0; } Complex
--- a/scripts/ChangeLog Fri Oct 10 16:26:48 1997 +0000 +++ b/scripts/ChangeLog Fri Oct 17 07:52:48 1997 +0000 @@ -1,5 +1,8 @@ Fri Oct 10 11:18:10 1997 John W. Eaton <jwe@bevo.che.wisc.edu> + * specfun/gammai.m: Avoid problems with whitespace when + constructing matrices. + * polynomial/polyfit.m: Compute yf correctly. From Seung Lee <SJL@nrc.gov>. Also return yf in the same orientation as the original y vector.
--- a/scripts/polynomial/polyfit.m Fri Oct 10 16:26:48 1997 +0000 +++ b/scripts/polynomial/polyfit.m Fri Oct 17 07:52:48 1997 +0000 @@ -1,4 +1,4 @@ -## Copyright (C) 1996 John W. Eaton +## Copyright (C) 1996, 1997 John W. Eaton ## ## This file is part of Octave. ##
--- a/scripts/specfun/gammai.m Fri Oct 10 16:26:48 1997 +0000 +++ b/scripts/specfun/gammai.m Fri Oct 17 07:52:48 1997 +0000 @@ -75,8 +75,10 @@ k = find ((x >= a + 1) & (x < Inf) & (a > 0)); if any (k) len = length (k); - u = [zeros (1, len); ones (1, len)]; - v = [ones (1, len); x(k)]; + t0 = zeros (1, len); + t1 = ones (1, len); + u = [t0; t1]; + v = [t1; x(k)]; c_old = 0; c_new = v(1, :) ./ v(2, :); n = 1;
--- a/src/ChangeLog Fri Oct 10 16:26:48 1997 +0000 +++ b/src/ChangeLog Fri Oct 17 07:52:48 1997 +0000 @@ -1,3 +1,8 @@ +Tue Oct 7 16:51:01 1997 John W. Eaton <jwe@bevo.che.wisc.edu> + + * defun-int.h (DEFINE_FUN_INSTALLER_FUN): Set installed to true + after installing the function. + Thu Sep 25 10:17:26 1997 John W. Eaton <jwe@bevo.che.wisc.edu> * DLD-FUNCTIONS/filter.cc (Ffilter): Return second output value
--- a/src/defun-int.h Fri Oct 10 16:26:48 1997 +0000 +++ b/src/defun-int.h Fri Oct 17 07:52:48 1997 +0000 @@ -88,7 +88,7 @@ #endif /* ! MAKE_BUILTINS */ -// Define the structure that will be used to insert this function into +// Define the code that will be used to insert the new function into // the symbol table. #define DEFINE_FUN_INSTALLER_FUN(name, doc) \ @@ -100,6 +100,7 @@ { \ check_version (OCTAVE_VERSION, #name); \ install_builtin_function (F ## name, #name, doc); \ + installed = true; } \ return installed; \ }