Imatge:Elliptic orbit.gif
De Viquipèdia

Elliptic_orbit.gif (19KB, tipus MIME: image/gif
)
Aquest arxiu és una càrrega compartida, extreta del projecte Wikimedia Commons i pot ser usada per altres projectes. Si voleu disposar de més informació sobre el fitxer, podeu visitar la pàgina original |
rp | Periapsis' Radius |
---|---|
ra | Apoapsis' Radius |
[edit] Summary
Description |
Animation showing the motion of a small body (green) in an elliptic orbit around a much more massive body (blue). |
---|---|
Source |
Own work. Rendered with PovRay-3.0, animated with gifsicle. |
Date |
Created 7. Mar. 2006. |
Author | |
Permission |
Brandir put it under the GFCL and the CC-BY-SA |
Other versions | None. |
[edit] Licensing
|
[edit] POV-Ray Scene description
POV-ray image description:
/* -------------------------- Elliptical Orbit Animation -------------------------- Created 7 Mar. 2006 */ #include "colors.inc" //Orbit Definition #declare OrbitA=42.164; #declare OrbitE=0.7; //Scene constants #declare EarthRadius=6.356; #declare SatRadius=1.2; #declare OrbitWidth=0.3; #declare LineWidth=0.5/3; #declare Crosslength=1.5; #declare Textscale=9; #declare TextColor=rgb<0,0,0>; #declare PI=3.14159265359; //Variables #declare M=clock*360; #declare prevAnomaly=0; #declare Anomaly=0; #declare PI=3.14159265359; //Anomaly Determination - Solves the equation M=E-e*sin(E) by the iterative method #declare Index=0; #while (Index<20) #declare Anomaly=M*(PI/180)-OrbitE*sin(prevAnomaly); #declare prevAnomaly=Anomaly; #declare Index=Index+1; #end global_settings{ ambient_light 1 } light_source { <-50, 0, -70> color White } camera { orthographic location <OrbitA*OrbitE, 0, -10> look_at <OrbitA*OrbitE, 0, 0> up <0,100,0> right <100,0,0> } plane { <0, 0, 1>, 8 pigment {White} finish{ambient 1 brilliance 0} } //Earth sphere { <0, 0, 0>, EarthRadius pigment { Blue } finish{ ambient 0.3 brilliance 1.2 diffuse 0.8} } //Orbit torus{ OrbitA,OrbitWidth rotate x*90 pigment{ rgb<0.8,0,0> } finish{ ambient 1 brilliance 0 diffuse 0} scale sqrt(1-OrbitE*OrbitE)*y translate x*OrbitA*OrbitE no_shadow } //Sat sphere { <0, 0, -10>, SatRadius pigment { SeaGreen } finish{ ambient 1 brilliance 0 diffuse 0} no_shadow translate <OrbitA*(cos(Anomaly)+OrbitE),OrbitA*sqrt(1-OrbitE*OrbitE)*sin(Anomaly),0> } //Lines #declare crossBars= object{ union{ box{ <-LineWidth,-Crosslength,-LineWidth-7>, <LineWidth,Crosslength,LineWidth-7> } box{ <-Crosslength,-LineWidth,-LineWidth-7>, <Crosslength,LineWidth,LineWidth-7> } rotate z*45 pigment{ TextColor } finish{ ambient 1 brilliance 0 diffuse 0} no_shadow } } box{ <-OrbitA*(1-OrbitE),-LineWidth,-LineWidth-7>, <OrbitA*(1+OrbitE),LineWidth,LineWidth-7> pigment{ TextColor } finish{ ambient 1 brilliance 0 diffuse 0} no_shadow } object{ crossBars } object{ crossBars translate -x*OrbitA*(1-OrbitE) } object{ crossBars translate x*OrbitA*(1+OrbitE) } //Text union{ text { ttf "timesi.ttf" "r" 1, 0 } text { ttf "timesi.ttf" "p" 1, 0 scale 0.5 translate 0.2*x } pigment{ TextColor } finish{ ambient 1 brilliance 0 diffuse 0} scale Textscale translate <-(EarthRadius+0.3*(OrbitA*(1-OrbitE)-EarthRadius))-Textscale/4,Textscale/4,-7> no_shadow } union{ text { ttf "timesi.ttf" "r" 1, 0 } text { ttf "timesi.ttf" "a" 1, 0 scale 0.5 translate 0.2*x } pigment{ TextColor } finish{ ambient 1 brilliance 0 diffuse 0} scale Textscale translate <0.5*OrbitA*(1+OrbitE)-Textscale/4,Textscale/4,-7> no_shadow }
Enllaços a la imatge
Les següents pàgines enllacen a aquesta imatge: