max_ml.idlg

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

	call max.ed_ltol_i.disable
	call max.tx_ltol_i.disable
	call max.tx_from.disable
	call max.ed_from.disable
END

PROGRAM enable_max_int
BEGIN
	call max.sp_iter_i.enable
	call max.tx_iter_i.enable
	call max.gb_ilog_i.enable
	call max.rb_nolog_i.enable
	call max.rb_log_i.enable
	call max.rb_trace_i.enable
	call max.rb_log2_i.enable
	call max.rb_nolog2_i.enable
	call max.rb_trace2_i.enable
	call max.gb_tol_i.enable
	call max.ed_tol_i.enable
	call max.tx_tol_i.enable
	if ! max_isNoLTol {
		call max.ed_ltol_i.enable
		call max.tx_ltol_i.enable
	}
	call max.tx_from.enable
	call max.ed_from.enable
END



/*******  Scripts for external use  *******/
SCRIPT max_setOptionSlogit
BEGIN
	script max_slogit_option_show
END

SCRIPT max_setDefaultNoLog
BEGIN
	max.rb_log.hide
	max.rb_nolog.hide
	max.rb_log2.show
	max.rb_nolog2.show
	program max_logging_check
END


SCRIPT max_int_setDefaultNoLog
BEGIN
	max.rb_log_i.hide
	max.rb_trace_i.hide
	max.rb_nolog_i.hide
	max.rb_log2_i.show
	max.rb_trace2_i.show
	max.rb_nolog2_i.show
END

SCRIPT max_int_setLTolNotAllowed
BEGIN
	max_isNoLTol.settrue
	max.ed_ltol_i.disable
	max.tx_ltol_i.disable
END

SCRIPT max_setDefaultDifficult
BEGIN
	max.ck_nodiff.show
	max.ck_diff.hide
END

SCRIPT max_int_setFromVisible
BEGIN
	max.tx_from.show
	max.ed_from.show
END

SCRIPT max_setFromNotVisible
BEGIN
	max.tx_from.hide
	max.ed_from.hide
END

SCRIPT max_setFromForShwinters
BEGIN
	max.ed_from1.show
	max.ed_from2.show
	max.ed_from3.show
	max.ed_from.hide
	max.tx_from.setlabel "Starting values for the parameters: (parameters in (0,1))"
END

SCRIPT max_setFromForHwinters
BEGIN
	max.ed_from1.show
	max.ed_from2.show
	max.ed_from3.hide
	max.ed_from.hide
	max.tx_from.setlabel "Starting values for the parameters: (parameters in (0,1))"
END

SCRIPT max_from_disable
BEGIN
	max.ed_from1.disable
	max.ed_from2.disable
	max.ed_from3.disable
	max.ed_from.disable
	max.tx_from.disable
END

SCRIPT max_from_enable
BEGIN
	max.ed_from1.enable
	max.ed_from2.enable
	max.ed_from3.enable
	max.ed_from.enable
	max.tx_from.enable
END

SCRIPT max_setDefaultOPG
BEGIN
	robust_label_list.Arrpop
	robust_label_list.Arrpop
	robust_label_list.Arrpop
	robust_label_list.Arrpop
	robust_label_list.Arrpop
	robust_label_list.Arrpush "script se_setDefaultOPG"
	robust_label_list.Arrpush "script se_setDefaultOIM"
	robust_label_list.Arrpush "script se_setDefaultOPG"
	robust_label_list.Arrpush "script se_setDefaultOIM"
	robust_label_list.Arrpush "script se_setDefaultOIM"
	max.cb_tech.withvalue max.cb_tech.setvalue "@"
END

SCRIPT max_internal_on
BEGIN
	script max_ml_hide
	script max_pa_hide
	script max_internal_show
END

SCRIPT max_internalFrom_on
BEGIN
	script max_ml_hide
	script max_pa_hide
	script max_internal_show
	script max_int_setFromVisible
END

SCRIPT max_pa_on
BEGIN
	script max_ml_hide
	script max_internal_hide
	script max_pa_show
END

SCRIPT max_ml_on
BEGIN
	script max_internal_hide
	script max_pa_hide
	script max_ml_show
END

SCRIPT max_internal_disable
BEGIN
	max.gb_ilog_i.disable
	max.rb_log_i.disable
	max.rb_trace_i.disable
	max.rb_nolog_i.disable
	max.sp_iter_i.disable
	max.tx_iter_i.disable
	max.gb_tol_i.disable
	max.ed_tol_i.disable
	max.tx_tol_i.disable
	max.ed_ltol_i.disable
	max.tx_ltol_i.disable
	max.tx_from.disable
	max.ed_from.disable
END

SCRIPT max_internal_enable
BEGIN
	max.gb_ilog_i.enable
	max.rb_log_i.enable
	max.rb_trace_i.enable
	max.rb_nolog_i.enable
	max.sp_iter_i.enable
	max.tx_iter_i.enable
	max.gb_tol_i.enable
	max.ed_tol_i.enable
	max.tx_tol_i.enable
	max.ed_ltol_i.enable
	max.tx_ltol_i.enable
	max.tx_from.enable
	max.ed_from.enable
END

/******* End scripts for external use *******/

// This list is used with se.idlg
LIST robust_label_list
BEGIN
	script se_setDefaultOIM
	script se_setDefaultOIM
	script se_setDefaultOPG
	script se_setDefaultOIM
	script se_setDefaultOIM
END

SCRIPT nonrtol
BEGIN
	max.ed_nrtol.disable
	max.tx_nrtol.disable
	max.ck_shownr.disable
END

SCRIPT nrtol
BEGIN
	max.ed_nrtol.enable
	max.tx_nrtol.enable
	program check_shownr
END

PROGRAM check_shownr
BEGIN
        if ((!H(max.ck_nonrtol) & !max.ck_nonrtol) ///
         & ((!H(max.rb_log) & max.rb_log) | (!H(max.rb_log2) & max.rb_log2))) {
	 	call gaction max.ck_shownr.enable
	}
END


LIST technique_list
BEGIN
	"Default"
	"Newton-Raphson"
	"BHHH"
	"BFGS"
	"DFP"
END

LIST technique_val_list
BEGIN
	""
	"nr"
	"bhhh"
	"bfgs"
	"dfp"
END

SCRIPT max_hlp
BEGIN
        view help maximize##|_new
END

PROGRAM max_logging_check
BEGIN
	if ((!H(max.rb_log) & max.rb_log)  | (!H(max.rb_log2) & max.rb_log2)) {
		call max.ck_trace.enable
		call max.ck_grad.enable
		call max.ck_hess.enable
		call max.ck_show.enable
		call max.gb_log.enable
		call program check_shownr
	}
	if ((!H(max.rb_log) & max.rb_nolog)  | (!H(max.rb_log2) & max.rb_nolog2)) {
		call max.ck_trace.disable
		call max.ck_grad.disable
		call max.ck_hess.disable
		call max.ck_show.disable
		call max.ck_shownr.disable
		call max.gb_log.disable
	}
END

PROGRAM disable_max_ml
BEGIN
	call max.cb_tech.disable
	call max.tx_tech.disable
	call max.gb_ilog.disable
	call max.rb_log.disable
	call max.rb_nolog.disable
	call max.rb_log2.disable
	call max.rb_nolog2.disable
	call max.gb_log.disable
	call max.ck_trace.disable
	call max.ck_grad.disable
	call max.ck_hess.disable
	call max.ck_show.disable
	call max.ck_diff.disable
	call max.sp_iter.disable
	call max.tx_iter.disable
	call max.gb_tol.disable
	call max.ed_tol.disable
	call max.tx_tol.disable
	call max.ed_gtol.disable
	call max.tx_gtol.disable
	call max.ed_ltol.disable
	call max.tx_ltol.disable
	call max.ed_nrtol.disable
	call max.tx_nrtol.disable
	call max.ck_nonrtol.disable
	call max.ck_shownr.disable
	call script max_from_disable
END

PROGRAM enable_max_ml
BEGIN
	call max.cb_tech.enable
	call max.tx_tech.enable
	call max.gb_ilog.enable
	call max.rb_log.enable
	call max.rb_nolog.enable
	call max.rb_log2.enable
	call max.rb_nolog2.enable
	call program max_logging_check
	call max.ck_diff.enable
	call max.sp_iter.enable
	call max.tx_iter.enable
	call max.gb_tol.enable
	call max.ed_tol.enable
	call max.tx_tol.enable
	call max.ed_gtol.enable
	call max.tx_gtol.enable
	call max.ed_ltol.enable
	call max.tx_ltol.enable
	call max.ck_nonrtol.enable
	if ! max.ck_nonrtol {
		call max.ed_nrtol.enable
		call max.tx_nrtol.enable
		call program check_shownr
	}
	call script max_from_enable
END

/** for external use **/

SCRIPT max_enable
BEGIN
	program enable_max_ml
END

SCRIPT max_int_enable
BEGIN
	program enable_max_int
END

SCRIPT max_disable
BEGIN
	program disable_max_ml
END

SCRIPT max_int_disable
BEGIN
	program disable_max_int
END

SCRIPT max_technique_disable
BEGIN
	max.cb_tech.disable
	max.tx_tech.disable
END

SCRIPT max_technique_enable
BEGIN
	max.cb_tech.enable
	max.tx_tech.enable
END

PROGRAM max_from_list_output
BEGIN
	put max.ed_from1 " "
	put max.ed_from2 " "
	put max.ed_from3
END

PROGRAM max_output
BEGIN
	option max.rb_log
	option max.rb_nolog
	option max.rb_nolog2
	option max.rb_log2
	option max.rb_log_i
	option max.rb_trace_i
	option max.rb_nolog_i
	option max.rb_log2_i
	option max.rb_trace2_i
	option max.rb_nolog2_i
	option max.ck_trace
	option max.ck_grad
	option max.ck_hess
	option max.ck_show
	option max.ck_shownr
	option max.ck_diff
	option max.ck_nodiff
	optionarg /hidedefault max.cb_tech
	optionarg /hidedefault max.sp_iter
	optionarg /hidedefault max.sp_iter_i
	optionarg /hidedefault max.ed_tol
	optionarg /hidedefault max.ed_ltol
	optionarg /hidedefault max.ed_tol_i
	optionarg /hidedefault max.ed_ltol_i
	optionarg max.ed_gtol
	optionarg /hidedefault max.ed_nrtol
	option max.ck_nonrtol
	optionarg max.ed_from
	if !H(max.ed_from1) & (max.ed_from1 | max.ed_from2 | max.ed_from3) {
		put " " "from(
		put /program max_from_list_output
		put ") "
	}

	// for slogit
	option max.rb_constant
	option max.rb_random
	option max.rb_svd
	option max.ck_nonormal

	// for PA
	optionarg /hidedefault max.sp_iter_pa
	optionarg /hidedefault max.en_tol2_pa
	option max.rb_log_pa
	option max.rb_trace_pa
	option max.rb_nolog_pa
END