⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 dot_98.dlg

📁 是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到
💻 DLG
📖 第 1 页 / 共 2 页
字号:
/*
  graph dot - Dot charts
  **Special version for Windows95/98

*!  VERSION 1.1.0  20mar2005

*/
VERSION 9.0

INCLUDE graph_header
INCLUDE header
HELP hlp1, view("help graph_dot")
RESET res1

DIALOG main, label("graph dot - Dot charts") /*
		*/ tabtitle("Main")
BEGIN
  /*--+----1----+----2----+----3----+----4----+----5----+----6----+----7----+*/ 
  TEXT     tx_stat1        _lft      _top        _gwd4_1   .,		/*
  		*/label("Statistic:")
  TEXT     tx_newA         _gft4_2   @           _vnwd     .,		/*
  		*/label("New name (optional)")
  TEXT     tx_exA          _vneqsep  @           _vnwd     .,		/*
  		*/label("Variable")
  TEXT     tx_newB         _vngapsep @           _vnwd     .,		/*
  		*/label("New name (optional)")
  TEXT     tx_exB          _vneqsep  @           _vnwd     .,		/*
  		*/label("Variable")
  COMBOBOX cb_stat1        _lft      _ss         _spr4     .,		/*
  		*/label("Statistic") contents(stats)  dropdownlist	/*
  		*/values(statsv) onselchangelist(main_stats_change) 	/*
		*/ option(" ")
  SPINNER  sp_stat1        +110      @           _spwd     .,		/*
  		*/ label("Statistic") min(1) max(99) default(50)
  EDIT     ed_stat1A       _gft4_2   @           _vnwd     .,		/*
  		*/label("New name 1A")
  TEXT     tx_eqA          _vnsep    @           _eqlwd    .,		/*
  		*/label("=") center
  VARNAME  vn_stat1A       _eqlsep   @           _vnwd     .,		/*
  		*/label("Variable 1A")
  TEXT     tx_comA         _vnsep    @           _gapwd    .,		/*
  		*/label(" ") center
  EDIT     ed_stat1B       _gapsep   @           _vnwd     .,		/*
  		*/label("New name 1B")
  TEXT     tx_eqB          _vnsep    @           _eqlwd    .,		/*
  		*/label("=") center
  VARNAME  vn_stat1B       _eqlsep   @           _vnwd     .,		/*
  		*/label("Variable 1B")
  EDIT     ed_stat1C       _gft4_2   _ms         _vnwd     .,		/*
  		*/label("New name 1C")
  TEXT     tx_eqC          _vnsep    @           _eqlwd    .,		/*
  		*/label("=") center
  VARNAME  vn_stat1C       _eqlsep   @           _vnwd     .,		/*
  		*/label("Variable 1C")
  TEXT     tx_comC         _vnsep    @           _gapwd    .,		/*
  		*/label(" ") center
  EDIT     ed_stat1D       _gapsep   @           _vnwd     .,		/*
  		*/label("New name 1D")
  TEXT     tx_eqD          _vnsep    @           _eqlwd    .,		/*
  		*/label("=") center
  VARNAME  vn_stat1D       _eqlsep   @           _vnwd     .,		/*
  		*/label("Variable 1D")
  EDIT     ed_stat1E       _gft4_2   _ms         _vnwd     .,		/*
  		*/label("New name 1E")
  TEXT     tx_eqE          _vnsep    @           _eqlwd    .,		/*
  		*/label("=") center
  VARNAME  vn_stat1E       _eqlsep   @           _vnwd     .,		/*
  		*/label("Variable 1E")
  TEXT     tx_comE         _vnsep    @           _gapwd     .,		/*
  		*/label(" ") center
  EDIT     ed_stat1F       _gapsep   @           _vnwd     .,		/*
  		*/label("New name 1F")
  TEXT     tx_eqF          _vnsep    @           _eqlwd    .,		/*
  		*/label("=") center
  VARNAME  vn_stat1F       _eqlsep   @           _vnwd     .,		/*
  		*/label("Variable 1F")

  /* Statistic 2 */
  COMBOBOX cb_stat2        _lft     _ls         _spr4     .,		/*
  		*/label("Statistic 2") contents(stats2)  dropdownlist	/*
  		*/values(stats2v) onselchangelist(main_stats2_change)	/*
		*/option(" ")
  SPINNER  sp_stat2        +110     @           _spwd     .,		/*
  		*/ label("Statistic") min(1) max(99) default(50)
  EDIT     ed_stat2A       _gft4_2  @           _vnwd     .,		/*
  		*/label("New name 2A")
  TEXT     tx_eq2A         _vnsep   @           _eqlwd    .,		/*
  		*/label("=") center
  VARNAME  vn_stat2A       _eqlsep  @           _vnwd     .,		/*
  		*/label("Variable 2A")
  TEXT     tx_com2A         _vnsep   @           20        .,		/*
  		*/label(" ") center
  EDIT     ed_stat2B       +25      @           _vnwd     .,		/*
  		*/label("New name 2B")
  TEXT     tx_eq2B         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat2B       +10      @           _vnwd     .,		/*
  		*/label("Variable 2B")
  EDIT     ed_stat2C       _gft4_2  _ms         _vnwd     .,		/*
  		*/label("New name 2C")
  TEXT     tx_eq2C         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat2C       +10      @           _vnwd     .,		/*
  		*/label("Variable 2C")
  TEXT     tx_com2C        _vnsep   @           20        .,		/*
  		*/label(" ") center
  EDIT     ed_stat2D       +25      @           _vnwd     .,		/*
  		*/label("New name 2D")
  TEXT     tx_eq2D         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat2D       +10      @           _vnwd     .,		/*
  		*/label("Variable 2D")
  EDIT     ed_stat2E       _gft4_2  _ms         _vnwd     .,		/*
  		*/label("New name 2E")
  TEXT     tx_eq2E         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat2E       +10      @           _vnwd     .,		/*
  		*/label("Variable 2E")
  TEXT     tx_com2E        _vnsep   @           20        .,		/*
  		*/label(" ") center
  EDIT     ed_stat2F       +25      @           _vnwd     .,		/*
  		*/label("New name 2F")
  TEXT     tx_eq2F         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat2F       +10      @           _vnwd     .,		/*
  		*/label("Variable 2F")

  /* Statistic 3 */
  COMBOBOX cb_stat3        _lft     _ls         _spr4     .,		/*
  		*/label("Statistic 3") contents(stats2)  dropdownlist	/*
  		*/values(stats2v) onselchangelist(main_stats3_change)	/*
		*/option(" ")
  SPINNER  sp_stat3        +110     @           _spwd     .,		/*
  		*/ label("Statistic") min(1) max(99) default(50)
  EDIT     ed_stat3A       _gft4_2  @           _vnwd     .,		/*
  		*/label("New name 3A")
  TEXT     tx_eq3A         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat3A       +10      @           _vnwd     .,		/*
  		*/label("Variable 3A")
  TEXT     tx_com3A         _vnsep   @           20        .,		/*
  		*/label(" ") center
  EDIT     ed_stat3B       +25      @           _vnwd     .,		/*
  		*/label("New name 3B")
  TEXT     tx_eq3B         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat3B       +10      @           _vnwd     .,		/*
  		*/label("Variable 3B")
  EDIT     ed_stat3C       _gft4_2  _ms         _vnwd     .,		/*
  		*/label("New name 3C")
  TEXT     tx_eq3C         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat3C       +10      @           _vnwd     .,		/*
  		*/label("Variable 3C")
  TEXT     tx_com3C        _vnsep   @           20        .,		/*
  		*/label(" ") center
  EDIT     ed_stat3D       +25      @           _vnwd     .,		/*
  		*/label("New name 3D")
  TEXT     tx_eq3D         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat3D       +10      @           _vnwd     .,		/*
  		*/label("Variable 3D")
  EDIT     ed_stat3E       _gft4_2  _ms         _vnwd     .,		/*
  		*/label("New name 3E")
  TEXT     tx_eq3E         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat3E       +10      @           _vnwd     .,		/*
  		*/label("Variable 3E")
  TEXT     tx_com3E        _vnsep   @           20        .,		/*
  		*/label(" ") center
  EDIT     ed_stat3F       +25      @           _vnwd     .,		/*
  		*/label("New name 3F")
  TEXT     tx_eq3F         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat3F       +10      @           _vnwd     .,		/*
  		*/label("Variable 3F")

  /* Statistic 4 */
  COMBOBOX cb_stat4        _lft     _ls         _spr4     .,		/*
  		*/label("Statistic 2") contents(stats2)  dropdownlist	/*
  		*/values(stats2v) onselchangelist(main_stats4_change)   /*
  		*/option(" ")
  SPINNER  sp_stat4        +110     @           _spwd     .,		/*
  		*/ label("Statistic") min(1) max(99) default(50)
  EDIT     ed_stat4A       _gft4_2  @           _vnwd     .,		/*
  		*/label("New name 4A")
  TEXT     tx_eq4A         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat4A       +10      @           _vnwd     .,		/*
  		*/label("Variable 4A")
  TEXT     tx_com4A         _vnsep   @           20        .,		/*
  		*/label(" ") center
  EDIT     ed_stat4B       +25      @           _vnwd     .,		/*
  		*/label("New name 4B")
  TEXT     tx_eq4B         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat4B       +10      @           _vnwd     .,		/*
  		*/label("Variable 4B")
  EDIT     ed_stat4C       _gft4_2  _ms         _vnwd     .,		/*
  		*/label("New name 4C")
  TEXT     tx_eq4C         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat4C       +10      @           _vnwd     .,		/*
  		*/label("Variable 4C")
  TEXT     tx_com4C        _vnsep   @           20        .,		/*
  		*/label(" ") center
  EDIT     ed_stat4D       +25      @           _vnwd     .,		/*
  		*/label("New name 4D")
  TEXT     tx_eq4D         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat4D       +10      @           _vnwd     .,		/*
  		*/label("Variable 4D")
  EDIT     ed_stat4E       _gft4_2  _ms         _vnwd     .,		/*
  		*/label("New name 4E")
  TEXT     tx_eq4E         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat4E       +10      @           _vnwd     .,		/*
  		*/label("Variable 4E")
  TEXT     tx_com4E        _vnsep   @           20        .,		/*
  		*/label(" ") center
  EDIT     ed_stat4F       +25      @           _vnwd     .,		/*
  		*/label("New name 4F")
  TEXT     tx_eq4F         _vnsep   @           5         .,		/*
  		*/label("=") center
  VARNAME  vn_stat4F       +10      @           _vnwd     .,		/*
  		*/label("Variable 4F")

END

INCLUDE gover_98
INCLUDE gby_98
INCLUDE ifin
INCLUDE weights_fpai
INCLUDE gdotmarkstyle_98
INCLUDE gdotline_98
INCLUDE gdotopt
INCLUDE gbaryaxis_98
INCLUDE gtitle_98
INCLUDE gcaption_98
INCLUDE glegend_98
INCLUDE gregion_98

/* stats1 */
LIST stats
BEGIN
	mean
	median
	percentile
	standard deviation
	sums
	raw sum (ignores weight)
	count nonmissing
	maximum
	minimum
	inter quartile range
	asis
END

LIST statsv
BEGIN
	mean
	median
	p
	sd
	sum
	rawsum
	count
	max
	min
	iqr
	asis
END

LIST main_stats_change
BEGIN
	script main_stats_norm
	script main_stats_norm
	script main_stats_perc /* enable pweights, enable sp_stat1 */
	program main_stats_sd  /* warn on pweights with this one */
	script main_stats_norm
	script main_stats_norm
	script main_stats_norm
	script main_stats_norm
	script main_stats_norm
	script main_stats_norm
	script main_stats_asis
END

SCRIPT main_stats_show
BEGIN
	main.cb_stat2.show
	main.cb_stat3.show
	main.cb_stat4.show
	main.sp_stat2.show
	main.sp_stat3.show
	main.sp_stat4.show
END

SCRIPT main_stats_norm
BEGIN
	script main_stats_show
	script main_stat2_hide
	script main_stat3_hide
	script main_stat4_hide
	main.sp_stat1.disable
END

SCRIPT main_stats_perc
BEGIN
	script main_stats_show
	script main_stat2_hide
	script main_stat3_hide
	script main_stat4_hide
	main.sp_stat1.enable
END

SCRIPT main_stats_asis
BEGIN
	main.cb_stat2.hide
	main.cb_stat3.hide
	main.cb_stat4.hide
	main.sp_stat2.hide
	main.sp_stat3.hide
	main.sp_stat4.hide
	main.sp_stat1.disable
	script main_stat2_show
	script main_stat3_show
	script main_stat4_show
END

PROGRAM main_stats_sd
BEGIN
	call script main_stats_show
	call gaction main.sp_stat1.disable
END
	

/* stats2, with lists reused in stats3 and stats4 */
LIST stats2
BEGIN
	none
	mean
	median
	percentile
	standard deviation
	sums
	raw sum (ignores weight)
	count nonmissing
	maximum
	minimum
	inter quartile range
END

LIST stats2v
BEGIN
	""
	mean
	median
	p
	sd
	sum
	rawsum
	count
	max
	min
	iqr
END

LIST main_stats2_change
BEGIN
	script main_stat2_hide   
	script main_stat2_norm
	script main_stat2_norm
	script main_stat2_perc /* enable pweights, enable sp_stat1 */
	program main_stat2_sd  /* warn on pweights with this one */
	script main_stat2_norm
END

SCRIPT main_stat2_hide   
BEGIN
	main.sp_stat2.disable
	main.ed_stat2A.hide
	main.tx_eq2A.hide
	main.vn_stat2A.hide

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -