Re: Formated output

• To: mathgroup at christensen.cybernetics.net
• Subject: [mg1659] Re: [mg1531] Formated output
• From: Allan Hayes <hay%haystack at christensen.cybernetics.net>
• Date: Tue, 11 Jul 1995 03:17:09 -0400

```Bengt Mansson <bengtmn at algonet.se>
in [mg1531] Formated output
wrote

>How can I get formated output from Mathematica, e g normal
integral > signs.

Bengt:

I guess that we are all waiting for the next version of Mma so that
we can do this sort of thing properly. Meanwhile here is something
that I have used while waiting.

(int is a dummy non-evaluating integral
You can remove the special version for the Mac if yu don't like the
small integral sign provided in the Courier font)

intsign =
If[\$MachineType === "Macintosh", FromCharacterCode[186],
ColumnForm[{" /","|","|","/ "},Left, Center]
];

Format[int[f_,x_]]:=  SequenceForm[ intsign, f," d",x ];

Format[int[f_,{x_,a_:" ",b_}]]:=
SequenceForm[
intsign," ",
ColumnForm[{Superscript[b]," "," ",Subscript[a]},Left,Center],
" ",f," d",x
];

Unprotect[Integrate];

Format[Integrate[f_,x_]]:=  SequenceForm[intsign, f," d",x ];

Format[Integrate[f_,{x_,a_:" ",b_}]]:=
SequenceForm[
intsign," ",
ColumnForm[ {Superscript[b]," "," ",Subscript[a]},Left,Center],
" ",f," d",x
];

Protect[Integrate];

Examples

int[h[x],{x,a,b}]

/ b
|    h[x] dx
|
/  a

Integrate[h[x],{x,a,b}]

/ b
|    h[x] dx
|
/  a

Allan Hayes
hay at haystack.demon.co.uk

```

• Prev by Date: Re: Q: Random[]
• Next by Date: Re: MathLink documentation
• Previous by thread: Re: How do I find my current directory?