source: Sophya/trunk/SophyaExt/XephemAstroLib/vector.h@ 4020

Last change on this file since 4020 was 4017, checked in by cmv, 14 years ago

fichiers de Xephem 3.7.5 update, cmv 21/09/2011
File size: 704 bytes
RevLine 
[1457]1#ifndef __SATVECTOR_H
2#define __SATVECTOR_H
3
[4017]4/* $Id: vector.h,v 1.9 2011-09-21 16:17:51 cmv Exp $ */
[1457]5
6#define dotp(A,B) ((A).x*(B).x+(A).y*(B).y+(A).z*(B).z)
7
8#define crossp(A,B,C) {(C).x=(A).y*(B).z-(A).z*(B).y;(C).y=(A).z*(B).x-(A).x*(B).z;(C).z=(A).x*(B).y-(A).y*(B).x;}
9
10#define vecabs(V) (sqrt((V).x*(V).x+(V).y*(V).y+(V).z*(V).z))
11#define vecsq(V) ((V).x*(V).x+(V).y*(V).y+(V).z*(V).z)
12#define vecsub(A,B,C) {(C).x=(A).x-(B).x;(C).y=(A).y-(B).y;(C).z=(A).z-(B).z;}
13#define vecscale(A,k) {(A).x*=(k);(A).y*=(k);(A).z*=(k);}
14
15#endif /* __SATVECTOR_H */
16
17/* For RCS Only -- Do Not Edit
[4017]18 * @(#) $RCSfile: vector.h,v $ $Date: 2011-09-21 16:17:51 $ $Revision: 1.9 $ $Name: not supported by cvs2svn $
[1457]19 */
Note: See TracBrowser for help on using the repository browser.