Plot[Sqrt[0.8125+Sqrt[0.8125-x]]-x,{x,0,0.8125}]