Mathematica：一个分段指数分布函数的取样

chenxiankai

各位好：
我用Mathematica对一个分段的指数分布函数进行取样，函数表达如下：

ProbabilityDistribution[Piecewise[{{ (1/806.573)*Exp[-(5713.73 - x)/806.573], x < 5713.73},
{(1/806.573)*Exp[(5713.73 - x)/806.573], x >= 5713.73}}], {x, -\[Infinity], \[Infinity]}]


函数曲线请看图。

但是当我用RandomVariate进行取样的时候，为什么只有小于5713.73的数值被取到呢？

请明白的大侠帮忙看看，谢谢！