UF1(x)=3e*e + sin(x-pi*pi );
UF2(x)= tg(x)*ctg(x+pi/2)----это выражение полностью под знаком корня.
вот код проги но выходит ошибка unbound variable - E --не понимаю в чем дело..
(defun uf1 (x)
(+ (* 3 e e)
(sin (- x (* pi pi)))))
(defun uf2 (x)
(sqrt
(/ (tan x)
(tan (+ x (/ pi 2))))))
(defun TOufr (x y)
(setq ufr (list (eval(uf1 x)) (eval(uf2 y))))
)
(defun x1x2x3 ()
(setq x1 (reverse ufr))
(setq x2 (length ufr))
(setq x3 (+ (nth 0 ufr) (nth 1 ufr)))
)