Fecha actual Vie Abr 19, 2024 6:24 am

Todos los horarios son UTC + 1 hora [ DST ]




Nuevo tema Responder al tema  [ 2 mensajes ] 
Autor Mensaje
NotaPublicado: Sab Dic 08, 2018 8:51 pm 

Registrado: Mié Nov 21, 2007 8:21 pm
Mensajes: 8
Hola a Todos.
Por favor, necesito ayuda.
Necesito calcular las distancias.
El siguiente ejemplo esta desarrollado con Harbour
El caso es que la funcion ACOS() y ASIN() no existen en C3
De antemano muchas gracias por la ayuda.

En el caso de que se trate de un problema, Sigue la función Harbour abajo:

Punto A (-45.4392298, -23.658715) - Longitud y Latitud

Punto B (-45.449916, -23.660759) - Longitud y Latitud

calcDist (-45.4392298, -23.658715, -45.449916, -23.660759) // resultado calculado por Google y el mismo de la función 1.11 km

** ==============================================
Function calcDist (nLg1, nLt1, nLg2, nLt2)
** ==============================================
Ubicación nKm
nKm: = 6371 * Acos (Cos (PI () * (90-nLt2) / 180) * Cos ((90-nLt1) * PI () / 180) +;
Sin ((90-nLt2) * PI () / 180) * sin ((90-nLt1) * PI () / 180) * cos ((NLG1-NLG2) * PI () / 180))
Return nKm


Arriba
 Perfil  
Responder citando  
NotaPublicado: Vie Dic 21, 2018 6:53 pm 
Avatar de Usuario

Registrado: Dom Oct 09, 2005 11:26 am
Mensajes: 362
Ubicación: Salamanca - España
Cristián escribió:
Hola a Todos.
Por favor, necesito ayuda.
Necesito calcular las distancias.
El siguiente ejemplo esta desarrollado con Harbour
El caso es que la funcion ACOS() y ASIN() no existen en C3
De antemano muchas gracias por la ayuda.

En el caso de que se trate de un problema, Sigue la función Harbour abajo:

Punto A (-45.4392298, -23.658715) - Longitud y Latitud

Punto B (-45.449916, -23.660759) - Longitud y Latitud

calcDist (-45.4392298, -23.658715, -45.449916, -23.660759) // resultado calculado por Google y el mismo de la función 1.11 km

** ==============================================
Function calcDist (nLg1, nLt1, nLg2, nLt2)
** ==============================================
Ubicación nKm
nKm: = 6371 * Acos (Cos (PI () * (90-nLt2) / 180) * Cos ((90-nLt1) * PI () / 180) +;
Sin ((90-nLt2) * PI () / 180) * sin ((90-nLt1) * PI () / 180) * cos ((NLG1-NLG2) * PI () / 180))
Return nKm


Hola.

Esas funciones no están porque no son de Clipper, pertenecian a la librería a las CT3 trigonometric functions. Te dejo un enlace a sus fuentes.

https://github.com/harbour/core/blob/ma ... bct/trig.c

_________________
Un saludo.
Jesús P. Melgar Velasco


Arriba
 Perfil  
Responder citando  
Mostrar mensajes previos:  Ordenar por  
Nuevo tema Responder al tema  [ 2 mensajes ] 

Todos los horarios son UTC + 1 hora [ DST ]


No puede abrir nuevos temas en este Foro
No puede responder a temas en este Foro
No puede editar sus mensajes en este Foro
No puede borrar sus mensajes en este Foro
No puede enviar adjuntos en este Foro

Buscar:
Saltar a:  
cron