(in-package :opis)

;; new bumping penalty function (3/1/06)
(defun compute-bumping-penalty (m) 
  ;;(format t "~%BUMPING PENALTY... for ~a~&" m)
  (interpolate m (list (list 0 0)(list 20 0.02)(list 40 0.08))))

