00001 00002 00008 /* 00009 * 00010 */ 00012 00013 #include "EarthCentralBody.h" 00014 namespace O_SESSAME { 00015 00016 00017 EarthCentralBody::EarthCentralBody() 00018 { 00019 m_Radius = 6378.140;// * _KM; 00020 m_Mass = 5.9742 * pow(10,24);// * _KG; 00021 m_GravitationalParameter = 398600.4415;// * km^3/(solar s)^2; 00022 00023 m_AvgRotationRate = 7.2921152 * pow(10, -5); // rad/s 00024 00025 // Set the coefficients of the magnetic field corresponding the IGRF2000 00026 m_MagFieldCoeffs.modelEpoch.SetEpoch(2000, 1, 1, 0, 0, 0); 00027 m_MagFieldCoeffs.H0 = 30115; // nT 00028 m_MagFieldCoeffs.DipoleCoelevation = Deg2Rad(196.54); 00029 m_MagFieldCoeffs.DipoleEastLongitude= Deg2Rad(108.43); 00030 m_MagFieldCoeffs.CBAvgRotationRate = m_AvgRotationRate; 00031 m_MagFieldCoeffs.CBRadius = m_Radius; 00032 } 00033 /* 00034 void EarthCentralBody::CalcWc(const double &_altitude) 00035 { 00036 m_wc = ::sqrt(GRAVITATIONAL_CONSTANT * m_Mass / pow(_altitude+m_Radius, 3)); 00037 return; 00038 }*/ 00039 } // close namespace O_SESSAME 00040 00041 // Do not change the comments below - they will be added automatically by CVS 00042 /***************************************************************************** 00043 * $Log: EarthCentralBody.cpp,v $ 00044 * Revision 1.3 2003/06/12 18:01:09 nilspace 00045 * Added magnetic parameters. 00046 * 00047 * Revision 1.2 2003/06/09 15:20:39 nilspace 00048 * Changed CentralBody directory. 00049 * 00050 * Revision 1.1 2003/06/06 17:34:53 nilspace 00051 * Moved to CentralBody directory. 00052 * 00053 * Revision 1.2 2003/04/27 22:04:33 nilspace 00054 * Created the namespace O_SESSAME. 00055 * 00056 * Revision 1.1 2003/04/08 22:36:51 nilspace 00057 * Initial Submission. 00058 * 00059 * 00060 ******************************************************************************/