git-svn-id: svn://db.shs.com.ru/pip@372 12ceb7fc-bf1f-11e4-8940-5bc7170c53b5

This commit is contained in:
2017-04-17 12:16:05 +00:00
parent 2c68e66568
commit 82f6edf345
6 changed files with 19 additions and 25 deletions

View File

@@ -19,6 +19,7 @@
#include "pimathbase.h"
#include "pitime.h"
#include <stdlib.h>
double piJ0(const double & v) {
@@ -472,3 +473,14 @@ double randomn(double dv, double sv) {
v0 = v0 * sqrt(-2 * log(s) / s);
return v0 * sv + dv;
}
double randomd() {
return (double)
#ifdef QNX
rand()
#else
random()
#endif
/ RAND_MAX * 2. - 1.;
}

View File

@@ -167,13 +167,7 @@ inline PIByteArray & operator >>(PIByteArray & s, complexld & v) {ldouble t0, t1
void randomize();
// [-1 ; 1]
inline double randomd() {return (double)
#ifdef QNX
rand()
#else
random()
#endif
/ RAND_MAX * 2. - 1.;}
double randomd();
// [-1 ; 1] normal
double randomn(double dv = 0., double sv = 1.);