In[2]:= Plot[ Sin[7x] Exp[-(x-2)^2], {x,0,4}] -- Graphics -- In[3]:= Display[ "plot1.file", %2 ] In[4]:= Plot[ {Sin[x], Cos[x]}, {x,0,12} ] -- Graphics -- In[5]:= Display [ "plot2.file", % ] In[6]:= ParametricPlot[ { Sin[x]Cos[x], Sin[x]^2 }, {x, 0, Pi} ] -- Graphics -- In[7]:= Display[ "plot3.file", % ] In[8]:= <50 ] -- Graphics -- In[18]:= Display[ "plot6.file", % ] In[19]:= ContourPlot[ f[x,y], {x,-1,1}, {y,-1,1}, ContourShading->False, -- Graphics -- Contours->12 ] In[20]:= Display[ "plot7.file", %] In[21]:= Plot3D[ Sin[1 - x y], {x,-3,3}, {y,-1.5,1.5} ] -- Graphics -- In[22]:= Display[ "plot8.file", % ]