关于Tracepro 的marco语言（scheme）如何迭代

关于这个小程序，不明白错在哪里，大家讨论一下
(define z 3)
(define y 6)
(define r 100)
(define (refl y z)
  (define sphere1 (solid:sphere 0 y z r))
  (if (< y 12)
    (refl (+ y 1) z)
    (define sphere0 (solid:sphere 0 0 0 r))
    )
  )
运行后，只有一些输出命令，没有实体

[attachment=49034]

[attachment=49035]

sai6521472	2013-05-31 12:37
沙发自已坐 c%O8h

sai6521472	2013-05-31 15:03
顶一顶帖子

stoong	2013-06-08 23:27
对marco语言熟吗？我想导入一个表面材料数据（如BRDF数据），能用这个实现吗

272049844	2013-06-17 15:47
(define (refl y z)；这里有问题，refl y z是参量，你这样定义就错了，仔细看看lisp语言的基本语法就明白了 iL\eMa ) 8^U+P%

caidao737	2013-07-23 23:23
←_←好好看看

sai6521472	2013-08-06 23:11
272049844:(define (refl y z)；这里有问题，refl y z是参量，你这样定义就错了，仔细看看lisp语言的基本语法就明白了 @!MhVNS_< ) ZA!yw7~ (2013-06-17 15:47) 1-6[KBQ8 )?qH#>mD6 (define (refl y z) 'D1Sm&M2%e 这是定义一个函数,函数名为refl ，因变量 y和z &8^ch,+pD 不知道哪错了

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

272049844	2013-10-21 20:35
不过参数定义在里面就无法实现迭代了，所以还是用do来循环吧

查看本帖完整版本: [-- 关于Tracepro 的marco语言（scheme）如何迭代 --] [-- top --]