Re: How to generate sections, subsections, etc. automatically?

*To*: mathgroup at smc.vnet.net*Subject*: [mg66983] Re: How to generate sections, subsections, etc. automatically?*From*: bghiggins at ucdavis.edu*Date*: Tue, 6 Jun 2006 06:27:23 -0400 (EDT)*References*: <e60obe$g7s$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Will this do the trick: calc[n_] := Integrate[x^n, x]; mycalculations[i_] := Module[{}, CellPrint[Cell["Calulation Number " <> ToString[i], "Section", TextAlignment -> Center]]; CellPrint[Cell["The value for parameter i in this calculation is: i = " <> ToString[i], "Text"]]; CellPrint[Cell[BoxData[ToBoxes[calc[i]]], "Output"]];]Table[mycalculations[i], {i, 1, 4}]; Cheers, Brian wandering.the.cosmos at gmail.com wrote: > My code gives multiple output, each of which I wish to put under a > different section. Is it possible to generate a section within a > notebook automatically, without using the toolbar to do so? > > Thanks!