Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: ef42213f05
Fetching contributors…

Cannot retrieve contributors at this time

14 lines (13 sloc) 0.341 kB
/* determine small t */
#ifndef lint
static const char SCCSID[]="@(#)pj_tsfn.c 4.3 93/06/12 GIE REL";
#endif
#include <math.h>
#include "projects.h"
#define HALFPI 1.5707963267948966
double
pj_tsfn(double phi, double sinphi, double e) {
sinphi *= e;
return (tan (.5 * (HALFPI - phi)) /
pow((1. - sinphi) / (1. + sinphi), .5 * e));
}
Jump to Line
Something went wrong with that request. Please try again.