- Using the mouse, you can simply select a graphic and

`Save Selection as EPS`

(or, possibly under*Mathematica*6.0, as PDF). - Using the
`Export`

command from within the notebook. The command, to be place right after you've generated the graphic, will look something like this:

`Export[``graphicfile.eps'',%]`

This will create a file named

`graphicfile.eps`

.*Mathematica*determines what kind of file to create based on the file extension, in this case`eps`

. What goes into the file is determined by the second argument to the`Export`

command. In*Mathematica*-speak, % means ``The output of the immediately preceeding equation.'' So, you would want to do something like this with your*Mathematica*code:Plot[Sin[x],{x,0,Pi}] Export[``Graphic.eps'',%]