Index Page
cspice_spkw08
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_SPKW08 writes a type 8 segment to an SPK file.

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

I/O


   Given:

      handle   a scalar integer referring to an SPK file opened
               with write access.

      body     a scalar integer NAIF ID identifying the body
               trajectory to record in the SPK file.

      center   the scalar 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 scalar 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.

      segid    a string variable holding the segment identifier
               (an SPK segment identifier may contain up to 40
               printing ASCII characters ).

      degree   the integer degree of the Lagrange polynomials used to
               for state interpolation.

      n        the integer number of states in the 'state' vector.

      states   an array of double precision, time-ordered
               geometric states ( x, y, z, dx/dt, dy/dt, dz/dt, in
               kilometers and kilometers per second ) of 'body' relative
               to 'center' specified in 'frame'.

      epoch1   the double precision scalar value of the epoch
               corresponding to the first state in the state array;
               'epoch1' normally precedes 'first'.

      step     the double precision scalar time step (or interval)
               in seconds separating the epochs of adjacent states
               in 'states'.

   the call:

      cspice_spkw08, handle, body, center, frame, first, last, $
                     segid, degree, n, states, epoch1, step

   returns:

   The routine writes to the SPK file referred to by 'handle' a type 8 SPK
   segment containing the data listed in 'states'.

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.


      ;;
      ;; Define the segment identifier parameters.
      ;;
      BODY       = 3
      CENTER     = 10
      REF        = 'J2000'
      POLY_DEG   = 3
      SPK8       = 'test8.bsp'
      N_DISCRETE = 9

      ;;
      ;; A set of epochs.
      ;;
      DISCRETEEPOCHS = [ 100.d, 200.d, 300.d, 400.d, 500.d, $
                       600.d, 700.d, 800.d, 900.d           $
                       ]

      ;;
      ;; An array of discrete states to write to the SPK segment.
      ;;
      DISCRETESTATES = [                                             $
                       [ 101.d, 201.d, 301.d, 401.d, 501.d, 601.d ], $
                       [ 102.d, 202.d, 302.d, 402.d, 502.d, 602.d ], $
                       [ 103.d, 203.d, 303.d, 403.d, 503.d, 603.d ], $
                       [ 104.d, 204.d, 304.d, 404.d, 504.d, 604.d ], $
                       [ 105.d, 205.d, 305.d, 405.d, 505.d, 605.d ], $
                       [ 106.d, 206.d, 306.d, 406.d, 506.d, 606.d ], $
                       [ 107.d, 207.d, 307.d, 407.d, 507.d, 607.d ], $
                       [ 108.d, 208.d, 308.d, 408.d, 508.d, 608.d ], $
                       [ 109.d, 209.d, 309.d, 409.d, 509.d, 609.d ]  $
                       ]

      ;;
      ;; Create a segment identifier.
      ;;
      segid = 'SPK type 8 test segment'

      ;;
      ;; Open a new SPK file.
      ;;
      if ( cspice_exists(SPK8) ) then begin
         file_delete, SPK8
      endif
      cspice_spkopn, SPK8, 'Type 8 SPK internal file name.', 4, handle

      step = DISCRETEEPOCHS[1] - DISCRETEEPOCHS[0]

      ;;
      ;; Create a type 8 segment.
      ;;
      cspice_spkw08, handle,                       $
                     BODY,                         $
                     CENTER,                       $
                     REF,                          $
                     DISCRETEEPOCHS[0],            $
                     DISCRETEEPOCHS[N_DISCRETE-1], $
                     segid,                        $
                     POLY_DEG,                     $
                     N_DISCRETE,                   $
                     DISCRETESTATES,               $
                     DISCRETEEPOCHS[0],            $
                     step

      ;;
      ;; Close the SPK file.
      ;;
      cspice_spkcls, handle

   IDL outputs:

      SPK file "test8.bsp" created containing a single type 8 segment.

Particulars


   None.

Required Reading


   ICY.REQ
   SPK.REQ

Version


   -Icy Version 1.0.1, 23-MAY-2012, EDW (JPL)

      Edits to header to improve readability.

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

Index_Entries


   write spk type_8 ephemeris data segment




Wed Apr  5 17:58:03 2017