|
pro def polych_ll
|
|
version 8.1
|
|
|
|
args lf rho
|
|
|
|
#delimit ;
|
|
qui replace __POLYpi =
|
|
binorm(__POLY1hi,__POLY2hi,`rho') -
|
|
binorm(__POLY1lo,__POLY2hi,`rho') -
|
|
binorm(__POLY1hi,__POLY2lo,`rho') +
|
|
binorm(__POLY1lo,__POLY2lo,`rho')
|
|
;
|
|
#delimit cr
|
|
qui replace `lf' = ln( __POLYpi )
|
|
|
|
end
|