bitest.dlg

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

/*
	bitest

*!  VERSION 1.0.1  02apr2005

*/

VERSION 8.0

INCLUDE _std_medium
INCLUDE header
HELP hlp1, view("help bitest")
RESET res1

DEFINE txtwid  130
DEFINE txtsep +135

DIALOG main, label("bitest - Binomial probability test") tabtitle("Main")
BEGIN
  TEXT     tx_var        _lft     _top   txtwid        ., right /*
		*/ label("Name of (0/1) variable:")
  VARNAME  vn_var      txtsep        @    _vnwd        .,	/*
		*/ label("0/1 variable name")

  TEXT     tx_prob       _lft      _ls   txtwid        ., right /*
		*/ label("Probability of success:")
  EDIT     ed_prob     txtsep        @   _en7wd        .,	/*
		*/ numonly default(literal "0.5")		/*
		*/ label("Probability of success")
END

INCLUDE byifin
INCLUDE weights_f

DIALOG adv, label("bitesti - Binomial prob. test") tabtitle("Advanced")
BEGIN
  CHECKBOX ck_detail     _lft      _top    _iwd        ., /*
		*/ option(detail)			  /*
                */ label("Show additional details")
END


PROGRAM command
BEGIN
	INCLUDE _by_pr
	put "bitest "
	varlist main.vn_var
	put " == "
	put main.ed_prob
	INCLUDE _weights_pr
	INCLUDE _ifin_pr
	beginoptions
		option adv.ck_detail
	endoptions
END