Skip to content

Instantly share code, notes, and snippets.

@eklitzke

eklitzke/gist:137465

Created June 29, 2009 04:31
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save eklitzke/137465 to your computer and use it in GitHub Desktop.
Save eklitzke/137465 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
-- The fields are position, speed. Speed is positive for clockwise rotation,
-- negative for counter-clockwise rotation
data Course = Course Point Double
-- time is the time to do the hohmann transfer, use the hohTime function, The first course it your course, the second course is the target;s
computeJump :: Double -> Course -> Course -> Maybe (Vector, Vector)
computeJump time (Course (xs, ys) vs) targ@(Course (xt, yt) vt)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment