Fix GLHighPrecision error

Signed-off-by: ErikQQY <2283984853@qq.com>
SciFracX · Mar 23, 2024 · e79f6ce · e79f6ce
1 parent 405d7c8
commit e79f6ce
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Derivative/GL.jl b/src/Derivative/GL.jl
@@ -214,7 +214,7 @@ function fracdiff(f::Union{Function, Number, Vector},
                   α::T,
                   t,
                   alg::GLHighPrecision) where {T <: Real}
-    p = @unpack p = alg
+    @unpack p = alg
     if isa(f, Function)
         y=f.(t)
     elseif isa(f, Vector)

diff --git a/test/Derivative.jl b/test/Derivative.jl
@@ -43,7 +43,7 @@ end
 @testset "Test Grunwald-Letnikov Fractional Derivative" begin
     @test isapprox(fracdiff(x->x, 0.5, 0, 0.5, GLDirect())[1], 0.7978845583186518; atol = 1e-5)
     @test isapprox(fracdiff(x->x^5, 0.5, 0, 3.2, GLDirect())[1], 4.300306216488329e2; atol = 1e-5)
-    @test isapprox(fracdiff(x->x, 0.5, collect(0:0.01:1), 2, GLHighPrecision())[end], 2/sqrt(pi); atol = 1e-4)
+    @test isapprox(fracdiff(x->x, 0.5, collect(0:0.01:1), GLHighPrecision())[end], 2/sqrt(pi); atol = 1e-4)
 end
 
 @testset "Test GL_Multiplicative_Additive()" begin