看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
0 m. P( C- F: |$ k  r1 r; r. H
3 c- K+ c; S8 u6 w但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。
/ k; c9 S3 A; C9 H/ d5 k0 v: i
, t; {- O% c/ w3 |5 L0 S2 g+ T/ bturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
. }+ j8 z4 J3 a) v3 \]
to new
  ca
  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
6 f/ Z1 R3 L% J  scatter     ;;keep center-turtle random positions
+ P$ J$ N' a' c& S) w8 g  unit_plan   ;;make up the building plan
5 l: c6 {+ ~3 Z. J: D# Eend
to scatter
5 |# R# R' s8 L# I$ Z4 G7 |, ~ask turtles with [remainder who 5 = 0]
[
: x) u1 U8 [0 H. X9 ]! |set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
# t% t1 G' f' |]
end
to unit_plan
9 ]/ X; T% U3 K2 j) Y7 u, N: zask turtles [
: A6 q/ y. z( {" ~4 H0 Mif (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
( M3 a0 b% b% N4 P: Y' o2 v% g5 |& V    setxy ( xcor-of turtle b + x )
6 z7 G4 q) f9 Z2 t) y! K# L3 W8 ]          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
  w* B: K: j) }# ]; Z$ B4 p# I2 I9 A8 V                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
         
: a* P. F& r$ i2 V8 o! R# K            
if (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
4 D* b8 r( M; J3 L$ U                          set f int (k / 5) * 5
3 g; u7 g4 n* h3 n  setxy   ( xcor-of turtle f + x )
# ~; u2 P& u$ f           (ycor-of turtle f + y )
( f* O( w, Z# \           
# _: M. k! g8 n, u: I$ {; F+ s           
  }! D) T0 s% I4 h) gif (remainder who 5 = 4) [set g who
                          set x Wid / 2
  |  f) u& ]6 }9 B# \0 x9 P                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
' B3 c8 d& f" m  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
6 K& o  s. M5 }3 F) C3 l* H                          
" ]" \+ u( Z/ x) \  _* t3 f                          ]
2 b- }4 g! X9 b* m6 ]end
9 A! T/ C. }  F( A
2 i# S$ z9 a1 ], z( }# {4 A( x5 U[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
% z9 {' k- @8 n1 l* A4 H0 w+ ]ask turtles [
& ~  w0 D+ ~8 P+ Hif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
( c5 D# W; @4 K                          set y  Dep / 2
           set b  int (who / 5) * 5
: e- H% l. j2 z+ d8 U# z    setxy ( xcor-of turtle b + x )
% Y  m! `0 A6 {4 M+ h          ( ycor-of turtle b + y )]]
' D& F* f* h+ l+ A* M& ?& i3 C2 zend
! e& [" w5 d( r5 m之前有个括号位置不对没发现