
		/**   Gamma Function Pretty Printing   **/
/*A: K McIsaac*/
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: December 1985 */
/*K: Gamma Function, Pretty printing */

/* Gives a compact readable printing format for the Gamma Function*/

GammaPR : Fmt[{{0,0},{0,1}},"|","_,"]
_Gamma[Pr] : Tier[{[$x] :: Fmt[{{0,0},{1,0},{2,0},{3,0}},GammaPR,"[",$x,"]"]}]

/*E:
SMP 1.5.0
Thu Dec 12 11:39:11 1985


#I[1]::  <XGammaPR

#I[2]::  GammaPR

	 _,
#O[2]:   |

#I[3]::  Gamma[a]

	 _,
#O[3]:*  | [a]

#I[4]::  Gamma[a^2]/Gamma[n+1]

	  _,  2
	  | [a ]
#O[4]:*  ---------
	 _,
	 | [1 + n]

#I[5]::  <end>
*/

