c数值分析c20-2.pdfVIP

894 Chapter 20. Less-Numerical Algorithms point at extreme right of mantissa. if (*ibeta == 2 !i) --(*maxexp); if (i 20) --(*maxexp); if (a != y) *maxexp -= 2; *xmax=one-(*epsneg); if ((*xmax)*one != *xmax) *xmax=one-beta*(*epsneg); *xmax /= (*xmin*beta*beta*beta); i=(*maxexp)+(*minexp)+3; h r P C S t e t a e o a p r m for (j=1;j=i;j++) { : d m p / a y p / i r w if (*ibeta == 2) *xmax += *xmax; b s i l w l s g e else *xmax *= beta; e i h p w f o t a . i n (