[pele]

Как в lispe начертить биссектрису прямого угла длиной 50 мм, координаты вершины угла я знаю. Может как то полярные координаты в lispe используются, как?

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

polar?

[fixo]

Можешь попробовать такой вариант:

Код:

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

            ; written by  Uhden, John 
            (defun @delta (a1 a2)
            (cond
            ((> a1 (+ a2 pi))
            (- (+ a2 pi pi) a1)
            )
            ((> a2 (+ a1 pi))
            (- a2 a1 pi pi)
            )
            ((- a2 a1))
            )
            )

            
            (defun @bisectp (P0 P1 P2 D / a1 ang)
            (setq a1 (angle P0 P1)
            ang (* 0.5 (@delta a1 (angle P0 P2)))
            )
            (polar P0 (+ a1 ang)(/ D (sin ang)))
            )

~'J'~