摘要
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 domain Public domain false false
本作品已被作者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)
中文(中国大陆) 添加一行文字以描述该文件所表现的内容