Permalink
Browse files

type spec for random-normal-bivariate.

Signed-off-by: AJ Rossini <blindglobe@gmail.com>
  • Loading branch information...
1 parent 0e2eddf commit 5adc6458c310cf3aafcdedd0312bb1018be42128 @blindglobe blindglobe committed May 11, 2009
Showing with 6 additions and 1 deletion.
  1. +6 −1 normal.lisp
View
@@ -271,7 +271,12 @@
;; Contributed by Joel J. Adamson <adamsonj@email.unc.edu>
;;
-(defun random-normal-bivariate (sigma-x sigma-y &key (rho 0.0) (error-limit 500) (tries 0))
+(declaim (ftype (function (double-float
+ double-float
+ &key (rho double-float)
+ (error-limit integer)
+ (tries integer)) double-float) random-normal-bivariate))
+(defun random-normal-bivariate (sigma-x sigma-y &key (rho 0.0d0) (error-limit 500) (tries 0))
"Return a pair of numbers with specific correlation coefficent rho
and with specified variances sigma-x and sigma-y; a direct port of
gsl_ran_bivariate_gaussian from the GNU Scientific Library:

0 comments on commit 5adc645

Please sign in to comment.