[GRASS-SVN] r34153 - grass/trunk/imagery/i.vi

[svn_grass at osgeo.org]

Author: ychemin
Date: 2008-11-03 06:59:41 -0500 (Mon, 03 Nov 2008)
New Revision: 34153

Modified:
   grass/trunk/imagery/i.vi/i.vi.html
   grass/trunk/imagery/i.vi/vari.c
Log:
added VARI

Modified: grass/trunk/imagery/i.vi/i.vi.html
===================================================================
--- grass/trunk/imagery/i.vi/i.vi.html	2008-11-03 11:44:21 UTC (rev 34152)
+++ grass/trunk/imagery/i.vi/i.vi.html	2008-11-03 11:59:41 UTC (rev 34153)
@@ -130,6 +130,15 @@
 </pre>
 
 <pre>
+VARI: Visible Atmospherically Resistant Index
+VARI = (green - red ) / (green + red - blue)
+it was designed to introduce an atmospheric self-correction 
+Gitelson A.A., Kaufman Y.J., Stark R., Rundquist D., 2002.
+Novel algorithms for estimation of vegetation fraction 
+Remote Sensing of Environment (80), pp76-87. 
+</pre>
+
+<pre>
 WDVI: Weighted Difference Vegetation Index
 WDVI = nirchan - a * redchan
 if(soil_weight_line == None):

Modified: grass/trunk/imagery/i.vi/vari.c
===================================================================
--- grass/trunk/imagery/i.vi/vari.c	2008-11-03 11:44:21 UTC (rev 34152)
+++ grass/trunk/imagery/i.vi/vari.c	2008-11-03 11:59:41 UTC (rev 34153)
@@ -2,17 +2,19 @@
 #include<math.h>
 #include<stdlib.h>
 
-    /*VARI: ? */ 
-double va_ri(double redchan, double nirchan, double bluechan,
+/*VARI: Visible Atmospherically Resistant Index */ 
+double va_ri(double redchan, double bluechan,
 	      double greenchan) 
 {
+/* VARI is the Visible Atmospherically Resistant Index, it was 
+ * designed to introduce an atmospheric self-correction 
+ * Gitelson A.A., Kaufman Y.J., Stark R., Rundquist D., 2002.
+ * Novel algorithms for estimation of vegetation fraction 
+ * Remote Sensing of Environment (80), pp76-87.  */
     double result;
-
-     {
-
-    G_fatal_error("Not yet implemented");
-
-    } return result;
+    result = (greenchan - redchan ) / (greenchan + 
+		redchan - bluechan);
+    return result;
 }