Plot[Table[100*((r/100))/((1+s) * ((r/100)+1)), {s, {0, 1, 4/3}}], {r, -25, 200}]