Imatge:Elliptic orbit.gif
De Viquipèdia

No hi ha una versió amb una resolució més gran.
Elliptic_orbit.gif (300 × 300 píxels, mida de l'arxiu: 18 KB, 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:

