m-files fixed wavwrite

2025-08-22 13:39:23 +02:00
parent 21411d2c56
commit 2ab8c68c9b
4 changed files with 21 additions and 18 deletions
@@ -2,12 +2,15 @@ function eval_blit()

 sinc_use_lut = 0

-L = 40000;
+L = 96000;
 fs = 48000;
-fstart = 8*440;
-fend = 8*440;
+fstart = 440;
+fend = 440;
 df = (fend-fstart)/L

+# for saw 
+rho = 0.95;
+
 nhw = 4096;
 Hw = kaiser(nhw, 8)';

@@ -65,7 +68,7 @@ for n = 1:L,
        end
    end
    
-	saw = saw + fraq - blit;
+	saw = rho*saw + (fraq - blit);
 	sqr = sqr + z*blit;
    tri = tri + 2*(sqr-0.5)*fraq;
 	vtri(n) = tri;
@@ -82,8 +85,8 @@ close all
 figure;
 plot(1:L, vsaw, 1:L, vblit); grid;

-wavw16(0.5*vtri, fs, 'tri.wav');
-wavw16(0.5*vsqr, fs, 'sqr.wav');
-wavw16(0.5*vsaw, fs, 'saw.wav');
-wavw16(0.5*vblit, fs, 'blit.wav');
+wavwrite(0.5*vtri, fs, 'tri.wav');
+wavwrite(0.5*vsqr, fs, 'sqr.wav');
+wavwrite(0.5*vsaw, fs, 'saw.wav');
+wavwrite(0.5*vblit, fs, 'blit.wav');