看看这段代码的问题

etamina

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

; X2 e& k5 c* J但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
; u8 u+ d- I% |% F* U
6 b7 D  r7 R7 K5 G5 ?1 tturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
, o) v$ X+ i3 V]
to new
  ca
: h( ?8 y- l' H1 z% ~2 h  U. h" L& B4 e  crt 5 * num_of_building
' O& }' P! Y0 R8 b3 \$ s7 l  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
5 l3 g0 T$ m0 P7 ato scatter
ask turtles with [remainder who 5 = 0]
[
# v- V. i' B# T. @( @set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
* a# ?6 a4 \" k# w- g1 Q- y]
end
to unit_plan
% ?1 ]% c7 @0 w& Z3 F2 jask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
) K7 i" R* K- ?7 k           set b  int (a / 5) * 5
1 t) t4 w" I+ v1 N    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
1 f+ w9 ^5 n% t' s# _, _                          set x ( 0 - Wid / 2 )
$ g$ [) `' z1 c+ S* Y1 G                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
3 v9 f3 w( ~& j, ]   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
3 L  i' b- R/ e9 x8 N            
) N. i; s6 d& a- {* A" x2 m; sif (remainder who 5 = 3) [set k who
3 z& r4 x2 W/ Z! V  ?" i  E$ B                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
# r  N1 E3 }. B, I$ ^           
  ]" A1 a1 Z1 D" q0 P( X2 V' D           
& M6 L  @3 L3 Qif (remainder who 5 = 4) [set g who
' w& A" q# D8 r                          set x Wid / 2
  U- ]0 u7 y, y$ F/ [9 c8 O: p  y                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
3 m; w' U5 k1 S; G% b  setxy   ( xcor-of turtle h + x )
) _0 ?$ G4 d* A. F8 J1 r           (ycor-of turtle h + y )
- u* X7 Y# A% P3 U( X' E( m                          
/ f3 ^( M- U6 `. o% b# B9 |                          
+ [0 u! i3 `- H( w4 ]" r& O6 W                          ]
* f0 I, y, r# a" ]5 V9 hend

* X' r" s) P1 Y[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
/ c, J8 z" R) o4 M应该是
ask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
  S5 ~" I& [" P8 [) V                          set y  Dep / 2
           set b  int (who / 5) * 5
: V6 n: q8 M+ Z( e    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
* \" c8 c9 L* p9 _$ l% B( g0 @, _end
5 x. b8 `* j/ Z之前有个括号位置不对没发现