Plot[{Sqrt[x], -Sqrt[x], 1/2 x}, {x, 0, 5}]