看看这段代码的问题

etamina

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

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

+ V7 O9 ~9 G* {7 oturtles-own [a b c d k f g h
1 j2 Z( ?7 y* `% c- r& @  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
, |! s( r. R8 p+ p/ l' U" Q]
to new
* ^2 Y" a4 c9 e6 T( |: K  ca
  crt 5 * num_of_building
. p- C  j9 p  o8 F  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
: ~0 I% b1 `  l0 D$ T, H' `4 a( ^$ `( v  A  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
end
& p' I- y6 }& f9 W( ~5 T! ?# ito scatter
ask turtles with [remainder who 5 = 0]
. L! c( Q# z( g! e  g6 t) \[
set xcor xcor - 6 + random-float 15
9 K& O  j) g1 b/ k! M3 m( Wset ycor ycor - 6 + random-float 15
]
1 M! }+ j% B) ~/ [6 p; G) \- ^end
to unit_plan
ask turtles [
+ ]+ j: I+ I# A2 uif (remainder who 5 = 1) [set a who
# e: z: P! {2 h- k! ?) L                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
# S; {: C4 y& Q1 a  t" F0 V1 Q; j4 b           set b  int (a / 5) * 5
    setxy ( xcor-of turtle b + x )
1 [: ?% E) Y1 K/ w4 P+ O          ( ycor-of turtle b + y )
+ K' Z! [! \+ n0 ?' F' o) }if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
                          set d int (c / 5) * 5
* }4 l  P. y! J& @* p* l! @   setxy   ( xcor-of turtle d + x )
. \7 o" w, O9 Z/ Z: {           (ycor-of turtle d + y )
, |# ]$ H, ?$ l* A8 i$ m, l1 b         
9 L) N8 u" O) k/ v) R! @" w            
9 s! f' L6 ?) {+ F! p' Z; f9 ^if (remainder who 5 = 3) [set k who
% ]5 a' `! r' ^1 z, P, j                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
& F" g# ^6 |) Z- z( |+ y/ ?# ~1 y           
           
$ c  u& i  @5 J3 x, {- R( ?$ iif (remainder who 5 = 4) [set g who
8 U) Y5 e9 n+ E& b, C" x                          set x Wid / 2
                          set y  Dep / 2 ]
3 F, R) J6 j6 \/ I/ ~$ \                          set h  int (g / 5) * 5
  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
$ x) Y' h& H8 l- C$ E; m2 j! m                          
/ z: {- k* E" t+ T                          
                          ]
end

) D. ]/ s6 B' {$ b[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
+ {& |( Y4 Z4 I% a应该是
6 V7 n: @( i/ D7 A4 Pask turtles [
if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
           set b  int (who / 5) * 5
4 b/ b" Z8 y# J+ `' n9 P    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
8 w0 X. a$ W5 D) P+ lend
之前有个括号位置不对没发现