[转贴]：lambda-expressions

eachy

2. 
   
3. (defun fplot (expr steps xpi ypi / xn yn zn tlist plist _plot)
   
4.   (defun _plot (l / i j)
   
5.     (setq i 0)
   
6.     (command "_3dmesh" (length l) (length (car l)))
   
7.     (repeat (length l)
   
8.       (setq j 0)
   
9.       (repeat (length (car l))
   
10.         (command (nth j (nth i l)))
    
11.         (setq j (1+ j))
    
12.       )
    
13.       (setq i (1+ i))
    
14.     )
    
15.   )                                       ; **********************
    
16.   (setvar "blipmode" 0)
    
17.   (setvar "cmdecho" 0)
    
18.   (setq plist nil)
    
19.   (setq xn 0.0
    
20.         yn 0.0
    
21.   )
    
22.   (repeat (* xpi steps)
    
23.     (setq tlist nil)
    
24.     (setq yn 0.0)
    
25.     (repeat (* ypi steps)
    
26.       (setq zn ((eval expr) xn
    
27.              yn
    
28.             )
    
29.       )
    
30.       (setq tlist (append
    
31.                     tlist
    
32.                     (list (list xn yn zn))
    
33.                   )
    
34.       )
    
35.       (setq yn (+ yn (/ pi steps)))
    
36.     )
    
37.     (setq plist (append
    
38.                   plist
    
39.                   (list tlist)
    
40.                 )
    
41.     )
    
42.     (setq xn (+ xn (/ pi steps)))
    
43.   )
    
44.   (_plot plist)
    
45. )
    

<br /> (defun fplot (expr steps xpi ypi / xn yn zn tlist plist _plot)<br />   (defun _plot (l / i j)<br />     (setq i 0)<br />     (command "_3dmesh" (length l) (length (car l)))<br />     (repeat (length l)<br />       (setq j 0)<br />       (repeat (length (car l))<br />         (command (nth j (nth i l)))<br />         (setq j (1+ j))<br />       )<br />       (setq i (1+ i))<br />     )<br />   )                                       ; **********************<br />   (setvar "blipmode" 0)<br />   (setvar "cmdecho" 0)<br />   (setq plist nil)<br />   (setq xn 0.0<br />         yn 0.0<br />   )<br />   (repeat (* xpi steps)<br />     (setq tlist nil)<br />     (setq yn 0.0)<br />     (repeat (* ypi steps)<br />       (setq zn ((eval expr) xn<br />              yn<br />             )<br />       )<br />       (setq tlist (append<br />                     tlist<br />                     (list (list xn yn zn))<br />                   )<br />       )<br />       (setq yn (+ yn (/ pi steps)))<br />     )<br />     (setq plist (append<br />                   plist<br />                   (list tlist)<br />                 )<br />     )<br />     (setq xn (+ xn (/ pi steps)))<br />   )<br />   (_plot plist)<br /> )<br />

E.g

1. (fplot '(lambda(x y / )(*(cos x)(cos y))) 10 10 10)

复制代码

                               
登录/注册后可看大图

                               
登录/注册后可看大图

1. 
   
2. (fplot
   
3. '(lambda(x y / )
   
4.     (max -0.5(min 0.5(*(cos x)(cos y))))
   
5.   )
   
6. )

复制代码

                               
登录/注册后可看大图

1. 
   
2. (fplot
   
3. '(lambda(x y / )
   
4.     (/(*(+(cos x)x)(+(cos y)y))50.0)
   
5.   )
   
6. )

复制代码

                               
登录/注册后可看大图

                               
登录/注册后可看大图

1. 
   
2. (fplot '(lambda(x y / )(cos(* x y))) 20 3 3)

复制代码

                               
登录/注册后可看大图