quadchk.dlg

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

/*
 	quadchk	

	VERSION 1.0.0  21dec2002

*/

VERSION 8.0

INCLUDE _std_medium
INCLUDE header

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

DIALOG main, label("quadchk - Check sensitivity of quadrature approx.") /*
		*/ tabtitle("Main")
BEGIN
  RADIO    rb_default   _lft        _top       _iwd       .,		/*
		*/ first						/*
		*/ clickon("script quadoff")				/*
		*/ label("Default quadrature points (n-4, n+4)")
  RADIO    rb_specify   _lft         _ms       _iwd       .,		/*
		*/ last							/*
		*/ clickon("script quadon")				/*
		*/ label("Specify 1 or 2 quadrature points:")
  EDIT     en_quad1 _indent2         _ss     _en7wd       .,		/*
		*/ label("Specify 1 or 2 quadrature points") 		/*
		*/ numonly
  EDIT     en_quad2  _en7sep           @     _en7wd       .,		/*
		*/ label("Specify 2nd quadrature point") 		/*
		*/ numonly
  CHECKBOX ck_noout     _lft        _xls       _iwd       .,		/*
		*/ option("nooutput")					/*
		*/ label("Suppress all output")
END

SCRIPT quadon
BEGIN
  main.en_quad1.enable
  main.en_quad2.enable
END

SCRIPT quadoff
BEGIN
  main.en_quad1.disable
  main.en_quad2.disable
END

PROGRAM command
BEGIN
	put "quadchk "
	if main.rb_specify {
		require main.en_quad1
		put main.en_quad1 " " main.en_quad2
	}
	beginoptions
		option main.ck_noout
	endoptions
END