turtles-own
$ ^! k- a7 M2 B0 Q1 Y: ato setup, v( y/ _; B+ J9 q7 P
clear-all
+ d0 R+ Q* y0 J; Y create-turtles 100! H) P7 y; ^, \) g+ k, V
ask turtles [setxy random-xcor random-ycor]& F& L' N1 u r5 K( D/ v: i
end
0 o x/ t- `4 n9 n: w F$ O- w
. Z% Z, d* A T" d- d, z8 cto go
Y# K# \4 v: T6 t' w7 O ask turtles
# S! ?* X( J2 J/ G7 Y; b$ b [ right random 360 forward 1]
( x$ R. u: E& j$ T6 W% Q run-a-turtle4 j( N; ]) n: \/ M+ B# j
end
9 {' ^" d% o: h# o
, x0 n1 L4 h' Y0 S" qto run-a-turtle5 o+ _8 B2 R6 u' Y( B; s
ask turtle i [set color red
. O; {4 c+ u5 ] set i i + 1 ]
- \2 }/ b' d$ u# l ifelse i >= 99 [stop]. g" k, a) _3 I- p% p7 r
[run-a-turtle]
& C* x. h1 A% ^0 W5 T8 `end' X0 T4 c0 U7 }$ ?, z
我这个程序就是运行不起，我想随机create100个turtles，然后，让turtles一个一个的变红，这里我用了一个循环，而且一个一个叫turtle变红，我就是用的ask turtle i.% n2 g+ _' Y5 n1 z4 P& W: o
最近我都在自己学这个语言，有很多不精的地方，这个程序就是通不过，谁能帮忙看看啊，万分感谢！！！！！ |
发表于 2008-7-29 21:19:36
楼主