;; | ---------------------------------------------------------------------------- ;; | MI_Diff ;; | ---------------------------------------------------------------------------- ;; | Function : Check if the given two integer or floating point values are ;; | and absolute given range. ;; | Argument : ;; | 'val1' - First value ;; | 'val2' - Second value ;; | 'FUZZ' - Fuzz factor to check ;; | Action : Returns T if they are within the absolute range, nil otherwise. ;; | Updated : July 24, 1999 ;; | e-mail : rakesh.rao@4d-technologies.com ;; | Web : www.4d-technologies.com ;; | ---------------------------------------------------------------------------- (defun MI_Diff( val1 val2 FUZZ ) (if (<= (abs (- val1 val2)) FUZZ) T nil) )