IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Oct 14, 2005, 3:42:48 PM (21 years ago)
Author:
drobbin
Message:

Made updates to SphereOps & tests. ApplyCel & Precess still produce erroroneus values.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/psLib/src/astro/psSphereOps.c

    r5319 r5343  
    88 *  @author Dave Robbins, MHPCC
    99 *
    10  *  @version $Revision: 1.4 $ $Name: not supported by cvs2svn $
    11  *  @date $Date: 2005-10-14 00:07:37 $
     10 *  @version $Revision: 1.5 $ $Name: not supported by cvs2svn $
     11 *  @date $Date: 2005-10-15 01:42:46 $
    1212 *
    1313 *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
     
    134134    psSphereRotInvert(inv);
    135135    psSphereRotCombine(result, result, inv);
     136    //    psSphereRot *result = psSphereRotCombine(NULL, inv, coordQuat);
     137    //    psSphereRotCombine(result, result, transform);
     138    //    psSphereRot *result = psSphereRotCombine(NULL, coordQuat, transform);
     139    //    psSphereRotCombine(result, inv, result);
     140
     141    //    out->r = atan2(result->q1, result->q0);
    136142    out->r = atan2(result->q1, result->q0);
    137143    out->d = asin(result->q2);
     
    464470
    465471    // Calculate conversion constants
    466     psF64 alphaP = DEG_TO_RAD(90.0) - ((DEG_TO_RAD(0.6406161) * T) +
    467                                        (DEG_TO_RAD(0.0000839) * T * T) +
    468                                        (DEG_TO_RAD(0.000005) * T * T * T));
     472    //    psF64 alphaP = DEG_TO_RAD(90.0) - ((DEG_TO_RAD(0.6406161) * T) +
     473    psF64 alphaP = DEG_TO_RAD(180.0) - ((DEG_TO_RAD(0.6406161) * T) +
     474                                        (DEG_TO_RAD(0.0000839) * T * T) +
     475                                        (DEG_TO_RAD(0.000005) * T * T * T));
    469476
    470477    psF64 deltaP = (DEG_TO_RAD(0.5567530) * T) -
     
    472479                   (DEG_TO_RAD(0.0000116) * T * T * T);
    473480
    474     psF64 phiP = DEG_TO_RAD(90.0) + ((DEG_TO_RAD(0.6406161) * T) +
    475                                      (DEG_TO_RAD(0.0003041) * T * T) +
    476                                      (DEG_TO_RAD(0.0000051) * T * T * T));
     481    //    psF64 phiP = DEG_TO_RAD(90.0) + ((DEG_TO_RAD(0.6406161) * T) +
     482    psF64 phiP = DEG_TO_RAD(180.0) + ((DEG_TO_RAD(0.6406161) * T) +
     483                                      (DEG_TO_RAD(0.0003041) * T * T) +
     484                                      (DEG_TO_RAD(0.0000051) * T * T * T));
    477485
    478486    // Create transform with proper constants
Note: See TracChangeset for help on using the changeset viewer.