SS-CAC(PR_j, SR_j, j)

Begin

1 P_j ←SR_j/PR_j ;

2 if j=i then N_i←N_i+1; end if

3 m ← 0;

4 for i←1 to M do

5 λ_i←N_i* P_j;

5 m←m+λ_i * PR_j;

6 end for

7 a←2*m*exp((α-1)*log(δ))/( α*(2-α)*(3-α));

8 H←(3-α)/2;

9 K_H←exp(H*log(H))*exp((1-H)*log(1-H));

10 c←m+exp(1/H*log((K_H*sqrt(-2log(ε)))*exp(1/(2*H)

*log(a))*exp(-(1-H)/H*log(x))*exp(1/(2*H)*log(m));

11 if c>C then

12 reject the request;

13 return FALSE;

14 else

15 accept the request;

16 return TRUE;

17 end if

End