看看这段代码的问题

etamina

我的模型，原意是使得每五个turtle成一个矩形，这些矩形随机散布在一定范围内。
8 x# z4 v. J, X' ~
6 ~: W; z3 M3 }6 l4 D& t" o9 U但是运行结果所有的矩形重叠在一起，只显示一个矩形。请大家帮忙看看。

/ E7 W& @5 w2 V& Nturtles-own [a b c d k f g h
4 ]9 V9 r, D0 V( V  x y     ;; these are the leaf-turtle's offsets relative to center-turtle
]
to new
# f8 ?" G3 C( O9 f0 K. ]  ca
  crt 5 * num_of_building
0 E0 [1 d6 u) v7 O- i) r  ask turtles [ifelse (remainder who 5 = 0) [set color red][set color blue]]
$ K/ N6 o: C! t! i- b  scatter     ;;keep center-turtle random positions
  unit_plan   ;;make up the building plan
) T8 M6 ?( e* i' x+ w* ~end
to scatter
ask turtles with [remainder who 5 = 0]
[
set xcor xcor - 6 + random-float 15
set ycor ycor - 6 + random-float 15
]
end
to unit_plan
ask turtles [
! K/ z# r6 J6 E1 O9 O7 e" H1 @if (remainder who 5 = 1) [set a who
6 Z6 d! D$ g) W9 G0 {4 B4 {  ?% N                          set x ( 0 - Wid / 2 )
                          set y  Dep / 2 ]
( D+ ]$ G1 q7 S! G2 Q; l. }           set b  int (a / 5) * 5
9 S, c  W/ C5 D5 L    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )
if (remainder who 5 = 2) [set c who
                          set x ( 0 - Wid / 2 )
                          set y (0 - Dep / 2 )  ]
6 r& x# S- f9 D" e5 z                          set d int (c / 5) * 5
2 X1 d. k7 x' Q4 R   setxy   ( xcor-of turtle d + x )
           (ycor-of turtle d + y )
, ^" ?% q# G& |7 L6 A         
            
1 c* r- u: P1 U0 c, iif (remainder who 5 = 3) [set k who
/ Z/ Y3 @% k7 D7 B3 s) A                          set x( Wid / 2)  
                          set y (0 - Dep / 2 ) ]
                          set f int (k / 5) * 5
' h0 B) s, n. o2 x# P9 R0 E8 }  setxy   ( xcor-of turtle f + x )
           (ycor-of turtle f + y )
9 ^5 y% a* f2 F; H; C) i           
% v; S7 {; ?! c; ]% E- p           
! t; I# S- U; v; f: y1 oif (remainder who 5 = 4) [set g who
                          set x Wid / 2
                          set y  Dep / 2 ]
                          set h  int (g / 5) * 5
! |: c3 S5 p% I) I; t: U$ q  setxy   ( xcor-of turtle h + x )
           (ycor-of turtle h + y )
                          
                          
                          ]
end
& z' I+ O9 M2 k6 U; B! Z! H
4 R& R4 l7 b; w- T$ w/ Z[ 本帖最后由 etamina 于 2008-4-10 16:41 编辑 ]

etamina

已经解决了，
应该是
ask turtles [
# J! q1 C! O) l( _if (remainder who 5 = 1) [set x ( 0 - Wid / 2 )
                          set y  Dep / 2
* z$ T" F8 u9 b2 |1 k0 z) m           set b  int (who / 5) * 5
' B% t7 M+ }, _+ D    setxy ( xcor-of turtle b + x )
          ( ycor-of turtle b + y )]]
end
0 m. p' N+ O. K2 B; n" F" l9 P之前有个括号位置不对没发现