fracplot_98.dlg

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

/*
  fracplot_98

*!  VERSION 1.1.0  21mar2005

*/

VERSION 9.0

INCLUDE graph_header
INCLUDE header
HELP hlp1, view("help fracplot")
RESET res1

DIALOG main, tabtitle("Main")	///
	label("fracplot - Plots of fractional polynomial regression results")
BEGIN
  TEXT     tx_var    _lft      _top      _iwd      .,		///
	label("Covariate from the most recently fitted fractional polynomial: (optional)")
  VARNAME  vn_var    _lft      _ss       _vnwd     .,		///
	label("Covariate from the most recently fitted fractional polynomial")
END

INCLUDE ifin
INCLUDE p1_opts
INCLUDE line_opts
INCLUDE p2_opts
INCLUDE addplot
INCLUDE gr_twoway_98

SCRIPT PREINIT
BEGIN
	script p1_opts_createAsNoRange
	script p1_opts_setDefaultScatter
	script p2_opts_createAsRange
	script p2_opts_default_rscatter
END

SCRIPT POSTINIT
BEGIN
	script p2_opts_setTabtitleCi
	line_opts.settabtitle "Fitted line"
END

PROGRAM command
BEGIN
	put "fracplot "
	varlist [main.vn_var]
	INCLUDE _ifin_pr
	beginoptions
		put " " /program p1_opts_recast_output
		put " " /program line_opts_rlopts_output
		put " " /program p2_opts_ci_output
		put " " /program addplot_output
		put " " /program gr_twoway_output
	endoptions
END