dsp_randn   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/vaudio_dsp.xtm

Implementation

(bind-func dsp_randn
  (let ((phase 0))
    (lambda ()
      (let ((u1 (random))
      (u2 (random))
      (v1 (- (* 2.0 u1) 1.0))
      (v2 (- (* 2.0 u2) 1.0))
      (s (+ (* v1 v1) (* v2 v2))))
  (if (= phase 0)
      (if (or (> s 1.0) (= s 0.0) (= s 1.0))
    (dsp_randn)
    (* v1 (sqrt (/ (* -2.0 (log s)) s))))
      (begin (set! phase (- 1 phase))
       (* v2 (sqrt (/ (* -2.0 (log s)) s)))))))))


Back to Index

Similar Entries

  • _dsp:set!    scheme    /digego/extempore/tree/v0.8.9/runtime/scheme.xtm
  • dsp    xtlang    /digego/extempore/tree/v0.8.9/examples/core/audio_101.xtm
  • dsp    xtlang    /digego/extempore/tree/v0.8.9/examples/core/audio_101.xtm
  • dsp    xtlang    /digego/extempore/tree/v0.8.9/examples/core/audio_101.xtm
  • dsp    xtlang    /digego/extempore/tree/v0.8.9/examples/core/audio_101.xtm
  • dsp    xtlang    /digego/extempore/tree/v0.8.9/examples/contrib/lv2.xtm
  • dsp    xtlang    /digego/extempore/tree/v0.8.9/examples/contrib/polysynth.xtm
  • dsp    xtlang    /digego/extempore/tree/v0.8.9/examples/contrib/polysynth.xtm
  • dsp    xtlang    /digego/extempore/tree/v0.8.9/examples/contrib/TSM_example.xtm
  • dsp1:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/core/mtaudio.xtm
  • dsp1:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/sharedsystem/audiosetup.xtm
  • dsp1:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/external/convolution_reverb.xtm
  • dsp2:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/core/mtaudio.xtm
  • dsp2:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/sharedsystem/audiosetup.xtm
  • dsp3:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/core/mtaudio.xtm
  • dsp3:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/sharedsystem/audiosetup.xtm
  • dsp4:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/sharedsystem/audiosetup.xtm
  • dsp5:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/sharedsystem/audiosetup.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/core/topclock_metro.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/core/covers.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/core/audio_streams.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/core/audio_101.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/core/midi_synth.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/core/scheduler.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/core/synth.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/core/fmsynth.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/contrib/rtmidi.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/contrib/portaudio.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/contrib/spectral_meter.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/contrib/convolution.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/external/going-native.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/external/spectrogram.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/external/sampler.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/external/sing_a_song.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/external/electrofunk.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/external/granulator.xtm
  • dsp:DSP    xtlang    /digego/extempore/tree/v0.8.9/examples/external/audio_player.xtm
  • dsp:VDSP    xtlang    /digego/extempore/tree/v0.8.9/libs/core/vaudio_dsp.xtm
  • dsp:set!    macro    /digego/extempore/tree/v0.8.9/runtime/scheme.xtm
  • dsp_load    xtlang    /digego/extempore/tree/v0.8.9/examples/sharedsystem/audiosetup.xtm
  • dsp_randn    xtlang    /digego/extempore/tree/v0.8.9/libs/core/audio_dsp.xtm
  • dspmt:DSPMT    xtlang    /digego/extempore/tree/v0.8.9/examples/core/mtaudio.xtm
  • dspmt:DSPMT    xtlang    /digego/extempore/tree/v0.8.9/examples/sharedsystem/audiosetup.xtm
  • dspsum:DSPMT    xtlang    /digego/extempore/tree/v0.8.9/examples/external/convolution_reverb.xtm
  • pure_dsp    xtlang    /digego/extempore/tree/v0.8.9/examples/core/audio_streams.xtm