[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