Upload New File

src/SAR1Q1.m

+% Liste des fichiers audio à analyser
+fichiers = {'single_tone_violin-a3.wav', 'nylon-guitar.wav', 'single_tone_guitar-pitch-pipe-a3.wav', 'single_tone_sax-soprano-a3.wav', 'single_tone_trumpet-a3.wav'};
+
+% Boucle sur les fichiers
+for i = 1:5
+    % Chargement du fichier
+
+    [x, fe] = audioread(fullfill('wav',fichiers{i}));
+    
+    % Conversion en mono si stéréo
+    if size(x, 2) > 1
+        x = mean(x, 2);
+    end
+    
+    % Longueur du signal
+    N = length(x);
+
+    % Calcul de la FFT et centrage
+    X = fftshift(fft(x));
+    f = linspace(-fe/2, fe/2, N);
+
+    % Amplitude en dB
+    amplitude_dB = 20 * log10(abs(X) + eps); % eps pour éviter log(0)
+
+    % Affichage du spectre
+    figure;
+    plot(f, amplitude_dB, 'b');
+    xlabel('Fréquence (Hz)');
+    ylabel('Amplitude (dB)');
+    title(['Spectre de : ', fichiers{i}], 'Interpreter', 'none');
+    grid on;
+    xlim([-fe/2 fe/2]);
+end
\ No newline at end of file