src/pj_tsfn.c


1
2
3
4
5
6
7
8
9
10

/* determine small t */
#include <math.h>
#include <projects.h>

	double
pj_tsfn(double phi, double sinphi, double e) {
	sinphi *= e;
	return (tan (.5 * (M_HALFPI - phi)) /
	   pow((1. - sinphi) / (1. + sinphi), .5 * e));
}