📄 pj_cc.c
字号:
#ifndef lintstatic const char SCCSID[]="@(#)PJ_cc.c 4.1 94/02/15 GIE REL";#endif#define PROJ_PARMS__ \ double ap;#define PJ_LIB__#include <projects.h>PROJ_HEAD(cc, "Central Cylindrical") "\n\tCyl, Sph";#define EPS10 1.e-10FORWARD(s_forward); /* spheroid */ if (fabs(fabs(lp.phi) - HALFPI) <= EPS10) F_ERROR; xy.x = lp.lam; xy.y = tan(lp.phi); return (xy);}INVERSE(s_inverse); /* spheroid */ lp.phi = atan(xy.y); lp.lam = xy.x; return (lp);}FREEUP; if (P) pj_dalloc(P); }ENTRY0(cc) P->es = 0.; P->inv = s_inverse; P->fwd = s_forward; ENDENTRY(P)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -