[Neo_]

Мучаюсь неделю пытаюсь отрегулировать лисп по разбивке размера на шаги, все получилось только одно место не выходит


(setq text (cdr (assoc 42 dim)))


(setq text1 (/ text 200)); разбивка на 200мм
(setq text1 (fix text1))

И вот тут начинаются парадоксы, при пошаговом отладчике , если размер абсолютно кратен 200 то (fix text1), при text1 = 5.0 ,например, дает 4???, что за глюк непонятно, при этом если в командной строке ввести (fix 5.0)
выдаст 5.

[Александр Ривилис]

А может все-таки text1 = 4.999999.... ?
Не используй для округления fix. Лучше уж (atoi (rtos text1 2 0)) или (fix (+ text 1e-6))

[Neo_]

Сообщение от Александр Ривилис А может все-таки text1 = 4.999999.... ? Не используй для округления fix. Лучше уж (atoi (rtos text1 2 0)) или (fix (+ text 1e-6))

СПАСИБО!
действительно, увеличил точность до 0,000000, сразу оказался размер 999,999997 ну и 4,999999985