force conversion back from big

Author: maltezfaria

Project.toml

@@ -1,7 +1,7 @@
 name = "ElementaryPDESolutions"
 uuid = "88a69b33-da0f-4502-8c8c-d680cf4d883b"
 authors = ["Thomas G. Anderson", "Luiz M. Faria"]
-version = "0.3.0"
+version = "0.3.1"
 
 [deps]
 LinearAlgebra = "37e2e46d-f89d-539d-b4ee-838fcccc9c8e"

src/ElementaryPDESolutions.jl

@@ -39,6 +39,10 @@ struct Polynomial{N, T}
     order2coeff::Dict{NTuple{N, Int}, T}
 end
 
+function order2coeff(p::Polynomial{N, T}) where {N, T}
+    return p.order2coeff
+end
+
 # empty constructor
 Polynomial{N, T}() where {N, T} = Polynomial{N, T}(Dict{NTuple{N, Int}, T}())
 
@@ -509,6 +513,7 @@ function solve_laplace(Q::Polynomial{N, T}) where {N, T}
     @assert is_homogeneous(Q) "source term `Q` must be a homogeneous polynomial"
     n = degree(Q)
     γ = (k, p) -> 2 * (k + 1) * (2k + 2p + N) # γₖᵖ
+    # Note: convert to big for the intermediate computations, then back to T at the end
     cₖ = big(1) // γ(0, n) # c₀
     P = cₖ * multiply_by_r(deepcopy(Q), 2)
     ΔᵏQ = deepcopy(Q)
@@ -519,7 +524,7 @@ function solve_laplace(Q::Polynomial{N, T}) where {N, T}
         ΔP = cₖ * (multiply_by_r(ΔᵏQ, 2k + 2))
         P = P + ΔP
     end
-    return P
+    return convert_coefs(P, T)
 end
 
 """
@@ -558,7 +563,7 @@ function solve_anisotropic_laplace(A::AbstractMatrix{T}, Q::Polynomial{N, T}) wh
         ΔP = cₖ * (multiply_by_anisotropic_r(A, ΔᵏQ, 2k + 2))
         P = P + ΔP
     end
-    return P
+    return convert_coefs(P, T)
 end
 
 """
@@ -628,7 +633,7 @@ function solve_anisotropic_advect(β::AbstractVector, Q::Polynomial{N, T}) where
         betagradellq = sum(β[i] * gradient(betagradellq)[i] for i in 1:N)
         P = P + cₗ * multiply_by_anisotropic_β_r(β, betagradellq, l + 1)
     end
-    return (1 / β2) * P
+    return (1 / β2) * convert_coefs(P, T)
 end
 
 """