Differenze tra le versioni di "Convertire una coordinata geografica dal sistema EPSG:4326 WGS 84 al sistema EPSG:3857 e viceversa"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per convertire una coordinata geografica (Longitudine e Latitudine) dal sistema EPSG:4326 WGS 84 al sistema EPSG:3857, si potranno adottare le seguenti formule: Private Funct...")
 
Riga 14: Riga 14:
  
 
====Convertire una coordinata geografica (Longitudine e Latitudine) dal sistema EPSG:3857 al sistema EPSG:4326 WGS 84====
 
====Convertire una coordinata geografica (Longitudine e Latitudine) dal sistema EPSG:3857 al sistema EPSG:4326 WGS 84====
−
Private Const M_E As Float = 2.71828182845904523536  <FONT Color= gray>' ''La base dei logaritmi naturali''</font>
 
−
 
−
Public Sub Main()
 
−
 
 
   Dim lon, lat, x, y As Float
 
   Dim lon, lat, x, y As Float
 
   
 
   
 
   lon = (x / 20037508.34) * 180
 
   lon = (x / 20037508.34) * 180
−
   lat = ATan(M_E ^ ((y / 111319.490778) * Pi / 180.0)) * 360.0 / Pi - 90.0
+
   lat = ATan(Exp(y * Pi / 20037508.34)) * 360.0 / Pi - 90.0
 
laddove "lon" e "lat" sono le coordinate geografiche (Longitudine e Latitudine) nel sistema EPSG:4326 WGS 84 in formato decimale, mentre x e y sono le analoghe coordinate, ma del sistema EPSG:3857.
 
laddove "lon" e "lat" sono le coordinate geografiche (Longitudine e Latitudine) nel sistema EPSG:4326 WGS 84 in formato decimale, mentre x e y sono le analoghe coordinate, ma del sistema EPSG:3857.

Versione delle 18:43, 5 gen 2024

Per convertire una coordinata geografica (Longitudine e Latitudine) dal sistema EPSG:4326 WGS 84 al sistema EPSG:3857, si potranno adottare le seguenti formule: 

Private Function ConversioneCoordinate(lon As Float, lat As Float) As Float[]

  Dim x, y As Float
   
  x = (lon * 20037508.34) / 180
  y = (Log(Tan((90.0 + (lat)) * Pi / 360.0)) / (Pi / 180.0)) * 111319.490778

  Return [x, y]

End

laddove "lon" e "lat" sono le coordinate geografiche (Longitudine e Latitudine) nel sistema EPSG:4326 WGS 84 in formato decimale (esempio: 12.935740 e 40.916274), mentre x e y sono le analoghe coordinate, ma del sistema EPSG:3857.


Convertire una coordinata geografica (Longitudine e Latitudine) dal sistema EPSG:3857 al sistema EPSG:4326 WGS 84

 Dim lon, lat, x, y As Float

 lon = (x / 20037508.34) * 180
 lat = ATan(Exp(y * Pi / 20037508.34)) * 360.0 / Pi - 90.0

laddove "lon" e "lat" sono le coordinate geografiche (Longitudine e Latitudine) nel sistema EPSG:4326 WGS 84 in formato decimale, mentre x e y sono le analoghe coordinate, ma del sistema EPSG:3857.

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Convertire_una_coordinata_geografica_dal_sistema_EPSG:4326_WGS_84_al_sistema_EPSG:3857_e_viceversa&oldid=36034"