@testset "Monotonic Basin Hopping" begin using Thesis: mbh # Initial Setup sc = Sc("test") a = rand(15000:1.:40000) e = rand(0.01:0.01:0.5) i = rand(0.01:0.01:π/6) T = 2π*√(a^3/μs["Earth"]) prop_time = 2T n = 25 # A simple orbit raising start = oe_to_xyz([ a, e, i, 0., 0., 0. ], μs["Earth"]) ΔVs = repeat([0.6, 0., 0.]', outer=(n,1)) final = prop(ΔVs, start, sc, μs["Earth"], prop_time)[1][end,:] new_T = 2π*√(xyz_to_oe(final, μs["Earth"])[1]^3/μs["Earth"]) # This should be close enough to 0.6 best, archive = mbh(start, final, sc, μs["Earth"], 0.0, prop_time, n) # Test and plot @test converged(best) for path in archive @test converged(path) end end