12 lines
210 B
Matlab
Executable File
12 lines
210 B
Matlab
Executable File
function eval_harmonics(name)
|
|
|
|
base = exp(1);
|
|
ke = 2;
|
|
|
|
[x, fs, nbits] = wavread(name);
|
|
|
|
y = (1 - base.^(-ke*abs(x))) .* sign(x);
|
|
|
|
yname = sprintf('out.wav', name);
|
|
wavwrite(y*0.8, fs, nbits, yname);
|