Mercurial > hg > pyin

view misc/pitchgenerator.m @ 142:afcdcb64c8ab fixedlag

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix compiler warnings
author Chris Cannam
date Fri, 24 Mar 2017 14:59:18 +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