turtles-own3 J' v2 I1 [5 u# a f- e9 H
to setup
: F% O7 ~1 s( E" @: a N clear-all3 }) S! x7 k8 E) _8 O
create-turtles 100. g$ o0 T# b7 X- i8 D! `8 A2 _1 U1 i
ask turtles [setxy random-xcor random-ycor]
8 D7 d) b6 N" }9 i# ^ end
$ @4 e$ x% g N, [# H ) r o2 W4 f2 K0 G. T4 L/ `8 S
to go
c6 O9 {2 h v" {; t$ e6 U3 K ask turtles
# i! W8 C7 h; e8 J' l& c, A [ right random 360 forward 1]6 d" x; G& F3 ]5 F7 X$ j
run-a-turtle" s1 H( P$ a" J, F. K: R! E K
end 5 j# |4 t z* _) t
- _" O7 W& Y' K5 I$ n2 p
to run-a-turtle' H+ N1 M: I0 g0 J, c" ]
ask turtle i [set color red / {6 w" E% W. r7 t
set i i + 1 ]% D& N) T8 o4 m% n% x+ `
ifelse i >= 99 [stop]
0 N7 x! x$ v( l" q( w' X [run-a-turtle]4 B. i7 c, X2 l4 `
end$ P3 D2 B, a: z5 o: |4 B) n* T/ ^- k
我这个程序就是运行不起，我想随机create100个turtles，然后，让turtles一个一个的变红，这里我用了一个循环，而且一个一个叫turtle变红，我就是用的ask turtle i.% S$ c$ P# p2 e
最近我都在自己学这个语言，有很多不精的地方，这个程序就是通不过，谁能帮忙看看啊，万分感谢！！！！！ |
发表于 2008-7-29 21:19:36
楼主