GRASS Programmer's Manual  6.4.2(2012)
rst/interp_float/distance.c
Go to the documentation of this file.
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 }
 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines