Wolfram
Mathematica
8의 신기능: 비모수 분포, 파생 분포, 포뮬라 분포
◄
이전
|
다음
►
핵심 알고리즘
파생 분포 시뮬레이션
RandomVariate
를 이용하여 요소 혼합 분포로부터 난수 생성을 실시합니다.
In[1]:=
X
dist = MixtureDistribution[{2, 4/3}, {NormalDistribution[], NormalDistribution[2, 1/2]}]; SeedRandom[0]; data = RandomVariate[dist, 10^4];
In[2]:=
X
Framed[Show[ Histogram[data, 20, "ProbabilityDensity", ChartStyle -> "AlpineColors"], Plot[PDF[dist, x], {x, -9, 9}, PlotStyle -> {Thick, Blend[{Black, Red}]}], ImageSize -> 470], RoundingRadius -> 10, FrameStyle -> GrayLevel@0.3, FrameMargins -> 10, ImageSize -> 500, Background -> LightPurple]
Out[2]=