Min[x+y,4*Sqrt[x],4*Sqrt[y]]