[postbudka]

Здравствуйте.
Как в autolisp перевести радианы в градусы
(cos 1)=0.54, а нужно 0,9999
PS: не кидайте тряпками, делаю первые шаги в autolisp. Поиском искал.

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

 (defun conv-rad-to-degree (value) (/ (* value 180.) pi))

(defun conv-degree-to-rad (value) (/ (* value pi) 180.))

Код:

[Выделить все]

 _$ (conv-rad-to-degree pi)
180.0
_$ (conv-rad-to-degree (* pi 0.5))
90.0
_$ (conv-degree-to-rad 180.)
3.14159
_$ (conv-degree-to-rad 18.)
0.314159
_$