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!