|
Stata有现成的命令,例子1如下:
capt prog drop seq3 //简短的程序seq3
program seq3
drop _all
rndbin 10 0.5 1
gen z=0
forvalues i=3/10{
replace z=1 if xb==xb[_n-1] & xb==xb[_n-2] in `i'
}
sum z
end
//模拟抽样,将均值存储到矩阵a中
matrix a=J(100,100,-1.000)
set more off
forvalues i=1/100{
forvalues j=1/100{
quietly simulate max=r(max), reps(1000) nodots:seq3
quietly sum
//di "r(mean): "`r(mean)'
matrix a[`i',`j']=(`r(mean)')
di %5.4g as text "matrix a: "a[`i',`j']
}
}
例子2
//逐行逐列的显示矩阵元素
matrix a=(1,0,1\2,1,0\-3,2,-5)
forvalues i=1/`=rowsof(a)'{
forvalues j=1/`=colsof(a)'{
local d=el(a,`i',`j')
di "`d'"
}
}
|