New Phase-Type Distributions 

In[1]:=

X HypoexpDist[fun_, m_] := Labeled[Plot[ Evaluate@ Table[fun[HypoexponentialDistribution[Table[2/k, {k, 1, n}]], x], {n, {5, 7, 10}}], {x, 0, 40}, BaseStyle -> {FontFamily -> "Helvetica"}, Filling -> Axis, ImageSize -> m], fun]; HyperexpDist[fun_, m_] := Labeled[Plot[ Evaluate@ Table[fun[HyperexponentialDistribution[\[Alpha], {.2, 1.2}], x], {\[Alpha], {{.1, .9}, {.9, .1}, {.6, .4}}}], {x, 0, 4}, BaseStyle -> {FontFamily -> "Helvetica"}, Filling -> Axis, PlotRange -> All, ImageSize -> m], fun]; CoxianDist[fun_, m_] := Labeled[Plot[ Evaluate@ Table[fun[CoxianDistribution[\[Alpha], {.2, 1.2, .8}], x], {\[Alpha], {{.6, .4}, {.3, .9}, {.1, .7}}}], {x, 0, 6}, BaseStyle -> {FontFamily -> "Helvetica"}, Filling -> Axis, ImageSize -> m], fun];

In[2]:=

X m = 150; plots = Grid[ Join[{{Style["Coxian Distribution", 11], Style[ "Hyperexponential Distribution", 11], Style["Hypoexponential Distribution", 11]}}, Transpose[{CoxianDist [#, m] & /@ {PDF, CDF, HazardFunction, SurvivalFunction}, HyperexpDist[#, m] & /@ {PDF, CDF, HazardFunction, SurvivalFunction}, HypoexpDist[#, m] & /@ {PDF, CDF, HazardFunction, SurvivalFunction}}]], BaseStyle -> {FontFamily -> "Helvetica", FontSize -> 10}, Dividers -> All, Spacings -> {1, 3}, ItemSize -> 21, Background -> {None, Lighter[#, .6] & /@ ColorData[24, "ColorList"][[1 ;; 6]]}, BaseStyle -> {FontFamily -> "Helvetica"}, FrameStyle -> Directive[Thick, White]]

Out[2]=