Automatic numbered captions for figures (plots)

*To*: mathgroup at smc.vnet.net*Subject*: [mg18177] Automatic numbered captions for figures (plots)*From*: "William F. Campbell" <valentin at wam.umd.edu>*Date*: Sat, 19 Jun 1999 23:54:34 -0400*Organization*: UMD Dept. of Meteorology*Sender*: owner-wri-mathgroup at wolfram.com

I'd like to be able to do generate a graphic, then automatically generate a cell in myFigureStyle that has automatic numbering. I have figured out part of the process. Inside whatever graphics command I use, I use Epilog->{CellPrint[Cell["I enter the figure description here",myFigureStyle]]}. But I haven't figured out (no pun intended) how to get the cell to start with Figure 1., so that it actually looks like Figure 1. I enter the figure description here and the next time I use it, Figure 2. Here's the caption for my next figure. In other words, I don't know how to define myFigureStyle. On a related note, I couldn't find out what all the available predefined styles are (for cells). I read somewhere that not all the styles are in the Format|Styles menu. In the appropriate section of the Mathematica book, a style called NumberedEquation is mentioned, but I couldn't find it anywhere (thus I cannot use it). -- Bill Campbell Correlation is not cause.