Cita:
Empezado por compuin
La formula es
Código Delphi [-]SIN DA = TAN LT * TAN DECL
Deberia obtener este resultado
Código Delphi [-]
lt:= -2.19474036998329;
decl:= -24.7975765404927
El resultado deberia ser
Aqui es donde no entiendo cuando convertir a radianes, grados o decimales |
Por partes:
1- Según la formula que pones
DA = ARCSIN(TAN LT * TAN DECL) pero eso no lo veo en el código que debería ser algo como:
Código Delphi
[-]
var
DA, lt, decl : extended;
begin
lt:= -2.19474036998329;
decl:= -24.7975765404927;
DA:= RadToDeg(arcsin(tan(DegToRad(lt))*tan(DegToRad(decl))));
end;
Eso siempre que los datos sean grados y el resultado también.
2.- Los ángulos que das están ambos en el 4º cuadrante y su tangente será negativa para ambos. El producto de las tangentes será positivo y eso significa si, o si que es seno de DA es positivo, luego DA está en el primer o segundo cuadrante, con lo que no va a ser negativo del orden que das (-3.06365791942224).
3.- Con las conclusiones obtenidas tenemos, que la fórmula que das es incorrecta, o que el código lo es, ambas cosas o que los datos no son grados, en cuyo caso serían radianes pero considerando esto último, tampoco da -3.06365791942224.
4.- Debes revisar bien el planteamiento que das, las matemáticas no fallan y los ordenadores tampoco.
Saludos.