For my final year piece iv been researching choatic functions and non-linear maps. Below is a selection of function iv ported into Lisp. Each function outputs a text file that can be imported into most graphing software (the corresponding pictures were all produced with MATLAB). I intend to implement these functions and use there output to drive a piece of music.
The Logistic Equation
(with-open-file (*standard-output* "logistic.txt" :direction :output
:if-exists :supersede)
(let* ((x 0.5)
(r-env '(0 1 1000 4.0))
(r 0.0))
(loop for i below 1000 do
(setf r (envelope-interp i r-env)
x (* r (* x (- 1 x))))
(format t "~D ~D~%" r x)
)))
The Henon Map