ml_init.ado

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

*! version 3.2.0  23dec1998
/* ml init this:that=# that=# /this=# matname # [, skip copy] */
program define ml_init
	version 6
	ml_defd
	if `"`0'"'=="" {
		scalar $ML_f = .
		mat $ML_b[1,1] = J(1,$ML_k,0)
		exit
	}

	_mkvec $ML_b, from(`0') update first error("initial vector")
	scalar $ML_f = .
end