Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1995

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

Search the Archive

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?
  • Next by thread: Re: Download from Mathsource