看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
+ \8 E2 D1 ?% m0 H
但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
4 K% i2 G* h1 Q7 y+ g% P2 a# T
turtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
& l. p# z# ^8 k5 C- gto new
; H& k2 B5 _8 t7 w; _0 Q  ca
  crt 5 * num_of_building
1 [" v3 {" m# {* x  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
9 p+ s& P7 \3 R6 n0 k4 i  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
" y& j- J- z' x( j7 N2 n7 Mend
# b( \% O! F' u! i" Lto scatter
( I: g) t; N! g8 N, ]# `ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
+ ^7 \! I- s$ T0 yend
* _$ A! R5 L; B' }7 G# S) ~to unit_plan
ask turtles [
* e' |( o- n% `if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
) f6 {* J; @; B% G* f* \0 n    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
2 C. }! x, W. A/ Qif (remainder who 5 = 2) [set c who
2 f. ^2 q9 T) r- G1 X# Z                          set x ( 0 - Wid / 2 )
$ J4 F9 `; p/ P0 C* }4 \                          set y (0 - Dep / 2 )  ]
) c1 C( \! d2 w                          set d int (c / 5) * 5
1 u  N8 f4 i1 x   setxy   ( xcor-of turtle d + x )
: g2 b+ ^5 @$ j% q           (ycor-of turtle d + y )
, Z6 G5 T3 e* [& a( Z         
/ M3 o8 D6 b8 t$ S, v: O+ M            
if (remainder who 5 = 3) [set k who
5 Y1 n; ~3 v) y2 d+ F( H, [: }$ y+ d                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
* Q6 g4 ?7 ]6 \* i4 j) G- b           (ycor-of turtle f + y )
# ~- z& e7 j- |# M* v           
1 n* q2 b3 g2 j' w- _$ h           
if (remainder who 5 = 4) [set g who
                          set x Wid / 2
  c+ T/ O6 S. f9 |( z# u8 ]. }" o1 X- I                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
) v- _( _, c! U           (ycor-of turtle h + y )
                          
                          
                          ]
end

* f6 x& v0 H! ~[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
0 P1 j3 b7 s6 Y# o/ t* e应该是
& E7 l& n$ t, C' g. Wask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
5 N* O7 c2 o+ M5 L1 n           set b  int (who / 5) * 5
9 S0 W. x. ~' P2 d, K( r2 g1 g. K- i    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
' b+ C3 G! Q) A+ d! Send
之前有个括号位置不对没发现