Wolfram Language (Raspberry Pi Pilot Release) Copyright 1988-2013 Wolfram Research Information & help: wolfram.com/raspi In[1]:= values = {{2013,400}, {2030,4000}} Out[1]= {{2013, 400}, {2030, 4000}} In[2]:= f = Fit[values, {1,Exp[x]}, x] -879 x Out[2]= 400. + 8.679690814684086 10 E In[3]:= 400 + 8.679690814684086 10^(-879) Exp[2013] Out[3]= 400.0001490377640463366 In[4]:= 400 + 8.679690814684086 10^(-879) Exp[2030] Out[4]= 4000.000149037764 In[5]:= 400 + 8.679690814684086 10^(-879) Exp[2040] 7 Out[5]= 7.929568014407939 10 In[6]:= 400 + 8.679690814684086 10^(-879) Exp[2045] 10 Out[6]= 1.176846342810664 10 In[7]:= Show[ListPlot[values, PlotStyle -> Red], Plot[{f},{x,2013,2045}] ] Out[7]= -Graphics- In[8]:= UseFrontEnd[Export["test.pdf", %]]