Plot[d[2.3, 0.08, x], {x, 0, 1000}]