37 lines
999 B
Mathematica
37 lines
999 B
Mathematica
|
% clear;
|
||
|
|
close all;
|
||
|
|
|
||
|
|
% load exercice_1;
|
||
|
|
|
||
|
|
% Paramètre à ajuster :
|
||
|
|
m = 100;
|
||
|
|
|
||
|
|
% Calcul de la TFCT :
|
||
|
|
[Y, valeurs_tau, valeurs_f] = TFCT(y, f_ech, n_fenetre, n_decalage, fenetre);
|
||
|
|
|
||
|
|
% Sélection des m coefficients de Fourier de plus grand module :
|
||
|
|
[valeurs_max, indices_max, taux_compression] = mp3(Y, m, length(y));
|
||
|
|
fprintf('Taux de compression : %.3f\n', taux_compression);
|
||
|
|
|
||
|
|
% Reconstitution de la TFCT à partir de indices_max et valeurs_max :
|
||
|
|
nb_colonnes = size(Y, 2);
|
||
|
|
Y_reconstitue = zeros(size(Y));
|
||
|
|
|
||
|
|
for i = 1:nb_colonnes
|
||
|
|
indices_max_i = indices_max(:, i);
|
||
|
|
Y_reconstitue(indices_max_i, i) = valeurs_max(:, i);
|
||
|
|
end
|
||
|
|
|
||
|
|
% Affichage de la TFCT reconstituée :
|
||
|
|
figure('units','normalized','outerposition',[0 0 1 1])
|
||
|
|
imagesc(valeurs_tau, valeurs_f, 20 * log10(abs(Y_reconstitue) + eps));
|
||
|
|
axis xy;
|
||
|
|
xlabel('Temps (s)');
|
||
|
|
ylabel('Frequence (Hz)');
|
||
|
|
title('Sonagramme de la TFCT reconstitue');
|
||
|
|
drawnow;
|
||
|
|
|
||
|
|
export_fig(gcf, "saves/" + filename + "_mp3.png", '-png', '-painters', '-m2');
|
||
|
|
|
||
|
|
% save exercice_2;
|