Changeset 345 in Sophya for trunk/SophyaPI/PIext/servnobjm.cc

Timestamp:

Aug 3, 1999, 10:25:50 AM (26 years ago)

Author:

ercodmgr

Message:

Petits bugs - Reza 03/08/99

File:

• trunk/SophyaPI/PIext/servnobjm.cc (modified) (2 diffs)

trunk/SophyaPI/PIext/servnobjm.cc

@@ -778 +778 @@
 fputs(" { \n double x,A,B; \n LAB10: \n A = drand01(); \n", fip);
 fputs(" if ( A == 0. ) goto LAB10; \n B = drand01(); \n", fip);
-fputs(" x = sqrt(-2.*log(A))*cos(M_2PI*B); \n", fip);
+fputs(" x = sqrt(-2.*log(A))*cos(2.*M_PI*B); \n", fip);
 fputs(" return(x); \n } \n", fip);
 fputs("#define GauRand() NorRand() \n", fip);
@@ -1425 +1425 @@
 fputs(" { \n double x,A,B; \n LAB10: \n A = drand01(); \n", fip);
 fputs(" if ( A == 0. ) goto LAB10; \n B = drand01(); \n", fip);
-fputs(" x = sqrt(-2.*log(A))*cos(M_2PI*B); \n", fip);
+fputs(" x = sqrt(-2.*log(A))*cos(2.*M_PI*B); \n", fip);
 fputs(" return(x); \n } \n", fip);
 fputs("#define GauRand() NorRand() \n", fip);