Mathematica
 
 

Saving plots in eps-format

In[1]:= gr = Plot[Sin[x], {x, 0, 2 Pi}]
In[2]:= Display["myfile.eps", gr, "EPS"]

Recursion