Plot[ReplaceAll[Sqrt[g Sqrt[s + x^2]],{s -> 100.0, g -> 1000}],{x,0,1000} ]