Boltzmann 函数曲线拟合的 Lisp 程序.pdfVIP

Boltzmann 函数曲线拟合的 Lisp 程序 1 原程序 在计算机中，将以下原代码写入记事本 中并保 存文件名为“bzlm.lsp” (setq smx (lambda ( / k wi a1 a2 b1 b2 c1 c2 sx) (setq wi (mapcar (lambda ( x / ) (expt 2.718282 (/ (- x m3) m4))) xi) k 0 a1 (apply + (mapcar (lambda ( y / w) (setq w (nth k wi) k (1+ k)) (/ y (+ 1 w))) yi)) k 0 a2 (apply + (mapcar (lambda ( y / w) (setq w (nth k wi) k (1+ k)) (/ (* y w) (+ 1 w))) yi)) b1 (apply + (mapcar (lambda ( w / ) (/ 1 (expt (+ 1 w) 2))) wi)) b2 (apply + (mapcar (lambda ( w / ) (/ w (expt (+ 1 w) 2))) wi)) c1 b2 c2 (apply + (mapcar (lambda ( w /