use "C:\phuzics01.dta", clear
drop if yr~=70 
gsort -Y 
gen Yratio=Y/Y[11] 
drop if Y<Y[10] 
gen a=log(Yratio) 
egen b=sum(a) 
scalar alpha=(b/10)^(-1) 
scalar list