%
% misure di guadagno dell'amplificatore EDFA IPG
% data: 03/10/2005
% 
% corrente EDFA: 500 mA
% lambda = 1560 nm
%
% NOTE:
% uscita_coupler#1  -->  monitor
% uscita_coupler#2  -->  EDFA IN
% *** Pout_vera = Pout_OSA + 3 dB ***
% R_coupl_2_1 = -2.5 dB @ 1560 nm
%



stringa_titolo = 'I_E_D_F_A = 500 mA ;   \lambda = 1560 nm';


R_coupl_2_1 = -2.5; % [dB]
Pcoupl_1 = [		-42.4       -36.9       -32.2       -27.9       -24.4       -21.2       -18.0       -14.1       -9.4        -7.2        +1.1]; %[dBm]
Pout_OSA = [	    -5.4        +0.1        4.6         8.3         11.0        12.7        13.8        14.5        14.9        14.9        14.9]; %[dBm]

Pin = Pcoupl_1  +  R_coupl_2_1; % [dB]
Pout = Pout_OSA + 3; % [dBm]
Gain = Pout - Pin; % [dB]


figure(1)
clf
set(1,'color',[1 1 1])
plot(Pin,Pout,'-b','linewidth',2)
hold on
plot(Pin,Pout,'ob','MarkerSize',8,'LineWidth',2)
grid on
xlabel('P_i_n  [dBm]')
ylabel('P_o_u_t  [dBm]')
title(stringa_titolo)
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])
plot(Pin,Gain,'-b','linewidth',2)
hold on
plot(Pin,Gain,'ob','MarkerSize',8,'LineWidth',2)
grid on
xlabel('P_i_n  [dBm]')
ylabel('Gain  [dB]')
title(stringa_titolo)
sizefig(14) % call alla funzione sizefig.m DA SCARICARE ED INSERIRE NELLA DIRECTORY CORRENTE
zoom on


figure(3)
clf
set(3,'color',[1 1 1])
plot(Pout,Gain,'-b','linewidth',2)
hold on
plot(Pout,Gain,'ob','MarkerSize',8,'LineWidth',2)
grid on
xlabel('P_o_u_t  [dBm]')
ylabel('Gain  [dB]')
title(stringa_titolo)
sizefig(14) % call alla funzione sizefig.m DA SCARICARE ED INSERIRE NELLA DIRECTORY CORRENTE
zoom on

