32 lines
1.2 KiB
Crystal
32 lines
1.2 KiB
Crystal
def d2d (a) a % 360 end
|
|
def g2g (a) a % 400 end
|
|
def m2m (a) a % 6400 end
|
|
def r2r (a) a.to_f % (2*Math::PI) end
|
|
|
|
def d2g (a) d2d(a)/360 * 400 end
|
|
def d2m (a) d2d(a)/360 * 6400 end
|
|
def d2r (a) d2d(a)/360 * 2*Math::PI end
|
|
|
|
def g2d (a) g2g(a)/400 * 360 end
|
|
def g2m (a) g2g(a)/400 * 6400 end
|
|
def g2r (a) g2g(a)/400 * 2*Math::PI end
|
|
|
|
def m2d (a) m2m(a)/6400 * 360 end
|
|
def m2g (a) m2m(a)/6400 * 400 end
|
|
def m2r (a) m2m(a)/6400 * 2*Math::PI end
|
|
|
|
def r2d (a) r2r(a)/(2*Math::PI) * 360 end
|
|
def r2g (a) r2r(a)/(2*Math::PI) * 400 end
|
|
def r2m (a) r2r(a)/(2*Math::PI) * 6400 end
|
|
|
|
angles = [-2, -1, 0, 1, 2, 6.2831853, 16, 57.2957795, 359, 399, 6399, 1000000]
|
|
|
|
puts "%-12s %-8s %12s %12s %12s %12s" % {"Angle", "Unit", "Degrees", "Gradians", "Mils", "Radians"}
|
|
puts "-"*(12+8+12+12+12+12+5)
|
|
angles.each do |a|
|
|
puts "%-12g %-8s %12g %12g %12g %12g" % {a, "degrees", d2d(a), d2g(a), d2m(a), d2r(a) }
|
|
puts "%-12g %-8s %12g %12g %12g %12g" % {a, "gradians", g2d(a), g2g(a), g2m(a), g2r(a) }
|
|
puts "%-12g %-8s %12g %12g %12g %12g" % {a, "mils", m2d(a), m2g(a), m2m(a), m2r(a) }
|
|
puts "%-12g %-8s %12g %12g %12g %12g" % {a, "radians", r2d(a), r2g(a), r2m(a), r2r(a) }
|
|
puts
|
|
end
|