Changeset 581

Timestamp:

08/22/09 17:57:15 (15 years ago)

Author:

vbarta

Message:

using long long in RandunStorage?; test passes

Location:

library

Files:

• bdm/itpp_ext.cpp (modified) (1 diff)
• tests/randun_test.cpp (modified) (2 diffs)

library/bdm/itpp_ext.cpp

@@ -386 +386 @@
                 void set_seed(double seed0){seed=seed0;}
                 double get(){
-                        int tmp=mod(A*seed,M); 
-                        seed =tmp;
+                        long long tmp = A * seed;
+                        tmp = tmp % M;
+                        seed = tmp;
                         counter++; 
                         return seed/M;}

library/tests/randun_test.cpp

@@ -4 +4 @@
 #include "mat_checks.h"
 using namespace itpp;
-
-#define BDMLIB
 
  TEST(test_randun) {
@@ -15 +13 @@
         //ASSUMING randun was not used yet!
          vec x = randun(10);
-         CHECK_CLOSE_EX(x,matlab_out, 1e-6*ones(10));
+         CHECK_CLOSE(matlab_out, x, 1e-6);
  }