1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| clear all
close all
clc
Fe=44100; %Fréquence d'échantillonnage
f=[250,500,1000,2000,4000,6000,8000]; %Fréquence des différents sons
t=(0:ts*Fe-1)'/Fe; % Création du vecteur temps (colonne) de 1s
m=(sin+1)/2; %Fréquence modulante remontée entre 0 et 1
s1=sin(2*pi*f*t); %Son pur
s2=p*(1-tau*m); %Son pur modulé en profondeur d'intensité
p=sin(2*pi*f*t); %Fréquence porteuse
for i=1:length(f)
p(:,i)=sin(2*pi*f(i)*t); %(:,i) pour toutes les lignes de i
end
tau=10^(-valdB(I?)/20)
ts=3; %Durée d'émission du signal
pas=0.5; %Hausse du tau de modulation
silence=1; %Silence entre les deux sons
if reponse == faux
s2=p*(1-(tau+pas)*m)
else f=2f
%Jouer le son 1 puis le son 2
%Attendre que la personne réponde / elle doit trouver le signal modulé
%Créer une boucle pour que le signal se joue jusqu'à ce que la personne
%perçoive la modulation
%Si oui : passer à la fréquence supérieure
%Si non : augmenter tau jusqu'à ce que la personne peçoive la différence
%Faire de même jusqu'à 8000 Hz
%Calculer le taux minimum de perception pour chaque fréquence |
Partager