30 lines
718 B
Julia
30 lines
718 B
Julia
@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
|