GRASS Programmer's Manual
6.4.2(2012)
|
00001 00002 /*- 00003 * Written by H. Mitasova, I. Kosinovsky, D. Gerdes Fall 1993 00004 * US Army Construction Engineering Research Lab 00005 * Copyright 1993, H. Mitasova (University of Illinois), 00006 * I. Kosinovsky, (USA-CERL), and D.Gerdes (USA-CERL) 00007 * 00008 * modified by McCauley in August 1995 00009 * modified by Mitasova in August 1995 00010 * 00011 */ 00012 00013 #include <stdio.h> 00014 #include <math.h> 00015 #include <unistd.h> 00016 #include <grass/gis.h> 00017 #include <grass/interpf.h> 00018 00019 double IL_dist_square(double *pt1, double *pt2, int dim) 00020 { 00021 int i; 00022 double sum = 0, s; 00023 00024 for (i = 0; i < dim; i++) { 00025 s = pt1[i] - pt2[i]; 00026 sum += s * s; 00027 } 00028 return sum; 00029 }