γ={3,6};μ={7,17};
r={{1/6,1/9},{1/4,1/8}};
c={1,1};

𝒩=QueueingNetworkProcess[γ,r,μ,c];

data=RandomFunction[𝒩,{0,10}];

ListLinePlot[data,Filling-> Axis]

Table[QueueProperties[{𝒩,i}],{i,2}]//N

𝒟=StationaryDistribution[𝒩];

PDF[𝒟,{m,n}]

DiscretePlot3D[PDF[𝒟,{m,n}]//Evaluate,{m,0,4},{n,0,4},ExtentSize->0.5,PlotRange->All]

CDF[𝒟,{m,n}]

DiscretePlot3D[CDF[𝒟,{m,n}]//Evaluate,{m,0,35},{n,0,35},ExtentSize->Right,PlotRange->{0,1.05}]