Manipulate[Plot[{1/x^n, -1/x^m, 1/x^n - 1/x^m}, {x, 0, 5},
                GridLines -> Automatic], {n, 1, 7}, {m, 1, 3}]