In[]:=
pic=Plot3D[eFunc[{x,y}],{x,-70,-30},{y,-10,10},PlotRangeAll]
Out[]=
In[]:=
record={};​​pic=Plot3D[eFunc[{x,y}],{x,-70,-30},{y,-1,8},PlotRangeAll]
Out[]=
In[]:=
Dimensions@record
Out[]=
{2009,3}
In[]:=
Select[record,#[[3]]>-1.0&]
Out[]=
{}
In[]:=
record[[1]]
Out[]=
{-32.8543,1.57207,-1.29552}
In[]:=
ListPlot3D@record
Out[]=