mkmat.dlg

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

/*
	mkmat 

	VERSION 1.0.0  21dec2002

	which mkmat = *! version 1.0.6  27feb2002
*/

VERSION 8.0

INCLUDE _std_medium
INCLUDE _ht190
INCLUDE header

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

DIALOG main, label("mkmat - Convert variables to matrix") /*
		*/ tabtitle("Main")
BEGIN
  /*--+----1----+----2----+----3----+----4----+----5----+----6----+----7----+*/ 
  TEXT     tx_var    _lft      _top      _iwd      .,		/*
		*/ label("Variables:")

  VARLIST  vl_var    @         _ss       @         .,		/*
  		*/ label("Variables") 					

  GROUPBOX gb_opt    @         _xls      @         _ht7h, 	/*
  		*/ label("Options")

  CHECKBOX ck_opt    _ilft     _ss       _inwd     ., 		/*
  		*/ label("Combine vectors in N x k matrix:")	/*
		*/ clickon("gaction main.ed_mat.enable")	/*
		*/ clickoff("gaction main.ed_mat.disable")

  EDIT     ed_mat    _indent2  _ms       _vnwd     .,		/*
		*/ max(32)					/*
  		*/ label("Combine vectors in N x k matrix")	/*
		*/ option("matrix")
  CHECKBOX ck_nomiss _ilft     _ls       _ibwd     .,		/*
		*/ option("nomissing")				/*
		*/ label("Exclude observations with missing values")
END

INCLUDE ifin

PROGRAM command
BEGIN
	put "mkmat "
	varlist main.vl_var
	INCLUDE _ifin_pr
	beginoptions
		if main.ck_opt {
			require main.ed_mat
			optionarg main.ed_mat
		}
		option main.ck_nomiss
	endoptions
END