turtles-own2 Y5 |) k8 a/ V; b4 q- ~
to setup u( x* k7 M7 h9 V
clear-all- X3 f7 d) ~7 m4 m( M- _
create-turtles 100
% {2 l0 T4 l5 [" y4 s0 n, _3 }* c% }5 S ask turtles [setxy random-xcor random-ycor]
1 h& _: D" G$ L) ^5 f end- i& F K. c/ z7 A7 P/ u
6 T& f+ s% T* l! Y& Bto go( q' X. S$ y; |% o. b
ask turtles
9 e0 I" | x# X8 i1 l [ right random 360 forward 1]
) P* V' A6 W" }( v run-a-turtle0 d3 c+ Y4 u3 g% J! P8 b; ]
end
/ J1 F: f( w2 W* ?3 \* {# P& ?$ e3 N& `' m8 k7 W1 f M( R! E
to run-a-turtle
7 w8 r0 F" J; q# J, q ask turtle i [set color red
n! ^. R* n$ n4 `6 j+ m# p% Y set i i + 1 ]
) _, A$ I" o; A( k- m6 F ifelse i >= 99 [stop]6 `4 p. q- ^: T$ K T8 D
[run-a-turtle]
9 I6 W9 V7 I, Pend1 Z8 y0 ~. ~, W' `- Z
我这个程序就是运行不起,我想随机create100个turtles,然后,让turtles一个一个的变红,这里我用了一个循环,而且一个一个叫turtle变红,我就是用的ask turtle i.
$ T# Y( t* k$ E1 b: d! J! A最近我都在自己学这个语言,有很多不精的地方,这个程序就是通不过,谁能帮忙看看啊,万分感谢!!!!! |