Mercurial > octave-nkf

comparison scripts/statistics/distributions/unifinv.m @ 19867: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 d9341b422488
comparison
equal deleted inserted replaced
19866:a1acca0c2216 19867:9fc020886ae9
34 34
35 if (nargin != 1 && nargin != 3) 35 if (nargin != 1 && nargin != 3)
36 print_usage (); 36 print_usage ();
37 endif 37 endif
38 38
39 if (!isscalar (a) || !isscalar (b)) 39 if (! isscalar (a) || ! isscalar (b))
40 [retval, x, a, b] = common_size (x, a, b); 40 [retval, x, a, b] = common_size (x, a, b);
41 if (retval > 0) 41 if (retval > 0)
42 error ("unifinv: X, A, and B must be of common size or scalars"); 42 error ("unifinv: X, A, and B must be of common size or scalars");
43 endif 43 endif
44 endif 44 endif
70 %!assert (unifinv (x, ones (1,5), 2), [NaN 1 1.5 2 NaN]) 70 %!assert (unifinv (x, ones (1,5), 2), [NaN 1 1.5 2 NaN])
71 %!assert (unifinv (x, [1 2 NaN 1 1], 2), [NaN NaN NaN 2 NaN]) 71 %!assert (unifinv (x, [1 2 NaN 1 1], 2), [NaN NaN NaN 2 NaN])
72 %!assert (unifinv (x, 1, 2*[1 0 NaN 1 1]), [NaN NaN NaN 2 NaN]) 72 %!assert (unifinv (x, 1, 2*[1 0 NaN 1 1]), [NaN NaN NaN 2 NaN])
73 %!assert (unifinv ([x(1:2) NaN x(4:5)], 1, 2), [NaN 1 NaN 2 NaN]) 73 %!assert (unifinv ([x(1:2) NaN x(4:5)], 1, 2), [NaN 1 NaN 2 NaN])
74 74
75 %% Test class of input preserved 75 ## Test class of input preserved
76 %!assert (unifinv ([x, NaN], 1, 2), [NaN 1 1.5 2 NaN NaN]) 76 %!assert (unifinv ([x, NaN], 1, 2), [NaN 1 1.5 2 NaN NaN])
77 %!assert (unifinv (single ([x, NaN]), 1, 2), single ([NaN 1 1.5 2 NaN NaN])) 77 %!assert (unifinv (single ([x, NaN]), 1, 2), single ([NaN 1 1.5 2 NaN NaN]))
78 %!assert (unifinv ([x, NaN], single (1), 2), single ([NaN 1 1.5 2 NaN NaN])) 78 %!assert (unifinv ([x, NaN], single (1), 2), single ([NaN 1 1.5 2 NaN NaN]))
79 %!assert (unifinv ([x, NaN], 1, single (2)), single ([NaN 1 1.5 2 NaN NaN])) 79 %!assert (unifinv ([x, NaN], 1, single (2)), single ([NaN 1 1.5 2 NaN NaN]))
80 80
81 %% Test input validation 81 ## Test input validation
82 %!error unifinv () 82 %!error unifinv ()
83 %!error unifinv (1,2) 83 %!error unifinv (1,2)
84 %!error unifinv (1,2,3,4) 84 %!error unifinv (1,2,3,4)
85 %!error unifinv (ones (3), ones (2), ones (2)) 85 %!error unifinv (ones (3), ones (2), ones (2))
86 %!error unifinv (ones (2), ones (3), ones (2)) 86 %!error unifinv (ones (2), ones (3), ones (2))