Mercurial > octave-nkf

comparison scripts/statistics/distributions/gaminv.m @ 6046:34f96dd5441b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-10 16:10:25 by jwe]
author jwe
date Tue, 10 Oct 2006 16:10:31 +0000
parents 2618a0750ae6
children 4775fc1aa728
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
29 ## Description: Quantile function of the Gamma distribution 29 ## Description: Quantile function of the Gamma distribution
30 30
31 function inv = gaminv (x, a, b) 31 function inv = gaminv (x, a, b)
32 32
33 if (nargin != 3) 33 if (nargin != 3)
34 usage ("gaminv (x, a, b)"); 34 print_usage ();
35 endif 35 endif
36 36
37 if (!isscalar (a) || !isscalar(b)) 37 if (!isscalar (a) || !isscalar(b))
38 [retval, x, a, b] = common_size (x, a, b); 38 [retval, x, a, b] = common_size (x, a, b);
39 if (retval > 0) 39 if (retval > 0)