diff options
Diffstat (limited to 'peak-phases.scm')
-rw-r--r-- | peak-phases.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/peak-phases.scm b/peak-phases.scm index 371f1d9..b77dedd 100644 --- a/peak-phases.scm +++ b/peak-phases.scm @@ -1,5 +1,6 @@ (provide 'snd-peak-phases.scm) -(load "primes.scm") +(unless (defined? 'primes) + (load "primes.scm")) ;;; multiply these phases by pi before use as initial-phases (and use sin, not cos -- see tstall below) ;;; to translate these peaks into the more standard crest-factor, (/ (* peak (sqrt 2)) (sqrt N)) |