Commit 1cdadad0 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Correct package prefix on function call

parent 9b73ba00
;; Sample sets of values from a low-discrepancy (quasi-random) sequence
;; Liam Healy 2011-06-06 09:42:22EDT low-discrepancy-sequence.lisp
;; Time-stamp: <2013-12-25 19:38:25EST low-discrepancy-sequence.lisp>
;; Time-stamp: <2014-06-20 17:30:34EDT low-discrepancy-sequence.lisp>
;; Copyright 2011 Liam M. Healy
;; Copyright 2011, 2013, 2014 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
;;
;; This program is free software: you can redistribute it and/or modify
......@@ -32,7 +32,7 @@
(vec (grid:make-foreign-array 'double-float :dimensions rank)))
(loop repeat count
do (gsl:qrng-get gen vec)
collect (copy vec :grid-type grid-type :element-type 'double-float))))
collect (grid:copy vec :grid-type grid-type :element-type 'double-float))))
(defun low-discrepancy-sample (count make-function &rest parameters)
"Call the make function to generate a set of objects with the
......@@ -65,7 +65,7 @@
(lambda (x seq)
(list (first x)
(val-from-range
(grid:gref v seq) (second x) (third x))))
(grid:aref v seq) (second x) (third x))))
sweep-parameters
(loop for i from 0 below (length sweep-parameters) collect i))))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment