stcurve.dlg

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

                put "=" main.en_atc24 " "
        }
	if main.vn_atc21 | main.vn_atc22 | main.vn_atc23 | main.vn_atc24 | ///
	   main.en_atc21 | main.en_atc22 | main.en_atc23 | main.en_atc24 {
        	put   ")"
	}
END

PROGRAM prog_curve_3
BEGIN
	if main.vn_atc31 | main.vn_atc32 | main.vn_atc33 | main.vn_atc34 | ///
	   main.en_atc31 | main.en_atc32 | main.en_atc33 | main.en_atc34 {
		call script curve_3
        	put  "at3(" " "
	}
        if main.vn_atc31 {
                call script curve_3
                require main.en_atc31
                put main.vn_atc31
        }
        if main.en_atc31 {
                call script curve_3
                require main.vn_atc31
                put "=" main.en_atc31 " "
        }
        if main.vn_atc32 {
                call script curve_3
                require main.en_atc32
                put  main.vn_atc32
        }
        if main.en_atc32 {
                call script curve_3
                require main.vn_atc32
                put "=" main.en_atc32  " "
        }
        if main.vn_atc33 {
                call script curve_3
                require main.en_atc33
                put  main.vn_atc33
        }
        if main.en_atc33 {
                call script curve_3
                require main.vn_atc33
                put "=" main.en_atc33 " "
        }
        if main.vn_atc34 {
                call script curve_3
                require main.en_atc34
                put   main.vn_atc34
        }
        if main.en_atc34 {
                call script curve_3
                require main.vn_atc34
                put "=" main.en_atc34 " "
        }
	if main.vn_atc31 | main.vn_atc32 | main.vn_atc33 | main.vn_atc34 | ///
	   main.en_atc31 | main.en_atc32 | main.en_atc33 | main.en_atc34 {
        	put  ")"

	}
END

PROGRAM prog_curve_4
BEGIN
	if main.vn_atc41 | main.vn_atc42 | main.vn_atc43 | main.vn_atc44 | ///
	   main.en_atc41 | main.en_atc42 | main.en_atc43 | main.en_atc44 {
		call script curve_4
        	put  "at4(" " "
	}
        if main.vn_atc41 {
                call script curve_4
                require main.en_atc41
                put main.vn_atc41
        }
        if main.en_atc41 {
                call script curve_4
                require main.vn_atc41
                put "=" main.en_atc41 " "
        }
        if main.vn_atc42 {
                call script curve_4
                require main.en_atc42
                put  main.vn_atc42
        }
        if main.en_atc42 {
                call script curve_4
                require main.vn_atc42
                put "=" main.en_atc42 " "
        }
        if main.vn_atc43 {
                call script curve_4
                require main.en_atc43
                put  main.vn_atc43
        }
        if main.en_atc43 {
                call script curve_4
                require main.vn_atc43
                put "=" main.en_atc43 " "
        }
        if main.vn_atc44 {
                call script curve_4
                require main.en_atc44
                put   main.vn_atc44
        }
        if main.en_atc44 {
                call script curve_4
                require main.vn_atc44
                put "=" main.en_atc44 " "
        }
	if main.vn_atc41 | main.vn_atc42 | main.vn_atc43 | main.vn_atc44 | ///
	   main.en_atc41 | main.en_atc42 | main.en_atc43 | main.en_atc44 {
		call script curve_4
        	put  ")"
	}
END


PROGRAM prog_curve_5
BEGIN
	if main.vn_atc51 | main.vn_atc52 | main.vn_atc53 | main.vn_atc54 | ///
	   main.en_atc51 | main.en_atc52 | main.en_atc53 | main.en_atc54 {
		call script curve_5
        	put  "at5(" " "
	}
        if main.vn_atc51 {
                call script curve_5
                require main.en_atc51
                put main.vn_atc51
        }
        if main.en_atc51 {
                call script curve_5
                require main.vn_atc51
                put "=" main.en_atc51 " "
        }
        if main.vn_atc52 {
                call script curve_5
                require main.en_atc52
                put  main.vn_atc52
        }
        if main.en_atc52 {
                call script curve_5
                require main.vn_atc52
                put "=" main.en_atc52  " "
        }
        if main.vn_atc53 {
                call script curve_5
                require main.en_atc53
                put  main.vn_atc53
        }
        if main.en_atc53 {
                call script curve_5
                require main.vn_atc53
                put "=" main.en_atc53 " "
        }
        if main.vn_atc54 {
                call script curve_5
                require main.en_atc54
                put  main.vn_atc54
        }
        if main.en_atc54 {
                call script curve_5
                require main.vn_atc54
                put "=" main.en_atc54 " "
        }
	if main.vn_atc51 | main.vn_atc52 | main.vn_atc53 | main.vn_atc54 | ///
	   main.en_atc51 | main.en_atc52 | main.en_atc53 | main.en_atc54 {
        	put  ")"
	}
END


PROGRAM prog_curve_6
BEGIN
	if main.vn_atc61 | main.vn_atc62 | main.vn_atc63 | main.vn_atc64 | ///
	   main.en_atc61 | main.en_atc62 | main.en_atc63 | main.en_atc64 {
		call script curve_6
        	put  "at6(" " "
	}
        if main.vn_atc61 {
                call script curve_6
                require main.en_atc61
                put main.vn_atc61
        }
        if main.en_atc61 {
                call script curve_6
                require main.vn_atc61
                put "=" main.en_atc61 " "
        }
        if main.vn_atc62 {
                call script curve_6
                require main.en_atc62
                put  main.vn_atc62
        }
        if main.en_atc62 {
                call script curve_6
                require main.vn_atc62
                put "=" main.en_atc62 " "
        }
        if main.vn_atc63 {
                call script curve_6
                require main.en_atc63
                put  main.vn_atc63
        }
        if main.en_atc63 {
                call script curve_6
                require main.vn_atc63
                put "=" main.en_atc63 " "
        }
        if main.vn_atc64 {
                call script curve_6
                require main.en_atc64
                put   main.vn_atc64
        }
        if main.en_atc64 {
                call script curve_6
                require main.vn_atc64
                put "=" main.en_atc64 " "
        }
	if main.vn_atc61 | main.vn_atc62 | main.vn_atc63 | main.vn_atc64 | ///
	   main.en_atc61 | main.en_atc62 | main.en_atc63 | main.en_atc64 {
        	put   ")"
	}
END

PROGRAM prog_curve_7
BEGIN
	if main.vn_atc71 | main.vn_atc72 | main.vn_atc73 | main.vn_atc74 | ///
	   main.en_atc71 | main.en_atc72 | main.en_atc73 | main.en_atc74 {
	call script curve_7
        	put "at7(" " "
	}
        if main.vn_atc71 {
                call script curve_7
                require main.en_atc71
                put main.vn_atc71
        }
        if main.en_atc71 {
                call script curve_7
                require main.vn_atc71
                put "=" main.en_atc71 " "
        }
        if main.vn_atc72 {
                call script curve_7
                require main.en_atc72
                put  main.vn_atc72
        }
        if main.en_atc72 {
                call script curve_7
                require main.vn_atc72
                put "=" main.en_atc72  " "
        }
        if main.vn_atc73 {
                call script curve_7
                require main.en_atc73
                put  main.vn_atc73
        }
        if main.en_atc73 {
                call script curve_7
                require main.vn_atc73
                put "=" main.en_atc73 " "
        }
        if main.vn_atc74 {
                call script curve_7
                require main.en_atc74
                put   main.vn_atc74
        }
        if main.en_atc74 {
                call script curve_7
                require main.vn_atc74
                put "=" main.en_atc74 " "
        }
	if main.vn_atc71 | main.vn_atc72 | main.vn_atc73 | main.vn_atc74 | ///
	   main.en_atc71 | main.en_atc72 | main.en_atc73 | main.en_atc74 {
        	put   ")"
	}
END

PROGRAM prog_curve_8
BEGIN
	if main.vn_atc81 | main.vn_atc82 | main.vn_atc83 | main.vn_atc84 | ///
	   main.en_atc81 | main.en_atc82 | main.en_atc83 | main.en_atc84 {
		call script curve_8
        	put  "at8(" " "
	}
        if main.vn_atc81 {
                call script curve_8
                require main.en_atc81
                put main.vn_atc81
        }
        if main.en_atc81 {
                call script curve_8
                require main.vn_atc81
                put "=" main.en_atc81 " "
        }
        if main.vn_atc82 {
                call script curve_8
                require main.en_atc82
                put  main.vn_atc81
        }
        if main.en_atc82 {
                call script curve_8
                require main.vn_atc82
                put "=" main.en_atc82 " "
        }
        if main.vn_atc83 {
                call script curve_8
                require main.en_atc83
                put  main.vn_atc83
        }
        if main.en_atc83 {
                call script curve_8
                require main.vn_atc83
                put "=" main.en_atc83 " "
        }
        if main.vn_atc84 {
                call script curve_8
                require main.en_atc84
                put   main.vn_atc84
        }
        if main.en_atc84 {
                call script curve_8
                require main.vn_atc84
                put "=" main.en_atc84 " "
        }
	if main.vn_atc81 | main.vn_atc82 | main.vn_atc83 | main.vn_atc84 | ///
	   main.en_atc81 | main.en_atc82 | main.en_atc83 | main.en_atc84 {
        	put  ")"
	}
END

PROGRAM prog_curve_9
BEGIN
	if main.vn_atc91 | main.vn_atc92 | main.vn_atc93 | main.vn_atc94 | ///
	   main.en_atc91 | main.en_atc92 | main.en_atc93 | main.en_atc94 {
		call script curve_9
        	put  "at9(" " "
	}
        if main.vn_atc91 {
                call script curve_9
                require main.en_atc91
                put main.vn_atc91
        }
        if main.en_atc91 {
                call script curve_9
                require main.vn_atc91
                put "=" main.en_atc91 " "
        }
        if main.vn_atc92 {
                call script curve_9
                require main.en_atc92
                put  main.vn_atc92
        }
        if main.en_atc92 {
                call script curve_9
                require main.vn_atc92
                put "=" main.en_atc92  " "
        }
        if main.vn_atc93 {
                call script curve_9
                require main.en_atc93
                put  main.vn_atc93
        }
        if main.en_atc93 {
                call script curve_9
                require main.vn_atc93
                put "=" main.en_atc93 " "
        }
        if main.vn_atc94 {
                call script curve_9
                require main.en_atc94
                put   main.vn_atc94
        }
        if main.en_atc94 {
                call script curve_9
                require main.vn_atc94
                put "=" main.en_atc94 " "
        }
	if main.vn_atc91 | main.vn_atc92 | main.vn_atc93 | main.vn_atc94 | ///
	   main.en_atc91 | main.en_atc92 | main.en_atc93 | main.en_atc94 {
		call script curve_9
        	put   ")"
	}
END

PROGRAM prog_curve_10
BEGIN
	if main.vn_atc101 | main.vn_atc102 | main.vn_atc103 | ///
	   main.vn_atc104 | ///
	   main.en_atc101 | main.en_atc102 | main.en_atc103 | main.en_atc104 {
		call script curve_10
        	put  "at10(" " "
	}
        if main.vn_atc101 {
                call script curve_10
                require main.en_atc101
                put main.vn_atc101
        }
        if main.en_atc101 {
                call script curve_10
                require main.vn_atc101
                put "=" main.en_atc101 " "
        }
        if main.vn_atc102 {
                call script curve_10
                require main.en_atc102
                put  main.vn_atc102
        }
        if main.en_atc102 {
                call script curve_10
                require main.vn_atc102
                put "=" main.en_atc102 " "
        }
        if main.vn_atc103 {
                call script curve_10
                require main.en_atc103
                put  main.vn_atc103
        }
        if main.en_atc103 {
                call script curve_10
                require main.vn_atc103
                put "=" main.en_atc103 " "
        }
        if main.vn_atc104 {
                call script curve_10
                require main.en_atc104
                put   main.vn_atc104
        }
        if main.en_atc104 {
                call script curve_10
                require main.vn_atc104
                put "=" main.en_atc104 " "
        }
	if main.vn_atc101 | main.vn_atc102 | main.vn_atc103 | ///
	   main.vn_atc104 | ///
	   main.en_atc101 | main.en_atc102 | main.en_atc103 | main.en_atc104 {
        	put ")"
	}
END

INCLUDE p1_opts
INCLUDE addplot
INCLUDE gr_twoway

SCRIPT PREINIT
BEGIN
	script p1_opts_createAsNoRange
	script p1_opts_setDefaultLine
END

SCRIPT reset_listbox
BEGIN
	main.lb_at.withvalue main.lb_at.setvalue "@"
END

PROGRAM command
BEGIN
	put "stcurve"
	beginoptions
	        option radio(main rb_cummu rb_survival rb_hazard)
                option radio(opt rb_defaul rb_alpha1 rb_uncondi)
                if opt.rb_range {
			require opt.en_start opt.en_end
                        put "range(" opt.en_start " "  opt.en_end ") "
                }
		if  main.rb_mulcurve {
			put /program prog_curve_1 " "
			put /program prog_curve_2 " "
			put /program prog_curve_3 " "
			put /program prog_curve_4 " "
			put /program prog_curve_5 " "
			put /program prog_curve_6 " "
			put /program prog_curve_7 " "
			put /program prog_curve_8 " "
			put /program prog_curve_9 " "
			put /program prog_curve_10 " "
		}
                if opt.ck_outfile {
                	require opt.fi_fn
			repfile opt.fi_fn
	                put " " "outfile("
			put `"""'
			put opt.fi_fn
			put `"""'
			put " , replace)"
                }
		if main.rb_hazard {
			if opt.ck_width {
				require opt.en_width
				optionarg opt.en_width
			}
			optionarg /hidedefault opt.cb_kernel
		}
		put " " /program p1_opts_output
		put " " /program addplot_output
		put " " /program gr_twoway_output
	endoptions
	call script reset_listbox
END