看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
0 ]6 w% h: t+ Q* B; T: z1 \
; m% X' ~: H. [# O* F; A! X% u4 M6 J但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
* _4 U4 T5 f5 B; |* r, E0 r]
/ V2 R9 ]: q+ }& z4 V( i2 ^5 kto new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
2 t9 T9 j3 M( g& Z" }; Z  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
5 f/ H. L. h. r. M/ L; }end
! t' {6 {$ O6 e5 |5 @/ L' c& cto scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
  ?9 V3 ^/ @) s2 [( Q; x' @set ycor ycor - 6 + random-float 15
]
  r- J& D5 `' Y) }: M) uend
! D6 X' B$ D8 M( X( @to unit_plan
" K4 t4 m( [" l# g! ]! d- fask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
* v  C9 l: Z+ ]/ E! \                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
+ B+ I) z8 M  O9 F0 a                          set x ( 0 - Wid / 2 )
$ X& N$ x9 T5 v: S5 s2 {; R                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
1 o- H. M% o! x4 H) F* W3 D   setxy   ( xcor-of turtle d + x )
+ f* s& l1 `- P) s: D, B4 C           (ycor-of turtle d + y )
+ ?; {4 [1 ^8 }2 ?4 ]8 N         
& J" M1 p1 Q/ _- y( F            
if (remainder who 5 = 3) [set k who
% u. |4 {: j$ c9 s# H                          set x( Wid / 2)  
! c; t. G9 D- ?  }5 T9 O0 |                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
/ ]3 H4 p0 x& G3 Z5 W& {  setxy   ( xcor-of turtle f + x )
5 j/ @0 M2 H0 k& Z: P7 |           (ycor-of turtle f + y )
$ e) |+ n8 T5 c           
- S  D& Z. f( d/ @5 R# r           
( r& n- k- F9 C. wif (remainder who 5 = 4) [set g who
' F' T. L! k& X9 Z2 p  K                          set x Wid / 2
                          set y  Dep / 2 ]
1 U! g0 z# a# N" B. r; a1 l                          set h  int (g / 5) * 5
5 x1 j9 e' T1 y' E, l* m6 v  setxy   ( xcor-of turtle h + x )
1 c9 K$ s- }- P: ~! K# [           (ycor-of turtle h + y )
  J$ l) L; F+ S9 I+ ]  K                          
                          
                          ]
end
) ~# Y! x  h. F! x2 \
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
/ B2 U: }9 ]% Q! i, e2 {1 G5 mask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
$ h) \; p% E* Z; F. \: |$ `5 `7 \           set b  int (who / 5) * 5
3 d' d* }' a$ y4 z( ~& @. A9 h$ N9 q    setxy ( xcor-of turtle b + x )
4 ]6 z6 `7 o) Z: ?/ e          ( ycor-of turtle b + y )]]
2 R0 p( O$ ?# g$ B/ r* {1 bend
2 c! I$ _9 l+ S& h. [之前有个括号位置不对没发现