Changeset 3099 in Sophya for trunk/SophyaLib/BaseTools/srandgen.h

Timestamp:

Nov 2, 2006, 3:37:05 PM (19 years ago)

Author:

ansari

Message:

Ajout PoissRand() + classe RandomGenerator / doc ds srandgen.h .cc , Reza 02/11/2006

File:

• trunk/SophyaLib/BaseTools/srandgen.h (modified) (5 diffs)

trunk/SophyaLib/BaseTools/srandgen.h

@@ -8 +8 @@
 #include "machdefs.h"
 #include <stdlib.h>
-#ifdef __MWERKS__
-#include "unixmac.h"
-#endif
 
+/* ------- SPECIFIQUE Mac Darwin OSX  <= 10.2 (gcc < 3.x) -------- */
 #if defined(Darwin) &&  defined(__GNUC__) && (__GNUC__ < 3)
 #include "osx_values.h"
@@ -27 +25 @@
 #define drand48() ((double)(random())/LONG_MAX)
 #endif
+/* ------- FIN SPECIFIQUE Mac OSX / Darwin V <= 10.2 --------- */
 
+#ifdef __cplusplus
+/* Declaration en fonctions inlines pour du C++ */
+inline float frand01() { return ( (float) drand48() ); }
+inline double drand01() { return ( drand48() ); }
+inline double ranf01() { return ( drand48() ); }
+
+inline float frandpm1() { return ( 2. * (float) drand48()  - 1.); }
+inline double drandpm1() { return ( 2. * drand48() - 1.); }
+inline double ranfpm1() { return ( 2. * drand48() - 1.); }
+#else
+/* les memes en define pour du C */
 #define frand01() ( (float) drand48() )
 #define drand01() ( drand48() )
@@ -35 +45 @@
 #define drandpm1() ( 2. * drand01() - 1.)
 #define ranfpm1() drandpm1()
+#endif
 
 struct tirage_alea {
@@ -62 +73 @@
             ,double mx,double my,double sa,double sb,double teta);
 
+int PoissRand(double mu);
+
 TIREALEA *init_tirage_alea(int nbin,double xmin,double xmax,double (*fonc) (double));
 double tirage_alea(TIREALEA *alea);
@@ -70 +83 @@
 #endif
 
+/* -- Declaration d'une classe pour la centralier la doc -- Oct 2006 */
+#ifdef __cplusplus
+namespace SOPHYA {
+class RandomGenerator {
+ public:
+  /*! \brief Automatic initialization through Auto_Ini_Ranf() */
+  static inline void AutoInit(int lp=0) { Auto_Ini_Ranf(lp); return; } 
+  /*! \brief Return a random number \b r with a flat distribution  0<=r<=1 */ 
+  static inline double Flat01() { return drand48(); }
+  /*! \brief Return a random number \b r with a flat distribution  -1<=r<=1 */ 
+  static inline double Flatpm1() { return drandpm1(); }
+  /*! \brief Return a random number following a zero mean gaussian distribution  */ 
+  static inline double Gaussian(double sigma=1.) { return GauRnd(0., sigma); }
+  /*! \brief Return a random number following a Poisson distribution with mean \b mu  */ 
+  static inline int    Poisson(double mu) { return PoissRand(mu); }
+};
+} /* namespace SOPHYA */
 #endif
 
+#endif
+