| Last change
 on this file since 2966 was             2615, checked in by cmv, 21 years ago | 
        
          | 
using namespace sophya enleve de machdefs.h, nouveau sopnamsp.h  cmv 10/09/2004
 | 
        
          | File size:
            1.6 KB | 
      
      
| Rev | Line |  | 
|---|
| [2615] | 1 | #include "sopnamsp.h" | 
|---|
| [764] | 2 | #include "longlat.h" | 
|---|
|  | 3 | //++ | 
|---|
|  | 4 | // Class        LongLat | 
|---|
|  | 5 | // | 
|---|
|  | 6 | // include      longlat.h | 
|---|
|  | 7 | // | 
|---|
|  | 8 | //    translation from  coordinates (longitude, latitude) | 
|---|
|  | 9 | //    to theta,phi | 
|---|
|  | 10 | // | 
|---|
|  | 11 | //    longitude=phi | 
|---|
|  | 12 | // | 
|---|
|  | 13 | //    latitude=Pi/2-theta | 
|---|
|  | 14 | // | 
|---|
|  | 15 | //-- | 
|---|
|  | 16 | //++ | 
|---|
|  | 17 | // Titre        Constructors | 
|---|
|  | 18 | //-- | 
|---|
|  | 19 | //++ | 
|---|
|  | 20 | LongLat::LongLat() | 
|---|
|  | 21 | // | 
|---|
|  | 22 | //-- | 
|---|
|  | 23 | { | 
|---|
|  | 24 | _lon=0.; | 
|---|
|  | 25 | _lat=0.; | 
|---|
|  | 26 | } | 
|---|
|  | 27 | //++ | 
|---|
|  | 28 | LongLat::LongLat(double longitude, double latitude) | 
|---|
|  | 29 | // | 
|---|
|  | 30 | //-- | 
|---|
|  | 31 | { | 
|---|
|  | 32 | _lon=mod(longitude,pi2); | 
|---|
|  | 33 | if( latitude == pi_over_2 ) _lat=latitude; | 
|---|
|  | 34 | else _lat=mod(latitude+pi_over_2,M_PI)-pi_over_2; // dans [-Pi/2,Pi/2] | 
|---|
|  | 35 | } | 
|---|
|  | 36 | //++ | 
|---|
|  | 37 | LongLat::LongLat(double x, double y, double z) | 
|---|
|  | 38 | // | 
|---|
|  | 39 | //-- | 
|---|
|  | 40 | { | 
|---|
|  | 41 | double norm=sqrt(x*x+y*y+z*z); | 
|---|
|  | 42 | double theta; | 
|---|
|  | 43 | if( norm != 0. ) | 
|---|
|  | 44 | { | 
|---|
|  | 45 | theta=acos(z/norm); // dans [0,Pi] | 
|---|
|  | 46 | if( mod(theta,M_PI) == 0. ) _lon=0.; // on est sur +-Oz, le vecteur z est en phi=0 | 
|---|
|  | 47 | //      else _lon=acos(x/sin(theta)/norm)+M_PI*(y<0); | 
|---|
|  | 48 | else _lon=scangle(y/sin(theta)/norm,x/sin(theta)/norm); | 
|---|
|  | 49 | } | 
|---|
|  | 50 | else // vecteur nul | 
|---|
|  | 51 | { | 
|---|
|  | 52 | theta=0.; | 
|---|
|  | 53 | _lon=0.; | 
|---|
|  | 54 | } | 
|---|
|  | 55 | _lat=pi_over_2-theta; | 
|---|
|  | 56 | } | 
|---|
|  | 57 | //++ | 
|---|
|  | 58 | // Titre        Public Methods | 
|---|
|  | 59 | //-- | 
|---|
|  | 60 | //++ | 
|---|
|  | 61 | void LongLat::Set(double longitude, double latitude) | 
|---|
|  | 62 | // | 
|---|
|  | 63 | //-- | 
|---|
|  | 64 | { | 
|---|
|  | 65 | _lon=mod(longitude,pi2); | 
|---|
|  | 66 | if( latitude == pi_over_2 ) _lat=latitude; | 
|---|
|  | 67 | else _lat=mod(latitude+pi_over_2,M_PI)-pi_over_2; // dans [-Pi/2,Pi/2] | 
|---|
|  | 68 | } | 
|---|
|  | 69 | //++ | 
|---|
|  | 70 | void LongLat::Print(ostream& os) const | 
|---|
|  | 71 | // | 
|---|
|  | 72 | //-- | 
|---|
|  | 73 | { | 
|---|
|  | 74 | os << "LongLat : longitude = " << _lon << " phi   = " << this->Phi() << endl; | 
|---|
|  | 75 | os << "LongLat : latitude    = " << _lat << " theta = " << this->Theta() << endl; | 
|---|
|  | 76 | } | 
|---|
|  | 77 | //++ | 
|---|
|  | 78 | // | 
|---|
|  | 79 | //  double Longitude() const | 
|---|
|  | 80 | //  double Phi() const | 
|---|
|  | 81 | //  double Latitude() | 
|---|
|  | 82 | //  double Theta() const | 
|---|
|  | 83 | //-- | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.