看看这段代码的问题

etamina

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

但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
$ U* v) g* t/ c$ [" l, x* S  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
# Z& P5 H5 y3 Q: B2 v  scatter     ;;keep center-turtle random positions
' \5 z. o4 [2 d  unit_plan   ;;make up the building plan
+ B# Z1 P3 e/ I- h( y* C: v; K8 fend
  _# r: r" L: W* jto scatter
! A2 Q) f6 a- D' K" C2 task turtles with [remainder who 5 = 0]
# V/ ]' a& H" f1 L" _[
# L* b% b5 {- y) j* xset xcor xcor - 6 + random-float 15
9 @+ t$ ^& {" T3 hset ycor ycor - 6 + random-float 15
* x1 B6 t& L4 [/ o4 e  w5 g* m]
+ }7 |% ]3 B6 W/ Rend
" a! k) i5 I% |to unit_plan
ask turtles [
, ]% B2 o% l  X+ o5 g9 \if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
: ~* R* A0 Y+ H                          set y  Dep / 2 ]
6 i- C& e. \8 A; m           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
8 A& R9 K3 O- d          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
9 c* N7 x; N: J0 ^) n                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
            
" ?1 i  q! ^. `1 c/ Lif (remainder who 5 = 3) [set k who
+ H) z1 _# A, s+ h                          set x( Wid / 2)  
! P8 d0 I! n% T! t9 S" k- v                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
4 J1 y5 N! r6 K0 C  setxy   ( xcor-of turtle f + x )
) I  _0 e4 S: }. }* V           (ycor-of turtle f + y )
6 C) D, J' ?+ J0 s  {- G8 q           
1 T4 i4 A1 g5 Y$ f' ]3 x1 @" D           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
! [- h& \0 U, X* {) ]0 d                          set y  Dep / 2 ]
; H. n3 N$ x& Q                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
& z' W6 @$ y1 p2 _+ c           (ycor-of turtle h + y )
                          
                          
                          ]
; l1 L  f5 L9 \" p" N" Uend

  Z: F. D0 o9 P, c: U[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
- j* Q$ @( q( }0 l应该是
; Y1 f( Y) o. C: x% Z2 X. Bask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
: ]8 R: Z3 P" L' N3 s( O           set b  int (who / 5) * 5
$ T' G9 N' a  f# u, E  ^5 ~    setxy ( xcor-of turtle b + x )
' z# V; Q; M9 h0 Z2 a- Z; K  A          ( ycor-of turtle b + y )]]
end
之前有个括号位置不对没发现