Mercurial > hg > pyin

view misc/pitchgenerator.m @ 164:a7d9c6142f8f tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag v1.2 for changeset 4a97f7638ffd
author Chris Cannam
date Thu, 06 Feb 2020 15:02:47 +0000
parents ac840042f5f2
children
line wrap: on
line source
f = 50:800;
fs = 44100;
t = (0:(2*fs))/fs;
nFreq = length(f);

for iFreq = 1:nFreq
    f(iFreq)
    x = zeros(size(t));
    for iAdd = 1:100
        x = x + cos(2*pi*f(iFreq)*t*iAdd)*0.6^(iAdd-1);
        if f(iFreq)*iAdd > fs/2
            break
        end
    end
    x = x / max(abs(x));
    wavwrite(x, fs, sprintf('/Users/matthiasm/data/pyin/simplewavs/%iHz.wav', f(iFreq)));
end