/*
 * Copyright (1987) Jeff Elman.  University of California, San Diego
 * This software may be redistributed without charge; this notice
 * should be preserved.
 */

/*
 * squash.c
 *
 * return activation, given input
 */

float 
squash(m)
	float  m;
{
	extern	double exp();
	float	x;
	float	p;
	p = (float) exp(0.0 - m);
	x = 1.0 / (1.0 + p);
	return (x);
}