yxview_pcarrow_draw.ado

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

*! version 1.0.0  05feb2005

// ---------------------------------------------------------------------------
//  Drawing program for the pcarrow type of y2x2view.

program yxview_pcarrow_draw

	.style.area.linestyle.setgdifull			// set the style
	local ang    `.style.marker.angle.radians'
	local msz    `.style.marker.size.val'
	local barbsz `.style.marker.backsize.val'

	if "`.bar_drop_to.stylename'" == "x" {
	    forvalues j = 1/`:serset N' {
		gdi line `=serset(`.xvar', `j')'  `=serset(`.yvar',  `j')'  ///
			 `=serset(`.x2var', `j')' `=serset(`.y2var', `j')'
	    }

	    .style.marker.setgdifull
	    forvalues j = 1/`:serset N' {
		_gr_arrowhead `ang' `msz' `barbsz' 			   ///
			`=serset(`.xvar', `j')'  `=serset(`.yvar',  `j')'  ///
			`=serset(`.x2var', `j')' `=serset(`.y2var', `j')'
	    }
	    if 0`.lvar' {					// labelled
	    	if 0`.headlbl.istrue' {
			local y_hold `.yvar'
			local x_hold `.xvar'
			.yvar = .y2var
			.xvar = .x2var
		}
	    	capture noisily ._draw_labeled_points labonly
	    	if 0`.headlbl.istrue' {
			.yvar = `y_hold' 
			.xvar = `x_hold' 
		}
	    }
	}
	else {
	    forvalues j = 1/`:serset N' {
		gdi line `=serset(`.yvar',  `j')' `=serset(`.xvar', `j')'  ///
			 `=serset(`.y2var', `j')' `=serset(`.x2var', `j')'
	    }

	    .style.marker.setgdifull
	    forvalues j = 1/`:serset N' {
		_gr_arrowhead `ang' `msz' `barbsz' 			  ///
			`=serset(`.yvar',  `j')' `=serset(`.xvar', `j')'  ///
			`=serset(`.y2var', `j')' `=serset(`.x2var', `j')'
	    }

	    if 0`.lvar' {					// labelled
	    	if (0`.headlbl.istrue') local two 2
		local y_use `.y`two'var'
		local y_hold `.yvar'
		local x_hold `.xvar'
		.yvar = .x`two'var
		.xvar = `y_use'
		capture noisily ._draw_labeled_points labonly
		.xvar = `x_hold'
		.yvar = `y_hold'
	    }
	}
end