Manipulate[
Plot[{PDF[NormalDistribution[-1,1/n],x],
PDF[NormalDistribution[-1,1/n],x]*Boole[x>c],
PDF[NormalDistribution[1,1/n],x],
PDF[NormalDistribution[1,1/n],x]*Boole[x小於c]},{x,-5,5},
Filling->{2->Bottom,4->Bottom},
PlotRange->{{-5,5},{0,1}},
Epilog->{Thickness[0.005],Line[{{c,0},{c,1}}],Arrow[{{c,0.8},{4,0.8}}],
Text[Style["棄卻域",FontSize->24],{c+1,0.9}]},
ImageSize->500],
{{c,0,Style["棄卻域",FontSize->24]},-2,2,0.1},
{{n,1,Style["樣本數",FontSize->24]},1,2.5,0.1}
]
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助，那請留個訊息給我～