關於誤差 二

[sjgau02]

; file: diff-01.LSP

; main() begin
(setq a1 (* 4.0 (atan 1.0)) a2 (exp 1.0))
(setq da (- a1 a2))

(princ (strcat "\n a1= " (rtos a1 2 6) ", a2= " (rtos a2 2 6)
", da= " (rtos da 2 6) "\n"))
(princ "\n Pause! ...\n")
(getstring)
(princ "\n\n\n")
; ---------------------------------------------------------

(while (> a1 a2)
(setq da (/ da 2.0))
(setq a1 (+ a2 da))

(princ (strcat "a1= " (rtos a1 2 6) ", a2= " (rtos a2 2 6)
", da= " (rtos da 1 6) "\n"))
); end while

(princ (strcat "\n\n\n da= " (rtos da 1 6) "\n"))
(princ "\n Pause! ...\n")
(getstring)

(princ)
; end of file

以上程式是 OK的，
請解釋一下 我要表達的意思