fixed eval_blep
This commit is contained in:
Binary file not shown.
Binary file not shown.
@@ -72,10 +72,10 @@ end;
|
|||||||
close all
|
close all
|
||||||
plot(1:nsin, blepm(fix(nharm/2), :)); grid;
|
plot(1:nsin, blepm(fix(nharm/2), :)); grid;
|
||||||
|
|
||||||
wavw16(0.5*vtri, fs, 'tri.wav');
|
wavwrite(0.5*vtri, fs, 'tri.wav');
|
||||||
wavw16(0.5*vsqr, fs, 'sqr.wav');
|
wavwrite(0.5*vsqr, fs, 'sqr.wav');
|
||||||
wavw16(0.5*vsaw, fs, 'saw.wav');
|
wavwrite(0.5*vsaw, fs, 'saw.wav');
|
||||||
wavw16(0.5*vblep, fs, 'blep.wav');
|
wavwrite(0.5*vblep, fs, 'blep.wav');
|
||||||
|
|
||||||
function h = lagrange(N, delay)
|
function h = lagrange(N, delay)
|
||||||
%LAGRANGE h=lagrange(N,delay) returns order N FIR
|
%LAGRANGE h=lagrange(N,delay) returns order N FIR
|
||||||
|
|||||||
Reference in New Issue
Block a user