Geografic-Information-System/lib/gmath/getg.c

/*      Name:   getg.c
 *
 * Created:        Thu May 29 00:37:44 1986
 * Last modified:  Sat May 31 20:34:30 1986
 *
 * Purpose:        Get the laplacian of a Gaussian (not normalized).
 *
 * Author:         Bill Hoff,2-114C,8645,3563478 (hoff) at uicsl
 */

#include <stdio.h>
#include <math.h>
#include <grass/gmath.h>


int getg(double w, double *g[2], int size)
{
    long i, j, totsize, n, g_row;
    float rsq, sigma, two_ssq, val, sum = 0.0;

    totsize = size * size;
    n = size / 2;
    for (i = 0; i < totsize; i++) {
	*(g[0] + i) = 0.0;
	*(g[1] + i) = 0.0;
    }

    sigma = w / (2.0 * sqrt((double)2.0));
    two_ssq = 2.0 * sigma * sigma;
    for (i = 0; i < n; i++) {
	g_row = i * size;	/* start of row */
	for (j = 0; j < n; j++) {
	    rsq = i * i + j * j;
	    val = (rsq / two_ssq - 1) * exp(-rsq / two_ssq);
	    *(g[0] + g_row + j) = val;
	    sum += val;
	    /* reflect into other quadrants */
	    if (j > 0) {
		*(g[0] + g_row + (size - j)) = val;
		sum += val;
	    }
	    if (i > 0) {
		*(g[0] + (size - i) * size + j) = val;
		sum += val;
	    }
	    if (i > 0 && j > 0) {
		*(g[0] + (size - i) * size + (size - j)) = val;
		sum += val;
	    }
	}
    }

    *(g[0] + 0) -= sum;		/* make sure sum of all values is zero */

    return 0;
}