cross.ado

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

*! version 2.2.0  09dec1998
program define cross
	version 6
	syntax using/
	local nob = _N
	tempfile cross2
	tempvar order midx
	preserve
	quietly {
		use `"`using'"', clear
		gen long `order'=_n
		expand `nob', clear 
		sort `order' 
		by `order': gen long `midx' = _n
		sort `midx' `order' 
		drop `order'
		save `"`cross2'"', replace 
		restore, preserve
		gen long `midx' = _n 
		sort `midx' 
		merge `midx' using `"`cross2'"'
		drop `midx' _merge 
		restore, not
	}
end