Difference between revisions of "Angle16Deg"
From Free Pascal wiki
Jump to navigationJump to searchm (Fixed syntax highlighting) |
|||
(6 intermediate revisions by 4 users not shown) | |||
Line 1: | Line 1: | ||
+ | |||
{{Angle16Deg}} | {{Angle16Deg}} | ||
Line 8: | Line 9: | ||
Convert Angle16Deg to [[Radian|radian]] | Convert Angle16Deg to [[Radian|radian]] | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
function Angle16DegToRad(const a_angle16deg:integer):double; | function Angle16DegToRad(const a_angle16deg:integer):double; | ||
begin | begin | ||
− | result := a_angle16deg * Pi * 16 | + | result := a_angle16deg * Pi / ( 180 * 16 ); |
end; | end; | ||
Line 21: | Line 22: | ||
Convert radian to Angle16Deg | Convert radian to Angle16Deg | ||
− | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
function RadtoAngle16Deg(const a_radian:double):integer; | function RadtoAngle16Deg(const a_radian:double):integer; | ||
Line 33: | Line 34: | ||
* [[Radian]] | * [[Radian]] | ||
* [[doc:lcl/graphics/tcanvas.chord.html|Chord]] | * [[doc:lcl/graphics/tcanvas.chord.html|Chord]] | ||
+ | |||
+ | [[Category:Mathematics]] |
Latest revision as of 07:25, 9 February 2020
│
English (en) │
français (fr) │
The one angle16deg is 1/16th of a degree. For example, a full circle equals 5760 (= 16*360).
function Angle16DegToRad
Convert Angle16Deg to radian
function Angle16DegToRad(const a_angle16deg:integer):double;
begin
result := a_angle16deg * Pi / ( 180 * 16 );
end;
function RadtoAngle16Deg
Convert radian to Angle16Deg
function RadtoAngle16Deg(const a_radian:double):integer;
begin
result := round ( a_radian * 180 * 16 / Pi );
end;