plot1.idlg

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

	script plot1_mbands_show
	script plot1_line_setLayout_2
	script plot1_line_show
	script plot1_set_second_y_to_middle
	plot1.gb_generic.setlabel "Median-band"
END

SCRIPT plot1_do_mspline
BEGIN
	plot1_is_pc_type.setfalse
	plot1.tx_type.setlabel "Plot type: (Median-spline)"
	script plot1_common_show

	script plot1_x2_hide
	script plot1_y2_hide
	script plot1_hide_all

	script plot1_mbands_show
	script plot1_mpoints_show
	script plot1_line_setLayout_2
	script plot1_line_show
	script plot1_set_second_y_to_middle
	plot1.gb_generic.setlabel "Median-spline"
END

SCRIPT plot1_do_lowess
BEGIN
	plot1_is_pc_type.setfalse
	plot1.tx_type.setlabel "Plot type: (Lowess)"
	script plot1_common_show

	script plot1_x2_hide
	script plot1_y2_hide
	script plot1_hide_all

	script plot1_line_setLayout_3
	script plot1_line_show
	script plot1_lowess_show
	script plot1_set_second_y_to_middle
	plot1.gb_generic.setlabel "Lowess"
END

SCRIPT plot1_do_kdensity
BEGIN
	plot1_is_pc_type.setfalse
	plot1.tx_type.setlabel "Plot type: (Kernel density)"
	script plot1_common_show
	script plot1_x2_hide
	script plot1_y2_hide
	script plot1_hide_all

	plot1.tx_y.hide
	plot1.vn_y.hide

	script plot1_line_setLayout_3
	script plot1_line_show
	script plot1_kdensity_show
	script plot1_set_second_y_to_middle
	plot1.gb_generic.setlabel "Kernel density"
END

SCRIPT plot1_do_lfit
BEGIN
	plot1_is_pc_type.setfalse
	plot1.tx_type.setlabel "Plot type: (Linear prediction)"
	script plot1_common_show
	script plot1_x2_hide
	script plot1_y2_hide
	script plot1_hide_all

	script plot1_fit_setpos
	script plot1_fit_show
	script plot1_set_predpoints_lfit
	script plot1_line_setLayout_4
	script plot1_line_show
	plot1.gb_line.setlabel "Lines (fit plot)"
	script plot1_set_second_y_to_middle
	plot1.gb_fit.setlabel "Linear prediction"
END

SCRIPT plot1_do_qfit
BEGIN
	plot1_is_pc_type.setfalse
	plot1.tx_type.setlabel "Plot type: (Quadratic pred.)"
	script plot1_common_show
	script plot1_x2_hide
	script plot1_y2_hide
	script plot1_hide_all

	script plot1_fit_setpos
	script plot1_fit_show
	script plot1_set_predpoints_qfit
	script plot1_line_setLayout_4
	script plot1_line_show
	plot1.gb_line.setlabel "Lines (fit plot)"
	script plot1_set_second_y_to_middle
	plot1.gb_fit.setlabel "Quadratic prediction"
END

SCRIPT plot1_do_fpfit
BEGIN
	plot1_is_pc_type.setfalse
	plot1.tx_type.setlabel "Plot type: (Fractional poly.)"
	script plot1_common_show
	script plot1_x2_hide
	script plot1_y2_hide
	script plot1_hide_all

	script plot1_fit_setpos
	plot1.gb_fit.show
	plot1.tx_ecommand.show
	plot1.cb_ecommand.show
	plot1.tx_regress_opt.show
	plot1.ed_regress_opt.show
	plot1.tx_pred_opt.show
	plot1.ed_pred_opt.show

	script plot1_line_setLayout_4
	script plot1_line_show
	plot1.gb_line.setlabel "Lines (fit plot)"
	script plot1_set_second_y_to_middle
	plot1.gb_fit.setlabel "Fractional polynomial"
END

SCRIPT plot1_do_lfitci
BEGIN
	plot1_is_pc_type.setfalse
	plot1.tx_type.setlabel "Plot type: (Linear pred. w/ci)"
	script plot1_common_show

	script plot1_x2_hide
	script plot1_y2_hide
	script plot1_hide_all

	script plot1_fit_ci_setpos
	script plot1_fit_ci_show
	script plot1_set_predpoints_lfit
	script plot1_cb_fitplot_checkvalue
	script plot1_set_second_y_to_middle
	plot1.gb_fit.setlabel "Linear prediction w/ci"
END

SCRIPT plot1_do_qfitci
BEGIN
	plot1_is_pc_type.setfalse
	plot1.tx_type.setlabel "Plot type: (Quadratic pred. w/ci)"
	script plot1_common_show

	script plot1_x2_hide
	script plot1_y2_hide
	script plot1_hide_all

	script plot1_fit_ci_setpos
	script plot1_fit_ci_show
	script plot1_set_predpoints_qfit
	script plot1_cb_fitplot_checkvalue
	script plot1_set_second_y_to_middle
	plot1.gb_fit.setlabel "Quadratic prediction w/ci"
END

SCRIPT plot1_do_fpfitci
BEGIN
	plot1_is_pc_type.setfalse
	plot1.tx_type.setlabel "Plot type: (Fractional poly. w/ci)"
	script plot1_common_show
	script plot1_x2_hide
	script plot1_y2_hide
	script plot1_hide_all

	//---
	script plot1_fit_ci_setpos
	script plot1_fit_ci_show
	// override some of the settings used in the scripts above
	script plot1_fit_range_hide
	script plot1_fit_pred_hide
	plot1.tx_ci_src.hide
	plot1.cb_ci_src.hide
	plot1.tx_ecommand.show
	plot1.cb_ecommand.show
	plot1.tx_level.setposition 210 163 65 .
	plot1.sp_level.setposition 280 163 99 .
	//---

	script plot1_cb_fitplot_checkvalue

	script plot1_cb_fitplot_checkvalue
	plot1.gb_line.setlabel "Lines (fit plot)"
	script plot1_set_second_y_to_middle
	plot1.gb_fit.setlabel "Fractional polynomial w/ci"
END

SCRIPT plot1_do_histogram
BEGIN
	plot1_is_pc_type.setfalse
	plot1.tx_type.setlabel "Plot type: (Histogram)"
	script plot1_common_show
	script plot1_x2_hide
	script plot1_y2_hide
	script plot1_hide_all

	plot1.tx_y.hide
	plot1.vn_y.hide

	// set locations
	plot1.gb_generic.setposition		200 100 550 155
	plot1.gb_common.setposition		200 265 550 80
	plot1.tx_blcolor.setposition		210 285  65 .
	plot1.cb_blcolor.setposition		280 285  82 .
	plot1.cl_blcolor.setposition		365 285  .  .
	plot1.tx_bfcolor.setposition		210 315  65 .
	plot1.cb_bfcolor.setposition		280 315  82 .
	plot1.cl_bfcolor.setposition		365 315  .  .
	plot1.tx_blwidth.setposition		392 285  65 .
	plot1.cb_blwidth.setposition		462 285  99 .
	plot1.tx_orientation.setposition	392 315  65 .
	plot1.cb_orientation.setposition	462 315  99 .

	// show controls
	plot1.gb_generic.show
	plot1.tx_histtype.show
	plot1.cb_histtype.show
	plot1.gb_datatype.show
	plot1.rb_continuous.show
	plot1.rb_discrete.show
	plot1.sp_gap.show
	plot1.tx_gap.show
	plot1.ed_datamin.show
	plot1.tx_datamin.show
	program plot1_datatype_ckeck
	plot1.ck_width_of_bins.show
	plot1.ed_width_of_bins.show
	script plot1_common_area_opts_show
	plot1.tx_bfcolor.show
	plot1.cb_bfcolor.show
	plot1.cb_bfcolor.withvalue plot1.cb_bfcolor.setvalue "@"
	plot1.gb_common.setlabel "Bars"

	script plot1_set_second_y_to_middle
	plot1.gb_generic.setlabel "Histogram"
END

SCRIPT plot1_cb_fitplot_checkvalue
BEGIN
	plot1.cb_fitplot.withvalue plot1.cb_fitplot.setvalue "@"
END

SCRIPT plot1_cb_ciplot_checkvalue
BEGIN
	plot1.cb_ciplot.withvalue plot1.cb_ciplot.setvalue "@"
END

SCRIPT plot1_fitplot_line_show
BEGIN
	script plot1_scatter_opts_hide
	script plot1_line_setLayout_5
	script plot1_line_show
	plot1.gb_line.setlabel "Lines (fit plot)"
	script plot1_cb_ciplot_checkvalue
END

SCRIPT plot1_fitplot_scatter_show
BEGIN
	script plot1_line_opts_hide
	script plot1_scatter_setLayout_4
	script plot1_scatter_show
	plot1.gb_marker.setlabel "Markers (fit plot)"
	script plot1_cb_ciplot_checkvalue
END

SCRIPT plot1_fitplot_connected_show
BEGIN
	script plot1_scatter_opts_hide
	script plot1_line_opts_hide
	script plot1_line_setLayout_5
	script plot1_line_show
	plot1.gb_line.setlabel "Lines (fit plot)"
	script plot1_scatter_setLayout_5
	plot1.gb_marker.setlabel "Markers (fit plot)"
	plot1.gb_marker.show
	plot1.tx_msymbol.show
	plot1.cb_msymbol.show
	plot1.tx_mcolor.show
	plot1.cb_mcolor.show
	plot1.cb_mcolor.withvalue plot1.cb_mcolor.setvalue "@"
	plot1.tx_msize.show
	plot1.cb_msize.show
	script plot1_cb_ciplot_checkvalue
END

PROGRAM plot1_ciplot_rarea_on
BEGIN
	if !H(plot1.cb_ciplot) {
		call plot1.gb_common.setlabel "CI options (Range area)"
		call script plot1_common_ci_opts_setpos
		call script plot1_ciplot_rarea_show
	}
END
PROGRAM plot1_ciplot_rbar_on
BEGIN
	if !H(plot1.cb_ciplot) {
		call plot1.gb_common.setlabel "CI options (Range bar)"
		call script plot1_common_ci_opts_setpos
		call script plot1_ciplot_rarea_show

	}
END
PROGRAM plot1_ciplot_rspike_on
BEGIN
	if !H(plot1.cb_ciplot) {
		call plot1.gb_common.setlabel "CI options (Range spike)"
		call script plot1_common_ci_opts_setpos
		call script plot1_ciplot_rspike_show
	}
END
PROGRAM plot1_ciplot_rcap_on
BEGIN
	if !H(plot1.cb_ciplot) {
		call plot1.gb_common.setlabel "CI options (Range cap)"
		call script plot1_common_ci_opts_setpos
		call script plot1_ciplot_rspike_show
	}
END
PROGRAM plot1_ciplot_rline_on
BEGIN
	if !H(plot1.cb_ciplot) {
		call plot1.gb_common.setlabel "CI options (Range line)"
		call script plot1_common_ci_opts_setpos
		call script plot1_ciplot_rline_show
	}
END

SCRIPT plot1_disable
BEGIN
	script plot1_do_none
	plot1.tx_type.disable
	plot1.cb_type.disable
END

SCRIPT plot1_enable
BEGIN
	plot1.tx_type.enable
	plot1.cb_type.enable
	plot1.cb_type.withvalue plot1.cb_type.setvalue "@"
END

PROGRAM plot1_line_opts
BEGIN
	if !Hcc(plot1.cb_clcolor) {
		optionarg /hidedefault plot1.cb_clcolor
	}
	if Hcc(plot1.cb_clcolor) {
		optionarg /quoted plot1.cl_clcolor
	}
	optionarg plot1.cb_clpattern
	optionarg plot1.cb_clwidth
	optionarg plot1.cb_connect
END

PROGRAM plot1_scatter_opts
BEGIN
	optionarg plot1.cb_msymbol
	if !Hcc(plot1.cb_mcolor) {
		optionarg /hidedefault plot1.cb_mcolor
	}
	if Hcc(plot1.cb_mcolor) {
		optionarg /quoted plot1.cl_mcolor
	}
	if ! plot1_is_weights | ! plot1_uses_scatter_weights {
		optionarg plot1.cb_msize_wgt
		optionarg plot1.cb_msize

		if plot1.ck_mlabel {
			require plot1.vn_mlabel
			optionarg plot1.vn_mlabel
			optionarg plot1.cb_mlsize
			if !Hcc(plot1.cb_mlcolor) {
				optionarg /hidedefault plot1.cb_mlcolor
			}
			if Hcc(plot1.cb_mlcolor) {
				optionarg /quoted plot1.cl_mlcolor
			}
			optionarg plot1.cb_mlposition
		}
	}
END

/* Common opts for area, bar, spike, and dropline */
PROGRAM plot1_common_area_opts
BEGIN
	if !Hcc(plot1.cb_blcolor) {
		optionarg /hidedefault plot1.cb_blcolor
	}
	if Hcc(plot1.cb_blcolor) {
		optionarg /quoted plot1.cl_blcolor
	}
  	optionarg plot1.cb_blwidth
  	optionarg /hidedefault plot1.en_base

	put plot1.cb_orientation " "

	// bfcolor is used with area and bar
	if !Hcc(plot1.cb_bfcolor) {
		optionarg /hidedefault plot1.cb_bfcolor
	}
	if Hcc(plot1.cb_bfcolor) {
		optionarg /quoted plot1.cl_bfcolor
	}

	// blpattern is used with area
	optionarg plot1.cb_blpattern

	// barwidth is used with bar
	optionarg /hidedefault plot1.en_barwidth

END

PROGRAM plot1_plotoptions
BEGIN
	option plot1.ck_yaxis2
	option plot1.ck_xaxis2
	option plot1.ck_sort
	optionarg plot1.sp_mband
	optionarg plot1.sp_mpoints

  	option plot1.ck_mean
  	option plot1.ck_nowieght
  	option plot1.ck_logit
  	option plot1.ck_noadjust
  	optionarg /hidedefault plot1.ed_bandwidth

  	put plot1.cb_function
  	optionarg plot1.ed_kernelwidth
  	optionarg /hidedefault plot1.sp_kerneleval

	optionarg /hidedefault plot1.cb_ecommand
  	if plot1.ck_fitrange 	///
  		& ! ( D(plot1.ck_fitrange) | H(plot1.ck_fitrange) ) {
		put "range("
		put plot1.ed_fitfrom " "
		put plot1.ed_fitto
		put ") "
	}
	optionarg /hidedefault plot1.sp_predpoints
	option plot1.rb_predx
	put plot1.cb_ci_src " "
	optionarg /hidedefault plot1.sp_level
	optionarg plot1.ed_regress_opt
	optionarg plot1.ed_pred_opt
	optionarg /hidedefault plot1.cb_fitplot
	optionarg /hidedefault plot1.cb_ciplot

	put plot1.cb_histtype " "
	option plot1.rb_discrete
	optionarg /hidedefault plot1.sp_gap
	optionarg plot1.ed_datamin
	optionarg plot1.sp_num_of_bins
	optionarg plot1.ed_width_of_bins

	put /program plot1_line_opts " "
	put /program plot1_common_area_opts " "
	optionarg /hidedefault plot1.cb_barbsize
	put /program plot1_scatter_opts " "
	option plot1.ck_headlabel
END

PROGRAM plot1_common_output
BEGIN
	put plot1.cb_type " "
	if ! plot1_is_pc_type {
		require plot1.vn_x
		if plot1.vn_y.isvisible() {
			varlist plot1.vn_y
		}
		if plot1.vn_y2.isvisible() {
			varlist plot1.vn_y2
		}
		put plot1.vn_x " "
	}
	if plot1_is_pc_type {
		require plot1.vn_x
		varlist plot1.vn_y
		put " " plot1.vn_x
		require plot1.vn_x2
		varlist plot1.vn_y2
		put " " plot1.vn_x2
	}
	ifexp plot1.ex_if
	inrange plot1.sp_from plot1.sp_to
	if plot1_is_weights & plot1_uses_scatter_weights {
		require plot1.vn_weightvar
		put " " "[" plot1.cb_msize_wgt "="
		put plot1.vn_weightvar
		put "] "
	}
	beginoptions
		put /program plot1_plotoptions
	endoptions
END

PROGRAM plot1_output
BEGIN
	if plot1.cb_type & plot1.cb_type.isenabled() {
		put "("
		put /program plot1_common_output
		put ") "
	}
END