模拟导出分布
使用 RandomVariate,根据分量混合分布产生随机数据.
dist = MixtureDistribution[{2, 4 / 3}, {NormalDistribution[], NormalDistribution[2, 1 / 2]}];
SeedRandom[0];data = RandomVariate[dist, 10 ^ 4];Show[Histogram[data, 20, "ProbabilityDensity", ChartStyle -> "AlpineColors"], Plot[PDF[dist, x], {x, -9, 9}, PlotStyle -> {Thick, Blend[{Black, Red}]}], ImageSize -> 470]