Here is another quick tip about plotting curves using Mathematica. The option PlotLables can be used to identify curves. In our first example there are two curves named curve1 and curve2.

a = Plot[x+7, {x, 0, 12}, PlotLabels->Placed[{“curve1”}, Above]]

b = Plot[1.4*x, {x, 0, 12}, PlotLabels->Placed[{“curve2”}, Below]]

Show[a,b]

The result is disappointing. We cannot see the label of the second curve. This is so because the option Below places the label at the left end of the curve, which is not showing.

To fix this, use the options PlotRange and Exclusions:

Show[a, b, Exclusions -> None, PlotRange -> All]