Wolfram
Mathematica
8의 신기능: 비모수 분포, 파생 분포, 포뮬라 분포
◄
이전
|
다음
►
핵심 알고리즘
시뮬레이션에 이용되는 자연적 과정 비모수 분포
데이터 기반 분포는 올드 페이스풀 간헐천 데이터를 이용해 만들 수 있습니다. 다음은 분포로부터 PDF와 난수 표본을 시각화 한 것입니다.
In[1]:=
X
data = ExampleData[{"Statistics", "OldFaithful"}];
In[2]:=
X
\[ScriptCapitalD] = KernelMixtureDistribution[data, "SheatherJones"];
In[3]:=
X
p2 = ListPlot[rng = RandomVariate[\[ScriptCapitalD], 500], PlotRange -> {{1, 6}, {30, 110}}, AspectRatio -> 1, Frame -> True, ImageSize -> 220, PlotStyle -> Blue, PlotLabel -> Text[Style["Simulated Eruptions", FontFamily -> "Verdana", Bold]], Background -> Directive[Opacity[.5], White], Axes -> None]; p1 = Plot3D[ Evaluate[PDF[\[ScriptCapitalD], {x, y}]], {x, 1, 6}, {y, 30, 105}, Mesh -> 25, PlotRange -> All, PlotLabel -> Text[Style["Duration vs. Waiting Time", FontFamily -> "Verdana", Large]], BoxRatios -> 1, PlotPoints -> 100, MeshStyle -> Opacity[.3], ColorFunction -> "TemperatureMap", Boxed -> False, ViewPoint -> {2, -2, 1}, Epilog -> Inset[p2, {Right, Bottom}, {Right, Bottom}], ImageSize -> 570]
Out[3]=