写入 netlogo 中的声音文件:或如何调整 netlogo
writing to a sound file in netlogo : or how to tune netlogo
我正在写一个简单的合成器。
这是我的全部代码
turtles-own [f]
to setup
ca
file-close
file-open "tune.snd"
crt 1 [set f 100]
reset-ticks
end
to go
file-write mean [sin(2 * pi * f * ticks)] of turtles
tick
end
当我运行
Repeat 44100 [go] file-close
并以 44100 赫兹将输出加载到声音编辑器中,我得到了一秒钟的声音。到目前为止一切都很好。不幸的是,它本应是 100 Hz 的音调,但它是高得多 [超过 16k Hz] 的一秒钟。
我做错了什么?
首先,这太棒了!
问题很简单。 sin
在 NetLogo 中使用度数,而不是弧度。
我正在写一个简单的合成器。
这是我的全部代码
turtles-own [f]
to setup
ca
file-close
file-open "tune.snd"
crt 1 [set f 100]
reset-ticks
end
to go
file-write mean [sin(2 * pi * f * ticks)] of turtles
tick
end
当我运行
Repeat 44100 [go] file-close
并以 44100 赫兹将输出加载到声音编辑器中,我得到了一秒钟的声音。到目前为止一切都很好。不幸的是,它本应是 100 Hz 的音调,但它是高得多 [超过 16k Hz] 的一秒钟。
我做错了什么?
首先,这太棒了!
问题很简单。 sin
在 NetLogo 中使用度数,而不是弧度。