[GRASS-SVN] r69879 - grass/branches/releasebranch_7_0/raster/r.texture

svn_grass at osgeo.org svn_grass at osgeo.org
Wed Nov 23 05:20:43 PST 2016


Author: mmetz
Date: 2016-11-23 05:20:43 -0800 (Wed, 23 Nov 2016)
New Revision: 69879

Modified:
   grass/branches/releasebranch_7_0/raster/r.texture/h_measure.c
Log:
r.texture: fix r11641, fix f4_var (backport from trunk r69877)

Modified: grass/branches/releasebranch_7_0/raster/r.texture/h_measure.c
===================================================================
--- grass/branches/releasebranch_7_0/raster/r.texture/h_measure.c	2016-11-23 13:20:20 UTC (rev 69878)
+++ grass/branches/releasebranch_7_0/raster/r.texture/h_measure.c	2016-11-23 13:20:43 UTC (rev 69879)
@@ -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)



More information about the grass-commit mailing list