Plot[Sqrt[1/D], {D, 0, 1}]