關(guān)于這個(gè)小程序，不明白錯(cuò)在哪里，大家討論一下 E#?*6/  
(define z 3) 0O+[z9  
(define y 6) }GX[N\$N  
(define r 100) pcwkO  
(define (refl y z) *<?or"P  
  (define sphere1 (solid:sphere 0 y z r)) 4X,fb`  
  (if (< y 12) ckFnQhW  
    (refl (+ y 1) z) h$7rEs  
    (define sphere0 (solid:sphere 0 0 0 r)) 
gRA}sF  
    ) ~Vq<nkWS  
  ) #n&/yYl9(l  
運(yùn)行后，只有一些輸出命令，沒有實(shí)體 _X5@%/Vz  
0T-y]&uo  

圖片:scheme.JPG

Qwl=/<p1  
Ba
==Ri8$  

圖片:結(jié)果.JPG

沙發(fā)自已坐 Itn7Kl  

頂一頂帖子

對marco語言熟嗎？我想導(dǎo)入一個(gè)表面材料數(shù)據(jù)（如BRDF數(shù)據(jù)），能用這個(gè)實(shí)現(xiàn)嗎

(define (refl y z)；這里有問題，refl y z是參量，你這樣定義就錯(cuò)了，仔細(xì)看看lisp語言的基本語法就明白了 /