(* Use legends *)
Needs["PlotLegends`"];
(* Font setting *)
SetOptions[Plot, BaseStyle -> {FontFamily -> "Times", FontSize -> 14}];
SetOptions[LogPlot, BaseStyle -> {FontFamily -> "Times", FontSize -> 14}];
Plot[{SphericalBesselJ[0, \[Pi]*x]
, SphericalBesselJ[1, \[Pi]*x], SphericalBesselJ[2
, \[Pi]*x], SphericalBesselJ[3, \[Pi]*x]}
, {x, 0, 5}, PlotRange -> {-0.5, 1},
PlotLegend -> {Style["\!\(\*SubscriptBox[\(j\), \(0\)]\)(\[Pi]x)",
14, FontFamily -> "Times"],
Style["\!\(\*SubscriptBox[\(j\), \(1\)]\)(\[Pi]x)", 14,
FontFamily -> "Times"],
Style["\!\(\*SubscriptBox[\(j\), \(2\)]\)(\[Pi]x)", 14,
FontFamily -> "Times"],
Style["\!\(\*SubscriptBox[\(j\), \(3\)]\)(\[Pi]x)", 14,
FontFamily -> "Times"]}, LegendPosition -> {0.4, 0.},
LegendBorder -> None, LegendShadow -> None]
LogPlot[{SphericalBesselJ[0, \[Pi]*x]^2
, SphericalBesselJ[1, \[Pi]*x]^2, SphericalBesselJ[2
, \[Pi]*x]^2, SphericalBesselJ[3, \[Pi]*x]^2}
, {x, 0, 5}, PlotRange -> {0.001, 1},
PlotLegend -> {Style[
"|\!\(\*SubscriptBox[\(j\), \(0\)]\)(\[Pi]x)\!\(\*SuperscriptBox[\
\(|\), \(2\)]\)", 14, FontFamily -> "Times"],
Style["|\!\(\*SubscriptBox[\(j\), \
\(1\)]\)(\[Pi]x)\!\(\*SuperscriptBox[\(|\), \(2\)]\)", 14,
FontFamily -> "Times"],
Style["|\!\(\*SubscriptBox[\(j\), \
\(2\)]\)(\[Pi]x)\!\(\*SuperscriptBox[\(|\), \(2\)]\)", 14,
FontFamily -> "Times"],
Style["|\!\(\*SubscriptBox[\(j\), \
\(3\)]\)(\[Pi]x)\!\(\*SuperscriptBox[\(|\), \(2\)]\)", 14,
FontFamily -> "Times"]}, LegendPosition -> {0.4, 0.},
LegendBorder -> None, LegendShadow -> None]
の入力 : [Esc] -> pi -> [Esc] (ノートブックにおける入出力 > ギリシャ文字の入力) 
の入力 : [Esc] -> int -> [Esc] -> [Crtl] + _ -> a -> [Crtl] + % -> b (ノートブックにおける入出力 > 二次元表示記号の入力) 
