lisp") ; ; look for svg file in your home directory ; ; after loading file you can : ; (draw-orbit "a.svg" 800 (list (list 1/7 2/7 ))) ; ; Adam Majewski...
com/adammajewski/lisp-doubling-map-orbit-svg ; ; draws orbit portrait of orbit ; orbit is a list of pairs of ratios ; for example (list (list 1/7 2/7 )) ; ; arcs are a...
lisp") ; ; look for svg file in your home directory ; ; after loading file you can : ; (draw-orbit "a.svg" 800 (list (list 1/7 2/7 ))) ; ; Adam Majewski...
lisp") ; ; look for svg file in your home directory ; ; after loading file you can : ; (draw-orbit "a.svg" 800 (list (list 1/7 2/7 ))) ; ; Adam Majewski...
512 Orbital period 145 453 109 18 512 512 Orbital speed 7 202 118 17 512 512 Radius of orbit 400 190 105 28 512 512 Height above sea level 346 1 165 39...
lisp") ; ; look for svg file in your home directory ; ; after loading file you can : ; (draw-orbit "a.svg" 800 (list (list 1/7 2/7 ))) ; ; Adam Majewski...
lisp") ; ; look for svg file in your home directory ; ; after loading file you can : ; (draw-orbit "a.svg" 800 (list (list 1/7 2/7 ))) ; ; Adam Majewski...
Elliptical Orbit Animation -------------------------- Created 7 Mar. 2006 */ #include "colors.inc" //Orbit Definition #declare OrbitA=42.164; #declare OrbitE=0...
GiveOrbit(z0,OrbitLength):= block( [z,Orbit], z:z0, Orbit:[[realpart(z),imagpart(z)]], for i:1 thru OrbitLength step 1 do ( z:expand(f(z)), Orbit:endcons([realpart(z)...
hyperbolic Kepler orbit with the eccentricity 1.3, a parabolic Kepler orbit and an elliptic Kepler orbit with the eccentricity 0.7. Wikimedia username:...
=z^2_+_mz_where_p_over_q=1_over_3.svg){kind=link}
