摘要
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无条件地授予任何人以任何目的使用本作品的权利,除非这些条件是法律规定所必需的。
|
原始上传日志
本檔案是使用For the Common Good,從en.wikipedia轉移到維基共享資源。
原始描述頁面位於
這裡。下列使用者名稱均來自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)
|