@@ -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: normal.lisp 0e2eddf4e30238b705f7a989eeee6ca956b9f519 AJ Rossini blindglobe@gmail.com http://github.com/lvaruzza/cl-randist/commit/5adc6458c310cf3aafcdedd0312bb1018be42128 5adc6458c310cf3aafcdedd0312bb1018be42128 2009-05-11T04:50:42-07:00 2009-05-10T23:15:23-07:00 type spec for random-normal-bivariate. Signed-off-by: AJ Rossini <blindglobe@gmail.com> 344cd0cb3c434836aa933a7c799971075ae9b74d AJ Rossini blindglobe@gmail.com