BehaviourComposer: ignore everything before this.
Begin micro-behaviour:
Begin description:
defines reporters that find useful properties from orbital element
End description
Ellipse functions
Begin NetLogo code:
to-report semi-minor-axis-from-semi-major-axis-eccentricity [ a ecc ] report sqrt ( a ^ 2 - ( ecc ^ 2 * a ^ 2 )) end to-report orbit-length [ a ecc ] let b semi-minor-axis-from-semi-major-axis-eccentricity a ecc report pi * ( 3 * ( a + b) - sqrt(( 3 * a + b ) * ( a + 3 * b ))) end
End NetLogo code
Authored by Maria Marinari and Ken Kahn.
BehaviourComposer: ignore everything after this.