| 1 | #include "machdefs.h"
 | 
|---|
| 2 | #include <math.h>
 | 
|---|
| 3 | #include "pexceptions.h"
 | 
|---|
| 4 | #include "vector3d.h"
 | 
|---|
| 5 | #include "utilgeom.h"
 | 
|---|
| 6 | //++ 
 | 
|---|
| 7 | // Class        Vector3d
 | 
|---|
| 8 | //
 | 
|---|
| 9 | // include      vector3d.h utilgeom.h  longlat.h math.h
 | 
|---|
| 10 | //
 | 
|---|
| 11 | //
 | 
|---|
| 12 | //    3-D geometry. 
 | 
|---|
| 13 | //    All computations are made with angles in radians and with spherical
 | 
|---|
| 14 | //    coordinates theta, phi.
 | 
|---|
| 15 | //
 | 
|---|
| 16 | //    Concerning Euler's angles, the reference is :
 | 
|---|
| 17 | // 
 | 
|---|
| 18 | //    "Classical Mechanics" 2nd edition, H. Goldstein, Addison Wesley
 | 
|---|
| 19 | //--
 | 
|---|
| 20 | //++
 | 
|---|
| 21 | // Titre        Constructors
 | 
|---|
| 22 | //--
 | 
|---|
| 23 | //++
 | 
|---|
| 24 | Vector3d::Vector3d()
 | 
|---|
| 25 | //
 | 
|---|
| 26 | //-- 
 | 
|---|
| 27 | {
 | 
|---|
| 28 |   Setxyz(1.,0.,0.);
 | 
|---|
| 29 | }
 | 
|---|
| 30 | //++
 | 
|---|
| 31 | Vector3d::Vector3d(double x, double y, double z) 
 | 
|---|
| 32 | //
 | 
|---|
| 33 | //-- 
 | 
|---|
| 34 | {
 | 
|---|
| 35 |   _x=x;
 | 
|---|
| 36 |   _y=y;
 | 
|---|
| 37 |   _z=z;
 | 
|---|
| 38 |   xyz2ThetaPhi();
 | 
|---|
| 39 | }
 | 
|---|
| 40 | //++
 | 
|---|
| 41 | Vector3d::Vector3d(double theta, double phi) 
 | 
|---|
| 42 | //
 | 
|---|
| 43 | //-- 
 | 
|---|
| 44 | {
 | 
|---|
| 45 |  // _theta=mod(theta,M_PI); // dans [0;pi]
 | 
|---|
| 46 |  // Version precedente fausse: _theta=M_PI est valide. Or mod(M_PI,M_PI)=0!
 | 
|---|
| 47 |  // De plus theta>pi ou <0 n'a pas de sens. Dominique Yvon
 | 
|---|
| 48 |         if( (theta<0.) || (theta>M_PI) )
 | 
|---|
| 49 |         {       string exmsg = "Wrong initialisation of theta in Vector3d::Vector3d(double theta, double phi)";
 | 
|---|
| 50 |                 throw( ParmError(exmsg) );
 | 
|---|
| 51 |         }
 | 
|---|
| 52 |   _theta=theta; // dans [0;pi]
 | 
|---|
| 53 |   _phi=mod(phi,pi2); // dans [0;2pi]
 | 
|---|
| 54 |   ThetaPhi2xyz();
 | 
|---|
| 55 | }
 | 
|---|
| 56 | //++
 | 
|---|
| 57 | Vector3d::Vector3d(const LongLat& ll)
 | 
|---|
| 58 | //
 | 
|---|
| 59 | //-- 
 | 
|---|
| 60 | {
 | 
|---|
| 61 |   _theta=ll.Theta(); // dans [0;pi]
 | 
|---|
| 62 |   _phi=ll.Phi(); // dans [0;2pi]
 | 
|---|
| 63 |   ThetaPhi2xyz();
 | 
|---|
| 64 | }
 | 
|---|
| 65 | //++
 | 
|---|
| 66 | Vector3d::Vector3d(const Vector3d& v) 
 | 
|---|
| 67 | //
 | 
|---|
| 68 | //-- 
 | 
|---|
| 69 | {
 | 
|---|
| 70 |   _x=v._x;
 | 
|---|
| 71 |   _y=v._y;
 | 
|---|
| 72 |   _z=v._z;
 | 
|---|
| 73 |   _theta=v._theta;
 | 
|---|
| 74 |   _phi=v._phi;
 | 
|---|
| 75 | }
 | 
|---|
| 76 | //++
 | 
|---|
| 77 | // Titre        Public methods
 | 
|---|
| 78 | //--
 | 
|---|
| 79 | //++
 | 
|---|
| 80 | void Vector3d::SetThetaPhi(double theta, double phi)
 | 
|---|
| 81 | //
 | 
|---|
| 82 | //-- 
 | 
|---|
| 83 | {
 | 
|---|
| 84 |   _theta=mod(theta,M_PI);
 | 
|---|
| 85 |   _phi=mod(phi,pi2);
 | 
|---|
| 86 |   ThetaPhi2xyz();
 | 
|---|
| 87 | }
 | 
|---|
| 88 | //++
 | 
|---|
| 89 | void Vector3d::Setxyz(double x, double y, double z) 
 | 
|---|
| 90 | //
 | 
|---|
| 91 | //-- 
 | 
|---|
| 92 | {
 | 
|---|
| 93 |   _x=x;
 | 
|---|
| 94 |   _y=y;
 | 
|---|
| 95 |   _z=z;
 | 
|---|
| 96 |   xyz2ThetaPhi();
 | 
|---|
| 97 | }
 | 
|---|
| 98 | //++
 | 
|---|
| 99 | void Vector3d::ThetaPhi2xyz()
 | 
|---|
| 100 | //
 | 
|---|
| 101 | //-- 
 | 
|---|
| 102 | {
 | 
|---|
| 103 |   _x=sin(_theta)*cos(_phi);
 | 
|---|
| 104 |   _y=sin(_theta)*sin(_phi);
 | 
|---|
| 105 |   _z=cos(_theta);
 | 
|---|
| 106 | }
 | 
|---|
| 107 | //++
 | 
|---|
| 108 | void Vector3d::xyz2ThetaPhi()
 | 
|---|
| 109 | //
 | 
|---|
| 110 | //-- 
 | 
|---|
| 111 | {
 | 
|---|
| 112 |   double norm=this->Norm();
 | 
|---|
| 113 |   if( norm != 0. ) 
 | 
|---|
| 114 |     {
 | 
|---|
| 115 |       _theta=acos(_z/norm); // dans [0,Pi]
 | 
|---|
| 116 |       if( mod(_theta,M_PI) == 0. ) _phi=0.; // on est sur +-Oz, le vecteur z est en phi=0
 | 
|---|
| 117 |       //      else _phi=acos(_x/sin(_theta)/norm)+M_PI*(_y<0);
 | 
|---|
| 118 |       else _phi=scangle(_y/sin(_theta)/norm,_x/sin(_theta)/norm);
 | 
|---|
| 119 |     }
 | 
|---|
| 120 |   else // vecteur nul
 | 
|---|
| 121 |     {
 | 
|---|
| 122 |       _theta=0.;
 | 
|---|
| 123 |       _phi=0.;
 | 
|---|
| 124 |     }
 | 
|---|
| 125 | }
 | 
|---|
| 126 | //++
 | 
|---|
| 127 | Vector3d& Vector3d::Normalize() 
 | 
|---|
| 128 | //
 | 
|---|
| 129 | //-- 
 | 
|---|
| 130 | {
 | 
|---|
| 131 |   double norm=this->Norm();
 | 
|---|
| 132 |   if( norm != 0. )  (*this)/=norm;
 | 
|---|
| 133 |   else cerr << "Division par zero" << endl;
 | 
|---|
| 134 |   return *this;
 | 
|---|
| 135 | } 
 | 
|---|
| 136 | //++
 | 
|---|
| 137 | double Vector3d::Norm() const 
 | 
|---|
| 138 | //
 | 
|---|
| 139 | //-- 
 | 
|---|
| 140 | {
 | 
|---|
| 141 |   return sqrt(_x*_x+_y*_y+_z*_z);
 | 
|---|
| 142 | }
 | 
|---|
| 143 | //++
 | 
|---|
| 144 | double Vector3d::Psc(const Vector3d& v) const 
 | 
|---|
| 145 | //
 | 
|---|
| 146 | //    dot product
 | 
|---|
| 147 | //-- 
 | 
|---|
| 148 | {
 | 
|---|
| 149 |   return _x*v._x+_y*v._y+_z*v._z;
 | 
|---|
| 150 | }
 | 
|---|
| 151 | //++
 | 
|---|
| 152 | double Vector3d::SepAngle(const Vector3d& v) const 
 | 
|---|
| 153 | //
 | 
|---|
| 154 | //    angular gap between 2 vectors in [0,Pi]
 | 
|---|
| 155 | //-- 
 | 
|---|
| 156 | {
 | 
|---|
| 157 |   double n1=this->Norm();
 | 
|---|
| 158 |   double n2=v.Norm();
 | 
|---|
| 159 |   double ret;
 | 
|---|
| 160 |   if( n1!=0. && n2!=0. ) ret=acos((this->Psc(v))/n1/n2);
 | 
|---|
| 161 |   else 
 | 
|---|
| 162 |     {
 | 
|---|
| 163 |       cerr << "Division par zero" << endl;
 | 
|---|
| 164 |       ret=0.;
 | 
|---|
| 165 |     }
 | 
|---|
| 166 |   return ret;
 | 
|---|
| 167 | }
 | 
|---|
| 168 | //++
 | 
|---|
| 169 | Vector3d Vector3d::Vect(const Vector3d& v) const 
 | 
|---|
| 170 | //
 | 
|---|
| 171 | //    vector product
 | 
|---|
| 172 | //-- 
 | 
|---|
| 173 | {
 | 
|---|
| 174 |   double xo=_y*v._z-_z*v._y;
 | 
|---|
| 175 |   double yo=_z*v._x-_x*v._z;
 | 
|---|
| 176 |   double zo=_x*v._y-_y*v._x;
 | 
|---|
| 177 |   return Vector3d(xo,yo,zo);
 | 
|---|
| 178 | }
 | 
|---|
| 179 | //++
 | 
|---|
| 180 | Vector3d Vector3d::VperpPhi() const 
 | 
|---|
| 181 | //
 | 
|---|
| 182 | //    perpendicular vector, with equal phi
 | 
|---|
| 183 | //-- 
 | 
|---|
| 184 | {
 | 
|---|
| 185 |   double theta;
 | 
|---|
| 186 |   if( _theta != pi_over_2 ) theta=_theta+(0.5-(_theta>pi_over_2))*M_PI; // on tourne theta de +-pi/2
 | 
|---|
| 187 |   else theta=0.;
 | 
|---|
| 188 |   return Vector3d(theta,_phi);
 | 
|---|
| 189 | }
 | 
|---|
| 190 | //++
 | 
|---|
| 191 | Vector3d Vector3d::VperpTheta() const 
 | 
|---|
| 192 | //
 | 
|---|
| 193 | //    perpendicular vector with equal theta
 | 
|---|
| 194 | //-- 
 | 
|---|
| 195 | { cerr<< " Erreur in Vector3d::VperpTheta()"<<endl;
 | 
|---|
| 196 |   throw PError("Vector3d::VperpTheta() - Logic Error DY/Reza 20/02/2000"); 
 | 
|---|
| 197 |   // Bug ??? (D. Yvon, Fevrier 2000)
 | 
|---|
| 198 |   //  double phi=mod(_phi+pi_over_2,pi2); // on tourne phi de pi/2
 | 
|---|
| 199 |   //  return Vector3d(_theta,phi);
 | 
|---|
| 200 | }
 | 
|---|
| 201 | 
 | 
|---|
| 202 | Vector3d Vector3d::EPhi() const 
 | 
|---|
| 203 | {
 | 
|---|
| 204 |   Vector3d temp;
 | 
|---|
| 205 |   if ( fabs(_z) == 1. ) // si on est en +- Oz
 | 
|---|
| 206 |     {
 | 
|---|
| 207 |       temp=Vector3d(1.,0.,0.);
 | 
|---|
| 208 |     }
 | 
|---|
| 209 |   else 
 | 
|---|
| 210 |     {
 | 
|---|
| 211 |       Vector3d k(0,0,-1);
 | 
|---|
| 212 |       temp=this->Vect(k);
 | 
|---|
| 213 |       temp.Normalize();
 | 
|---|
| 214 |     }
 | 
|---|
| 215 |   return temp;
 | 
|---|
| 216 | }
 | 
|---|
| 217 | //++
 | 
|---|
| 218 | Vector3d Vector3d::ETheta() const 
 | 
|---|
| 219 | //
 | 
|---|
| 220 | //-- 
 | 
|---|
| 221 | {
 | 
|---|
| 222 |   Vector3d temp=this->Vect(EPhi());
 | 
|---|
| 223 |   temp.Normalize();
 | 
|---|
| 224 |   return temp;
 | 
|---|
| 225 | }
 | 
|---|
| 226 | 
 | 
|---|
| 227 | //++
 | 
|---|
| 228 | Vector3d Vector3d::Euler(double phi, double theta, double psi) const 
 | 
|---|
| 229 | //
 | 
|---|
| 230 | //    Euler's rotations
 | 
|---|
| 231 | //-- 
 | 
|---|
| 232 | {
 | 
|---|
| 233 |   double cpsi=cos(psi);
 | 
|---|
| 234 |   double ctheta=cos(theta);
 | 
|---|
| 235 |   double cphi=cos(phi);
 | 
|---|
| 236 |   double spsi=sin(psi);
 | 
|---|
| 237 |   double stheta=sin(theta);
 | 
|---|
| 238 |   double sphi=sin(phi);
 | 
|---|
| 239 |   double xnew=(cpsi*cphi-ctheta*sphi*spsi)*_x
 | 
|---|
| 240 |     +(cpsi*sphi+ctheta*cphi*spsi)*_y
 | 
|---|
| 241 |     +spsi*stheta*_z;
 | 
|---|
| 242 |   double ynew=(-spsi*cphi-ctheta*sphi*cpsi)*_x
 | 
|---|
| 243 |     +(-spsi*sphi+ctheta*cphi*cpsi)*_y
 | 
|---|
| 244 |     +cpsi*stheta*_z;
 | 
|---|
| 245 |   double znew=stheta*sphi*_x-stheta*cphi*_y+ctheta*_z;
 | 
|---|
| 246 |   return Vector3d(xnew,ynew,znew);
 | 
|---|
| 247 | }
 | 
|---|
| 248 | //++
 | 
|---|
| 249 | Vector3d Vector3d::InvEuler(double phi, double theta, double psi) const 
 | 
|---|
| 250 | //
 | 
|---|
| 251 | //    inverse rotation
 | 
|---|
| 252 | //-- 
 | 
|---|
| 253 | {
 | 
|---|
| 254 |   double cpsi=cos(psi);
 | 
|---|
| 255 |   double ctheta=cos(theta);
 | 
|---|
| 256 |   double cphi=cos(phi);
 | 
|---|
| 257 |   double spsi=sin(psi);
 | 
|---|
| 258 |   double stheta=sin(theta);
 | 
|---|
| 259 |   double sphi=sin(phi);
 | 
|---|
| 260 |   double xnew=(cpsi*cphi-ctheta*sphi*spsi)*_x
 | 
|---|
| 261 |     -(spsi*cphi+ctheta*sphi*cpsi)*_y
 | 
|---|
| 262 |     +sphi*stheta*_z;
 | 
|---|
| 263 |   double ynew=(cpsi*sphi+ctheta*cphi*spsi)*_x
 | 
|---|
| 264 |     +(-spsi*sphi+ctheta*cphi*cpsi)*_y
 | 
|---|
| 265 |     -cphi*stheta*_z;
 | 
|---|
| 266 |   double znew=stheta*spsi*_x+stheta*cpsi*_y+ctheta*_z;
 | 
|---|
| 267 |   return Vector3d(xnew,ynew,znew);
 | 
|---|
| 268 | }
 | 
|---|
| 269 | //++
 | 
|---|
| 270 | Vector3d Vector3d::Rotate(const Vector3d& omega, double phi) const
 | 
|---|
| 271 | //
 | 
|---|
| 272 | //    rotation of angle phi around an axis omega (Maxwell's rule)
 | 
|---|
| 273 | //-- 
 | 
|---|
| 274 | {
 | 
|---|
| 275 |   Vector3d rotationaxis=omega;
 | 
|---|
| 276 |   rotationaxis.Normalize();
 | 
|---|
| 277 |   double n=this->Psc(rotationaxis);
 | 
|---|
| 278 |   Vector3d myself=*this;
 | 
|---|
| 279 |   Vector3d rotate=n*rotationaxis+(myself-n*rotationaxis)*cos(phi)-(myself^rotationaxis)*sin(phi);
 | 
|---|
| 280 |   return rotate;
 | 
|---|
| 281 | } 
 | 
|---|
| 282 | //++  
 | 
|---|
| 283 | void Vector3d::Print(ostream& os) const 
 | 
|---|
| 284 | //
 | 
|---|
| 285 | //--
 | 
|---|
| 286 | {
 | 
|---|
| 287 |   os << "Vector3: (X,Y,Z)= (" << _x << ", " << _y << ", " << _z 
 | 
|---|
| 288 |      << ") --- Theta,Phi= " << _theta << ", " << _phi << "\n"
 | 
|---|
| 289 |      << "Norme = " << this->Norm() << endl;
 | 
|---|
| 290 | }
 | 
|---|
| 291 | //++
 | 
|---|
| 292 | // Titre        Operators
 | 
|---|
| 293 | //--
 | 
|---|
| 294 | //++
 | 
|---|
| 295 | Vector3d& Vector3d::operator += (const Vector3d& v) 
 | 
|---|
| 296 | //
 | 
|---|
| 297 | //-- 
 | 
|---|
| 298 | {
 | 
|---|
| 299 |   *this=*this+v;
 | 
|---|
| 300 |   return *this;
 | 
|---|
| 301 | }
 | 
|---|
| 302 | //++
 | 
|---|
| 303 | Vector3d& Vector3d::operator -= (const Vector3d& v) 
 | 
|---|
| 304 | //
 | 
|---|
| 305 | //-- 
 | 
|---|
| 306 | {
 | 
|---|
| 307 |   *this=*this-v;
 | 
|---|
| 308 |   return *this;
 | 
|---|
| 309 | }
 | 
|---|
| 310 | //++
 | 
|---|
| 311 | Vector3d& Vector3d::operator += (double d) 
 | 
|---|
| 312 | //
 | 
|---|
| 313 | //-- 
 | 
|---|
| 314 | {
 | 
|---|
| 315 |   Setxyz(_x+d,_y+d,_z+d);
 | 
|---|
| 316 |   return *this;
 | 
|---|
| 317 | }
 | 
|---|
| 318 | //++
 | 
|---|
| 319 | Vector3d& Vector3d::operator /= (double d) 
 | 
|---|
| 320 | //
 | 
|---|
| 321 | //-- 
 | 
|---|
| 322 | {
 | 
|---|
| 323 |   if( d != 0. ) Setxyz(_x/d,_y/d,_z/d);
 | 
|---|
| 324 |   else cerr << "Division par zero." << endl;
 | 
|---|
| 325 |   return *this;
 | 
|---|
| 326 | }
 | 
|---|
| 327 | //++
 | 
|---|
| 328 | Vector3d& Vector3d::operator *= (double d) 
 | 
|---|
| 329 | //
 | 
|---|
| 330 | //-- 
 | 
|---|
| 331 | {
 | 
|---|
| 332 |   Setxyz(_x*d,_y*d,_z*d);
 | 
|---|
| 333 |   return *this;
 | 
|---|
| 334 | }
 | 
|---|
| 335 | //++
 | 
|---|
| 336 | Vector3d Vector3d::operator ^ (const Vector3d& v) const 
 | 
|---|
| 337 | //
 | 
|---|
| 338 | //    vector product
 | 
|---|
| 339 | //-- 
 | 
|---|
| 340 | {
 | 
|---|
| 341 |   return this->Vect(v);
 | 
|---|
| 342 | }
 | 
|---|
| 343 | //++
 | 
|---|
| 344 | Vector3d Vector3d::operator + (double d) const 
 | 
|---|
| 345 | //
 | 
|---|
| 346 | //-- 
 | 
|---|
| 347 | {
 | 
|---|
| 348 |   return Vector3d(_x+d,_y+d,_z+d);
 | 
|---|
| 349 | }
 | 
|---|
| 350 | //++
 | 
|---|
| 351 | Vector3d Vector3d::operator + (const Vector3d& v) const 
 | 
|---|
| 352 | //
 | 
|---|
| 353 | //-- 
 | 
|---|
| 354 | {
 | 
|---|
| 355 |   return Vector3d(_x+v._x,_y+v._y,_z+v._z);
 | 
|---|
| 356 | }
 | 
|---|
| 357 | //++
 | 
|---|
| 358 | Vector3d Vector3d::operator - (double d) const 
 | 
|---|
| 359 | //
 | 
|---|
| 360 | //-- 
 | 
|---|
| 361 | {
 | 
|---|
| 362 |   return *this+(-d);
 | 
|---|
| 363 | }
 | 
|---|
| 364 | //++
 | 
|---|
| 365 | Vector3d Vector3d::operator - (const Vector3d& v) const 
 | 
|---|
| 366 | //
 | 
|---|
| 367 | //-- 
 | 
|---|
| 368 | {
 | 
|---|
| 369 |   return *this+(v*(-1.));
 | 
|---|
| 370 | }
 | 
|---|
| 371 | //++
 | 
|---|
| 372 | Vector3d Vector3d::operator * (double d) const 
 | 
|---|
| 373 | //
 | 
|---|
| 374 | //-- 
 | 
|---|
| 375 | {
 | 
|---|
| 376 |   return Vector3d(d*_x,d*_y,d*_z);
 | 
|---|
| 377 | }
 | 
|---|
| 378 | //++
 | 
|---|
| 379 | double Vector3d::operator * (const Vector3d& v) const 
 | 
|---|
| 380 | //
 | 
|---|
| 381 | //    dot product
 | 
|---|
| 382 | //-- 
 | 
|---|
| 383 | {
 | 
|---|
| 384 |   return this->Psc(v);
 | 
|---|
| 385 | }
 | 
|---|
| 386 | //++
 | 
|---|
| 387 | Vector3d Vector3d::operator / (double d) const 
 | 
|---|
| 388 | //
 | 
|---|
| 389 | //-- 
 | 
|---|
| 390 | {
 | 
|---|
| 391 |   Vector3d ret=*this;
 | 
|---|
| 392 |   if( d != 0. ) ret/=d;
 | 
|---|
| 393 |   else  cerr << "Division par zero." << endl;
 | 
|---|
| 394 |   return ret;
 | 
|---|
| 395 | }
 | 
|---|
| 396 | //++
 | 
|---|
| 397 | Vector3d& Vector3d::operator = (const Vector3d& v) 
 | 
|---|
| 398 | //
 | 
|---|
| 399 | //-- 
 | 
|---|
| 400 | {
 | 
|---|
| 401 |   if( this != &v ) 
 | 
|---|
| 402 |     {
 | 
|---|
| 403 |       _x=v._x; 
 | 
|---|
| 404 |       _y=v._y; 
 | 
|---|
| 405 |       _z=v._z; 
 | 
|---|
| 406 |       _theta=v._theta; 
 | 
|---|
| 407 |       _phi=v._phi;
 | 
|---|
| 408 |     }
 | 
|---|
| 409 |   return *this;
 | 
|---|
| 410 | }
 | 
|---|
| 411 | //++
 | 
|---|
| 412 | bool Vector3d::operator == (const Vector3d& v) 
 | 
|---|
| 413 | //
 | 
|---|
| 414 | //-- 
 | 
|---|
| 415 | {
 | 
|---|
| 416 |   return (this==&v);
 | 
|---|
| 417 | }
 | 
|---|
| 418 | 
 | 
|---|