function prangeVInf( w, r ) {
	var soma;
	var ai;
	var ii;
	var bi;
	var i;
	var k;
	if ( w <= 0 ) {
		return 0.0;
	}
	if ( w <= 3 ) {
		k = 3.0;
	} else {
		k = 2.0;
	}
	ai = w / 2.0;
	ii = 1;
	bi = ( ( (k - ii) * (w / 2.0) ) + (8*ii) ) / k;
	soma = 0;
	for ( i = 1; i < round( k ) + 1; i++ ) {
		ii = i;
		soma += ((bi - ai) / 2.0) *
			gaussLegreQuadrature( w, ai, bi, r, -1.0, +1.0, 20 );
		ai = bi;
		if ( i + 1 === round(k) ) {
			bi = 8;
		} else {
			bi = ( ( (k - ii - 1) * (w / 2.0) ) + ( 8 * (ii + 1) ) ) / k;
		}
	}
	soma *= 2.0 * r / sqrt( 2.0 * PI );
	soma += pow( exp(1), r * ln( ( 2.0 * apnorm( w / 2.0 ) ) - 1.0 ) );
	return soma;
}
Evaluates `H(w)`.

@private
@param {number} w - quantile of the studentized range
@param {number} r - sample size for range (same for each group)
@returns {number} evaluated function