Difference between revisions of "Angle16Deg"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{Angle16Deg}} The one angle16deg is 1/16th of a degree. For example, a full circle equals 5760 (= 16*360). == function Angle16DegToRad == Convert Angle16Deg to [[Radian|r...") |
m (Fixed syntax highlighting) |
||
(7 intermediate revisions by 4 users not shown) | |||
Line 1: | Line 1: | ||
+ | |||
{{Angle16Deg}} | {{Angle16Deg}} | ||
Line 7: | Line 8: | ||
Convert Angle16Deg to [[Radian|radian]] | Convert Angle16Deg to [[Radian|radian]] | ||
+ | |||
+ | <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; | ||
+ | |||
+ | </syntaxhighlight> | ||
== function RadtoAngle16Deg == | == function RadtoAngle16Deg == | ||
Convert radian to Angle16Deg | Convert radian to Angle16Deg | ||
+ | |||
+ | <syntaxhighlight lang=pascal> | ||
function RadtoAngle16Deg(const a_radian:double):integer; | function RadtoAngle16Deg(const a_radian:double):integer; | ||
Line 21: | Line 28: | ||
result := round ( a_radian * 180 * 16 / Pi ); | result := round ( a_radian * 180 * 16 / Pi ); | ||
end; | end; | ||
+ | |||
+ | </syntaxhighlight> | ||
== See also == | == See also == | ||
* [[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;