Angles (geometric), normalization and conversion: Difference between revisions

=={{header|Delphi}}==

{{libheader| System.SysUtils}}

{{libheader| System.Math}}

{{Trans|Go}}

<lang Delphi>

program normalization_and_conversion;

{$APPTYPE CONSOLE}

uses

System.SysUtils,

System.Math;

function d2d(d: double): double;

begin

result := FMod(d, 360);

end;

function g2g(g: double): double;

begin

result := FMod(g, 400);

end;

function m2m(m: double): double;

begin

result := FMod(m, 6400);

end;

function r2r(r: double): double;

begin

result := FMod(r, 2 * Pi);

end;

function d2g(d: double): double;

begin

result := d2d(d) * 400 / 360;

end;

function d2m(d: double): double;

begin

result := d2d(d) * 6400 / 360;

end;

function d2r(d: double): double;

begin

result := d2d(d) * Pi / 180;

end;

function g2d(g: double): double;

begin

result := g2g(g) * 360 / 400;

end;

function g2m(g: double): double;

begin

result := g2g(g) * 6400 / 400;

end;

function g2r(g: double): double;

begin

result := g2g(g) * Pi / 200;

end;

function m2d(m: double): double;

begin

result := m2m(m) * 360 / 6400;

end;

function m2g(m: double): double;

begin

result := m2m(m) * 400 / 6400;

end;

function m2r(m: double): double;

begin

result := m2m(m) * Pi / 3200;

end;

function r2d(r: double): double;

begin

result := r2r(r) * 180 / Pi;

end;

function r2g(r: double): double;

begin

result := r2r(r) * 200 / Pi;

end;

function r2m(r: double): double;

begin

result := r2r(r) * 3200 / Pi;

end;

function s(f: double): string;

begin

var wf := FloatToStrF(f, ffGeneral, 16, 64).Split([FormatSettings.DecimalSeparator], TStringSplitOptions.ExcludeEmpty);

if Length(wf) = 1 then

exit(format('%7s ', [wf[0]]));

var le := length(wf[1]);

if le > 7 then

le := 7;

Result := format('%7s.%-7s', [wf[0], copy(wf[1], 0, le)]);

end;

begin

var angles: TArray<Double> := [-2, -1, 0, 1, 2, 6.2831853, 16, 57.2957795, 359,

399, 6399, 1000000];

var ft := '%s %s %s %s %s';

writeln(format(ft, [' degrees ', 'normalized degs', ' gradians ',

' mils ', ' radians']));

for var a in angles do

writeln(format(ft, [s(a), s(d2d(a)), s(d2g(a)), s(d2m(a)), s(d2r(a))]));

writeln(format(ft, [#10' gradians ', 'normalized grds', ' degrees ',

' mils ', ' radians']));

for var a in angles do

writeln(format(ft, [s(a), s(g2g(a)), s(g2d(a)), s(g2m(a)), s(g2r(a))]));

writeln(format(ft, [#10' mils ', 'normalized mils', ' degrees ',

' gradians ', ' radians']));

for var a in angles do

writeln(format(ft, [s(a), s(m2m(a)), s(m2d(a)), s(m2g(a)), s(m2r(a))]));

writeln(format(ft, [#10' radians ', 'normalized rads', ' degrees ',

' gradians ', ' mils ']));

for var a in angles do

writeln(format(ft, [s(a), s(r2r(a)), s(r2d(a)), s(r2g(a)), s(r2m(a))]));

readln;

end.</lang>