看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。

, t8 I/ k. S! \但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
  ]" p/ \/ D* Q; f  `  P9 k
turtles-own [a b c d k f g h
  N& E; l0 G# H3 X( B8 @8 Z7 N$ t6 q( [  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
/ x* D; B2 H) C* }5 B6 D  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
, w3 [/ O) F" H7 [" [  unit_plan   ;;make up the building plan
6 I( \6 ]# Y& I5 m0 kend
to scatter
ask turtles with [remainder who 5 = 0]
0 B4 E0 Y* t$ b  W8 i[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
- d' d+ I; R. O]
# t7 l4 W; _$ r- p& bend
- P/ J$ ~. \9 o$ o# Y: |. Dto unit_plan
ask turtles [
if (remainder who 5 = 1) [set a who
  U& @) K/ Y* ]- N. O6 v  o& A' ^                          set x ( 0 - Wid / 2 )
4 x4 k4 n. v' t7 ]                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
2 n9 [6 @" o! U. q: f' ?, M$ q, yif (remainder who 5 = 2) [set c who
* j' D) Y  n* P  t                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
# D2 a6 T# ?' I                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
5 p! E, ?4 a" ~9 d           (ycor-of turtle d + y )
* r  x( x5 s$ A- L- ]( `! |, U         
, d  A/ J( t, ~' m$ E( @            
/ }1 N, C1 a) K* t- A4 Yif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
2 R' |) N% z. u% J                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
! _, U5 L+ I/ J$ _- T  ^  setxy   ( xcor-of turtle f + x )
' e7 G* M7 R# A  @6 E           (ycor-of turtle f + y )
7 C( R4 s" i; M/ `7 ^* {5 p           
           
; J& I1 v  Q7 _5 u3 m( A# g; q# qif (remainder who 5 = 4) [set g who
! ^( K9 r" Y( n9 Z                          set x Wid / 2
                          set y  Dep / 2 ]
- X# \7 _0 z! R1 n                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
0 @4 |1 }3 T6 i  K3 H                          
                          
                          ]
end
' k* |, ^2 j# g" s/ f2 z3 o# g8 Y
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
5 C& G. t- [; B3 D. I应该是
. T- t7 |. ?& qask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
2 _9 ^& y0 J4 V5 d" Y: T+ R           set b  int (who / 5) * 5
3 f& T5 e( P: O    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现