fixed eval_blep

This commit is contained in:
2026-05-09 08:29:00 +02:00
parent c7c9366dbb
commit 597c70bb53
3 changed files with 4 additions and 4 deletions
Binary file not shown.
Binary file not shown.
+4 -4
View File
@@ -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