Ver mensaje
  #32  
Antiguo 14-12-2020, 11:57
Avatar de msanrafael
msanrafael msanrafael esta desconectado
Grumete Pirata
 
Registrado: 14-12-2020
Mensajes: 3
Agradecimientos que ha otorgado: 0
Recibió 0 Agradecimientos en 0 Mensajes
Sexo:
Predeterminado Re: 1. Distancia Ortodrómica y 2. Rumbo inicial Ortodrómica.

Cita:
Originalmente publicado por Seehund Ver mensaje
Distancia Ortodromica y Rumbo inicial Ortodromica.

En este tipo de problemas nos dan como datos la latitud y longitud del punto de origen y la latitud y longitud del punto de destino y nos piden que calculemos la Distancia por la ortodromica y el Rumbo inicial.

Los datos de entrada se introducen en el orden que indico a continuación. Los resultados de salida los da el programa en el orden que indico a continuación. Como criterio de signos se ha tomado las latitudes Norte y logitudes Este con signo positivo. Y las latitudes Sur y Longitudes Oeste con signo negativo. Habrá que por tanto añadir a todos los datos que sean Sur u Oeste un signo menos delante. Para los resultados la calculadora también mostrara todo lo que sea Sur y Oeste con un signo menos delante.

CRITERIO DE SIGNOS: Norte y Este positivo. Sur y Oeste Negativo

ENTRADA: latitud origen, Longitud origen, latitud destino, Longitud destino

SALIDA: Distancia, Rumbo inicial

PROGRAMA:

?→A:? →B: ?→ C:?→ D: D-B→ L:L>180⇒L-360→L:L<-180⇒L+360→L:60arccos(sinAsinC+cosAcosCcosL)▲Pol( cosAtanC-sinAcosL,sinL):J<0⇒J+360→J:J

Si hay realmente mucho interes puedo detallar las formulas y procedimientos que se han utilizado para llegar a este programa
********************************
Para los que tenéis otros modelos de calculadoras más modernas, os pongo el mismo programa:

Calculadora FX-3650P SUPER-FX:
?→A:
?→B:
?→C:
?→D:
D-B→M:
M>180⇒M-360→M:
-180>M⇒M+360→M:
60 x cos¯1((sin(A) x sin(C))+(cos(A) x cos(C) x cos(M)))▲
Pol((cos(A) x tan(C))-(sin(A) x cos(M)),sin(M)):
0>Y⇒Y +360→Y:
Y

Para la calculadora FX-3650PII SUPER-FX Plus:
?→A:
?→B:
?→C:
?→D:
D-B→M:
M>180⇒M-360→M:
M<-180⇒M+360→M:
60 x cos¯1((sin(A) x sin(C))+(cos(A) x cos(C) x cos(M)))▲
Pol((cos(A) x tan(C))-(sin(A) x cos(M)),sin(M)):
Y<0⇒Y +360→Y:
Y


IMPORTANTE: En lugar del símbolo ▲ hay que poner uno que parece una escalera ascendente, lo que hace este símbolo es hacer una pausa y mostrar el último cálculo.

Cuando estamos editando el programa en la calculadora FX-3650P SUPER-FX, este símbolo se obtiene pulsando SHIFT, luego P-CMD para que se muestren varios valores, el número 4 introduce el signo de visualizar.

Editado por msanrafael en 14-12-2020 a las 12:08.
Citar y responder