Setup initial file structure
This commit is contained in:
17
Modules/ado/plus/p/polyser_ll.ado
Normal file
17
Modules/ado/plus/p/polyser_ll.ado
Normal file
@ -0,0 +1,17 @@
|
||||
program define polyser_ll
|
||||
version 8.1
|
||||
|
||||
args lf rho
|
||||
|
||||
#delimit ;
|
||||
qui replace `lf' =
|
||||
ln(
|
||||
(
|
||||
norm( (__POLY2hi - `rho'*$ML_y1)/sqrt(1-`rho'*`rho') ) -
|
||||
norm( (__POLY2lo - `rho'*$ML_y1)/sqrt(1-`rho'*`rho') )
|
||||
) * normden($ML_y1)
|
||||
)
|
||||
;
|
||||
#delimit cr
|
||||
|
||||
end
|
Reference in New Issue
Block a user