void KSPlanetBase::localizeCoords( const KSNumbers *num, const dms *lat, const dms *LST ) {
//convert geocentric coordinates to local apparent coordinates (topocentric coordinates)
dms HA, HA2; //Hour Angle, before and after correction
double rsinp, rcosp, u, sinHA, cosHA, sinDec, cosDec, D;
double cosHA2;
double r = Rearth * AU_KM; //distance from Earth, in km
u = atan( 0.996647*tan( lat->radians() ) );
rsinp = 0.996647*sin( u );
rcosp = cos( u );
HA.setD( LST->Degrees() - ra()->Degrees() );
HA.SinCos( sinHA, cosHA );
dec()->SinCos( sinDec, cosDec );
D = atan( ( rcosp*sinHA )/( r*cosDec/6378.14 - rcosp*cosHA ) );
dms temp;
temp.setRadians( ra()->radians() - D );
setRA( temp );
HA2.setD( LST->Degrees() - ra()->Degrees() );
cosHA2 = cos( HA2.radians() );
temp.setRadians( atan( cosHA2*( r*sinDec/6378.14 - rsinp )/( r*cosDec*cosHA/6378.14 - rcosp ) ) );
setDec( temp );
EquatorialToEcliptic( num->obliquity() );
}
void KSPlanetBase::localizeCoords( const KSNumbers *num, const dms *lat, const dms *LST ) {
//convert geocentric coordinates to local apparent coordinates (topocentric coordinates)
dms HA, HA2; //Hour Angle, before and after correction
double rsinp, rcosp, u, sinHA, cosHA, sinDec, cosDec, D;
double cosHA2;
double r = Rearth * AU_KM; //distance from Earth, in km
u = atan( 0.996647*tan( lat->radians() ) );
rsinp = 0.996647*sin( u );
rcosp = cos( u );
HA.setD( LST->Degrees() - ra().Degrees() );
HA.SinCos( sinHA, cosHA );
dec().SinCos( sinDec, cosDec );
D = atan2( rcosp*sinHA, r*cosDec/6378.14 - rcosp*cosHA );
dms temp;
temp.setRadians( ra().radians() - D );
setRA( temp );
HA2.setD( LST->Degrees() - ra().Degrees() );
cosHA2 = cos( HA2.radians() );
//temp.setRadians( atan2( cosHA2*( r*sinDec/6378.14 - rsinp ), r*cosDec*cosHA/6378.14 - rcosp ) );
// The atan2() version above makes the planets move crazy in the htm branch -jbb
temp.setRadians( atan( cosHA2*( r*sinDec/6378.14 - rsinp )/( r*cosDec*cosHA/6378.14 - rcosp ) ) );
setDec( temp );
//Make sure Dec is between -90 and +90
if ( dec().Degrees() > 90.0 ) {
setDec( 180.0 - dec().Degrees() );
setRA( ra().Hours() + 12.0 );
ra().reduce();
}
if ( dec().Degrees() < -90.0 ) {
setDec( 180.0 + dec().Degrees() );
setRA( ra().Hours() + 12.0 );
ra().reduce();
}
EquatorialToEcliptic( num->obliquity() );
}
