ملف:Elliptic orbit.gif

 وصف قصير

 ترخيص

I, the copyright holder of this work, hereby publish it under the following licenses: يسمح بنسخ و توزيع و/أو تعديل هذا المستند وفق شروط رخصة الوثائق الحرة (جنو) إصدار 1.2 أو أي إصدار أحدث المنشورة من قبل مؤسسة البرمجيات الحرة بدون أقسام ثابته و نصوص الغلاف الأمامي و الخلفي. قالب:Cc-by-sa-2.5-es [You may select the license of your choice.] Error: {{Lang}}: text has italic markup (help)

 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
   }