mathematica等距、不等距数组

mathematica多条线作图与循环图例

Clear["`*"]
h[x_, a_] = a*E^x;
LogLogPlot[Evaluate[Table[h[x, i], {i, 1, 20, 2}]], {x, 0.001, 10}, PlotRange -> All, PlotLegends -> LineLegend[Table[StringTemplate["a=``"][i], {i, 1, 20, 2}], LegendFunction -> (Framed[#1, FrameMargins -> 0] &)]]