11 lines
164 B
Plaintext
Executable File
11 lines
164 B
Plaintext
Executable File
function eval_harmonics(name)
|
|
|
|
base = exp(1);
|
|
ke = 10;
|
|
|
|
[x, fs, nbits] = wavread(name);
|
|
|
|
y = (1 - base.^(-ke*fabs(x))) * sign(x);
|
|
|
|
|
|
wavrite(y, fs, nbits, |