From 8466d8cfa486fb30d1755c4261b781135083787b Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:29 -0800 Subject: Import Upstream version 3a1 --- plottest.scm | 27 +++++++++++++-------------- 1 file changed, 13 insertions(+), 14 deletions(-) (limited to 'plottest.scm') diff --git a/plottest.scm b/plottest.scm index a601a49..0a1f1f6 100644 --- a/plottest.scm +++ b/plottest.scm @@ -8,7 +8,7 @@ ;1. Any copy made of this software must include this copyright notice ;in full. ; -;2. I have made no warrantee or representation that the operation of +;2. I have made no warranty or representation that the operation of ;this software will be error-free, and I am under no obligation to ;provide any services, by way of maintenance, update, or otherwise. ; @@ -19,6 +19,7 @@ (require 'charplot) (require 'random) +(require 'random-inexact) (define strophoid (let ((l '())) @@ -30,18 +31,16 @@ (set! l (cons (cons x y) l)) (set! l (cons (cons x (- y)) l)))))) l)) +(plot strophoid "x" "y") (newline) -(plot! strophoid "x" "y") (newline) +(histograph (do ((idx 99 (+ -1 idx)) + (lst '() (cons (* .02 (random:normal)) lst))) + ((negative? idx) lst)) + "normal") +(newline) -(define unif - (let* ((l 6) - (v (make-vector l))) - (do ((i (- l 1) (- i 1))) - ((negative? i)) - (vector-set! v i (cons i 0))) - (do ((i 24 (- i 1)) - (r (random l) (random l))) - ((zero? i) (vector->list v)) - (set-cdr! (vector-ref v r) (+ 1 (cdr (vector-ref v r))))))) - -(plot! unif "n" "occur") +(histograph (do ((idx 99 (+ -1 idx)) + (lst '() (cons (random 5) lst))) + ((negative? idx) lst)) + "random") +(newline) -- cgit v1.2.3