added matlab

2025-08-21 07:27:52 +02:00
parent fd522e1b99
commit 64c6745c76
50 changed files with 2516 additions and 0 deletions
@@ -0,0 +1,38 @@
+function eval_limiter(name)
+
+Tr = 1;     % ms
+Tf = 100;  % ms
+input_gain = 2;
+output_gain = 0.5;
+
+limit_thresh = 0.25;
+
+[x, fs, nbits, opts] = wavread(name);
+x = x.*input_gain;
+
+N = fix(length(x));
+
+a_r = 1000/(Tr*fs);
+a_f = 1000/(Tf*fs);
+
+y = 0;
+for n=1:N
+    if (y < abs(x(n)))
+		y = y + a_r*(abs(x(n)) - y);
+	else
+		y = y + a_f*(abs(x(n)) - y);
+    end
+    env(n) = y;
+end;
+
+limiter_gain = limit_thresh./max(limit_thresh, env)';
+x_limited = x(1:N).*limiter_gain.*output_gain;
+
+wavwrite(x_limited,fs,'limiter_out.wav');
+
+subplot(2, 1, 1)
+plot(0:N-1, x(1:N), 0:N-1, env, 'r-'); grid;
+subplot(2, 1, 2)
+plot(0:N-1, x_limited, 0:N-1, limiter_gain, 'r-'); grid;
+
+