Описание: функция cauchy-smoothing

Пример использования:

(loop :for d :from 0 :to 4 :by 1/10 :collect
     (list d (cauchy-smoothing d)))

Описание: функция exp-smoothing

Пример использования:

(loop :for d :from 0 :to 4 :by 1/10 :collect
     (list d (exp-smoothing d)))

Описание: функция gauss-smoothing

Пример использования:

(loop :for d :from 0 :to 4 :by 1/10 :collect
     (list d (gauss-smoothing d)))

Описание: функция hann-smoothing

Пример использования:

(loop :for d :from 0 :to 4 :by 0.1 :do
     (format t "~{~5F~^ ~}~%" 
             (list d 
               (gauss-smoothing  d)
               (exp-smoothing    d)
               (cauchy-smoothing d)
               (hann-smoothing   d))))