[GRASS-SVN] r69877 - grass/trunk/raster/r.texture

[svn_grass at osgeo.org]

Author: mmetz
Date: 2016-11-23 05:19:33 -0800 (Wed, 23 Nov 2016)
New Revision: 69877

Modified:
   grass/trunk/raster/r.texture/h_measure.c
Log:
r.texture: fix r11641, fix f4_var

Modified: grass/trunk/raster/r.texture/h_measure.c
===================================================================
--- grass/trunk/raster/r.texture/h_measure.c	2016-11-23 07:33:59 UTC (rev 69876)
+++ grass/trunk/raster/r.texture/h_measure.c	2016-11-23 13:19:33 UTC (rev 69877)
@@ -489,7 +489,7 @@
 
     for (i = 0; i < Ng; i++)
 	for (j = 0; j < Ng; j++)
-	    var += (tone[i] - mean) * (tone[j] - mean) * P[i][j];
+	    var += (tone[i] - mean) * (tone[i] - mean) * P[i][j];
 
     return var;
 }
@@ -670,7 +670,7 @@
     }
 
     /* fprintf(stderr,"hx=%f\thxy2=%f\n",hx,hxy2); */
-    return (sqrt(abs(1 - exp(-2.0 * (hxy2 - hxy)))));
+    return (sqrt(fabs(1 - exp(-2.0 * (hxy2 - hxy)))));
 }
 
 float *vector(int n)