diff scripts/statistics/distributions/stdnormal_pdf.m @ 3456:434790acb067

[project @ 2000-01-19 06:58:51 by jwe]
author jwe
date Wed, 19 Jan 2000 06:59:23 +0000
parents f8dde1807dee
children e031284eea27
line wrap: on
line diff
--- a/scripts/statistics/distributions/stdnormal_pdf.m
+++ b/scripts/statistics/distributions/stdnormal_pdf.m
@@ -14,13 +14,14 @@
 ## along with this file.  If not, write to the Free Software Foundation,
 ## 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
-## usage:  stdnormal_pdf (x)
-##
-## For each element of x, compute the probability density function (PDF)
-## of the standard normal distribution at x.
+## -*- texinfo -*-
+## @deftypefn {Function File} {} stdnormal_pdf (@var{x})
+## For each element of @var{x}, compute the probability density function
+## (PDF) of the standard normal distribution at @var{x}.
+## @end deftypefn
 
-## Author:  TT <Teresa.Twaroch@ci.tuwien.ac.at>
-## Description:  PDF of the standard normal distribution
+## Author: TT <Teresa.Twaroch@ci.tuwien.ac.at>
+## Description: PDF of the standard normal distribution
 
 function pdf = stdnormal_pdf (x)
 
@@ -34,12 +35,12 @@
   pdf = zeros (1, s);
 
   k = find (isnan (x));
-  if any (k)
+  if (any (k))
     pdf(k) = NaN * ones (1, length (k));
   endif
 
   k = find (!isinf (x));
-  if any (k)
+  if (any (k))
     pdf (k) = (2 * pi)^(- 1/2) * exp( - x(k) .^ 2 / 2);
   endif