История изменений
Исправление Zubok, (текущая версия) :
Не совсем понял - религиозные чувства, о чём это.
Ну вот, к примеру. Начинаю оскорблять. :)
(setq d (round (floor n)))
(setq m (round (floor (* (- n d) 60))))
(setq s (round (- (* 3600 (- n d)) (* 60 m))))
(round (floor ())) - это вообще что-то с чем-то. :) Даже если допустить, то попробуй отрицательные углы ввести. Они же допустимы?
(decimal-deg-to-dms 90.664631042351755) -> 90° 39' 53''
(decimal-deg-to-dms -90.664631042351755) -> -91° 20' 7''
Йоу, оскорбил. Говорю же, бери truncate хотя бы (тогда минус будет у всех компонентов DMS). Или знак обрабатывай.
Исходная версия Zubok, :
Не совсем понял - религиозные чувства, о чём это.
Ну вот, к примеру. Начинаю оскорблять. :)
(setq d (round (floor n)))
(setq m (round (floor (* (- n d) 60))))
(setq s (round (- (* 3600 (- n d)) (* 60 m))))
(round (floor ())) - это вообще что-то с чем-то. :) Даже если допустить, то попробуй отрицательные углы ввести. Они же допустимы?
(decimal-deg-to-dms 90.664631042351755) -> 90° 39' 53''
(decimal-deg-to-dms -90.664631042351755) -> -91° 20' 7''
Йоу, оскорбил. Говорю же, бери truncate хотя бы (тогда минус будет у всех компонентов GMS). Или знак обрабатывай.