Cita:
Empezado por escafandra
Ves, mal interpretado. El seno de un angulo no puede ser mayor de 1 en valor absoluto. Los datos dados deben ser á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.
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