Qlib:

<< qlib.m

?qlib

Erlang Functions:

There is 5 servers and offered load of 3.0 erl. The blocking probability is,

Berli[5, 3.0]

If one wants to reduce the blocking probability to 1%, how many servers are needed?

Xerl[0.01, 3.0]

Gabriel Networks:

?GabrielNet

net1 = 
        GabrielNet[30, Graph -> True, Index -> True];

tree1 = Dijkstra[First[net1], 1];

ShowNetwork[net1, tree1, Graph -> True]

Example: What is the average node degree of Gabriel graph?:

sample[nodes_] := 
        Module[ {M, loc, edges}, 
{M, loc} = 
            GabrielNet[nodes]; 
edges = 
            Length[Select[
                Flatten[
                  M], # > 0 && # < Infinity &]]; 
edges/
            nodes];

testrun[lkm_] := 
        Module[{S1}, 
S1 = 
            Table[sample[30], {i, lkm}]; 
(Plus @@ S1)/
              lkm // N];

Timing[testrun[10]]

Inorder to increase sample size one can use faster C-versions of Qlib routines:

<< qlibC.m

Timing[testrun[100]]