#langracket;;; Science Collection
;;; gaussian-tail-histogram-example.rkt
;;; Copyright (c) 2004-2011 M. Douglas Williams
;;;
;;; This file is part of the Science Collection.
;;;
;;; The Science Collection is free software: you can redistribute it and/or
;;; modify it under the terms of the GNU Lesser General Public License as
;;; published by the Free Software Foundation, either version 3 of the License
;;; or (at your option) any later version.
;;;
;;; The Science Collection is distributed in the hope that it will be useful,
;;; but WITHOUT WARRANTY; without even the implied warranty of MERCHANTABILITY
;;; or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
;;; License for more details.
;;;
;;; You should have received a copy of the GNU Lesser General Public License
;;; along with the Science Collection. If not, see
;;; <http://www.gnu.org/licenses/>.
;;;
;;; -------------------------------------------------------------------
;;;
(require (planetwilliams/science/random-distributions/gaussian-tail)
(planetwilliams/science/histogram-with-graphics))
(let ((h (make-histogram-with-ranges-uniform4016.022.0)))
(for ((i (in-range10000)))
(histogram-increment!h (random-gaussian-tail16.010.02.0)))
(histogram-ploth"Histogram of the Gaussian Tail Distribution"))
(let ((h (make-histogram-with-ranges-uniform403.06.0)))
(for ((i (in-range10000)))
(histogram-increment!h (random-unit-gaussian-tail3.0)))
(histogram-ploth"Histogram of the Unit Gaussian Tail Distribution"))