In[]:=
FunctionRange[y^2/4+Sqrt[(x-y^2/4)^2+(E^x-y)^2]+1,{x,y},z,Reals,Method{"Reduced"True}]
Out[]=
1.41421≤z≤1.998×
13
10
In[]:=
FunctionRange[y^2/4+Sqrt[(x-y^2/4)^2+(E^x-y)^2]+1,{x,y},z,Reals,WorkingPrecisionMachinePrecision]
Out[]=
z≥1.41421
In[]:=
FunctionRange[y^2/4+Sqrt[(x-y^2/4)^2+(E^x-y)^2]+1,{x,y},z,Reals,Method{"Reduced"True},WorkingPrecisionMachinePrecision]
Out[]=
1.41421≤z≤1.998×
13
10
In[]:=
NMinimize[{y^2/4+Sqrt[(x-y^2/4)^2+(E^x-y)^2]+1,{x,y}∈Reals},{x,y}]
Out[]=
{1.41421,{x-5.11793×,y0.828427}}
-13
10
