摘要
Source code (Mathematica)
Needs["PlotLegends`"] f[x_, m_, ss_] := 1/Sqrt[2Pi ss] Exp[-(x-m)^2/(2ss)]; Plot[ {f[x, 4-1, 1], f[x, 4-0.5, 0.5], f[x, 4-0.2, 0.2], f[x, 4-0.1, 0.1], f[x, 4-0.0001, 0.0001]}, {x, 1, 6}, PlotRange -> {All, {0, 1.5}}, PlotStyle -> Thick, PlotLegend -> {"\!\(\*SubscriptBox[\"T\", \"1\"]\)", "\!\(\*SubscriptBox[\"T\", \"2\"]\)", "\!\(\*SubscriptBox[\"T\", \"3\"]\)", "...", "\!\(\*SubscriptBox[\"T\", \"\[Infinity]\"]\)" }, LegendPosition -> {-0.8, 0}, LegendSize -> 0.6, LegendShadow -> {0.02, -0.02} ] Export["c:/consistency.svg",%]
授權條款
Public domainPublic domainfalsefalse
|
|
此作品已由其作者,Stpasha,釋出至公有領域。此授權條款在全世界均適用。
這可能在某些國家不合法,如果是的話:
Stpasha授予任何人有權利使用此作品於任何用途,除受法律約束外,不受任何限制。
|
原始上傳日誌
Transferred from en.wikipedia to Commons using For the Common Good.
The original description page was
here. All following user names refer to en.wikipedia.
日期/時間 |
尺寸 |
使用者 |
備註
|
11:59, 17 July 2009 |
250 × 155 (67,346 bytes) |
w:en:Stpasha (留言 | 貢獻) |
({{Information |Description = (Consistent) sequence of estimators for θ=4 |Source = I created this work entirely by myself. |Date = |Author = ~~~ |other_versions = }} == Source code (Mathematica) == <nowiki>Needs["Plo)
|