WOLFRAM

Wolfram 语言与系统参考资料中心

定义一个有给定风险函数的分布

    
给出一个风险函数：
Wolfram Language code: h[x_] := Piecewise[{{1, x < 1}, {Exp[-x], x ≥ 1}}]
通过该风险函数定义 ProbabilityDistribution：
Wolfram Language code: 𝒟 = ProbabilityDistribution[{"HF", h[x]}, {x, 0, ∞}]
分布函数：
Wolfram Language code: GraphicsGrid[Partition[Table[Plot[fun[𝒟, x], {x, 0, 4}, Filling -> Axis, PlotLabel -> fun, ImageSize -> 200], {fun, {PDF, CDF, HazardFunction, SurvivalFunction}}], 2, 2]]
仿真并画出直方图：
Wolfram Language code: data = RandomVariate[𝒟, 10 ^ 5]; Histogram[data, {0, 6, .1}, "PDF", ImageSize -> 300]