Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
|
|
@ -0,0 +1,11 @@
|
|||
# Bailey, 1988
|
||||
def bailey($n; $eps):
|
||||
pow(2; $n) as $n2
|
||||
| {a :1, b: 0, h: 1, r: 1, k: 1}
|
||||
| until( (.b - .a)|fabs <= $eps;
|
||||
.k += 1
|
||||
| .r *= ($n2 / .k)
|
||||
| .h += (1.0 / .k)
|
||||
| .b = .a
|
||||
| .a += (.r * .h) )
|
||||
| (.a * $n2 / ($n2|exp) ) - ($n * (2|log)) ;
|
||||
Loading…
Add table
Add a link
Reference in a new issue