File: distance.c

package info (click to toggle)
grass 6.0.2-6
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 40,044 kB
  • ctags: 31,303
  • sloc: ansic: 321,125; tcl: 25,676; sh: 11,176; cpp: 10,098; makefile: 5,025; fortran: 1,846; yacc: 493; lex: 462; perl: 133; sed: 1
file content (30 lines) | stat: -rw-r--r-- 602 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
/*-
 * Written by H. Mitasova, I. Kosinovsky, D. Gerdes Fall 1993 
 * US Army Construction Engineering Research Lab 
 * Copyright 1993, H. Mitasova (University of Illinois),
 * I. Kosinovsky, (USA-CERL), and D.Gerdes (USA-CERL) 
 *
 * modified by McCauley in August 1995
 * modified by Mitasova in August 1995 
 *
 */

#include <stdio.h>
#include <math.h>
#include <unistd.h>
#include "gis.h"
#include "interpf.h"

double 
IL_dist_square (double *pt1, double *pt2, int dim)
{
  int i;
  double sum = 0, s;

  for (i = 0; i < dim; i++)
  {
    s = pt1[i] - pt2[i];
    sum += s * s;
  }
  return sum;
}