Operaciones algebraicas entre radianes y grados decimales

[[escafandra]]

Empezado por compuin

Hola,

Que funcion de Delphi convierte 03º03'31'' a decimales ??

Ninguna pero nada impide hacerlo. Para esa pregunta de dejé una respuesta anticipada aquí.


Saludos.

[compuin]

Empezado por escafandra

Ninguna pero nada impide hacerlo. Para esa pregunta de dejé una respuesta anticipada aquí.


Saludos.

Muchas gracias amigo

[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!!