mathematica

質問

mathematicaのビギナーです。
f[x_,a_]:=a*Sin[x];
a10=Plot[f[u,10],{u,0,3}];
a20=Plot[f[u,20],{u,0,3}];
のように定義して、これらの関数をShowコマンドで
Show[a10,a20]
のように、一つのグラフで二つの関数を描いたときに、これらの関数の名前を図中にそれぞれ表示させたいです。いろいろ探したところ、optionでPlotLabelというのがあり、
a10=Plot[f[u,10],{u,0,3},PlotLavel->"a10"];
a20=Plot[f[u,20],{u,0,3},PlotLavel->"a20"];
として
Show[a10,a20]
とやってみたのですが、関数の名前は同時に表示されませんでした。
ご存知の方教えていただけないでしょうか？よろしくお願いします。

回答No.2

mazimekko3 · ベストアンサー

No1です
すみません一部抜けているので訂正。

<< Graphics`Legend`

f[x_, a_] := a*Sin[x];
a10 = f[u, 10];
a20 = f[u, 20];

Plot[{a10, a20}, {u, 0, 3}, PlotStyle -> {GrayLevel[0],
Dashing[{.03}]}, PlotLegend -> {"a10", "a20"}]

お礼

なるほど、Legendというパッケージを使うんですね。ありがとうございました。helpでPlotLegendを検索したところ、いろいろ細かい設定もできそうですね。
本当にありがとうございました！

回答No.1

mazimekko3

<< Graphics`Legend`

Plot[{a10, a20}, {u, 0, 3}, PlotStyle -> {GrayLevel[0],
Dashing[{.03}]}, PlotLegend -> {"a10", "a20"}]