yxview_pcspike_draw.ado

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· ADO 代码 · 共 23 行

*! version 1.0.0  18dec2004

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

program yxview_pcspike_draw

	.style.area.setgdifull				// set the style

	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')'
	    }
	}
	else {
	    forvalues j = 1/`:serset N' {
		gdi line `=serset(`.yvar',  `j')' `=serset(`.xvar', `j')'  ///
			 `=serset(`.y2var', `j')' `=serset(`.x2var', `j')'
	    }
	}
end