Mercurial > octave-antonio

comparison scripts/time/eomday.m @ 19833:9fc020886ae9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Clean up m-files to follow Octave coding conventions. Try to trim long lines to < 80 chars. Use '##' for single line comments. Use '(...)' around tests for if/elseif/switch/while. Abut cell indexing operator '{' next to variable. Abut array indexing operator '(' next to variable. Use space between negation operator '!' and following expression. Use two newlines between endfunction and start of %!test or %!demo code. Remove unnecessary parens grouping between short-circuit operators. Remove stray extra spaces (typos) between variables and assignment operators. Remove stray extra spaces from ends of lines.
author Rik <rik@octave.org>
date Mon, 23 Feb 2015 14:54:39 -0800
parents 4197fc428c7d
children
comparison
equal deleted inserted replaced
19832:a1acca0c2216 19833:9fc020886ae9
43 %! ## Find leap years in the 20th century 43 %! ## Find leap years in the 20th century
44 %! y = 1900:1999; 44 %! y = 1900:1999;
45 %! e = eomday (y, repmat (2, [1, 100])); 45 %! e = eomday (y, repmat (2, [1, 100]));
46 %! y(find (e == 29)) 46 %! y(find (e == 29))
47 47
48 # tests
49 %!assert (eomday ([-4:4],2), [29,28,28,28,29,28,28,28,29]) 48 %!assert (eomday ([-4:4],2), [29,28,28,28,29,28,28,28,29])
50 %!assert (eomday ([-901,901],2), [28,28]) 49 %!assert (eomday ([-901,901],2), [28,28])
51 %!assert (eomday ([-100,100],2), [28,28]) 50 %!assert (eomday ([-100,100],2), [28,28])
52 %!assert (eomday ([-900,900],2), [28,28]) 51 %!assert (eomday ([-900,900],2), [28,28])
53 %!assert (eomday ([-400,400],2), [29,29]) 52 %!assert (eomday ([-400,400],2), [29,29])
56 %!assert (eomday (1:3,1:3), [31,28,31]) 55 %!assert (eomday (1:3,1:3), [31,28,31])
57 %!assert (eomday (1:2000,2)', datevec (datenum (1:2000,3,0))(:,3)) 56 %!assert (eomday (1:2000,2)', datevec (datenum (1:2000,3,0))(:,3))
58 %!assert ([1900:1999](find(eomday(1900:1999,2*ones(1,100))==29)), [1904,1908,1912,1916,1920,1924,1928,1932,1936,1940,1944,1948,1952,1956,1960,1964,1968,1972,1976,1980,1984,1988,1992,1996]) 57 %!assert ([1900:1999](find(eomday(1900:1999,2*ones(1,100))==29)), [1904,1908,1912,1916,1920,1924,1928,1932,1936,1940,1944,1948,1952,1956,1960,1964,1968,1972,1976,1980,1984,1988,1992,1996])
59 %!assert (eomday ([2004;2005], [2;2]), [29;28]) 58 %!assert (eomday ([2004;2005], [2;2]), [29;28])
60 59
61 %% Test input validation 60 ## Test input validation
62 %!error eomday () 61 %!error eomday ()
63 %!error eomday (1) 62 %!error eomday (1)
64 %!error eomday (1,2,3) 63 %!error eomday (1,2,3)
65 64