gbar_sc_98.idlg

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

 /*
  gbar_sc_98 - Scripts for bar and hbar charts
  **Special version for Windows95/98

*!  VERSION 1.0.1  20mar2005

*/

INCLUDE gover_98
INCLUDE gby_98
INCLUDE ifin
INCLUDE weights_fpai
INCLUDE gbarstyle_98
INCLUDE gbarlabel_98
INCLUDE gbaropt
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
	main.ed_stat2B.hide
	main.tx_eq2B.hide
	main.vn_stat2B.hide
	main.ed_stat2C.hide
	main.tx_eq2C.hide
	main.vn_stat2C.hide
	main.ed_stat2D.hide
	main.tx_eq2D.hide
	main.vn_stat2D.hide
	main.ed_stat2E.hide
	main.tx_eq2E.hide
	main.vn_stat2E.hide
	main.ed_stat2F.hide
	main.tx_eq2F.hide
	main.vn_stat2F.hide
END

SCRIPT main_stat2_show
BEGIN
	main.ed_stat2A.show
	main.tx_eq2A.show
	main.vn_stat2A.show
	main.ed_stat2B.show
	main.tx_eq2B.show
	main.vn_stat2B.show
	main.ed_stat2C.show
	main.tx_eq2C.show
	main.vn_stat2C.show
	main.ed_stat2D.show
	main.tx_eq2D.show
	main.vn_stat2D.show
	main.ed_stat2E.show
	main.tx_eq2E.show
	main.vn_stat2E.show
	main.ed_stat2F.show
	main.tx_eq2F.show
	main.vn_stat2F.show
END

SCRIPT main_stat2_norm
BEGIN
	script main_stat2_show
	main.sp_stat2.disable
END

SCRIPT main_stat2_perc
BEGIN
	script main_stat2_show
	main.sp_stat2.enable
END

PROGRAM main_stat2_sd
BEGIN
	call script main_stat2_norm
END
	
/* stats3 */	
LIST main_stats3_change
BEGIN
	script main_stat3_hide   
	script main_stat3_norm
	script main_stat3_norm
	script main_stat3_perc /* enable pweights, enable sp_stat1 */
	program main_stat3_sd  /* warn on pweights with this one */
	script main_stat3_norm
END

SCRIPT main_stat3_hide   
BEGIN
	main.sp_stat3.disable
	main.ed_stat3A.hide
	main.tx_eq3A.hide
	main.vn_stat3A.hide
	main.ed_stat3B.hide
	main.tx_eq3B.hide
	main.vn_stat3B.hide
	main.ed_stat3C.hide
	main.tx_eq3C.hide
	main.vn_stat3C.hide
	main.ed_stat3D.hide
	main.tx_eq3D.hide
	main.vn_stat3D.hide
	main.ed_stat3E.hide
	main.tx_eq3E.hide
	main.vn_stat3E.hide
	main.ed_stat3F.hide
	main.tx_eq3F.hide
	main.vn_stat3F.hide
END

SCRIPT main_stat3_show
BEGIN
	main.ed_stat3A.show
	main.tx_eq3A.show
	main.vn_stat3A.show
	main.ed_stat3B.show
	main.tx_eq3B.show
	main.vn_stat3B.show
	main.ed_stat3C.show
	main.tx_eq3C.show
	main.vn_stat3C.show
	main.ed_stat3D.show
	main.tx_eq3D.show
	main.vn_stat3D.show
	main.ed_stat3E.show
	main.tx_eq3E.show
	main.vn_stat3E.show
	main.ed_stat3F.show
	main.tx_eq3F.show
	main.vn_stat3F.show
END

SCRIPT main_stat3_norm
BEGIN
	script main_stat3_show
	main.sp_stat3.disable
END

SCRIPT main_stat3_perc
BEGIN
	script main_stat3_show
	main.sp_stat3.enable
END

PROGRAM main_stat3_sd
BEGIN
	call script main_stat3_norm
END


/* stats4 */
LIST main_stats4_change
BEGIN
	script main_stat4_hide   
	script main_stat4_norm
	script main_stat4_norm
	script main_stat4_perc /* enable pweights, enable sp_stat1 */
	program main_stat4_sd  /* warn on pweights with this one */
	script main_stat4_norm
END

SCRIPT main_stat4_hide   
BEGIN
	main.sp_stat4.disable
	main.ed_stat4A.hide
	main.tx_eq4A.hide
	main.vn_stat4A.hide
	main.ed_stat4B.hide
	main.tx_eq4B.hide
	main.vn_stat4B.hide
	main.ed_stat4C.hide
	main.tx_eq4C.hide
	main.vn_stat4C.hide
	main.ed_stat4D.hide
	main.tx_eq4D.hide
	main.vn_stat4D.hide
	main.ed_stat4E.hide
	main.tx_eq4E.hide
	main.vn_stat4E.hide
	main.ed_stat4F.hide
	main.tx_eq4F.hide
	main.vn_stat4F.hide
END

SCRIPT main_stat4_show
BEGIN
	main.ed_stat4A.show
	main.tx_eq4A.show
	main.vn_stat4A.show
	main.ed_stat4B.show
	main.tx_eq4B.show
	main.vn_stat4B.show
	main.ed_stat4C.show
	main.tx_eq4C.show
	main.vn_stat4C.show
	main.ed_stat4D.show
	main.tx_eq4D.show
	main.vn_stat4D.show
	main.ed_stat4E.show
	main.tx_eq4E.show
	main.vn_stat4E.show
	main.ed_stat4F.show
	main.tx_eq4F.show
	main.vn_stat4F.show
END

SCRIPT main_stat4_norm
BEGIN
	script main_stat4_show
	main.sp_stat4.disable
END

SCRIPT main_stat4_perc
BEGIN
	script main_stat4_show
	main.sp_stat4.enable
END

PROGRAM main_stat4_sd
BEGIN
	call script main_stat4_norm
END

/*END*/