[paparazzi-commits] [4535] fix sign for wind estimation confidence

[Pascal Brisset]

Revision: 4535
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=4535
Author:   hecto
Date:     2010-02-03 16:39:41 +0000 (Wed, 03 Feb 2010)
Log Message:
-----------
 fix sign for wind estimation confidence

Modified Paths:
--------------
    paparazzi3/trunk/sw/ground_segment/tmtc/wind.ml

Modified: paparazzi3/trunk/sw/ground_segment/tmtc/wind.ml
===================================================================
--- paparazzi3/trunk/sw/ground_segment/tmtc/wind.ml     2010-02-03 16:35:14 UTC 
(rev 4534)
+++ paparazzi3/trunk/sw/ground_segment/tmtc/wind.ml     2010-02-03 16:39:41 UTC 
(rev 4535)
@@ -155,7 +155,7 @@
   let wind = simplex wind_init cost step max_iter precision in
 
   let (mean, _, _) = mean wind.p in
-  (wind.p, mean, wind.f)
+  (wind.p, mean, -.wind.f)
 
 
 (* val wind : Geometry_2d.pt_2D -> Geometry_2d.pt_2D array -> float
@@ -182,7 +182,7 @@
   let step = 2. and max_iter = 100 in
   let wind = simplex wind_init cost step max_iter precision in
 
-  (wind.p, mean wind.p, wind.f)
+  (wind.p, mean wind.p, -.wind.f)
 
 type wind_ac = {
     speeds : Geometry_2d.pt_2D option array;