Conversion Grados a Radianes y retorno
 

Hola amigos,

Tengo un problema, realizando calculos entre grados

Necesito conseguir el producto entre 2 grados, los cuales son

lt := 0° 00' 00"
decl := 23° 24' 15"

Utilizo esta ecuacion para obtener el resultado de multiplicar lt * decl, asi:

Código Delphi [-]
DA, lt, decl : double;

Código Delphi [-]
DA:= RadToDeg(sin(DegToRad(tan(DegToRad(lt))*tan(DegToRad(decl)))));

El resultado que obtengo es 0° 00' 00", pero el valor correcto deberia ser -2° 51' 47"

No entiendo que esta mal en mi calculo

Gracias de antemano por cualquier aporte

Multiplicar por cero, da cero.

Me disculpo

Utilice el valor no apropiado

El correcto es 45 22’ 35” y no 0 00’ 00”

Hola.


Tu código con los valores que indicas,

Código Delphi [-]
...
var
  da, lt, decl : Extended;
begin
  lt   := 45.37638888888889; // => 45 22’ 35
  decl := 23.40388888888889; // => 23° 24' 15"
  da   := RadToDeg(sin(DegToRad(tan(DegToRad(lt))*tan(DegToRad(decl)))));
  ShowMessage(da.ToString);
  ...

da el resultado : 0,438539207272871 => 0° 26' 18.74115"

Saludos :)

Me arroja error ejecutando por la clausula ToString

Puedes poner la Unit completa para replicarlo por favor ?

Es que depende de la versión de Delphi, prueba con:

Código Delphi [-]
ShowMessage( FloatToStr(da) );

Utilizo Delphi 7

Gracias, con eso mostro los datos

El resultado a pesar que se ejecuta no es correcto.

Creo que tengo un problema convirtiendo radianes, grados, decimales


Aqui tengo otro ejemplo

Código Delphi [-]
var
lt, decl, da : double;

La formula es

SIN DA = TAN LT * TAN DECL

Deberia obtener este resultado

Código Delphi [-]
lt:= -2.19474036998329;
           decl:=   -24.7975765404927

El resultado deberia ser

Código Delphi [-]
da:= -3.06365791942224

Aqui es donde no entiendo cuando convertir a radianes, grados o decimales

Entonces haz como te indica Casimiro ;)

Saludos :)

Ya lo hice y muesta el mensaje

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.

Ok

Voy a revisar todo de nuevo y lo vuelvo a postear

Retomo el post

Necesito calcular DA (Diferencia Ascensional) de un planeta. Estos son los valores a usar

Latitud = 02º45'20''

Declinacion = 23º41'12''

Formula para calcular

TAN (latitud) * TAN (DECL planeta ) = SIN DA

El resultado debe dar = 04º39'38''

Cual es la forma de hacerlo correctamente en Delphi ?

¿Cómo lo harías con papel y lápiz?
Paso a paso, ¿cómo lo harías?

Con papel y lápiz en el mismo orden de la ecuación

Pero en código no me funciona de esa manera

Pues si la calculadora de mi teléfono no falla, el resultado es 01° 12' 35,5"
No tengo delphi a mano.

Saludos.

Pues no es el resultado esperado

Y si multiplcas ese resultado por 0.910099 ?

1,209861111111×0,910099=1,101093387361

Saludos

No puede ser, como es posible que la formula no funcione ...