diff options
author | Thomas Bushnell, BSG <tb@debian.org> | 2006-10-23 23:55:08 -0700 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:37 -0800 |
commit | 97fc07b2d8896b869db55827900f24e6528a9bd6 (patch) | |
tree | 262ed5c19ad83dd59aac33d2e04ace4fbd94bd3b /plottest.scm | |
parent | 810b08c931e958fdaa6971b2ce8c5e578130d652 (diff) | |
parent | 5bea21e81ed516440e34e480f2c33ca41aa8c597 (diff) | |
download | slib-97fc07b2d8896b869db55827900f24e6528a9bd6.tar.gz slib-97fc07b2d8896b869db55827900f24e6528a9bd6.zip |
Import Debian changes 3a4-1debian/3a4-1
slib (3a4-1) unstable; urgency=low
* New upstream release.
* slib.texi (Library Catalogs): Repeat change from 3a3-3.
* Makefile: Repeat $(htmldir)slib_toc.html changes from 3a2-1.
Diffstat (limited to 'plottest.scm')
-rw-r--r-- | plottest.scm | 46 |
1 files changed, 0 insertions, 46 deletions
diff --git a/plottest.scm b/plottest.scm deleted file mode 100644 index 0a1f1f6..0000000 --- a/plottest.scm +++ /dev/null @@ -1,46 +0,0 @@ -;"plottest.scm" test charplot.scm -;Copyright (C) 1992 Aubrey Jaffer -; -;Permission to copy this software, to modify it, to redistribute it, -;to distribute modified versions, and to use it for any purpose is -;granted, subject to the following restrictions and understandings. -; -;1. Any copy made of this software must include this copyright notice -;in full. -; -;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. -; -;3. In conjunction with products arising from the use of this -;material, there shall be no use of my name in any advertising, -;promotional, or sales literature without prior written consent in -;each case. - -(require 'charplot) -(require 'random) -(require 'random-inexact) - -(define strophoid - (let ((l '())) - (do ((x -1.0 (+ x 0.05))) - ((> x 4.0)) - (let* ((a (/ (- 2 x) (+ 2 x)))) - (if (>= a 0.0) - (let* ((y (* x (sqrt a)))) - (set! l (cons (cons x y) l)) - (set! l (cons (cons x (- y)) l)))))) - l)) -(plot strophoid "x" "y") (newline) - -(histograph (do ((idx 99 (+ -1 idx)) - (lst '() (cons (* .02 (random:normal)) lst))) - ((negative? idx) lst)) - "normal") -(newline) - -(histograph (do ((idx 99 (+ -1 idx)) - (lst '() (cons (random 5) lst))) - ((negative? idx) lst)) - "random") -(newline) |