*! version SWS3/stb-2:gr3/stb-12:gr3.1  gr3 utility
program define _3daxmin
	version 2.1
	mac def _n = _N
	mac def _n1 = _N + 1
	mac def _new = _N + 5
	set obs %_new 
	gen byte _Type = cond(_n>=%_n1,2,.)
	replace _x = cond(_n==%_n+5,1,0) in %_n1/l 
	replace _y = cond(_n==%_n1, 1,0) in %_n1/l 
	replace _z = cond(_n==%_n+3,1,0) in %_n1/l
end
exit
/*
	_3daxmin [arguments ignored] 
		adds an axis centered on the minimum of the data.
		adds the following to the end of the data:

				input byte _Type _x _y _z
			1	2 0 1 0
			2	2 0 0 0
			3	2 0 0 1
			4	2 0 0 0
			5	2 1 0 0
				end
*/