home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e032 / 3.ddi / FILES / PRELOAD.PAK / FORMATIN.M < prev    next >
Encoding:
Text File  |  1992-07-29  |  471 b   |  21 lines
  1.  
  2. (* Formats.m *)
  3.  
  4. Unprotect[DirectedInfinity]
  5.  
  6. Begin["`Private`"]
  7.  
  8. Format[DirectedInfinity[x_]] := PrecedenceForm[x "Infinity",150]
  9. Format[DirectedInfinity[]]   := "ComplexInfinity"
  10.  
  11. Format[DirectedInfinity[1],TeXForm]  :=  "\\infty"
  12. Format[DirectedInfinity[-1],TeXForm] :=  "{-\\infty}"
  13. Format[DirectedInfinity[x_],TeXForm] := SequenceForm["{", x, "\\infty}"]
  14. Format[DirectedInfinity[],TeXForm]   := "\\infty"
  15.  
  16. End[]
  17.  
  18. Protect[DirectedInfinity]
  19.  
  20. Null
  21.