shewhart.ado

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

*! version 2.3.1  04oct2004
program define shewhart
	version 6, missing
	if _caller() < 8 {
		shewhart_7 `0'
		exit
	}
	local vv : display "version " string(_caller()) ", missing:"

	// the legacy option -batch- is undocumented
	syntax varlist(min=2) [if] [in] [, BATCH * ]

	_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
	}	

	tempname shew1 shew2

	`vv' xchart `varlist' `if' `in',	///
		name(`"`shew1'"') nodraw `options'
	`vv' rchart `varlist' `if' `in',	///
		name(`"`shew2'"') nodraw `options'

	// xchart goes above the rchart

	version 8: graph combine `shew1' `shew2', cols(1) `gcopts'
	version 8: graph drop `shew1' `shew2'
end