serrbar_98.dlg

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

/*
serrbar
  ** Special version for Windows95/98

*!  VERSION 1.1.0  10mar2005

*/

VERSION 9.0

INCLUDE graph_header
INCLUDE header

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

DIALOG main,label("serrbar - Graph standard error bar chart")	///
	tabtitle("Main")
BEGIN
  TEXT     tx_mvar        _lft      _top       _iwd	  .,	///
	label("Means variable:")
  VARNAME  vn_mvar        @         _ss        _vnwd 	  .,	///
	label("Means variable")

  TEXT     tx_svar        @         _ls        _iwd       .,	///
	label("Standard deviations/error variable:")
  VARNAME  vn_svar        @         _ss        _vnwd      .,	///
	label("Standard deviations/error variable")

  TEXT     tx_xvar        @         _ls        _iwd       .,	///
	label("X variable:")
  VARNAME  vn_xvar        @         _ss        _vnwd      .,	///
	label("X variable")

  GROUPBOX gb_opts        @         _ls        _cwd1      _ht2,	///
	label("Options")
  EDIT     ed_scale       _ilft     _ss        _en7wd     .,	///
	label("Scale length of the graph bars")			///
	numonly  default(1) option(scale)
  TEXT     tx_scale       _en7sep    @          _en7r2b   .,	///
	label("Scale length of the graph bars")
END

INCLUDE ifin
INCLUDE p1_opts
INCLUDE p2_opts
INCLUDE addplot
INCLUDE gr_twoway_98

SCRIPT PREINIT
BEGIN
	script p1_opts_createAsRange
	script p1_opts_setDefaultRcap
	script p2_opts_createAsNoRange
	script p2_opts_setDefaultScatter
END

SCRIPT POSTINIT
BEGIN
	p1_opts.settabtitle "Error bars"
	p2_opts.settabtitle "Plotted points"
END

PROGRAM command
BEGIN
	put "serrbar "
	varlist main.vn_mvar
        varlist main.vn_svar
	varlist main.vn_xvar
	INCLUDE _ifin_pr
	beginoptions
		optionarg /hidedefault main.ed_scale
		put " " /program p1_opts_output
		put " " /program p2_opts_mv_output
		put " " /program addplot_output
		put " " /program gr_twoway_output
	endoptions
END