Mercurial > hg > octave-nkf

diff scripts/specfun/beta.m @ 2311:2b5788792cad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-07-11 20:18:38 by jwe]
author jwe
date Thu, 11 Jul 1996 20:18:38 +0000
parents 5cffc4b8de57
children 204cc7db6f4a
line wrap: on
line diff
--- a/scripts/specfun/beta.m
+++ b/scripts/specfun/beta.m
@@ -17,13 +17,13 @@
 ### Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 ### 02111-1307, USA.
 
+## usage: beta (a, b)
+##
+## Returns the beta function beta(a,b) = gamma(a) * gamma(b) / gamma(a+b)
+## of a and b.
+
 function retval = beta (a, b)
   
-  ## usage: beta (a, b)
-  ##
-  ## Returns the beta function beta(a,b) = gamma(a) * gamma(b) / gamma(a+b)
-  ## of a and b.
-
   ## Written by KH (Kurt.Hornik@ci.tuwien.ac.at) on Jun 13, 1993
 
   if (nargin != 2)