lisp编程实例.doc

Visual LISP 编程应用实例集 计算类程序 1.计算阶剩值n! (注意：采用了递归方式) (defun jsen (n) (if (= n 0) 1 (* n (jsen (1- n))))); 2.迭代计算（） (defun ddai (x) (setq x1 0 x2 x e 1.0e-5 i 0) (while ( (abs (- x2 x1)) e) (setq x1 x2) (setq x2 (expt (+ x1 1) (/ 1 3.0))) (setq i (1+ i)));while (print x=) (princ x2) (print i=) (princ i) (princ));end 3.一元二次方程求解() (defun px2 (a b c) (setq d (- (expt b 2.0) (* 4 a c))) (cond (( d 0) (prompt \nNo root!)) ((= d 0) (progn (setq x (/ b (* -2.0 a))) (prompt \nOne root! x=) (princ x))) (( d 0) (progn (setq x1 (/ (- (sqrt d) b) (* 2.0 a)) x2 (/ (+ (sqrt d) b) (* -2.0 a))) (prompt \nTwo root! x1=) (princ x1) (prompt x2=) (princ x2))));cond (princ));end 4.成绩分析统计 注意：使用该程序前须将全班成绩输入一个数据文件中保存，格式为（78 89 67 ….） (defun sjfx (fname) (setq f (open fname r)) (setq lb nil) (while (setq sd (read-line f)) (setq lb (append lb (read sd)))) (close f) (setq xsum 0) (foreach x lb (setq xsum (+ x xsum))) (setq n (length lb) xb 0) (setq xbar (/ xsum (* 1.0 n))) (foreach x lb (setq xb (+ xb (* (- x xbar) (- x xbar))))) (setq xbzc (sqrt (/ xb (* 1.0 n)))) (repeat 18 (terpri)) (prompt ************ 统计结果 ******************) (terpri) (prompt (strcat 全班总平均分数 X= (rtos xbar 2 3))) (terpri) (prompt (strcat 标准差 δ= (rtos xbzc 2 3))) (terpri) (prompt (strcat Total number: N= (rtos n 2 0))) (terpri) (prompt ****************************************) (terpri) (princ));end 二、数据检索类 1.根据计算模数检索标准模数值(假定mc为1~10之间的任意值，以实参代入) (defun jsm (mc) (setq ml (1 1.25 1.5 2 2.5 3 4 5 6 8 10)) (setq m 0 n 0) (while ( m mc) (setq m (nth n ml) n (1+ n)));while (prompt (strcat \nm= (rtos m 2 1))) (princ));end 2.检索一类数据文件（一类数据文件必须存在，且数据格式必须统一） (defun js1 (fname kd / ft nt j x) (setq f (open fname r)) (setq ft (read (read-line f)) nt (read (read-line f))) (while (/= kd (car nt)) (setq nt (read (read-line f)))) ;while (setq j -1) (repeat (length nt) (setq j (1+ j) x (nth j ft)) (set x (nth j nt)))；reapeat (close f) nt);end 3.检索二类数据文件（二类数据文件必须存在，且数据格式必须统一） (defun js2 (fname k