function [] = RTCP_N(BW1,BW2,BW3,PLrr, N)

n = 1:100:N;

Trr1 = (PLrr*n)/(0.75*0.05*BW1);
Trr2 = (PLrr*n)/(0.75*0.05*BW2);
Trr3 = (PLrr*n)/(0.75*0.05*BW3);

% figure 
% 
% loglog(n,Trr1,'r');
% hold on
% loglog(n,Trr2,'b');
% loglog(n,Trr3,'g');
% legend('2Mb/s','4Mb/s','10Mb/s',2)
% xlabel('pocet uzivatelu')
% ylabel('interval odesilani RR zpravy [s]')
% 
% 
% figure 
% 
% semilogx(n,Trr1,'r');
% hold on
% semilogx(n,Trr2,'b');
% semilogx(n,Trr3,'g');
% legend('2Mb/s','4Mb/s','10Mb/s',2)
% xlabel('pocet uzivatelu')
% ylabel('interval odesilani RR zpravy [s]')
% 
% 
% figure 
% 
% semilogy(n,Trr1,'r');
% hold on
% semilogy(n,Trr2,'b');
% semilogy(n,Trr3,'g');
% legend('2Mb/s','4Mb/s','10Mb/s',2)
% xlabel('pocet uzivatelu')
% ylabel('interval odesilani RR zpravy [s]')

figure 

plot(n,Trr1,'r-','LineWidth',2);
hold on
plot(n,Trr2,'b-','LineWidth',2);
plot(n,Trr3,'g-','LineWidth',2);
legend('2Mb/s','4Mb/s','10Mb/s',2)
% xlabel('pocet uzivatelu')
% ylabel('interval odesilani RR zprav [s]')
% title('Zavislost intervalu odesilani RR zprav na sirce pasma')