%
% corso COSTRUZIONI OPTOELETTRONICHE
% data 28/10/2005
%
% misura della risposta in frequenza di un altoparlante tramite un interferometro di Michelson
%
% ** metodo del conteggio del numero di frange **
%


lambda = 0.6328; %[um]



freq = [		10			20		50		75      100	    125	    150	    175	    200 	500	    1000    2000    5000];
V_drive = [	    11		    11	    11.7	14      9		7.3	    13      14.4    16.3    79      127     552     2360]; % [mW]
N_frange = [    13.5        16		16		19.75   16.75	11.82	15.25   12.7    11      5.75    4       2.5     0.5]; 

spost = N_frange * lambda / 2; % [um]
resp = spost ./ V_drive; % [um/mV]

figure(1)
clf
set(1,'color',[1 1 1])
plot(freq,resp,'-b','linewidth',2)
hold on
plot(freq,resp,'ob','MarkerSize',8,'LineWidth',2)
grid on
xlabel('Frequency  [Hz]')
ylabel('Loudspeaker Responsivity  [\mum/mV]')
sizefig(14) % call alla funzione sizefig.m DA SCARICARE ED INSERIRE NELLA DIRECTORY CORRENTE
zoom on

figure(2)
clf
set(2,'color',[1 1 1])
loglog(freq,resp,'-b','linewidth',2)
hold on
loglog(freq,resp,'ob','MarkerSize',8,'LineWidth',2)
grid on
xlabel('Frequency  [Hz]')
ylabel('Loudspeaker Responsivity  [\mum/mV]')
sizefig(14) % call alla funzione sizefig.m DA SCARICARE ED INSERIRE NELLA DIRECTORY CORRENTE
axis([10 1000 0.001 1])
zoom on

