Plot[Sqrt[2*1/a^3-2/a^2+1], {a, 0, 8}]