In[]:=
f[x_]:=(x^2-7*x+11)^(x^2-11*x+30)
In[]:=
points=Table[{x,f[x]},{x,2,6,.05}];
In[]:=
ListPlot[points]
Out[]=
In[]:=
ListLinePlot[points]
Out[]=