Operaciones algebraicas entre radianes y grados decimales

[Casimiro Noteví]

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 Noteví]

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