MathGroup Archive 2002

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

Search the Archive

RE: Re: Re: word processing with mathematica

  • To: mathgroup at smc.vnet.net
  • Subject: [mg36500] RE: [mg36474] Re: [mg36437] Re: word processing with mathematica
  • From: "DrBob" <drbob at bigfoot.com>
  • Date: Mon, 9 Sep 2002 00:29:52 -0400 (EDT)
  • Reply-to: <drbob at bigfoot.com>
  • Sender: owner-wri-mathgroup at wolfram.com

P.J.,

I'd be very interested in how you created these "fancy" cells.  Do you
open a cell, push Ctrl-Shift-e, type in all that text, then push
Ctrl-Shift-e again?

Bobby Treat

-----Original Message-----
From: P.J. Hinton [mailto:paulh at wolfram.com] 
To: mathgroup at smc.vnet.net
Subject: [mg36500] [mg36474] Re: [mg36437] Re: word processing with mathematica


On Sat, 7 Sep 2002, Mark Westwood wrote:

> I too have been trying to use Mathematica (v4.2 most recently) to type
> maths papers and the like but I'm not ready to ditch LaTeX yet.  There
> are just too many cases where I cannot figure out how to achieve what
I
> want in Mathematica, things like:

> - left brackets spanning multiple lines for defining hybrid functions;

You can accomplish this by doing the following:

1) Put your function braches in the rows of a grid box structure.

2) Add the following options to your cell:

	ShowAutoStyles -> False
	SpanMaxSize -> Infinity

The following cell snippet demonstrates how this influences the result.

To view it, paste the Cell[] expression into a notebook and then click
on 
Yes when you are prompted on whether the front end should interpret the 
result.

Cell[BoxData[
    FormBox[
      RowBox[{
        RowBox[{"f", "(", "x", ")"}], "=", 
        RowBox[{"{", GridBox[{
              {"x", 
                RowBox[{"x", " ", "<", "0"}]},
              {
                SuperscriptBox["x", "2"], 
                RowBox[{"0", "\[LessEqual]", "x", "<", "1"}]},
              {
                RowBox[{"sin", "(", "x", ")"}], 
                RowBox[{"1", "\[LessEqual]", "x", "<", "2"}]},
              {
                RowBox[{"\[CapitalGamma]", "(", "x", ")"}], 
                RowBox[{"x", "\[GreaterEqual]", "2"}]}
              }]}]}], TraditionalForm]], "DisplayFormula",
  ShowAutoStyles->False,
  SpanMaxSize->Infinity]


> - vertical alignment of equals signs in multi-line equations or
> derivations;

Put your equations in a GridBox and set the ColumnAlignments option to a

string containing the equal sign.

Cell[BoxData[
    FormBox[GridBox[{
          {
            RowBox[{
              RowBox[{
                RowBox[{"3", "x"}], " ", "+", " ", 
                RowBox[{"4", " ", "y"}]}], " ", "=", " ", "9"}]},
          {
            RowBox[{
              RowBox[{
                RowBox[{"2", "x"}], " ", "-", " ", 
                RowBox[{"7", " ", "y"}]}], "=", 
              RowBox[{"32", " ", "-", " ", 
                RowBox[{"sin", "(", "x", ")"}]}]}]}
          }], TraditionalForm]], "DisplayFormula",
  GridBoxOptions->{ColumnAlignments->{"="}}]

> - setting typefaces in tables of material.

I think the Author Tools material that comes with Mathematica 4.2 might
be 
able to help you do this.

-- 
P.J. Hinton
User Interface Programmer                         paulh at wolfram.com
Wolfram Research, Inc.
Disclaimer: Opinions expressed herein are those of the author alone.






  • Prev by Date: Re: Re: Generating Two Unit Orthogonal Vectors (correction)
  • Next by Date: RE: Re: ListIntegrate Info.
  • Previous by thread: RE: word processing with mathematica
  • Next by thread: Re: word processing with mathematica