*! version 1.0.2   PJG 9/19/92  STB-9: sbe7
program define hbolic
version 3.0

if "`2'"=="" {
     di in red "Please type hbolic depvar indepvar"
     exit 198
}
capture drop Xo
capture drop Yo
capture drop Co
capture drop Yhat
capture drop resids

tempvar `xy'
gen `xy'=`2'*`1'
qui reg `xy' `1' `2'
gen Xo=_b[`1']
gen Yo=_b[`2']
gen Co=_b[_cons] + Xo*Yo
la var Xo"Constant for independent var"
la var Yo"Constant for dependent var"
la var Co"Constant for equation"
drop `xy'
gen Yhat=Co/(`2'-Xo)+Yo
la var Yhat"Hyperbol. least sqs. line, Yhat"
gen resids=Yhat-`1'
la var resids"Residuals, Yhat-Yi"
capture erase gph1.gph
capture erase gph2.gph
gr `1' Yhat `2', c(.s) s(Ti) border sort saving(gph1)
gr resids Yhat, yline(0) border sort saving(gph2)
format Yhat %8.2f
format Xo %8.2f
format Yo %8.2f
format Co %8.2f
* !cls		/* not portable to Unix systems */
describe
more
* !cls		/* not portable to Unix systems */
set more 1
list Yhat `1' `2' Xo Yo Co
di
di
di in red "To see graphs again type: gr using gph# [gph#]"
end