看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
% s  h6 z8 V, k( W
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
% P' H  p8 Z4 W9 Y( w9 b( W% R: i
- m2 f- r6 U7 K' z6 Q* T3 jturtles-own [a b c d k f g h
: y7 G2 `- P* G# [( `; w  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
" M! Z9 R& c: Q3 w/ u3 b# G/ G1 k]
to new
  ca
  crt 5 * num_of_building
; ~0 E( S# E& @. C7 H  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
6 ~* _6 f3 q. X! m/ }2 ^$ F$ S  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
, S0 R' Q$ T/ E' c3 |* ^3 D$ s. Zto scatter
+ ^9 i; W  E4 n3 }. ^) xask turtles with [remainder who 5 = 0]
[
6 f3 N" [9 w0 ]8 Qset xcor xcor - 6 + random-float 15
2 k: R8 L' x! O( r1 jset ycor ycor - 6 + random-float 15
]
end
; \/ a5 N; G+ x( A, ^to unit_plan
3 X; X. E3 _1 p& @2 ^ask turtles [
if (remainder who 5 = 1) [set a who
5 n/ G! w; _. F+ t# `0 p) t                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
: W( m$ B  `) G- P! ?* U           set b  int (a / 5) * 5
' I9 W; Z: H4 }8 e4 L- B& ]    setxy ( xcor-of turtle b + x )
' B8 T/ t: N; S: {: f& I" k          ( ycor-of turtle b + y )
  E  w2 O: G) E& ^if (remainder who 5 = 2) [set c who
0 n: K# J+ T! O5 g7 h/ T* R                          set x ( 0 - Wid / 2 )
+ W8 @: X6 N' ?  u# H# X9 V                          set y (0 - Dep / 2 )  ]
5 m6 }* [- m# N5 T* e# W                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
( Z) I/ }' D7 g& T! m" _; O                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
           
( C  m8 z+ T3 T1 L) P. b           
0 f' I+ b4 V6 y. w  xif (remainder who 5 = 4) [set g who
                          set x Wid / 2
1 `# f9 {4 g' i/ s4 I$ K) V& e5 O                          set y  Dep / 2 ]
3 ]3 p5 e/ h; B8 y7 l( j8 L: ]                          set h  int (g / 5) * 5
9 _% ^3 t" X2 Z5 F" n; c  setxy   ( xcor-of turtle h + x )
- G$ S5 h' }2 e4 ^# Q           (ycor-of turtle h + y )
/ f7 U1 X8 v4 k7 C+ w                          
                          
: e& b0 k3 \4 Z1 o                          ]
end
! t7 ?* D: l) z8 a3 O
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
1 \$ }$ D8 P! S6 I" F3 L3 k                          set y  Dep / 2
           set b  int (who / 5) * 5
" d* M' b1 w4 v$ Z" `    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现