Re: Automatic Numbering in Mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg124721] Re: Automatic Numbering in Mathematica
- From: "Kevin J. McCann" <Kevin.McCann at umbc.edu>
- Date: Thu, 2 Feb 2012 04:56:37 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <20542650.1231759879279.JavaMail.root@m02> <gkkf59$grh$1@smc.vnet.net> <jgaumu$ev1$1@smc.vnet.net>
On 2/1/2012 3:55 AM, pabloaperezfernandez at gmail.com wrote: > If you have figured out how to do this, I would appreciate learning about it. I cannot figure out how to set custom equation numbers/labels. > This is taken from my style sheet for a cell type NumberedEquation. The key entries for numbering are the CellFrameLabels and CounterIncrements. The latter designates a counter name so more than one type of numbered object can have its own numbering. I should also say that I am not an expert on this. Sadly, Wolfram has still, after many many years and requests, not provided adequate documentation for StyleSheet's. Perhaps someone at Wolfram who reads this could explain why. Kevin Cell[StyleData["NumberedEquation"], CellMargins->{{60, 12}, {7, 7}}, ConversionRules->{"HTML" -> {{"", ""}, {"<table class='NumberedEquation'><tr><td>", Automatic, IncludeCount["</td><td class='NumberedEquationLabel'>(`1`)</td></tr></table>", "NumberedEquation"]}}}, TaggingRules->{"CounterSettings" -> { "CounterFormat" -> {"NumberedEquation"}, "CounterTarget" -> "Cell", "XRefPrefix" -> "Equation"}}, TextClipboardType->"InputText", CellHorizontalScrolling->True, CellFrameLabels->{{None, Cell[ TextData[{"(", CounterBox["NumberedEquation"], ")"}], "NumberedEquation"]}, {None, None}}, DefaultFormatType->TraditionalForm, TextAlignment->Center, CounterIncrements->"NumberedEquation", MenuSortingValue->1400, MenuCommandKey->"8", SingleLetterItalics->False]