看看这段代码的问题

etamina

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

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

$ y3 P: A* w) X! Nturtles-own [a b c d k f g h
  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
  ca
, V6 `8 s; ?0 n6 E  G- ]' x' n( s  crt 5 * num_of_building
; E( }2 C7 a, s0 Y! K  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
) p  s; v) g2 Z( [% z: t7 Oend
, ^; n0 e% j% q' k* @6 }- {4 b/ Sto scatter
* b9 }9 W! I9 Y/ K: N# Pask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
' u1 s" {: Q) x2 p! e6 J6 }5 Gset ycor ycor - 6 + random-float 15
& c3 J6 S( x9 Y/ N]
8 q# y* n* p6 V4 t/ \# Dend
to unit_plan
ask turtles [
! d% v5 C# N6 J9 }/ B- p$ @0 G& Lif (remainder who 5 = 1) [set a who
7 n4 A" ^# `' f                          set x ( 0 - Wid / 2 )
4 a$ b2 n2 _  v" P1 c1 m                          set y  Dep / 2 ]
: F+ v  ]( i$ g- I& M0 B           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
% }; g, F  n$ P          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
* }3 y9 v/ d( a- ?$ Q                          set y (0 - Dep / 2 )  ]
( B/ W  b+ F) t                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
* l3 u  f. Y$ i3 N0 I& X: o           (ycor-of turtle d + y )
; f+ U. H1 a6 M2 U         
% T8 m' U) n4 X+ V            
8 s7 b) Q( S) d' y( Wif (remainder who 5 = 3) [set k who
                          set x( Wid / 2)  
$ v. |; h, v/ @2 Z( G                          set y (0 - Dep / 2 ) ]
% M# j3 F% c9 A, s                          set f int (k / 5) * 5
( ?" X3 p% x1 V. \  setxy   ( xcor-of turtle f + x )
; |; s$ _! s0 b4 z2 z8 |           (ycor-of turtle f + y )
           
           
5 t; B# t; G- j: }9 Uif (remainder who 5 = 4) [set g who
# ?3 Y% \6 F1 C: X0 t* Y; x* p                          set x Wid / 2
; V) P+ I# g7 b                          set y  Dep / 2 ]
3 \8 V# A8 N1 S, M                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
$ k' q# S* E) L' [5 ]& U                          
                          ]
5 g+ I3 N% o  c6 W$ }! F/ Rend

[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
( H1 k) |4 }" x; Rif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
  m5 {5 P9 E  W3 J3 z+ l           set b  int (who / 5) * 5
    setxy ( xcor-of turtle b + x )
+ J  s3 `, c% R$ S- y2 P  |          ( ycor-of turtle b + y )]]
end
8 y$ I8 z7 Z% J+ i9 |" l) E2 s之前有个括号位置不对没发现