Index Page
cspice_spk14b
A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X 

Abstract
I/O
Examples
Particulars
Required Reading
Version
Index_Entries

Abstract


   CSPICE_SPK14B begins a type 14 SPK segment in the SPK 
   file associated with handle. Also reference cspice_spk14a
   and cspice_spk14e.

   For important details concerning this module's function, please refer to
   the CSPICE routine spk14b_c.

I/O

   
   Given:
   
      handle   the scalar integer file handle indicating an SPK 
               file opened with write access
   
      segid    a string variable holding to the segment identifier
               (an SPK segment identifier may contain up to 40 
               printing ASCII characters )
   
      body     the integer NAIF ID identifying the body 
               trajectory to record in the SPK file
   
      center   the integer NAIF ID for the center of motion 
               associated with body
   
      frame    a string variable holding the reference frame name
               used to reference the states, e.g. "J2000"
   
      first    the double precision starting epoch, in TDB 
               seconds past J2000, of the ephemeris data
   
      last     the double precision ending epoch, in TDB 
               seconds past J2000, of the ephemeris data
   
      chbdeg   the integer degree of the Chebyshev Polynomials 
               used to represent the ephemeris information
   
   the call:
   
      cspice_spk14b, handle, segid, body, center,  $ 
                     frame , first, last, chbdeg
   
   writes the information to begin a new SPK 14 segment.
   

Examples


   Any numerical results shown for this example may differ between
   platforms as the results depend on the SPICE kernels used as input
   and the machine specific arithmetic implementation.

     
      ;;
      ;; Create an SPK type 14. First create a segment 
      ;; identifier.
      ;; 
      body      = 3
      center    = 10
      ref       = 'J2000'  
      segid     = 'SPK type 14 test segment'
      SPK14     = 'test14.bsp'
      N_RECORDS = 4
      CHBDEG    = 2
       
      ;;
      ;; Define the coefficients.
      ;;
      discreteEpochs = [ 100.d, 200.d, 300.d, 400.d, 500.d, $ 
                         600.d, 700.d, 800.d, 900.d         $
                       ]
       
      ChebyRecords14 = [                            $
                        150.0d,                     $
                        50.0d,                      $
                        1.0101d, 1.0102d, 1.0103d,  $
                        1.0201d, 1.0202d, 1.0203d,  $
                        1.0301d, 1.0302d, 1.0303d,  $
                        1.0401d, 1.0402d, 1.0403d,  $
                        1.0501d, 1.0502d, 1.0503d,  $
                        1.0601d, 1.0602d, 1.0603d   $
                       ,                            $
                        250.0d,                     $
                        50.0d,                      $
                        2.0101d, 2.0102d, 2.0103d,  $
                        2.0201d, 2.0202d, 2.0203d,  $
                        2.0301d, 2.0302d, 2.0303d,  $
                        2.0401d, 2.0402d, 2.0403d,  $
                        2.0501d, 2.0502d, 2.0503d,  $
                        2.0601d, 2.0602d, 2.0603d   $
                       ,                            $
                        350.0d,                     $
                        50.0d,                      $
                        3.0101d, 3.0102d, 3.0103d,  $
                        3.0201d, 3.0202d, 3.0203d,  $
                        3.0301d, 3.0302d, 3.0303d,  $
                        3.0401d, 3.0402d, 3.0403d,  $
                        3.0501d, 3.0502d, 3.0503d,  $
                        3.0601d, 3.0602d, 3.0603d   $
                       ,                            $
                        450.0d,                     $
                        50.0d,                      $
                        4.0101d, 4.0102d, 4.0103d,  $
                        4.0201d, 4.0202d, 4.0203d,  $
                        4.0301d, 4.0302d, 4.0303d,  $
                        4.0401d, 4.0402d, 4.0403d,  $
                        4.0501d, 4.0502d, 4.0503d,  $
                        4.0601d, 4.0602d, 4.0603d   $
                     ]
    
      ;;
      ;; Open a new SPK file.
      ;;
      if ( cspice_exists (SPK14) ) then begin
         file_delete, SPK14 
      endif
      cspice_spkopn, SPK14, 'Type 14 SPK internal file name.', 4, handle
     
      ;;
      ;; Create a type 14 segment.
      ;;
      ;; Begin the segment
      ;;
      cspice_spk14b, handle,                      $
                     segid,                       $
                     body,                        $
                     center,                      $
                     ref,                         $
                     discreteEpochs[0],           $
                     discreteEpochs[N_RECORDS],   $
                     CHBDEG
        
      ;;
      ;; Add the data.
      ;;
      cspice_spk14a, handle,           $
                     N_RECORDS,        $
                     ChebyRecords14,   $
                     discreteEpochs
       
      ;;
      ;; End the segment.
      ;;
      cspice_spk14e, handle
       
      ;; 
      ;; SAFELY close the SPK file.
      ;;
      cspice_spkcls, handle

Particulars


   None.

Required Reading


   ICY.REQ
   SPK.REQ

Version


   -Icy Version 1.0.0, 16-JUN-2003, EDW (JPL)

Index_Entries

 
   begin writing a type_14 spk segment 
 



Wed Apr  5 17:58:03 2017