MathGroup Archive 2006

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

Search the Archive

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!


  • Prev by Date: Re: Division by Zero (Error Handling)
  • Next by Date: Re: Function argument
  • Previous by thread: How to generate sections, subsections, etc. automatically?
  • Next by thread: Re: How to generate sections, subsections, etc. automatically?