g[x_]:=PDF[NormalDistribution[0,1],x]
G[x_]:=CDF[NormalDistribution[0,1],x]
Manipulate[Plot[{g[x],
If[Abs[x]>Quantile[NormalDistribution[0,1],1-a],
g[x]]},{x,-4,4},PlotRange->All,Filling->{2->0},
PlotStyle->Thickness[0.01],
Epilog->{Thickness[0.01],Black,Line[{{2,0},{2,0.4}}]}],
{{a,0.2,Style["\[Alpha]=",FontSize->24]},0.2,0,0.01,
Appearance->"Open"}]
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助，那請留個訊息給我～