Skip to content

Commit db36524

Browse files
github-actions[bot]dlfivefiftyMikaelSlevinsky
authored
CompatHelper: bump compat for "HypergeometricFunctions" to "0.3" (#137)
* CompatHelper: bump compat for "HypergeometricFunctions" to "0.3" * test alternate without dual numbers? * revert change * Ok epsilon, you win Co-authored-by: github-actions[bot] <41898282+github-actions[bot]@users.noreply.github.com> Co-authored-by: Sheehan Olver <solver@mac.com> Co-authored-by: Mikael Slevinsky <Richard.Slevinsky@umanitoba.ca>
1 parent ede9784 commit db36524

File tree

4 files changed

+6
-5
lines changed

4 files changed

+6
-5
lines changed

Project.toml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -26,7 +26,7 @@ ApproxFunSingularities = "0.1.6"
2626
BandedMatrices = "0.14.2, 0.15"
2727
DomainSets = "0.1, 0.2, 0.3"
2828
DualNumbers = "0.6"
29-
HypergeometricFunctions = "0.1, 0.2"
29+
HypergeometricFunctions = "0.1, 0.2, 0.3"
3030
LowRankApprox = "0.4"
3131
SpecialFunctions = "0.7, 0.8, 0.9, 0.10"
3232
julia = "1.3"

src/.DS_Store

-6 KB
Binary file not shown.

src/stieltjesmoment.jl

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -30,11 +30,12 @@ function logjacobimoment(α::Real,β::Real,n::Int,z)
3030
if n == 0
3131
2normalization(0,α,β)*(log(z-1)-dualpart(_₂F₁(dual(zero(α)+eps+β),one(β)),α+1+β+2,x)))
3232
# For testing purposes only, should be equivalent to above within radius of convergence
33-
#2normalization(0,α,β)*(log(z-1)-(α+1)/(α+β+2)*x.*_₃F₂(α+2,α+β+3,x))
33+
# 2normalization(0,α,β)*(log(z-1)-(α+1)/(α+β+2)*x*_₃F₂(α+2,α+β+3,x))
3434
else
3535
-2normalization(n,α,β)/n*(-x)^n*_₂F₁(n,n+α+1,2n+α+β+2,x)
3636
end
3737
end
38+
3839
logjacobimoment::Real::Real,z) = logjacobimoment(α,β,0,z)
3940

4041

@@ -43,7 +44,7 @@ function logabsjacobimoment(α::Real,β::Real,n::Int,z)
4344
if n == 0
4445
2normalization(0,α,β)*(logabs(z-1)-real(dualpart(_₂F₁(dual(zero(α)+eps+β),one(β)),α+1+β+2,x))))
4546
# For testing purposes only, should be equivalent to above within radius of convergence
46-
#2normalization(0,α,β)*(log(z-1)-(α+1)/(α+β+2)*x.*_₃F₂(α+2,α+β+3,x))
47+
# 2normalization(0,α,β)*(logabs(z-1)-real((α+1)/(α+β+2)*x*_₃F₂(α+2,α+β+3,x)))
4748
else
4849
-2normalization(n,α,β)/n*real((-x)^n*_₂F₁(n,n+α+1,2n+α+β+2,x))
4950
end

test/logkerneltest.jl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -36,7 +36,7 @@ import SingularIntegralEquations: testsies, testsieeval, stieltjesmoment, Direct
3636
@test (H*f)(3.5+0.5im) logkernel(f,3.5+0.5im)
3737
end
3838

39-
@testset "Circle" begin
39+
@testset "Circle" begin
4040
d=Circle(0.2,3.0)
4141
S=Fourier(d)
4242
ζ=Fun(d)
@@ -52,7 +52,7 @@ import SingularIntegralEquations: testsies, testsieeval, stieltjesmoment, Direct
5252
z=0.2+3im;@test (H*f)(z) logkernel(f,z)
5353
end
5454

55-
@testset "Legendre and Jacobi on intervel" begin
55+
@testset "Legendre and Jacobi on interval" begin
5656
x=Fun()
5757
f=exp(x)
5858

0 commit comments

Comments
 (0)