_fracpp.ado

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

*! version 2.0.0 18nov1997
program define _fracpp, rclass 
* touched by kth
/* parse powers, sort if necessary, store results */
	version 4.0
	local p `1'
	local powers "`2'"
	local tosort "`3'"
	local toone "`4'"
	parse "`powers'", parse(" ,")
	local np 0
	local lastp -1e10
	local unsortd 0	/* flag for powers enter sorted or not	*/
	local one 0	/* flag for powers contain 1 or not	*/
	while "`1'"!="" {
		if "`1'" == "," { mac shift }
		confirm number `1'
		if `1'==1 { local one 1 }
		local np = `np'+1
		local p`np' `1'
		if `1'<`lastp' { local unsortd 1 }
		local lastp `1'
		mac shift
	}
	if `toone' & !`one' {
		local np = `np'+1
		local p`np' 1
		local unsortd 1
	}
	if `np'>_N {
		di in blue "need more space, increasing no. of obs. to " `np'
		set obs `np'
	}
	local i 1
	while `i'<=`np' {
		qui replace `p' = `p`i'' in `i'
		local i=`i'+1
	}
	if `np'>0 {
		if `tosort' { sort `p' }
		loc pwrs = `p'[1]
		loc i 1
		while `i'<`np' {
			loc i = `i'+1
			loc pj = `p'[`i']
			loc pwrs "`pwrs',`pj'"
		}
	}
	ret scalar np = `np'
	ret scalar unsorted = `unsortd' /* flag for whether sorted */
	ret local powers "`pwrs'"  /* comma-delimited powers  */
end