
%========================================================================
% Dibuja las funciones de transferencia de los SSPA según el modelo de Rapp
% para distintos valores de p
%========================================================================

Asat=1;
eje=linspace(0,1.7*Asat,1000);

figure()
sspa2=abs(eje)./((1+((abs(eje)./Asat).^(2*2))).^(1/(2*2)));
sspa4=abs(eje)./((1+((abs(eje)./Asat).^(2*4))).^(1/(2*4)));
sspa8=abs(eje)./((1+((abs(eje)./Asat).^(2*8))).^(1/(2*8)));
sspa32=abs(eje)./((1+((abs(eje)./Asat).^(2*32))).^(1/(2*32)));
sspa256=abs(eje)./((1+((abs(eje)./Asat).^(2*256))).^(1/(2*256)));

plot(eje,sspa2,'r',eje,sspa4,'y',eje,sspa8,'k',eje,sspa32,'g',eje,sspa256,'b');
grid on;
axis([0 1.7*Asat 0 1.1*Asat]);
legend('p=2','p=4','p=8','p=32','p=256',5);
title(' Función de transferencia de SSPA para distintos valores de p ')
xlabel('Pin')
ylabel('Pout')
