[求助]关于Tracepro 的marco语言（scheme）如何迭代 [复制链接]

关于这个小程序，不明白错在哪里，大家讨论一下 8/:\iPk0  
(define z 3) 6{M.S}.^  
(define y 6) T1E{NgK  
(define r 100) L$g;^@j  
(define (refl y z) [#:k3aFz  
  (define sphere1 (solid:sphere 0 y z r)) `d8TA#|`  
  (if (< y 12) 6XP>p$-  
    (refl (+ y 1) z) zy|hf<V  
    (define sphere0 (solid:sphere 0 0 0 r)) <~dN23)  
    ) DCj!m<Y&  
  ) wQ5__"D  
运行后，只有一些输出命令，没有实体 $)U RY~;i  
5GKz@as8  

图片:scheme.JPG

G.Q+"+*^  
Sz =z TPnO  

图片:结果.JPG

沙发自已坐 wegBMRQVp  

顶一顶帖子

对marco语言熟吗？我想导入一个表面材料数据（如BRDF数据），能用这个实现吗

(define (refl y z)；这里有问题，refl y z是参量，你这样定义就错了，仔细看看lisp语言的基本语法就明白了 E;yP.<PW  
) q:fkF^>  

←_←好好看看

内容来自Android手机客户端

272049844:(define (refl y z)；这里有问题，refl y z是参量，你这样定义就错了，仔细看看lisp语言的基本语法就明白了 T,r?% G{XE  
) g%TOYZr!X  
 (2013-06-17 15:47)  a]]eQ(xQ  

f?W_/daP  
(define (refl y z) 9eBD)tnw  
这是定义一个函数,函数名为refl ，因变量 y和z [>![ViX  
不知道哪错了

不好意思，好久没上来看看，是我先前看错了，refl是函数，那你运行出来只有refl是正常的，因为你的子函数refl里面没有给点yz值，你在全局里面定义没用的，必须在refl里面给定

不过参数定义在里面就无法实现迭代了，所以还是用do来循环吧