@@ -513,7 +513,6 @@ function solve_laplace(Q::Polynomial{N, T}) where {N, T}
513513 @assert is_homogeneous (Q) " source term `Q` must be a homogeneous polynomial"
514514 n = degree (Q)
515515 γ = (k, p) -> 2 * (k + 1 ) * (2 k + 2 p + N) # γₖᵖ
516- # Note: convert to big for the intermediate computations, then back to T at the end
517516 cₖ = big (1 ) // γ (0 , n) # c₀
518517 P = cₖ * multiply_by_r (deepcopy (Q), 2 )
519518 ΔᵏQ = deepcopy (Q)
@@ -524,7 +523,7 @@ function solve_laplace(Q::Polynomial{N, T}) where {N, T}
524523 ΔP = cₖ * (multiply_by_r (ΔᵏQ, 2 k + 2 ))
525524 P = P + ΔP
526525 end
527- return convert_coefs (P, T)
526+ return P
528527end
529528
530529"""
@@ -563,7 +562,7 @@ function solve_anisotropic_laplace(A::AbstractMatrix{T}, Q::Polynomial{N, T}) wh
563562 ΔP = cₖ * (multiply_by_anisotropic_r (A, ΔᵏQ, 2 k + 2 ))
564563 P = P + ΔP
565564 end
566- return convert_coefs (P, T)
565+ return P
567566end
568567
569568"""
@@ -633,7 +632,7 @@ function solve_anisotropic_advect(β::AbstractVector, Q::Polynomial{N, T}) where
633632 betagradellq = sum (β[i] * gradient (betagradellq)[i] for i in 1 : N)
634633 P = P + cₗ * multiply_by_anisotropic_β_r (β, betagradellq, l + 1 )
635634 end
636- return (1 / β2) * convert_coefs (P, T)
635+ return (1 / β2) * P
637636end
638637
639638"""
0 commit comments