Audacity Support Forum / Audacity and Nyquist / Nyquist Reference Manual / Nyquist Examples and Tutorials

Back to Pedro Morales' Examples Page

Random Signals

Sound Example: random.ogg

;;; ADDITIVE SYNTHESIS
;;; Random Signals
;;; coded by Pedro Jose Morales
;;; pmorales@iele-ab.uclm.es

(load "pjmg.lsp")

(defun simple-noise ()
  (mult (noise 4.0)
        (pwl 0.4 1.0 3.6 1.0 4.0)))

(defun simple-randi (frandi)
  (mult (randi1 frandi 4.0)
        (pwl 0.4 1.0 3.6 1.0 4.0)))

(defun tenney (frandi frq dur)
  (amosc (hz-to-step frq)
         (mult (randi1 frandi dur) (pwl 0.4 1.0 (- dur 0.4) 1.0 dur))))



;(ss (seq (simple-noise) (simple-randi 200) (simple-randi 400)))

(ss (seq (tenney 200.0 400.0 4.0) (tenney 800.0 300.0 2.0)
         (tenney 400.0 1600.0 4.0)))

Back to Pedro Morales' Examples Page

Audacity Support Forum / Audacity and Nyquist / Nyquist Reference Manual / Nyquist Examples and Tutorials