E X P O R T   O R B E L E M ( M , v r , v v ) 
 
 B E G I N 
 
 / /   2 0 1 5 - 0 5 - 0 1   E W S ,   O r b i t a l   E l e m e n t s 
 
 / /   m a s s ,   r a d i u s   v e c t o r ,   v e l o c i t y   v e c t o r 
 
 
 
 L O C A L   m u , v h , v n , v e ; 
 
 L O C A L   R , H , N , E , I , L , C ; 
 
 L O C A L   s t r , s ; 
 
 
 
 
 
 / /   D e g r e e s   M o d e 
 
 H A n g l e : = 1 ; 
 
 
 
 / /   S e t   t o   F i x e d   5   M o d e 
 
 H F o r m a t : = 1 ; 
 
 H D i g i t s : = 5 ; 
 
 
 
 / /   M a i n 
 
 C H O O S E ( C , " U n i t   S y s t e m " , " M I - L B - S " , 
 
 " K M - K G - S " , " m u = 1 " ) ; 
 
 I F   C = = 1   T H E N 
 
 m u : = 9 5 6 2 9 . 5 2 3 4 3 5 * M ;   E N D ; 
 
 I F   C = = 2   T H E N 
 
 m u : = 3 9 8 6 0 0 . 4 4 1 8 * M ;   E N D ; 
 
 I F   C = = 3   T H E N 
 
 m u : = 1 ;   E N D ; 
 
 v h : = C R O S S ( v r , v v ) ; 
 
 M S G B O X ( " A n g u l a r   M o m e n t u m   V e c t o r :   " + v h ) ; 
 
 v n : = C R O S S ( [ 0 , 0 , 1 ] , v h ) ; 
 
 M S G B O X ( " N o d e   V e c t o r :   " + v n ) ; 
 
 H : = A B S ( v h ) ; 
 
 I F   H `"0   T H E N 
 
 I : = A C O S ( v h ( 3 ) / H ) ; 
 
 M S G B O X ( " I n c l i n a t i o n : "   + I + "  " ) ; 
 
 E L S E 
 
 M S G B O X ( " N o   I n c l i n a t i o n   A n g l e " ) ; 
 
 E N D ; 
 
 N : = A B S ( v n ) ; 
 
 I F   N `"0   T H E N 
 
 L : = A C O S ( v n ( 1 ) / N ) ; 
 
 M S G B O X ( " L o n g i t u d e :   " + L + "  " ) ; 
 
 E L S E 
 
 M S G B O X ( " N o   L o n g i t u d e   A n g l e " ) ; 
 
 E N D ; 
 
 V : = A B S ( v v ) ; 
 
 R : = A B S ( v r ) ; 
 
 v e : = 1 / m u * ( ( V ^ 2 - m u / R ) * v r - D O T ( v r , v v ) * v v ) ; 
 
 E : = A B S ( v e ) ; 
 
 
 
 s t r : = { " C i r c l e " , " E l l i p s e " , " P a r a b o l a " , 
 
 " H y p e r b o l a " } ; 
 
 I F   E = 0   T H E N   s : = 1 ;   E N D ; 
 
 I F   E < 1   T H E N   s : = 2 ;   E N D ; 
 
 I F   E = 1   T H E N   s : = 3 ;   E N D ; 
 
 I F   E > 1   T H E N   s : = 4 ;   E N D ; 
 
 M S G B O X ( " E c c e n t r i c i t y :   " + E + " ;   " + s t r ( s ) ) ; 
 
 
 
 
 
 E N D ; 
 
 