nlcom.dlg

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

/*
  nlcom

  VERSION 1.0.0  21dec2002

*/

VERSION 8.0

INCLUDE _std_large
INCLUDE header

HELP hlp1, view("help nlcom")
RESET res1

DIALOG main, label("nlcom - Nonlinear combinations of estimators")	/*
		*/ tabtitle("Main")
BEGIN
  /*--+----1----+----2----+----3----+----4----+----5----+----6----+----7----+*/ 
  TEXT     tx_exp    _lft      _top      _vlwd     .,			/*
	*/ label("Nonlinear expression:  (at least one required)")	/*
		*/
  TEXT     tx_lab    _vnx      _top      _vnwd     .,			/*
		*/ label("Optional label:")				/*
		*/

  EXP      ex_exp1   _lft      _ss       _vlwd     .,			/*
  		*/label("Create ...")
  EDIT     ed_lab1   _vnx      @         _vnwd     .,			/*
		*/ label("")						/*
		*/ max(32)						/*
		*/

  EXP      ex_exp2   _lft      _ms       _vlwd     .,			/*
  		*/label("Create ...")
  EDIT     ed_lab2   _vnx      @         _vnwd     .,			/*
		*/ label("")						/*
		*/ max(32)						/*
		*/

  EXP      ex_exp3   _lft      _ms       _vlwd     .,			/*
  		*/label("Create ...")
  EDIT     ed_lab3   _vnx      @         _vnwd     .,			/*
		*/ label("")						/*
		*/ max(32)						/*
		*/

  EXP      ex_exp4   _lft      _ms       _vlwd     .,			/*
  		*/label("Create ...")
  EDIT     ed_lab4   _vnx      @         _vnwd     .,			/*
		*/ label("")						/*
		*/ max(32)						/*
		*/

  EXP      ex_exp5   _lft      _ms       _vlwd     .,			/*
  		*/label("Create ...")
  EDIT     ed_lab5   _vnx      @         _vnwd     .,			/*
		*/ label("")						/*
		*/ max(32)						/*
		*/

  EXP      ex_exp6   _lft      _ms       _vlwd     .,			/*
  		*/label("Create ...")
  EDIT     ed_lab6   _vnx      @         _vnwd     .,			/*
		*/ label("")						/*
		*/ max(32)						/*
		*/

  GROUPBOX gb_output _lft      _xls      _iwd      _ht5,		/*
		*/ label("Options")					/*
		*/
  DEFINE _x _ilft
  DEFINE _cx _spr2b
  DEFINE _y _ss
  INCLUDE _sp_level
  DEFINE y @y
  SPINNER  sp_iter   _ilft     _ls       _spwd     .,			/*
		*/ label("Maximum iterations")				/*
		*/ min(1)						/*
		*/ max(10000)						/*
		*/ default(10000)					/*
		*/ option("iterate")					/*
		*/
  TEXT     tx_iter   _spsep    @         _spr2b    .,			/*
		*/ label("Maximum iterations")				/*
		*/
  CHECKBOX ck_post   _lft2     y         _cwd2     .,			/*
		*/ label("Post estimation results")			/*
		*/ option("post")					/*
		*/

END

PROGRAM command
BEGIN
	put "nlcom "
	if ! (main.ex_exp1 | main.ex_exp2 | main.ex_exp3 | /*
*/ main.ex_exp4 | main.ex_exp5 | main.ex_exp6) {
		stopbox stop `"At least one "Nonlinear expression""'/*
		*/ "is required on the Main tab"
	}
	if main.ex_exp1 {
		put "("
		if main.ed_lab1 {
			put main.ed_lab1 ": "
		}
		put main.ex_exp1
		put ") "
	}

	if main.ex_exp2 {
		put "("
		if main.ed_lab2 {
			put main.ed_lab2 ": "
		}
		put main.ex_exp2
		put ") "
	}

	if main.ex_exp3 {
		put "("
		if main.ed_lab3 {
			put main.ed_lab3 ": "
		}
		put main.ex_exp3
		put ") "
	}

	if main.ex_exp4 {
		put "("
		if main.ed_lab4 {
			put main.ed_lab4 ": "
		}
		put main.ex_exp4
		put ") "
	}

	if main.ex_exp5 {
		put "("
		if main.ed_lab5 {
			put main.ed_lab5 ": "
		}
		put main.ex_exp5
		put ") "
	}

	if main.ex_exp6 {
		put "("
		if main.ed_lab6 {
			put main.ed_lab6 ": "
		}
		put main.ex_exp6
		put ") "
	}

	beginoptions
		INCLUDE _level_main_pr
		option main.ck_post
		optionarg /hidedefault main.sp_iter
	endoptions
END