0001 function e = fgamma(p2,p,p1,perc) 0002 b = p2^2/p1; 0003 a = p1/b; 0004 e = p - pgamma(perc,a,b);