Mercurial > hg > octave-lyh
annotate scripts/statistics/distributions/stdnormal_pdf.m @ 16506:8a4960f2c7c3
gui: allow running files from the file browser
* files-dock-widget.cc(constructor): connect run_file_signal
(contextmenu_requested): add menu to run the selected file
(contextmenu_run): new slot for running the selected file
(run_file_signal): new signal
* files-dock-widget.h: new function contextmenu_run, new signal run_file_signal
| author | Torsten <ttl@justmail.de> |
|---|---|
| date | Fri, 12 Apr 2013 22:20:39 +0200 |
| parents | f3d52523cde1 |
| children |
| rev | line source |
|---|---|
|
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
13171
diff
changeset
|
1 ## Copyright (C) 2012 Rik Wehbring |
|
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
13171
diff
changeset
|
2 ## Copyright (C) 1995-2012 Kurt Hornik |
| 3426 | 3 ## |
| 3922 | 4 ## This file is part of Octave. |
| 5 ## | |
| 6 ## Octave is free software; you can redistribute it and/or modify it | |
| 7 ## under the terms of the GNU General Public License as published by | |
| 7016 | 8 ## the Free Software Foundation; either version 3 of the License, or (at |
| 9 ## your option) any later version. | |
| 3426 | 10 ## |
| 3922 | 11 ## Octave is distributed in the hope that it will be useful, but |
| 3191 | 12 ## WITHOUT ANY WARRANTY; without even the implied warranty of |
| 13 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
| 3426 | 14 ## General Public License for more details. |
| 15 ## | |
| 3191 | 16 ## You should have received a copy of the GNU General Public License |
| 7016 | 17 ## along with Octave; see the file COPYING. If not, see |
| 18 ## <http://www.gnu.org/licenses/>. | |
| 3191 | 19 |
| 3456 | 20 ## -*- texinfo -*- |
| 21 ## @deftypefn {Function File} {} stdnormal_pdf (@var{x}) | |
| 22 ## For each element of @var{x}, compute the probability density function | |
|
13171
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
23 ## (PDF) at @var{x} of the standard normal distribution (mean = 0, |
|
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
24 ## standard deviation = 1). |
| 3456 | 25 ## @end deftypefn |
| 3426 | 26 |
| 3456 | 27 ## Author: TT <Teresa.Twaroch@ci.tuwien.ac.at> |
| 28 ## Description: PDF of the standard normal distribution | |
| 3191 | 29 |
| 30 function pdf = stdnormal_pdf (x) | |
| 31 | |
| 32 if (nargin != 1) | |
| 6046 | 33 print_usage (); |
| 3191 | 34 endif |
| 3426 | 35 |
|
13171
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
36 if (iscomplex (x)) |
|
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
37 error ("stdnormal_pdf: X must not be complex"); |
| 3191 | 38 endif |
| 3426 | 39 |
|
13171
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
40 pdf = (2 * pi)^(- 1/2) * exp (- x .^ 2 / 2); |
| 3426 | 41 |
| 4854 | 42 endfunction |
|
13171
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
43 |
|
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
44 |
|
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
45 %!shared x,y |
|
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
46 %! x = [-Inf 0 1 Inf]; |
|
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
47 %! y = 1/sqrt(2*pi)*exp (-x.^2/2); |
|
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
48 %!assert (stdnormal_pdf ([x, NaN]), [y, NaN], eps) |
|
13171
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
49 |
|
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
50 %% Test class of input preserved |
|
14363
f3d52523cde1
Use Octave coding conventions in all m-file %!test blocks
Rik <octave@nomad.inbox5.com>
parents:
14138
diff
changeset
|
51 %!assert (stdnormal_pdf (single ([x, NaN])), single ([y, NaN]), eps ("single")) |
|
13171
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
52 |
|
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
53 %% Test input validation |
|
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
54 %!error stdnormal_pdf () |
|
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
55 %!error stdnormal_pdf (1,2) |
|
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
56 %!error stdnormal_pdf (i) |
|
19b9f17d22af
Overhaul of statistical distribution functions
Rik <octave@nomad.inbox5.com>
parents:
11523
diff
changeset
|
57 |