solstice-solver

commit d6c941783611937ccfca5e95634a9d9431f48bda
parent d73cf57deda18f1da3927cb1d8eee2d1eddbd610
Author: Christophe Coustet <christophe.coustet@meso-star.com>
Date:   Thu, 29 Sep 2016 13:58:34 +0200

BugFix: wrong attenuation check in test solver #1

Diffstat:
M
src/test_ssol_solver1.c
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/test_ssol_solver1.c b/src/test_ssol_solver1.c
@@ -246,7 +246,7 @@ main(int argc, char** argv)
   CHECK(pp_sum(tmp, "cible", N, &m, &std), RES_OK);
   logger_print(&logger, LOG_OUTPUT, "\nP = %g +/- %g\n", m, std);
   CHECK(fclose(tmp), 0);
-#define K (exp(-0.1 * 2 * sqrt(2)))
+#define K (exp(-0.1 * 4 * sqrt(2)))
   CHECK(eq_eps(m, 4 * K * DNI_cos, 4 * K * DNI_cos * 1e-4), 1);
   CHECK(eq_eps(std, 0, 1e-4), 1);
 
@@ -265,8 +265,8 @@ main(int argc, char** argv)
   CHECK(pp_sum(tmp, "cible", N, &m, &std), RES_OK);
   logger_print(&logger, LOG_OUTPUT, "\nP = %g +/- %g\n", m, std);
   CHECK(fclose(tmp), 0);
-#define K2 (exp(-0.121 * 2 * sqrt(2)))
-  CHECK(eq_eps(m, 4 * K2 * DNI_cos, 4 * DNI_cos * 1e-4), 1);
+#define K2 (exp(-0.121 * 4 * sqrt(2)))
+  CHECK(eq_eps(m, 4 * K2 * DNI_cos, 4 * K2 * DNI_cos * 1e-4), 1);
   CHECK(eq_eps(std, 0, 1e-4), 1);
 
   /* free data */