estat_vce_pr.idlg

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

/*
	estat_vce_pr -- an INCLUDE file containing the SCRIPTs and PROGRAMs
	used by estat.dlg and svy_estat.dlg

*!  VERSION 1.0.2  24mar2005

	NOTE: this INCLUDE file assumes that the controls for the -estat vce-
	options are within the 'main' table.

*/

PROGRAM format_on
BEGIN
	call gaction main.ed_format_cor.enable
	call gaction main.ed_format_cov.enable
	call gaction main.bn_format.enable
END

PROGRAM format_off
BEGIN
	call gaction main.ed_format_cor.disable
	call gaction main.ed_format_cov.disable
	call gaction main.bn_format.disable
END

PROGRAM cov_on
BEGIN
	if main.lb_subcmd.equals("vce") {
		call gaction main.ed_format_cov.show
		call gaction main.ed_format_cor.hide
	}
	if main.ck_format & !main.ed_format_cov {
		call gaction main.ed_format_cov.enable
	}
	if !main.ck_format & main.ed_format_cov {
		call gaction main.ed_format_cov.disable
	}
END

PROGRAM cor_on
BEGIN
	if main.lb_subcmd.equals("vce") {
		call gaction main.ed_format_cor.show
		call gaction main.ed_format_cov.hide
	}
	if main.ck_format & !main.ed_format_cor {
		call gaction main.ed_format_cor.enable
	}
	if !main.ck_format & main.ed_format_cor {
		call gaction main.ed_format_cor.disable
	}
END

PROGRAM vce_on
BEGIN
	call main.gb_matdisp.show
	call main.rb_covariance.show
	call main.rb_correlation.show
	call main.ck_eq.show
	call main.vl_eq.show
	call main.ck_block.show
	call main.ck_diag.show
	call main.ck_format.show
	if main.rb_covariance & main.lb_subcmd.equals("vce") {
		call main.ed_format_cov.show
		call main.ed_format_cor.hide
	}
	if main.rb_correlation & main.lb_subcmd.equals("vce") {
		call main.ed_format_cor.show
		call main.ed_format_cov.hide
	}
	call main.bn_format.show
	call main.ck_nolines.show
END

PROGRAM vce_off
BEGIN
	call main.gb_matdisp.hide
	call main.rb_covariance.hide
	call main.rb_correlation.hide
	call main.ck_eq.hide
	call main.vl_eq.hide
	call main.ck_block.hide
	call main.ck_diag.hide
	call main.ck_format.hide
	call main.ed_format_cov.hide
	call main.ed_format_cor.hide
	call main.bn_format.hide
	call main.ck_nolines.hide
END

PROGRAM vce_output
BEGIN
	// -estat vce-
	option main.rb_covariance
	option main.rb_correlation
	if main.ck_eq & main.lb_subcmd.equals("vce") {
		require main.vl_eq
		put "equation("
		put /program vl_eq_output
		put ") "
	}
	option main.ck_block
	option main.ck_diag
	optionarg main.ed_format_cov
	optionarg main.ed_format_cor
	option main.ck_nolines
END

PROGRAM ck_eq_on
BEGIN
	call main.vl_eq.enable
	call main.ck_nolines.disable
END

PROGRAM ck_eq_off
BEGIN
	call main.vl_eq.disable
	if !(main.ck_diag | main.ck_block) {
		call main.ck_nolines.enable
	}
END

PROGRAM ck_block_on
BEGIN
	call main.ck_diag.disable
	call main.ck_nolines.disable
END

PROGRAM ck_block_off
BEGIN
	call main.ck_diag.enable
	if !(main.ck_diag | main.ck_eq) {
		call main.ck_nolines.enable
	}
END

PROGRAM ck_diag_on
BEGIN
	call main.ck_block.disable
	call main.ck_nolines.disable
END

PROGRAM ck_diag_off
BEGIN
	call main.ck_block.enable
	if !(main.ck_block | main.ck_eq) {
		call main.ck_nolines.enable
	}
END