Mathematica
Memo
の入力 : [Esc] -> pi -> [Esc] (ノートブックにおける入出力 > ギリシャ文字の入力)
の入力 : [Esc] -> int -> [Esc] -> [Crtl] + _ -> a -> [Crtl] + % -> b (ノートブックにおける入出力 > 二次元表示記号の入力)
Samples
(* 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]