Re: Re: How to generate sections, subsections, etc. automatically?
- To: mathgroup at smc.vnet.net
- Subject: [mg67042] Re: [mg67013] Re: [mg66957] How to generate sections, subsections, etc. automatically?
- From: Ken Levasseur <klevasseur at mac.com>
- Date: Thu, 8 Jun 2006 04:52:54 -0400 (EDT)
- References: <200606070909.FAA23424@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
I wasn't aware of StylePrint when I wrote the following and it sounds like it might streamline what I did, but here is my take on the original question: MyEvaluation[exp_] := (NotebookWrite[EvaluationNotebook[], Cell["Result", "Subsection"]]; NotebookWrite[EvaluationNotebook[], Cell[ToString[Evaluate[exp]], "Output"]]; NotebookWrite[EvaluationNotebook[], Cell["FullForm", "Subsection"]]; NotebookWrite[EvaluationNotebook[], Cell[ToString[FullForm[Evaluate[exp]]], "Output"]]) On Jun 7, 2006, at 5:09 AM, Christoph Lhotka wrote: > See StylePrint in the Help Browser! > > On Mon, 5 Jun 2006 03:48:06 -0400 (EDT) > "wandering.the.cosmos at gmail.com" <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! >> > > -- Mag. Christoph Lhotka -- > University of Vienna / Institute for Astronomy > mail. lhotka at astro.univie.ac.at > Ken Levasseur http://homepage.mac.com/klevasseur/ Please avoid sending me Word or PowerPoint attachments. See http://www.gnu.org/philosophy/no-word-attachments.html
- References:
- Re: How to generate sections, subsections, etc. automatically?
- From: "Christoph Lhotka" <lhotka@astro.univie.ac.at>
- Re: How to generate sections, subsections, etc. automatically?