se.idlg

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

	se_hasJackknife.settrue
	se_hasOIM.setfalse
	se_hasOPG.setfalse
	se_hasRobust.setfalse
	se_hasUnbiased.setfalse
	program _se_rebuild_listbox
END
SCRIPT se_switchToJknifeBstrapML
BEGIN
	se_hasNotes.settrue
	// allowed vcetypes
	se_hasBootstrap.settrue
	se_hasClRobust.settrue
	se_hasEIM.setfalse
	se_hasHAC.setfalse
	se_hasJackknife.settrue
	se_hasOIM.settrue
	se_hasOPG.settrue
	se_hasRobust.settrue
	se_hasUnbiased.setfalse
	program _se_rebuild_listbox
END

SCRIPT se_setJknifeBstrap_off
BEGIN
	se_hasBootstrap.setfalse
	se_hasJackknife.setfalse
	program _se_rebuild_listbox
END
SCRIPT se_setJknifeBstrap_on
BEGIN
	se_hasBootstrap.settrue
	se_hasJackknife.settrue
	program _se_rebuild_listbox
END

SCRIPT se_setIRLS_off
BEGIN
	se_isIRLS.setfalse
	program _se_hideOrShow
END
SCRIPT se_setIRLS_on
BEGIN
	se_isIRLS.settrue
	program _se_hideOrShow
END

SCRIPT se_setN2step_off
BEGIN
	se_hasN2step.setfalse
	program _se_restore_vcetype
	program _se_rebuild_listbox
END
SCRIPT se_setN2step_on
BEGIN
	se_hasNotes.settrue
	se_hasN2step.settrue
	se_default_vcetype.setstring "Newey's two-step"
	program _se_rebuild_listbox
END

SCRIPT se_set2stage_off
BEGIN
	se_has2stage.setfalse
	program _se_restore_vcetype
	program _se_rebuild_listbox
END
SCRIPT se_set2stage_on
BEGIN
	se_hasNotes.settrue
	se_has2stage.settrue
	se_default_vcetype.setstring "Two-stage"
	program _se_rebuild_listbox
END

SCRIPT se_setH2step_off
BEGIN
	se_hasH2step.setfalse
	program _se_restore_vcetype
	program _se_rebuild_listbox
END
SCRIPT se_setH2step_on
BEGIN
	se_hasNotes.settrue
	se_hasH2step.settrue
	se_default_vcetype.setstring "Heckman's two-step"
	program _se_rebuild_listbox
END

SCRIPT se_set2step_off
BEGIN
	se_has2step.setfalse
	program _se_restore_vcetype
	program _se_rebuild_listbox
END
SCRIPT se_set2step_on
BEGIN
	se_hasNotes.settrue
	se_has2step.settrue
	se_default_vcetype.setstring "Two-step"
	program _se_rebuild_listbox
END

// PROGRAMS and SCRIPTS for internal use ************************************

SCRIPT _se_SETUP
BEGIN
	// weights indicators
	create BOOLEAN se_isWeighted
	create BOOLEAN se_isPWon
	// indicator for special -regress, robust- options
	create BOOLEAN se_hasBias
	// indicators for notes about the default <vcetype>
	create BOOLEAN se_hasNotes
	create BOOLEAN se_notesVisible
	se_notesVisible.settrue
	// indicates whether the -vce()- option needs a closing parenthesis
	create BOOLEAN se_closeParenthesis
	// indicators for the -cluster()- option
	create BOOLEAN se_hasCluster
	create BOOLEAN se_noCluster
	// indicator for the -noadjust- option
	create BOOLEAN se_hasNoAdjust
	// The following BOOLEANs are used to determine which <vcetype> of
	// the -vce(<vcetype>)- option is allowed:
	create BOOLEAN se_hasBootstrap
	create BOOLEAN se_hasClRobust
	create BOOLEAN se_hasEIM
	create BOOLEAN se_hasHAC
	create BOOLEAN se_isHAC
	create BOOLEAN se_hasJackknife
	create BOOLEAN se_hasJackknife1
	create BOOLEAN se_hasOIM
	create BOOLEAN se_hasIOIM
	create BOOLEAN se_hasAnalytic
	create BOOLEAN se_hasN2step
	create BOOLEAN se_hasH2step
	create BOOLEAN se_has2step
	create BOOLEAN se_has2stage
	create BOOLEAN se_hasOLS
	create BOOLEAN se_hasLinearized
	create BOOLEAN se_hasOPG
	create BOOLEAN se_hasGLS
	create BOOLEAN se_hasRobust
	create BOOLEAN se_hasUnbiased
	// indicator for -glm- and -binreg-
	create BOOLEAN se_isGLM
	create BOOLEAN se_isIRLS
	// indicator for -xtgee- and the other -xt- commands that have the
	// -pa- option
	create BOOLEAN se_isGEE
	create BOOLEAN se_hasRGF
	// arrays for the LISTBOX lb_vcetype
	create ARRAY se_type_list
	create ARRAY se_type_values
	create ARRAY se_type_actions
	// string for the currently specified <vcetype>
	create STRING se_vcetype
	se_vcetype.setstring "Default standard errors"
	// string for the default <vcetype>
	create STRING se_default_vcetype
	create STRING se_old_default_vcetype
END

LIST se_hac_list
BEGIN
	"Newey-West"
	"Gallant"
	"Anderson"
END

LIST se_hac_values
BEGIN
	"nwest"
	"gallant"
	"anderson"
END

SCRIPT _se_EmptyLists
BEGIN
	se_type_list.Arrdropall
	se_type_values.Arrdropall
	se_type_actions.Arrdropall
	se.lb_vcetype.clearlist
END

PROGRAM _se_build_lists
BEGIN
	// NOTE: the order in which these scrips is call matters, and should
	// match the order in -_se_rebuild_listbox.
	call script _se_addDefaultToLists
	if se_hasRobust {
		call script _se_addRobustToLists
		if se_hasClRobust & !se_noCluster {
			call script _se_addClRobustToLists
		}
	}
	if se_hasAnalytic | se_hasLinearized {
		if !se_noCluster {
			call script _se_addClusterToLists
		}
	}
	if se_hasEIM {
		call script _se_addEIMToLists
	}
	if se_hasOIM {
		call script _se_addOIMToLists
	}
	if se_hasIOIM {
		call script _se_addIOIMToLists
	}
	if se_hasAnalytic {
		call script _se_addAnalyticToLists
	}
	if se_hasN2step {
		call script _se_addN2stepToLists
	}
	if se_hasH2step {
		call script _se_addH2stepToLists
	}
	if se_has2step {
		call script _se_add2stepToLists
	}
	if se_has2stage {
		call script _se_add2stageToLists
	}
	if se_hasOLS {
		call script _se_addOLSToLists
	}
	if se_hasLinearized {
		call script _se_addLinearizedToLists
	}
	if se_hasGLS {
		call script _se_addGLSToLists
	}
	if se_hasOPG {
		call script _se_addOPGToLists
	}
	if se_hasBootstrap {
		call script _se_addBootstrapToLists
	}
	if se_hasJackknife {
		call script _se_addJackknifeToLists
	}
	if se_hasHAC {
		call script _se_addHACToLists
	}
	if se_hasJackknife1 {
		call script _se_addJackknife1ToLists
	}
	if se_hasUnbiased {
		call script _se_addUnbiasedToLists
	}
END

PROGRAM _se_rebuild_listbox
BEGIN
	// NOTE: the order in which these scrips is call matters, and should
	// match the order in -_se_build_lists-.
	call script _se_EmptyLists
	call script _se_addDefaultToListBox
	if se_hasRobust {
		call script _se_addRobustToListBox
		if se_hasClRobust & !se_noCluster {
			call script _se_addClRobustToListBox
		}
	}
	if se_hasAnalytic | se_hasLinearized {
		if !se_noCluster {
			call script _se_addClusterToListBox
		}
	}
	if se_hasEIM & !se_isPWon {	// -pweights- imply robust by default
		call script _se_addEIMToListBox
	}
	if se_hasOIM & !se_isPWon {	// -pweights- imply robust by default
		call script _se_addOIMToListBox
	}
	if se_hasIOIM & !se_isPWon {	// -pweights- imply robust by default
		call script _se_addIOIMToListBox
	}
	if se_hasAnalytic & !se_isPWon { // -pweights- imply robust by default
		call script _se_addAnalyticToListBox
	}
	if se_hasN2step & !se_isPWon {	// -pweights- imply robust by default
		call script _se_addN2stepToListBox
	}
	if se_hasH2step & !se_isPWon {	// -pweights- imply robust by default
		call script _se_addH2stepToListBox
	}
	if se_has2step & !se_isPWon {	// -pweights- imply robust by default
		call script _se_add2stepToListBox
	}
	if se_has2stage & !se_isPWon {	// -pweights- imply robust by default
		call script _se_add2stageToListBox
	}
	if se_hasOLS & !se_isPWon {	// -pweights- imply robust by default
		call script _se_addOLSToListBox
	}
	if se_hasLinearized & !se_isPWon { // -pweights- imply robust by default
		call script _se_addLinearizedToListBox
	}
	if se_hasOPG & !se_isPWon {	// -pweights- imply robust by default
		call script _se_addOPGToListBox
	}
	if se_hasGLS & !se_isPWon {	// -pweights- imply robust by default
		call script _se_addGLSToListBox
	}
	if se_hasBootstrap & !se_isWeighted {
		call script _se_addBootstrapToListBox
	}
	if se_hasJackknife {
		call script _se_addJackknifeToListBox
	}
	if se_hasHAC {
		call script _se_addHACToListBox
	}
	if se_hasJackknife1 {
		call script _se_addJackknife1ToListBox
	}
	if se_hasUnbiased {
		call script _se_addUnbiasedToListBox
	}
	call script _se_reset_vcetype
END

SCRIPT _se_reset_vcetype
BEGIN
	se_vcetype.withvalue se.lb_vcetype.setvalue "@"
END

SCRIPT _se_addDefaultToLists
BEGIN
	se_type_list.Arrpush "Default standard errors"
	se_type_values.Arrpush ""
	se_type_actions.Arrpush script _se_Default_on
END
SCRIPT _se_addDefaultToListBox
BEGIN
	se.lb_vcetype.additem "Default standard errors"
	script _se_addDefaultToLists
END
SCRIPT _se_Default_on
BEGIN
	se.tx_type.setlabel "Standard error type: (Default)"
	se_vcetype.setstring "Default standard errors"
	se_closeParenthesis.setfalse
	se_isHAC.setfalse
	se_hasCluster.setfalse
	program _se_hideOrShow
END

SCRIPT _se_addBootstrapToLists
BEGIN
	se_type_list.Arrpush "Bootstrap"
	se_type_values.Arrpush "vce(bootstrap"
	se_type_actions.Arrpush script _se_Bootstrap_on
END
SCRIPT _se_addBootstrapToListBox
BEGIN
	se.lb_vcetype.additem "Bootstrap"
	script _se_addBootstrapToLists
END
SCRIPT _se_Bootstrap_on
BEGIN
	se.tx_type.setlabel "Standard error type: (Bootstrap)"
	se_vcetype.setstring "Bootstrap"
	se_closeParenthesis.settrue
	se_isHAC.setfalse
	se_hasCluster.settrue
	program _se_hideOrShow
END

SCRIPT _se_addClRobustToLists
BEGIN
	se_type_list.Arrpush "Clustered robust"
	se_type_values.Arrpush "robust"
	se_type_actions.Arrpush script _se_ClRobust_on
END
SCRIPT _se_addClRobustToListBox
BEGIN
	se.lb_vcetype.additem "Clustered robust"
	script _se_addClRobustToLists
END
SCRIPT _se_ClRobust_on
BEGIN
	se.tx_type.setlabel "Standard error type: (Clustered robust)"
	se_vcetype.setstring "Clustered robust"
	se_closeParenthesis.setfalse
	se_isHAC.setfalse
	se_hasCluster.settrue
	program _se_hideOrShow
END

SCRIPT _se_addClusterToLists
BEGIN
	se_type_list.Arrpush "Cluster"
	se_type_values.Arrpush ""
	se_type_actions.Arrpush script _se_Cluster_on
END
SCRIPT _se_addClusterToListBox
BEGIN
	se.lb_vcetype.additem "Cluster"
	script _se_addClusterToLists
END
SCRIPT _se_Cluster_on
BEGIN
	se.tx_type.setlabel "Standard error type: (Cluster)"
	se_vcetype.setstring "Cluster"
	se_closeParenthesis.setfalse
	se_isHAC.setfalse
	se_hasCluster.settrue
	program _se_hideOrShow
END

SCRIPT _se_addEIMToLists
BEGIN
	se_type_list.Arrpush "Expected information matrix (EIM)"
	se_type_values.Arrpush "vce(eim)"
	se_type_actions.Arrpush script _se_EIM_on
END
SCRIPT _se_addEIMToListBox
BEGIN
	se.lb_vcetype.additem "Expected information matrix (EIM)"
	script _se_addEIMToLists
END
SCRIPT _se_EIM_on
BEGIN
	se.tx_type.setlabel "Standard error type: (EIM)"
	se_vcetype.setstring "Expected information matrix (EIM)"
	se_closeParenthesis.setfalse
	se_isHAC.setfalse
	se_hasCluster.setfalse
	program _se_hideOrShow
END

SCRIPT _se_addHACToLists
BEGIN
	se_type_list.Arrpush "HAC"
	se_type_values.Arrpush "vce(hac"
	se_type_actions.Arrpush script _se_HAC_on
END
SCRIPT _se_addHACToListBox
BEGIN
	se.lb_vcetype.additem "HAC"
	script _se_addHACToLists
END
SCRIPT _se_HAC_on
BEGIN
	se.tx_type.setlabel "Standard error type: (HAC)"
	se_vcetype.setstring "HAC"
	se_closeParenthesis.settrue
	se_isHAC.settrue
	se_hasCluster.setfalse
	program _se_hideOrShow
END

SCRIPT _se_addJackknifeToLists
BEGIN
	se_type_list.Arrpush "Jackknife"
	se_type_values.Arrpush "vce(jackknife"
	se_type_actions.Arrpush script _se_Jackknife_on
END
SCRIPT _se_addJackknifeToListBox
BEGIN
	se.lb_vcetype.additem "Jackknife"
	script _se_addJackknifeToLists
END
SCRIPT _se_Jackknife_on
BEGIN
	se.tx_type.setlabel "Standard error type: (Jackknife)"
	se_vcetype.setstring "Jackknife"
	se_closeParenthesis.settrue
	se_isHAC.setfalse
	se_hasCluster.settrue
	program _se_hideOrShow
END

SCRIPT _se_addJackknife1ToLists
BEGIN
	se_type_list.Arrpush "One-step jackknife"
	se_type_values.Arrpush "vce(jackknife1)"
	se_type_actions.Arrpush script _se_Jackknife1_on
END
SCRIPT _se_addJackknife1ToListBox
BEGIN
	se.lb_vcetype.additem "One-step jackknife"
	script _se_addJackknife1ToLists
END
SCRIPT _se_Jackknife1_on
BEGIN
	se.tx_type.setlabel "Standard error type: (Jackknife1)"
	se_vcetype.setstring "One-step jackknife"
	se_closeParenthesis.setfalse