IPP Software Navigation Tools IPP Links Communication Pan-STARRS Links

Ignore:
Timestamp:
Apr 28, 2016, 11:09:46 AM (10 years ago)
Author:
eugene
Message:

add datan2, set atan2 to return radians as it should

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Ohana/src/opihi/lib.shell/stack_math.c

    r38553 r39558  
    343343    case '^': VV_FUNC(ST_SCALAR_FLT, pow (*M1, *M2));
    344344    case '@': VV_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (*M1, *M2));
    345     case 'a': VV_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (*M1, *M2));
     345    case 'd': VV_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (*M1, *M2));
     346    case 'a': VV_FUNC(ST_SCALAR_FLT,         atan2 (*M1, *M2));
    346347    case 'D': VV_FUNC(ST_SCALAR_INT, MIN (*M1, *M2));
    347348    case 'U': VV_FUNC(ST_SCALAR_INT, MAX (*M1, *M2));
    … …  
    454455    case '^': SV_FUNC(ST_SCALAR_FLT, pow (M1, *M2));
    455456    case '@': SV_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (M1, *M2));
    456     case 'a': SV_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (M1, *M2));
     457    case 'd': SV_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (M1, *M2));
     458    case 'a': SV_FUNC(ST_SCALAR_FLT,         atan2 (M1, *M2));
    457459    case 'D': SV_FUNC(ST_SCALAR_INT, MIN (M1, *M2));
    458460    case 'U': SV_FUNC(ST_SCALAR_INT, MAX (M1, *M2));
    … …  
    561563    case '^': VS_FUNC(ST_SCALAR_FLT, pow (*M1, M2));
    562564    case '@': VS_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (*M1, M2));
    563     case 'a': VS_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (*M1, M2));
     565    case 'd': VS_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (*M1, M2));
     566    case 'a': VS_FUNC(ST_SCALAR_FLT,         atan2 (*M1, M2));
    564567    case 'D': VS_FUNC(ST_SCALAR_INT, MIN (*M1, M2));
    565568    case 'U': VS_FUNC(ST_SCALAR_INT, MAX (*M1, M2));
    … …  
    652655    case '^': MV_FUNC(pow (*M1, *M2));
    653656    case '@': MV_FUNC(DEG_RAD*atan2 (*M1, *M2));
    654     case 'a': MV_FUNC(DEG_RAD*atan2 (*M1, *M2));
     657    case 'd': MV_FUNC(DEG_RAD*atan2 (*M1, *M2));
     658    case 'a': MV_FUNC(        atan2 (*M1, *M2));
    655659    case 'D': MV_FUNC(MIN (*M1, *M2));
    656660    case 'U': MV_FUNC(MAX (*M1, *M2));
    … …  
    745749    case '^': VM_FUNC(pow (*M1, *M2));
    746750    case '@': VM_FUNC(DEG_RAD*atan2 (*M1, *M2));
    747     case 'a': VM_FUNC(DEG_RAD*atan2 (*M1, *M2));
     751    case 'd': VM_FUNC(DEG_RAD*atan2 (*M1, *M2));
     752    case 'a': VM_FUNC(        atan2 (*M1, *M2));
    748753    case 'D': VM_FUNC(MIN (*M1, *M2));
    749754    case 'U': VM_FUNC(MAX (*M1, *M2));
    … …  
    825830    case '^': MM_FUNC(pow (*M1, *M2));
    826831    case '@': MM_FUNC(DEG_RAD*atan2 (*M1, *M2));
    827     case 'a': MM_FUNC(DEG_RAD*atan2 (*M1, *M2));
     832    case 'd': MM_FUNC(DEG_RAD*atan2 (*M1, *M2));
     833    case 'a': MM_FUNC(        atan2 (*M1, *M2));
    828834    case 'D': MM_FUNC(MIN (*M1, *M2));
    829835    case 'U': MM_FUNC(MAX (*M1, *M2));
    … …  
    910916    case '^': MS_FUNC(pow (*M1, M2));
    911917    case '@': MS_FUNC(DEG_RAD*atan2 (*M1, M2));
    912     case 'a': MS_FUNC(DEG_RAD*atan2 (*M1, M2));
     918    case 'd': MS_FUNC(DEG_RAD*atan2 (*M1, M2));
     919    case 'a': MS_FUNC(        atan2 (*M1, M2));
    913920    case 'D': MS_FUNC(MIN (*M1, M2));
    914921    case 'U': MS_FUNC(MAX (*M1, M2));
    … …  
    986993    case '^': SM_FUNC(pow (M1, *M2));
    987994    case '@': SM_FUNC(DEG_RAD*atan2 (M1, *M2));
    988     case 'a': SM_FUNC(DEG_RAD*atan2 (M1, *M2));
     995    case 'd': SM_FUNC(DEG_RAD*atan2 (M1, *M2));
     996    case 'a': SM_FUNC(        atan2 (M1, *M2));
    989997    case 'D': SM_FUNC(MIN (M1, *M2));
    990998    case 'U': SM_FUNC(MAX (M1, *M2));
    … …  
    10681076    case '^': SS_FUNC(ST_SCALAR_FLT, pow (M1, M2));
    10691077    case '@': SS_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (M1, M2));
    1070     case 'a': SS_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (M1, M2));
     1078    case 'd': SS_FUNC(ST_SCALAR_FLT, DEG_RAD*atan2 (M1, M2));
     1079    case 'a': SS_FUNC(ST_SCALAR_FLT,         atan2 (M1, M2));
    10711080    case 'D': SS_FUNC(ST_SCALAR_INT, MIN (M1, M2));
    10721081    case 'U': SS_FUNC(ST_SCALAR_INT, MAX (M1, M2));
Note: See TracChangeset for help on using the changeset viewer.