看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
) R- c8 c' k* z- W% C# g
/ z( `" H" I2 I: Q7 n' B但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

turtles-own [a b c d k f g h
4 g  ^7 I, F+ f9 V" J: w$ y  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
- D/ t1 j7 \7 kto new
7 ^- r8 Q4 y, F7 @2 K  ca
7 e+ t: U2 v+ O1 a/ r  crt 5 * num_of_building
  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
  scatter     ;;keep center-turtle random positions
7 `# ^  K4 E' |7 p  unit_plan   ;;make up the building plan
end
0 n3 T  `% C3 ~to scatter
$ A1 h; r- R8 p4 }  S# G& xask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
1 w/ p# h. U5 S& k5 W& U, Eset ycor ycor - 6 + random-float 15
]
0 X8 y( f2 T+ b' ?5 P; R+ J3 S+ }end
- T  x9 i- W+ e# j) F5 Mto unit_plan
* ]1 O: L9 ]+ |7 \! }ask turtles [
if (remainder who 5 = 1) [set a who
                          set x ( 0 - Wid / 2 )
6 l: p& o. B9 R, N* q                          set y  Dep / 2 ]
           set b  int (a / 5) * 5
4 F9 h! \. c. ^    setxy ( xcor-of turtle b + x )
, r) z0 y0 o, P0 L! n          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
8 n6 O1 T% i  u" L* k8 B, `                          set y (0 - Dep / 2 )  ]
+ w7 }% E/ t! Q% Z% X                          set d int (c / 5) * 5
   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
0 @1 o# H1 b% f  v2 V9 E, ?: e         
- [4 u+ U4 g- v: z' h! ]            
if (remainder who 5 = 3) [set k who
$ S6 e+ ?' g0 _0 f# T                          set x( Wid / 2)  
# l5 ?1 D, D' A0 O: k3 g# u                          set y (0 - Dep / 2 ) ]
6 W  J7 v8 Z7 \: G- Q                          set f int (k / 5) * 5
3 N' U6 W, C, x) N* s) w. e  _  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
1 m3 Q2 v6 @3 Q7 t           
" }' \6 A7 a8 Q/ X" {! x& l           
2 [% s7 @% h! g) z8 P% sif (remainder who 5 = 4) [set g who
                          set x Wid / 2
2 \% R5 L( d0 s( B" g) n# t                          set y  Dep / 2 ]
! }# H/ }1 Y" j" ?7 h                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
7 q/ ]6 s- E+ X0 H* ~0 U& G' p  R           (ycor-of turtle h + y )
                          
; a0 `& H, |+ \5 H2 m2 `                          
5 \7 f$ a$ x+ @! I& H                          ]
end
) f4 x+ I! s# I( [$ Q
[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
1 G- q* B* v' `0 o; n4 Q应该是
ask turtles [
1 i4 {- A6 q. C" t1 m' z: A/ G& |) eif (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
3 C8 c/ {5 L* U           set b  int (who / 5) * 5
! ]% M6 S+ N  X0 N2 @    setxy ( xcor-of turtle b + x )
( Q/ M/ o& i4 ]# W( J- E8 C          ( ycor-of turtle b + y )]]
' `2 A* T/ S* b+ }# P" c) R" Rend
  {- \: m' q' u$ T之前有个括号位置不对没发现