Operaciones algebraicas entre radianes y grados decimales

[compuin]

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

[Casimiro Notevi]

Multiplicar por cero, da cero.

[compuin]

Me disculpo

Utilice el valor no apropiado

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

[ecfisa]

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

[compuin]

Empezado por ecfisa

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 ?

[Casimiro Notevi]

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

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

[compuin]

Empezado por Casimiro Notevi

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

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

Utilizo Delphi 7

[compuin]

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

[ecfisa]

Empezado por compuin

Utilizo Delphi 7

Entonces haz como te indica Casimiro

Saludos

[compuin]

Empezado por ecfisa

Entonces haz como te indica Casimiro

Saludos

Ya lo hice y muesta el mensaje

[[escafandra]]

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

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

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.

[compuin]

Ok

Voy a revisar todo de nuevo y lo vuelvo a postear

[compuin]

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 ?

[Casimiro Notevi]

Empezado por compuin

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?

[compuin]

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

Pero en código no me funciona de esa manera

[[escafandra]]

Empezado por compuin

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 ?

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

Saludos.

[compuin]

Empezado por escafandra

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

[compuin]

Empezado por escafandra

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

Saludos.

Y si multiplcas ese resultado por 0.910099 ?

[[escafandra]]

1,209861111111×0,910099=1,101093387361

Saludos

[compuin]

Empezado por escafandra

1,209861111111×0,910099=1,101093387361

Saludos

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