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 ))endto-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. |