
/**  Special Function Representation**/
/*A: K McIsaac*/
/*S: University of Western Australia, Nedlands 6009, Australia*/
/*D: January, 1988 */
/*K: Ghg, Special Functions*/

/* Hypergeometrics that can be written as special functions  */ 

#_:    Comm
Ghg_:  Tier
_Sum[Smp] : Inf

Ghg[1,0,#[$a],#[],$z ]         :  (1-$z)^(-$a)
Ghg[0,0,#[],#[],$z] : E^$z

Ghg[$p,$q,#[0,$$a],#[$$b]_=~In[$1_=Natp[1-$1],{$$b},2],$z] :  1
Ghg[$p,$q,#[$$t],#[$$b],0]    :  1

SGhgS_:Ldist;
/* The numbers signify the numbering used in A&S with out the 15.
ie SGhg[1,3] is 15.1.3*/

SGhgS[1,6,1] : Ghg[2,1,#[1,1],#[3/2],$z] -> Asin[$z^(1/2)]/($z(1-$z))^(1/2) 
SGhgS[1,6,2] : Ghg[2,1,#[1/2,1/2],#[3/2],$z] -> Asin[$z^(1/2)]/$z^(1/2) 

/*R: [AS 15.1; Slater, Generalized Hypergeometric Functions,
     Cambridge University Press,1966] */

