


lambda = 0.6328; %[um]



freq = [		10			20		50		100	125	150	175	200 	500	1000];
V_drive = [	14.8		15.9	16.5	19		11.3	18		23.3	25.6	272	636]; % [mW]
N_frange = [10			10		10.5	14.5	13		18.5	16.5	11.8	14.8	10.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

