In[]:=
ClearAll["`*"];Remove["`*"]
In[]:=
$Version
Out[]=
14.1.0 for Microsoft Windows (64-bit) (July 16, 2024)
In[]:=
F[x_,y_,g_]:=x-(Exp[y]-Exp[-g*y]);x=10;g=10^10;MemoryConstrained[FindRoot[F[x,y,g],{y,2,5},WorkingPrecision->50,PrecisionGoal->30,AccuracyGoal->∞],5000000000]
Out[]=
$Aborted
In[]:=
MemoryInUse[]
Out[]=
110898480
In[]:=
MaxMemoryUsed[]
Out[]=
9127378288