[LISP函数]：近似求根程序

hetang

(DEFUN FINDROOT(IA IH FUN)
  (SETQ AA IA H IH X0 AA X1 AA X X0 Y0 (EVAL FUN))
  (WHILE (> (* Y0 (SETQ X X1 Y1 (EVAL FUN))) 0) (SETQ X0 X1 X1 (+ X1 H)))
  X0
) ;END FUN FINDROOT

(DEFUN FINDROOT2(IA FUN)
  (SETQ AO (FINDROOT IA 1 FUN) AO (FINDROOT AO 0.001 FUN)
        AO (FINDROOT AO 0.000001 FUN))
) ;END FUN FINDROOT2

(DEFUN FINDROOT3(IA FUN NUM)
  (SETQ RST (LIST))
  (SETQ AO (FINDROOT2 IA FUN)
        RST (APPEND RST (LIST AO)))
  (REPEAT (1- NUM)
    (SETQ AO (FINDROOT2 AO FUN) RST (APPEND RST (LIST AO)) AO (+ AO 0.01))
  )
  RST
)