lnskew0.dlg

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

/*
	lnskew0	

*! VERSION 1.0.1  24sep2003

*/

VERSION 8.0

INCLUDE _std_medium
INCLUDE header

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

DIALOG main, label("lnskew0 - Zero-skewness log transform") tabtitle("Main")
BEGIN
  INCLUDE  _exp_vareq

  GROUPBOX gb_opt         _lft      _xls       _iwd    _ht13,  		/*
		*/ label("Options")

  EDIT     en_delta      _ilft       _ls      _spwd       .,		/*
		*/ option("delta")					/*
		*/ label("Delta")					/*
		*/ default("0.02")					/*
		*/ numonly
  TEXT     tx_delta    _en7sep         @      _sprb       .,		/*
		*/ label("Increment for derivative of skewness function")
  EDIT     en_zero       _ilft       _ls     _en7wd       .,		/*
		*/ option("zero")					/*
		*/ label("Zero")					/*
		*/ default("0.001")					/*
		*/ numonly
  TEXT     tx_zero     _en7sep         @      _sprb       .,		/*
		*/ label("Value for determining convergence")

  CHECKBOX ck_level    _ilft         _ls      _ibwd       _ht3,		/*
  		*/ label("Confidence level")				/*
  		*/ onclickon(main.sp_level.enable)			/*
  		*/ onclickoff(main.sp_level.disable)			/*
  		*/ groupbox
  SPINNER  sp_level    _indent       _ms      _spwd	  .,		/*
  		*/ label("Confidence level")				/*
  		*/ min(10) default(95) max(99)				/*
  		*/ option(level)	
END

INCLUDE ifin

PROGRAM command
BEGIN
	put "lnskew0 "
	INCLUDE _exp_vareq_pr
	INCLUDE _ifin_pr
	beginoptions
		optionarg /hidedefault main.en_delta
		optionarg /hidedefault main.en_zero
		optionarg main.sp_level
	endoptions
END