Glissando函数,其参数是codomain的极值

时间:2013-05-03 19:42:06

标签: algorithm clojure

我是一名音乐家,我正在玩Clojure中的一个功能,在A4和A5的音高(分别为440Hz和880Hz频率)之间重现一个简单的滑音,带有指数曲线,但我遇到了麻烦。基本上我想这样使用它:

(def A4 440)
(def A5 880)
(gliss A4 A5)

应该给我一些类似的东西:

=>(441 484 529 576 625 676 729 784 841)

除了我最终还想给它一个采样率作为第三个参数。

这种作品:

(defn gliss 
  [start-pitch end-pitch s-rate]
  (let [f (fn [x]
            (expt x 2))]
    (remove nil?
      (map 
        (fn [x]
          (when (and 
                  (>= (f x) start-pitch)
                  (<= (f x) end-pitch))
            (f x)))
        (range 0 10000 s-rate)))))

我想问题是我想要使用该功能的方式。而不是说“glissando从x1到x2,其中f(x)= x ^ 2”,我真的想说“glissando从f(x)== 440到f(x)== 880”所以我'我最初并没有真正给出一个x的范围,因此为什么我在这种情况下只硬编码0到10000,但这很难看。

有什么更好的方法来完成我想要做的事情?

更新:我在需要修复的术语上犯了一个错误(对于所有来到这里寻找在Clojure中记录一个glissando的人来说)。第三个参数不是真正的采样率,它应该是样本数。换句话说,采样率(可能是44100Hz或48000Hz等)决定了特定持续时间内所需的采样数。如果你需要一个带有e指数曲线的glissando,从A4到A5的持续时间为500毫秒,采样率为44100,你可以使用这些函数:

(defn gliss 
  [start end samples]
  (map #(+ start
           (* 
             (math/expt (/ (inc %) samples) 2.718281828)
             (- end start)))
       (range samples)))

(defn ms-to-samps
  [ms s-rate]
  (/ (* ms s-rate) 1000))
像这样:

(def A4 440)
(def A5 (* A4 2))
(def s-rate 44100) ;; historic CD quality sample rate
(gliss A4 A5 (ms-to-samps 500 s-rate))

1 个答案:

答案 0 :(得分:5)

这是一个简单的指数曲线,分布在频率范围的范围内,带有速率样本:

(ns hello.exp 
  (:require [clojure.math.numeric-tower :as math]))

(defn gliss [start end rate]
  (map #(+ start (* (math/expt (/ (inc %) rate) 2.718281828) (- end start)))   
       (range rate)))

这并不完全适合你的gliss曲线,因为我使用e作为指数虽然我怀疑如果你把它喂给overtone听起来不错;)我怀疑是否会使用正确的音乐角色我在维基百科文章中读到的函数中的指数为1。

hello.exp> (gliss 440 880 5)                                                    
(445.5393041947095 476.4535293633514 549.7501826896913 679.8965206341077 880.0)

hello.exp> (map int (gliss 440 880 100)) 
(440 440 440 440 441 441 442 442 443 444 445 446 447 448 449
 451 452 454 455 457 459 461 463 465 467 469 472 474 477 479 
 482 485 487 490 493 497 500 503 506 510 513 517 521 525 529 
 533 537 541 545 550 554 558 563 568 573 577 582 588 593 598 
 603 609 614 620 625 631 637 643 649 655 661 668 674 680 687 
 694 700 707 714 721 728 735 743 750 757 765 773 780 788 796 
 804 812 820 828 837 845 853 862 871 880)