biplot.dlg

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

  GROUPBOX gb_marker2  _gft2       top       _cwd1         _ht12h,	///
	label("Arrowheads")

  TEXT     tx_mcolor2  _igft2      _ss       _txwd         .,		///
	label("Color:") right
  COMBOBOX cb_mcolor2  _txsep      @         _tcr4gi       .,		///
	option(mcolor)							///
	dropdownlist							///
	contents(colors)						///
	onselchangelist(cplot_color2_mcolor)
  COLOR    cl_mcolor2  _tcr4gisep  @         _btwd         .,		///
	option(mcolor)

  TEXT     tx_msize2   _lft4_4g    @         _txwd         .,		///
	label("Size:") right
  COMBOBOX cb_msize2   _txsep      @         _txr4gi       .,		///
	option(msize)							///
	dropdownlist 							///
	contents(symbolsizes)

  TEXT     tx_mangle2  _igft2      _ms       _txwd         .,		///
	label("Angle:") right
  COMBOBOX cb_mangle2  _txsep      @         _tcr4gi       .,		///
	option(mangle)							///
	dropdownlist							///
	contents(cplot_angle) values(cplot_angle_values)

  TEXT    tx_barbsize2 _lft4_4g    @         _txwd         .,		///
	label("Barb size:") right
  COMBOBOX cb_barbsize2 _txsep     @         _txr4gi       .,		///
	option(barbsize)						///
	dropdownlist 							///
	contents(symbolsizes)

  GROUPBOX gb_mlabel2  _igft2      _ms       _gwd2	   75,		///
	label("Labels")

  TEXT     tx_mlsize2  _iigft2     _ss       _txswd        .,		///
	label("Size:") right
  COMBOBOX cb_mlsize2  _txssep     @         _txr4gi       .,		///
	option(mlabsize) 						///
	dropdownlist							///
	contents(textsizes)
	
  TEXT     tx_mlcolor2 _lft4_4g    @         _txwd	   .,		///
	label("Color:") right
  COMBOBOX cb_mlcolor2 _txsep      @         _tcr4gi       .,		///
	option(mlabcolor)						///
	dropdownlist							///
	contents(colors)						///
	onselchangelist(cplot_color2_mlcolor)
  COLOR    cl_mlcolor2 _tcr4gisep  @         _btwd         .,		///
	option(mlabcolor)


  TEXT    tx_mlposition2 _iigft2   _ms       _txswd        .,		///
	label("Position:") right
  COMBOBOX cb_mlposition2 _txssep  @         _txr4gi       .,		///
	option(mlabposition) 						///
	dropdownlist							///
	contents(clockpos)
/**** END   -- Arrowhead options  ****/
END


LIST cplot_angle
BEGIN
	Default
	10 degrees
	15 degrees
	20 degrees
	25 degrees
	30 degrees
	35 degrees
	40 degrees
	45 degrees
	50 degrees
	55 degrees
	60 degrees
	65 degrees
	70 degrees
	75 degrees
	80 degrees
	85 degrees
	90 degrees
END

LIST cplot_angle_values
BEGIN
	""
	10
	15
	20
	25
	30
	35
	40
	45
	50
	55
	60
	65
	70
	75
	80
	85
	90
END

SCRIPT cplot_name_off
BEGIN
	cplot.ed_name.disable
	cplot.tx_name.disable
END

SCRIPT cplot_name_on
BEGIN
	cplot.ed_name.enable
	cplot.tx_name.enable
END

LIST cplot_color_ccol
BEGIN
	cplot.cl_ccol.hide
	cplot.cl_ccol.show
	cplot.cl_ccol.hide
END

LIST cplot_color_mcolor
BEGIN
	cplot.cl_mcolor.hide
	cplot.cl_mcolor.show
	cplot.cl_mcolor.hide
END

LIST cplot_color_mlcolor
BEGIN
	cplot.cl_mlcolor.hide
	cplot.cl_mlcolor.show
	cplot.cl_mlcolor.hide
END

SCRIPT cplot_disable
BEGIN
	cplot.ck_noLabel.disable
	cplot.ck_name.disable
	cplot.ed_name.disable
	cplot.tx_name.disable
	cplot.gb_line.disable
	cplot.tx_ccol.disable
	cplot.cb_ccol.disable
	cplot.cl_ccol.disable
	cplot.tx_clpat.disable
	cplot.cb_clpat.disable
	cplot.tx_clwid.disable
	cplot.cb_clwid.disable
	cplot.gb_marker.disable
	cplot.tx_mcolor.disable
	cplot.cb_mcolor.disable
	cplot.cl_mcolor.disable
	cplot.tx_msize.disable
	cplot.cb_msize.disable
	cplot.tx_mangle.disable
	cplot.cb_mangle.disable
	cplot.tx_barbsize.disable
	cplot.cb_barbsize.disable
	cplot.gb_mlabel.disable
	cplot.tx_mlcolor.disable
	cplot.cb_mlcolor.disable
	cplot.cl_mlcolor.disable
	cplot.tx_mlsize.disable
	cplot.cb_mlsize.disable
	cplot.tx_mlposition.disable
	cplot.cb_mlposition.disable
	script negcol_disable
END

SCRIPT negcol_disable
BEGIN
	cplot.gb_negcol.disable
	cplot.ck_noLabel2.disable
	cplot.ck_name2.disable
	cplot.ed_name2.disable
	cplot.tx_name2.disable
	cplot.gb_line2.disable
	cplot.tx_ccol2.disable
	cplot.cb_ccol2.disable
	cplot.cl_ccol2.disable
	cplot.tx_clpat2.disable
	cplot.cb_clpat2.disable
	cplot.tx_clwid2.disable
	cplot.cb_clwid2.disable
	cplot.gb_marker2.disable
	cplot.tx_mcolor2.disable
	cplot.cb_mcolor2.disable
	cplot.cl_mcolor2.disable
	cplot.tx_msize2.disable
	cplot.cb_msize2.disable
	cplot.tx_mangle2.disable
	cplot.cb_mangle2.disable
	cplot.tx_barbsize2.disable
	cplot.cb_barbsize2.disable
	cplot.gb_mlabel2.disable
	cplot.tx_mlcolor2.disable
	cplot.cb_mlcolor2.disable
	cplot.cl_mlcolor2.disable
	cplot.tx_mlsize2.disable
	cplot.cb_mlsize2.disable
	cplot.tx_mlposition2.disable
	cplot.cb_mlposition2.disable
END

PROGRAM cplot_enable
BEGIN
	call gaction cplot.ck_noLabel.enable
	call gaction cplot.ck_name.enable
	if cplot.ck_name {
		call script cplot_name_on
	}
	if !cplot.ck_name {
		call script cplot_name_off
	}
	call gaction cplot.gb_line.enable
	call gaction cplot.tx_ccol.enable
	call gaction cplot.cb_ccol.enable
	call gaction cplot.cl_ccol.enable
	call gaction cplot.tx_clpat.enable
	call gaction cplot.cb_clpat.enable
	call gaction cplot.tx_clwid.enable
	call gaction cplot.cb_clwid.enable
	call gaction cplot.gb_marker.enable
	call gaction cplot.tx_mcolor.enable
	call gaction cplot.cb_mcolor.enable
	call gaction cplot.cl_mcolor.enable
	call gaction cplot.tx_msize.enable
	call gaction cplot.cb_msize.enable
	call gaction cplot.tx_mangle.enable
	call gaction cplot.cb_mangle.enable
	call gaction cplot.tx_barbsize.enable
	call gaction cplot.cb_barbsize.enable
	call gaction cplot.gb_mlabel.enable
	call gaction cplot.tx_mlcolor.enable
	call gaction cplot.cb_mlcolor.enable
	call gaction cplot.cl_mlcolor.enable
	call gaction cplot.tx_mlsize.enable
	call gaction cplot.cb_mlsize.enable
	call gaction cplot.tx_mlposition.enable
	call gaction cplot.cb_mlposition.enable
	if main.ck_negcol {
		call program negcol_enable
	}
END

PROGRAM negcol_enable
BEGIN
	call gaction cplot.gb_negcol.enable
	call gaction cplot.ck_noLabel2.enable
	call gaction cplot.ck_name2.enable
	if cplot.ck_name2 {
		call script cplot_name2_on
	}
	if !cplot.ck_name2 {
		call script cplot_name2_off
	}
	call gaction cplot.gb_line2.enable
	call gaction cplot.tx_ccol2.enable
	call gaction cplot.cb_ccol2.enable
	call gaction cplot.cl_ccol2.enable
	call gaction cplot.tx_clpat2.enable
	call gaction cplot.cb_clpat2.enable
	call gaction cplot.tx_clwid2.enable
	call gaction cplot.cb_clwid2.enable
	call gaction cplot.gb_marker2.enable
	call gaction cplot.tx_mcolor2.enable
	call gaction cplot.cb_mcolor2.enable
	call gaction cplot.cl_mcolor2.enable
	call gaction cplot.tx_msize2.enable
	call gaction cplot.cb_msize2.enable
	call gaction cplot.tx_mangle2.enable
	call gaction cplot.cb_mangle2.enable
	call gaction cplot.tx_barbsize2.enable
	call gaction cplot.cb_barbsize2.enable
	call gaction cplot.gb_mlabel2.enable
	call gaction cplot.tx_mlcolor2.enable
	call gaction cplot.cb_mlcolor2.enable
	call gaction cplot.cl_mlcolor2.enable
	call gaction cplot.tx_mlsize2.enable
	call gaction cplot.cb_mlsize2.enable
	call gaction cplot.tx_mlposition2.enable
	call gaction cplot.cb_mlposition2.enable
END

SCRIPT cplot_name2_off
BEGIN
	cplot.ed_name2.disable
	cplot.tx_name2.disable
END

SCRIPT cplot_name2_on
BEGIN
	cplot.ed_name2.enable
	cplot.tx_name2.enable
END

LIST cplot_color2_ccol
BEGIN
	cplot.cl_ccol2.hide
	cplot.cl_ccol2.show
	cplot.cl_ccol2.hide
END

LIST cplot_color2_mcolor
BEGIN
	cplot.cl_mcolor2.hide
	cplot.cl_mcolor2.show
	cplot.cl_mcolor2.hide
END

LIST cplot_color2_mlcolor
BEGIN
	cplot.cl_mlcolor2.hide
	cplot.cl_mlcolor2.show
	cplot.cl_mlcolor2.hide
END

INCLUDE gr_twoway

PROGRAM rplot_output
BEGIN
	if   (rplot.ck_noLabel | rplot.ck_name 				///
		| rplot.cb_msymbol | rplot.cb_mcolor			///
		| !H(rplot.cl_mcolor) | rplot.cb_msize 			///
		| rplot.vn_mlabel | rplot.cb_mlsize 			///
		| rplot.cb_mlcolor | !H(rplot.cl_mlcolor) 		///
		| rplot.cb_mlposition )					///
	{
		put " " "rowopts(
		put /program rowopts_output
		put ") "
	}
END

PROGRAM rowopts_output
BEGIN
	option rplot.ck_noLabel
	if rplot.ck_name {
		require rplot.ed_name
		optionarg rplot.ed_name
	}
	optionarg /hidedefault rplot.cb_msymbol
	if H(rplot.cl_mcolor) {
		optionarg /hidedefault rplot.cb_mcolor
	}
	if !H(rplot.cl_mcolor) {
		optionarg /quoted rplot.cl_mcolor
	}
	optionarg /hidedefault rplot.cb_msize
	optionarg rplot.vn_mlabel
	optionarg /hidedefault rplot.cb_mlsize
	if H(rplot.cl_mlcolor) {
		optionarg /hidedefault rplot.cb_mlcolor
	}
	if !H(rplot.cl_mlcolor) {
		optionarg /quoted rplot.cl_mlcolor
	}
	optionarg /hidedefault rplot.cb_mlposition
END

PROGRAM colopts_output
BEGIN
	option cplot.ck_noLabel
	if cplot.ck_name {
		require cplot.ed_name
		optionarg cplot.ed_name
	}
	if H(cplot.cl_ccol) {
		optionarg /hidedefault cplot.cb_ccol
	}
	if !H(cplot.cl_ccol) {
		optionarg /quoted cplot.cl_ccol
	}
	optionarg /hidedefault cplot.cb_clpat
	optionarg /hidedefault cplot.cb_clwid
	if H(cplot.cl_mcolor) {
		optionarg /hidedefault cplot.cb_mcolor
	}
	if !H(cplot.cl_mcolor) {
		optionarg /quoted cplot.cl_mcolor
	}
	optionarg /hidedefault cplot.cb_msize
	optionarg /hidedefault cplot.cb_mangle
	optionarg /hidedefault cplot.cb_barbsize
	optionarg /hidedefault cplot.cb_mlsize
	if H(cplot.cl_mlcolor) {
		optionarg /hidedefault cplot.cb_mlcolor
	}
	if !H(cplot.cl_mlcolor) {
		optionarg /quoted cplot.cl_mlcolor
	}
	optionarg /hidedefault cplot.cb_mlposition
END

PROGRAM negcolopts_output
BEGIN
	option cplot.ck_noLabel2
	if cplot.ck_name2 {
		require cplot.ed_name2
		optionarg cplot.ed_name2
	}
	if H(cplot.cl_ccol2) {
		optionarg /hidedefault cplot.cb_ccol2
	}
	if !H(cplot.cl_ccol2) {
		optionarg /quoted cplot.cl_ccol2
	}
	optionarg /hidedefault cplot.cb_clpat2
	optionarg /hidedefault cplot.cb_clwid2
	if H(cplot.cl_mcolor2) {
		optionarg /hidedefault cplot.cb_mcolor2
	}
	if !H(cplot.cl_mcolor2) {
		optionarg /quoted cplot.cl_mcolor2
	}
	optionarg /hidedefault cplot.cb_msize2
	optionarg /hidedefault cplot.cb_mangle2
	optionarg /hidedefault cplot.cb_barbsize2
	optionarg /hidedefault cplot.cb_mlsize2
	if H(cplot.cl_mlcolor2) {
		optionarg /hidedefault cplot.cb_mlcolor2
	}
	if !H(cplot.cl_mlcolor2) {
		optionarg /quoted cplot.cl_mlcolor2
	}
	optionarg /hidedefault cplot.cb_mlposition2
END

PROGRAM cplot_output
BEGIN
	if   (cplot.ck_noLabel | cplot.ck_name 				///
		| cplot.cb_ccol | !H(cplot.cl_ccol) 			///
		| cplot.cb_clpat | cplot.cb_clwid			///
		| cplot.cb_mangle | cplot.cb_barbsize | cplot.cb_mcolor	///
		| !H(cplot.cl_mcolor) | cplot.cb_msize 			///
		| cplot.cb_mlsize | cplot.cb_mlcolor 			///
		| !H(cplot.cl_mlcolor) 	| cplot.cb_mlposition )		///
	{
		put " " "colopts(
		put /program colopts_output
		put ") "
	}
END

PROGRAM negcol_output
BEGIN
	if   (cplot.ck_noLabel2 | cplot.ck_name2			///
		| cplot.cb_ccol2 | !H(cplot.cl_ccol2) 			///
		| cplot.cb_clpat2 | cplot.cb_clwid2			///
		| cplot.cb_mangle2 | cplot.cb_barbsize2 		///
		| cplot.cb_mcolor2					///
		| !H(cplot.cl_mcolor2) | cplot.cb_msize2		///
		| cplot.cb_mlsize2 | cplot.cb_mlcolor2 			///
		| !H(cplot.cl_mlcolor2)	| cplot.cb_mlposition2 )	///
	{
		put " " "negcolopts(
		put /program negcolopts_output
		put ") "
	}
END

PROGRAM command
BEGIN
	put "biplot "
	varlist main.vl_vars
	put /program ifin_output
	beginoptions
		option main.rb_std
		if main.rb_dim2 {
			optionarg main.ed_dim
		}
		optionarg /hidedefault main.ed_alpha
		option main.ck_mahalanobis
		optionarg main.ed_stretch
		option main.ck_norow
		option main.ck_nocol
		option main.ck_negcol
		option main.ck_xnegate
		option main.ck_ynegate
		option main.ck_autoaspect
		option main.ck_separate
		option main.ck_nograph
		option main.ck_table
		put " " /program rplot_output
		put " " /program cplot_output
		put " " /program negcol_output
		put " " /program gr_twoway_output
	endoptions
END