Породження комбінаторних об’єктів, Детальна інформація

(SETQ step (/ (- b a) n) intsumma 0) (* x x)

(LOOP )

((= a b) (* intsumma step))

(INCQ intsumma (FUNCALL function a)) Виклик: (INTEGRATE f 0 1 100)

(INCQ a step)

) )

б) (DEFUN HALFDIV (function a b eps)

(SETQ middle (/ (+ a b) 2) res (FUNCALL function middle))

((< (- b a) eps) middle)

(IF (MINUSP (* res (FUNCALL function a)))

(HALFDIV function a middle eps) (HALFDIV function middle b eps))

)

в) $ (DEFUN SQRT2 (n eps) г) $ (DEFUN DIFF (function x)

(SETQ s (/ n 2)) (SETQ delta 0.01)

(LOOP (/ (- (FUNCALL function (+ x delta))

(SETQ snew (/ (+ s (/ n s)) 2)) (FUNCALL function x)) delta)

((< (ABS(- s snew)) eps) snew) )

(SETQ s snew)

) )

Вказівка: x1 = n/2, xi = (xi-1 + n/xi-1) / 2. f’ (x) = (f(x + dx) - f(x)) / dx, де dx = 0.001.