barview.class

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

/*				barview

	class that redirects a .draw to a bar graphs bar drawing program.  In
	this way the bars can be placed inside a plotregion and drawn from the
	plotregion.

*/
*! version 1.0.1  05dec2003

version 8

class {
	bargraph = ""				// key of the bargraph

	type	 = .yxtype.new , style(bar)	// for key only
						// bar or scatter
} , inherit(subview)

program new
	.bargraph = "`.`1'.objkey'"
end


// ----------------------------------------------------------------------------
program draw

	.`.bargraph'.drawbars
end

// ----------------------------------------------------------------------------
// Number of legend keys for the bar graph

program numkeys
	class exit =	///
	    0`.`.bargraph'.sersets[1].sers[`.`.bargraph'.shadevar'].categories'
end


// ----------------------------------------------------------------------------
// Return a key for the specified bar.

program newkey
	gettoken i_bar 0 : 0

	if `.numkeys' == 0 {
		class exit ""
	}

	confirm integer number `i_bar'
	syntax  [ , Position(passthru) ]

/*
	if (`.`.bargraph'.horizontal.istrue' &				///
	    ! `.`.bargraph'.var_asc_sort.istrue')  | 			///
	   (!`.`.bargraph'.horizontal.istrue' &				///
	    !`.`.bargraph'.var_asc_sort.istrue') {
		local i_bar = 1 +					///
		`.`.bargraph'.sersets[1].sers[`.`.bargraph'.shadevar'].categories' - `i_bar'
	}
*/

	tempname key
	.`key' =  .yxkey_g.new , view(`.objkey') 		///
		style(`.`.bargraph'.barstyles[`i_bar'].objkey') `position'
	.`key'.set_yxsize_dotsize
	class exit .`key'.ref

end


// ----------------------------------------------------------------------------
// Return a key label for a specified bar (keynum).

program label

	syntax [ , Nameonly Keynum(integer 1) ]		// nameonly ignored

	local shadevar = `.`.bargraph'.shadevar'
	local series     `.bargraph'.sersets[1].sers[`shadevar']

	class exit `"`.`series'.value_label `keynum''"'
	
/*
	if `.`.bargraph'.boxplot.istrue' {
		local labdex `._box_labdex `keynum' `shadevar''
	}
	else	local labdex = serset(`shadevar', `keynum')
	class exit `"`.`series'.value_label `labdex''"'
*/
end

program _box_labdex
	args keynum shadevar

	local ct 1
	local j 1
	while `ct' < `keynum' {
		if serset(`shadevar', `j') != serset(`shadevar', `++j') {
			local ++ct
		}
	}

	class exit = serset(`shadevar' , `j')
end