f[x_]=x*Exp[x]; g[x_]=1/(x+1);
pl1=Placed[LineLegend["Expressions",LegendLayout->{"Column",1}],Left];
pl2=Placed[LineLegend["Expressions",LegendLayout->{"Column",1}],Right];
cols1=Table[ColorData["DarkBands"][i/9],{i,Range[0,8,1]}];
cols2=Table[ColorData["BrightBands"][i/9],{i,Range[0,8,1]}];
t1=Plot[Evaluate[Table[D[f[x],{x,i}],{i,Range[0,8,1]}]],
{x,-3,0},PlotStyle->cols1,PlotLegends->pl1];
t2=Plot[Evaluate[Table[D[g[x],{x,i}],{i,Range[0,8,1]}]],
{x,0,3},PlotStyle->cols2,PlotLegends->pl2];
Show[{t1,t2},PlotRange->{{-3,3},{-1,4}},
ImageSize->{700,500},GridLines->Automatic]
No comments:
Post a Comment