_copy_mat_stripes.ado

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· ADO 代码 · 共 28 行

*! version 1.0.0  03jan2005
program _copy_mat_stripes
	version 9
	_on_colon_parse `0'
	local matlist `s(before)'
	local 0 `"`s(after)'"'
	syntax [anything(name=b)] [, novar norow ]
	local coln : coln `b'
	local cole : cole `b', quote
	confirm matrix `b'
	foreach mat of local matlist {
		confirm matrix `mat'
		matrix coln `mat' = `coln'
		matrix cole `mat' = `cole'
		if "`row'" != "" {
			continue
		}
		if "`var'" != "" | rowsof(`mat') != colsof(`mat') {
			matrix rown `mat' = y1
			matrix rowe `mat' = _
		}
		else {
			matrix rown `mat' = `coln'
			matrix rowe `mat' = `cole'
		}
	}
end