_hqrd.mata

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

*! version 1.0.2  19jan2005
version 9.0

mata:

void _hqrd(numeric matrix H, tau, R1)
{
	real rowvector 	p

	p = J(1, cols(H), 1)
	_hqrdp(H,tau=., R1, p)
/*
					check that no pivoting occured 
	if (rows(H)>0 && cols(H)>0) {					
		if( mreldif(p , 1..cols(H)) > 1e-15 ) _error(3930)
	}
*/

}

end