SRL Archive - Research & Development Lounge

Degrees to Radians. Radians to Degrees.

R0b0t1

2007-08-20 16:18:34

Yep. Pretty useless in my opinion, but here it is.


{*******************************************************************************
Function DegToRad(Degrees: Extended): Extended;
By: R0b0t1
Credits: N/A
Description: Converts degrees to radians.
*******************************************************************************}

Function DegToRad(Degrees: Extended): Extended;
 begin;
  Result:= Degrees * (Pi / 180);
 end;

{*******************************************************************************
Function RadToDeg(Radians: Extended): Extended;
By: R0b0t1
Credits: N/A
Description: Converts radians to degrees.
*******************************************************************************}

Function RadToDeg(Radians: Extended): Extended;
 begin;
  Result:= Radians * (180 / Pi);
 end;

Its not extreemly accurate, but it works. Try the same equations in calculator.

Spky

2007-08-20 17:27:55

function Degrees(Radians: Extended): Extended;
function Radians(Degrees: Extended): Extended;

R0b0t1

2007-08-20 23:08:34

Meh.

To bad for me. :p.