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

Hola amigos como estan?

Tengo un problema tratando de convertir radianes a grados decimales.

En estas instrucciones tengo lo siguiente

Código Delphi [-]
L:=  26.11428;     //Longitud de Planeta A
B:= -2.62070;      //Longitud de Planeta B
R:=  0.724603;    //Unidades Astronomicas

Lt:= 88.35704;    //Longitud de Planeta A
Bt:= 0.00014;     //Longitud de Planeta B
Rt:= 0.983824;   //Unidades Astronomicas

Luego aplico las siguientes formulas:

Código Delphi [-]
    x1 := R * Cos(DegToRad(B)) * Cos(DegToRad(L));
    y1 := R * Cos(DegToRad(B)) * Sin(DegToRad(L));
    z1 := R * Sin(DegToRad(B));

    x2 := Rt * Cos(DegToRad(Bt)) * Cos(DegToRad(Lt));
    y2 := Rt * Cos(DegToRad(Bt)) * Sin(DegToRad(Lt));
    z2 := Rt * Sin(DegToRad(Bt));

    x:= x1 - x2;
    y:= y1 - y2;
    z:= z1 - z2;

Donde,

Código Delphi [-]
x:=  0.621746;
y:= -0.664810;
z:= -0.033134;

Hasta aca todo bien, el problema lo tengo tratando de usar esta formula:

Código Delphi [-]
Dist := Sqr(x * x + y * y + z * z);

El resultado deberia ser

Código Delphi [-]
0.00552606

pero me arroja

Código Delphi [-]
0.688303

y en esta otra,

Código Delphi [-]
LTT := 0.0057755183 * Dist;

El resultado deberia ser

Código Delphi [-]
0.910845

pero me arroja

Código Delphi [-]
0.005975

He revisado varias veces las ecuaciones y al parecer el problema podria ser cuando trato de multiplicar y/o sumar radianes y grados decimales, lo que no se es como corregir eso

Agradezco quien me pueda ayudar con esto

[ecfisa]

Dados los valores:

x =  0.621746;
y = -0.664810;
z = -0.033134;

Sqr (cuadrado de un número):

 (x*x + y*y + z*z)² = (0.8296382866)² = 0.68883997865

Sqrt (raíz cuadradra de un número):

√(x*x + y*y + z*z) = √(0.8296382866) = 0.9108448203

¿ De donde obtienes el valor 0.00552606 ?

Saludos

[compuin]

Hola,

Aca anexo los algoritmos originales con los valores senalados




imagenes de lo

[compuin]

Ya vi el error

Estaba usando esto

Código Delphi [-]
Dist := Sqr(x * x + y * y + z * z);

En lugar de esto

Código Delphi [-]
Dist := Sqrt(x * x + y * y + z * z);

Por eso el calculo no era correcto

Muchas gracias por la ayuda!!