• 大小: 9.08MB
    文件类型: .rar
    金币: 1
    下载: 0 次
    发布日期: 2023-11-10
  • 语言: C/C++
  • 标签: JPL  DE405  fortran  程序  

资源简介

JPL的一个DE405的数据,一个fortran的读取行星星历并计算相对位置的代码,一个C++使用fortran库的数据的,从而实现“C++”版本行星星历计算。

资源截图

代码片段和文件信息

#include 
using namespace std;

extern “C“
{
    void pleph_(double*int*int*double*);
}


/**  PLEPH  ********  subroutine pleph( tdb npl nctr pv)  **********

    Input
    -----
          tdb [d.p.]  : julian ephemeris date
          npl [int.]  : planet number
          nctr [int.] : center number

             identifications for “npl“ and “nctr“
             ------------------------------------
              1 = mercury           8 = neptune
              2 = venus             9 = pluto
              3 = earth            10 = moon
              4 = mars             11 = sun
              5 = jupiter          12 = solar-system barycenter
              6 = saturn           13 = earth-moon barycenter
              7 = uranus           14 = nutations in longitude and obliquity
                                   15 = librations (if they exist on the file)
                 (for nutations and librations nctr=0)
    Output
    ------
          pv(6) [d.p.]  : xyzx-doty-dotz-dot [au au/day]
                  for nutations d(psi) d(eps) d(psi)-dot d(eps)-dot
                                  [rads rads/day]
                  for librations (Euler angles and rates w.r.t. the ephemeris
                                  reference frame)   [rads rads/day]

*/


int main()
{
    double ET = 2451536.50; // 2000年1月1日
    int NTARG = 11;     //sun
    int NCENT = 3;      //earth
    double R[6];
    pleph_(&ET&NTARG&NCENTR);
    cout<<“Here is the R[6]“<    cout<    cout<    return 0;
}



 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

 -rw-rw-r--      1243  2016-05-25 20:21  JPL合集\readme

 -rwxr-----   6403298  2016-05-24 17:03  JPL合集\JPLdata-DE405\ascp2000.405

 -rwxr-----      5963  2016-05-23 17:09  JPL合集\JPLdata-DE405\header.405

 -rwxr-----    592040  2016-05-23 17:09  JPL合集\JPLdata-DE405\testpo.405

 -rw-rw-r--    417210  2016-05-25 19:11  JPL合集\JPL行星-月球星历-知网.pdf

 -rwxr-----     33179  2016-05-23 17:33  JPL合集\fortran\testeph.f

 -rwxr-----     14358  2016-05-23 17:33  JPL合集\fortran\userguide.txt

 -rwxr-----     11936  2016-05-23 17:33  JPL合集\fortran\asc2eph.f

 -rwxrwxr-x     24985  2016-05-24 15:59  JPL合集\TEST\bin\testeph

 -rwxrwxr-x     46787  2016-05-24 18:07  JPL合集\TEST\bin\main

 -rw-rw-r--     28848  2016-05-24 17:54  JPL合集\TEST\obj\testeph.o

 -rw-rw-r--     33888  2016-05-24 18:07  JPL合集\TEST\obj\main.o

 -rwxr-----     24541  2016-05-24 16:09  JPL合集\TEST\testeph.f

 -rw-rw-r--      5882  2016-05-24 17:16  JPL合集\TEST\JPLEPH.info

 -rw-rw-r--   1881264  2016-05-24 17:13  JPL合集\TEST\JPLEPH

 -rw-rw-r--       271  2016-05-24 17:13  JPL合集\TEST\getbindata\readme

 -rwxr-----   6403298  2016-05-24 17:03  JPL合集\TEST\getbindata\ascp2000.405

 -rwxr-----     11935  2016-05-23 18:22  JPL合集\TEST\getbindata\asc2eph.f

 -rw-rw-r--   1881264  2016-05-24 17:13  JPL合集\TEST\getbindata\JPLEPH

 -rwxrwxr-x     22343  2016-05-24 17:06  JPL合集\TEST\getbindata\asc2eph

 -rwxr-----      5963  2016-05-23 17:09  JPL合集\TEST\getbindata\header.405

 -rwxr-----    592040  2016-05-23 17:09  JPL合集\TEST\getbindata\testpo.405

 -rw-rw-r--      1618  2016-05-24 18:32  JPL合集\TEST\main.cpp

 -rwxrwx---       619  2016-05-25 20:09  JPL合集\TEST\makefile

 drwxrwxr-x         0  2016-05-24 18:07  JPL合集\TEST\bin

 drwxrwxr-x         0  2016-05-24 18:07  JPL合集\TEST\obj

 drwxrwxr-x         0  2016-05-24 17:13  JPL合集\TEST\getbindata

 drwxrwxr-x         0  2016-05-24 18:02  JPL合集\TEST\data

 drwxrwxr-x         0  2016-05-25 19:56  JPL合集\JPLdata-DE405

 drwxrwxr-x         0  2016-05-25 20:21  JPL合集\fortran

............此处省略5个文件信息

评论

共有 条评论