Dear Silviu
Try the following lines .Its like yours but there are some changes. here
'append' function is need to add successive objects to your geometry.
>
> (let loop ((n 0))
> (if (<= n 100)
(begin
>
(set! geometry (append geometry (list
> (make block
(size 50 0.1 )
(center -6 (/ n 10) )
> (material (make dielectric (index (- LN (/ n 100) ) ) ) ) )
>
(make block
(size 50 0.1 )
(center -6 (- 0 (/ n 10) ) )
> (material (make dielectric (index (- LN (/ n 100) ) ) ) ) )
>
) ) ); end geometry
> (loop (+ n 1) )
> ) ;end begin
>
) ; end if
> ) ; end let
>
Best Regards
Mehdi Kamali
_______________________________________________
meep-discuss mailing list
meep-discuss@ab-initio.mit.edu
http://ab-initio.mit.edu/cgi-bin/mailman/listinfo/meep-discuss
