vec.mata

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

*! version 1.0.0  15oct2004
version 9.0
mata:

transmorphic colvector vec(transmorphic matrix x)
{
	transmorphic matrix	res 
	real scalar		r, c
	real scalar		j, k

	r = rows(x)
	c = cols(x)
	
	res = J(r*c, 1, missingof(x))
	if (r>0) {
		for (k=j=1; j<=c; j++) {
			res[|k\(k+r-1)|] = x[.,j]
			k = k + r
		}
	}
	return(res)
}

end