Mercurial > octave-nkf
changeset 7782:bfd8d804e6d3
datenum\: fixed combination of scalar and vector/matrix input bug
| author | bill@denney.ws |
|---|---|
| date | Sun, 18 May 2008 00:09:08 -0400 |
| parents | 02a7fe6907d2 |
| children | e8394097d66f |
| files | scripts/ChangeLog scripts/time/datenum.m |
| diffstat | 2 files changed, 30 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog Sun May 18 16:04:22 2008 -0400 +++ b/scripts/ChangeLog Sun May 18 00:09:08 2008 -0400 @@ -2,6 +2,11 @@ * general/isa.m: Fix tests. +2008-05-17 Bill Denney <bill@denney.ws> + + * time/datenum.m: Allow mixed scalar and vector/matrix input. + New tests. + 2008-05-13 Bill Denney <bill@denney.ws> * general/isa.m: Use persistent cell arrays to hold class names
--- a/scripts/time/datenum.m Sun May 18 16:04:22 2008 -0400 +++ b/scripts/time/datenum.m Sun May 18 00:09:08 2008 -0400 @@ -99,7 +99,16 @@ Y += fix ((M-14)/12); ## Lookup number of days since start of the current year. - D += reshape (monthstart (mod (M-1,12) + 1), size (D)) + 60; + if (numel (M) == 1 || numel (D) == 1) + ## Allow M or D to be scalar while other values may be vectors or + ## matrices. + D += monthstart (mod (M-1,12) + 1) + 60; + if (numel (M) > 1) + D = reshape (D, size (M)); + endif + else + D += reshape (monthstart (mod (M-1,12) + 1), size (D)) + 60; + endif ## Add number of days to the start of the current year. Correct ## for leap year every 4 years except centuries not divisible by 400. @@ -130,3 +139,18 @@ %! t = [2001,5,19,12,21,3.5; 1417,6,12,12,21,3.5]'; %! n = [730990 517712] + part; %! assert(datenum(t(1,:), t(2,:), t(3,:), t(4,:), t(5,:), t(6,:)), n, 2*eps); + +## Test mixed vectors and scalars +%!assert (datenum([2008;2009], 1, 1), [datenum(2008, 1, 1);datenum(2009, 1, 1)]); +%!assert (datenum(2008, [1;2], 1), [datenum(2008, 1, 1);datenum(2008, 2, 1)]); +%!assert (datenum(2008, 1, [1;2]), [datenum(2008, 1, 1);datenum(2008, 1, 2)]); +%!assert (datenum([2008;2009], [1;2], 1), [datenum(2008, 1, 1);datenum(2009, 2, 1)]); +%!assert (datenum([2008;2009], 1, [1;2]), [datenum(2008, 1, 1);datenum(2009, 1, 2)]); +%!assert (datenum(2008, [1;2], [1;2]), [datenum(2008, 1, 1);datenum(2008, 2, 2)]); +## And the other orientation +%!assert (datenum([2008 2009], 1, 1), [datenum(2008, 1, 1) datenum(2009, 1, 1)]); +%!assert (datenum(2008, [1 2], 1), [datenum(2008, 1, 1) datenum(2008, 2, 1)]); +%!assert (datenum(2008, 1, [1 2]), [datenum(2008, 1, 1) datenum(2008, 1, 2)]); +%!assert (datenum([2008 2009], [1 2], 1), [datenum(2008, 1, 1) datenum(2009, 2, 1)]); +%!assert (datenum([2008 2009], 1, [1 2]), [datenum(2008, 1, 1) datenum(2009, 1, 2)]); +%!assert (datenum(2008, [1 2], [1 2]), [datenum(2008, 1, 1) datenum(2008, 2, 2)]);