% QoS vs Capacity given traffic intensity
clc; clearvars;
z = 10; % longest waiting time [us]
L = 1; % average packet lenght [kbits]
C = 0.25:0.01:2; % link speed vector for analysis
lC = length(C);
lambda_v = [0.6; 0.8; 1]; % [packets/us]
lla = length(lambda_v);
QoS_C = zeros(lC,lla); % vector to store QoS(C)
for l=1:lla
    lambda = lambda_v(l);
    for q = 1:lC
        c = C(q);
        QoS_C(q,l) = 1-Wait(c, lambda, L, z);
    end
end
figure;
plot(C, QoS_C); grid on
title('Quality of Service vs. Capacity')
xlabel('Link Speed (C) [Gbps]')
ylabel({'QoS';'(1-Pz)'})
legend({['Lambda = ',num2str(lambda_v(1))],['Lambda = ',num2str(lambda_v(2))],...
    ['Lambda = ',num2str(lambda_v(3))]}, 'Location','northeast')