Inline the diagnostics into the testset scope (throwaway, #360)

Author: 1-Bort-1

test/solver/diag_forwarddiff.jl

@@ -2,6 +2,7 @@ using VortexStepMethod
 using DifferentiationInterface
 using LinearAlgebra
 using Test
+using ForwardDiff
 
 relative_error(jac, reference) = maximum(abs.(jac .- reference)) / maximum(abs, reference)
 
@@ -97,6 +98,45 @@ relative_error(jac, reference) = maximum(abs.(jac .- reference)) / maximum(abs,
 
         @info "POLAR_MATRICES jacobian norms" norm_fwd=norm(jac_fwd) norm_fd=norm(jac_fd)
         @test relative_error(jac_fd, jac_fwd) < 1e-4
-        include("diag_forwarddiff.jl")
+        println("DIAG cpu=", Sys.cpu_info()[1].model, " threads=", Threads.nthreads(),
+            " blas=", LinearAlgebra.BLAS.get_num_threads(), " os=", Sys.KERNEL)
+        println("DIAG table_hash=", hash([s.aero_data for s in ram_wing.unrefined_sections]))
+        colerr = [maximum(abs.(jac_fd[:, j] .- jac_fwd[:, j])) for j in axes(jac_fd, 2)]
+        println("DIAG colerr=", colerr)
+        println("DIAG argmax=", Tuple(argmax(abs.(jac_fd .- jac_fwd))))
+        println("DIAG fwd_minus_fd=", repr(jac_fwd .- jac_fd))
+        for rep in 1:3
+            jac_again, _, _ = VortexStepMethod.linearize(ram_solver, ram_body, y_op;
+                theta_idxs=1:4, va_vec_idxs=5:7, omega_idxs=8:10,
+                aero_coeffs=true, backend=AutoForwardDiff())
+            println("DIAG fwd_repeat$rep identical=", jac_again == jac_fwd,
+                " maxdiff=", maximum(abs.(jac_again .- jac_fwd)))
+        end
+        N = length(y_op)
+        TD = ForwardDiff.Dual{Nothing, Float64, N}
+        y_d = [TD(y_op[i], ForwardDiff.Partials(ntuple(j -> Float64(i == j), N))) for i in 1:N]
+        body_d, solver_d = VortexStepMethod.make_dual_shadow(ram_solver, ram_body, TD)
+        VortexStepMethod.unrefined_deform!(body_d, y_d[1:4], nothing)
+        VortexStepMethod.reinit!(body_d; init_aero=false)
+        set_va!(body_d, y_d[5:7], y_d[8:10])
+        solve!(solver_d, body_d; log=true)
+        body_f = BodyAerodynamics([ram_wing])
+        VortexStepMethod.unrefined_deform!(body_f, y_op[1:4], nothing)
+        VortexStepMethod.reinit!(body_f; init_aero=false)
+        set_va!(body_f, y_op[5:7], y_op[8:10])
+        solve!(ram_solver, body_f; log=true)
+        alpha_f = collect(ram_solver.lr.alpha_dist)
+        alpha_d = ForwardDiff.value.(collect(solver_d.lr.alpha_dist))
+        println("DIAG alpha_f_deg=", repr(rad2deg.(alpha_f)))
+        println("DIAG alpha_dual_minus_f=", repr(alpha_d .- alpha_f))
+        println("DIAG gamma_dual_minus_f=", repr(ForwardDiff.value.(collect(solver_d.sol.gamma_distribution)) .- collect(ram_solver.sol.gamma_distribution)))
+        println("DIAG dalpha_dy=", repr([collect(ForwardDiff.partials(a)) for a in solver_d.lr.alpha_dist]))
+        println("DIAG dual_coeffs_partials=", repr(collect(ForwardDiff.partials(solver_d.sol.force_coeffs[1]))))
+        body_d2, solver_d2 = VortexStepMethod.make_dual_shadow(ram_solver, ram_body, TD)
+        VortexStepMethod.unrefined_deform!(body_d2, y_d[1:4], nothing)
+        VortexStepMethod.reinit!(body_d2; init_aero=false)
+        set_va!(body_d2, y_d[5:7], y_d[8:10])
+        solve!(solver_d2, body_d2)
+        println("DIAG second_dual_identical=", collect(solver_d2.sol.force_coeffs) == collect(solver_d.sol.force_coeffs))
     end
 end