Simulate Message Communication
Messages arrive at a communication line according to a two-phase hyperexponential distribution with phase probabilities 0.4 and 0.6. The average arrival times for the two phases are 4.8 milliseconds and 0.8 milliseconds, respectively. Simulate the process for 100 milliseconds.
communicationLine = RenewalProcess[HyperexponentialDistribution[{0.4, 0.6}, {1 / 4.8, 1 / 0.8}]];ListLinePlot[RandomFunction[communicationLine, {0, 100}, 3], Filling -> Axis, InterpolationOrder -> 0, ImageSize -> 300]Mean[communicationLine[100]]Mean[RandomVariate[communicationLine[100], 10 ^ 2]]//N