切换到宽版
  • 广告投放
  • 稿件投递
  • 繁體中文
    • 3074阅读
    • 8回复

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

    上一主题 下一主题
    离线sai6521472
     
    发帖
    85
    光币
    490
    光券
    0
    只看楼主 正序阅读 楼主  发表于: 2013-05-31
    关于这个小程序,不明白错在哪里,大家讨论一下 r#CQCq  
    (define z 3) C0$KpUB  
    (define y 6) ySk'#\d  
    (define r 100) y6*9, CF  
    (define (refl y z) vUU)zZB ~  
      (define sphere1 (solid:sphere 0 y z r)) ya^zlj\`0e  
      (if (< y 12) !.nyIA(  
        (refl (+ y 1) z) &n)=OConge  
        (define sphere0 (solid:sphere 0 0 0 r)) ^k7`:@ z0U  
        ) +jPs0?}s  
      )  ;Iu}Q-b*  
    运行后,只有一些输出命令,没有实体 1\'zq;I~  
    KPcOW#.T  
    %3r`EIB6  
    .0b$mSV[  
    本主题包含附件,请 登录 后查看, 或者 注册 成为会员
     
    分享到
    离线272049844
    发帖
    364
    光币
    1460
    光券
    0
    只看该作者 8楼 发表于: 2013-10-21
    不过参数定义在里面就无法实现迭代了,所以还是用do来循环吧
    离线272049844
    发帖
    364
    光币
    1460
    光券
    0
    只看该作者 7楼 发表于: 2013-10-21
    不好意思,好久没上来看看,是我先前看错了,refl是函数,那你运行出来只有refl是正常的,因为你的子函数refl里面没有给点yz值,你在全局里面定义没用的,必须在refl里面给定
    离线sai6521472
    发帖
    85
    光币
    490
    光券
    0
    只看该作者 6楼 发表于: 2013-08-06
    回 272049844 的帖子
    272049844:(define (refl y z);这里有问题,refl y z是参量,你这样定义就错了,仔细看看lisp语言的基本语法就明白了 8hTtBa  
    ) y?t2@f]!XK  
     (2013-06-17 15:47)  7lo`)3mB  
    @+9x8*~S'  
    (define (refl y z) Ly?%RmHK  
    这是定义一个函数,函数名为refl ,因变量 y和z 5eZ8$-&([  
    不知道哪错了
    离线caidao737
    发帖
    404
    光币
    207
    光券
    0
    只看该作者 5楼 发表于: 2013-07-23
    离线272049844
    发帖
    364
    光币
    1460
    光券
    0
    只看该作者 4楼 发表于: 2013-06-17
    (define (refl y z);这里有问题,refl y z是参量,你这样定义就错了,仔细看看lisp语言的基本语法就明白了 IfGmA.O  
    ) 4CzT<cp  
    离线stoong
    发帖
    54
    光币
    63
    光券
    0
    只看该作者 3楼 发表于: 2013-06-08
    对marco语言熟吗?我想导入一个表面材料数据(如BRDF数据),能用这个实现吗
    离线sai6521472
    发帖
    85
    光币
    490
    光券
    0
    只看该作者 2楼 发表于: 2013-05-31
    顶一顶帖子
    离线sai6521472
    发帖
    85
    光币
    490
    光券
    0
    只看该作者 1楼 发表于: 2013-05-31
    沙发自已坐 7pB5o2CD0