16 lines
381 B
Julia
16 lines
381 B
Julia
@testset "Laguerre-Conway" begin
|
|
for T in rand(3600*1.5:3600*4, (5))
|
|
start = oe_to_xyz([ (μs["Earth"]*(T/(2π))^2)^(1/3), 0.1, 0.1, 0., 0., 1. ], μs["Earth"])
|
|
orbit = start
|
|
for _ in 1:5
|
|
i = 0.
|
|
while i < T
|
|
orbit = laguerre_conway(orbit, μs["Earth"], 1.)
|
|
i += 1
|
|
end
|
|
@test i ≈ T
|
|
@test orbit ≈ start
|
|
end
|
|
end
|
|
end
|