balbargraph.class

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

*! version 1.0.0  30jul2002
version 8

class {
} , inherit(bargraph)


program define draw_bar
	args x y size id			/* if horiz is really y x */

	if `.horizontal.istrue' {
		local trans = `gdi(xbeta)' / `gdi(ybeta)'
	}
	else	local trans = `gdi(ybeta)' / `gdi(xbeta)'

	local width_b  = min(.9*`size'*`trans', `.barsize')
	local x = `x' + `.barsize' / 2
	local top   = `y' + `size'
	if `.horizontal.istrue' {
		local sz_b = `width_b' * `gdi(ybeta)' / `gdi(gbeta)'
	}
	else	local sz_b = `width_b' * `gdi(xbeta)' / `gdi(gbeta)'

							/* the balloon */
	gdi symbol = circle
	gdi rsymbolsize = `sz_b'
	if `.horizontal.istrue' {
		gdi point `=`top'-(`width_b'/2)/`trans'' `x'
	}
	else	gdi point `x' `=`top'-(`width_b'/2)/`trans''
	gdi rsymbolsize = `=`sz_b'/6'
	local top = `top'-(`width_b'+.3)/`trans'
	if `.horizontal.istrue' {
		gdi symbol = square
		gdi point `top' `x'
	}
	else {
		gdi symbol = triangle
		gdi point `x' `top'
	}

							/* the string */
	local xdeltas -4 -26 -19 -2 5 25 35 20 12 3 -5 -19 -22 -4
	local yd = (`top'-`y') / `:word count `xdeltas''
	local y  = `top'
	foreach xp of local xdeltas {
		local x1 = `x' + `xp'*`.barsize'/100
		local y1 = `y' - `yd'
		if `.horizontal.istrue' {
			gdi line `y' `x' `y1' `x1'
		}
		else	gdi line `x' `y' `x1' `y1'
		local x `x1'
		local y `y1'
	}


	
end