R/equid.cyl.ll.R

Defines functions `equid.cyl.ll`

`equid.cyl.ll` <-
function(LON0, phi0, x, y)
  {

   R.MAPK= MAPconstants()$R.MAPK
   DEG2RAD=pi/180
   RAD2DEG=180/pi
   
    phi = RAD2DEG * y/R.MAPK
    lam =RAD2DEG * (x / (R.MAPK*cos(DEG2RAD *phi0))) + LON0;
    return(list(lat=phi, lon=lam))
  }

Try the GEOmap package in your browser

Any scripts or data that you put into this service are public.

GEOmap documentation built on Sept. 1, 2023, 5:09 p.m.