@@ -52,7 +52,7 @@ for a0, b0 >= 8
52
52
function stirling_corr (a0:: Float64 , b0:: Float64 )
53
53
a = min (a0, b0)
54
54
b = max (a0, b0)
55
- @assert a >= 8
55
+ @assert a >= 8.0
56
56
57
57
h = a/ b
58
58
c = h/ (1.0 + h)
@@ -190,8 +190,8 @@ See also: [`beta_inc`](@ref)
190
190
`BFRAC(A,B,X,Y,LAMBDA,EPS)` from Didonato and Morris (1982)
191
191
"""
192
192
function beta_inc_cont_fraction (a:: Float64 , b:: Float64 , x:: Float64 , y:: Float64 , lambda:: Float64 , epps:: Float64 )
193
- @assert a > 1
194
- @assert b > 1
193
+ @assert a > 1.0
194
+ @assert b > 1.0
195
195
ans = beta_integrand (a,b,x,y)
196
196
if ans == 0.0
197
197
return 0.0
@@ -258,8 +258,8 @@ See also: [`beta_inc`](@ref)
258
258
`BASYM(A,B,LAMBDA,EPS)` from Didonato and Morris (1982)
259
259
"""
260
260
function beta_inc_asymptotic_symmetric (a:: Float64 , b:: Float64 , lambda:: Float64 , epps:: Float64 )
261
- @assert a >= 15
262
- @assert b >= 15
261
+ @assert a >= 15.0
262
+ @assert b >= 15.0
263
263
a0 = zeros (22 )
264
264
b0 = zeros (22 )
265
265
c = zeros (22 )
@@ -356,8 +356,8 @@ External links: [DLMF](https://dlmf.nist.gov/8.17.22), [Wikipedia](https://en.wi
356
356
See also: [`beta_inc`](@ref)
357
357
"""
358
358
function beta_inc_asymptotic_asymmetric (a:: Float64 , b:: Float64 , x:: Float64 , y:: Float64 , w:: Float64 , epps:: Float64 )
359
- @assert a >= 15
360
- @assert b <= 1
359
+ @assert a >= 15.0
360
+ @assert b <= 1.0
361
361
c = zeros (31 )
362
362
d = zeros (31 )
363
363
bm1 = b - 1.0
@@ -521,7 +521,7 @@ See also: [`beta_inc`](@ref)
521
521
`BPSER(A,B,X,EPS)` from Didonato and Morris (1982)
522
522
"""
523
523
function beta_inc_power_series (a:: Float64 , b:: Float64 , x:: Float64 , epps:: Float64 )
524
- @assert b <= 1 || b* x <= 0.7
524
+ @assert b <= 1.0 || b* x <= 0.7
525
525
ans = 0.0
526
526
if x == 0.0
527
527
return 0.0
@@ -691,7 +691,7 @@ function beta_inc_diff(a::Float64, b::Float64, x::Float64, y::Float64, n::Intege
691
691
end
692
692
693
693
kp1 = k + 1
694
- for i = kp1: nm1
694
+ for i in kp1: nm1
695
695
l = i - 1
696
696
d *= ((apb + l)/ (ap1 + l))* x
697
697
w += d
0 commit comments