Cálculo del rumbo

No sé si esto te puede servir:
https://es.answers.yahoo.com/question/index?qid=20100607173233AAc7a4X

Me pregunto si necesariamente tienes que calcularlo con excel?. No te vale alguno de los programas que te proporcionan dicho dato?. Por ejemplo el DX Atlas te proporciona la distancia y rumbo partiendo de tu ubicación y moviendo el ratón sobre el mapa.Este es un programa gratuito. Tiene un período de prueba pero en realidad sigue funcionando pasado el mismo.

Digo yo, es una idea.

Gracias por tu respuesta. El caso es que me estoy haciendo una utilidad con excel para llevar el control de los contactos que hago en JT65. De manera que en todo momento sé cuantos países tengo contactados y en que bandas, con sus correspondientes gráficos.
Cuando esté fina la quiero subir a la zona de descargas para que pueda servir de ejemplo para hacer lo msmo para cualquier modalidad e incluso que sea mejorada.
sería algo así.

No sé si queda claro. En un futuro esta hoja unida a la base de datos de HRD podría ser una herramienta útil en el cuarto de radio.
73

Gracias por tu respuesta. El caso es que me estoy haciendo una utilidad con excel para llevar el control de los contactos que hago en JT65. De manera que en todo momento sé cuantos países tengo contactados y en que bandas, con sus correspondientes gráficos.
Cuando esté fina la quiero subir a la zona de descargas para que pueda servir de ejemplo para hacer lo msmo para cualquier modalidad e incluso que sea mejorada.
sería algo así.

No sé si queda claro. En un futuro esta hoja unida a la base de datos de HRD podría ser una herramienta útil en el cuarto de radio.
73

Paco:

Lo que observo en la tabla es que tienes cada prefijo caracterizado con un valor de longitud y otro de latitud (son fijos y vienen dados).

Lo que pretendes es añadir a cada fila excel de prefijo un valor de rumbo, a partir del calculo en excel entre la pareja de datos del prefijo y tu propia pareja (en algún sitio tendrás tus propios valores de longitud y latitud). Es correcta la interpretación ? Quieres también calculo de distancia entre tu posición y la caracterización geográfica del prefijo ???

73, Manuel

Gracias Manuel por tu interés por este hilo.

Efectivamente, cada fila corresponde a un país del DXCC (registro).
Cada registro tiene un campo denominado Latitud y otro para la longitud, en valor decimal.
A partir de estos valores lo que pretendo es que a partir de la longitud y la latitud del QTH de un operador Excel de el rumbo de la antena y la distancia aproximada por el paso corto, para añadirle más tarde, el rumbo y la distancia por el paso largo.

Gracias una vez más.

Hola,

Mira esto;

http://www.cartesia.org/foro/viewtopic.php?p=81985

73, Máximo - EA1DDO

Gracias Máximo. Lo miro

Hola.

Esta es la función que yo uso, se llama pasando la longitud y latitud del punto de la estación y del punto remoto en segundos de grado y devuelve la distancia y rumbo.

Sub CalculaDistanciaRumbo(LgE As Single, LtE As Single, LgR As Single, LtR As Single, Km As Single, Rumbo As Single)
Dim Longitud As Single
Dim Latitud As Single
Dim Angulo As Single
Dim Cos_a As Single
Dim Cos_b As Single
Dim Cos_c As Single
Dim CosB As Single
Dim seno_a As Single
Dim Seno_b As Single
Dim Seno_c As Single
Dim SenoB As Single
Dim Radianes As Single

'LtE latitud Estación en segundos
'LgE longitud estación en segundos
'LtR latitud punto remoto en segundos
'LgR longitud punto remoto en segundos

'Traslada coordenadas al punto 0,0
Latitud = (LtE - LtR) / 3600
Longitud = (LgE - LgR) / 3600
Radianes = 3.141592 / 180
'Calcula Distancia y Rumbo
Cos_b = Cos((90 - LtR / 3600) * Radianes)
Cos_c = Cos((90 - LtE / 3600) * Radianes)
Seno_b = Sin((90 - LtR / 3600) * Radianes)
Seno_c = Sin((90 - LtE / 3600) * Radianes)

Cos_a = Cos_b * Cos_c + Seno_b * Seno_c * Cos(Abs(Longitud * Radianes))
seno_a = Sqr(Abs(1 - Cos_a * Cos_a))
Km = Int(Atn(seno_a / Cos_a) * (180 / 3.141592) * 111.2)

' Obtiene complemento a 20000
If Km < 0 Then Km = Km + 20000

'Calcula Rumbo
If Longitud = 0 Then
Angulo = 0
Else
If (Seno_c * seno_a) = 0 Then
CosB = (Cos_b - Cos_c * Cos_a) / 0.00000001
Else
CosB = (Cos_b - Cos_c * Cos_a) / (Seno_c * seno_a)
End If
SenoB = Sqr(Abs(1 - CosB * CosB))
If CosB = 0 Then
CosB = 0.00000001
End If
Angulo = Atn(SenoB / CosB) * (180 / 3.141592)
End If

Select Case Longitud 'Latitud
Case 0 ' al ESTE
Select Case Latitud
Case 0
Rumbo = 0
Case Is < 0
Rumbo = 360
Case Is > 0
Rumbo = 180
End Select
Case Is < 0 ' al ESTE
If Angulo < 0 Then
Rumbo = Angulo + 180
Else
Rumbo = Angulo
End If
Case Is > 0 ' al OESTE
If Angulo > 0 Then
Rumbo = 360 - Angulo
Else
Rumbo = 180 - Angulo
End If
End Select
If Rumbo = 0 Then Rumbo = 360
End Sub

Este cálculo es de cosecha propia y posiblemente haya cálculos más sencillos.

Para adaptar este cálculo a Excell no te puedo ayudar.

Saludos.

Antonio-EA4YG.

Gracias Antonio.
Tal y como lo expones creo que es fácil adaptarlo. De todos modos cuando le meta mano ya te contaré.

Un cordial saludo.

EA7AHG escribió:

Gracias Antonio.
Tal y como lo expones creo que es fácil adaptarlo. De todos modos cuando le meta mano ya te contaré.

Un cordial saludo.

Al "copiar" y "pegar" sale un "ladrillo" pero originalmente está mejor estructurada la secuencia de instrucciones, por ejemplo:

'Calcula Rumbo
If Longitud = 0 Then
Angulo = 0
Else
If (Seno_c * seno_a) = 0 Then
CosB = (Cos_b - Cos_c * Cos_a) / 0.00000001
Else
CosB = (Cos_b - Cos_c * Cos_a) / (Seno_c * seno_a)
End If
SenoB = Sqr(Abs(1 - CosB * CosB))

If CosB = 0 Then
CosB = 0.00000001
End If

Angulo = Atn(SenoB / CosB) * (180 / 3.141592)
End If

Así está mas claro desde el punto de programación... je,je,je...Si necesitas alguna aclaración ponte en contacto conmigo.

Saludos.

Antonio-EA4YG.

Editado:

Sigue saliendo un "ladrillo" ya que quita los espacios en blanco al principio de cada instrucción.