; float = 정수를 실수로 만듬.
; fix = 소숫점 모든자리를 버림.
  
; 소숫점 자리 버림.
(defun rounddown (a b / k c)   ; a=no. b=digit
  (setq k 1)  
  (setq k (repeat b (setq k (* 10 k))))  
  (setq c (fix (* a k)))  
  (setq a (/ (float c) k))  
  a  
)  
  
; 소숫점 자리 반올림.
(defun roundup (a b / k c d e)   ; a=no. b=digit
  (setq k 1)  
  (setq k (repeat b (setq k (* 10 k))))  
  (setq e (/ (setq c (float (fix (* a k)))) k))  
  (setq d (- a e))  
  (setq d (* d k 10))  
  (if (>= d 5)  
    (setq c (+ c 1))  
  )  
  (setq a (/ c k)) 
  a  
)