Sí tienes una calculadora hazlo tú mismo. A lo mejor la fórmula no es esa...

Saludos.

Te trasnscribo la formula con un ejemplo

Sexto elemento : La Diferencia Ascensional (DA)

Se la define como el tiempo que toma un cuerpo, medido en un plazo de más o menos 6 horas, para recorrer sobre su SA (SemiArco) el espacio que separa el horizonte del MC.

La DA depende de la declinación y de la Latitud geográfica del lugar de nacimiento.

Se calcula de la siguiente forma:

Sen DA = Tag Lat. geográfica x Tag. decli. planeta

Ejemplo: calcular la DA de Neptuno situado a 26.02 de Virgo, son una latitud geográfica de 53.24 y una declinación de 2.41

Sen DA = 1.34650 x 0.04687 = 0.0631104 = 3.37

la DA de Neptuno, es 3.37

Por pasos.
1.- El rigor matemático de esa última expresión deja mucho que desear, no se de donde lo sacaste.
2.- 1,34650 x 0,04687 = 0,063110455 cierto y eso quiere decir lo que dice. 1,34650 x 0,04687 es el producto de dos números reales no de ángulos, sino de las tangentes (siguiendo la fórmula dada)
3.- 0,063110455 según tu fórmula representa el seno de un ángulo. Dicho ángulo es el arcsen( 0,063110455) = 3,618367381189. A falta de una calculadora mejor que la de un teléfono.

Los ejemplos que te dan están mal explicados y de ahí que te fallen las cosas.
Te aconsejo que tomes una calculadora y hagas los cálculos para ver que coinciden y quizás deberías buscar una fuente más rigurosa.

Saludos

Los valores dieron correctos, lo que falla es la formula usada ???

Como quedaria la formula corrrectamente usando las funciones trogonometricas, ya que no es sen sino arcsen o tang ??

Lo que te falla es como interpretas la fórmula y como la usas. No te vendría mal repasar algo de trigonometría.

Saludos

Ok

:eek::(:(

No confundas un ángulo con su tangente. En el ejemplo último que pones te dan las tangentes. Y otro detalle, Si

Código Delphi [-]
sin(A) = tg (B) x tg (C)

Entonces, y despejando A, tenemos:

Código Delphi [-]
A = arcsin [tg (B) x tg (C)]

Lo que quiere decir que A es el ángulo cuyo seno es...


Saludos.

Haciendolo como me orientas me da este error

Código Delphi [-]
var
  da, lt, decl : Extended;
begin
  lt   := 1.73916666667; // => 01' 44’ 21"
  decl := 21.4341666667; // => 21° 26' 03"
  //da   := RadToDeg(sin(DegToRad(tan(DegToRad(lt))*tan(DegToRad(decl)))));
  DA:=   tan(lt)* tan(decl);

  DA:=   arcsin(da);

  ShowMessage( FloatToStr(da) );   // DA 02º36'10''

  end;

Ves, mal interpretado. El seno de un angulo no puede ser mayor de 1 en valor absoluto. Los datos que te han dado son ángulos y no las tangentes. Ten en cuenta las unidades de los ángulos, pues si te los dan en radianes no tendrás que convertir. Las funciones trigonométricas de delphi funcionan en radianes.

el valor obtenido para DA es 0,68299.

Sigo viendo falta de rigor matemático en los ejemplos que tienes. Te paso la función:

Código Delphi [-]
function DiferenciaAscensional(lt, decl: Extended): Extended;
begin
  Result:= RadToDeg(arcsin(tan(DegToRad(lt)) * tan(DegToRad(decl))));
end;

Y para el caso en el que te den ya las tangentes:

Código Delphi [-]
function DiferenciaAscensional2(lt, decl: Extended): Extended;
begin
  Result:= RadToDeg(arcsin(lt * decl));
end;

Saludos.

Gracias, para mi todo esto es nuevo

La idea es hacer los calculos a partir de los valores de la Longitud y la latitud. Estos valores vienen ya calculados como valores decimales por una libreria externa. Lo demas de trigonometria y calculo sobre los angulos lo debo hacer yo a mano.

Pude entender lo que me dices con respecto a angulos y tangentes. En realidad los valores deberian manejarse siempre en valores decimales

Entonces la segunda funcion es la que deberia servir para esto, la voy a probar y te comento

NO. La segunda funcion sólo sirve si lo que te dan son las tangentes ya calculadas, es decir, los parámetros de entrada NO SON ÁNGULOS, son tangentes.


Saludos.

Si, ya me dio error

La primera funcion es la que me sirve

Esa función ya te la había puesto aquí.





Saludos.

Cuando debo convertirlos a radianes ???

Sin y Tan toman como argumentos el angulo en radianes, por lo tanto con radianes los has de alimentar. Arcsin devuelve el angulo en radianes, luego a grados sexagesimales los has de pasar.


Tal cual como lo puse en la función.





Saludos.

Ok, ya la funcion hace todo el trabajo

LO que me queda es mostrar los resultados en grados

Ese tema ya estaba resuelto en este hilo.


Saludos.

Si, solo lo dije a modo de comentario

Me disculpo por hacerme mal interpretar

Tranquilo, a veces somos muy cuadriculados. Pensé que todavía te quedaban dudas y ese hilo sería el vehículo apropiado para plantearlas.




Saludos.

Hola,

Que funcion de Delphi convierte 03º03'31'' a decimales ??