Необъяснимое поведение fix

Необъяснимое поведение fix · 25.09.2018, 11:41

Господа, доброго времени суток!
Не может ли кто-нибудь рассказать, почему fix при округлении вычитает единицу?
т.е. мы имеем число 3550.0, желаем превратить его в int и ждем, что получится 3550, но fix выдает 3449

Кулик Алексей aka kpblc · 25.09.2018, 11:55

Мы имеем или наблюдаем? И явно у тебя вычитается не 1, а 51

P.S. Число 3549.9996666888999999 вполне может показываться как 3550.0:

Код:

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

 _$ (setq a 3549.99999991)
3550.0
_$ (fix a)
3549

Setvar · 25.09.2018, 14:41

Цитата:

Сообщение от a-karlson

мы имеем число 3550.0, желаем превратить его в int и ждем, что получится 3550, но fix выдает 3449

Если вычесть 3449 из 3550, то получим 101.

Кулик Алексей aka kpblc · 25.09.2018, 15:13

Да, ошибся я

a-karlson · 25.09.2018, 20:32

сорри народ, ошибся, не 3449, а 3549, но fix, все-таки, ведет себя странно

Сергей812 · 25.09.2018, 21:18

ничего странного, для вещественных чисел понятие равенства само по себе условно - всего лишь в пределах принятого допуска...

ShaggyDoc · 25.09.2018, 21:19

Цитата:

Сообщение от a-karlson

fix, все-таки, ведет себя странно

Это давно известно. Вот функция для округления

Код:

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

 (defun ru-match-round (num)
    ;; (ru-match-round 1.5) =>2
    ;; (ru-match-round 1.49) =>1  
    (if	(>= (abs (- num (fix num))) 0.5)
	(if (minusp num)
	    (1- (fix num))
	    (1+ (fix num))
	) 
	(fix num)
    ) 
)

Setvar · 25.09.2018, 21:35

Автор темы привел в качестве примера вполне конкретное число: 3550.0
Результаты выполнения функции:
Команда: (fix 3550.0)
3550
Команда: (setq a 3550.0)
3550.0
Команда: (fix a)
3550
Никакого 3549 не наблюдается.
AutoCAD 2014.

Кулик Алексей aka kpblc · 25.09.2018, 21:42

#2, вопрос в представлении и реальном значении.
(rtos a 2 16) - что вернет? В а - обрабатываемое значение. А еще лучше - вообще кусок кода, который вычисляет это значение.

Александр Ривилис · 25.09.2018, 23:01

Цитата:

Сообщение от Setvar

Автор темы привел в качестве примера вполне конкретное число: 3550.0

Это он так думает. И вполне возможно, что AutoCAD его так отображает (в командной строке или в Панели свойств или в размерном тексте). А в действительности это число "чуть меньше", чем 3550.0

Сергей812 · 25.09.2018, 23:58

интересно, а какой эпсилон заложен в акаде и в самом лиспе.

В том же C# определены как константы:

Цитата:

public const float Epsilon = 1.401298E-45;
public const double Epsilon = 4.94065645841247E-324;

и если разница двух значений по модулю не превышают половину эпсилон - они считаются равными.

Александр Ривилис · 26.09.2018, 00:10

Цитата:

Сообщение от Сергей812

интересно, а какой эпсилон заложен в акаде и в самом лиспе.

В том же C# определены как константы:
и если разница двух значений по модулю не превышают половину эпсилон - они считаются равными.

Тут дело не в языке программирования, а в хранении и обработке double:
https://en.wikipedia.org/wiki/Double...g-point_format
(DBL_EPSILON: 2^52 ≈ 2.2204460492503131e-016)

Сергей812 · 26.09.2018, 09:43

И на русском в википендии

a-karlson · 26.09.2018, 10:21

Цитата:

Сообщение от Setvar

Автор темы привел в качестве примера вполне конкретное число: 3550.0
Результаты выполнения функции:
Команда: (fix 3550.0)
3550
Команда: (setq a 3550.0)
3550.0
Команда: (fix a)
3550
Никакого 3549 не наблюдается.
AutoCAD 2014.

в том-то и дело, что поведение fix нестабильное, вот 4 итерации, левое число - длина объекта (объекты, разумеется, одни и те же), правое получено (float (fix <от левого>)), мы видим, что некоторые числа фиксу нравятся больше других и необязательно с первого раза

Код:

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

319.0 319.0 ---
995.0 995.0
852.0 852.0 ---
3445.0 3445.0 ---
148.0 148.0
3745.0 3745.0
463.0 462.0 ---
1680.0 1680.0
3731.0 3731.0
2442.0 2442.0
1009.0 1009.0
312.0 312.0 ---
1077.0 1077.0


319.0 318.0 <<<
995.0 995.0
852.0 851.0 <<<
3445.0 3444.0 <<<
148.0 148.0
3745.0 3745.0
462.0 461.0 <<<
1680.0 1680.0
3731.0 3731.0
2442.0 2442.0
1009.0 1009.0
312.0 311.0 <<<
1077.0 1076.0 <<<


318.0 317.0 <<<
995.0 995.0
851.0 851.0
3444.0 3444.0
148.0 148.0
3745.0 3745.0
461.0 460.0 <<<
1680.0 1680.0
3731.0 3731.0
2442.0 2442.0
1009.0 1009.0
311.0 311.0
1076.0 1076.0


317.0 316.0 <<<
995.0 995.0
851.0 851.0
3444.0 3444.0
148.0 148.0
3745.0 3745.0
460.0 459.0 <<<
1680.0 1680.0
3731.0 3731.0
2442.0 2442.0
1009.0 1009.0
311.0 311.0

----- добавлено через ~2 мин. -----

Цитата:

Сообщение от Александр Ривилис

Это он так думает. И вполне возможно, что AutoCAD его так отображает (в командной строке или в Панели свойств или в размерном тексте). А в действительности это число "чуть меньше", чем 3550.0

число вбивалось в том числе и вручную, т.е. прям в панели свойств - 3550

Сергей812 · 26.09.2018, 10:27

ну а функция из поста №7 что выдает?

a-karlson · 26.09.2018, 10:38

Цитата:

Сообщение от Сергей812

ну а функция из поста №7 что выдает?

Код:

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

316.0 316.0
995.0 995.0
851.0 851.0
3444.0 3444.0
148.0 148.0
3745.0 3745.0
459.0 459.0
1680.0 1680.0
3731.0 3731.0
2442.0 2442.0
1009.0 1009.0
311.0 311.0

316.0 316.0
995.0 995.0
851.0 851.0
3444.0 3444.0
148.0 148.0
3745.0 3745.0
459.0 459.0
1680.0 1680.0
3731.0 3731.0
2442.0 2442.0
1009.0 1009.0
311.0 311.0

но это было очевидно сразу, там же костыль в виде 1+

Сергей812 · 26.09.2018, 10:58

ну если человек с опытом использования лиспа 10+ лет говорит, что некорректная реализация готовой функции fix

Цитата:

Сообщение от ShaggyDoc

Это давно известно.

значит, придется использовать обертку-костыль. Или переходите на ЯП, которые развиваются и где фиксятся баги.

Кулик Алексей aka kpblc · 26.09.2018, 12:42

Код:

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

 (defun test ()
  (repeat 5
    (princ "\n *** ")
    (mapcar (function (lambda (x)
                        (princ (strcat "\nValue = "
                                       (rtos x 2 16)
                                       "; View = "
                                       (vl-princ-to-string x)
                                       "; Fix = "
                                       (itoa (fix x))
                                       "; Float = "
                                       (rtos (float x) 2 16)
                                       "; Float(Fix) = "
                                       (rtos (float (fix x)) 2 16)
                                       ) ;_ end of strcat
                               ) ;_ end of princ
                        ) ;_ end of lambda
                      ) ;_ end of function
            '(319.0 995.0 852.0 3445.0 148.0 3745.0 462.0 1680.0 3731.0 2442.0 1009.0 312.0 1077.0)
            ) ;_ end of mapcar
    (princ "\n *** ")
    ) ;_ end of repeat
  (princ)
  ) ;_ end of defun

Результат:

Код:

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

 _$ (test)

 *** 
Value = 319; View = 319.0; Fix = 319; Float = 319; Float(Fix) = 319
Value = 995.0000000000001; View = 995.0; Fix = 995; Float = 995.0000000000001; Float(Fix) = 995.0000000000001
Value = 851.9999999999999; View = 852.0; Fix = 852; Float = 851.9999999999999; Float(Fix) = 851.9999999999999
Value = 3445; View = 3445.0; Fix = 3445; Float = 3445; Float(Fix) = 3445
Value = 148; View = 148.0; Fix = 148; Float = 148; Float(Fix) = 148
Value = 3745; View = 3745.0; Fix = 3745; Float = 3745; Float(Fix) = 3745
Value = 462; View = 462.0; Fix = 462; Float = 462; Float(Fix) = 462
Value = 1680; View = 1680.0; Fix = 1680; Float = 1680; Float(Fix) = 1680
Value = 3731; View = 3731.0; Fix = 3731; Float = 3731; Float(Fix) = 3731
Value = 2442; View = 2442.0; Fix = 2442; Float = 2442; Float(Fix) = 2442
Value = 1009; View = 1009.0; Fix = 1009; Float = 1009; Float(Fix) = 1009
Value = 312; View = 312.0; Fix = 312; Float = 312; Float(Fix) = 312
Value = 1077; View = 1077.0; Fix = 1077; Float = 1077; Float(Fix) = 1077
 *** 
 *** 
Value = 319; View = 319.0; Fix = 319; Float = 319; Float(Fix) = 319
Value = 995.0000000000001; View = 995.0; Fix = 995; Float = 995.0000000000001; Float(Fix) = 995.0000000000001
Value = 851.9999999999999; View = 852.0; Fix = 852; Float = 851.9999999999999; Float(Fix) = 851.9999999999999
Value = 3445; View = 3445.0; Fix = 3445; Float = 3445; Float(Fix) = 3445
Value = 148; View = 148.0; Fix = 148; Float = 148; Float(Fix) = 148
Value = 3745; View = 3745.0; Fix = 3745; Float = 3745; Float(Fix) = 3745
Value = 462; View = 462.0; Fix = 462; Float = 462; Float(Fix) = 462
Value = 1680; View = 1680.0; Fix = 1680; Float = 1680; Float(Fix) = 1680
Value = 3731; View = 3731.0; Fix = 3731; Float = 3731; Float(Fix) = 3731
Value = 2442; View = 2442.0; Fix = 2442; Float = 2442; Float(Fix) = 2442
Value = 1009; View = 1009.0; Fix = 1009; Float = 1009; Float(Fix) = 1009
Value = 312; View = 312.0; Fix = 312; Float = 312; Float(Fix) = 312
Value = 1077; View = 1077.0; Fix = 1077; Float = 1077; Float(Fix) = 1077
 *** 
 *** 
Value = 319; View = 319.0; Fix = 319; Float = 319; Float(Fix) = 319
Value = 995.0000000000001; View = 995.0; Fix = 995; Float = 995.0000000000001; Float(Fix) = 995.0000000000001
Value = 851.9999999999999; View = 852.0; Fix = 852; Float = 851.9999999999999; Float(Fix) = 851.9999999999999
Value = 3445; View = 3445.0; Fix = 3445; Float = 3445; Float(Fix) = 3445
Value = 148; View = 148.0; Fix = 148; Float = 148; Float(Fix) = 148
Value = 3745; View = 3745.0; Fix = 3745; Float = 3745; Float(Fix) = 3745
Value = 462; View = 462.0; Fix = 462; Float = 462; Float(Fix) = 462
Value = 1680; View = 1680.0; Fix = 1680; Float = 1680; Float(Fix) = 1680
Value = 3731; View = 3731.0; Fix = 3731; Float = 3731; Float(Fix) = 3731
Value = 2442; View = 2442.0; Fix = 2442; Float = 2442; Float(Fix) = 2442
Value = 1009; View = 1009.0; Fix = 1009; Float = 1009; Float(Fix) = 1009
Value = 312; View = 312.0; Fix = 312; Float = 312; Float(Fix) = 312
Value = 1077; View = 1077.0; Fix = 1077; Float = 1077; Float(Fix) = 1077
 *** 
 *** 
Value = 319; View = 319.0; Fix = 319; Float = 319; Float(Fix) = 319
Value = 995.0000000000001; View = 995.0; Fix = 995; Float = 995.0000000000001; Float(Fix) = 995.0000000000001
Value = 851.9999999999999; View = 852.0; Fix = 852; Float = 851.9999999999999; Float(Fix) = 851.9999999999999
Value = 3445; View = 3445.0; Fix = 3445; Float = 3445; Float(Fix) = 3445
Value = 148; View = 148.0; Fix = 148; Float = 148; Float(Fix) = 148
Value = 3745; View = 3745.0; Fix = 3745; Float = 3745; Float(Fix) = 3745
Value = 462; View = 462.0; Fix = 462; Float = 462; Float(Fix) = 462
Value = 1680; View = 1680.0; Fix = 1680; Float = 1680; Float(Fix) = 1680
Value = 3731; View = 3731.0; Fix = 3731; Float = 3731; Float(Fix) = 3731
Value = 2442; View = 2442.0; Fix = 2442; Float = 2442; Float(Fix) = 2442
Value = 1009; View = 1009.0; Fix = 1009; Float = 1009; Float(Fix) = 1009
Value = 312; View = 312.0; Fix = 312; Float = 312; Float(Fix) = 312
Value = 1077; View = 1077.0; Fix = 1077; Float = 1077; Float(Fix) = 1077
 *** 
 *** 
Value = 319; View = 319.0; Fix = 319; Float = 319; Float(Fix) = 319
Value = 995.0000000000001; View = 995.0; Fix = 995; Float = 995.0000000000001; Float(Fix) = 995.0000000000001
Value = 851.9999999999999; View = 852.0; Fix = 852; Float = 851.9999999999999; Float(Fix) = 851.9999999999999
Value = 3445; View = 3445.0; Fix = 3445; Float = 3445; Float(Fix) = 3445
Value = 148; View = 148.0; Fix = 148; Float = 148; Float(Fix) = 148
Value = 3745; View = 3745.0; Fix = 3745; Float = 3745; Float(Fix) = 3745
Value = 462; View = 462.0; Fix = 462; Float = 462; Float(Fix) = 462
Value = 1680; View = 1680.0; Fix = 1680; Float = 1680; Float(Fix) = 1680
Value = 3731; View = 3731.0; Fix = 3731; Float = 3731; Float(Fix) = 3731
Value = 2442; View = 2442.0; Fix = 2442; Float = 2442; Float(Fix) = 2442
Value = 1009; View = 1009.0; Fix = 1009; Float = 1009; Float(Fix) = 1009
Value = 312; View = 312.0; Fix = 312; Float = 312; Float(Fix) = 312
Value = 1077; View = 1077.0; Fix = 1077; Float = 1077; Float(Fix) = 1077
 ***

Для ради интересу поменял код:

Код:

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

 (defun test ()
  (repeat 5
    (princ "\n *** ")
    (mapcar (function (lambda (x)
                        (princ (strcat "\nValue = "
                                       (rtos x 2 16)
                                       "\tView = "
                                       (vl-princ-to-string x)
                                       "\tFix = "
                                       (itoa (fix x))
                                       "\tFloat = "
                                       (rtos (float x) 2 16)
                                       "\tFloat(Fix) = "
                                       (rtos (float (fix x)) 2 16)
                                       ) ;_ end of strcat
                               ) ;_ end of princ
                        ) ;_ end of lambda
                      ) ;_ end of function
            '(319.0 995 852 3445.0 148.0 3745.0 462.0 1680.0 3731.0 2442.0 1009.0 312.0 1077.0)
            ) ;_ end of mapcar
    (princ "\n *** ")
    ) ;_ end of repeat
  (princ)
  ) ;_ end of defun

И как результат:

Код:

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

 _$ (test)

 *** 
Value = 319	View = 319.0	Fix = 319	Float = 319	Float(Fix) = 319
Value = 995.0000000000001	View = 995	Fix = 995	Float = 995.0000000000001	Float(Fix) = 995.0000000000001
Value = 851.9999999999999	View = 852	Fix = 852	Float = 851.9999999999999	Float(Fix) = 851.9999999999999
Value = 3445	View = 3445.0	Fix = 3445	Float = 3445	Float(Fix) = 3445
Value = 148	View = 148.0	Fix = 148	Float = 148	Float(Fix) = 148
Value = 3745	View = 3745.0	Fix = 3745	Float = 3745	Float(Fix) = 3745
Value = 462	View = 462.0	Fix = 462	Float = 462	Float(Fix) = 462
Value = 1680	View = 1680.0	Fix = 1680	Float = 1680	Float(Fix) = 1680
Value = 3731	View = 3731.0	Fix = 3731	Float = 3731	Float(Fix) = 3731
Value = 2442	View = 2442.0	Fix = 2442	Float = 2442	Float(Fix) = 2442
Value = 1009	View = 1009.0	Fix = 1009	Float = 1009	Float(Fix) = 1009
Value = 312	View = 312.0	Fix = 312	Float = 312	Float(Fix) = 312
Value = 1077	View = 1077.0	Fix = 1077	Float = 1077	Float(Fix) = 1077
 *** 
 *** 
Value = 319	View = 319.0	Fix = 319	Float = 319	Float(Fix) = 319
Value = 995.0000000000001	View = 995	Fix = 995	Float = 995.0000000000001	Float(Fix) = 995.0000000000001
Value = 851.9999999999999	View = 852	Fix = 852	Float = 851.9999999999999	Float(Fix) = 851.9999999999999
Value = 3445	View = 3445.0	Fix = 3445	Float = 3445	Float(Fix) = 3445
Value = 148	View = 148.0	Fix = 148	Float = 148	Float(Fix) = 148
Value = 3745	View = 3745.0	Fix = 3745	Float = 3745	Float(Fix) = 3745
Value = 462	View = 462.0	Fix = 462	Float = 462	Float(Fix) = 462
Value = 1680	View = 1680.0	Fix = 1680	Float = 1680	Float(Fix) = 1680
Value = 3731	View = 3731.0	Fix = 3731	Float = 3731	Float(Fix) = 3731
Value = 2442	View = 2442.0	Fix = 2442	Float = 2442	Float(Fix) = 2442
Value = 1009	View = 1009.0	Fix = 1009	Float = 1009	Float(Fix) = 1009
Value = 312	View = 312.0	Fix = 312	Float = 312	Float(Fix) = 312
Value = 1077	View = 1077.0	Fix = 1077	Float = 1077	Float(Fix) = 1077
 *** 
 *** 
Value = 319	View = 319.0	Fix = 319	Float = 319	Float(Fix) = 319
Value = 995.0000000000001	View = 995	Fix = 995	Float = 995.0000000000001	Float(Fix) = 995.0000000000001
Value = 851.9999999999999	View = 852	Fix = 852	Float = 851.9999999999999	Float(Fix) = 851.9999999999999
Value = 3445	View = 3445.0	Fix = 3445	Float = 3445	Float(Fix) = 3445
Value = 148	View = 148.0	Fix = 148	Float = 148	Float(Fix) = 148
Value = 3745	View = 3745.0	Fix = 3745	Float = 3745	Float(Fix) = 3745
Value = 462	View = 462.0	Fix = 462	Float = 462	Float(Fix) = 462
Value = 1680	View = 1680.0	Fix = 1680	Float = 1680	Float(Fix) = 1680
Value = 3731	View = 3731.0	Fix = 3731	Float = 3731	Float(Fix) = 3731
Value = 2442	View = 2442.0	Fix = 2442	Float = 2442	Float(Fix) = 2442
Value = 1009	View = 1009.0	Fix = 1009	Float = 1009	Float(Fix) = 1009
Value = 312	View = 312.0	Fix = 312	Float = 312	Float(Fix) = 312
Value = 1077	View = 1077.0	Fix = 1077	Float = 1077	Float(Fix) = 1077
 *** 
 *** 
Value = 319	View = 319.0	Fix = 319	Float = 319	Float(Fix) = 319
Value = 995.0000000000001	View = 995	Fix = 995	Float = 995.0000000000001	Float(Fix) = 995.0000000000001
Value = 851.9999999999999	View = 852	Fix = 852	Float = 851.9999999999999	Float(Fix) = 851.9999999999999
Value = 3445	View = 3445.0	Fix = 3445	Float = 3445	Float(Fix) = 3445
Value = 148	View = 148.0	Fix = 148	Float = 148	Float(Fix) = 148
Value = 3745	View = 3745.0	Fix = 3745	Float = 3745	Float(Fix) = 3745
Value = 462	View = 462.0	Fix = 462	Float = 462	Float(Fix) = 462
Value = 1680	View = 1680.0	Fix = 1680	Float = 1680	Float(Fix) = 1680
Value = 3731	View = 3731.0	Fix = 3731	Float = 3731	Float(Fix) = 3731
Value = 2442	View = 2442.0	Fix = 2442	Float = 2442	Float(Fix) = 2442
Value = 1009	View = 1009.0	Fix = 1009	Float = 1009	Float(Fix) = 1009
Value = 312	View = 312.0	Fix = 312	Float = 312	Float(Fix) = 312
Value = 1077	View = 1077.0	Fix = 1077	Float = 1077	Float(Fix) = 1077
 *** 
 *** 
Value = 319	View = 319.0	Fix = 319	Float = 319	Float(Fix) = 319
Value = 995.0000000000001	View = 995	Fix = 995	Float = 995.0000000000001	Float(Fix) = 995.0000000000001
Value = 851.9999999999999	View = 852	Fix = 852	Float = 851.9999999999999	Float(Fix) = 851.9999999999999
Value = 3445	View = 3445.0	Fix = 3445	Float = 3445	Float(Fix) = 3445
Value = 148	View = 148.0	Fix = 148	Float = 148	Float(Fix) = 148
Value = 3745	View = 3745.0	Fix = 3745	Float = 3745	Float(Fix) = 3745
Value = 462	View = 462.0	Fix = 462	Float = 462	Float(Fix) = 462
Value = 1680	View = 1680.0	Fix = 1680	Float = 1680	Float(Fix) = 1680
Value = 3731	View = 3731.0	Fix = 3731	Float = 3731	Float(Fix) = 3731
Value = 2442	View = 2442.0	Fix = 2442	Float = 2442	Float(Fix) = 2442
Value = 1009	View = 1009.0	Fix = 1009	Float = 1009	Float(Fix) = 1009
Value = 312	View = 312.0	Fix = 312	Float = 312	Float(Fix) = 312
Value = 1077	View = 1077.0	Fix = 1077	Float = 1077	Float(Fix) = 1077
 ***

Еще раз: откуда берутся цифры? Что показывает rtos с максимальным количеством значащих знаков?

ShaggyDoc · 26.09.2018, 14:02

А почему бы не посмотреть описание fix в документации? Эта функция преобразовывает (не округляет) число в целое. Вещественные числа усекаются до ближайшего целого путем отбрасывания дробной части.

Это не баг, а "фича". Сразу была в Автолисп еще версии R10. Видимо предполагая, что иные виды округления разработает программист.

А в "ЯП, которые развиваются и где фиксятся баги" имеются наборы других функций. Например в Delphi есть функции округления Ceil (X), Floor (X), Frac (X), Int(X), Round(X), Trunc(X). Причем округления, в основном, внутри себя используют Int.

Функция fix в Автолисп работает как Trunc(X) или Int(X). Еще надо помнить, что Лисп сам определяет тип переданного аргумента "по написанию"

a-karlson · 27.09.2018, 18:08

Цитата:

Сообщение от ShaggyDoc

А почему бы не посмотреть описание fix в документации? Эта функция преобразовывает (не округляет) число в целое. Вещественные числа усекаются до ближайшего целого путем отбрасывания дробной части.

Это не баг, а "фича". Сразу была в Автолисп еще версии R10. Видимо предполагая, что иные виды округления разработает программист.

в то-то и дело, что я вижу, что иногда fix отбрасывает целую единицу в числе, у которого отсутствует дробная часть, насколько это можно считать фичей?

Цитата:

Сообщение от ShaggyDoc

А в "ЯП, которые развиваются и где фиксятся баги" имеются наборы других функций. Например в Delphi есть функции округления Ceil (X), Floor (X), Frac (X), Int(X), Round(X), Trunc(X). Причем округления, в основном, внутри себя используют Int.

Функция fix в Автолисп работает как Trunc(X) или Int(X).

увы, но я так и не научился автолиспом доставать функции из dll

Цитата:

Сообщение от ShaggyDoc

Еще надо помнить, что Лисп сам определяет тип переданного аргумента "по написанию"

в смысле?

Сергей812 · 27.09.2018, 18:14

Цитата:

Сообщение от a-karlson

fix отбрасывает целую единицу в числе, у которого отсутствует дробная часть,

уверены, что отсутствует, а не 499,999999... вместо 500, к примеру?

Цитата:

Сообщение от a-karlson

в смысле?

в лиспе динамическая типизация данных

a-karlson · 27.09.2018, 18:16

Цитата:

Сообщение от Кулик Алексей aka kpblc

Еще раз: откуда берутся цифры? Что показывает rtos с максимальным количеством значащих знаков?

цифры с объектов, код примерно такой:

Код:

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

 (setq objs (ssget))
...
(if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-get-length (list obj))))
      (progn
    (setq len (vla-get-length obj))...

парадокс еще и в том, что даже если принудительно выставлять длину (vla-put-Length obj (flen)) (flen вообще без дробной части) то поведение не изменяется

----- добавлено через ~7 мин. -----

Цитата:

Сообщение от Сергей812

уверены, что отсутствует, а не 499,999999... вместо 500, к примеру?

полной уверенности у меня, конешно, нет, но мне очень хочется верить, что, когда я задаю объекту длину=500, как вручную, так и vla-put-length, то объект содержит именно 500 и, что не менее важно, отдает 500, а не что-то другое

Кулик Алексей aka kpblc · 27.09.2018, 18:31

Цитата:

Сообщение от a-karlson

цифры с объектов

luprec поставь "на побольше"

Цитата:

Сообщение от a-karlson

(vla-put-Length obj (flen))

А не смущает, что свойство Length обычно все же ReadOnly?

----- добавлено через 52 сек. -----
Задать объекту длину невозможно - неизвестно, в какую сторону и насколько выполнять увеличение длины. Если это увеличение вообще возможно.

ShaggyDoc · 27.09.2018, 19:55

Цитата:

Сообщение от a-karlson

в то-то и дело, что я вижу, что иногда fix отбрасывает целую единицу в числе, у которого отсутствует дробная часть, насколько это можно считать фичей?

Вот потому я давным давно и сделал функцию округления. Fix делает всё, как описано. Но только надо учитывать особенности представления вещественных чисел в AutoCAD, состояние системных переменных, точность отображения и прочее. Чтобы с этим не заморачиваться и сделаны "костыли".

Если в других языках тип данных явно объявляется, то в Lisp такого нет.

Примеры "странного" поведения, в котором нет ничего странного.

Код:

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

 Command: (fix 5450)
5450

Command: (fix 5450.1)
5450

Command: (fix 5450.9999999999)
5450

Command: luprec

New value for LUPREC <4>: 1

Command: (fix 5450.9999999999)
5450

Command: (fix 5450.9999999999999)
5451

Command: (fix 5449.9999999999999)
5450

Command: (fix 5449.99)
5449

Цитата:

Сообщение от a-karlson

увы, но я так и не научился автолиспом доставать функции из dll

Зачем из dll? Все эти функции состоят из одной-двух строк и могут быть написаны на Lisp. Как и тысячи других. Надо иметь свою постоянно загружаемую библиотеку, хранить в ней свои функции и с их использованием делать простые короткие программы.

a-karlson · 28.09.2018, 10:44

Цитата:

Сообщение от Кулик Алексей aka kpblc

luprec поставь "на побольше"

А не смущает, что свойство Length обычно все же ReadOnly?

обычно да, но не у всех, тем более, что я проверяю на доступность

Цитата:

Сообщение от Кулик Алексей aka kpblc

----- добавлено через 52 сек. -----
Задать объекту длину невозможно - неизвестно, в какую сторону и насколько выполнять увеличение длины.

конечная точка удаляется от начальной на длину

----- добавлено через ~19 мин. -----

Цитата:

Сообщение от ShaggyDoc

Зачем из dll?

а что еще можно изобразить на дельфях?

Цитата:

Сообщение от ShaggyDoc

Все эти функции состоят из одной-двух строк и могут быть написаны на Lisp. Как и тысячи других. Надо иметь свою постоянно загружаемую библиотеку, хранить в ней свои функции и с их использованием делать простые короткие программы.

ну (fix x) куда уж короче?

но вот его странный алгоритм работы меня и поразил

----- добавлено через ~21 мин. -----

Цитата:

Сообщение от Кулик Алексей aka kpblc

luprec поставь "на побольше"

попробовал, разницы не заметил

Кулик Алексей aka kpblc · 28.09.2018, 11:33

Цитата:

Сообщение от a-karlson

конечная точка удаляется от начальной на длину

Да ну?

Цитата:

_$ (vlax-dump-Object (vlax-ename->vla-object (car(entsel))))
; IAcadLine: Интерфейс AutoCAD для работы с отрезками.
; Property values:
<...>
; Length (RO) = 1784.2
_$ (vlax-dump-Object (vlax-ename->vla-object (car(entsel))))
; IAcadLWPolyline: Интерфейс AutoCAD для работы с компактными полилиниями.
; Property values:
<...>
; Length (RO) = 1981.77

Наличие свойства не означает, что его можно поменять. В крайнем случае выполни код:

Код:

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

 (defun check (obj len / err) ;|
*    Установка "длины" объекту
*    Параметры вызова:
  obj    указатель на графический объект
  len    новая длина
|;
  (if (and obj
           (setq obj (cond ((= (type obj) 'ename) (vlax-ename->vla-object obj))
                           ((= (type obj) 'vla-object) obj)
                           ) ;_ end of cond
                 ) ;_ end of setq
           ) ;_ end of and
    (if (vlax-property-available-p obj 'length)
      (if (vl-catch-all-error-p
            (setq err (vl-catch-all-apply (function (lambda () (vla-put-length obj len)))))
            ) ;_ end of vl-catch-all-error-p
        (princ (strcat "\nError set length : " (vl-catch-all-error-message err)))
        (princ "\nOK!")
        ) ;_ end of if
      (princ "\nLength property is not available")
      ) ;_ end of if
    (princ "\nobj is nil")
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

P.S. Замена len с типа REAL на vlax-variant не поможет, можешь поверить, можешь проверить.

----- добавлено через 36 сек. -----
Пример вызова:

Код:

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

 (check (car (entsel)) 100.)

Vov.Ka · 28.09.2018, 11:41

Цитата:

Сообщение от a-karlson

конечная точка удаляется от начальной на длину

длина это производная от координат, поэтому это число рациональное

Кулик Алексей aka kpblc · 28.09.2018, 12:41

Цитата:

Сообщение от a-karlson

конечная точка удаляется от начальной на длину

А почему не наоборот?

a-karlson · 31.10.2018, 11:43

Цитата:

Сообщение от Кулик Алексей aka kpblc

Да ну?

ну да, а что?

Цитата:

Сообщение от Кулик Алексей aka kpblc

Наличие свойства не означает, что его можно поменять. В крайнем случае выполни код:

Код:

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

 (defun check (obj len / err) ;|
*    Установка "длины" объекту
*    Параметры вызова:
  obj    указатель на графический объект
  len    новая длина
|;
  (if (and obj
           (setq obj (cond ((= (type obj) 'ename) (vlax-ename->vla-object obj))
                           ((= (type obj) 'vla-object) obj)
                           ) ;_ end of cond
                 ) ;_ end of setq
           ) ;_ end of and
    (if (vlax-property-available-p obj 'length)
      (if (vl-catch-all-error-p
            (setq err (vl-catch-all-apply (function (lambda () (vla-put-length obj len)))))
            ) ;_ end of vl-catch-all-error-p
        (princ (strcat "\nError set length : " (vl-catch-all-error-message err)))
        (princ "\nOK!")
        ) ;_ end of if
      (princ "\nLength property is not available")
      ) ;_ end of if
    (princ "\nobj is nil")
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

P.S. Замена len с типа REAL на vlax-variant не поможет, можешь поверить, можешь проверить.

----- добавлено через 36 сек. -----
Пример вызова:

Код:

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

 (check (car (entsel)) 100.)

посмотрел, у меня конешно, не столь изящно, но смысл тот же самый

Код:

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

 (defun c:3072 ( / obj objs len lst i j flen)
  (setq objs (ssget)
	i 0)
  ;(if (= nil objs) (exit))
  (while (< i (sslength objs))
    (setq obj (vlax-ename->vla-object (ssname objs i))
	  i (1+ i)
	  )
    (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-get-length (list obj))))
      (progn
	(setq len (vla-get-length obj)
	      flen (float (fix len)); да, я смирился ((
	      )
	;(princ (type len))
	(if (not (eq len flen))
	  (progn
	    ;(princ "\n")
	    (princ len);
	    (princ " "); эти строки для того, чтобы автокад сам преобразовывал число во что ему надо
	    (princ flen);
	    (princ "\n");
	    (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-length (list obj flen))))
	      (vla-put-Length obj flen)
	      )
	    (vla-Highlight obj :vlax-true)	    	    
	    )
	  )
	)
      )
    )
  (princ)
  )

----- добавлено через ~2 мин. -----

Цитата:

Сообщение от Кулик Алексей aka kpblc

А почему не наоборот?

честно говоря, не знаю почему, чего вижу, то и пою

Кулик Алексей aka kpblc · 31.10.2018, 12:03

Цитата:

Сообщение от a-karlson

посмотрел

И что, меняется объект?

a-karlson · 01.11.2018, 13:23

Цитата:

Сообщение от Кулик Алексей aka kpblc

И что, меняется объект?

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

Кулик Алексей aka kpblc · 01.11.2018, 16:13

Ничего не меняется - специально несколько раз проверил. Чутка подправил твой код, добавил информационные выводы:

Код:

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

 (defun c:3072 (/ obj objs len lst i j flen)
  (setq objs (ssget)
        i    0
        ) ;(if (= nil objs) (exit))
  (while (< i (sslength objs))
    (setq obj (vlax-ename->vla-object (ssname objs i))
          i   (1+ i)
          ) ;_ end of setq
    (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-get-length (list obj))))
      (progn (setq len  (vla-get-length obj)
                   flen (float (fix len)) ; да, я смирился ((
                   ) ;(princ (type len))
             (if (not (eq len flen))
               (progn ;(princ "\n")
                 (princ (strcat "\nOld Len = " (rtos len 2 6))) ;
                 (princ " ") ; эти строки для того, чтобы автокад сам преобразовывал число во что ему надо
                 (princ (strcat "\nNew Len = " (rtos flen 2 6))) ;
                 (princ "\n") ;
                 (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-put-length (list obj flen))))
                   (progn (vla-put-length obj flen) (vla-update obj) (vla-highlight obj :vlax-true))
                   (princ "\nError put length")
                   ) ;_ end of if
                 (princ (strcat "\nCur Len = " (rtos (vla-get-length obj) 2 6) "\n\n"))
                 ) ;_ end of progn
               ) ;_ end of if
             ) ;_ end of progn
      (princ "\nNo Legth property")
      ) ;_ end of if
    ) ;_ end of while
  (princ)
  ) ;_ end of defun

Попробуй поменять - хоть старым кодом, хоть исправленным, хоть моим. Потом выполни обновление полей (хоть через команду _.UPDATEFIELD) и посмотри, что и как происходит.
Ну и показывай свой файл с образцами примитивов, для которых у тебя "все работает".

a-karlson · 08.11.2018, 12:58

Цитата:

Сообщение от Кулик Алексей aka kpblc

...файл с образцами примитивов, для которых у тебя "все работает".

но я не говорил про примитивы, я говорил про объекты

Александр Ривилис · 08.11.2018, 13:05

Цитата:

Сообщение от a-karlson

но я не говорил про примитивы, я говорил про объекты

Примитив (в терминах AutoCAD) - это графический объект. Например, слой или тип линии или размерный стиль - это объекты (не примитивы). А линия, полилиния, дуга, твердое тело и т.д. - это примитивы.

Кулик Алексей aka kpblc · 08.11.2018, 13:15

a-karlson, у тебя там элементы вертикалок, а не чистого ACAD'a. Поведение пользовательских примитивов может принципиально отличаться от поведения стандартных примитивов.

a-karlson · 13.11.2018, 08:18

Цитата:

Сообщение от Кулик Алексей aka kpblc

a-karlson, у тебя там элементы вертикалок, а не чистого ACAD'a. Поведение пользовательских примитивов может принципиально отличаться от поведения стандартных примитивов.

да, но значения полей, после их получения и занесения в переменную (список, пр.), отчуждаются от примитива и на поведение фикса их происхождение не влияет же

Громов Владимир · 13.11.2018, 09:26

Цитата:

Сообщение от Александр Ривилис

Примитив (в терминах AutoCAD) - это графический объект. Например, слой или тип линии или размерный стиль - это объекты (не примитивы). А линия, полилиния, дуга, твердое тело и т.д. - это примитивы.

Странно видеть это заявление от опытного со стажем программиста. Особенно про термины AutoCAD. Когда AutoCAD предлагает выбрать ОБЪЕКТЫ, то это ни в коем случае не означает выбрать слой, тип линии и т.д. Слой, тип линии и т.д. - это свойства объекта. А сам объект - это в большинстве случаев именно графическое представление. Зато примитив - простейший графический объект, т.е. - точка.

Александр Ривилис · 13.11.2018, 14:41

Цитата:

Сообщение от Громов Владимир

Странно видеть это заявление от опытного со стажем программиста. Особенно про термины AutoCAD. Когда AutoCAD предлагает выбрать ОБЪЕКТЫ, то это ни в коем случае не означает выбрать слой, тип линии и т.д. Слой, тип линии и т.д. - это свойства объекта. А сам объект - это в большинстве случаев именно графическое представление. Зато примитив - простейший графический объект, т.е. - точка.

Увы, но это некорректный перевод с английского и разночтения. Entity - примитив (и соответствующий ему класс AcDbEntity в ObjectARX и Entity в .NET API) . Object - объект (класс AcDbObject и DBObject). Примитив - это не обязательно "простейший" объект. Вставка блока - это тоже примитив (entity), как, например, и стена/окно/дверь/лестница/и т.д. из AutoCAD Architecture и соответствующие Custom Entity из других вертикальных приложений.
В иерархии классов всё четко.

Кулик Алексей aka kpblc · 13.11.2018, 17:58

a-karlson, еще раз - с любым числом, которое тебе "неправильно" обрабатывается, выполни такую последовательность (где val - твое число):

Код:

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

 (vl-prin1-to-string val)
(fix val)
(rtos val 2 16)
(strcat (itoa (fix val)) "." (rtos (* 1e16 (- val (fix val))) 2 16))

И посмотри, что получается.

a-karlson · 18.11.2018, 08:22

Цитата:

Сообщение от Кулик Алексей aka kpblc

a-karlson, еще раз - с любым числом, которое тебе "неправильно" обрабатывается, выполни такую последовательность (где val - твое число):

Код:

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

 (vl-prin1-to-string val)
(fix val)
(rtos val 2 16)
(strcat (itoa (fix val)) "." (rtos (* 1e16 (- val (fix val))) 2 16))

И посмотри, что получается.

посмотрел (скриншот прилагается)
выхлоп в текстовое окно:

Код:

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

 
число (fix число)
9160.86 9160.0
9160.0 9159.0
9159.0 9159.0 (отсюда и далее изменений нет, или у меня не хватило терпения дождаться)

Кулик Алексей aka kpblc · 18.11.2018, 09:37

И какое из них - val или tt - "неправильное"?

a-karlson · 25.11.2018, 09:10

Цитата:

Сообщение от Кулик Алексей aka kpblc

И какое из них - val или tt - "неправильное"?

вот честно не понял, в каком смысле "неправильное", если в том смысле, что значения неожиданные, то это любые, отличные (после первой итерации) от 9160(.0), для данного примера

25.09.2018, 11:41		#1
Необъяснимое поведение fix a-karlson Регистрация: 06.06.2009 Сообщений: 19 Господа, доброго времени суток! Не может ли кто-нибудь рассказать, почему fix при округлении вычитает единицу? т.е. мы имеем число 3550.0, желаем превратить его в int и ждем, что получится 3550, но fix выдает 3449
Просмотров: 9360

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Посоветуйте, пожалуйста, литературу по проектированию фундаментов на основаниях, содержащих слой сильновыветрелого грунта (рухляка) или поведение рухляка под нагрузкой	Zvezdaneba	Поиск литературы, чертежей, моделей и прочих материалов	5	28.07.2016 15:11
Странное поведение функции GetPoint	krok64	Программирование	3	15.06.2016 08:01
Непонятное поведение цикла по списку	swkx	Программирование	33	28.03.2012 15:39
Поведение AutoCAD 2005 после установки 2006	Кулик Алексей aka kpblc	AutoCAD	12	10.08.2005 08:49