Нахождение вероятности потери клиента для очереди 

In[2]:=

X Plot[Evaluate@Table[ErlangB[c, a], {c, {1, 15, 30, 45}}], {a, 0.1, 80}, Filling -> Axis, ImageSize -> 300, AxesLabel -> {"a", "prob"}, PlotLegends -> LineLegend[ Table[StringJoin["c = ", ToString[c]], {c, {1, 15, 30, 45}}]]]

In[3]:=

X DynamicModule[{NumberOfCallLines, bht = 21, pr = 0.02}, Grid[{{"", Style["Erlang B Calculator", Bold], ""}, {"Traffic", "Blocking", "Lines"}, {InputField[Dynamic[bht], Number, FieldSize -> 7], InputField[Dynamic[pr], Number, FieldSize -> 7], Style[Dynamic@NumberOfCallLines[bht, pr], {Bold, Blue}]}, {Button[ "Calculate"], SpanFromLeft}}, Alignment -> {Left, Center}, BaseStyle -> {FontFamily -> "Helevetica"}, Spacings -> {3.5, 0.5}, Frame -> True, FrameStyle -> Thick, Background -> Lighter[Yellow, 0.85]], Initialization :> (NumberOfCallLines[a_, p_] /; Positive[a] && Positive[p] && 0 < p < 1 := Block[{n, n1, res}, res = Catch[Do[n1 = n; res = Quiet[ErlangB[n1, a]]; If[res <= p, Throw[n1]], {n, 10^6}]; Throw[$Failed]]; res /; FreeQ[res, $Failed]]; NumberOfCallLines[__] := "Failed"), SaveDefinitions -> True]

Формула Эрланга Б находит вероятность утери клиента в очереди типа M/M/c/c, в связи с полной занятостью обслуживающего персонала. Например, при наличии 30 телефонных линий, и объёме звонков в 25 эрлангов, вероятность утери клиента приблизительно равна 0.05.

In[1]:=

X ErlangB[30, 25.]

Out[1]=

Рассмотрим зависимость вероятности утери от числа телефонных линий.

Out[2]=

Нахождение необходимого числа телефонных линий по заданному объёму звонков и максимально допустимой вероятности утери клиента.

Out[3]=