avplots.ado

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

*! version 2.4.0  29sep2004
program define avplots
	version 6.0
	if _caller() < 8 {
		avplots_7 `0'
		exit
	}
	local vv : display "version " string(_caller()) ":"

	_isfit cons
	syntax [, * ]

	_get_gropts , graphopts(`options') getcombine getallowed(plot addplot)
	local options `"`s(graphopts)'"'
	local gcopts `"`s(combineopts)'"'
	if `"`s(plot)'"' != "" {
		di in red "option plot() not allowed"
		exit 198
	}
	if `"`s(addplot)'"' != "" {
		di in red "option addplot() not allowed"
		exit 198
	}		

	_getrhs rhs
	tokenize `rhs'

	while "`1'"!="" { 
		tempname tname
		local base `names'
		local names `names' `tname'
		capture `vv' avplot `1', name(`tname') nodraw `options'
		if _rc { 
			if _rc!=399 {
				exit _rc
			} 
			local names `base'
		}
		mac shift 
	}

	version 8: graph combine `names' , `gcopts'
	version 8: graph drop `names'
end