add old ctderivative

Project.toml

@@ -1,7 +1,7 @@
 name = "CTBase"
 uuid = "54762871-cc72-4466-b8e8-f6c8b58076cd"
 authors = ["Olivier Cots <[email protected]>"]
-version = "0.10.0"
+version = "0.10.1"
 
 [deps]
 DataStructures = "864edb3b-99cc-5e75-8d2d-829cb0a9cfe8"

src/utils.jl

@@ -78,6 +78,10 @@ function ctgradient(f::Function, x::ctNumber; backend=__get_AD_backend())
     return derivative(f, backend, x, extras)
 end
 
+function __ctgradient(f::Function, x::ctNumber)
+    return ForwardDiff.derivative(x -> f(x), x)
+end
+
 """
 $(TYPEDSIGNATURES)
 
@@ -88,13 +92,19 @@ function ctgradient(f::Function, x; backend=__get_AD_backend())
     return gradient(f, backend, x, extras)
 end
 
+function __ctgradient(f::Function, x)
+    return ForwardDiff.gradient(f, x)
+end
+
 """
 $(TYPEDSIGNATURES)
 
 Return the gradient of `X` at `x`.
 """
 ctgradient(X::VectorField, x) = ctgradient(X.f, x)
 
+__ctgradient(X::VectorField, x) = __ctgradient(X.f, x)
+
 """
 $(TYPEDSIGNATURES)
 
@@ -107,6 +117,10 @@ function ctjacobian(f::Function, x::ctNumber; backend=__get_AD_backend())
     return [der;;]
 end
 
+function __ctjacobian(f::Function, x::ctNumber) 
+    return ForwardDiff.jacobian(x -> f(x[1]), [x])
+end
+
 """
 $(TYPEDSIGNATURES)
 
@@ -117,13 +131,17 @@ function ctjacobian(f::Function, x; backend=__get_AD_backend())
     return jacobian(f, backend, x, extras)
 end
 
+__ctjacobian(f::Function, x) = ForwardDiff.jacobian(f, x)
+
 """
 $(TYPEDSIGNATURES)
 
 Return the Jacobian of `X` at `x`.
 """
 ctjacobian(X::VectorField, x) = ctjacobian(X.f, x)
 
+__ctjacobian(X::VectorField, x) = __ctjacobian(X.f, x)
+
 """
 $(TYPEDSIGNATURES)