3

我正在尝试用clojure的泛音库制作音乐。为了产生有趣的声音，加法合成很有用，这意味着我需要几个频率的正弦振荡器并简单地添加它们。在泛音中，要创建一个合成器，实现这一点，我可以写：

(definst myinst [freq 100]
  (* 0.2 (reduce + (map sin-osc [101.0 100 99.0]))))

为了更可重用，我编写了一个函数，它接受一个频率并返回一个包含所有这些频率的列表，您可以在代码片段中看到：

(defn split-freq [freq]
  (apply vector (map #(* freq %) [1.01 1 0.99])))

执行时(split-freq 100)，REPL 给了我以下信息：

[101.0 100 99.0]

和输入完全一样，我提供了上面的map函数。事实上，我复制了结果。现在，我试试这个：

(definst myinst [freq 100]
  (* 0.2 (reduce + (map sin-osc (split-freq freq)))))

不幸的是，REPL 告诉我，我做错了：

CompilerException java.lang.ClassCastException: 
overtone.sc.machinery.ugen.sc_ugen.ControlProxy cannot be cast to java.lang.Number, 
compiling:(form-init1807789563491679853.clj:1)

但是这段代码工作正常：

(definst myinst [freq 100]
  (* 0.2 (reduce + (map sin-osc (apply vector (map #(* freq %) [1.01 1 0.99]))))))

虽然，我只是简单地输入了函数定义。

我认为我主要缺乏理解。我想，如果其中一个版本有效，其他版本也必须有效。

我的问题是：为什么我的“改进”版本不起作用？为什么第一个片段有效？我该如何规避这种行为？

Clojure 1.3.0
Overtone 0.8
(use 'overtone.core)
4

1 回答 1

1

ups，你是对的，我不明白noisesmith的评论。确实，您不能直接在函数中使用此值“freq”，因为在您的函数需要它时（在宏执行之前）该值未绑定

所以这里有一个解决这个问题的方法，同样使用 let 形式，它不像制作自己的宏那么优雅，但可以

(defn myinst [inst-name]
  (let [the-freq 100]
   (definst inst-name [freq the-freq] (* 0.2 (reduce + (map sin-osc (split-freq the-freq)))))))

您可以作为正常功能执行

((myinst "my-instrument"))

希望对你有帮助

胡安

以前的评论，现在无效的回复

也许您在改进版本中的参数值声明有误

那是你的代码

(definst myinst [freq 100]
  (* 0.2 (reduce + (map sin-osc (split-freq freq)))))

而且，就像在 clojure 中一样，您不能为参数函数分配默认值，例如，如果您使用 let 形式分配默认值，您的改进版本将起作用

(definst myinst []
  (let [freq 100]
    (* 0.2 (reduce + (map sin-osc (split-freq freq))))))
于 2013-09-24T09:00:46.370 回答