Mercurial > hg > octave-nkf
annotate scripts/deprecated/values.m @ 12749:e7cc2d4a6db3 stable
Fix range of sigma in normal distribution to exclude 0.
* normcdf.m, normpdf.m: Correct 's >= 0' to 's > 0'.
| author | Rik <octave@nomad.inbox5.com> |
|---|---|
| date | Thu, 16 Jun 2011 21:05:10 -0700 |
| parents | fd0a3ac60b0e |
| children | 72c96de7a403 |
| rev | line source |
|---|---|
| 11523 | 1 ## Copyright (C) 1995-2011 Kurt Hornik |
| 3426 | 2 ## |
| 3922 | 3 ## This file is part of Octave. |
| 4 ## | |
| 5 ## Octave is free software; you can redistribute it and/or modify it | |
| 6 ## under the terms of the GNU General Public License as published by | |
| 7016 | 7 ## the Free Software Foundation; either version 3 of the License, or (at |
| 8 ## your option) any later version. | |
| 3426 | 9 ## |
| 3922 | 10 ## Octave is distributed in the hope that it will be useful, but |
| 3200 | 11 ## WITHOUT ANY WARRANTY; without even the implied warranty of |
| 12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 3426 | 13 ## General Public License for more details. |
| 14 ## | |
| 3200 | 15 ## You should have received a copy of the GNU General Public License |
| 7016 | 16 ## along with Octave; see the file COPYING. If not, see |
| 17 ## <http://www.gnu.org/licenses/>. | |
| 3200 | 18 |
| 3453 | 19 ## -*- texinfo -*- |
| 20 ## @deftypefn {Function File} {} values (@var{x}) | |
| 3200 | 21 ## Return the different values in a column vector, arranged in ascending |
| 22 ## order. | |
| 6754 | 23 ## |
| 24 ## As an example, @code{values([1, 2, 3, 1])} returns the vector | |
| 25 ## @code{[1, 2, 3]}. | |
| 3453 | 26 ## @end deftypefn |
| 3426 | 27 |
| 5428 | 28 ## Author: KH <Kurt.Hornik@wu-wien.ac.at> |
| 3456 | 29 ## Description: Extract unique elements |
| 3200 | 30 |
| 10881 | 31 ## Deprecated in version 3.4 |
| 32 | |
| 3200 | 33 function v = values (x) |
| 3426 | 34 |
| 10881 | 35 persistent warned = false; |
| 36 if (! warned) | |
| 37 warned = true; | |
| 38 warning ("Octave:deprecated-function", | |
| 39 "values is obsolete and will be removed from a future version of Octave; please use unique instead"); | |
| 40 endif | |
| 41 | |
| 3200 | 42 if (nargin != 1) |
| 6046 | 43 print_usage (); |
| 3200 | 44 endif |
| 3426 | 45 |
| 4030 | 46 if (! (isvector (x))) |
|
11472
1740012184f9
Use uppercase for variable names in error() strings to match Info documentation. Only m-files done.
Rik <octave@nomad.inbox5.com>
parents:
10881
diff
changeset
|
47 error ("values: X must be a vector"); |
| 3200 | 48 endif |
| 49 | |
| 50 i = any (isnan (x)); | |
| 8506 | 51 ## HACK! |
| 52 x = x(find(!isnan (x))); | |
| 3200 | 53 n = length (x); |
| 54 x = reshape (x, n, 1); | |
| 55 s = sort (x); | |
| 3388 | 56 v = s([1; (find (s(2:n) > s(1:n-1)) + 1)]); |
| 3200 | 57 if (i) |
| 58 v = [v; NaN]; | |
| 59 endif | |
| 60 | |
| 61 endfunction |