『求助』调用legend为何出错

按照mathematica中的例子调用legend
<< Graphics`Graphics`
<< Graphics`Legend`
Plot[{Sin[x], Cos[x]}, {x, -2 Pi, 2 Pi}, PlotStyle -> {GrayLevel[0],
Dashing[{.03}]}, PlotLegend -> {"Sine", "Cosine"}]
但是显示plotlegend未知，请问大侠是何问题，多谢。