turtles-own2 J0 Q; i+ N$ p) O- {# T
to setup& c- M2 C3 H4 B. `
clear-all3 ?( X& d6 m& Y% _ x0 B5 i
create-turtles 100- l0 u6 t6 m1 g+ l
ask turtles [setxy random-xcor random-ycor]6 g, {' s# |+ V( f0 X% C0 r
end/ m2 I1 D, h$ b- r- F
4 _% X! o" z7 I: g' g6 G
to go- j1 B& O/ Z6 {& _* {; O
ask turtles9 a3 n9 o- u4 B4 f; i, j+ v+ @1 E
[ right random 360 forward 1]
: j4 S7 k* ?6 w! S% b run-a-turtle* @$ @7 Y3 f: ]3 H! V* b) c' W9 C, d
end
: q4 g4 j2 C3 E6 k3 `# S+ X4 n+ k% b6 f1 j9 `5 ?" k8 N
to run-a-turtle
1 y+ s( n* @! W* v) Q ? ask turtle i [set color red
% X( r$ s) B' c/ b set i i + 1 ]$ U" X5 ^; m* Q; |* P$ H
ifelse i >= 99 [stop]
7 b& [; i8 s, h' H: s [run-a-turtle]
' u, d- U1 H# m) uend
3 _8 D$ e* }5 s$ i* q. O+ j& m2 O 我这个程序就是运行不起，我想随机create100个turtles，然后，让turtles一个一个的变红，这里我用了一个循环，而且一个一个叫turtle变红，我就是用的ask turtle i.- }5 U e ]( S) T' e* q9 e7 e
最近我都在自己学这个语言，有很多不精的地方，这个程序就是通不过，谁能帮忙看看啊，万分感谢！！！！！ |
发表于 2008-7-29 21:19:36
楼主