Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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]



  • Prev by Date: Plots for terms of polynomials. Slider initial values?
  • Next by Date: Re: Derivative of experimental data
  • Previous by thread: Re: Automatic Numbering in Mathematica
  • Next by thread: Re: Simplify puzzle