gr1 = Plot[Sin[1/x], {x, 0.03, 1/Pi }] gr2 = Plot[0.5, {x, 0, 1}] Show[gr1, gr2]