# 절단 분포

TruncatedDistribution의 PDF는 좀 더 뽀죡하고 원래 분포와 비교하는 아주 작은 정의역에서는 0이 되지 않습니다.
 In[1]:= XLeftTruncated\[ScriptCapitalD] = TruncatedDistribution[{-1, \[Infinity]}, NormalDistribution[]]; RightTruncated\[ScriptCapitalD] = TruncatedDistribution[{-\[Infinity], 1}, NormalDistribution[]]; DoubleTruncated\[ScriptCapitalD] = TruncatedDistribution[{-1, 1}, NormalDistribution[]]; g1 = Table[Plot[{PDF[m, x], PDF[NormalDistribution[], x]}, {x, -3, 3}, Filling -> Axis, Exclusions -> None], {m, {LeftTruncated\[ScriptCapitalD], RightTruncated\[ScriptCapitalD], DoubleTruncated\[ScriptCapitalD]}}];
 In[2]:= X\[ScriptCapitalD] = ProductDistribution[NormalDistribution[], LaplaceDistribution[-1/2, 1]]; \[ScriptCapitalT]1 = TruncatedDistribution[{{-\[Infinity], 1}, {-\[Infinity], \[Infinity]}}, \[ScriptCapitalD]]; \ \[ScriptCapitalT]2 = TruncatedDistribution[{{-\[Infinity], \[Infinity]}, {-\[Infinity], 1}}, \[ScriptCapitalD]]; \[ScriptCapitalT]3 = TruncatedDistribution[{{-\[Infinity], 1}, {-\[Infinity], 1}}, \[ScriptCapitalD]]; g2 = Table[Plot3D[ Evaluate[{PDF[\[ScriptCapitalD], {x, y}], PDF[m, {x, y}]}], {x, -2, 2}, {y, -2, 2}, PlotStyle -> {Lighter@ColorData[1, 1], Directive[Lighter@ColorData[1, 2], Opacity[0.7]]}, PlotRange -> All, Lighting -> "Neutral", ExclusionsStyle -> Directive[Yellow, Opacity[0.5]], Mesh -> None, AxesLabel -> Automatic], {m, {\[ScriptCapitalT]1, \[ScriptCapitalT]1, \ \[ScriptCapitalT]3}}];
 In[3]:= XFramed[GraphicsGrid[{g1, g2}, ImageSize -> 550, Spacings -> {Automatic, 150}], RoundingRadius -> 10, FrameStyle -> GrayLevel@0.3, FrameMargins -> 10, Background -> LightYellow]
 Out[3]=