[其他]：大家一起来试试

aeo

已知:
(setq p1'(110.555 77.8268 0.0))
(setq p2'(113.818 77.8268 0.0))
(setq p3'(113.818 77.8268 0.0))
(setq p4'(117.082 77.8268 0.0))
(setq p5'(117.082 77.8268 0.0))
(setq p6'(121.829 77.8268 0.0))
(setq p7'(121.829 77.8268 0.0))
(setq p8'(126.577 77.5303 0.0))
(setq p9'(126.577 77.5303 0.0))
(setq p10'(133.104 77.5303 0.0))
(setq p11'(133.104 77.5303 0.0))
(setq p12'(139.631 77.2338 0.0))
(setq p13'(139.631 77.2338 0.0))
(setq p14'(152.39 76.9373 0.0))
(setq p15'(152.39 76.9373 0.0))
(setq p16'(163.961 75.1581 0.0))
(setq p17'(163.961 75.1581 0.0))
(setq p18'(174.642 74.8616 0.0))
(setq p19'(174.642 74.8616 0.0))
(setq p20'(182.653 74.5651 0.0))

大家写一段程序,完成下面的意思.
(setq p1(polar p1 0 1000)
           p2(polar p2  0 1000)
          ...
           p20(polar p20  0 1000)
)

要求用最简捷的方法.

eachy

不知对不对

2. 
   
3. (foreach p (list p1 p2 p3 p4 p5        p6 p7 p8 p9 p10        p11 p12        p13 p14        p15 p16
   
4.                  p17 p18 p19 p20)
   
5.   (setq n 1)
   
6.   (setq        (eval (read (strcat "p" (rtos n 2 0))))
   
7.          (polar
   
8.            (eval
   
9.              (read
   
10.                (strcat "p"
    
11.                        (rtos n 2 0)
    
12.                )
    
13.              )
    
14.            )
    
15.            0
    
16.            1000
    
17.          )
    
18.   )
    
19.   (setq n (1+ n))
    
20. )

<br /> (foreach p (list p1 p2 p3 p4 p5        p6 p7 p8 p9 p10        p11 p12        p13 p14        p15 p16<br />                  p17 p18 p19 p20)<br />   (setq n 1)<br />   (setq        (eval (read (strcat "p" (rtos n 2 0))))<br />          (polar<br />            (eval<br />              (read<br />                (strcat "p"<br />                        (rtos n 2 0)<br />                )<br />              )<br />            )<br />            0<br />            1000<br />          )<br />   )<br />   (setq n (1+ n))<br /> )

ll_j

2. 
   
3. (setq n 1)
   
4. (foreach p (list p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16
   
5.                  p17 p18 p19 p20)
   
6.   (set (read (strcat "p" (rtos n 2 0))) (polar p 0.0 1000.0))
   
7.   (setq n (1+ n))
   
8. )
   

<br /> (setq n 1)<br /> (foreach p (list p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16<br />                  p17 p18 p19 p20)<br />   (set (read (strcat "p" (rtos n 2 0))) (polar p 0.0 1000.0))<br />   (setq n (1+ n))<br /> )<br />

不过，为什么不用表呢？用这么多变量有点...

aeo

最初由 ll_j 发布
[B][code]
(setq n 1)
(foreach p (list p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16
                 p17 p18 p19 p20)
  (set (read (strcat "p" (rtos n 2 0))) (polar p 0.0 1000.0))
  (setq n... [/B]

我弄着玩的,

假定有100个点呢?不会也p1 p2下去吧

你们两位就别参与了.

谁最简单有奖.

梦断江南

呵呵,翻到个旧的帖子,我来试试

2. 
   
3. (defun tt ( st n ang dis / i a)
   
4.   (setq i 0)
   
5.   (repeat n
   
6.     (set (setq a (read (strcat st (itoa (setq i (1+ i)))))) (polar (eval a) ang dis))
   
7.   )
   
8. )
   
9. (tt  "P" 20 0 1000)
   

<br /> (defun tt ( st n ang dis / i a)<br />   (setq i 0)<br />   (repeat n<br />     (set (setq a (read (strcat st (itoa (setq i (1+ i)))))) (polar (eval a) ang dis))<br />   )<br /> )<br /> (tt  "P" 20 0 1000)<br />

saltxf

我觉得用数组比较好，但有不知道该怎么用？

aeo

最初由 梦断江南 发布
[B]呵呵,翻到个旧的帖子,我来试试
(defun tt ( st n ang dis / i a)
  (setq i 0)
  (repeat n
    (set (setq a (read (strcat st (itoa (setq i (1+ i)))))) (polar (eval a) ang dis))
  )
)
(tt  "P... [/B]

^_^

[php]
(defun tt ( str from to foo /  a)
  (while(<= from to)
    (set (setq a(read(strcat str(itoa from))))
         (apply foo(list(eval a)))
    )
    (setq from(1+ from))
  )T
)
[/php]

2. 
   
3. ;;test:
   
4. (tt "b" 1 9 '(lambda(x) 100))
   
5. ;--->b1 b2 b3 ... == 100
   
6. (tt "b" 1 9 '(lambda(x)(1+ x)))
   
7. ,---> b1 b2 b3 ...==101
   
8. 
   
9. 
   
10. 
    
11. (setq p0 '(1 1 1))
    
12. (tt "p" 1 9 '(lambda(x)(setq p0(mapcar '+(if x x p0) p0))))
    

<br /> ;;test:<br /> (tt "b" 1 9 '(lambda(x) 100))<br /> ;--->b1 b2 b3 ... == 100<br /> (tt "b" 1 9 '(lambda(x)(1+ x)))<br /> ,---> b1 b2 b3 ...==101<br /> <br /> <br /> <br /> (setq p0 '(1 1 1))<br /> (tt "p" 1 9 '(lambda(x)(setq p0(mapcar '+(if x x p0) p0))))<br />

梦断江南

最初由 aeo 发布
(defun tt ( st n ang dis / i a)
  (setq i 0)
  (repeat n
    (set (setq a (read (strcat st (itoa (setq i (1+ i)))))) (polar (eva...

[php]
(defun tt ( str from to foo /  a)
  (while(<= from to)
    (set (setq a(read(strcat str(itoa from))))
         ((eval foo) (eval a))  ;;这里可用eval 替代apply
    )
    (setq from(1+ from))
  )T
)
[/php]
另外,不方便检测结果,改一下,得出下面的程序
[php]
(defun tt ( str from to foo / strs)
  (while(<= from to)
    (setq strs (cons (read(strcat str(itoa from))) strs)
          from(1+ from))
  )
  (mapcar '(lambda(x)(set x ((eval foo) (eval x))))(reverse strs))
)
[/php]
;;test:
(tt "p" 1 9 '(lambda(x)nil)) ->(nil nil nil nil nil nil nil nil nil)
(tt "b" 1 9 '(lambda(x) 200))
->(200 200 200 200 200 200 200 200 200)
(setq p0 '(1 1 1))
(tt "p" 1 9 '(lambda(x)(setq p0(mapcar '+(if x x p0) p0))))
->((2 2 2) (4 4 4) (8 8 8) (16 16 16) (32 32 32) (64 64 64) (128 128 128) (256 256 256) (512 512 512))
(tt "p" 1 9 '(lambda(x)(list (1+ (car x))(cadr x)(caddr x))))
->((3 2 2) (5 4 4) (9 8 8) (17 16 16) (33 32 32) (65 64 64) (129 128 128) (257 256 256) (513 512 512))
(tt "p" 1 9 '(lambda(x)(polar x 0 100)))
->((103.0 2.0 2.0) (105.0 4.0 4.0) (109.0 8.0 8.0) (117.0 16.0 16.0) (133.0 32.0 32.0) (165.0 64.0 64.0) (229.0 128.0 128.0) (357.0 256.0 256.0) (613.0 512.0 512.0))

ww,这个贴加币就可以了,加分有点重了:),不过,我不拒绝,呵呵,谢啦

aeo

(eval(list foo a))也可以,以前有一贴讨论过。各人写法.

eval是lisp里最牛的的一个函数。


以前写一个程序，点特别多，想一起偏移一点，又来一遍赋值，烦的很，就想到了这个.

zhang8755

我用下面这一段代码实现将二维点集ptj中的每一个点偏移dx,dy

(setq ptj (mapcar '(lambda (x) (mapcar '+ (list dx dy) x)) ptj))

urljit

最初由 aeo 发布
[B][QUOTE]最初由 梦断江南 发布
[B]呵呵,翻到个旧的帖子,我来试试
(defun tt ( st n ang dis / i a)
  (setq i 0)
  (repeat n
    (set (setq a (read (strcat st (itoa (setq i (1+ i)))))) (polar (eva... [/B]

本人愚钝，做出如下试验：

2. 
   
3. _$
   
4. _$ (defun tt ( str from to foo /  a)
   
5.   (while(<= from to)
   
6.     (set (setq a(read(strcat str(itoa from))))
   
7.          (apply foo(list(eval a)))
   
8.     )
   
9.     (setq from(1+ from))
   
10.   )T
    
11. )
    
12. TT
    
13. _$ (tt "b" 1 9 '(lambda(x) 100))
    
14. T
    
15. _$ (tt "b" 1 9 '(lambda(x)(1+ x)))
    
16. T
    
17. _$
    
18. _$
    

<br /> _$ <br /> _$ (defun tt ( str from to foo /  a) <br />   (while(<= from to) <br />     (set (setq a(read(strcat str(itoa from)))) <br />          (apply foo(list(eval a))) <br />     ) <br />     (setq from(1+ from)) <br />   )T <br /> )<br /> TT<br /> _$ (tt "b" 1 9 '(lambda(x) 100))<br /> T<br /> _$ (tt "b" 1 9 '(lambda(x)(1+ x)))<br /> T<br /> _$ <br /> _$ <br />

还请aeo解释一下以获释明

梦断江南

解释什么?返回值和过程是两码事
$ (tt "b" 1 9 '(lambda(x) 100))
T
虽然返回T,但是过程已经给 b1 b2.....b9 赋值.
你可以紧接着检验一下这些变量的值
要不就用我在8楼的第二个程序,可以直接反映出变量的值(以列表形式)

urljit

明白了，很久没有编程了，甚至看不懂程序了，当然也是诸位高手的程序深奥。

aeo

最初由 urljit 发布
[B]明白了，很久没有编程了，甚至看不懂程序了，当然也是诸位高手的程序深奥。 [/B]

功能函数，只要检测程序有没有正常执行。
其实应该用vl-catch-all-apply比较好.
如果函数没正常执行，就安全退出.
(if (tt ...)(progn ..))

urljit

明白了，谢谢斑竹